EC0F [04] 1801 78 bset 4,PTB ;Ôîðìèðîâàíèå
ñòðîáèðóþùåãî èìïóëüñà
EC11 [01] 9D 79 nop
EC12 [01] 9D 80 nop
EC13 [01] 9D 81 nop
EC14 [01] 9D 82 nop
EC15 [01] 9D 83 nop
EC16 [04] 1901 84 bclr 4,PTB
EC18 [05] CDEF08 85 jsr deleysret
EC1B [04] 6E3803 86 mov #$38,PTD ;Óñòàíîâêà âûïîëíÿåìûõ
ôóíêöèé
EC1E [04] 1801 87 bset 4,PTB ;Ôîðìèðîâàíèå
EC20 [01] 9D 88 nop
EC21 [01] 9D 89 nop
EC22 [01] 9D 90 nop
EC23 [01] 9D 91 nop
EC24 [01] 9D 92 nop
EC25 [04] 1901 93 bclr 4,PTB
EC27 [05] CDEF08 94 jsr deleysret ;Çàäåðæêà 30 ìêÑ
EC2A [04] 6E0803 95 mov #$8,PTD
EC2D [04] 1801 96 bset 4,PTB ;Ôîðìèðîâàíèå
EC2F [01] 9D 97 nop
EC30 [01] 9D 98 nop
EC31 [01] 9D 99 nop
EC32 [01] 9D 100 nop
EC33 [01] 9D 101 nop
EC34 [04] 1901 102 bclr 4,PTB
EC36 [05] CDEF08 103 jsr deleysret ;Çàäåðæêà 30 ìêÑ
104
105 ;---------------------------------------------
106
107 main:
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 3
EC39 [02] A628 108 lda #!40
EC3B [02] AE80 109 ldx #$80
110 sbm:
EC3D [02] 7F 111 clr ,X ; Îáíóëåíèå ÿ÷ååê ïàìÿòè
EC3E [01] 5C 112 incx
EC3F [01] 4A 113 deca
EC40 [03] 26FB 114 bne sbm
EC42 [04] 6E5994 115 mov #!89,por
EC45 [04] 6E089E 116 mov #!8,pr1 ;Ïîðîã äëÿ ñèñòîëè÷å
ñêîãî
EC48 [04] 6E0DA0 117 mov #!13,pr2;Ïîðîã äëÿ äèàñòîëè÷åñêîãî
118
EC4B [02] 9A 119 cli ;Ðàçðåøàåì ïðåðûâàíèÿ
120
EC4C [04] 6E403C 121 mov #$40,ADSCR ;Çàïóñê ÀÖÏ âõîä ÐÒÂ0
EC4F [05] 0789FD 122 brclr 3,bitf,$
EC52 [04] 1789 123 bclr 3,bitf
EC54 [05] 4E8B8D 124 mov upress,const
125
126 ;--------------------------- ÈÍÄÈÊÀÖÈß ñèñ,äèà,ïóë
127
EC57 [04] 6E0B84 128 mov #!11,bcd100 ;$34 - êîä áóêâû "C"
EC5A [04] 6E0C85 129 mov #!12,bcd10
EC5D [04] 6E0B86 130 mov #!11,bcd1
EC60 [04] 6E0083 131 mov #$0,adres
EC63 [05] CDEEC1 132 jsr IND_RET ;Âûâîä íà èíäèêàöèþ
EC66 [04] 6E0D84 133 mov #!13,bcd100 ;Âûâîä "ÄÈÀ"
EC69 [04] 6E0C85 134 mov #!12,bcd10
EC6C [04] 6E0E86 135 mov #!14,bcd1
EC6F [04] 6E4083 136 mov #$40,adres
EC72 [05] CDEEC1 137 jsr IND_RET
EC75 [04] 6E0F84 138 mov #!15,bcd100 ;Âûâîä "ÏÓË"
EC78 [04] 6E1085 139 mov #!16,bcd10
EC7B [04] 6E1186 140 mov #!17,bcd1
EC7E [04] 6E4983 141 mov #$49,adres
EC81 [05] CDEEC1 142 jsr IND_RET
143
144 ;----------------------------------------------
145
146
147 ;---------- ÈÍÄÈÊÀÖÈß 0 â ðàçäåëå ñèñ ------------------------------;
148
EC84 [04] 6E0A84 149 mov #$a,bcd100 ;Ñèìâîë ïðîáåëà
EC87 [04] 6E0A85 150 mov #$a,bcd10
EC8A [04] 6E0386 151 mov #$03,bcd1 ;Ñèìâîë "0"
EC8D [04] 6E4683 152 mov #$46,adres ;Çàïèñü àäðåñà
EC90 [05] CDEEC1 153 jsr IND_RET
EC93 [04] 1501 154 bclr 2,PTB
EC95 [04] 1701 155 bclr 3,PTB
EC97 [04] 6E0C03 156 mov #$c,PTD ;Âêëþ÷èòü äèñïëåé
157
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 4
158
159 ;-------------------------------------------------
160
EC9A [05] 4E8B92 161 mov upress,cmp1
162
163 ;- Ïðîöåäóðà îæèäàíèÿ îêîí÷àíèÿ íàêà÷êè ìàíæåòû --
164
165 ;- Çàäåðæêà 0.7 ñåêóíäû ñ èíäèêàöèåé òåêóùåãî äàâëåíèÿ --------
166
167 loop:
EC9D [04] 6E0093 168 mov #$0,del
169 loop2:
ECA0 [01] 4F 170 clra
ECA1 [04] C7FFFF 171 sta $ffff ;Ñáðîñ WDOG
172 loop1:
ECA4 [01] 4A 173 deca
ECA5 [03] 26FD 174 bne loop1 ;Åñëè àêêóìóëÿòîð=0 òî
ïåðåõîä íà loop1
ECA7 [05] 4E8B8C 175 mov upress,udav ;êîä íàïðÿæåíèÿ ñ äàò÷èêà çàíîñèì â udav
ECAA [03] 450000 176 ldhx #$0
ECAD [05] CDEE74 177 jsr VOLTS_PRESSURE_RET ;Âûçîâ ïîäïðîãðàììû ïåðåêîäèðîâêè íàïðÿæåíèå â äàâëåíèå
ECB0 [05] 4E8E8F 178 mov dav,y
ECB3 [05] CDEE85 179 jsr BCD_RET
ECB6 [04] 6E0483 180 mov #$04,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
ECB9 [05] CDEEC1 181 jsr IND_RET
ECBC [04] 3A93 182 dec del
ECBE [03] 26E0 183 bne loop2 ;Åñëè del=0 òî ïåðåõîä íà loop2
ECC0 [05] 069104 184 brset 3,bitf1,lop ;Åñëè 3 áèò=0 òî çàäåðæêà ïðîèñõîäèò ñíîâà
ECC3 [04] 1691 185 bset 3,bitf1 ;Óñòàíîâèòü 3 áèò â 1
ECC5 [03] 20D6 186 bra loop ;Ïåðåõîä íà loop
187 lop:
ECC7 [04] 1789 188 bclr 3,bitf ;Ñáðîñèòü 3 áèò â 1
189
190 ;-------------------------------------------------
ECC9 [04] C7FFFF 191 sta $ffff
ECCC [03] B68B 192 lda upress ;Çàãðóæàåì upress â àêêóìóëÿòîð äëÿ ñðàâíåíèÿ
ECCE [03] B192 193 cmp cmp1 ;ñ cmp1
ECD0 [03] 2502 194 blo ampmet ;Åñëè À>cmp1, òî
íàêà÷êà ìàíæåòû âñ¸ åù¸ èäåò
ECD2 [03] 20C9 195 bra loop ;ïîýòîìó ïåðåõîäèì íà loop
196
197 ;------- Îïðåäåëåíèå àìïëèòóäû -------------------
198
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 5
199 ampmet:
ECD4 [04] C7FFFF 200 sta $ffff
ECD7 [04] 1089 201 bset 0,bitf ;Óñòàíàâëèâàåì àíàëîãîâûé âõîä ÐÒÂ1
ECD9 [04] 6E3023 202 mov #$30,TMODH ;Èíèöèàëèçàöèÿ
òàéìåðà, ïåðèîä ñ÷¸òà äî 12499
ECDC [04] 6ED324 203 mov #$d3,TMODL ; ÷àñòîòà òàêòèðîâàíèÿ 125000 Ãö
ECDF [04] 6E4320 204 mov #$43,TSC ;Çàïóñê òàéìåðà
205 dvbm:
ECE2 [04] C7FFFF 206 sta $ffff
ECE5 [05] 0A8902 207 brset 5,bitf,rm ;Åñëè öèêë ïðîäîëæàåòñÿ áîëüøå 5 ñåêóíä
ECE8 [03] 2003 208 bra m55 ;òî âûâîäèì ñîîáùåíèå îá îøèáêè
209 rm:
ECEA [03] CCEDFC 210 jmp rorm
211 m55:
ECED [03] B68A 212 lda upress1
ECEF [03] B194 213 cmp por ;Ñðàíèâàåì upress1 c ïîðîãîì por
ECF1 [03] 25EF 214 blo dvbm ;Åñëè upress1<por òî ïåðåõîäèì íà dvbm
ECF3 [03] 3F95 215 clr ovsec ;Ñáðîñ OVsec
ECF5 [05] 4E8A96 216 mov upress1,cmpad ;-----------------------------
217 loopamp:
ECF8 [04] C7FFFF 218 sta $ffff ;-----------------
ECFB [04] 1989 219 bclr 4,bitf ;-----------------
ECFD [05] 0989FD 220 brclr 4,bitf,$ ;Èäåíòèôèêàöèÿ
àìïëèòóäû
ED00 [03] B68A 221 lda upress1 ;-----------------
ED02 [03] B196 222 cmp cmpad ;-----------------
ED04 [03] 22F2 223 bhi loopamp ;Åñëè upress1>cmpad
òî ïåðåõîäèì íà loopamp
224
225 ;---------- Ñáðîñ è ïåðåçàïóñê òàéìåðà -----------
226
ED06 [04] 1A20 227 bset 5,TSC
ED08 [04] 1820 228 bset 4,TSC
ED0A [04] 6E4320 229 mov #$43,TSC
230
231 ;-------------------------------------------------
232
ED0D [05] 4E9697 233 mov cmpad,amp2 ; amp2 íàõîäèòñÿ çíà÷åíèå àìïëèòóäû
ED10 [04] 1189 234 bclr 0,bitf ;Óñòàíàâëèâàåì àíàëîãîâûé âõîä ÐÒÂ0
ED12 [04] 1789 235 bclr 3,bitf ;Îáíóëÿåì áèò ÑÎÑÎ1
ED14 [05] 0789FD 236 brclr 3,bitf,$ ;Åñëè ÑÎÑÎ1=0 òî
çàöèêëåâàåìñÿ
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
