Diferencias

Muestra las diferencias entre dos versiones de la página.

--- 011:utilidades [d/m/Y H:i] – [Utilidades: Carga y almacenamiento de programas con velocidad variable (I)] miguel
+++ 011:utilidades [d/m/Y H:i] (actual) – [Utilidades: Carga y almacenamiento de programas con velocidad variable (I)] miguel
@@ Línea 5: / Línea 5: @@
 {{ :011:utilidades.jpg|}}
---- //Paco MARTIN y José Mario DIAZ//
+--- //Paco Martín y José María Diaz//
 //El bricolaje de los sistemas TURBO. Comandos nuevos y más veloces para su ordenador.//
-La forma más común utilizada por gran mayoría de los usuarios del ZX Spectrum para grabar y cargar sus programas es la cinta de cassette; este soporte, frente a su bajo costo y relativa Habilidad, presenta el problema de la lentitud en la transferencia de información.
+La forma más común utilizada por gran mayoría de los usuarios del ZX Spectrum para grabar y cargar sus programas es la cinta de cassette; este soporte, frente a su bajo costo y relativa fiabilidad, presenta el problema de la lentitud en la transferencia de información.
-Por tanto, convendría que el usuario pudiera elegir la velocidad de transferencia casette-ordenador, es decir, SA-VE/LOAD programar más deprisa o más despacio que el standard permitido por el propio sistema operativo del ordenador (la ROM).
+Por tanto, convendría que el usuario pudiera elegir la velocidad de transferencia casette-ordenador, es decir, SAVE/LOAD programar más deprisa o más despacio que el standard permitido por el propio sistema operativo del ordenador (la ROM).
 Antes de entrar en detalles concretos tal vez sería conveniente recordar una serie de conceptos que nos vamos a ver obligados a utilizar a lo largo de este artículo.
@@ Línea 21: / Línea 21: @@
 El Spectrum emplea este último método, por lo que nos centraremos en la transmisión en serie.
-Conviene manejar una magnitud que nos mida la velocidad de transferencia de información, para poder manipularla desde un programa; esta magnitud es el «BAUDIO» y representa el tiempo que tarda un BIT en transmitirse. La velocidad «de fábrica» del Spectrum es apro-
+Conviene manejar una magnitud que nos mida la velocidad de transferencia de información, para poder manipularla desde un programa; esta magnitud es el «BAUDIO» y representa el tiempo que tarda un BIT en transmitirse. La velocidad «de fábrica» del Spectrum es aproximadamente de unos 1.500 baudios, o sea, 1500/8 BYTES por segundo.
-ximadamente de unos 1.500 baudios, o sea, 1500/8 BYTES por segundo.
 Nosotros hemos realizado un programa en lenguaje máquina cuyo límite inferior ronda los 800 baudios y cuyo límite superior alcanza 5000.
@@ Línea 32: / Línea 31: @@
 Entre los diversos métodos conocidos para ampliar el BASIC del Spectrum, hemos elegido uno que funciona con o sin microdrive; para mayor sencillez, debe correrse la rutina en lenguaje máquina dentro de la propia línea de comandos, bien en modo directo o programa.
