d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(brainfuck.tal) Converted assci runes

This commit is contained in:
neauoire 2022-09-04 13:08:38 -07:00
parent 0c908a9379
commit ab108643cf
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
projects/examples/exercises/brainfuck.tal
View File

@ -8,21 +8,22 @@
[ Jump past the matching ] if the cell at the pointer is 0 [ Jump past the matching ] if the cell at the pointer is 0
] Jump back to the matching [ if the cell at the pointer is nonzero ) ] Jump back to the matching [ if the cell at the pointer is nonzero )
|0100 ( -> ) @reset |0100 ( -> )
;memory ;memory
;program ;program
&while &while
LDAk LIT '> NEQ ,&movr JCN [ SWP2 INC2 SWP2 ] &movr LDAk LIT "> NEQ ,&movr JCN [ SWP2 INC2 SWP2 ] &movr
LDAk LIT '< NEQ ,&movl JCN [ SWP2 #0001 SUB2 SWP2 ] &movl LDAk LIT "< NEQ ,&movl JCN [ SWP2 #0001 SUB2 SWP2 ] &movl
LDAk LIT '+ NEQ ,&incr JCN [ OVR2 STH2k LDA INC STH2r STA ] &incr LDAk LIT "+ NEQ ,&incr JCN [ OVR2 STH2k LDA INC STH2r STA ] &incr
LDAk LIT '- NEQ ,&decr JCN [ OVR2 STH2k LDA #01 SUB STH2r STA ] &decr LDAk LIT "- NEQ ,&decr JCN [ OVR2 STH2k LDA #01 SUB STH2r STA ] &decr
LDAk LIT '. NEQ ,&emit JCN [ OVR2 LDA #18 DEO ] &emit LDAk LIT ". NEQ ,&emit JCN [ OVR2 LDA #18 DEO ] &emit
LDAk LIT '[ NEQ ,&next JCN [ ,goto-next JSR ] &next LDAk LIT "[ NEQ ,&next JCN [ ,goto-next JSR ] &next
LDAk LIT '] NEQ ,&prev JCN [ ,goto-back JSR ] &prev LDAk LIT "] NEQ ,&prev JCN [ ,goto-back JSR ] &prev
INC2 LDAk ,&while JCN INC2 LDAk ,&while JCN
POP2 POP2
( halt ) #010f DEO ( halt )
#010f DEO
BRK BRK
@ -32,8 +33,8 @@ BRK
( depth ) LITr 00 ( depth ) LITr 00
INC2 INC2
&loop &loop
LDAk LIT '[ NEQ JMP INCr LDAk LIT "[ NEQ JMP INCr
LDAk LIT '] NEQ ,&no-end JCN LDAk LIT "] NEQ ,&no-end JCN
STHkr #00 EQU ,&end JCN STHkr #00 EQU ,&end JCN
LITr 01 SUBr LITr 01 SUBr
&no-end &no-end
@ -49,8 +50,8 @@ JMP2r
( depth ) LITr 00 ( depth ) LITr 00
#0001 SUB2 #0001 SUB2
&loop &loop
LDAk LIT '] NEQ JMP INCr LDAk LIT "] NEQ JMP INCr
LDAk LIT '[ NEQ ,&no-end JCN LDAk LIT "[ NEQ ,&no-end JCN
STHkr #00 EQU ,&end JCN STHkr #00 EQU ,&end JCN
LITr 01 SUBr LITr 01 SUBr
&no-end &no-end