collapseos/blk/291

PC ORG @ 4 + ! ( find )
( 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 PUSHqq,
	( 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 LDrn, ( C holds our length )
    BC ADDHLss, HL INCss, ( HL points to after-last-char )
                                                     ( cont . )
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`PC ORG @ 4 + ! ( find )`
			`( 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 PUSHqq,`
			`( 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. )`
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			`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 LDrn, ( C holds our length )`
			`BC ADDHLss, HL INCss, ( HL points to after-last-char )`
			`( cont . )`
VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-12 08:12:01 +10:00