collapseos/blk/320

( Borrowed from http://wikiti.brandonw.net/ )
( Divides AC by DE and places the quotient in AC and the
  remainder in HL )
CODE /MOD EXX, ( protect BC )
    DE POP, BC POP, chkPS,
    A B LDrr, B 16 LDri,
    HL 0 LDdi,
    BEGIN,
        SCF, C RL, RLA,
        HL ADCHLd, DE SBCHLd,
        IFC, DE ADDHLd, C DECr, THEN,
    DJNZ, AGAIN,
    B A LDrr,
    HL PUSH, BC PUSH,
EXX, ( unprotect BC ) ;CODE
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`( Borrowed from http://wikiti.brandonw.net/ )`
			`( Divides AC by DE and places the quotient in AC and the`
			`remainder in HL )`
z80: protect or avoid BC wherever it's used For the IY->BC move, of course. 2020-07-06 13:12:17 +10:00			`CODE /MOD EXX, ( protect BC )`
			`DE POP, BC POP, chkPS,`
			`A B LDrr, B 16 LDri,`
zasm: complete mnemonic argspecs harmonization 2020-08-15 22:11:48 +10:00			`HL 0 LDdi,`
z80: protect or avoid BC wherever it's used For the IY->BC move, of course. 2020-07-06 13:12:17 +10:00			`BEGIN,`
			`SCF, C RL, RLA,`
			`HL ADCHLd, DE SBCHLd,`
			`IFC, DE ADDHLd, C DECr, THEN,`
			`DJNZ, AGAIN,`
			`B A LDrr,`
			`HL PUSH, BC PUSH,`
			`EXX, ( unprotect BC ) ;CODE`