Faster lts/gts
This commit is contained in:
parent
149c04a2cc
commit
505d36f61e
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue