ORG   0000H
                 LJMP  MULN
                 
;------------------------------------------------------------------------------------------------
                 MULN:    LCALL    NZN
                          RLC      A
                          RLC      A
                          MOV      R3,A
                 MULN1:   MOV      A,R5
                          MOV      R0,A
                          CLR      C
                          LCALL    RLCN
                          JNC      MULN2
                          LCALL    ADDN
                 MULN2:   DJNZ     R3,MULN1
                 N1N:     MOV      A,R1
                          ADD      A,R7
                          MOV      RO,A
                          MOV      A,R7
                          CLR      C
                          RRC      A
                          MOV      R7,A
                          MOV      R2,A
                          ADD      A,R1
                          MOV      R1,A
                 MULN3:   DEC      R0
                          DEC      R1
                          MOV      A,@RO
                          MOV      @R1,A
                          DJNZ     R2,MULN3
                          MOV      A,R5
                          MOV      RO,A
                          RET
                          
         ; ----------------------------------------------                
                 DIVN:    LCALL    DIV0
                          JC       DIVN1
                          SETB     OV
                          RET

          
                 DIVN1:   MOV      A,RO
                          MOV      R4,A
                          ADD      A,R7
                          MOV      R5,A
                          MOV      A,R7
                          MOV      B,#08H
                          MUL      AB
                          MOV      R3,A
                 DIVN4:   LCALL    DIVN8
                          JC       DIVN5
                          LCALL    ADDN
                          CLR      C
                 DIVN5:   MOV      A,R5
                          MOV      RO,A
                          LCALL    RLCN
                          DJNZ     R3,DIVN4
                          LCALL    DIVN8
                          JNC      DIVN6
                          MOV      A,R5
                          MOV      RO,A
                          LCALL    INCN
                 DIVN6:   MOV      A,R1
                          PUSH     ACC
                          MOV      A,R7
                          MOV      R2,A
                          ADD      A,R4
                          MOV      RO,A
                          ADD      A,R7
                          MOV      R1,A
                 DIVN7:   DEC      RO
                          DEC      R
                          MOV      A,@R1
                          MOV      @RO,A
                          DJNZ     R2,DIVN7
                          POP      ACC
                          MOV      R1,A
                          CLR      OV
                          REL
                         
                 DIVN8:   MOV      A,R4
                          MOV      R0,A
                          CLR      C
                          LCALL    RLCN
                          MOV      2FH.4,C
                          LCALL    SUBN
                          ANL      C,/2FH.4
                          CPL      C
                          RET


   ;--------------------------------------------------------------------------------------