2021-02-08 14:44:37 -05:00
|
|
|
( my default test file )
|
2021-02-01 14:58:47 -05:00
|
|
|
|
2021-02-10 14:06:36 -05:00
|
|
|
:dev/r fff8 ( std read port )
|
|
|
|
|
:dev/w fff9 ( std write port )
|
2021-02-04 21:25:49 -05:00
|
|
|
|
2021-02-10 14:59:26 -05:00
|
|
|
;i ;x0 ;x1 ;y0 ;y1
|
|
|
|
|
|
2021-02-09 00:59:46 -05:00
|
|
|
|0100 @RESET
|
2021-02-10 14:06:36 -05:00
|
|
|
|
2021-02-10 14:59:26 -05:00
|
|
|
,01 ,dev/w STR ( set dev/write screen#01 )
|
2021-02-09 13:06:55 -05:00
|
|
|
|
2021-02-09 00:59:46 -05:00
|
|
|
BRK
|
2021-02-04 21:25:49 -05:00
|
|
|
|
2021-02-10 14:59:26 -05:00
|
|
|
|c000 @FRAME
|
|
|
|
|
|
|
|
|
|
,i LDR ,01 ADD ,i STR ( incr i )
|
|
|
|
|
|
|
|
|
|
,i LDR ,x1 STR ( set x )
|
2021-02-10 14:06:36 -05:00
|
|
|
|
2021-02-10 14:59:26 -05:00
|
|
|
,01 ,02 ,x0 LDR^ ,y0 LDR^ ,putpixel JSR
|
2021-02-10 14:06:36 -05:00
|
|
|
|
|
|
|
|
BRK
|
|
|
|
|
|
2021-02-10 14:59:26 -05:00
|
|
|
@onrow
|
|
|
|
|
,y1 LDR ,01 ADD ,y1 STR
|
2021-02-10 14:06:36 -05:00
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
@putpixel
|
|
|
|
|
IOW^ ( y short )
|
|
|
|
|
IOW^ ( x short )
|
|
|
|
|
IOW ( color byte )
|
|
|
|
|
IOW ( redraw byte )
|
|
|
|
|
RTS
|
|
|
|
|
|
2021-02-05 14:57:37 -05:00
|
|
|
|d000 @ERROR BRK
|
|
|
|
|
|FFFA .RESET .FRAME .ERROR
|
