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 LDdn,
    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-22 21:19:12 -04: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-05 23:12:17 -04:00			`CODE /MOD EXX, ( protect BC )`
			`DE POP, BC POP, chkPS,`
			`A B LDrr, B 16 LDri,`
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 0 LDdn,`
z80: protect or avoid BC wherever it's used For the IY->BC move, of course. 2020-07-05 23:12:17 -04: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`