Browse code
Removed old examples
neauoire authored on 13/02/2021 21:26:14
Showing 3 changed files
| 1 | 1 |
deleted file mode 100644 |
| ... | ... |
@@ -1,24 +0,0 @@ |
| 1 |
-( loop ) |
|
| 2 |
- |
|
| 3 |
-|0100 @RESET |
|
| 4 |
- |
|
| 5 |
-( increment value on stack ) |
|
| 6 |
- |
|
| 7 |
-,00 |
|
| 8 |
- |
|
| 9 |
-@loop1 |
|
| 10 |
- ,01 ADD DUP |
|
| 11 |
- ,ff NEQ ,loop1 ROT JMP? POP2 |
|
| 12 |
- |
|
| 13 |
-( increment value in memory ) |
|
| 14 |
- |
|
| 15 |
-@loop2 |
|
| 16 |
- #00 LDR ,01 ADD #00 STR |
|
| 17 |
- #00 LDR |
|
| 18 |
- ,ff NEQ ,loop2 ROT JMP? POP2 |
|
| 19 |
- |
|
| 20 |
-BRK |
|
| 21 |
- |
|
| 22 |
-|c000 @FRAME BRK |
|
| 23 |
-|d000 @ERROR BRK |
|
| 24 |
-|FFFA .RESET .FRAME .ERROR |
| ... | ... |
@@ -5,28 +5,28 @@ |
| 5 | 5 |
|
| 6 | 6 |
|0100 @RESET |
| 7 | 7 |
|
| 8 |
- ,02 ,dev/r STR ( set dev/read mouse#02 ) |
|
| 9 |
- ,01 ,dev/w STR ( set dev/write screen#01 ) |
|
| 8 |
+ #02 ,dev/r STR ( set dev/read mouse#02 ) |
|
| 9 |
+ #01 ,dev/w STR ( set dev/write screen#01 ) |
|
| 10 | 10 |
|
| 11 | 11 |
BRK |
| 12 | 12 |
|
| 13 | 13 |
|c000 @FRAME |
| 14 | 14 |
|
| 15 | 15 |
( get mouse button, or break ) |
| 16 |
- ,04 IOR |
|
| 17 |
- ,01 NEQ |
|
| 16 |
+ #04 IOR |
|
| 17 |
+ #01 NEQ |
|
| 18 | 18 |
BRK? |
| 19 | 19 |
|
| 20 | 20 |
( paint a white pixel ) |
| 21 |
- ,01 ,01 |
|
| 21 |
+ #01 #01 |
|
| 22 | 22 |
,getmouse JSR |
| 23 | 23 |
,putpixel JSR |
| 24 | 24 |
|
| 25 | 25 |
BRK |
| 26 | 26 |
|
| 27 | 27 |
@getmouse |
| 28 |
- ,00 IOR2 ( get mouse x ) |
|
| 29 |
- ,02 IOR2 ( get mouse y ) |
|
| 28 |
+ #00 IOR2 ( get mouse x ) |
|
| 29 |
+ #02 IOR2 ( get mouse y ) |
|
| 30 | 30 |
RTS |
| 31 | 31 |
|
| 32 | 32 |
@putpixel |
| 33 | 33 |
deleted file mode 100644 |
| ... | ... |
@@ -1,27 +0,0 @@ |
| 1 |
-( draw a single pixel ) |
|
| 2 |
- |
|
| 3 |
-:dev/w fff9 ( keep write port in a const ) |
|
| 4 |
-;x 2 |
|
| 5 |
-;y 2 |
|
| 6 |
- |
|
| 7 |
-|0100 @RESET |
|
| 8 |
- |
|
| 9 |
- ( set dev/write to screen ) |
|
| 10 |
- |
|
| 11 |
- ,01 ,dev/w STR |
|
| 12 |
- |
|
| 13 |
- ,0020 ,x STR2 ( set x-pos ) |
|
| 14 |
- ,0030 ,y STR2 ( set y-pos ) |
|
| 15 |
- |
|
| 16 |
- ( IOW will now send to screen ) |
|
| 17 |
- |
|
| 18 |
- ,y LDR2 IOW2 ( y-pos ) |
|
| 19 |
- ,x LDR2 IOW2 ( x-pos ) |
|
| 20 |
- ,02 IOW ( color ) |
|
| 21 |
- ,01 IOW ( redraw ) |
|
| 22 |
- |
|
| 23 |
-BRK |
|
| 24 |
- |
|
| 25 |
-|c000 @FRAME BRK |
|
| 26 |
-|d000 @ERROR BRK |
|
| 27 |
-|FFFA .RESET .FRAME .ERROR |