| ★ CODING ★ SOURCES ★ CODING Source &016 - Rasters by Dr FELIX ★ |
| Rasters (Dr Felix pour AMS'DEM) | Coding Sources |
Ce source ce compile sans problème sous l'assembleur de WinAPE.; 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 &emspDEFB #5C,#5C,#4C,#4C,#47,#47 &emspDEFB #4B,#4B,#47,#47,#4C,#4C &emspDEFB #5C,#5C,#5C,#5C,#4E,#4E &emspDEFB #4A,#43,#4B,#43,#4A,#4E &emspDEFB #4E,#5C,#56,#56,#52,#52 &emspDEFB #59,#59,#4B,#4B,#59,#59 &emspDEFB #52,#52,#56,#56,#55,#55 &emspDEFB #5F,#5F,#53,#53,#4B,#4B &emspDEFB #53,#53,#5F,#5F,#55,#55 &emspDEFB #58,#58,#4D,#4D,#4F,#4F &emspDEFB #4B,#4B,#4F,#4F,#4D,#4D &emspDEFB #58,#58 &emspDEFB #44,#55,#5D,#5F,#53,#5B &emspDEFB #5C,#4C,#4E,#4A,#43,#4B &emspDEFB #44,#55,#5D,#5F,#53,#4B &emspDEFB #4B,#4B,#47,#47,#4C,#4C &emspDEFB #5C,#5C TABF &emspDEFB 0 |
|  |
|
