Ce source ce compile sans problème sous l'assembleur de WinAPE.
; Raster by DR FELIX OF AMS'DEM
;
ORG #4000
DI
START CALL VIDEO
LD A,#54
LD BC,#7F10
OUT (C),C
OUT (C),A
LD HL,TAB+1
LD DE,TAB
LD BC,TABF-TAB-1
LD A,(DE)
LDIR
LD (DE),A
LD BC,#F40E ; EFFACEMENT DE CETTE LIGNE
OUT (C),C ; A LA LIGNE FORCEONE
LD BC,#F6C0 ; =FONCTIONNEMENT PAR GOTO ....
OUT (C),C ; NE FONCTIONNE QUE SOUS BASIC...
LD BC,#F792
OUT (C),C
LD BC,#F645
OUT (C),C
LD A,#F4
IN A,(#00)
LD BC,#F782
OUT (C),C
AND #80
JR NZ,START ; LIGNE FORCEONE
RET
VIDEO LD A,#F5
IN A,(#00)
RRA
JR NC,VIDEO
LD B,06
WAIT DJNZ WAIT
NOP
LD HL,TAB
LD BC,#7F10 ; #7F00 RASTER DANS PAPER
BOUC LD A,(HL) ; #7F01 """""' ENCRE 1
OR A ; #7F0F """""' ENCRE 15.....
RET Z
OUT (C),C
OUT (C),A
INC HL
LD A,11 ; LD A,43=BIG RASTER
CNT DEC A
JR NZ,CNT
NOP
JR BOUC
TAB DEFB #4E,#4E ; TABLE DE COULEUR
DEFB #5C,#5C,#4C,#4C,#47,#47
DEFB #4B,#4B,#47,#47,#4C,#4C
DEFB #5C,#5C,#5C,#5C,#4E,#4E
DEFB #4A,#43,#4B,#43,#4A,#4E
DEFB #4E,#5C,#56,#56,#52,#52
DEFB #59,#59,#4B,#4B,#59,#59
DEFB #52,#52,#56,#56,#55,#55
DEFB #5F,#5F,#53,#53,#4B,#4B
DEFB #53,#53,#5F,#5F,#55,#55
DEFB #58,#58,#4D,#4D,#4F,#4F
DEFB #4B,#4B,#4F,#4F,#4D,#4D
DEFB #58,#58
DEFB #44,#55,#5D,#5F,#53,#5B
DEFB #5C,#4C,#4E,#4A,#43,#4B
DEFB #44,#55,#5D,#5F,#53,#4B
DEFB #4B,#4B,#47,#47,#4C,#4C
DEFB #5C,#5C
TABF DEFB 0https://CPCrulez.fr
| ★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|
