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