collapseos/blk/291

( Native words )
H@ 4 + 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-05 22:35:54 -04:00			`( Native words )`
			`H@ 4 + 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 )`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04: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-25 20:34:52 -04:00			`A (HL) LDrr, A ORr,`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`( special case. zero len? we never find anything. )`
z80: inline lblfind's routine into _find word 2020-07-05 22:35:54 -04:00			`IFZ, PUSH0, JPNEXT, THEN,`
z80: protect BC in _find In preparation for the IY->BC move 2020-07-05 22:43:32 -04: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-25 20:34:52 -04: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-27 22:01:56 -04: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-25 20:34:52 -04:00			`( cont . )`