49865 (Устройство управления электроплитой), страница 4

0058 e02f 97 08 STAA POWER2

0059 e031 39 RTS

0060

0061 e032 b6 10 25 PROV_TOF LDAA TFLG2 *равен ли TOF единице

0062 e035 84 80 ANDA #%10000000 *если да то сброс

0063 e037 26 46 BNE SBROS_TOF

0064 e039 b6 10 03 KNOPKI LDAA PORTC

0065 e03c 84 01 ANDA #%00000001 *проверка нажатия кнопки "1"

0066 e03e 26 46 BNE KNOPKA_1

0067 e040 b6 10 03 LDAA PORTC

0068 e043 84 02 ANDA #%00000010 *проверка нажатия кнопки "2"

0069 e045 26 3f BNE KNOPKA_1

0070 e047 b6 10 03 LDAA PORTC

0071 e04a 84 04 ANDA #%00000100 *проверка нажатия кнопки "Время"

0072 e04c 26 4e BNE KNOPKA_VREMYA

0073 e04e b6 10 03 LDAA PORTC

0074 e051 84 08 ANDA #%00001000 *проверка нажатия кнопки "Мощность"

0075 e053 26 4f BNE KNOPKA_POWER

0076 e055 b6 10 03 LDAA PORTC

0077 e058 84 10 ANDA #%00010000 *проверка нажатия кнопки "+"

0078 e05a 26 50 BNE KNOPKA_PLYUS

0079 e05c b6 10 03 LDAA PORTC

0080 e05f 84 20 ANDA #%00100000 *проверка нажатия кнопки "-"

0081 e061 26 fe BNE KNOPKA_MINUS

0082 e063 b6 10 03 LDAA PORTC

0083 e066 84 40 ANDA #%01000000 *проверка нажатия кнопки "Старт"

0084 e068 26 fe BNE KNOPKA_PUSK

0085 e06a b6 10 03 LDAA PORTC

0086 e06d 84 80 ANDA #%10000000 *проверка нажатия кнопки "Стоп"

0087 e06f 26 fe BNE KNOPKA_STOP

0088 e071 96 00 LDAA MY_CONFIG

0089 e073 84 04 ANDA #%00000100 *проверка работы конфорки 1

0090 e075 26 fe BNE RAB_KON1

0091 e077 96 00 PROV_KON2 LDAA MY_CONFIG

0092 e079 84 08 ANDA #%00001000 *проверка работы конфорки 2

0093 e07b 26 fe BNE RAB_KON2

0094 e07d 20 b3 BRA PROV_TOF

0095

0096

0097 e07f b6 10 25 SBROS_TOF LDAA TFLG2 *сброс TOF в 0

0098 e082 8a 80 ORAA #%10000000

0099 e084 20 b3 BRA KNOPKI

0100

0101

0102

0103

0104 e086 96 00 KNOPKA_1 LDAA MY_CONFIG *режим установка конфорки1

0105 e088 84 fe ANDA #%11111110

0106 e08a 97 00 STAA MY_CONFIG

0107 e08c bd e2 34 JSR VYVOD_VRiPOW *вывод на индикаторы

0108 e08f 20 a8 BRA KNOPKI

0109

0110 e091 96 00 KNOPKA_2 LDAA MY_CONFIG *режим установка конфорки 2

0111 e093 8a 01 ORAA #%00000001

0112 e095 97 00 STAA MY_CONFIG

0113 e097 bd e2 34 JSR VYVOD_VRiPOW *вывод на индикаторы

0114 e09a 20 9d BRA KNOPKI

0115

0116 e09c 96 00 KNOPKA_VREMYA LDAA MY_CONFIG *режим установка времени

0117 e09e 84 fd ANDA #%11111101

0118 e0a0 97 00 STAA MY_CONFIG

0119 e0a2 20 95 BRA KNOPKI

0120

0121 e0a4 96 00 KNOPKA_POWER LDAA MY_CONFIG *режим установка мощности

0122 e0a6 8a 02 ORAA #%00000010

0123 e0a8 97 00 STAA MY_CONFIG

0124 e0aa 20 8d BRA KNOPKI

0125

0126 e0ac 96 00 KNOPKA_PLYUS LDAA MY_CONFIG

0127 e0ae 84 01 ANDA #%00000001 *проверка режима установки конфорки

0128 e0b0 26 26 BNE KON22

0129

0130 e0b2 96 00 KON11 LDAA MY_CONFIG

0131 e0b4 84 02 ANDA #%00000010 *режим установка конфорки 1

