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