2021-02-08 19:44:37 +00:00
|
|
|
( my default test file )
|
2021-02-01 19:58:47 +00:00
|
|
|
|
2021-02-10 19:06:36 +00:00
|
|
|
:dev/r fff8 ( std read port )
|
|
|
|
|
:dev/w fff9 ( std write port )
|
2021-02-05 02:25:49 +00:00
|
|
|
|
2021-02-09 05:59:46 +00:00
|
|
|
|0100 @RESET
|
2021-02-10 19:06:36 +00:00
|
|
|
|
|
|
|
|
,02 ,dev/r STR ( set dev/read mouse#02 )
|
|
|
|
|
,01 ,dev/w STR ( set dev/write screen#01 )
|
2021-02-09 18:06:55 +00:00
|
|
|
|
2021-02-10 19:06:36 +00:00
|
|
|
,00 ,01 ,0001 ,0000 ,putpixel JSR
|
|
|
|
|
,00 ,01 ,0000 ,0001 ,putpixel JSR
|
|
|
|
|
,00 ,01 ,0002 ,0001 ,putpixel JSR
|
|
|
|
|
,01 ,02 ,0001 ,0002 ,putpixel JSR
|
2021-02-09 18:06:55 +00:00
|
|
|
|
2021-02-09 05:59:46 +00:00
|
|
|
BRK
|
2021-02-05 02:25:49 +00:00
|
|
|
|
2021-02-10 19:06:36 +00:00
|
|
|
|c000 @FRAME
|
|
|
|
|
|
|
|
|
|
( get mouse button, or break )
|
|
|
|
|
,04 IOR
|
|
|
|
|
,01 NEQ
|
|
|
|
|
BRK?
|
|
|
|
|
|
|
|
|
|
( paint a white pixel )
|
|
|
|
|
,01 ,01
|
|
|
|
|
,getmouse JSR
|
|
|
|
|
,putpixel JSR
|
|
|
|
|
|
|
|
|
|
BRK
|
|
|
|
|
|
|
|
|
|
@getmouse
|
|
|
|
|
,02 IOR^ ( get mouse y )
|
|
|
|
|
,00 IOR^ ( get mouse x )
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
@putpixel
|
|
|
|
|
IOW^ ( y short )
|
|
|
|
|
IOW^ ( x short )
|
|
|
|
|
IOW ( color byte )
|
|
|
|
|
IOW ( redraw byte )
|
|
|
|
|
RTS
|
|
|
|
|
|
2021-02-05 19:57:37 +00:00
|
|
|
|d000 @ERROR BRK
|
|
|
|
|
|FFFA .RESET .FRAME .ERROR
|
