Removed old examples
This commit is contained in:
parent
17099c8ba9
commit
a693d4ef90
|
@ -1,24 +0,0 @@
|
|||
( loop )
|
||||
|
||||
|0100 @RESET
|
||||
|
||||
( increment value on stack )
|
||||
|
||||
,00
|
||||
|
||||
@loop1
|
||||
,01 ADD DUP
|
||||
,ff NEQ ,loop1 ROT JMP? POP2
|
||||
|
||||
( increment value in memory )
|
||||
|
||||
@loop2
|
||||
#00 LDR ,01 ADD #00 STR
|
||||
#00 LDR
|
||||
,ff NEQ ,loop2 ROT JMP? POP2
|
||||
|
||||
BRK
|
||||
|
||||
|c000 @FRAME BRK
|
||||
|d000 @ERROR BRK
|
||||
|FFFA .RESET .FRAME .ERROR
|
|
@ -5,28 +5,28 @@
|
|||
|
||||
|0100 @RESET
|
||||
|
||||
,02 ,dev/r STR ( set dev/read mouse#02 )
|
||||
,01 ,dev/w STR ( set dev/write screen#01 )
|
||||
#02 ,dev/r STR ( set dev/read mouse#02 )
|
||||
#01 ,dev/w STR ( set dev/write screen#01 )
|
||||
|
||||
BRK
|
||||
|
||||
|c000 @FRAME
|
||||
|
||||
( get mouse button, or break )
|
||||
,04 IOR
|
||||
,01 NEQ
|
||||
#04 IOR
|
||||
#01 NEQ
|
||||
BRK?
|
||||
|
||||
( paint a white pixel )
|
||||
,01 ,01
|
||||
#01 #01
|
||||
,getmouse JSR
|
||||
,putpixel JSR
|
||||
|
||||
BRK
|
||||
|
||||
@getmouse
|
||||
,00 IOR2 ( get mouse x )
|
||||
,02 IOR2 ( get mouse y )
|
||||
#00 IOR2 ( get mouse x )
|
||||
#02 IOR2 ( get mouse y )
|
||||
RTS
|
||||
|
||||
@putpixel
|
||||
|
|
|
@ -1,27 +0,0 @@
|
|||
( draw a single pixel )
|
||||
|
||||
:dev/w fff9 ( keep write port in a const )
|
||||
;x 2
|
||||
;y 2
|
||||
|
||||
|0100 @RESET
|
||||
|
||||
( set dev/write to screen )
|
||||
|
||||
,01 ,dev/w STR
|
||||
|
||||
,0020 ,x STR2 ( set x-pos )
|
||||
,0030 ,y STR2 ( set y-pos )
|
||||
|
||||
( IOW will now send to screen )
|
||||
|
||||
,y LDR2 IOW2 ( y-pos )
|
||||
,x LDR2 IOW2 ( x-pos )
|
||||
,02 IOW ( color )
|
||||
,01 IOW ( redraw )
|
||||
|
||||
BRK
|
||||
|
||||
|c000 @FRAME BRK
|
||||
|d000 @ERROR BRK
|
||||
|FFFA .RESET .FRAME .ERROR
|
Loading…
Reference in New Issue