gn="justify">; Для початку порівняємо старші байти, якщо вони отлічаються то подальше 515
; порівняння зайво 516 01FD 08
inc r0 517 01FE 09
inc r1 518 01FF
519 01FF 7F 02
mov r7, # 2; лічильник ітерацій циклу порівняння 520 0201
521 0201
test: 522 0201 C3
clr c 523 0202 E6
mov a, @ r0; байт поділеного дільника 524 0203 97
subb a, @ r1 525 0204 50 07
jnc testequ 526
; Дільник менше-від температури потрібно відняти 1 527 0206 D0 E0
pop acc 528 0208 14
dec a 529 0209 C0 E0
push acc 530 020B 80 0C
sjmp exitcalk 531 020D
532
; Перевірка на рівність байти 533 020D
testequ: 534 020D E6
mov a, @ r0 535 020E 87 F0
mov b, @ r1 536 0210 B5 F0 06
cjne a, b, exitcalk 537
; Перевіримо, які байти тестуються (старші або молодші) 538 0213 DF 04
djnz r7, exitcalk 539 0215
540
; Тестувалися старші байти 541
; Старші частини рівні, отже потрібно перевіряти молодші 542
; Налаштування покажчиків на молодші частини 543 0215 19
dec r1 544 0216 18
dec r0 545 0217 80 E8
sjmp test 546 0219
547 0219
548 0219
exitcalk: 549 0219 D0 E0
pop acc 550
; Якщо температура негативна переведемо число і додаткового коду 551
; в пряіой 552 021B 20 7A 02
jb pos, ex 553 021E 14
dec a 554 021F F4
cpl a 555
556 0220
ex: 557 0220 D0 07
pop 7 558 0222 D0 01
pop 1 559 0224 D0 00
pop 0 560 0226
561
; a-модуль температури 562 0226 22
ret 563
; 564 0227
565 0227
566
; Перевірка допустимості даної температури 567
; Вхід: a-чисельне значення температури 568
; 569 0227
testlimit: 570 0227 C0 E0
push acc 571 0229 C0 F0
push b 572 022B C3
clr c 573 022C
574...
