EDE5 [04] 6E4483 356 mov #$44,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
EDE8 [05] CDEEC1 357 jsr IND_RET
358
EDEB [04] C7FFFF 359 sta $ffff
EDEE [05] 4EA28F 360 mov pul,y ;Âûâîä ïóëüñà
EDF1 [05] CDEE85 361 jsr BCD_RET
EDF4 [04] 6E4D83 362 mov #$4d,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
EDF7 [05] CDEEC1 363 jsr IND_RET
EDFA [03] 2022 364 bra exitdav
365 rorm:
EDFC [04] 1501 366 bclr 2,PTB
EDFE [04] 1701 367 bclr 3,PTB
EE00 [04] 6E0103 368 mov #$1,PTD ;Î÷èñòêà äèñïëåÿ
EE03 [04] 6E1284 369 mov #!18,bcd100 ; "O"
EE06 [04] 6E1385 370 mov #!19,bcd10 ; "Ø"
EE09 [04] 6E0C86 371 mov #!12,bcd1 ; "È"
EE0C [04] 6E0583 372 mov #$5,adres
EE0F [05] CDEEC1 373 jsr IND_RET
EE12 [04] 6E1484 374 mov #!20,bcd100 ; "Á"
EE15 [04] 6E1585 375 mov #!21,bcd10 ; "Ê"
EE18 [04] 6E0E86 376 mov #!14,bcd1 ; "À"
EE1B [05] CDEEC1 377 jsr IND_RET
378 exitdav:
379
380 ;------ Ïðîâåðêà ñïóùåíà ìàíæåòà èëè íåò ---------
EE1E [04] C7FFFF 381 sta $ffff
EE21 [04] 1189 382 bclr 0,bitf
EE23 [04] 1789 383 bclr 3,bitf
EE25 [05] 0789FD 384 brclr 3,bitf,$ ;Åñëè COCO1=0 ïðîèñõîäèò çàöèêëåâàíèå
EE28 [03] B68B 385 lda upress
EE2A [02] A105 386 cmp #!5
EE2C [03] 22F0 387 bhi exitdav
EE2E [03] CCEC39 388 jmp main
389
390 ;------------------------------------------------;
391
392
393
394
395
396 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
397
398
399 ADC_INT: ; îáðàáîò÷èê ïðåðûâàíèÿ îò ÀÖÏ
EE31 [02] 8B 400 pshh
EE32 [05] 018913 401 brclr 0,bitf,adm1 ;åñëè àâ=0
òî ïåðåõîä íà adm1
EE35 [05] 038907 402 brclr 1,bitf,adm2 ;ïåðåõîä åñëè àâ1=0
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 10
EE38 [04] 1889 403 bset 4,bitf
EE3A [05] 4E3D8A 404 mov ADR,upress1
EE3D [03] 2004 405 bra zap
406 adm2:
EE3F [04] 1589 407 bclr 2,bitf ;ñáðîñ àâ2
EE41 [04] 1289 408 bset 1,bitf ;óñò. àâ1
409 zap:
EE43 [04] 6E413C 410 mov #$41,ADSCR ;êîìàíäà
çàïóñêà ÀÖÏ âõîä PTB1
411
EE46 [03] 2011 412 bra exit
413 adm1:
EE48 [05] 058907 414 brclr 2,bitf,adm3 ;ïåðåõîä åñëè àâ2=0
EE4B [04] 1689 415 bset 3,bitf
EE4D [05] 4E3D8B 416 mov ADR,upress
EE50 [03] 2004 417 bra zap1
418 adm3:
EE52 [04] 1389 419 bclr 1,bitf ; ñáðîñ àâ1
EE54 [04] 1489 420 bset 2,bitf ; óñò. àâ2
421 zap1:
EE56 [04] 6E403C 422 mov #$40,ADSCR ;êîìàíäà
çàïóñêà ÀÖÏ âõîä PTB0
423 exit:
EE59 [02] 8A 424 pulh
EE5A [07] 80 425 rti
426
427
428
429 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
430
431 timer_int: ;Îáðàáîò÷è ïðåðûâàíèÿ îò òàéìåðà
EE5B [04] 1F20 432 bclr 7,TSC ;Ñáðîñ TOF
EE5D [04] 3C9A 433 inc sec10
EE5F [03] B69A 434 lda sec10
EE61 [02] A109 435 cmp #$9
EE63 [03] 250E 436 blo exittime ;Åñëè sec10>9 òî ïåðõîäà íåò
EE65 [03] 3F9A 437 clr sec10
EE67 [04] 3C99 438 inc sec
EE69 [04] 3C95 439 inc ovsec
EE6B [03] B695 440 lda ovsec
EE6D [02] A105 441 cmp #!5
EE6F [03] 2502 442 blo exittime
EE71 [04] 1A89 443 bset 5,bitf
444 exittime:
EE73 [07] 80 445 rti
446
447
448 ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
449
450
451 VOLTS_PRESSURE_RET: ;ïîäïðîãðàììà òàáëè÷íîé ïåðåêîäèðîâêè íàïð. â äàâëåíèå
452 ;÷èñëî äëÿ ïåðåêîäèð
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 11
453 ;íà÷àëî òàáëèöû -TCP
EE74 [02] 87 454 psha
EE75 [02] 8B 455 pshh
EE76 [02] 89 456 pshx
457
EE77 [03] B68C 458 lda udav
EE79 [03] B08D 459 sub const ;const- íàïðÿæåíèå
ïðè íóëåâîì äàâëåíèè
EE7B [01] 97 460 tax
EE7C [04] D6EF14 461 lda TCP,x
EE7F [03] B78E 462 sta dav ;ïåðåêîäèðîâàííîå
÷èñëî â dav
463
EE81 [02] 88 464 pulx
EE82 [02] 8A 465 pulh
EE83 [02] 86 466 pula
EE84 [04] 81 467 rts
468
469
470
471
472 ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
473
474
475
476
477 BCD_RET: ;ïîäïðîãðàììà ïåðåâîäà ÷èñëà â BCD ôîðìàò
478 ;÷èñëî äëÿ ïåðåâîäà íàõîäèòñÿ â "y"
479 ;BCD100 - ñîòíè
480 ;BCD10 - äåñÿòêè
481 ;BCD1 - åäèíèöû
482
EE85 [02] 87 483 psha
EE86 [02] 8B 484 pshh
EE87 [02] 89 485 pshx
486
EE88 [03] B68F 487 lda y ;Äåëèìîå â
àêêóìóëÿòîð
EE8A [02] A163 488 cmp #!99
EE8C [03] 2206 489 bhi bcd100m ;åñëè y>99 òî ïåðåõîä íà bcd100m
EE8E [02] A109 490 cmp #!9
EE90 [03] 2210 491 bhi bcd10m ;åñëè y>9 òî ïåðåõîä íà bcd10m
EE92 [03] 2020 492 bra bcd1m
493 bcd100m:
EE94 [02] AE64 494 ldx #!100 ;100-äåëèòåëü
EE96 [07] 52 495 div
EE97 [03] B784 496 sta BCD100 ;Ðåçóëüòàò â BCD100
EE99 [04] 35A4 497 sthx pmem1
EE9B [03] 450000 498 ldhx #!0
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 12
EE9E [03] B6A4 499 lda pmem1 ;Îñòàòîê â
EEA0 [03] 2003 500 bra mb1
501 bcd10m:
EEA2 [04] 6E0A84 502 mov #$a,BCD100 ;Ïðîáåë â BCD100
503 mb1:
EEA5 [02] AE0A 504 ldx #!10 ;10-äåëèòåëü
EEA7 [07] 52 505 div ;Äåëèì îñòàòîê íà 10
EEA8 [03] B785 506 sta BCD10 ;Ðåçóëüòàò â BCD10
EEAA [04] 35A4 507 sthx pmem1
EEAC [03] 450000 508 ldhx #!0
EEAF [05] 4EA486 509 mov pmem1 BCD1
EEB2 [03] 200C 510 bra exitb
511 bcd1m:
EEB4 [04] 6E0A84 512 mov #$a,BCD100 ;Ïðîáåë â BCD100
EEB7 [04] 6E0A85 513 mov #$a,BCD10 ;Ïðî BCD10
EEBA [05] 4E8F86 514 mov y,BCD1
515
516
EEBD [02] 88 517 pulx
EEBE [02] 8A 518 pulh
EEBF [02] 86 519 pula
EEC0 [04] 81 520 exitb: rts
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10