ify"> push 7 637 025D C0 E0
push acc 638 025F
639 025F
640
; Налаштування на старший байт 641 025F E8
mov a, r0 642 0260 24 лютого
add a, # 2 643 0262 F8
mov r0, a 644
645
; Зрушення числа побайтно від старшого до молодшого 646 0263 7F 03
mov r7, # 3 647 0265
RR: 648 0265 E6
mov a, @ r0 649 0266 13
rrc a 650 0267 F6
mov @ r0, a 651 0268 18
dec r0 652 0269 DF FA
djnz r7, RR 653 026B
654 026B D0 E0
pop acc 655 026D D0 07
pop 7 656 026F D0 00
pop 0 657 0271 22
ret 658
; 659 0272
660
661 0272
662
; Процедура складання трехбайтних чісел663
; Вхід: 664
; R0-вказівник на перший доданок 665
; R1-покажчик на другий доданок 666
; Вихід: 667
; R0-вказівник на суму 668
; C-перенесення 669
; 670 0272
671 0272
ADD_3B: 672 0272 C0 00
push 0 673 0274 C0 01
push 1 674 0276 C0 07
push 7 675 0278 C0 E0
push acc 676 027A
677
; Попереднє очищення прапора C 678 027A C3
clr c 679 027B 7F 03
mov R7, # 3; число байт в числі 680 027D
681
; Додавання числа побайтно з використанням прапора перенесення 682 027D
ADD: 683 027D E6
mov a, @ R0 684 027E 37
addc a, @ R1 685 027F F6
mov @ R0, a 686 0280
687 0280 08
inc R0 688 0281 09
inc R1 689 0282 DF F9
djnz r7, ADD 690 0284
691 0284 D0 E0
pop acc 692 0286 D0 07
pop 7 693 0288 D0 01
pop 1694 028A D0 00
pop 0695 028C 22
ret 696
; 697 028D
698
699
; Процедура віднімання трехбайтних чісел700
; Вхід: 701
; R0-вказівник на зменшуване 702
