поковырялся в своих исходах арифметического сжатия. вытащил вот что

Код:
BIGMULT                 ;DEHL=DE*BC
        LD HL,0
        DUP 16
        ADD HL,HL
        RL E
        RL D
        JR NC,$+6
        ADD HL,BC
        JR NC,$+3
        INC DE
        EDUP 
        RET 

BIGDIV
        LD HL,0         ;BC'BC=BC'BC/DE
        SLA C
        RL B
        EXX 
        LD HL,0
        RL C
        RL B
        EXX 

        DUP 32
        ADC HL,HL
        EXX 
        ADC HL,HL
        EXX 
        SBC HL,DE
        JR NC,$+14      ;ZZ
        EXX 
        LD A,H
        OR L
        EXX 
        JR Z,$+7        ;ZZ1
        EXX 
        DEC HL
        EXX 
        JR $+3          ;ZZ
        ADD HL,DE       ;ZZ1
        RL C            ;ZZ
        RL B
        EXX 
        RL C
        RL B
        EXX 
        EDUP 

        LD A,C
        CPL 
        LD C,A
        LD A,B
        CPL 
        LD B,A
        RET
мож кому пригодится