collapseos/blk/291

( Native words )
H@ 5 + XCURRENT ! ( make next CODE have 0 prev field )
CODE _find  ( cur w -- a f )
    HL POP, ( w ) DE POP, ( cur ) chkPS,
    HL PUSH, ( --> lvl 1 )
	( First, figure out string len )
    A (HL) LDrr, A ORr,
	( special case. zero len? we never find anything. )
    IFZ, PUSH0, JPNEXT, THEN,
    BC PUSH, ( --> lvl 2, protect )
( Let's do something weird: We'll hold HL by the *tail*.
  Because of our dict structure and because we know our
  lengths, it's easier to compare starting from the end. )
    C A LDrr, B 0 LDri, ( C holds our length )
    BC ADDHLd, HL INCd, ( HL points to after-last-char )
                                                     ( cont . )
z80: inline lblfind's routine into _find word 2020-07-06 12:35:54 +10:00			`( Native words )`
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			`H@ 5 + XCURRENT ! ( make next CODE have 0 prev field )`
z80: inline lblfind's routine into _find word 2020-07-06 12:35:54 +10:00			`CODE _find ( cur w -- a f )`
			`HL POP, ( w ) DE POP, ( cur ) chkPS,`
			`HL PUSH, ( --> lvl 1 )`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`( First, figure out string len )`
Make string length-prefixed instead of null-terminated I'm not sure why I chose null-terminated initially. Probably because the z80asm version had null-terminated strings. Length-prefixes strings are the traditional form of strings in Forth and it's a bit easier to work with them with traditional forth words when they're under this form. 2020-05-26 10:34:52 +10:00			`A (HL) LDrr, A ORr,`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`( special case. zero len? we never find anything. )`
z80: inline lblfind's routine into _find word 2020-07-06 12:35:54 +10:00			`IFZ, PUSH0, JPNEXT, THEN,`
z80: protect BC in _find In preparation for the IY->BC move 2020-07-06 12:43:32 +10:00			`BC PUSH, ( --> lvl 2, protect )`
Make string length-prefixed instead of null-terminated I'm not sure why I chose null-terminated initially. Probably because the z80asm version had null-terminated strings. Length-prefixes strings are the traditional form of strings in Forth and it's a bit easier to work with them with traditional forth words when they're under this form. 2020-05-26 10:34:52 +10:00			`( Let's do something weird: We'll hold HL by the tail.`
			`Because of our dict structure and because we know our`
			`lengths, it's easier to compare starting from the end. )`
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			`C A LDrr, B 0 LDri, ( C holds our length )`
			`BC ADDHLd, HL INCd, ( HL points to after-last-char )`
Make string length-prefixed instead of null-terminated I'm not sure why I chose null-terminated initially. Probably because the z80asm version had null-terminated strings. Length-prefixes strings are the traditional form of strings in Forth and it's a bit easier to work with them with traditional forth words when they're under this form. 2020-05-26 10:34:52 +10:00			`( cont . )`