="justify"> pop 1768 02C0 D0 00
pop 0769 02C2
770
; Реалізація операції ділення 771 02C2 7F 18
mov r7, # 24; число бітів в операндах 772 02C4
DIVIDE: 773
; Зрушимо подільне вліво через прапор перенесення 774 02C4 51 44
call RLC_3B; R0-вказівник на результат (той же, що і вхідний) 775 02C6
776 02C6 C0 00
push 0777 02C8 78 70
mov r0, # Remain; адресу проміжного залишку 778 02CA 51 44
call RLC_3B; зсув залишку вліво з переносом 779 02CC
780
; Віднімемо із залишку дільник 781 02CC 51 8D
call SUB_3B 782 02CE 50 0A
jnc NOADD 783
784
; Збережемо прапор перенесення в стеку 785 02D0 65 E0
xrl a, a 786 02D2 33
rlc a 787 02D3 C0 E0
push acc 788 02D5
789
; Залишок негативний, необхідно його відновлення 790 02D5 51 72
call ADD_3B 791 02D7
792
; Відновлення прапора перенесення 793 02D7 D0 E0
pop acc 794 02D9 13
rrc a 795 02DA
796 02DA
NOADD: 797
; Сформуємо біт приватного 798 02DA B3
cpl c; інверсія прапора перенесення 799 02DB 78 73
mov R0, # REZ; завантаження адреси осередку результату 800 02DD 51 44
call RLC_3B; перенесення прапора C в клітинку результату 801 02DF D0 00
pop 0; відновлення в R0 адреси діленого 802 02E1
803 02E1 DF E1
djnz r7, DIVIDE 804 02E3
805
806
; Копіюємо результати по вхідним адресами 807 02E3 C0 00
push 0808 02E5 C0 01
push 1809 02E7 79 73
mov R1, # REZ 810 02E9
811 02E9 7F 03
mov R7, # 3h 812 02EB
813
; Копіювання приватного 814 02EB
copy1: 815 02EB E7
mov a, @ R1 816 02EC F6
mov @ r0, a 817 02ED 09
inc r1 818 02EE 08
inc r0 819 02EF DF FA
djnz R7, copy1 820
821 02F1 D0 01
pop 1 822 02F3
823
; Копіювання залишку 824 02F3 C0 01
push 1825 02F5 78 7...
