Liren Large Software Subsidy 15/15.iso/s/s235/1.ddi/DTOB.ASM

Assembly Source File | 1988-09-06 | 4.0 KB | 339 lines

;
;
;
;
;
;
;    THIS IS THE FILE OF DTOB.ASM
;
IDTB:    MOV   R3,#0            ;THIS IS  SUBROUTING  8-1
    MOV   A,@R0
    MOV   R4,A
IDTL:    MOV   A,R4
    MOV   B,#10
    MUL   AB
    MOV   R4,A
    MOV   B,#10
    XCH   A,B
    XCH   A,R3
    MUL   AB
    ADD   A,R3
    XCH   A,R4
    INC   R0
    ADD   A,@R0
    XCH   A,R4
    ADDC  A,#0
    MOV   R3,A
    DJNZ  R2,IDTL
    RET
;
;
;
;
;
;
PDTB:    MOV   R3,#0          ;THIS IS  SUBROUTING    8-2
    MOV   R4,#0
PDTL:    MOV   A,R3
    MOV   B,#9AH
    MUL   AB            ;First    MUL
    MOV   R5,B
    XCH   A,R4
    MOV   B,#19H
    MUL   AB            ;Second MUL
    ADD   A,R4
    MOV   A,R5
    ADDC  A,B
    MOV   R5,A
    MOV   A,@R0
    MOV   B,#9AH
    MUL   AB            ;Third    MUL
    ADD   A,R5
    MOV   R4,A
    CLR   A
    ADDC  A,B
    XCH   A,R3
    MOV   B,#19H
    MUL   AB            ;Fourth MUL
    ADD   A,R4
    MOV   R4,A
    MOV   A,B
    ADDC  A,R3
    MOV   R3,A
    MOV   A,@R0
    MOV   B,#19H
    MUL   AB            ;Fifth    MUL
    ADD   A,R3
    MOV   R3,A
    DEC   R0
    DJNZ  R2,PDTL
    RET
;
;
;
;
;
;
;
IBTD:    CLR   A             ;THIS IS  SUBROUTING  8-3 ;IBDT2
    MOV   R4,A
    MOV   R5,A
    MOV   R6,A
    MOV   R7,#16
IBTL2:    CLR   C
    MOV   A,R3
    RLC   A
    MOV   R3,A
    MOV   A,R2
    RLC   A
    MOV   R2,A
    MOV   A,R6
    ADDC  A,R6
    DA    A
    MOV   R6,A
    MOV   A,R5
    ADDC  A,R5
    DA    A
    MOV   R5,A
    MOV   A,R4
    ADDC  A,R4
    DA    A
    MOV   R4,A
    DJNZ  R7,IBTL2
    RET
;
;
;
;
;
;
;
;
;
PBTD:    MOV   R4,#5        ;THIS IS  SUBROUTING  8-4
PBTL:    MOV   A,R3
    MOV   B,#10
    MUL   AB
    MOV   R3,A
    MOV   A,#10
    XCH   A,B
    XCH   A,R2
    MUL   AB
    ADD   A,R2
    MOV   R2,A
    CLR   A
    ADDC  A,B            ;(A) = BCD
    MOV   @R0,A
    INC   R0
    DJNZ  R4,PBTL
    RET
;
;
;
;
;
;
;
NIDTB:    MOV    A,R1            ;THIS IS  SUBROUTING  8-5 ;SUBC1
    MOV    R6,A
    MOV    A,R7
    MOV    R3,A
    CLR    A
NDB0:    MOV    @R1,A
    INC    R1
    DJNZ    R3,NDB0
    MOV    A,R7
    MOV    R3,A
NDB3:    LCALL    NDB1            ;M10
    MOV    A,@R0
    ANL    A,#0F0H
    SWAP    A
    LCALL    NDB2            ;SUM
    LCALL    NDB1            ;M10
    MOV    A,@R0
    ANL    A,#0FH
    LCALL    NDB2
    DEC    R0
    DJNZ    R3,NDB3
    RET
NDB1:    MOV    A,R7            ;SUM SUBROUTING
    MOV    R4,A
    MOV    A,R6
    MOV    R1,A
    CLR    C            ;
    MOV    R2,#00H
