mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 01:50:57 +11:00
10 lines
199 B
Plaintext
10 lines
199 B
Plaintext
|
: FWR8 BSET 0 A, ;
|
||
|
|
: FSET @ THEN, ;
|
||
|
|
( : BREAK, FJR, 0x8000 OR ;
|
||
|
|
: BREAK?, DUP 0x8000 AND IF
|
||
|
|
0x7fff AND 1 ALLOT THEN, -1 ALLOT
|
||
|
|
THEN ;
|
||
|
|
: AGAIN, BREAK?, PC - 1- A, ; )
|
||
|
|
( : BWR @ AGAIN, ; )
|
||
|
|
|