-Los nuevos comandos tienen una sintaxis muy parecida a la original, excepto por la inclusión de la velocidad en BAUDIOS; por ejemplo, para realizar un SA-VE habría que decir:
+Los nuevos comandos tienen una sintaxis muy parecida a la original, excepto por la inclusión de la velocidad en BAUDIOS; por ejemplo, para realizar un SAVE habría que decir:
-SAVE BAUDIOS; "NOMBRE" donde BAUDIOS sería un número entre 800 y 5000 inclusive. Esta es la única modificación que hay que incluir en todas las órdenes de SAVE, LOAD, VERIFY y MERGE.
+<code basic>
+SAVE BAUDIOS; "NOMBRE"
+</code>
-Para poner un ejemplo más concreto,
+donde BAUDIOS sería un número entre 800 y 5000 inclusive. Esta es la única modificación que hay que incluir en todas las órdenes de SAVE, LOAD, VERIFY y MERGE.
-supongamos que nuestra rutina en máquina está ensamblada en la dirección 60000 y queremos salvar un programa llamado "DEMO" desde el propio programa DEMO a 2500 baudios; escribiríamos:
-RANDOMIZE USR 60000: REM SAVE 2500; "DEMO" o sin número de línea. El REM es imprescindible ponerlo para que la rutina pueda funcionar.
+Para poner un ejemplo más concreto, supongamos que nuestra rutina en máquina está ensamblada en la dirección 60000 y queremos salvar un programa llamado "DEMO" desde el propio programa DEMO a 2500 baudios; escribiríamos:
+<code basic>
+RANDOMIZE USR 60000: REM SAVE 2500; "DEMO"
+</code>
+o sin número de línea. El REM es imprescindible ponerlo para que la rutina pueda funcionar.
 El procedimiento seguido por la rutina máquina es muy sencillo: existe una variable del sistema localizada en la dirección 23645 cuyo contenido es la dirección del siguiente carácter a interpretar, para ver si es sintácticamente correcto. Tomamos este carácter y los siguientes para ver si responden a la secuencia elegida por nosotros; si es así, la sentencia se ejecuta, si no, mediante la rutina ROM «RST 8» presentamos en pantalla el mensaje de error adecuado.
@@ Línea 45: / Línea 51: @@
 Como nuestros lectores observarán, la sintaxis de los parámetros que siguen al comando CODE no está «controlada» en todos los casos por razones que se harán claras en los siguientes artículos.
-La longitud del listado de esta parte del programa nos ha decidido a emplear
+La longitud del listado de esta parte del programa nos ha decidido a emplear el lenguaje ensamblador en aras de la claridad, pensando en aquellos que estén interesados en estudiar la estructura y funcionamiento del programa paso a paso, desarrollo que nosotros, una vez más por razones de espacio, no podemos realizar con el detalle que quisiéramos.
-el lenguaje ensamblador en aras de la claridad, pensando en aquellos que estén interesados en estudiar la estructura y funcionamiento del programa paso a paso, desarrollo que nosotros, una vez más por
-razones de espacio, no podemos realizar con el detalle que quisiéramos.
 No obstante, publicaremos un programa Basic cargador para los lectores que no dispongan de ensamblador.
