Hola a todos.

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

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



Código:

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,

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

Código:

DEF FN x(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,

Hola chicos,

Les paso una rutina de impresión de letras proporcionales, que salió del ART STUDIO.

1) Cargamos estos bytes a partir de la dirección 60000:

Código:

DATA 42,129,92,38,0,237,91,125,92,213,237,91,54,92,41,41,41,
25,209,6,8,126,197,6,8,197,23,48,11,66,75,213,229,245,205,229,
34,241,225,209,28,193,16,237,21,193,35,62,248,131,95,16,224,201
 

Esta es la parte BASIC para poder usarla.

2) Cargamos el carácter que vamos a imprimir:

Código:

POKE 23681, <código del carácter>
 

3) Posicionamos la impresión:

Código:

PLOT INVERSE 1; X,Y: RANDOMIZE USR 60000
 

Importante: X e Y son coordenadas de píxeles, no de caracteres, asi que tienen que convertirlas con:

Código:

X=(21-fila)*8
Y=columna*8
 

PD: La idea de esta rutina me salió después de ver el programa ART STUDIO (de spectrum). Me voló la cabeza.

EDIT: Omití por error código ASSEMBLER de la rutina. Aqui va:

Código:

    LD HL,(23681)
    LD H,0
    LD DE,(23677)
    PUSH DE
    LD DE,(23606)
    ADD HL,HL
    ADD HL,HL
    ADD HL,HL
    ADD HL,DE
    POP DE
    LD B,8
LP3 LD A,(HL)
    PUSH BC
    LD B,8
LP2 PUSH BC
    RLA
    JR NC, LP1
    LD B,D
    LD C,E
    PUSH DE
    PUSH HL
    PUSH AF
    CALL 8933
    POP AF
    POP HL
    POP DE
LP1 INC E
    POP BC
    DJNZ LP2
    DEC D
    POP BC
    INC HL
    LD A,248
    ADD A,E
    LD E,A
    DJNZ LP3
    RET
 

Para vuestro mejor análisis les paso el desensamble de la rutina ROM que invoca el CALL (8933):

Código:

        LD (23677),BC
        CALL 8874
        LD B,A
        INC B
        LD A,254
LOOP3   RRCA
        DJNZ LOOP3
        LD B,A
        LD A,(HL)
        LD C,(IY+57)
        BIT 0,C
        JR NZ, LOOP1
        AND B
LOOP1   BIT 2,C
        JRNZ, LOOP2
        XOR B
        CPL
LOOP2   LD (HL),A
        JP 3035
 

Y la 3035 del jump (JP):

Código:

        LD A,H
        RRCA
        RRCA
        RRCA
        AND 3
        OR 88
        LD H,A
        LD DE,(23695)
        LD A,(HL)
        XOR E
        AND D
        XOR E
        BIT 6,(IY+57)
        JR Z,LOOP1
        AND 199
        BIT 2,A
        JR NZ, LOOP1
        XOR 56
LOOP1   BIT 4,(IY+57)
        JR Z, LOOP3
        AND 248
        BIT 5,A
        JR NZ, LOOP3
        XOR 7
LOOP3   LD (HL),A
        RET
 

Saludos.

Hola a todos!!
Antes que anda, perdon por la demora, les paso otra colaboración:

Programa que emite el sonido de un grillo:
Se finaliza presionando la barra espaciadora.

Código:

	JP INIC
TECLA	CALL 703
	LD A,(23560)
	RET
INIC	LD A,R
	SRL A
	SRL A
	OUT (254),A
	CALL TECLA
	CP " "
	RET Z
	SRL A
	SRL A
	OUT (254),A
	LD A,R
	SRL A
	SRL A
	OUT (254),A
	JP INIC 

Antes deben hacer
Código:

	CLEAR 23999
	RANDOMIZE USR 4654 

Saludos!!

Lo bueno de aquellas maquinolas es que te hacían pensar.Realmente tenías que saber computación.No es como ahora:aceptar,aplicar,cancelar y listo.

