| ★ CODING ★ SOURCES ★ CODING Source &033 - Affichage de text en Overscan ★ |
| Affichage de text en Overscan (Crown/BENG) | Coding Sources |
Routine d'affichage de text en overscan ( le code provient de Crown Cruncher v1.4 ). Ce source ce compile sans problème sous MAXAM ou l'assembleur de WinAPE.;; ;; https://cpcrulez.fr ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; org &4000 di ld a, &0C9 ld hl, (&39) ld (hl), a ld sp, &0 ld hl, byte_4127 call sub_40A1 ld hl, byte_4108 call sub_4091 ; modif registres BCxx ld bc, &7F8A out (c), c ld hl, byte_412C ; text ld de, &8000 call sub_40E2 ld hl, byte_4122 call sub_40A1 loc_404F: call sub_40BC jr nc, loc_404F loc_4054: call sub_40BC jr c, loc_4054 jp 0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; sub_4091: ld b, &0BC ld a, (hl) inc hl cp &0FF ret z out (c), a inc b ld a, (hl) inc hl out (c), a jr sub_4091 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; sub_40A1: ld bc, &7F10 out (c), c ld a, (hl) inc hl or &40 ; '@' out (c), a ld c, &0 loc_40AE: out (c), c ld a, (hl) inc hl or &40 ; '@' out (c), a inc c ; bit &2, c jr z, loc_40AE ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; sub_40BC: ld a, &5 ld bc, &0F782 out (c), c ld bc, &0F40E out (c), c ld bc, &0F6C0 out (c), c ld c, &0 out (c), c ld bc, &0F792 out (c), c or &40 ld c, a dec b out (c), c ld b, &0F4 in a, (c) ; rla ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; sub_40E2: ld a, (hl) inc hl or a ret z push de exx pop de ld h, &7 ld l, a add hl, hl add hl, hl add hl, hl ld b, &8 loc_40F1: ld a, (hl) ld (de), a inc hl ld a, d add a, &8 ld d, a djnz loc_40F1 exx inc de ld a, d and &7 or e jr nz, sub_40E2 ld a, d add a, &38 ld d, a jr sub_40E2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; read "datas.inc" |
|  |
|
