collapseos/blk/027

: 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, ;
Copy z80a.fs to disk blocks I don't remove z80a.fs yet because build process needs it, but that will change shortly. 2020-04-20 10:36:13 +10:00			`: FWR BSET 0 A, ;`
			`: FSET @ THEN, ;`
z80a: add BREAK, instruction This allows us to remove a lot of labels usage in boot code. This commit has no effect on forth.bin. 2020-05-17 11:02:50 +10:00			`: BREAK, FJR, 0x8000 OR ;`
			`: BREAK?, DUP 0x8000 AND IF`
			`0x7fff AND 1 ALLOT THEN, -1 ALLOT`
			`THEN ;`
			`: AGAIN, BREAK?, PC - 1- A, ;`
			`: BWR @ AGAIN, ;`