collapseos/blk/399

: LIT< 0x2b ( s ) , WORD DUP C@ 1+ MOVE, ; IMMEDIATE
: BEGIN H@ ; IMMEDIATE
: AGAIN 0x53 ( br ) , H@ - _bchk , ; IMMEDIATE
: UNTIL 0x67 ( ?br ) , H@ - _bchk , ; IMMEDIATE
: [ INTERPRET ; IMMEDIATE
: ] R> DROP ;
: COMPILE ' LITN ['] , , ; IMMEDIATE
: [COMPILE] ' , ; IMMEDIATE
: ['] ' LITN ; IMMEDIATE
Extract (s) code from stable ABI zone Only its jump addr remains. 2020-07-05 22:54:22 +10:00			`: LIT< 0x2b ( s ) , WORD DUP C@ 1+ MOVE, ; IMMEDIATE`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`: BEGIN H@ ; IMMEDIATE`
Refer to stable wordref by direct offset in "hot zone" immediates Previously, it was impossible to cross-compile Collapse OS from a binary-offsetted Collapse OS because stable ABI wordrefs would have a wrongly offsetted address. This solves the problem by replacing those wordrefs by direct, hardcoded stable ABI offset references. 2020-07-05 21:09:11 +10:00			`: AGAIN 0x53 ( br ) , H@ - _bchk , ; IMMEDIATE`
			`: UNTIL 0x67 ( ?br ) , H@ - _bchk , ; IMMEDIATE`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`: [ INTERPRET ; IMMEDIATE`
			`: ] R> DROP ;`
Remove LITA It was useful when we still had the relinker, but now it has no use. I was waiting a bit to see if the distinction would be useful again, but it seems like it won't. 2020-06-18 03:50:42 +10:00			`: COMPILE ' LITN ['] , , ; IMMEDIATE`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`: [COMPILE] ' , ; IMMEDIATE`
Refer to stable wordref by direct offset in "hot zone" immediates Previously, it was impossible to cross-compile Collapse OS from a binary-offsetted Collapse OS because stable ABI wordrefs would have a wrongly offsetted address. This solves the problem by replacing those wordrefs by direct, hardcoded stable ABI offset references. 2020-07-05 21:09:11 +10:00			`: ['] ' LITN ; IMMEDIATE`