2021-02-11 03:05:40 +00:00
|
|
|
( draw a single pixel )
|
2021-02-09 18:06:55 +00:00
|
|
|
|
2021-02-11 00:41:16 +00:00
|
|
|
:dev/w fff9 ( keep write port in a const )
|
|
|
|
|
;x 2
|
|
|
|
|
;y 2
|
|
|
|
|
|
2021-02-09 18:06:55 +00:00
|
|
|
|0100 @RESET
|
2021-02-10 01:22:52 +00:00
|
|
|
|
2021-02-11 00:41:16 +00:00
|
|
|
( set dev/write to screen )
|
2021-02-09 18:06:55 +00:00
|
|
|
|
2021-02-11 00:41:16 +00:00
|
|
|
,01 ,dev/w STR
|
|
|
|
|
|
|
|
|
|
,0020 ,x STR^ ( set x-pos )
|
|
|
|
|
,0030 ,y STR^ ( set y-pos )
|
2021-02-09 18:06:55 +00:00
|
|
|
|
2021-02-11 00:41:16 +00:00
|
|
|
( IOW will now send to screen )
|
|
|
|
|
|
|
|
|
|
,y LDR^ IOW^ ( y-pos )
|
|
|
|
|
,x LDR^ IOW^ ( x-pos )
|
|
|
|
|
,02 IOW ( color )
|
2021-02-10 01:22:52 +00:00
|
|
|
,01 IOW ( redraw )
|
2021-02-11 00:41:16 +00:00
|
|
|
|
|
|
|
|
BRK
|
2021-02-10 01:22:52 +00:00
|
|
|
|
2021-02-09 18:06:55 +00:00
|
|
|
|c000 @FRAME BRK
|
|
|
|
|
|d000 @ERROR BRK
|
|
|
|
|
|FFFA .RESET .FRAME .ERROR
|
