28 lines
433 B
Plaintext
28 lines
433 B
Plaintext
( draw pixel )
|
|
|
|
|0100 @RESET
|
|
|
|
( draw 3 pixels )
|
|
,00 ,01 ,0000 ,0000 ,putpixel JSR
|
|
,00 ,02 ,0001 ,0001 ,putpixel JSR
|
|
,01 ,03 ,0002 ,0002 ,putpixel JSR
|
|
|
|
BRK
|
|
|
|
|c000 @FRAME
|
|
,01 ,01 ( redraw color )
|
|
,00 ,01 ,02 IOR ( grab y )
|
|
,00 ,00 ,02 IOR ( grab x )
|
|
,putpixel JSR
|
|
BRK
|
|
|
|
@putpixel
|
|
SWP ,01 IOW ,01 IOW ( y )
|
|
SWP ,01 IOW ,01 IOW ( x )
|
|
,01 IOW ( color )
|
|
,01 IOW ( redraw )
|
|
RTS
|
|
|
|
|d000 @ERROR BRK
|
|
|FFFA .RESET .FRAME .ERROR
|