Ce source ce compile sans problème sous l'assembleur de WinAPE.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; https://cpcrulez.fr
;;
;; Rasters en cascade
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ORG #9000
encre EQU #7f00
DI
LD hl,(#38)
LD (inter+1),hl
LD hl,#c9fb
LD (#38),hl
EI
;
SYNCHRO
LD B,#F5
IN A,(C)
RRA
JR NC,SYNCHRO+2
HALT
DEFS 29,0
LD b,24
lp1
PUSH bc
LD HL,TAB
LD BC,encre
OUT (C),C
LD A,9
LOOP
OUTI
DEFS 54,0
INC B
DEC A
JR NZ,LOOP
;
LD hl,TAB+1
LD de,TAB
LD a,(de)
LD bc,24
LDIR
LD (TAB+24),a
DEFS 10,0
POP bc
DJNZ lp1
;
LD bc,encre
LD a,#54
OUT (c),c
OUT (c),a
LD bc,#f40e
OUT (c),c
LD bc,#f6c0
OUT (c),c
XOR a
OUT (c),a
LD bc,#f792
OUT (c),c
LD bc,#f645
OUT (c),c
LD b,#f4
IN a,(c)
LD bc,#f782
OUT (c),c
LD bc,#f600
OUT (c),c
RLA
JP C,SYNCHRO
inter LD hl,0
LD (#38),hl
RET
TAB
DEFB #5C,#4C,#4E,#4A,#4B,#4A
DEFB #4E,#4C,#54,#54,#54,#54
DEFS 20,#54https://CPCrulez.fr
| ★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|
