, # Rezm 889 0330 51 72
call ADD_3B; результат поміщається за адресою Rezm 890 0332
891 0332 D0 01
pop 1 892 0334 D0 00
pop 0 893 0336
894 0336
noadds: 895 0336 C3
clr c; скидання прапора 896 0337 51 44
call RLC_3B; зсув першого множника 897 0339
898 0339
newiter: 899 0339 DF E1
djnz r7, MULT 900 033B
901
; Копіювання результату в осередку по вхідному адресою 902 033B 79 70
mov r1, # Rezm 903 033D
904 033D C0 00
push 0 905 033F 7F 03
mov r7, # 3906 0341
907 0341
copym: 908 0341 E7
mov a, @ r1 909 0342 F6
mov @ r0, a 910 0343 08
inc r0 911 0344 09
inc r1 912 0345 DF FA
djnz r7, copym 913 0347 D0 00
pop 0 914 0349
915 0349 D0 07
pop 7916 034B D0 E0
pop acc 917 034D 22
ret 918
; 919
920
921
; Коди семисегментний індикатора 922 034E
seg7ind: 923 034E C0
db C0h; 3fh; 0924 034F F9
db F9h; 06h; 1925 0350 A4
db A4h; 5bh; 2926 0351 B0
db B0h; 4fh; 3927 0352 99
db 99h; 66h; 4928 0353 92
db 92h; 6dh; 5 929 0354 82
db 82h; 7dh; 6930 0355 F8
db F8h; 07h; 7931 0356 80
db 80h; 7fh; 8 932 0357 90
db 90h; 6fh; 9 933
934 0358
FUCK: Lines Assembled: 934 Assembly Errors: 0
