еандру (1000Гц), у разі якщо дані довго не приходять дані 343 0152 B2 A0
cpl p2.0 344 0154 80 0A
sjmp endbell; генерація меандру в разі аварії має вищий пріоритет 345 0156
346
; Сигнал виходу температури за задані межі 347 007D
delaybit: equ 125; допоміжний біт 348 0156
349 0156
LimitErr: 350 0156 30 7C 4C
jnb errtemp, exitin 351
; Генерація меандру 500Гц. Інверсія біта в порту проводиться через раз 352 0159 B2 7D
cpl delaybit 353 015B 30 7D 47
jnb delaybit, exitin 354 015E B2 A0
cpl p2.0 355 0160
356 0160
357 0160
endbell: 358 0160 C3
clr c 359 0161 05 48
inc soundgenl 360 0163
361 0163 E5 49
mov a, soundgenh 362 0165 34 00
addc a, # 0 363 0167 F5 49
mov soundgenh, a 364 0169
365 0169 30 77 1E
jnb notsound, p3_second 366 016C
367
; Перевірка на витікання 5 хвилин 368 016C
p5_minutes: 369 016C C3
clr c 370 016D E5 48
mov a, soundgenl 371 016F 94 70
subb a, # <6000 372 0171 70 32
jnz exitin 373 0173
374 0173 E5 49
mov a, soundgenh 375 0175 94 17
subb a, #> 6000 376 0177 70 2C
jnz exitin 377 0179
378
; Обнулити лічильник мілісекунд 379 0179 75 48 00
mov soundgenl, # 0380 017C 75 49 00
mov soundgenh, # 0381 017F
382
; Додати до лічильника хвилин 1383 017F 05 62
inc minutes 384 0181 E5 62
mov a, minutes 385 0183 B4 05 1F
cjne a, # 5, exitin 386 0186
387
; Минуло 5 хвилин потрібно повторити застережливий сигнал 388 0186 C2 77
clr notsound 389 0188 80 1B
sjmp exitin 390 018A
391
; Перевірка скінчився чи проміжок генерації звуку 3 c. 392 018A
p3_second: 393 018A C3
clr c 394 018B E5 48
mov a, soundgenl 395 018D 94 2C
subb a, # <300 396 018F 70 14
jnz exitin 397 0191
398 0191 C3
clr c 3...