0132 e0b6 26 10 BNE POWER_KON1 *проверка режима установки времени

0133

0134 e0b8 96 01 LDAA VREMYA1 *режим установка времени

0135 e0ba 8b 01 ADDA #1 *VREMYA1+1

0136 e0bc 97 01 STAA VREMYA1

0137 e0be 80 06 SUBA #6 *если VREMYA1>5, то устанавливаем VREMYA1=5

0138 e0c0 26 3a BNE END_PLYUS

0139 e0c2 86 05 LDAA #5

0140 e0c4 97 01 STAA VREMYA1

0141 e0c6 20 34 BRA END_PLYUS

0142

0143 e0c8 96 07 POWER_KON1 LDAA POWER1 *режим установка мощности

0144 e0ca 8b 01 ADDA #1 *POWER1+1

0145 e0cc 97 07 STAA POWER1 *если POWER1>5, то

0146 e0ce 80 06 SUBA #6 *устанавливаем POWER1=5

0147 e0d0 26 2a BNE END_PLYUS

0148 e0d2 86 05 LDAA #5

0149 e0d4 97 07 STAA POWER1

0150 e0d6 20 24 BRA END_PLYUS

0151

0152 e0d8 96 00 KON22 LDAA MY_CONFIG *режим установка конфорки 2

0153 e0da 84 02 ANDA #%00000010

0154 e0dc 26 10 BNE POWER_KON2 *проверка режима установки времени

0155

0156 e0de 96 02 LDAA VREMYA2 *режим установка времени

0157 e0e0 8b 01 ADDA #1 *VREMYA2+1

0158 e0e2 97 02 STAA VREMYA2

0159 e0e4 80 06 SUBA #6 *если VREMYA2>5, то устанавливаем VREMYA2=5

0160 e0e6 26 14 BNE END_PLYUS

0161 e0e8 86 05 LDAA #5

0162 e0ea 97 02 STAA VREMYA2

0163 e0ec 20 0e BRA END_PLYUS

0164

0165 e0ee 96 08 POWER_KON2 LDAA POWER2 *режим установка мощности

0166 e0f0 8b 01 ADDA #1 *POWER2+1

0167 e0f2 97 08 STAA POWER2

0168 e0f4 80 06 SUBA #6 *если POWER2>5, то

0169 e0f6 26 04 BNE END_PLYUS *устанавливаем POWER2=5

0170 e0f8 86 05 LDAA #5

0171 e0fa 97 08 STAA POWER2

0172

0173 e0fc bd e2 34 END_PLYUS JSR VYVOD_VRiPOW *вывод на индикаторы

0174 e0ff 20 fe BRA KNOPKI

0175

0176 e101 96 00 KNOPKA_MINUS LDAA MY_CONFIG

0177 e103 84 01 ANDA #%00000001 *проверка режима установки конфорки

0178 e105 26 22 BNE KON222

0179

0180 e107 96 00 KON111 LDAA MY_CONFIG *режим установка конфорки 1

0181 e109 84 02 ANDA #%00000010

0182 e10b 26 0e BNE POWER_KON11 *проверка режима установки времени

0183

0184 e10d 96 01 LDAA VREMYA1 *режим установка времени

0185 e10f 80 01 SUBA #1 *VREMYA1-1

0186 e111 97 01 STAA VREMYA1

0187 e113 26 34 BNE END_MINUS

0188 e115 86 01 LDAA #1 *если VREMYA1<1, то устанавливаем VREMYA1=1

0189 e117 97 01 STAA VREMYA1

0190 e119 20 2e BRA END_MINUS

0191

0192 e11b 96 07 POWER_KON11 LDAA POWER1 *режим установка

мощности

0193 e11d 80 01 SUBA #1 *POWER1-1

0194 e11f 97 07 STAA POWER1

0195 e121 26 26 BNE END_MINUS *если POWER1<1, то

0196 e123 86 01 LDAA #1 *устанавливаем POWER1=1

0197 e125 97 07 STAA POWER1

0198 e127 20 20 BRA END_MINUS

0199

0200 e129 96 00 KON222 LDAA MY_CONFIG *режим установка конфорки 2

0201 e12b 84 02 ANDA #%00000010

0202 e12d 26 0e BNE POWER_KON22 *проверка режима установки времени

0203

0204 e12f 96 02 LDAA VREMYA2 *режим установка времени

0205 e131 80 01 SUBA #1 *VREMYA2-1

0206 e133 97 02 STAA VREMYA2

0207 e135 26 12 BNE END_MINUS

