( draw pixel )

|0100 @RESET
	
	( redraw - color - x - y )
	,00 ,01 ,0000 ,0000 ,putpixel JSR
	,00 ,02 ,0001 ,0001 ,putpixel JSR
	,01 ,03 ,0002 ,0002 ,putpixel JSR

BRK

@putpixel 
	SWP ,01 IOW ,01 IOW ( y )
	SWP ,01 IOW ,01 IOW ( x )
	,01 IOW ( color )
	,01 IOW ( redraw )
	RTS

|c000 @FRAME BRK 
|d000 @ERROR BRK 
|FFFA .RESET .FRAME .ERROR