★ CODING ★ SOURCES ★ CODING Source &027 - Rasters en Overscan ★ |
Rasters en overscan | Coding Sources |
Ce source ce compile sans problème sous l'assembleur de WinAPE.;; ;; https://cpcrulez.fr ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; org &1000 loc_0000: di ld b, &0F5 loc_0003: in a, (c) rra jp nc, loc_0003 ld bc, &192 loc_000C: dec bc ld a, b or c jp nz, loc_000C nop nop nop ld e, &10 ld b, &7D ld hl, loc_004A loc_001C: ld a, (hl) or a jp z, loc_0033 inc hl out (c), c out (c), a out (c), e out (c), a ld a, &21 loc_002C: dec a jp nz, loc_002C jp loc_001C ; --------------------------------------------------------------------------- loc_0033: ld hl, loc_004B ld de, loc_004A ld a, (de) ld bc, &5F ldir ld (de), a call &0BB1B jp c, loc_0049 jp loc_0000 loc_0049: ret ; --------------------------------------------------------------------------- loc_004A: db &5C loc_004B: db &4C db &45 db &4B db &47 db &45 db &4C db &5C db &5C db &5E db &52 db &43 db &4A db &52 db &5E db &5C db &5C db &4C db &4D db &43 db &47 db &4D db &4C db &5C db &44 db &58 db &5D db &5F db &5F db &5D db &58 db &44 db &5C db &4C db &45 db &4B db &47 db &45 db &4C db &5C db &44 db &58 db &5D db &5B db &57 db &5D db &58 db &44 db &5C db &4C db &45 db &4B db &47 db &45 db &4C db &5C db &5C db &5E db &52 db &43 db &4A db &52 db &5E db &5C db &5C db &4C db &4D db &43 db &47 db &4D db &4C db &5C db &44 db &58 db &5D db &5F db &5F db &5D db &58 db &44 db &5C db &4C db &4E db &43 db &4A db &4E db &4C db &5C db &44 db &58 db &5D db &5B db &57 db &5D db &58 db &44 db &54 db &0 db &0 db &0 db &0 db &0 |
|