Faster lts/gts

This commit is contained in:
Devine Lu Linvega 2024-06-03 07:59:29 -07:00
parent 149c04a2cc
commit 505d36f61e
1 changed files with 3 additions and 3 deletions

View File

@ -38,7 +38,7 @@
( name ) "Note 20 "Pad 0a ( name ) "Note 20 "Pad 0a
( details ) "Original 20 "by 20 "Donn 20 "Denman 0a ( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "May 20 "31, 20 "2024 00 01 ( date ) "3 20 "Jun, 20 "2024 00 01
( icon ) 83 =appicon ( icon ) 83 =appicon
( (
@ -742,10 +742,10 @@
JMP2r JMP2r
@lts2 ( a* b* -- f ) @lts2 ( a* b* -- f )
#8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r SUB2 POP #07 SFT JMP2r
@gts2 ( a* b* -- f ) @gts2 ( a* b* -- f )
#8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r SWP2 SUB2 POP #07 SFT JMP2r
( (
@|strings ) @|strings )