0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-08 15:25:05 +00:00
uxn/examples/screen.usm
2021-02-13 13:21:05 -08:00

35 lines
514 B
Text

( screen )
:dev/r fff8 ( std read port )
:dev/w fff9 ( std write port )
;width 2
;height 2
|0100 @RESET
( set read/write to dev/screen )
#01 DUP ,dev/r STR ,dev/w STR
( load screen size )
#00 IOR2 ,width STR2
#02 IOR2 ,height STR2
( draw pixel at screen center )
#0101
,width LDR2 #0002 DIV2
,height LDR2 #0002 DIV2
,putpixel JSR
BRK
|c000 @FRAME BRK
@putpixel
IOW2 ( y short )
IOW2 ( x short )
IOW ( color byte )
IOW ( redraw byte )
RTS
|d000 @ERROR BRK
|FFFA .RESET .FRAME .ERROR