Browse code
(brainfuck.tal) Converted assci runes
neauoire authored on 04/09/2022 20:08:38
Showing 1 changed files
| ... | ... |
@@ -8,22 +8,23 @@ |
| 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 |
| 15 | 15 |
&while |
| 16 |
- LDAk LIT '> NEQ ,&movr JCN [ SWP2 INC2 SWP2 ] &movr |
|
| 17 |
- LDAk LIT '< NEQ ,&movl JCN [ SWP2 #0001 SUB2 SWP2 ] &movl |
|
| 18 |
- LDAk LIT '+ NEQ ,&incr JCN [ OVR2 STH2k LDA INC STH2r STA ] &incr |
|
| 19 |
- LDAk LIT '- NEQ ,&decr JCN [ OVR2 STH2k LDA #01 SUB STH2r STA ] &decr |
|
| 20 |
- LDAk LIT '. NEQ ,&emit JCN [ OVR2 LDA #18 DEO ] &emit |
|
| 21 |
- LDAk LIT '[ NEQ ,&next JCN [ ,goto-next JSR ] &next |
|
| 22 |
- LDAk LIT '] NEQ ,&prev JCN [ ,goto-back JSR ] &prev |
|
| 16 |
+ LDAk LIT "> NEQ ,&movr JCN [ SWP2 INC2 SWP2 ] &movr |
|
| 17 |
+ LDAk LIT "< NEQ ,&movl JCN [ SWP2 #0001 SUB2 SWP2 ] &movl |
|
| 18 |
+ LDAk LIT "+ NEQ ,&incr JCN [ OVR2 STH2k LDA INC STH2r STA ] &incr |
|
| 19 |
+ LDAk LIT "- NEQ ,&decr JCN [ OVR2 STH2k LDA #01 SUB STH2r STA ] &decr |
|
| 20 |
+ LDAk LIT ". NEQ ,&emit JCN [ OVR2 LDA #18 DEO ] &emit |
|
| 21 |
+ LDAk LIT "[ NEQ ,&next JCN [ ,goto-next JSR ] &next |
|
| 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 ( -- ) |
| ... | ... |
@@ -32,8 +33,8 @@ BRK |
| 32 | 33 |
( depth ) LITr 00 |
| 33 | 34 |
INC2 |
| 34 | 35 |
&loop |
| 35 |
- LDAk LIT '[ NEQ JMP INCr |
|
| 36 |
- LDAk LIT '] NEQ ,&no-end JCN |
|
| 36 |
+ LDAk LIT "[ NEQ JMP INCr |
|
| 37 |
+ LDAk LIT "] NEQ ,&no-end JCN |
|
| 37 | 38 |
STHkr #00 EQU ,&end JCN |
| 38 | 39 |
LITr 01 SUBr |
| 39 | 40 |
&no-end |
| ... | ... |
@@ -49,8 +50,8 @@ JMP2r |
| 49 | 50 |
( depth ) LITr 00 |
| 50 | 51 |
#0001 SUB2 |
| 51 | 52 |
&loop |
| 52 |
- LDAk LIT '] NEQ JMP INCr |
|
| 53 |
- LDAk LIT '[ NEQ ,&no-end JCN |
|
| 53 |
+ LDAk LIT "] NEQ JMP INCr |
|
| 54 |
+ LDAk LIT "[ NEQ ,&no-end JCN |
|
| 54 | 55 |
STHkr #00 EQU ,&end JCN |
| 55 | 56 |
LITr 01 SUBr |
| 56 | 57 |
&no-end |
| ... | ... |
@@ -67,4 +68,4 @@ JMP2r |
| 67 | 68 |
"..+++.>>.<-.<.+++.------.------- |
| 68 | 69 |
"-.>>+.>++. $1 |
| 69 | 70 |
|
| 70 |
-@memory |
|
| 71 | 71 |
\ No newline at end of file |
| 72 |
+@memory |