collapseos/blk/291

lblfind BSET
( Find the entry corresponding to word name where (HL) points
  to in dictionary having its tip at DE and sets DE to point
  to that entry. Z if found, NZ if not. )
    HL PUSH,
	( First, figure out string len )
    A (HL) LDrr, A ORr,
	( special case. zero len? we never find anything. )
    IFNZ, ( fail-B296 )
( 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: remove layers of indirection of find calls 2020-06-18 07:40:20 -04:00			`lblfind BSET`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`( Find the entry corresponding to word name where (HL) points`
			`to in dictionary having its tip at DE and sets DE to point`
			`to that entry. Z if found, NZ if not. )`
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			`HL PUSH,`
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. )`
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			`IFNZ, ( fail-B296 )`
			`( 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 . )`