01b, WENT2A, FLAG2F2E1FLAG2, # 1bE1: MOV FLAG2, # 0bENDUST: MOV P1, # 01110000bP1, # 01111000b, NEE1R5, # 1dP2, # 00110001bP0.7P0.7P2, # 11111111bPOPAL2: CJNE P1, # 01110100b, NEE2R5, # 2dP2, # 00110010bP0.7P0.7P2, # 11111111bPOPAL2: CJNE P1, # 01110010b, NEE3R5, # 3dP2, # 00110011bP0.7P0.7P2, # 11111111bPOPAL2: MOV P1, # 10110000bP1 , # 10111000b, NEE4R5, # 4dP2, # 00110100bP0.7P0.7P2, # 11111111bPOPAL2: CJNE P1, # 10110100b, NEE5R5, # 5dP2, # 00110101bP0.7P0.7P2, # 11111111bPOPAL2: CJNE P1, # 10110010b, NEE6R5, 6dP2, # 00110110bP0.7P0.7P2, # 11111111bPOPAL2: MOV P1, # 11010000bP1, # 11011000b, NEE7R5, # 7dP2, # 00110111bP0.7P0.7P2, # 11111111bPOPAL2: CJNE P1, # 11010100b, NEE8R5, # 8dP2, # 00111000bP0.7P0. 7P2, # 11111111bPOPAL2: CJNE P1, # 11010010, NEE9R5, # 9dP2, # 00111001bP0.7P0.7P2, # 11111111bPOPAL2: MOV P1, # 11100000bP1, # 11101000b, NEE0R5, # 0dP2, # 00110000bP0.7P0.7P2, # 11111111bPOPAL2: CJNE P1, # 11100100b, NEEPERROR_DPOINR; виклик П / П виведення помилки на; дисплей (двічі натиснута кнопка коми) ENDSKAN: CLR KBFWAIT: CJNE R4, # FFh, NOTPR6, R5: MOV P1, # 00010000bR2, P1R2, # 00010001b, WAIT2A, FLAG2F2E1_2FLAG2, # 1bE1_2: MOV FLAG2, # 0, bENDUST
; перехід по мітці означає що введена друга / третя цифра цілого числа
; уставки і треба сформувати нове число, тобто було A, СТАЛО AB (або було AB; СТАЛО ABC): MOV A, R7B, # 00001010bABB, R6ABR7, AR0R0, FROMR3: MOV P1, # 00010000bR2, P1R2, # 00010001b, WAIT3A, FLAG2F2E1_3FLAG2, # 1bE1_3: MOV FLAG2, # 0, bENDUST: LCALL SET_USTR0R0, # 6d, FROM3: MOV P1, # 11010000bR2, P1R2, # 11010001b, NORSTPCON; ПЕРЕЗАГРУЗКА МК (ЗБІР ПРАПОРА POF в регістрі PCON) PCON, 00010000bENDSKAN: MOV P1, # 11100000bR2, P1R2, # 11100010b, SKAN_PADCLR_DISP; виклик П / П очищення дисплея внаслідок; натискання кнопки CLR: USING 0KBF
; ===============================================
; П / П збереження уставок в пам'ять
; викликається 10 разів, кожного разу за викликом зберігає набір уставок (2 байта; r7. r6 уставки в пам'ять)
; вхідні змінні:
; r0 - лічильник вказує номер датчика, для якого вводиться В або Н; уставка
; flag2 - мінлива-прапор, якщо=0 то Н уставка, якщо=1 то В уставка
; вихідні змінні відсутні
; результат виконання ПП - дані в пам'яті
; =============================================== _UST: CJNE R0, # 1d, NOD1A, FLAG2NODL1 @ 0X67h, R7 @ 0X68h, R6: MOV @ 0X69h, R7 @ 0X70h, R6: CJNE R0, # 1d, NOD2A, FLAG2NODL2 @ 0X71h, R7 @ 0X72h, R6: MOV @ 0X73h, R7 @ 0X74h, R6: CJNE R0, # 1d, NOD3A, FLAG2NODL2 @ 0X75h, R7 @ 0X76h, R6: MOV @ 0X77h, R7 @ 0X78h, R6: CJNE R0, # 1d, NOD4A, FLAG2NODL2 @ 0X78h, R7 @ 0X79h, R6 : MOV @ 0X80h, R7 @ 0X81h, R6: MOV A, FLAG2NODL2 @ 0X78h, R7 @ 0X79h, R6: MOV @ 0X80h, R7 @ 0X81h, R6
; ================================================== ==
; П / П виведення на дисплей повідомлення «ERROR DOUBLE POINT»
; ================================================== == _DPOINT: USING 5P2, # 01000101b; EP0.7P0.7P2, # 11111111bP2, # 01010010b; RP0.7P0.7P2, # 11111111bP2, # 01010010b; RP0.7P0.7P2, # 11111111bP2, # 01000101b; OP0.7P0.7P2, # 11111111bP2, # 01000101b; RP0.7P0.7P2, # 11111111bP2, # 000000001b; PROB...
