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

(brainfuck.tal) Optimizations

This commit is contained in:
Devine Lu Linvega 2024-02-15 21:00:00 -08:00
parent 3bd7ea944f
commit c37d2cd75c
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,20 +19,20 @@
BRK
@<eval> ( -- )
;on-console/ptr LDA2 ;program
[ LIT2r =on-console/ptr ] LDA2r ;program
&while ( -- )
LDAk [ LIT "+ ] NEQ ?{ OVR2 STH2k LDA INC STH2r STA }
LDAk [ LIT "- ] NEQ ?{ OVR2 STH2k LDA #01 SUB STH2r STA }
LDAk [ LIT "> ] NEQ ?{ SWP2 INC2 SWP2 }
LDAk [ LIT "< ] NEQ ?{ SWP2 #0001 SUB2 SWP2 }
LDAk [ LIT ". ] NEQ ?{ OVR2 LDA #18 DEO }
LDAk [ LIT "+ ] NEQ ?{ LDAkr STHr INC STH2kr STA }
LDAk [ LIT "- ] NEQ ?{ LDAkr STHr #01 SUB STH2kr STA }
LDAk [ LIT "> ] NEQ ?{ INC2r }
LDAk [ LIT "< ] NEQ ?{ [ LIT2r 0001 ] SUB2r }
LDAk [ LIT ". ] NEQ ?{ LDAkr [ LITr 18 ] DEOr }
LDAk [ LIT "[ ] NEQ ?{ goto-next }
LDAk [ LIT "] ] NEQ ?{ goto-back }
INC2 LDAk ?&while
POP2 JMP2r
POP2 POP2r JMP2r
@goto-next ( mem* prg* -- )
OVR2 LDA ?{ JMP2r }
@goto-next ( `mem* prg* -- )
OVR2r LDAr STHr ?{ JMP2r }
[ LITr 00 ] INC2
&loop ( -- )
LDAk [ LIT "[ ] NEQ ?{ INCr }
@ -41,8 +41,8 @@
[ LITr 01 ] SUBr }
INC2 !&loop
@goto-back ( mem* prg* -- )
OVR2 LDA ?{ JMP2r }
@goto-back ( `mem* prg* -- )
OVR2r LDAr STHr ?{ JMP2r }
[ LITr 00 ] #0001 SUB2
&loop ( -- )
LDAk [ LIT "] ] NEQ ?{ INCr }