mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-06 07:48:45 +10:00
This allows us to remove a lot of labels usage in boot code. This commit has no effect on forth.bin.
9 lines
189 B
Plaintext
9 lines
189 B
Plaintext
: FWR 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, ;
|