| ... | ... |
@@ -8,7 +8,7 @@ |
| 8 | 8 |
[ Jump past the matching ] if the cell at the pointer is 0 |
| 9 | 9 |
] Jump back to the matching [ if the cell at the pointer is nonzero ) |
| 10 | 10 |
|
| 11 |
-|0100 ( -> ) @reset |
|
| 11 |
+|0100 ( -> ) |
|
| 12 | 12 |
|
| 13 | 13 |
;memory |
| 14 | 14 |
;program |
| ... | ... |
@@ -22,8 +22,9 @@ |
| 22 | 22 |
LDAk LIT "] NEQ ,&prev JCN [ ,goto-back JSR ] &prev |
| 23 | 23 |
INC2 LDAk ,&while JCN |
| 24 | 24 |
POP2 |
| 25 |
- ( halt ) #010f DEO |
|
| 26 |
- |
|
| 25 |
+ ( halt ) |
|
| 26 |
+ #010f DEO |
|
| 27 |
+ |
|
| 27 | 28 |
BRK |
| 28 | 29 |
|
| 29 | 30 |
@goto-next ( -- ) |