( draw a single 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