el código me hace recordar uno de los programas  del Apollo Guindance Computer.No me imagino a ningún pendejito flogger haciéndole frente a eso.


buenísimo.

Apollo Guindance Computer es la computadora que el MIT desarrolló para poner a bordo de los cohetes del  Proyecto Géminis.Después la mejoraron un poco y la usaron en el Proyecto Apollo.
Esta maquinola no podía fallar porque casi todos los sensores estaban conectados a ella realizando cálculos  y mandando la información a la Tierra.
En el Apollo 13 la apagaron y quedaron en tarlipes.Para reingresar tubieron que hacer milagros para prenderla porque sin ella no podían.
Hay un par de simuladores de AGC y algunos  ADD ONs para el orbiter simulator  con los que podés hacer tu propia misión  Apollo 11 sentado en tu casa.

Hola a todos.

Les paso una rutina interesante en LM.

Les debo el código en Assembler por no estar transcripto en mi cuaderno de notas.
Esta rutina, si bien recuerdo, utiliza interrupciones, e imprime en el recuadro superior derecho de la pantalla un número de 5 dígitos que informa la línea en BASIC que se está ejecutando en ese momento.
Les paso los octetos para cargarlo.

Código:

DATA 62,24,50,255,255,62,195,50,244,255,33,90,
255,34,245,255,62,59,237,71,71,237,94,201,62,63,231,
71,237,86,201,229,245,197,213,42,69,92,17,71,71,237,
83,24,88,237,83,26,88,205,126,255,209,193,241,225,
195,56,0,17,24,0,237,83,200,255,17,232,3,205,189,255,
17,100,0,205,189,255,17,10,0,205,189,259,255,77,205,
179,255,62,58,205,189,255,58,71,92,38,0,111,17,100,0,
209,189,255,17,101,0,205,189,255,77,25,62,48,129,225,
205,199,255,225,201,167,14,0,237,82,56,239,12,24,249,
17,32,0,38,0,111,237,75,54,92,41,41,41,9,122,230,24,
198,64,71,122,15,15,15,230,224,131,95,80,6,8,126,18
,20,35,16,250,33,200,255,52,201
 

Unas observaciones:

• Para activarlo invocar la dirección 65340.
• Para desactivarlo invocar la dirección 65363.
• Tener presente que no es reubicable, en caso de que lo necesiten reubicar, deben tipear los siguientes POKE's:
  POKE direccion+1, PEEK 23670
  POKE direccion+12, PEEK 23671

Saludos,

Cita:

Exacto Hernán, esa fué la idea.

Saludos.

PD1: Lo mejor a lo último.

Si bien no tengo el assembler, viendo el LM en decimal, me juego a que si.

DATA ,,

En , el activador en IM 2.
En , el desactivador a IM 1.
En , la rutina en si.

EDIT: Lo estoy desensamblando a mano para verificar y encuentro discrepancias... Cuando termine posteo el assembler.


Saludos,

Sumo una anécdota al último post que hice:

Hice el desensamble en el trabajo. Mientras estaba desensamblando, me la pasaba los papeles para buscar los opcodes, se aparece mi jefe (un tipo de 40 largos) y se establece este diálogo:

J: ¿que estas haciendo?

S: (con la mejor cara de piedra de mi catálogo)
Estoy desensamblando este código de Z80.
Postee estos números pero me temo que puede haber errores de tipeo.

J: (Mira el desensamble y dice) Ese assembler es de Spectrum... (y se va)

S: 

Nunca me lo hubiese imaginado....

Saludos,

pastbytes dijo 22.01.2010 a las 01:36:53:

Si, el desensamble lo hice a mano, pero no recuerdo todos los opcodes por eso las planillas de la anécdota.
Lo marcado en verde y rojo, fue una interpretación de los numeros on-the-fly (en la mosca =P )

