2021-02-10 19:41:16 -05:00
|
|
|
( my default test file )
|
|
|
|
|
|
|
|
|
|
:dev/r fff8 ( std read port )
|
|
|
|
|
:dev/w fff9 ( std write port )
|
|
|
|
|
|
2021-02-10 22:05:40 -05:00
|
|
|
;x 2 ;y 2 ;color 1 ;alive 1
|
2021-02-10 19:41:16 -05:00
|
|
|
|
|
|
|
|
|0100 @RESET
|
|
|
|
|
|
2021-02-14 20:00:17 -05:00
|
|
|
#01 =dev/w ( set dev/write to screen )
|
|
|
|
|
#01 =color ( set color )
|
|
|
|
|
#0020 =x #0030 =y ( set origin )
|
|
|
|
|
#01 =alive ( set alive = true )
|
2021-02-10 19:41:16 -05:00
|
|
|
|
|
|
|
|
BRK
|
|
|
|
|
|
|
|
|
|
|c000 @FRAME
|
|
|
|
|
|
2021-02-14 20:00:17 -05:00
|
|
|
~alive #00 EQU BRK?
|
|
|
|
|
#01 ~color ~x ~y ,putpixel JSR
|
2021-02-10 22:05:40 -05:00
|
|
|
,move JSR
|
2021-02-10 19:41:16 -05:00
|
|
|
|
|
|
|
|
BRK
|
|
|
|
|
|
|
|
|
|
@move
|
2021-02-14 20:00:17 -05:00
|
|
|
~x #0001 ADD2 =x ( incr x )
|
|
|
|
|
~x #0040 LTH2 RTS? ( if x > 60 )
|
|
|
|
|
#0020 =x ( x = 0x0020 )
|
|
|
|
|
~y #0001 ADD2 =y ( incr y )
|
|
|
|
|
~y #0050 LTH2 RTS? ( y > 50 )
|
|
|
|
|
#00 ,alive STR ( alive = 0 )
|
2021-02-10 19:41:16 -05:00
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
@putpixel
|
2021-02-13 11:38:23 -05:00
|
|
|
IOW2 ( y short )
|
|
|
|
|
IOW2 ( x short )
|
2021-02-10 22:05:40 -05:00
|
|
|
IOW ( color byte )
|
|
|
|
|
IOW ( redraw byte )
|
2021-02-10 19:41:16 -05:00
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
|d000 @ERROR BRK
|
|
|
|
|
|FFFA .RESET .FRAME .ERROR
|
