mirror of
https://git.sr.ht/~rabbits/uxn
synced 2024-11-08 15:25:05 +00:00
27 lines
433 B
Text
27 lines
433 B
Text
( 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
|