fy">; R1-покажчик на від'ємник 703
; Вихід: 704
; R0-вказівник на різницю 705
; C-позику 706
; 707 028D
708 028D
SUB_3B: 709 028D C0 00
push 0710 028F C0 01
push 1 711 0291 C0 07
push 7 712 0293 C0 E0
push acc 713 0295
714
; Попереднє обнулення прапора перенесення 715 0295 C3
clr c 716 0296
717 0296 7F 03
mov r7, # 3 718 0298
719
; Реалізація віднімання 720 0298
SUB: 721 0298 E6
mov a, @ R0 722 0299 ​​97
subb a, @ R1 723 029A F6
mov @ R0, a 724 029B
725 029B 08
inc r0 726 029C 09
inc r1 727 029D DF F9
djnz r7, SUB 728 029F
729 029F D0 E0
pop acc 730 02A1 D0 07
pop 7 731 02A3 D0 01
pop 1732 02A5 D0 00
pop 0733 02A7 22
ret 734
; 735 02A8
736
737
; Процедура поділу трехбайтних чисел 738
; Вхід: 739
; R0-вказівник на ділене 740
; R1-вказівник на дільник 741
; Вихід: 742
; R0-вказівник на приватне 743
; R1-вказівник на залишок 744
; 745 02A8
746 02A8
DIV_3B: 747 0070
Remain: equ 70h; проміжний залишок 748 0073
REZ: equ 73h; осередок для тимчасового зберігання результату 749 02A8 C0 E0
push acc 750 02AA C0 07
push 7751 02AC
752 02AC C0 00
push 0753 02AE C0 01
push 1754 02B0
755
; Початкова ініціалізація проміжного залишку 756 02B0 78 70
mov R0, # Remain 757 02B2 79 73
mov r1, # REZ 758 02B4
759 02B4 7F 03
mov r7, # 3 760 02B6
init: 761 02B6 76 00
mov @ R0, # 0 762 02B8 77 00
mov @ R1, # 0763 02BA 08
inc R0 764 02BB 09
inc r1 765 02BC DF F8
djnz r7, init 766 02BE
767 02BE D0 01
