Kod: Zaznacz cały
mov 32H,#00H ;mlodsza polowka 8192
mov 33H,#20H
mov 34H,#0A7H
mov 35H,#02DH
mov A,32H ;mnozenie 00H i A7H
mov B,34H
mul AB
mov R0,A
mov R1,B ;wynik w R1=high R0=low
mov A,34H
mov B,33H ;mnozenie A7 i 20H
mul AB
mov R2,A
mov R3,B ;wynik R2=low i R3 = high
mov A,35H
mov B,32H
mul AB
mov R4,A
mov R5,B
mov A,35H
mov B,33H
mul AB
mov R6,A
mov R7,B
Kod: Zaznacz cały
;====================================================================
; MNOZENIE_2_2 mnożenie 2bajty x 2bajty bez znaku
;
; wejście: R1, R0 = mnożna (x) (R0 młodszy bajt)
; R3, R2 = mnożnik (y) (R2 młodszy bajt)
;
; wyjście: R3, R2, R1, R0 =wynik mnożenia (R3 najstarszy bajt)
;
; zmienia: ACC, C
;====================================================================
MNOZENIE_2_2:
PUSH B
PUSH DPL
MOV A,R0
MOV B,R2
MUL AB ; mnożenie xL x yL
PUSH ACC ; wynik na stos (low byte)
PUSH B ; wynik na stos (high byte)
MOV A,R0
MOV B,R3
MUL AB ; mnożenie xL x yH
POP 00H
ADD A,R0
MOV R0,A
CLR A
ADDC A,B
MOV DPL,A
MOV A,R2
MOV B,R1
MUL AB ; mnożenie xH x yL
ADD A,R0
MOV R0,A
MOV A,DPL
ADDC A,B
MOV DPL,A
CLR A
ADDC A,#0
PUSH ACC ; zachowaj pośrednie przeniesienie
MOV A,R3
MOV B,R1
MUL AB ; mnożenie xH x yH
ADD A,DPL
MOV R2,A
POP ACC ; pobierz przeniesienie
ADDC A,B
MOV R3,A
MOV R1,00H
POP 00H ; retrieve result low byte
POP DPL
POP B
RET
;====================================================================