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