; T2--BCD MULTIPLY
; M[10H]*M[11H]=>M[10H],M[11H]
; INPUT: M[10H]=33(BCD) 
;        M[11H]=11(BCD)
; OUTPUT:M[10H],M[11]=363(BCD)
;
       ORGD 10H ; DATA AREA
       DB 33H
       DB 11H
;
       ORG 00H ; PROGRAM AREA
       MOV R0,#10H
       MOV A,@R0
       MOV R1,A
       MOV R7,#03H
       CLR A
       MOV @R0,A
LOOP0: MOV R0,#10H
       XCHD A,@R0
       MOV R4,A
       MOV A,@R0
       RR A
       RR A
       RR A
       RR A
       MOV @R0,A
       INC R0
       MOV A,R4
       XCHD A,@R0
       MOV R2,A
       MOV A,@R0
       RR A
       RR A
       RR A
       RR A
       MOV @R0,A
       MOV A,R2
       JZ LOOP3
       DEC R0
       MOV A,@R0
       MOV R3,#00H
LOOP1: CLR C
       ADD A,R1
       DA A
       JNC LOOP2
       INC R3
LOOP2: DJNZ R2,LOOP1
       MOV @R0,A
       MOV A,R3
LOOP3: DJNZ R7,LOOP0
       END