★ CODING ★ SOURCES ★ CODING Source &026 - Rasters BIG TUBE ★ |
Rasters BIG TUBE | Coding Sources |
Ce source ce compile sans problème sous l'assembleur de WinAPE.;; ;; https://cpcrulez.fr ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; org &1000 xor a ld a, &0C9 ; ld (&38), a loc_8E24: ld b, &0F5 ; loc_8E26: in a, (c) rra jr nc, loc_8E26 ld hl, &0 ld de, &0 ld bc, &740 ldir nop call sub_8EDA ld bc, &7F10 ld a, &54 out (c), c out (c), a ld hl, loc_8F0A ld de, loc_8F09 ld bc, &33 ld a, (de) ldir ld (de), a ld hl, loc_8F3E ld bc, &0F40E out (c), c ld b, &0F6 in a, (c) and &30 ld c, a out (c), a out (c), c inc b ld a, &92 out (c), a push bc set &6, c loc_8E6B: ld b, &0F6 out (c), c ld b, &0F4 in a, (c) ld (hl), a inc hl inc c ld a, c and &0F cp &0A jr nz, loc_8E6B pop bc ld a, &82 out (c), a dec b out (c), c ld a, (byte_8F43) cp &7F jp nz, loc_8E24 ld a, &0C3 ld (&38), a nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop xor a ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; sub_8EDA: ld hl, loc_8F09 nop nop nop nop nop nop nop ld c, &0FF ld de, &1000 loc_8EE9: ld b, &7F out (c), d outi dec hl out (c), e outi ld b, &9 loc_8EF6: djnz loc_8EF6 nop dec a jr nz, loc_8EE9 ld b, &7F ld a, &54 out (c), d out (c), a out (c), e out (c), a ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; loc_8F09: db &54 loc_8F0A: db &55 db &5D db &57 db &53 db &54 db &55 db &5D db &57 db &53 db &4B db &4B db &4A db &4E db &4C db &5C db &54 db &43 db &4A db &4E db &4C db &5C db &54 db &4A db &4E db &4C db &5C db &54 db &4E db &4C db &5C db &54 db &4C db &5C db &54 db &5C db &54 db &54 db &54 db &54 db &54 db &54 db &54 db &54 db &55 db &54 db &55 db &5D db &54 db &55 db &5D db &57 db &54 loc_8F3E: db &0FF db &0FF db &0FF db &0FF db &0FF byte_8F43: db &7F db &0FF db &0FF db &0FF db &0FF db &0 |
|
|