15519
DEMO -> Other
© _Public_Domain_ (2016)
 
 
 
Les split-rasters
cpc
 
 

Last Update : Sunday 28 October 2018 at 08 h 45

Manual n° 1

org #9000 write direct "display1.bin" ; disable system di ld hl,#C9FB ld (#38),hl ei loop: ei ; wait for VBL ld b,#F5 novbl: in a,(c) rra jr nc,novbl halt di defs 47,0 ld bc,#7F00 out (c),c ; 8 lines ld e,25 ; split colors ld c,20+64 ; 0 black (black) ld h,20+64 ; 0 black (black) ld l,4+64 ; 1 blue (dark blue) ld d,21+64 ; 2 bright blue (blue) rastaline1: out (c),h ; put first color out (c),c ; switch back to black defs 5,0 ; wait a little bit out (c),l ; put second color out (c),c ; switch back to black defs 5,0 ; ... out (c),d out (c),c defs 26,0 dec e jr nz,rastaline1 ; wait for 8 lines before spliting again ld e,125 tempo1:dec e jr nz,tempo1 defs 2,0 ld e,8 ld c,20+64 ld h,28+64 ld l,24+64 ld d,29+64 rastaline2: out (c),h out (c),c defs 5,0 out (c),l out (c),c defs 5,0 out (c),d out (c),c defs 26,0 dec e jr nz,rastaline2 ; 3th line ld e,125 tempo2:dec e jr nz,tempo2 defs 2,0 ld e,8 ld c,20+64 ld h,12+64 ld l,5+64 ld d,13+64 rastaline3: out (c),h out (c),c defs 5,0 out (c),l out (c),c defs 5,0 out (c),d out (c),c defs 26,0 dec e jr nz,rastaline3 ; 4th line ld e,125 tempo3:dec e jr nz,tempo3 defs 2,0 ld e,8 ld c,20+64 ld h,22+64 ld l,6+64 ld d,23+64 rastaline4: out (c),h out (c),c defs 5,0 out (c),l out (c),c defs 5,0 out (c),d out (c),c defs 26,0 dec e jr nz,rastaline4 ; 5th line ld e,125 tempo4:dec e jr nz,tempo4 defs 2,0 ld e,8 ld c,20+64 ld h,30+64 ld l,0+64 ld d,31+64 rastaline5: out (c),h out (c),c defs 5,0 out (c),l out (c),c defs 5,0 out (c),d out (c),c defs 26,0 dec e jr nz,rastaline5 ; 6th line ld e,125 tempo5:dec e jr nz,tempo5 defs 2,0 ld e,8 ld c,20+64 ld h,14+64 ld l,7+64 ld d,15+64 rastaline6: out (c),h out (c),c defs 5,0 out (c),l out (c),c defs 5,0 out (c),d out (c),c defs 26,0 dec e jr nz,rastaline6 ; 7th line ld e,125 tempo6:dec e jr nz,tempo6 defs 2,0 ld e,8 ld c,20+64 ld h,18+64 ld l,2+64 ld d,19+64 rastaline7: out (c),h out (c),c defs 5,0 out (c),l out (c),c defs 5,0 out (c),d out (c),c defs 26,0 dec e jr nz,rastaline7 ; 8th line ld e,125 tempo7:dec e jr nz,tempo7 defs 2,0 ld e,8 ld c,20+64 ld h,26+64 ld l,25+64 ld d,27+64 rastaline8: out (c),h out (c),c defs 5,0 out (c),l out (c),c defs 5,0 out (c),d out (c),c defs 26,0 dec e jr nz,rastaline8 ; last line ld e,125 tempo8:dec e jr nz,tempo8 defs 2,0 ld e,8 ld c,20+64 ld h,10+64 ld l,3+64 ld d,11+64 rastaline9: out (c),h out (c),c defs 5,0 out (c),l out (c),c defs 5,0 out (c),d out (c),c defs 26,0 dec e jr nz,rastaline9 jp loop

Manual n° 2

org #9000 write direct "display2.bin" ; disable system di ld hl,#C9FB ld (#38),hl ei ; fill screen with grid ld hl,#C000 ld de,#C000+96 ld bc,2048-100 ldir ld hl,#C800 ld de,#C800+96 ld bc,2048-100 ldir ld hl,#D000 ld de,#D000+96 ld bc,2048-100 ldir ld hl,#D800 ld de,#D800+96 ld bc,2048-100 ldir ld hl,#E000 ld de,#E000+96 ld bc,2048-100 ldir ld hl,#E800 ld de,#E800+96 ld bc,2048-100 ldir ld hl,#F000 ld de,#F000+96 ld bc,2048-100 ldir ld hl,#F800 ld de,#F800+96 ld bc,2048-100 ldir loop: ei ; wait for VBL ld b,#F5 novbl: in a,(c) rra jr nc,novbl ld bc,#7F00 out (c),c ld a,20+64 out (c),a inc c out (c),c out (c),a halt halt di defs 29,0 ld bc,#7F00 ; pen 1 select with d ld d,1 ; 13 visible lines ld e,27 ; split colors ; premiere couleur dans A ld a,20+64 ld h,#40 ; 2 nops rastaline1: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a dec e jr nz,rastaline1 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline2: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline2 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline3: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline3 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline4: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline4 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline5: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline5 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline6: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline6 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline7: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline7 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline8: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline8 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline9: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline9 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline10: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline10 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline11: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline11 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline12: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline12 ; duplique la boucle pour gagner des nops ld l,c out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d out (c),a inc h ld e,10 defs 2,0 rastaline13: ld l,c out (c),c ; 3 nops outi ; 5 nops inc b ; 1 nop out (c),d outi inc b out (c),c outi inc b out (c),d outi inc b out (c),c outi inc b nop out (c),d ; pen 1 pour la prochaine boucle out (c),a dec e jr nz,rastaline13 out (c),c out (c),a jp loop

Manual n° 3

;Display2.DAT -> SAVE"DISPLAY2.DAT",b,&4000,&1000 org #4000 defb 20+64,28+64,12+64,7+64,11+64 org #4100 defb 20+64,28+64,14+64,7+64,11+64 org #4200 defb 20+64,30+64,10+64,3+64,11+64 org #4300 defb 20+64,30+64,26+64,3+64,11+64 org #4400 defb 20+64,22+64,18+64,25+64,11+64 org #4500 defb 20+64,22+64,2+64,25+64,11+64 org #4600 defb 20+64,6+64,19+64,27+64,11+64 org #4700 defb 20+64,6+64,23+64,27+64,11+64 org #4800 defb 20+64,4+64,21+64,31+64,11+64 org #4900 defb 20+64,4+64,29+64,31+64,11+64 org #4A00 defb 20+64,24+64,13+64,15+64,11+64 org #4B00 defb 20+64,24+64,5+64,15+64,11+64 org #4C00 defb 20+64,28+64,12+64,7+64,11+64


Goto Top
CPC-POWER/CPCSOFTS, programming by Kukulcan © 2007-2019 all rights reserved.
Reproduction forbidden without any express authorization. All the game titles used belong to their respective owners.