| 1 | 1 |
deleted file mode 100644 |
| ... | ... |
@@ -1,42 +0,0 @@ |
| 1 |
-( hello world ) |
|
| 2 |
- |
|
| 3 |
-%RTN { JMP2r }
|
|
| 4 |
- |
|
| 5 |
-( devices ) |
|
| 6 |
- |
|
| 7 |
-|0100 ;System { vector 2 pad 6 r 2 g 2 b 2 }
|
|
| 8 |
-|0110 ;Console { vector 2 pad 6 char 1 byte 1 short 2 string 2 }
|
|
| 9 |
- |
|
| 10 |
-( program ) |
|
| 11 |
- |
|
| 12 |
-|0200 |
|
| 13 |
- |
|
| 14 |
- ( for loop ) |
|
| 15 |
- #00 #0d |
|
| 16 |
- $loop |
|
| 17 |
- ( body ) |
|
| 18 |
- SWP #01 ADD SWP |
|
| 19 |
- DUP2 LTH ^$loop JNZ |
|
| 20 |
- POP2 |
|
| 21 |
- |
|
| 22 |
- ( while ) |
|
| 23 |
- #00 #0d |
|
| 24 |
- $while |
|
| 25 |
- ( body ) |
|
| 26 |
- DUP2 EQU ^$end JNZ |
|
| 27 |
- SWP #01 ADD SWP |
|
| 28 |
- ^$while JMP $end |
|
| 29 |
- POP2 |
|
| 30 |
- |
|
| 31 |
- ( switch ) |
|
| 32 |
- #02 |
|
| 33 |
- DUP #01 NEQ ^$b JNZ |
|
| 34 |
- ( a ) |
|
| 35 |
- $b DUP #02 NEQ ^$c JNZ |
|
| 36 |
- ( b ) |
|
| 37 |
- $c DUP #03 NEQ ^$default JNZ |
|
| 38 |
- ( c ) |
|
| 39 |
- $default |
|
| 40 |
- POP |
|
| 41 |
- |
|
| 42 |
-BRK |