MegaMove4D

Programado por: zx_fresh


Año: El siglo pasado


Utilidad: Poca, ¿o ninguna?


Licencia: Gratis. ¿Open source? Más abierto no puede ser.











Instrucciones


-------------





Programa de 'dibujo' en memoria de los atributos de pantalla (cuadrados 8x8)





Tecla 'INTRO' para elegir el color con el que pintar. Una vez elegido con las teclas del cursor(mover derecha o izquierda), volver a pulsar 'INTRO' para pintar en pantalla.





Teclas 'cursor' para mover en las 4 direcciones.





Tecla '1'para salir del programa y volver al BASIC.

















PROGRAMA MEGAMOVE 4 DIRECCIONES


--------------------------------------------------------











Cargador BASIC


---------------------








10 FOR n=0 TO 7


20 READ fila: POKE USR "A" + n, fila


30 NEXT N


40 DATA BIN 11111111


50 DATA BIN 10000001


60 DATA BIN 10000001


70 DATA BIN 10000001


80 DATA BIN 10000001


90 DATA BIN 10000001


100 DATA BIN 10000001


110 DATA BIN 11111111


120 CLS


130 RANDOMIZE USR 30000














-------------- CODIGO ASM ------------------











;PROGRAMA: MEGAMOVE 4 DIRECCIONES











;PROGRAMA CONTROLADOR DEL CURSOR





ORG 30000


LD A,56


LD (60500),A


LD HL,22528


VUELTA LD A,(60500)


LD B,0


LD C,32


LD D,A


PON LD (HL),249


LD A,0


LD (23560),A


TECLA LD A,(23560)


CP 8


JR Z,MOVIZQDA


CP 9


JR Z,MOVDCHA


CP 10


JR Z,MOVABAJO


CP 11


JR Z,MOVARRIBA


CP 13


JR Z,COLORES


CP 49 ;Tecla '1' para SALIR


RET Z


JR TECLA


MOVIZQDA LD (HL),D


RESTA DEC HL


LD A,H


CP 87


JR Z,SUMA


JR PON


MOVDCHA LD (HL),D


SUMA INC HL


LD A,H


CP 91


JR Z,RESTA


JR PON


MOVABAJO LD (HL),D


DOWN ADD HL,BC


LD A,H


CP 91


JR Z,UP


JR PON


MOVARRIBA LD (HL),D


UP XOR A


SBC HL,BC


LD A,H


CP 87


JR Z,DOWN


JR PON














;PROGRAMA DE CREACION DE LA TABLA DE COLORES





COLORES LD (HL),D


PUSH HL


LD HL,16384


LD DE,41000


LD BC,6912


LDIR


LD A,2


CALL 5633


LD C,1


SEGUNDA LD B,0


LD A,15


PON1 PUSH AF


LD A,22


RST 16


LD A,C


RST 16


LD A,B


RST 16


LD A,144


RST 16


POP AF


CP B


JR Z,OTRA


INC B


JR PON1


OTRA LD A,0


CP C


JR Z,COLOR


DEC C


JR SEGUNDA


COLOR LD B,16


LD HL,22528


LD A,0


SIGUE LD (HL),A


ADD A,8


INC HL


DJNZ SIGUE














;PROGRAMA CONTROLADOR DE LA TABLA DE COLORES





LD HL,22560


PON2 LD (HL),255


LD A,0


LD (23560),A


TEC LD A,(23560)


CP 8


JR Z,IZQDA


CP 9


JR Z,DERECHA


CP 13


JR Z,REPOSICION


JR TEC


IZQDA LD (HL),56


DEC HL


LD A,L


CP 31


JR Z,ATRAS


JR PON2


ADELANTE LD L,32


JR PON2


DERECHA LD (HL),56


INC HL


LD A,L


CP 48


JR Z,ADELANTE


JR PON2


ATRAS LD L,47


JR PON2


REPOSICION LD A,224


ADD A,L


LD L,A


LD D,(HL)


LD A,D


LD DE,60500


LD (DE),A


LD HL,41000


LD DE,16384


LD BC,6912


LDIR


POP HL


JP VUELTA