collapseos/blk/243

: JPccnn, SWAP <<3 0xc2 OR A, A,, ;
: BCALL, BIN( @ + CALLnn, ;
: BJP, BIN( @ + JPnn, ;
: BJPcc, BIN( @ + JPccnn, ;

VARIABLE lblchkPS
: chkPS, lblchkPS @ CALLnn, ; ( chkPS, B305 )
CREATE lblnext 0x1a , ( stable ABI until set in B300 )
: JPNEXT, lblnext @ JPnn, ;
: CODE ( same as CREATE, but with native word )
    (entry) 0 C, ( 0 == native ) ;
: ;CODE JPNEXT, ;
z80a: add JPccnn, 2020-04-21 11:18:33 +10:00			`: JPccnn, SWAP <<3 0xc2 OR A, A,, ;`
z80a: add BIN( parameter Will be useful for assembling binaries for the TRS-80 which can't start at addr 0. 2020-04-28 05:04:37 +10:00			`: BCALL, BIN( @ + CALLnn, ;`
			`: BJP, BIN( @ + JPnn, ;`
			`: BJPcc, BIN( @ + JPccnn, ;`
z80a: add JPccnn, 2020-04-21 11:18:33 +10:00
z80: use named labels for boot routines The usage of numerotated labels for this was becoming severly confusing. 2020-06-18 21:16:40 +10:00			`VARIABLE lblchkPS`
			`: chkPS, lblchkPS @ CALLnn, ; ( chkPS, B305 )`
z80: remove layer of indirection in most "next" calls The only calls still using the stable ABI indirection are those made before the next routine is created. 2020-06-18 21:24:47 +10:00			`CREATE lblnext 0x1a , ( stable ABI until set in B300 )`
			`: JPNEXT, lblnext @ JPnn, ;`
z80a: add BIN( parameter Will be useful for assembling binaries for the TRS-80 which can't start at addr 0. 2020-04-28 05:04:37 +10:00			`: CODE ( same as CREATE, but with native word )`
Make word routines into word types Instead of having wordref point to core word routines, I made them into word 4 word types. It liberates space into the stable ABI and should make porting to other arches easier. I'm also thinking of combining word type with the namelen field for precious bytes saving, but not now... 2020-06-18 11:41:01 +10:00			`(entry) 0 C, ( 0 == native ) ;`
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			`: ;CODE JPNEXT, ;`