etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
0
Fork 0
Code Issues Projects Releases Wiki Activity

Optimise “#xy STH” to “LITr xy”.

This commit is contained in:
Andrew Alderwick 2022-11-11 08:56:28 +00:00
parent fd55e929e1
commit 3a834fdfc1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
projects/library/asma.tal
View File

@ -449,7 +449,7 @@
,asma-parse-hex-digit JSR ,asma-parse-hex-digit JSR
DUP #f0 AND ,&fail JCN DUP #f0 AND ,&fail JCN
LITr 40 SFT2r LITr 40 SFT2r
#00 STH STH ADD2r LITr 00 STH ADD2r
INC2 INC2
,&loop JMP ,&loop JMP

2
projects/library/helpers.tal
View File

@ -85,7 +85,7 @@
&number &number
LIT2r 000a MUL2r LIT2r 000a MUL2r
LDAk #30 SUB #00 STH STH ADD2r LDAk #30 SUB LITr 00 STH ADD2r
INC2 INC2
LDAk #3039 IN-RANGE ,&number JCN LDAk #3039 IN-RANGE ,&number JCN