0208 e137 86 01 LDAA #1 *если VREMYA2<1, то устанавливаем VREMYA2=1

0209 e139 97 02 STAA VREMYA2

0210 e13b 20 0c BRA END_MINUS

0211

0212 e13d 96 08 POWER_KON22 LDAA POWER2 *режим установка мощности

0213 e13f 80 01 SUBA #1 *POWER2-1

0214 e141 97 08 STAA POWER2

0215 e143 26 04 BNE END_MINUS *если POWER2<1, то

0216 e145 86 01 LDAA #1 * устанавливаем POWER2=1

0217 e147 97 08 STAA POWER2

0218

0219 e149 bd e2 34 END_MINUS JSR VYVOD_VRiPOW *вывод на индикаторы

0220 e14c 20 fe BRA KNOPKI

0221

0222

0223 e14e 96 00 KNOPKA_PUSK LDAA MY_CONFIG *проверка режима установки конфорки

0224 e150 84 01 ANDA #%00000001

0225 e152 26 29 BNE VKL_KON2

0226

0227 e154 86 73 VKL_KON1 LDAA #115 *режим установка конфорки 1

0228 e156 97 0b STAA TIME1 *записываем в TIME1 115(115*0,524=60с)

0229 e158 96 0e LDAA PORTDD *включаем конфорку 1 на заданную мощность

0230 e15a 84 10 ANDA #%00010000

0231 e15c 9b 07 ADDA POWER1

0232 e15e 8b 08 ADDA #%00001000

0233 e160 b7 10 08 STAA PORTD

0234 e163 97 0e STAA PORTDD

0235 e165 96 0d LDAA PORTBB

0236 e167 8a 04 ORAA #%00000100

0237 e169 b7 10 04 STAA PORTB *включаем светодиод1

0238 e16c 97 0d STAA PORTBB

0239 e16e 96 01 LDAA VREMYA1 *переводим время из

0240 e170 c6 0a LDAB #10 *режима в минуты

0241 e172 3d MUL

0242 e173 97 03 STAA VR1

0243 e175 96 00 LDAA MY_CONFIG *устанавливаем, что конфорка 1 работает

0244 e177 8a 04 ORAA #%00000100

0245 e179 97 00 STAA MY_CONFIG

0246 e17b 20 fe BRA KNOPKI

0247

0248 e17d 86 73 VKL_KON2 LDAA #115 *режим установка конфорки 2

0249 e17f 97 0c STAA TIME2 *записываем в TIME1 115(115*0,524=60с)

0250 e181 96 0e LDAA PORTDD *включаем конфорку 2 на заданную мощность

0251 e183 84 08 ANDA #%00001000

0252 e185 9b 08 ADDA POWER2

0253 e187 8b 10 ADDA #%00010000

0254 e189 b7 10 08 STAA PORTD

0255 e18c 97 0e STAA PORTDD

0256 e18e 96 0d LDAA PORTBB *включаем светодиод2

0257 e190 8a 08 ORAA #%00001000

0258 e192 b7 10 04 STAA PORTB

0259 e195 b7 10 04 STAA PORTB

0260 e198 96 02 LDAA VREMYA2 *переводим время из

0261 e19a c6 0a LDAB #10 *режима в минуты

0262 e19c 3d MUL

0263 e19d 97 04 STAA VR2

0264 e19f 96 00 LDAA MY_CONFIG *устанавливаем, что конфорка 2 работает

0265 e1a1 8a 08 ORAA #%00001000

0266 e1a3 97 00 STAA MY_CONFIG

0267 e1a5 bd e2 34 JSR VYVOD_VRiPOW *вывод на индикаторы

0268 e1a8 20 fe BRA KNOPKI

0269

0270

0271 e1aa 96 00 KNOPKA_STOP LDAA MY_CONFIG *проверка режима установки конфорки

0272 e1ac 84 01 ANDA #%00000001

0273 e1ae 26 29 BNE VYKL_KON2

0274

0275 e1b0 96 0d VYKL_KON1 LDAA PORTBB *режим установка конфорки 1

0276 e1b2 8a 10 ORAA #%00010000 *включаем зуммер

0277 e1b4 b7 10 04 STAA PORTB

0278 e1b7 97 0d STAA PORTBB

0279 e1b9 86 01 LDAA #1

0280 e1bb 97 01 STAA VREMYA1 *сброс VREMYA1

0281 e1bd 97 07 STAA POWER1 *сброс POWER1

0282 e1bf 96 0e LDAA PORTDD *выключаем конфорку 1

