0
mov R0, # Remain 826 02F7
827 02F7 7F 03
mov r7, # 3828 02F9
copy2: 829 02F9 E6
mov a, @ r0 830 02FA F7
mov @ r1, a 831 02FB 09
inc r1 832 02FC 08
inc r0 833 02FD DF FA
djnz R7, copy2 834 02FF D0 01
pop 1 835 0301
836 0301 D0 00
pop 0 837 0303
838 0303 D0 07
pop 7 839 0305 D0 E0
pop acc 840 0307 22
ret 841
; 842
843 0308
844
; Процедура множення трехбайтних чисел 845
; Вхід: 846
; R0-вказівник на перший множник 847
; R1-вказівник на другий множник 848
; Вихід: 849
; R0-вказівник на твір (трехбайтное!) 850
; 851 0308
MUL_3B: 852 0070
Rezm: equ 70h; осередок для результату 853 0308 C0 E0
push acc 854 030A C0 07
push 7 855
856
; Попередній скидання біта переносу 857 030C C3
clr c 858 030D
859
; очиске осередку результатів 860 030D C0 00
push 0861 030F 78 70
mov r0, # Rezm 862 0311
863 0311 7F 03
mov r7, # 3864 0313
865
; Очищення осередку тимчасового зберігання результатів 866 0313
clear: 867 0313 76 00
mov @ r0, # 0868 0315 08
inc r0 869 0316 DF FB
djnz r7, clear 870 0318 D0 00
pop 0871 031A
872 031A 7F 18
mov r7, # 24; 24 біта в трехбайтном числі 873 031C
874 031C
MULT: 875
; Відправлення молодшого біта у бітовий акумулятор 876 031C C0 ​​00
push 0877 031E E9
mov a, r1 878 031F F8
mov r0, a 879 0320 51 59
call RRC_3B 880 0322 D0 00
pop 0 881 0324
882 0324 50 10
jnc noadds 883 0326 C0 00
push 0 884 0328 C0 01
push 1885 032A
886 032A C0 00
push 0887 032C D0 01
pop 1 888 032E 78 70
mov r0...
