Changes
/* Source Code */
call 0BD19h ;MC_WAIT_FLYBACK
call 0BD19h ;MC_WAIT_FLYBACK
loop1: ;--- y loop ---
di
ld bc,io_port
dec d ;
jr nz,delay ;/
loop2: ;--- x loop ---
di
resmod equ $+1 ;\horizontal resolution
plot: ;
ld [hl],a ;/
ld bc,0001h ;\ ld hl,[xreg] ; or a ;cy=0 ; sbc hl,bc ; next x jr c,nexy ; ld [xreg],hl ; jp loop2 ;/ nexy: ;\ ld hl,160-1 ; ld [xreg],hl ; ld hl,[yreg] ; or a ;cy=0 ; sbc hl,bc ; next y jr nc,newlin ; ei ;frame done ; ret ;return to basic ; newlin: ; ld [yreg],hl ; jp loop1 ;/
bytead: ;color palette (increasing luminance on green monitor)
db 0,1,2,4, 5,6,8,10, 12,14,16,18, 20,22,24,26