-íe	org óeeee
+===== Listado ensamblador =====
-	ld hl,(23645)
-	inc hl
+<code ASM>
-	ld a,< hl)
+		org 60000
-	cp 234 ¡ 'rem'
+		ld hl,(23645)
-	jr nz,errora
+		inc hl
-	inc hl
+		ld a, (hl)
-	ld a,< hl)
+		cp 234 ; 'rem'
-	cp 248 ¡ 'save'
+		jr nz,errora
-	jr z.tsave
+		inc hl
-	cp 23? ¡ 'load'
+		ld a, (hl)
-	jr z.tload
+		cp 248 ; 'save'
-	cp 214 ¡ "verify'
+		jr z,tsave
-	jr z.tveryf
+		cp 239 ; 'load'
-	cp 213 ¡ 'merge'
+		jr z,tload
-	jr z,tmerge
+		cp 214 ; 'verify'
-	jr errora
+		jr z,tveryf
-	;
+		cp 213 ; 'merge'
-	¡
+		jr z,tmerge
-	err0r6 rst 8
+		jr errora
-	defb 5 ¡ 'number too big'
+;
-	j
+ ;
-	errora rst 3
+	error6	rst 8
-	defb 9 ; argumento invalido.
+		defb 5 ; 'number too big'
-	;
+ ;
-	¡
+	errora	rst 8
-	errorb rst 8
+		defb 9 ; 'argumento invalido'
-	defb 10 ; 'integer out of range'
+;
-	i
+ ;
-	errorc rst 8
+	errorb	rst 8
-	defb 11 ¡ 'nonsense in basic'
+		defb 10 ; 'integer out of range'
-	;
+ ;
-	errorf rst 8
+	errorc	rst 8
-	defb 14 ¡ 'invalid filename'
+		defb 11 ; 'nonsense in basic'
-	errorr rst 8
+;
-	defb 26 ¡ 'tape loading error'
+	errorf	rst 8
-	;
+		defb 14 ; 'invalid filename'
-	tmerge call baudio
+	errorr	rst 8
-	call name
+		defb 26 ; 'tape loading error'
-	inc hl
+;
-	i_d a, < hl)
+	tmerge	call baudio
-	cp	13
+		call name
-	jr	nz,errorc
+		inc hl
-	ret
+		ld a, (hl)
-	;
+		cp	13
-	tveryf call baudio
+		jr	nz,errorc
-	call name
+		ret
-	call nsint
+		;
-	ret
+	tveryf	call baudio
-	tsave call baudio
+		call name
-	call name
+		call nsint
-	jr	c,errorf
+		ret
-	call sintax
+	tsave	call baudio
-	ret
+		call name
-	j
+		jr	c,errorf
-	tload call baudio
+		call sintax
-	call name
+		ret
-	call nsint
+ ;
-	ret
+	tload	call baudio
-	;
+		call name
-	baudio call numero
+		call nsint
-	push hl
+		ret
-	cp	"t"
+;
-	jp	nz,errorc
+	baudio	call numero
-	ld	hl,799
+		push hl
-	sbc	hl,de
+		cp	"t"
-	jp	nc,errorb
+		jp	nz,errorc
-	and	a
+		ld	hl,799
-	ld	hl,5000
+		sbc	hl,de
-	sbc	hl,de
+		jp	nc,errorb
-	jp	c.err0r6
+		and	a
-	ld	de,c pres)
+		ld	hl,5000
-	ld	< baud),de
+		sbc	hl,de
-	pop	hl
+		jp	c,err0r6
-	inc	hl
+		ld	de, (pres)
-	ld	a, < hl)
+		ld	(baud),de
-	cp
+		pop	hl
-s0	jp	nz,errora
+		inc	hl
-»0	inc	hl
+		ld	a, (hl)
-	ret
+		cp	"""
-	;
+		jp	nz,errora
-	name ld	b,10
+		inc	hl
-	ld	de,cabec*i
+		ret
-pname	ld	a,(hl)
+;
-	cp
+	name	ld	b,10
-	jr	z.cmp
+		ld	de,cabec+i
-	ld	< de ),a
+	pname	ld	a,(hl)
-	inc	hl
+		cp	"""
-	inc	de
+		jr	z,cmp
-	djnz pname
+		ld	(de),a
-	ld	a,(hl)
+		inc	hl
-	cp
+		inc	de
-	ret	z
+		djnz pname
-	scf
+		ld	a,(hl)
-	ret
+		cp	"""
-cmp	ld	a,9
+		ret	z
-	cp	b
+		scf
-»80	ld	a,32
+		ret
-llena	ld	<de),a
+	 cmp	ld	a,9
-	inc	de
+		cp	b
-	djnz llena
+		ld	a,32
-¡020	ret ¡030 ;
+	 llena	ld	(de),a
-sintax inc	hl
+		inc	de
-	ld	a,<hl>"
+		djnz llena
-	cp 13
+		ret
-	jr	z,pprog
+ ;
-	cp	202 i 'line'
+	 sintax inc	hl
-	jr	z,lprog
+		ld	a,<hl>
-	cp 170 ¡ 'screens
+		cp	13
-	jr	z,spant
+		jr	z,pprog
-	cp 175 ¡ 'code'
+		cp	202 ; 'line'
-	jr	z,code
+		jr	z,lprog
-i 140	JP	ERRORC
+		cp 170 ; 'screen$'
- i
+		jr	z,spant
-pprog	ret 1 1 70 ¡
+		cp 175 ; 'code'
-lprog	ret 1190 ¡
+		jr	z,code
- spam-	ret 1210 ;
+		JP	ERRORC
-code	call numero
+ ;
-	ld	<dirt),de
+	 pprog	ret
-	call comdat
+;
-	ld	a,(hl)
+	 lprog	ret
-	cp
+ ;
-	jp	nz,errorc
+	 spant	ret
-	call enum
+;
-	ld	(lont).de
+	 code	call numero
-	call comdat
+		ld	(dirt),de
-	ret 1320 ¡
+		call comdat
-comdat ld	a,d
+		ld	a,(hl)
-	or	e
+		cp	","
-	ret	nz
+		jp	nz,errorc
-	dec	hl
+		call enum
-	ld	a,< hl)
+		ld	(lont),de
-¡330	cp	"0"
+		call comdat
-	jp	nz,errorc
+		ret
-	inc	hl
+ ;
-	ret
+	 comdat ld	a,d
- ¡
+		or	e
-enum	call	numero
+		ret	nz
-	cp	13
+		dec	hl
-	jp	nz,errorc
+		ld	a, (hl)
-	ret 1470 ;
+¡330		cp	"0"
-nsint	inc	hl
+		jp	nz,errorc
-	ld	a,< hl)
+		inc	hl
-	cp	13
+		ret
-	ret	z
+ ;
-	cp	170 ¡ 'screens
+	 enum	call	numero
-	jr	z,spant
+		cp	13
-	cp	175 ¡ 'code'
+		jp	nz,errorc
-	jr.	z, lcode
+		ret
-	jp	errorc
+;
-	ret
+	 nsint	inc	hl
- ¡
+		ld	a, (hl)
-lcode	ret 1600 ;
+		cp	13
-numero	ld	de,0
+		ret	z
-crnum	inc	hl
+		cp	170 ; 'screen$'
-	ld	a,(hl)
+		jr	z,spant
-	cp	58
+		cp	175 ; 'code'
-	ret	nc
+		jr	z, lcode
-	cp	48
+		jp	errorc
-	ret	c
+		ret
-	sub	48
+ ;
-	push	hl
+	 lcode	ret
-700	ld	< pres),de
+;
-	ex	de,hl
+	 numero	ld	de,0
-	call	mult
+	 crnum	inc	hl
-	ld	d,0
+		ld	a,(hl)
-	ld	e,a
+		cp	58
-	add	hl,de
+		ret	nc
-	jp	c,errorb
+		cp	48
-	ex	de,hl
+		ret	c
-	pop	hl
+		sub	48
-	jr	crnum • 1800 ;
+		push	hl
-pres	defu	0 1820 ;
+		ld	(pres),de
-mult	add	hl,hl
+		ex	de,hl
-	jp	c,errorb
+		call	mult
-	ld	d,h
+		ld	d,0
-i860	ld	e,l
+		ld	e,a
-	add	hl,hl
+		add	hl,de
-	jp	c,errorb
+		jp	c,errorb
-	add	hl,hl
+		ex	de,hl
-	jp	c,errorb
+		pop	hl
-	add	hl,de
+		jr	crnum
-	jp	c,errorb
+;
-	ret 1940 ¡
+	 pres	defw	0
-baud	defuj	1500
+;
-cabec	defb	0
+	 mult	add	hl,hl
-dirt	defw	0
+		jp	c,errorb
-lont	defw	0
+		ld	d,h
+i860		ld	e,l
+		add	hl,hl
+		jp	c,errorb
+		add	hl,hl
+		jp	c,errorb
+		add	hl,de
+		jp	c,errorb
+		ret
+ ;
+	 baud	defw	1500
+	 cabec	defb	0
+	 dirt	defw	0
+	 lont	defw	0
+</code>