28 lines
384 B
Plaintext
28 lines
384 B
Plaintext
( draw pixel )
|
|
|
|
:dev/w fff9 ( keep write port in a const )
|
|
;x 2
|
|
;y 2
|
|
|
|
|0100 @RESET
|
|
|
|
( set dev/write to screen )
|
|
|
|
,01 ,dev/w STR
|
|
|
|
,0020 ,x STR^ ( set x-pos )
|
|
,0030 ,y STR^ ( set y-pos )
|
|
|
|
( IOW will now send to screen )
|
|
|
|
,y LDR^ IOW^ ( y-pos )
|
|
,x LDR^ IOW^ ( x-pos )
|
|
,02 IOW ( color )
|
|
,01 IOW ( redraw )
|
|
|
|
BRK
|
|
|
|
|c000 @FRAME BRK
|
|
|d000 @ERROR BRK
|
|
|FFFA .RESET .FRAME .ERROR
|