2020-06-12 11:29:00 -04:00
|
|
|
: FWR8 BSET 0 A, ;
|
|
|
|
: FSET @ THEN, ;
|
|
|
|
( : BREAK, FJR, 0x8000 OR ;
|
|
|
|
: BREAK?, DUP 0x8000 AND IF
|
|
|
|
0x7fff AND 1 ALLOT THEN, -1 ALLOT
|
2020-06-12 13:12:41 -04:00
|
|
|
THEN ; )
|
|
|
|
: AGAIN, ( BREAK?, ) PC - 1- A, ;
|
|
|
|
: BWR @ AGAIN, ;
|
2020-06-12 11:29:00 -04:00
|
|
|
|