interval ops not baked yet
This commit is contained in:
parent
765340fde2
commit
65d1a6cc52
|
@ -566,8 +566,8 @@
|
||||||
|
|
||||||
( INTERVAL OPERATIONS )
|
( INTERVAL OPERATIONS )
|
||||||
( )
|
( )
|
||||||
( )
|
( not baked yet )
|
||||||
|
(
|
||||||
@min ( first* last* -> min-addr* )
|
@min ( first* last* -> min-addr* )
|
||||||
SWP2 STH2k ,&incr JMP ( last first [first] )
|
SWP2 STH2k ,&incr JMP ( last first [first] )
|
||||||
&loop LDAk LDAkr STHr LTH ,&replace JCN ,&incr JMP ( last a [c] )
|
&loop LDAk LDAkr STHr LTH ,&replace JCN ,&incr JMP ( last a [c] )
|
||||||
|
@ -589,4 +589,4 @@
|
||||||
&above POPr POP &below #00 JMP2r
|
&above POPr POP &below #00 JMP2r
|
||||||
|
|
||||||
@iv-find ( c^ iv* -> bool^ )
|
@iv-find ( c^ iv* -> bool^ )
|
||||||
|
)
|
Loading…
Reference in New Issue