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
( details ) "Original 20 "by 20 "Donn 20 "Denman 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
(
@ -742,10 +742,10 @@
JMP2r
@lts2 ( a* b* -- f )
#8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r
SUB2 POP #07 SFT JMP2r
@gts2 ( a* b* -- f )
#8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r
SWP2 SUB2 POP #07 SFT JMP2r
(
@|strings )