NDB4:    MOV    A,@R1
    MOV    B,#0AH
    PUSH    PSW
    MUL    AB
    POP    PSW
    ADDC    A,R2
    MOV    @R1,A
    MOV    R2,B
    INC    R1
    DJNZ    R4,NDB4
    RET
NDB2:    MOV    R5,A
    MOV    A,R6
    MOV    R1,A
    MOV    A,R7
    MOV    R4,A
    MOV    A,R5
    ADD    A,@R1
    MOV    @R1,A
    INC    R1
    DEC    R4
    MOV    A,R4
    JNZ    NDB5
    LJMP    NDB6
NDB5:    MOV    A,@R1
    ADDC    A,#00H
    MOV    @R1,A
    INC    R1
    DJNZ    R4,NDB5
NDB6:    RET
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
NIBTD:    MOV    A,R0            ;THIS IS  SUBROUTING  8-6 ;SUBD1
    MOV    R5,A
    MOV    A,R1
    MOV    R6,A
    MOV    A,R7
    INC    A
    MOV    R3,A
    CLR    A
NBD0:    MOV    @R1,A
    INC    R1
    DJNZ    R3,NBD0
    MOV    A,R7
    MOV    B,#08H
    MUL    AB
    MOV    R3,A
NBD4:    MOV    A,R5
    MOV    R0,A
    MOV    A,R7
    MOV    R2,A
    CLR    C
NBD1:    MOV    A,@R0
    RLC    A
    MOV    @R0,A
    INC    R0
    DJNZ    R2,NBD1
    MOV    A,R6
    MOV    R1,A
    MOV    A,R7
    MOV    R2,A
    INC    R2
NBD3:    MOV    A,@R1
    ADDC    A,@R1
    DA    A
    MOV    @R1,A
    INC    R1
    DJNZ    R2 ,NBD3
    DJNZ    R3,NBD4
    RET
;
NPDTB:    MOV    A,R0            ;THIS IS  SUBROUTING  8-7 ;SUBE1
    MOV    R4,A
    MOV    A,R1
    MOV    R5,A
    MOV    A,R7
    MOV    R3,A
    CLR    A
NPDB0:    MOV    @R1,A
    INC    R1
    DJNZ    R3,NPDB0
    MOV    A,R7
    MOV    B,#08H
    MUL    AB
    MOV    R3,A
NPDB3:    MOV    A,R6
    MOV    R2,A
    MOV    A,R4
    MOV    R0,A
    CLR    C
NPDB1:    MOV    A,@R0
    ADDC    A,@R0
    DA    A
    MOV    @R0,A
    INC    R0
    DJNZ    R2,NPDB1
    MOV    A,R5
    MOV    R1,A
    MOV    A,R7
    MOV    R2,A
NPDB2:    MOV    A,@R1
    RLC    A
    MOV    @R1,A
    INC    R1
    DJNZ    R2,NPDB2
    DJNZ    R3,NPDB3
    RET
;
;
;
;
;
;
;
;
NPBTD:    MOV    A,R0            ;THIS IS  SUBROUTING  8-8 ;SUBF1
    MOV    R4,A
    MOV    A,R1
    MOV    R5,A
    MOV    A,R6
    MOV    R3,A
    CLR    A
NPBD0:    MOV    @R1,A
    INC    R1
    DJNZ    R3,NPBD0
    MOV    A,R6
    RL    A
    MOV    R3,A
NPBD3:    MOV    A,R4
    MOV    R0,A
    MOV    A,R7
    MOV    R2,A
    MOV    R1,#00H
    CLR    C
NPBD1:    MOV    A,@R0
    MOV    B,#0AH
    PUSH    PSW
    MUL    AB
    POP    PSW
    ADDC    A,R1
    MOV    @R0,A
    MOV    R1,B
    INC    R0
    DJNZ    R2,NPBD1
    MOV    A,R1
    ADDC    A,#00H
    MOV    R1,A
    MOV    A,R6
    MOV    R2,A
    MOV    A,R5
    MOV    R0,A
NPBD2:    MOV    A,@R0
    SWAP    A
    MOV    @R0,A
    XCH    A,R1
    XCHD    A,@R0
    INC    R0
    DJNZ    R2,NPBD2
    DJNZ    R3,NPBD3
    RET