0283 e1c1 84 10 ANDA #%00010000

0284 e1c3 b7 10 08 STAA PORTD

0285 e1c6 97 0e STAA PORTDD

0286 e1c8 96 00 LDAA MY_CONFIG *устанавливаем, что конфорка 1

0287 e1ca 84 fb ANDA #%11111011 *не работает

0288 e1cc 97 00 STAA MY_CONFIG

0289 e1ce 96 0d LDAA PORTBB *выключаем зуммер и

светодиод 1

0290 e1d0 84 eb ANDA #%11101011

0291 e1d2 b7 10 04 STAA PORTB

0292 e1d5 97 0d STAA PORTBB

0293 e1d7 20 fe BRA KNOPKI

0294

0295 e1d9 96 0d VYKL_KON2 LDAA PORTBB *режим установка конфорки 2

0296 e1db 8a 10 ORAA #%00010000 *включаем зуммер

0297 e1dd b7 10 04 STAA PORTB

0298 e1e0 97 0d STAA PORTBB

0299 e1e2 86 01 LDAA #1

0300 e1e4 97 02 STAA VREMYA2 *сброс VREMYA2

0301 e1e6 97 08 STAA POWER2 *сброс POWER2

0302 e1e8 96 0e LDAA PORTDD *выключаем конфорку 2

0303 e1ea 84 08 ANDA #%00001000

0304 e1ec b7 10 08 STAA PORTD

0305 e1ef 97 0e STAA PORTDD

0306 e1f1 96 00 LDAA MY_CONFIG *устанавливаем, что конфорка 2

0307 e1f3 84 f7 ANDA #%11110111 *не работает

0308 e1f5 97 00 STAA MY_CONFIG

0309 e1f7 96 0d LDAA PORTBB *выключаем зуммер и светодиод 2

0310 e1f9 84 eb ANDA #%11101011

0311 e1fb b7 10 04 STAA PORTB

0312 e1fe 97 0d STAA PORTBB

0313 e200 20 fe BRA KNOPKI

0314

0315

0316 e202 b6 10 25 RAB_KON1 LDAA TFLG2 *конфорка 1 работает

0317 e205 84 80 ANDA #%10000000 *проверяем прошло ли 0,5с(TOF=1)

0318 e207 27 fe BEQ PROV_KON2 *если да, то

0319 e209 96 0b LDAA TIME1

0320 e20b 80 01 SUBA #1

0321 e20d 97 0b STAA TIME1 *TIME1=TIME1-1

0322 e20f 26 fe BNE PROV_KON2 *если TIME1=0,то

0323 e211 96 03 LDAA VR1 *VR1=VR1-1

0324 e213 80 01 SUBA #1

0325 e215 97 03 STAA VR1 *если время вышло, то переходим к выключению конфорки 1

0326 e217 26 fe BNE PROV_KON2 *если нет, то – к проверки RAB_KON2

0327 e219 20 95 BRA VYKL_KON1

0328

0329 e21b b6 10 25 RAB_KON2 LDAA TFLG2 *конфорка 2 работает

0330 e21e 84 80 ANDA #%10000000 *проверяем прошло ли 0,5с(TOF=1)

0331 e220 27 fe BEQ PROV_TOF *если да, то

0332 e222 96 0c LDAA TIME2

0333 e224 80 01 SUBA #1

0334 e226 97 0c STAA TIME2 *TIME2=TIME2-1

0335 e228 26 fe BNE PROV_TOF *если TIME2=0,то

0336 e22a 96 04 LDAA VR2 *VR2=VR2-1

0337 e22c 80 01 SUBA #1

0338 e22e 97 04 STAA VR2 *если время вышло, то переходим к выключению конфорки 2

0339 e230 26 fe BNE PROV_TOF *если нет, то – к проверки PROV_TOF

0340 e232 20 fe BRA VYKL_KON2

0341

0342 e234 96 00 VYVOD_VRiPOW LDAA MY_CONFIG *проверка режима установки конфорки

0343 e236 84 01 ANDA #%00000001

0344 e238 26 30 BNE KON2

0345

0346 e23a 96 01 KON1 LDAA VREMYA1 *режим установка конфорки 1

0347 e23c bd e2 a1 JSR PEREVOD *переводим VREMYA1 и POWER1 в семисегментный код

0348 e23f d7 05 STAB VR_SK1

0349 e241 96 07 LDAA POWER1

0350 e243 bd e2 a1 JSR PEREVOD

0351 e246 d7 09 STAB POWER_SK1

0352

