collapseos/blk/107

11 lines
347 B
Plaintext
Raw Normal View History

2020-06-05 13:54:45 -04:00
: _F ( F without _pln. used in VE )
2020-05-01 21:52:38 -04:00
FBUF _type FBUF EDPOS @ _cpos ( a1 a2 )
BEGIN
C@+ ROT ( a2+1 c2 a1 ) C@+ ROT ( a2+1 a1+1 c1 c2 )
= NOT IF DROP FBUF THEN
2020-05-22 14:17:38 -04:00
TUCK C@ 0xd = ( a1 a2 f1 )
2020-05-01 21:52:38 -04:00
OVER BLK) = OR ( a1 a2 f1|f2 )
UNTIL
2020-06-05 13:54:45 -04:00
DUP BLK) < IF BLK( - FBUF + -^ EDPOS ! THEN DROP ;
: F _F EDPOS @ 64 / _pln ;