Библиотека нужных процедур для написания демо

[GM BIT]

;HL/DE=BC,HL-ОСТАТОК
DIVW    LD A,E:OR D
        RET Z
        XOR A
        LD C,A,B,A
        EX DE,HL
DIVW1   INC B
        BIT 7,H
        JR NZ,DIVW2
        ADD HL,HL
        JP DIVW1
DIVW2   EX DE,HL
DIVW3   OR A
        SBC HL,DE
        JR NC,DIVW4
        ADD HL,DE
DIVW4   CCF
        RL C:RL A
        RR D,E
        DJNZ DIVW3
        LD B,A
        RET

[Advertiser]