... | ... |
@@ -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 ( -- ) |