Diferencias

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

--- 011:utilidades [d/m/Y H:i] – creado miguel
+++ 011:utilidades [d/m/Y H:i] (actual) – [Utilidades: Carga y almacenamiento de programas con velocidad variable (I)] miguel
@@ Línea 3: / Línea 3: @@
 ===== Utilidades: Carga y almacenamiento de programas con velocidad variable (I) =====
-FIXME
+{{ :011:utilidades.jpg|}}
+--- //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 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, SAVE/LOAD programar más deprisa o más despacio que el standard permitido por el propio sistema operativo del ordenador (la ROM).
-Paco MARTIN y José Mario DIAZ
-El bricolaie 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.
-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).
 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.
 La unidad básica del Spectrum para el tratamiento de la información es el «BYTE», es decir, un número binario que varía cíclicamente de 0 a 255; un byte está «compuesto» de 8 bits que tendremos que transferir al cassette o recibir de él.
 Existen dos maneras de hacerlo: los ocho bits a la vez (en paralelo) o bit a bit hasta completar el byte de información (en serie).
 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-
-ximadamente de unos 1.500 baudios, o sea, 1500/8 BYTES por segundo.
+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.
 Nosotros hemos realizado un programa en lenguaje máquina cuyo límite inferior ronda los 800 baudios y cuyo límite superior alcanza 5000.
 Es necesario aclarar que no todos los cassettes son iguales ni todos están preparados para recibir/transmitir a muy alta velocidad, así que tendrá que hacer algunas pruebas para encontrar la velocidad que se ajuste a su aparato.
 El programa consta de dos grandes partes bien diferenciadas: la primera se encarga de la sintaxis de los nuevos comandos Basic que hemos construido al efecto; la segunda realiza el trabajo de SAVE/LOAD propiamente dicho. Por razones de espacio, nos centraremos en este número en la rutina de sintaxis, y en el próximo en la segunda parte.
 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:
-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.
+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:
-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" o sin número de línea. El REM es imprescindible ponerlo para que la rutina pueda funcionar.
+SAVE BAUDIOS; "NOMBRE"
+</code>
+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.
+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.
 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
