collapseos/blk/328

CODE S=
    DE POPqq, HL POPqq, chkPS,
    HL DECss, DE DECss,
    LDA(DE),
    (HL) CPr,
    IFZ, ( same size? )
        B A LDrr, ( loop A times )
        BEGIN,
            HL INCss, DE INCss,
            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=`
wip 2020-05-25 21:45:19 +10:00			`DE POPqq, HL POPqq, chkPS,`
			`HL DECss, DE DECss,`
			`LDA(DE),`
			`(HL) CPr,`
			`IFZ, ( same size? )`
			`B A LDrr, ( loop A times )`
			`BEGIN,`
			`HL INCss, DE INCss,`
			`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`