collapseos/blk/025

: JPc, SWAP <<3 0xc2 OR A, A,, ;
: BCALL, BIN( @ + CALL, ;
: BJP, BIN( @ + JP, ;
: BJPc, BIN( @ + JPc, ;

CREATE lblchkPS 0 ,
: chkPS, lblchkPS @ CALL, ; ( chkPS, B305 )
CREATE lblnext 0 , ( stable ABI until set in B300 )
: JPNEXT, lblnext @ ?DUP IF JP, ELSE 0x1a BJP, THEN ;
: CODE ( same as CREATE, but with native word )
    (entry) 0 C, ( 0 == native ) ;
: ;CODE JPNEXT, ;
z80a: make mnemonic names more uniform across assemblers Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help. 2020-06-28 12:01:56 +10:00			`: JPc, SWAP <<3 0xc2 OR A, A,, ;`
			`: BCALL, BIN( @ + CALL, ;`
			`: BJP, BIN( @ + JP, ;`
			`: BJPc, BIN( @ + JPc, ;`
z80a: add JPccnn, 2020-04-21 11:18:33 +10:00
z80: fix tricky memory initialization issue Among random "better safe than sorry" changes, the real fix is in changing "4" for "5" above _find declaration. This off-by-one error had that word, which is the root word in z80, have a 0x01 prev field instead of a 0x00 one. When all memory was initialized to zero, it didn't matter, we ended up hitting 0 prev and considered ourselves properly at the end of dict. When memory wasn't initialized, however, we would end up jumping at all kinds of places, leading to random behavior. 2020-08-16 06:37:58 +10:00			`CREATE lblchkPS 0 ,`
z80a: make mnemonic names more uniform across assemblers Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help. 2020-06-28 12:01:56 +10:00			`: chkPS, lblchkPS @ CALL, ; ( chkPS, B305 )`
z80: fix chkPS's "stable ABI" form in binaries with offset Before lblnext is set, we need to use BJP, instead of JPnn, for the jump to work in binaries with offsets. 2020-06-27 11:24:12 +10:00			`CREATE lblnext 0 , ( stable ABI until set in B300 )`
z80a: make mnemonic names more uniform across assemblers Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help. 2020-06-28 12:01:56 +10:00			`: JPNEXT, lblnext @ ?DUP IF JP, ELSE 0x1a BJP, THEN ;`
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, ;`