;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; EXEMPLE D'UN BIG SCROLL EN OVERSCAN
;;
;; http://cpcrulez.fr
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
org &1000
start: ld a, 1 ;
call &0BC0E ; MODE 1
xor a
ld b, a
ld c, b
call &0BC32
ld a, &3
ld b, &1A
ld c, b
call &0BC32
xor a
ld de, &20
ld hl, loc_5388
call &0BBAB
ld bc, &0BC01
out (c), c
ld bc, &0BD2E
out (c), c
ld bc, &0BC02
out (c), c
ld bc, &0BD31
out (c), c
ld bc, &0BC06
out (c), c
ld bc, &0BD08
out (c), c
ld bc, &0BC07
out (c), c
ld bc, &0BD18
out (c), c
loc_4053: ld b, &0F5 ; synchro écran
loc_408e: in a, (c)
rra
jr nc, loc_408E
;;; boucle principal, tu peu y foutre ta zik
call sub_4094
call sub_406D
call sub_41A8
call sub_4137
call sub_412C
call sub_409D
jr loc_4053
sub_406D: ld hl, (word_535F)
ld a, (hl)
cp &0FF
jr z, loc_4084
ld bc, &0BC05
out (c), c
ld b, &0BD
ld c, a
out (c), c
inc hl
ld (word_535F), hl
ret
loc_4084: ld hl, loc_5361
ld (word_535F), hl
jr sub_406D
sub_4094: call &0BC0B
inc hl
inc hl
call &0BC05
ret
sub_409D: call &0BB1B ; la touche espace ?
cp &20 ; ' '
ret nz
keypressed: ; finish
pop bc
ld de, &100
ld hl, loc_5388 ; recup la fonte system
call &0BBAB
ld bc, &0BC01
out (c), c
ld bc, &0BD28
out (c), c
ld bc, &0BC02
out (c), c
ld bc, &0BD2E
out (c), c
ld bc, &0BC06
out (c), c
ld bc, &0BD19
out (c), c
ld bc, &0BC05
out (c), c
ld bc, &0BD00
out (c), c
ld bc, &0BC07
out (c), c
ld bc, &0BD1E
out (c), c
call &0BCA7
ret
sub_412C: ld hl, (word_41E2)
ld b, &8
loc_4131: rlc (hl)
inc hl
djnz loc_4131
ret
sub_4137:
ld hl, (word_41DE)
call sub_4165
inc hl
inc hl
set &7, h
set &6, h
ld (word_41DE), hl
ld de, &5E
sbc hl, de
set &7, h
set &6, h
call sub_4153
ret
sub_4153: ld b, &8
xor a
ld de, &7FF
loc_4159: ld (hl), a
inc hl
ld (hl), a
add hl, de
set &7, h
set &6, h
djnz loc_4159
pop bc
ret
sub_4165: push hl
ld b, &8
loc_4168:
push bc
push hl
xor a
ld hl, (word_41E0)
bit &7, (hl)
jr z, loc_4174
ld a, &0FF
loc_4174: call sub_4192
ld hl, (word_41E0)
inc hl
ld (word_41E0), hl
pop hl
ld de, &5C
add hl, de
set &7, h
set &6, h
pop bc
djnz loc_4168
ld hl, (word_41E2)
ld (word_41E0), hl
pop hl
ret
sub_4192: pop bc
pop hl
push bc
ld b, &8
ld de, &7FF
loc_419A: ld (hl), a
inc hl
ld (hl), a
add hl, de
set &7, h
set &6, h
djnz loc_419A
pop bc
push hl
push bc
ret
sub_41A8: ld a, (byte_41DB)
dec a
jr z, loc_41B2
ld (byte_41DB), a
ret
loc_41B2: ld a, &8
ld (byte_41DB), a
ld hl, (word_41DC)
push hl
ld a, (hl)
cp &0FF
jr z, loc_41CF
call sub_41D7
ld (word_41E2), hl
ld (word_41E0), hl
pop hl
inc hl
ld (word_41DC), hl
ret
loc_41CF: pop hl ; fin du scroll
ld hl, textscroll ; boucle
ld (word_41DC), hl
ret
sub_41D7: call &0BBA5
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Les datas
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
byte_41DB: db &8
word_41DC: dw textscroll
word_41DE: dw &0C05C
word_41E0: dw loc_5388
word_41E2: dw loc_5388
textscroll db "CPC RULEZ LE SITE WEB CPC QUI VA BIEN COUSIN "
db &0FF
word_535F: dw loc_5361 ;
loc_5361: db &0 ; TABLE DECALAGE
db &0 ;
db &0 ;
db &1 ;
db &3 ;
db &5 ;
db &7 ;
db &9 ;
db &0B ;
db &0E ;
db &11 ;
db &14 ;
db &16 ;
db &18 ;
db &1A ;
db &1C ;
db &1D ;
db &1D ;
db &1D ;
db &1D ;
db &1D ;
db &1D ;
db &1C ;
db &1A ;
db &18 ;
db &16 ;
db &14 ;
db &11 ;
db &0E ;
db &0B ;
db &9 ;
db &7 ;
db &5 ;
db &3 ;
db &1 ;
db &0 ;
db &0 ;
db &0 ;
db &0FF ;
loc_5388: db 00 |
