CPC-POWER :
CPC-SOFTS
(Base de données) -
CPCArchives
(Articles) -
NGServers
(Hébergement)
Accueil
19593 PROGRAMMES
PROTECTIONS
Dumpeurs
9580 commentaires
Liens
Contact
Donations
FORUM
Session end : 11h59m44s
Hide picture Sexe : OFF
Donations 2024 : 855.48 €
18894
© _Public_Domain_ (
2023
)
 
Waves
NOTICE / MANUAL
TXT (1)
NOTICE TEXTE n° 1 (1.97 Ko)
nolist org &2000 run $ di ld de,pal1 ld bc,&7f00 ld l,4 palloop: out (c),c:ld a,(de):inc e:out (c),a:inc c dec l jr nz,palloop initBaseSine: ld hl,sinedata0 ld de,sinedata+127 exx ld bc,sinedata+128 ld de,sinedata+255 exx ld b,64 loop_sine_make: ld a,(hl):inc hl ld (de),a:dec e exx ld l,a:ld a,255:sub l ld (bc),a:inc c ld (de),a:dec e exx dec b jr nz,loop_sine_make ld de,sinedata+64 ld bc,64 lddr copyTileLines: ld hl,tileGfx1:ld de,tiles:push de:ld bc,8:ldir pop hl:ld d,h:ld e,l ld b,8 copyTiles8: ld c,8 copyTileLines8: ld a,(hl):ld (de),a:inc e:ld a,l:inc a:and 7:ld l,a dec c jr nz,copyTileLines8 inc l dec b jr nz,copyTiles8 ; CRTC one char line repeat ld bc,&bc04:out (c),c xor a:inc b:out (c),a loop: copyTileOffs: ld d,tiles/256 ld ix,tileOffsY+80 ld hl,&C000 ld a,(nframe):and 1:jr nz,tiles80 ld hl,&C050 tiles80: ld a,(ix):and 56 ld e,a ld bc,2048 loopi: ld a,(de):inc e:ld (hl),a:set 3,h ld a,(de):inc e:ld (hl),a:add hl,bc ld a,h:or a jr nz,loopi ld bc,-16384+1:add hl,bc dec ixl jr nz,tiles80 moveTileOffs: ld hl,tileOffsY+1 ld b,80 ld d,sinedata/256 ld a,(nframe):add a:ld e,a tilesMove80: ld a,(de) ld (hl),a:inc l ld a,e:add 8:ld e,a dec b jr nz,tilesMove80 ld hl,nframe:inc (hl) jr loop tileGfx1: db 160,90,175,255,255,175,90,160 sinedata0: db 128,131,134,137,140,143,146,149,152,155,158,162,165,167,170,173 db 176,179,182,185,188,190,193,196,198,201,203,206,208,211,213,215 db 218,220,222,224,226,228,230,232,234,235,237,238,240,241,243,244 db 245,246,248,249,250,250,251,252,253,253,254,254,254,255,255,255 pal1: db &44,&5d,&5f,&5b list aend: nolist nframe: org &1800 tiles: org &1900 tileOffsY: org &1a00 sinedata:
CPC-POWER/CPCSOFTS
, programmation par
Kukulcan
© 2007-2024 tous droits réservés.
Reproduction sans autorisation interdite. Tous les titres utilisés appartiennent à leurs propriétaires respectifs.
Hébergement Web, Mail et serveurs de jeux haute performance