иснута кома
; ================================================== === _PRER: 2FLAG1, # 0dFLAG2, # 0, d
; початок сканування клавіатури через порт Р1P1, # 01110000bR2, P1
; перевірка чи натиснута кнопка TEMPR2, # 01110001b, NOTEMP
; кнопка TEMP натиснута, перевірка яка кнопка (номер датчика) натиснута
; відповідно з цим запис в регістри r0-r3 даних про Nh і Nl щоб
; потім викликати П / П обчислення Tx: MOV R2, P1R2, # 01111000, NO1R0, @ 0X47h; adress high TH byte D1R1, @ 0X48h; adress high TL byte D1R2, @ 0X49h; adress low TH byte D1R3, @ 0X50h; adress low TL byte D1FLAG1, # 1dWENT1: CJNE R2, # 01110100, NO2R0, @ 0X51h; adress high TH byte D2R1, @ 0X52h; adress high TL byte D2R2, @ 0X53h; adress low TH byte D2R3, @ 0X54h; adress low TL byte D2FLAG1, # 2dWENT1: CJNE R2, # 01110010, NO3R0, @ 0X55h; adress high TH byte D3R1, @ 0X56h; adress high TL byte D3R2, @ 0X57h; adress low TH byte D3R3, @ 0X58h; adress low TL byte D3FLAG1, # 3dWENT1CJNE R2, # 10111000, NO4R0, @ 0X59h; adress high TH byte D4R1, @ 0X60h; adress high TL byte D4R2, @ 0X61h; adress low TH byte D4R3, @ 0X62h; adress low TL byte D4FLAG1, # 4d: CJNE R2, # 10110100, NO5R0, @ 0X63h; adress high TH byte D5R1, @ 0X64h; adress high TL byte D5R2, @ 0X65h; adress low TH byte D5R3, @ 0X66h; adress low TL byte D5FLAG1, # 5dWENT1: JMP D1
; очікування поки буде натиснута кнопка ENTER: MOV P1, # 00010000bR2, P1R2, # 00010001b, WENT1FLAG1, # 0dKBFENDSKAN
; кнопка TEMP не натискати, отже скан натиснута-ли кнопка UST: CLR R0R3, # 3d: CLR KBFP1, # 10110000bR2, P1R2, @ 10110001b, NOUST
; кнопка UST натиснута, скан клавіатури на прийом першої цифри уставки
; уставка у форматі ABC. D (3 цифри цілого і 1 цифра залишок): MOV P1, # 01110000bP1, # 01111000b, NE1R7, # 1dP2, # 00110001bP0.7P0.7P2, # 11111111bPOPAL: CJNE P1, # 01110100b, NE2R7, # 2dP2, # 00110010bP0.7P0 .7 P2, # 11111111bPOPAL: CJNE P1, # 01110010b, NE3R7, # 3dP2, # 00110011bP0.7P0.7P2, # 11111111bPOPAL: MOV P1, # 10110000bP1, # 10111000b, NE4R7, # 4dP2, # 00110100bP0.7P0.7P2, # 11111111bPOPAL : CJNE P1, # 10110100b, NE5R7, # 5dP2, # 00110101bP0.7P0.7P2, # 11111111bPOPAL: CJNE P1, # 10110010b, NE6R7, 6dP2, # 00110110bP0.7P0.7P2, # 11111111bPOPAL: MOV P1, # 11010000bP1, # 11011000b , NE7R7, # 7dP2, # 00110111bP0.7P0.7P2, # 11111111bPOPAL: CJNE P1, # 11010100b, NE8R7, # 8dP2, # 00111000bP0.7P0.7P2, # 11111111bPOPAL: CJNE P1, # 11010010, NE9R7, # 9dP2, # 00111001bP0 .7 P0.7P2, # 11111111bPOPAL: MOV P1, # 11100000bP1, # 11101000b, NE0R7, # 0dP2, # 00110000bP0.7P0.7P2, # 11111111bPOPAL: CJNE P1, # 11100100b, NEPR4, # FFh; ПРАПОР ЗАПЯТОЙP2, # 00101110bP0.7P0.7P2, # 11111111bPOPAL: JMP P1: DEC R3
; перша цифра уставки введена, очікування введення 2-й цифри цілого уставки
; або натискання кнопки ENT.
; якщо ще одна цифра уставки введена то очікування введення 3-й цифри цілого
; або кнопки ENT.
; натискання коми фіксується прапором-регістром R4, якщо кома натиснута то
; введення цифри визначається як десятковий залишок уставки і далі закінчення; прийому значення уставки.: MOV P1, # 11100000bR2, P1R2, # 111000...