Jajaja!! Si, me recibí de "Operator", en cualquier momento me pongo a diseñar mujeres de rojo. 

Saludos,

... para multiplicar en assembler, se utiliza un método desde tiempos inmemoriables, que aún hoy se usa: El desplazamiento de registros.

¿Cómo es esto?

Un breve intro, seguro que todos lo saben, pero igual lo repasamos:

Sistema decimal:

Sabemos que dentro de cualquier dispositivo digital, todo es binario, y en la speccy, estos dígitos se agrupaban de a 8 formando algo que se lo llama "byte".

Cada "posición" en esos lugares tiene un "peso", llendo de izquierda (los mas pesados) a derecha (los menos pesados).

No se sientan confundidos, es igual que nuestro sistema numérico:
Para el caso de del número 69, el 6 pesa mas que el 9 (porque el 9 son 9 unidades, y el 6 son 6 decenas)

Recordemos nuestras clases...
Si descomponemos el numero del ejemplo, en el sistema decimal, vemos que esta formado por:


6 x 10¹ + 9 x 10⁰ = 69
Fig.1

Acá también se aclara porque se dice que nuestro sistema numérico tiene base decimal. Porque en la potencia de la Fig.1, el número 10 es la base del término potencial.

Sistema binario:
Una aclaración: Vamos a trabajar con números de 8 bits (1 byte).
Veremos que los bits en los números binarios tambien tienen su peso:


Pos:   7   6   5   4   3   2   1   0
     | x | x | x | x | x | x | x | x |
       ^   ^   ^   ^   ^   ^   ^   ^
       |   |   |   |   |   |   |   +-- 1
       |   |   |   |   |   |   +------ 2
       |   |   |   |   |   +---------- 4
       |   |   |   |   +-------------- 8
       |   |   |   +------------------ 16
       |   |   +---------------------- 32
       |   +-------------------------- 64
       +------------------------------ 128

Fig.2

De la Fig.2 podemos sacar algunas conclusiones:

• El mayor número posible, en 8 bits, es 255: 1 + 2 + 4 + 8 + 16 + 32 + 64 + 128.
• El peso entre bits es en potencias de 2: f(x):R->R / f(x)=x²
• La paridad de cualquier número esta dada por el estado (1 o 0) del bit menos significativo (el de la derecha).

Por cada bit encendido, tendremos su valor incorporado, o siendo componente del número expresado en el byte. Y para convertir un número binario a decimal, solo basta sumar el peso de aquellos bits encencidos o lo que es lo mismo, en estado 1.

Ejemplos:
00000001₂ = 1₁₀ (1x2⁰)
00000010₂ = 2₁₀ (1x2¹)
00000011₂ = 3₁₀ (1 x 2¹ + 1 x 2⁰)

Y ahora si llegamos al principio:
La forma clásica de multiplicar en assembler es desplazando los bits hacia la izquierda. Y en contrapartida, se divide (Z⁺ únicamente!) desplazando hacia la derecha.
Pero haciendo esto, multiplicamos (o dividimos) por 2.
¿Y si queremos multiplicar por 3?
Se desplaza a la izquierda una sola vez y se suma. Recordemos que el multiplicando nos dice cuantas veces sumamos.

00000010₂ = 2₁₀

Desplazando 1 sola vez hacia la izquierda (multiplicando por 2), queda:

00000100₂ = 4₁₀

Otro ejemplo:

00000011₂ = 3₁₀
Desplazando:
00000110₂ = 6₁₀

La instrucción en assembler del Z80 que lo hace es "RL" (rotate left) y hacia la derecha, "RR" (rotate right).

Una última aclaración: desplazar y rotar son dos cosas distintas, si bien ambas desplazan, la diferencia radica en que es lo que sucede con el bit que se quedo al "borde". Si se rota, el mismo se inyecta en el "otro lado" del byte, y se desplaza, se va al tacho (el bit de carry se activa en ambos casos).

Saludos y espero haber sido claro.