0353 e248 96 0d LDAA PORTBB *подаем стартовую еденицу

0354 e24a 8a 02 ORAA #%00000010

0355 e24c b7 10 04 STAA PORTB

0356 e24f 97 0d STAA PORTBB

0357 e251 84 fd ANDA #%11111101

0358 e253 b7 10 04 STAA PORTB

0359 e256 97 0d STAA PORTBB

0360

0361 e258 96 05 LDAA VR_SK1 *выводим на индикатор время

0362 e25a ce 00 08 LDX #8

0363 e25d bd e2 c5 JSR VVOD

0364 e260 96 09 LDAA POWER_SK1 *и мощность

0365 e262 ce 00 08 LDX #8

0366 e265 bd e2 c5 JSR VVOD

0367 e268 20 2e BRA END_VYVOD

0368

0369 e26a 96 02 KON2 LDAA VREMYA2 *режим установка конфорки 2

0370 e26c bd e2 a1 JSR PEREVOD *переводим VREMYA2 и POWER2 в семисегментный код

0371 e26f d7 06 STAB VR_SK2

0372 e271 96 08 LDAA POWER2

0373 e273 bd e2 a1 JSR PEREVOD

0374 e276 d7 0a STAB POWER_SK2

0375

0376 e278 96 0d LDAA PORTBB *подаем стартовую единицу

0377 e27a 8a 02 ORAA #%00000010

0378 e27c b7 10 04 STAA PORTB

0379 e27f 97 0d STAA PORTBB

0380 e281 84 fd ANDA #%11111101

0381 e283 b7 10 04 STAA PORTB

0382 e286 97 0d STAA PORTBB

0383

0384 e288 96 06 LDAA VR_SK2 *выводим на индикатор время

0385 e28a ce 00 08 LDX #8

0386 e28d bd e2 c5 JSR VVOD

0387 e290 96 0a LDAA POWER_SK2 *и мощность

0388 e292 ce 00 08 LDX #8

0389 e295 bd e2 c5 JSR VVOD

0390

0391 e298 86 00 END_VYVOD LDAA #0 *на остальные индикаторы ничего не выводим

0392 e29a ce 00 13 LDX #19

0393 e29d bd e2 c5 JSR VVOD

0394 e2a0 39 RTS

0395

0396 e2a1 4a PEREVOD DECA *проверяем число и

0397 e2a2 27 0c BEQ N1 *в соответствии с его

0398 e2a4 4a DECA *значением сохраняем

0399 e2a5 27 0d BEQ N2 *семисегментный код

0400 e2a7 4a DECA

0401 e2a8 27 0e BEQ N3

0402 e2aa 4a DECA

0403 e2ab 27 0f BEQ N4

0404 e2ad 4a DECA

0405 e2ae 27 10 BEQ N5

0406 e2b0 c6 06 N1 LDAB #%00000110

0407 e2b2 20 10 BRA END_PEREV

0408 e2b4 c6 5b N2 LDAB #%01011011

0409 e2b6 20 0c BRA END_PEREV

0410 e2b8 c6 4f N3 LDAB #%01001111

0411 e2ba 20 08 BRA END_PEREV

0412 e2bc c6 66 N4 LDAB #%01100110

0413 e2be 20 04 BRA END_PEREV

0414 e2c0 c6 6d N5 LDAB #%01101101

0415 e2c2 20 00 BRA END_PEREV

0416 e2c4 39 END_PEREV RTS

0417

0418 e2c5 16 VVOD TAB *выводим заданную цифру на индикатор

0419 e2c6 c4 01 ANDB #%00000001

0420 e2c8 d7 0f STAB X1

0421 e2ca d6 0d LDAB PORTBB

0422 e2cc c4 fe ANDB #%11111110

0423 e2ce d7 0d STAB PORTBB

0424 e2d0 db 0f ADDB X1

0425 e2d2 f7 10 04 STAB PORTB

0426 e2d5 d7 0d STAB PORTBB

0427 e2d7 ca 02 ORAB #%00000010

0428 e2d9 f7 10 04 STAB PORTB

0429 e2dc d7 0d STAB PORTBB

0430 e2de c4 fd ANDB #%11111101

0431 e2e0 f7 10 04 STAB PORTB

0432 e2e3 d7 0d STAB PORTBB

0433 e2e5 44 LSRA

0434 e2e6 09 DEX

0435 e2e7 26 dc BNE VVOD

0436 e2e9 39 RTS

0437

0438 fffe ORG $FFFE

0439 fffe e0 00 FDB start