Removed old examples

This commit is contained in:
neauoire 2021-02-13 13:26:14 -08:00
parent 17099c8ba9
commit a693d4ef90
3 changed files with 7 additions and 58 deletions

View File

@ -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

View File

@ -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

View File

@ -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