justify"> PORTA SCANB B'11110111 ' PORTA SCANB B'11011111 ' PORTA
CALL SCANB A1
; ***************************************** ***********
; п/програма визначення числа, що вводиться
SCANB PORTB, W STATUS, Z PORTB, 4 B4 PORTB, 5 B5 PORTB, 6 B6 PORTB, 7 B7
TEMP H'0B ' STATUS, Z A2 STATUS, C NUMBER TEMP, W H'0B ' STATUS, C COMMAND
COMF PORTB, W STATUS, Z A2
PORTA, 0 H'07 ' PORTA, 1 H'08 ' PORTA, 2 H'09' PORTA, 0 H'04 ' PORTA, 1 H'05' PORTA, 2 H'06 ' PORTA, 0 H'01 ' PORTA, 1 H'02' PORTA, 2 H'03 ' PORTA, 3 H' 26 '; мінус PORTA, 0 H'00' PORTA, 1 H'2A ' PORTA, 3 H'2E' PORTA, 5 EQUEL H'0B '
; ***************************************** ***********
; п/п натиснутою цифри COUNT COUNT, W H'04 '