-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
+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.
-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
-	ld hl,(23645)
+===== Listado ensamblador =====
-	inc hl
-	ld a,< hl)
+<code ASM>
-	cp 234 ¡ 'rem'
+		org 60000
-	jr nz,errora
+		ld hl,(23645)
-	inc hl
+		inc hl
-	ld a,< hl)
+		ld a, (hl)
-	cp 248 ¡ 'save'
+		cp 234 ; 'rem'
-	jr z.tsave
+		jr nz,errora
-	cp 23? ¡ 'load'
+		inc hl
-	jr z.tload
+		ld a, (hl)
-	cp 214 ¡ "verify'
+		cp 248 ; 'save'
-	jr z.tveryf
+		jr z,tsave
-	cp 213 ¡ 'merge'
+		cp 239 ; 'load'
-	jr z,tmerge
+		jr z,tload
-	jr errora
+		cp 214 ; 'verify'
-	;
+		jr z,tveryf
-	¡
+		cp 213 ; 'merge'
-	err0r6 rst 8
+		jr z,tmerge
-	defb 5 ¡ 'number too big'
+		jr errora
-	j
+;
-	errora rst 3
+ ;
-	defb 9 ; argumento invalido.
+	error6	rst 8
-	;
+		defb 5 ; 'number too big'
-	¡
+ ;
-	errorb rst 8
+	errora	rst 8
-	defb 10 ; 'integer out of range'
+		defb 9 ; 'argumento invalido'
-	i
+;
-	errorc rst 8
+ ;
-	defb 11 ¡ 'nonsense in basic'
+	errorb	rst 8
-	;
+		defb 10 ; 'integer out of range'
-	errorf rst 8
+ ;
-	defb 14 ¡ 'invalid filename'
+	errorc	rst 8
-	errorr rst 8
+		defb 11 ; 'nonsense in basic'
-	defb 26 ¡ 'tape loading error'
+;
-	;
+	errorf	rst 8
-	tmerge call baudio
+		defb 14 ; 'invalid filename'
-	call name
+	errorr	rst 8
-	inc hl
+		defb 26 ; 'tape loading error'
-	i_d a, < hl)
+;
-	cp	13
+	tmerge	call baudio
-	jr	nz,errorc
+		call name
-	ret
+		inc hl
-	;
+		ld a, (hl)
-	tveryf call baudio
+		cp	13
-	call name
+		jr	nz,errorc
-	call nsint
+		ret
-	ret
+		;
-	tsave call baudio
+	tveryf	call baudio
-	call name
+		call name
-	jr	c,errorf
+		call nsint
-	call sintax
+		ret
-	ret
+	tsave	call baudio
-	j
+		call name
-	tload call baudio
+		jr	c,errorf
-	call name
+		call sintax
-	call nsint
+		ret
-	ret
+ ;
-	;
+	tload	call baudio
-	baudio call numero
+		call name
-	push hl
+		call nsint
-	cp	"t"
+		ret
-	jp	nz,errorc
+;
-	ld	hl,799
+	baudio	call numero
-	sbc	hl,de
+		push hl
-	jp	nc,errorb
+		cp	"t"
-	and	a
+		jp	nz,errorc
-	ld	hl,5000
+		ld	hl,799
-	sbc	hl,de
+		sbc	hl,de
-	jp	c.err0r6
+		jp	nc,errorb
-	ld	de,c pres)
+		and	a
-	ld	< baud),de
+		ld	hl,5000
-	pop	hl
+		sbc	hl,de
-	inc	hl
+		jp	c,err0r6
-	ld	a, < hl)
+		ld	de, (pres)
-	cp
+		ld	(baud),de
-s0	jp	nz,errora
+		pop	hl
-»0	inc	hl
+		inc	hl
-	ret
+		ld	a, (hl)
-	;
+		cp	"""
-	name ld	b,10
+		jp	nz,errora
-	ld	de,cabec*i
+		inc	hl
-pname	ld	a,(hl)
+		ret
-	cp
+;
-	jr	z.cmp
+	name	ld	b,10
-	ld	< de ),a
+		ld	de,cabec+i
-	inc	hl
+	pname	ld	a,(hl)
-	inc	de
+		cp	"""
-	djnz pname
+		jr	z,cmp
-	ld	a,(hl)
+		ld	(de),a
-	cp
+		inc	hl
-	ret	z
+		inc	de
-	scf
+		djnz pname
-	ret
+		ld	a,(hl)
-cmp	ld	a,9
+		cp	"""
-	cp	b
+		ret	z
-»80	ld	a,32
+		scf
-llena	ld	<de),a
+		ret
-	inc	de
+	 cmp	ld	a,9
-	djnz llena
+		cp	b
-¡020	ret ¡030 ;
+		ld	a,32
-sintax inc	hl
+	 llena	ld	(de),a
-	ld	a,<hl>"
+		inc	de
-	cp 13
+		djnz llena
-	jr	z,pprog
+		ret
-	cp	202 i 'line'
+ ;
-	jr	z,lprog
+	 sintax inc	hl
-	cp 170 ¡ 'screens
+		ld	a,<hl>
-	jr	z,spant
+		cp	13
-	cp 175 ¡ 'code'
+		jr	z,pprog
-	jr	z,code
+		cp	202 ; 'line'
-i 140	JP	ERRORC
+		jr	z,lprog
- i
+		cp 170 ; 'screen$'
-pprog	ret 1 1 70 ¡
+		jr	z,spant
-lprog	ret 1190 ¡
+		cp 175 ; 'code'
- spam-	ret 1210 ;
+		jr	z,code
-code	call numero
+		JP	ERRORC
-	ld	<dirt),de
+ ;
-	call comdat
+	 pprog	ret
-	ld	a,(hl)
+;
-	cp
+	 lprog	ret
-	jp	nz,errorc
+ ;
-	call enum
+	 spant	ret
-	ld	(lont).de
+;
-	call comdat
+	 code	call numero
-	ret 1320 ¡
+		ld	(dirt),de
-comdat ld	a,d
+		call comdat
-	or	e
+		ld	a,(hl)
-	ret	nz
+		cp	","
-	dec	hl
+		jp	nz,errorc
-	ld	a,< hl)
+		call enum
-¡330	cp	"0"
+		ld	(lont),de
-	jp	nz,errorc
+		call comdat
-	inc	hl
+		ret
-	ret
+ ;
- ¡
+	 comdat ld	a,d
-enum	call	numero
+		or	e
-	cp	13
+		ret	nz
-	jp	nz,errorc
+		dec	hl
-	ret 1470 ;
+		ld	a, (hl)
-nsint	inc	hl
+¡330		cp	"0"
-	ld	a,< hl)
+		jp	nz,errorc
-	cp	13
+		inc	hl
-	ret	z
+		ret
-	cp	170 ¡ 'screens
+ ;
-	jr	z,spant
+	 enum	call	numero
-	cp	175 ¡ 'code'
+		cp	13
-	jr.	z, lcode
+		jp	nz,errorc
-	jp	errorc
+		ret
-	ret
+;
- ¡
+	 nsint	inc	hl
-lcode	ret 1600 ;
+		ld	a, (hl)
-numero	ld	de,0
+		cp	13
-crnum	inc	hl
+		ret	z
-	ld	a,(hl)
+		cp	170 ; 'screen$'
-	cp	58
+		jr	z,spant
-	ret	nc
+		cp	175 ; 'code'
-	cp	48
+		jr	z, lcode
-	ret	c
+		jp	errorc
-	sub	48
+		ret
-	push	hl
+ ;
-700	ld	< pres),de
+	 lcode	ret
-	ex	de,hl
+;
-	call	mult
+	 numero	ld	de,0
-	ld	d,0
+	 crnum	inc	hl
-	ld	e,a
+		ld	a,(hl)
-	add	hl,de
+		cp	58
-	jp	c,errorb
+		ret	nc
-	ex	de,hl
+		cp	48
-	pop	hl
+		ret	c
-	jr	crnum • 1800 ;
+		sub	48
-pres	defu	0 1820 ;
+		push	hl
-mult	add	hl,hl
+		ld	(pres),de
-	jp	c,errorb
+		ex	de,hl
-	ld	d,h
+		call	mult
-i860	ld	e,l
+		ld	d,0
-	add	hl,hl
+		ld	e,a
-	jp	c,errorb
+		add	hl,de
-	add	hl,hl
+		jp	c,errorb
-	jp	c,errorb
+		ex	de,hl
-	add	hl,de
+		pop	hl
-	jp	c,errorb
+		jr	crnum
-	ret 1940 ¡
+;
-baud	defuj	1500
+	 pres	defw	0
-cabec	defb	0
+;
-dirt	defw	0
+	 mult	add	hl,hl
-lont	defw	0
+		jp	c,errorb
+		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>