Changes
ld hl,&c9fb
ld (&38),hl
ei
;====== Here comes the MAIN LOOP =======================
Loop: ei
;------ Wait for vertical blanking sync ----------------
halt
halt
;------ Set the colours --------------------------------
ld a,&44
defs 11271128
;------ Here comes copper (sorry, CRTC) list! ----------
out (c),l ; Box #10 = RED
defs 25-124 ; Yes, we're using 1 NOP less ; to achieve 8 pixel precision shift ; during next scan !!!NOP
REND
out (c),l ; Box #10 = RED
defs 2524+1 ; Yes, we're adding 1 more NOP ; NOPto achieve 8 pixel precision shift ; during next scan !!!
;-------------------------------------------------------
out (c),l ; Box #10 = RED
defs 23 24-1 ; Fixing previous subtractionaddition!
;-------------------------------------------------------
</pre>
[[Category:Programming]]