L 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
WENT1: MOV P1, # 00010000bR2, P1R2, # 00010001b, WENT1FLAG1, # 0d
CLR KBFENDSKAN
; кнопка TEMP не натискати, отже скан натиснута-ли кнопка UST
NOTEMP: CLR R0R3, # 3d: CLR KBFP1, # 10110000bR2, P1R2, @ 10110001b, NOUST
; кнопка UST натиснута, скан клавіатури на прийом першої цифри уставки
; уставка у форматі ABC.D (3 цифри цілого і 1 цифра залишок)
P1: MOV P1, # 01110000bP1, # 01111000b, NE1R7, # 1dP2, # 00110001bP0.7P0.7P2, # 11111111bPOPAL: CJNE P1, # 01110100b, NE2R7, # 2dP2, # 00110010bP0.7P0. 7P2, # 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. 7P0.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, якщо кома
натиснута то
; введення цифри визначається як десятковий залишок уставки і далі
закінчення; прийому значення уставки.
WAIT: MOV P1, # 11100000b
MOV R2, P1R2, # 11100001b, 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.7P...
