p align="justify"> mov a, r4 123 007D F6
mov @ R0, a 124 007E 08
inc r0 125 007F 76 00
mov @ r0, # 0126 0081
127 0081 78 55
mov r0, # pause 128 0083 EF
mov a, r7 129 0084 F6
mov @ r0, a 130 0085 08
inc r0 131 0086 EE
mov a, r6 132 0087 F6
mov @ r0, a 133 0088 08
inc r0 134 0089 76 00
mov @ r0, # 0135
136
; Підрахуємо чисельне значення температури 137 008B 12 січня AD
call Calc_Temp 138 008E F5 50
mov Temper, a 139 0090
140 0090 12 27 лютого
call testlimit; перевірити входження поточного значення температури 141
; в задані межі 142 0093
143
; Переклад десяткового числа в BCD-код 144 0093 75 F0 0A
mov b, # 10 145 0096 84
div ab 146 0097 C4
swap a 147 0098 45 F0
orl a, b 148 009A
149
; Переведемо BCD-число в код семисегментний індикатора 150 009A
seg7code: 151 009A 78 44
mov r0, # indicat; адресу змінної для динамічної індикації 152 009C
153
; Для подальшого використання збережемо в стеку температуру в BCD-коді 154 009C C0 E0
push acc 155
156 009E 54 0F
anl a, # 00001111b 157 00A0
158
; призупинить динамічну індикацію 159 00A0 C2 7B
clr inden 160 00A2
161
; Вибірка з масиву коду, по зсуву соотв. кодованого числа 162 00A2 93
movc a, @ a + dptr 163 00A3 F6
mov @ r0, a 164 00A4 08
inc r0; молодший розряд 165 00A5
166
; Кодируем таким же чином старший розряд 167 00A5 D0 E0
pop acc 168 00A7 54 F0
anl a, # 11110000b 169 00A9 C4
swap a 170 00AA
171
; Оскільки це старший розряд числа, то має сенс гасіння нуля 172 00AA B4 00 04
cjne a, # 0, notguish 173 00AD 74 FF
mov a, # ffh; гасіння розряду 174 00AF 80 01
sjmp outind 175 00B1
176
; Розряд не нульовий - гасіння не потрібно 177 00B1
notguish: 178 00B1 93 ...
