| ★ CODING ★ SOURCES ★ CODING Source &020 - RASTERS EN CASCADE ★ |
| Rasters en cascade | Coding Sources |
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,#54 |
|
