estaba de paso y era para decir que los aportes de soultaker son muy buenos, los leo siempre , entiendo masomenos pero algun dia ya me voy a poner a aprender bien el lenguaje .

estaba de paso y era para decir que los aportes de soultaker son muy buenos, los leo siempre , entiendo masomenos pero algun dia ya me voy a poner a aprender bien el lenguaje .

Gracias por tus palabras. 

Es apasionante el LM. Te cambia la cabeza.   

Saludos.

¿Dónde podemos ubicar nuestro programa para Spectrum en C/M?
1. La más usual: por encima de la RAMTOP: Si cambiamos la variable del sistema  RAMTOP (posiciones 23730 y 23731, recordar siempre que los 8 bits menos significativos van en el primer byte). En vez de tocar la variable del sistema tenemos la instrucción CLEAR, usada como el ejemplo SUPERCLS tres mensajes antes. Si hacemos NEW, el programa no se pierde. Todo se pierde y la computadora reinicia como recién encendida con RANDOMIZE USR 0, PRINT USR 0, LET a=USR 0 o cualquier invocación de USR 0.
2. Esta es buenísima: en las posiciones 23296 hasta la 23551 se encuentra el buffer de impresora (total: 256 bytes). Si no tenemos impresora, estas posiciones no tienen ningún uso y las podemos ocupar para lo que queramos. Ojo que en caso de instrucción NEW, ese espacio se borra.
3. Esta es horrible: en la memoria de pantalla. Para que los bits no se vean como puntos sin sentido aparente, se usan los atributos de color para tapar la mancha (ejemplo, papel y tinta blanca). Si no recuerdo mal, algunos juegos de Commodore hacían algo en pantalla antes de arrancar.
4. Esta era retro en la época: en la ZX-81 se acostumbraba a escribir un programa Basic con una línea REM seguida de tantos espacios como bytes utilizara nuestro programa; con POKE se cambiaban los valores de estos bytes y ejecutábamos desde la dirección. Podemos hacer lo mismo en la Spectrum, pero ojo: no olvidemos que los atributos (tinta, papel, flash) se guardan como bytes y si de casualidad un byte coincide con un control de atributos nos cambia el color para todo el listado.

¿Dónde podemos ubicar nuestro programa para Spectrum en C/M?
4. Esta era retro en la época: en la ZX-81 se acostumbraba a escribir un programa Basic con una línea REM seguida de tantos espacios como bytes utilizara nuestro programa; con POKE se cambiaban los valores de estos bytes y ejecutábamos desde la dirección. Podemos hacer lo mismo en la Spectrum, pero ojo: no olvidemos que los atributos (tinta, papel, flash) se guardan como bytes y si de casualidad un byte coincide con un control de atributos nos cambia el color para todo el listado.

Esa es buenísima. Me había olvidado... era un clásico, es mas, hasta se usaban cargadores para volcar un código LM en una línea de BASIC, sabiendo que la longitud de la línea se especificaba en, si bien recuerdo, 1 o 2 bytes luego de la posición de memoria que corresponde al número de línea de la misma.

Por ejemplo en el spectrum, sería, para la primer línea: 23761 y 23762.

Y una vez volcado especificado en esas lineas cuantos bytes son se copian los mismos. Dicho sea de paso, el Z80 dispone de una instrucción para copia de bloques de memoria, LDIR, pero esto es para otro POST 

¡Muchas gracias por la colaboración!

Saludos.

Para centrar texto en forma dinámica:

Este truco lo ví por primera vez en PP. si bien recuerdo era un programa contable que hizo una persona de Venado Tuerto.

10 LET T$="Retrocomputacion"
20 LET C=(32 - LEN T$)/2
30 PRINT AT 0,C T$

Escritura con cursor (a lo película USA):

T$: Texto.
F y C: Fila y columna respectivamente.

1000 FOR n = 1 TO LEN T$: PRINT AT F,C+N-1; T$(N);"_": NEXT N
1010 PRINT AT F,C+N-1;" "; RETURN

Saludos.

Bonus de viernes:

VUMETRO 

10 LET T=USR "A"
15 LET E$="############################"
20 FOR N=T TO T+17:READ A
30 POKE N,A: NEXT N
40 LET L=USR T
50 LET L=INT((255-L)/9)+1
60 PRINT AT 11,0; E$ ( TO L)
70 GOTO 40
80 DATA 1,0,255,17,0,0,219,254,203,119,32,1,19,16,247,66,75,201

Saludos y buen finde.

Hola a todos.

Perdón por la demora (y deframbuesa  ;D ) Cuac!!

Arranco con una rutina de INPUT un poco mas compleja que la que venia en el BASIC del SPECTRUM.

30 let a=0:z$=""
35 for n=1 to len t$: print at f,c+n-1;t$(n);"_":next n
40 print at f,c;t$;z$;"_"
50 let a$=inkey$:if a$="" then goto 50
51 if code a$<12 or a$>"z" then goto 50
55 if inkey$=chr$ 13 then print at f,c; t$; z$; " ": return
56 if inkey$ = chr$ 12 then print at f,c,,: goto 30
57 if inkey$<>"" then goto 52
70 let z$=z$+a$
80 let a=a+1: if a>=cc then a=cc: let z$=z$( to a)
110 goto 40

Saludos,

..que se puede saber la longitud de un programa BASIC con:

print (peek 23641+256*peek 23642)

Saludos,

Operación lógica XOR (disponible en LM) en BASIC:

DEF FN x,y)=(1 and (x=0 and y=1)+(x=1 and y=0))+0 and (x=0 and y=0)+(x=1 and y=1)

Saludos,

INTERRUPCIONES:

Este tema tan escabroso en z80 y comun en las PC, no es tan escabroso como parece. Solo hay que tener unos pocos cuidados.

Además da una sensación de multitarea en la Z80.   :)

Les paso una pequeña y sencilla rutina en ASSEMBLER que carga una direccion de memoria de comienzo de un código(programa) de LM y activa el modo de interrupción 2.

Activar modo II de interrupciones:

LD A,24
LD (65535),A    ; en basic: poke 65535,24
LD A,195
LD (65524),A    ; en basic: poke 65524,195
LD HL, direccion de memoria de la rutina en LM
LD (65525), HL  ; en basic; poke 65525, L: poke 65526, H
LD A,59
LD I,A   ; cargo el registro de interrupciones con 59
IM 2     ; activo el modo de interrupcion II.
RET

Ahora la rutina nuestra en CM, debe primero ser CORTA y RAPIDA, para que no nos la tome otro refresco de interrupción y además debemos hacer un backup de todos los registros para luego restaurarlos al final de la rutina

Esqueleto:

PUSH HL
PUSH AF
PUSH BC
PUSH DE   ; Backup de los registros.
.
.
.
RUTINA CM
.
.
.
.
POP DE
POP BC
POP AF
POP HL  ; Se restaura en orden inverso por ser pila del tipo FIFO.
RETI  ; En rutinas de interrupciones es mejor usar RETI que RET.

Activar modo I de interrupciones (que deja todo como estaba):

LD A,63
LD I,A
IM 1
RET