collapseos/recipes/trs80/xcomp.fs

0x6000 CONSTANT RAMSTART
0xf000 CONSTANT RS_ADDR
212 LOAD  ( z80 assembler )
262 LOAD  ( xcomp )
: CODE XCODE ;
: IMMEDIATE XIMM ;
: (entry) (xentry) ;
: : [ ' X: , ] ;

CURRENT @ XCURRENT !

H@ 256 /MOD 2 PC! 2 PC!
0x3000 BIN( !
282 LOAD  ( boot.z80 )
162 LOAD  ( trs80.z80 )
393 LOAD  ( icore )
(entry) _
( Update LATEST )
PC ORG @ 8 + !
422 463 XPACKR ( core cmp print parse readln fmt )
," : _ RDLN$ (ok) ; _ "
H@ 256 /MOD 2 PC! 2 PC!
recipes/trs80: wip 2020-04-28 21:51:41 +10:00			`0x6000 CONSTANT RAMSTART`
			`0xf000 CONSTANT RS_ADDR`
			`212 LOAD ( z80 assembler )`
			`262 LOAD ( xcomp )`
			`: CODE XCODE ;`
			`: IMMEDIATE XIMM ;`
			`: (entry) (xentry) ;`
			`: : [ ' X: , ] ;`

			`CURRENT @ XCURRENT !`

			`H@ 256 /MOD 2 PC! 2 PC!`
			`0x3000 BIN( !`
			`282 LOAD ( boot.z80 )`
			`162 LOAD ( trs80.z80 )`
			`393 LOAD ( icore )`
			`(entry) _`
			`( Update LATEST )`
xcomp: remove XOFF and use ORG and BIN( instead 2020-04-28 23:15:17 +10:00			`PC ORG @ 8 + !`
recipes/trs80: wip 2020-04-28 21:51:41 +10:00			`422 463 XPACKR ( core cmp print parse readln fmt )`
			`," : _ RDLN$ (ok) ; _ "`
			`H@ 256 /MOD 2 PC! 2 PC!`