collapseos/blk/328

CODE S=
    DE POP, HL POP, chkPS,
    LDA(DE),
    (HL) CPr,
    IFZ, ( same size? )
        B A LDrr, ( loop A times )
        BEGIN,
            HL INCd, DE INCd,
            LDA(DE),
            (HL) CPr,
            JRNZ, BREAK, ( not equal? break early. NZ is set. )
        DJNZ, AGAIN,
    THEN,
    PUSHZ,
;CODE
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`CODE S=`
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			`DE POP, HL POP, chkPS,`
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			`LDA(DE),`
			`(HL) CPr,`
			`IFZ, ( same size? )`
			`B A LDrr, ( loop A times )`
			`BEGIN,`
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			`HL INCd, DE INCd,`
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			`LDA(DE),`
			`(HL) CPr,`
			`JRNZ, BREAK, ( not equal? break early. NZ is set. )`
			`DJNZ, AGAIN,`
			`THEN,`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`PUSHZ,`
			`;CODE`