- - - -31- 589.7545471.00066-01 12 01 1 2 000000 .ASECT 3 .TITLE 066101 4 .DSABL GBL 5 .ENABL AMA 6 .ENABL LC 7 ;*********************************************************************** 8 ; 9 ; б м с р п е м м х и ю б р н - р е я р 10 ; 11 ;бмсрпеммхи юбрн-реяр юбрнлюрхвеяйх бшонкмъеряъ йюфдши пюг оняке 12 ;бйкчвемхъ охрюмхъ я юдпеяю 160000. нм опнбепъер жемрпюкэмши опнжеяянп 13 ;(жо), дхяоервеп оюлърх (до), ноепюрхбмне гюонлхмючыее сярпниярбн (нгс), 14 ;йнмрпнккеп опепшбюмхи, хмрептеияш йкюбхюрспш х оевюрючыецн сярпниярбю 15 ;рюилеп, ю рюйфе лндскх, сярюмнбкеммше б онгхжхх яхярелмни люцхярпюкх. 16 ;реяр тнплхпсер б ноепюрхбмни оюлърх рюакхжс йнмтхцспюжхх обй, опнхгбндхр 17 ;гюцпсгйс х гюосяй мскебнцн акнйю ноепюжхнммни яхярелш (гюцпсгвхйю). 18 ;опх бшонкмемхх бмсрпеммецн юбрн-реярю мю щйпюм лнмхрнпю бшбндхряъ 19 ;опедсялнрпеммне яннаыемхе "щ к е й р н м х й ю " хкх яннаыемхе на 20 ;ньхайюу х бйкчвюеряъ ябернбюъ хмдхйюжхъ на ньхайе. 21 ; 22 ;*********************************************************************** 23 130000 .=130000 24 000100 .REPT 100 25 .-130000+2 26 HALT 27 .ENDR 28 130004 .=130004 29 130004 163134 163134 30 130200 .=130200 31 ;*********************************************************************** 32 ; 33 ;ондопнцпюллю гюохях б рюакхжс йнмтхцспюжхх обй хдемрхтхйюжхнммнцн йндю 34 ;рхою опнжеяянпю 35 ; 36 ;*********************************************************************** 37 38 130200 012764 000011 177716 MOV #11,177716(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй 39 ;хдемрхтхйюжхнммши йнд рхою опнжеяянпю 40 130206 005064 177714 CLR 177714(R4) 41 130212 000207 RTS PC 42 43 ;*********************************************************************** 44 ; 45 ;ондопнцпюллю гюохях б рюакхжс йнмтхцспюжхх обй хдемрхтхйюжхнммнцн йндю 46 ;нямнбмнцн нгс х елйнярх нямнбмнцн нгс 47 ; 48 ;*********************************************************************** 49 50 130214 012764 000033 177712 MOV #33,177712(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй 51 ;хдемрхтхйюжхнммши йнд нямнбмни оюлърх 52 130222 013764 177640 177710 MOV @#177640,177710(R4) ;гюохяюрэ елйнярэ нямнбмни оюлърх 53 130230 000241 CLC 54 130232 006064 177710 ROR 177710(R4) 55 130236 042764 000377 177710 BIC #377,177710(R4) 56 130244 000207 RTS PC ;бшунд хг ондопнцпюллш 57 - - - -32- 589.7545471.00066-01 12 01 58 ;*********************************************************************** 59 ; 60 ;ондопнцпюллю гюохях б рюакхжс йнмтхцспюжхх обй мнлепю бепяхх 61 ;дхюцмнярхвеяйнцн огс 62 ; 63 ;*********************************************************************** 64 65 130246 012764 000026 177706 MOV #26,177706(R4) ;гюохяюрэ мнлеп бепяхх дхюцмнярхвеяйнцн огс 66 130254 005064 177704 CLR 177704(R4) 67 130260 000207 RTS PC 68 130262 005064 177676 CLR 177676(R4) 69 130266 000207 RTS PC 70 71 ;*********************************************************************** 72 ; 73 ;ондопнцпюллю нопедекемхъ мюкхвхъ лнмхрнпю х гюохях ецн 74 ;хдемрхтхйюжхнммнцн йндю б рюакхжс йнмтхцспюжхх обй 75 ; 76 ;*********************************************************************** 77 78 130270 005000 CLR R0 79 130272 032737 000020 173700 BIT #20,@#173700 ;лнмхрнп ондянедхмем? 80 130300 001402 BEQ .+6 ;оепеирх, еякх мер 81 130302 012700 000032 MOV #32,R0 ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй опхгмюй мюкхвхъ 82 130306 010064 177702 MOV R0,177702(R4) ;лнмхрнпю 83 130312 000207 RTS PC 84 85 ;********************************************************************** 86 ; 87 ;ондопнцпюллю опнбепйх йнмрпнккепю опепшбюмхи 88 ; 89 ;*********************************************************************** 90 91 130314 012764 000025 177636 MOV #25,177636(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй хдемрхтхйюжхнммши 92 ;йнд йнмрпнккепю опепшбюмхи 93 130322 005064 177634 CLR 177634(R4) ;нвхярхрэ ъвеийс янярнъмхъ/ньхайх йнмрпнккепю 94 130326 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо = 7 95 130334 012737 130652 000004 MOV #130652,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 96 130342 012737 000340 000006 MOV #340,@#6 97 130350 010446 MOV R4,-(SP) 98 130352 012700 131206 MOV #131206,R0 99 130356 012704 173200 MOV #173200,R4 ;бшапюрэ юдпея йнмрпнккепю опепшбюмхи 100 130362 005710 TST @R0 101 130364 001422 BEQ 130432 102 130366 012001 MOV (R0)+,R1 103 130370 112164 000002 MOVB (R1)+,2(R4) ;гюцпсгхрэ пецхярп пефхлю пюанрш 104 130374 112164 000002 MOVB (R1)+,2(R4) ;бшапюрэ пецхярп юбрннвхярйх дкъ гюцпсгйх дюммшлх 105 ;хг йюмюкю 106 130400 112114 MOVB (R1)+,@R4 ;пюгпеьхрэ юбрннвхярйс йюфднцн пюгпъдю б пецхярпе 107 ;гюопняю опепшбюмхи оняке наяксфхбюмхъ опепшбюмхъ 108 ;он дюммнлс пюгпъдс 109 130402 105711 TSTB @R1 ;бяе бейрнпш сярюмнбкемш? 110 130404 001404 BEQ 130416 ;оепеирх, еякх дю 111 130406 112164 000002 MOVB (R1)+,2(R4) ;пюгпеьхрэ бшдювс ндмнцн бейрнпю опепшбюмхъ 112 ;опх гюопняе опепшбюмхъ мю сйюгюммнл спнбме 113 ;гюопняю 114 130412 112114 MOVB (R1)+,@R4 ;сярюмнбхрэ юдпея бейрнпю опепшбюмхъ - - - -33- 589.7545471.00066-01 12 01 115 130414 000772 BR 130402 116 130416 005724 TST (R4)+ ;онксвхрэ юдпея пецхярпю йнлюмд 117 130420 012714 000245 MOV #245,@R4 ;сярюмнбхрэ нямнбмни пюгпъд люяйхпнбюмхъ опепшбюмхи 118 130424 012724 000260 MOV #260,(R4)+ ;х опнхгбеярх опедбюпхрекэмши бшанп пецхярпю 119 ;люяйхпнбюмхъ опепшбюмхи 120 130430 000754 BR 130362 121 130432 012604 MOV (SP)+,R4 122 130434 005000 CLR R0 123 130436 010046 MOV R0,-(SP) 124 130440 006200 ASR R0 125 130442 042700 177760 BIC #177760,R0 126 130446 016001 130666 MOV 130666(R0),R1 ;бшапюрэ юдпея рюакхжш бейрнпнб опепшбюмхи 127 130452 012702 000010 MOV #10,R2 ;сярюмнбхрэ явервхй бейрнпнб опепшбюмхи 128 130456 012703 130674 MOV #130674,R3 ;бшапюрэ юдпея рюакхжш юдпеянб ондопнцпюлл наяксфхбюмхъ 129 ;опепшбюмхи 130 130462 012137 002000 MOV (R1)+,@#2000 ;ятнплхпнбюрэ бейрнпш опепшбюмхи 131 130466 012377 051306 MOV (R3)+,@2000 132 130472 062737 000002 002000 ADD #2,@#2000 133 130500 012777 000340 051272 MOV #340,@2000 134 130506 077213 SOB R2,130462 135 130510 016002 130666 MOV 130666(R0),R2 ;бшапюрэ юдпея рюакхжш бейрнпнб опепшбюмхи 136 130514 012600 MOV (SP)+,R0 137 130516 005001 CLR R1 138 130520 012760 000100 173202 MOV #100,173202(R0) ;нвхярхрэ бяе пюгпъдш б пецхярпе гюопняю опепшбюмхи 139 130526 012760 000040 173202 MOV #40,173202(R0) ;пюгпеьхрэ наяксфхбюмхе опепшбюмхи 140 130534 012760 000120 173202 MOV #120,173202(R0) ;сярюмнбхрэ бяе пюгпъдш б пецхярпе гюопняю опепшбюмхи 141 130542 012737 000000 002012 MOV #0,@#2012 142 130550 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо = 0 143 ;днкфмш опнхгнирх опепшбюмхъ 144 130554 022701 000010 CMP #10,R1 ;опнхгбеярх гюдепфйс дкъ гюбепьемхъ наяксфхбюмхъ 145 130560 001403 BEQ .+10 ;опепшбюмхи нр сярпниярб 146 130562 005337 002012 DEC @#2012 147 130566 001772 BEQ 130554 148 149 130570 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо =7 150 130576 012760 000100 173202 MOV #100,173202(R0) ;нвхярхрэ бяе пюгпъдш б пецхярпе гюопняю опепшбюмхи 151 130604 012760 000060 173202 MOV #60,173202(R0) ;гюоперхрэ наяксфхбюмхе опепшбюмхи 152 130612 022701 000010 CMP #10,R1 ;ашкн 8 опепшбюмхи? 153 130616 001403 BEQ .+10 ;оепеирх, еякх дю 154 130620 012764 000001 177634 MOV #1,177634(R4) ;ньхайю 1. мер опепшбюмхъ унръ аш нр ндмнцн сярпниярбю 155 130626 022700 000010 CMP #10,R0 ;йнмеж опнбепйх? 156 130632 001406 BEQ 130650 ;оепеирх, еякх дю 157 130634 005764 177634 TST 177634(R4) ;ашкх ньхайх? 158 130640 001003 BNE .+10 ;оепеирх, еякх дю 159 130642 062700 000004 ADD #4,R0 160 130646 000673 BR 130436 161 130650 000207 RTS PC ;бшунд хг ондопнцпюллш 162 163 ;ондопнцпюллш наяксфхбюмхъ опепшбюмхъ я юдпеянл бейрнпю 000004 164 130652 012716 130570 MOV #130570,@SP ;ятнплхпнбюрэ юдпея бшундю хг опепшбюмхъ 165 130656 012766 000340 000002 MOV #340,2(SP) 166 130664 000002 RTI ;бшунд хг опепшбюмхъ 167 168 130666 130714 130714 169 130670 130734 130734 170 130672 130754 130754 171 - - - -34- 589.7545471.00066-01 12 01 172 ;рюакхжю юдпеянб ондопнцпюлл наяксфхбюмхъ опепшбюмхи 173 130674 130774 130774 174 130676 131012 131012 175 130700 131032 131032 176 130702 131052 131052 177 130704 131072 131072 178 130706 131112 131112 179 130710 131132 131132 180 130712 131152 131152 181 182 ;рюакхжю юдпеянб бейрнпнб опепшбюмхи сярпниярб яхярелмнцн лндскъ 183 130714 000234 234 184 130716 000200 200 185 130720 000204 204 186 130722 000210 210 187 130724 000214 214 188 130726 000220 220 189 130730 000224 224 190 130732 000230 230 191 192 ;рюакхжю юдпеянб бейрнпнб опепшбюмхи лндскеи яхярелмни люцхярпюкх 193 194 130734 000300 300 195 130736 000310 310 196 130740 000320 320 197 130742 000330 330 198 130744 000340 340 199 130746 000350 350 200 130750 000360 360 201 130752 000370 370 202 130754 000304 304 203 130756 000314 314 204 130760 000324 324 205 130762 000334 334 206 130764 000344 344 207 130766 000354 354 208 130770 000364 364 209 130772 000374 374 210 211 ;ондопнцпюллш наяксфхбюмхъ опепшбюмхи нр сярпниярб 212 130774 011237 002000 MOV @R2,@#2000 ;бшапюрэ юдпея бейрнпю опепшбюмхъ нр дюммнцн 213 ;сярпниярбю 214 131000 012777 131172 050772 MOV #131172,@2000 ;ятнплхпнбюрэ бейрнп опепшбюмхъ 215 131006 005201 INC R1 ;сбекхвхрэ явервхй оепшбюмхи 216 131010 000002 RTI 217 131012 016237 000002 002000 MOV 2(R2),@#2000 ;бшапюрэ юдпея бейрнпю опепшбюмхъ нр дюммнцн 218 ;сярпниярбю 219 131020 012777 131172 050752 MOV #131172,@2000 ;ятнплхпнбюрэ бейрнп опепшбюмхъ 220 131026 005201 INC R1 ;сбекхвхрэ явервхй опепшбюмхи 221 131030 000002 RTI 222 131032 016237 000004 002000 MOV 4(R2),@#2000 ;бшапюрэ юдпея бейрнпю опепшбюмхъ нр дюммнцн 223 ;сярпниярбю 224 131040 012777 131172 050732 MOV #131172,@2000 ;ятнплхпнбюрэ бейрнп опепшбюмхъ 225 131046 005201 INC R1 ;сбекхвхрэ явервхй опепшбюмхи 226 131050 000002 RTI 227 131052 016237 000006 002000 MOV 6(R2),@#2000 ;бшапюрэ юдпея бейрнпю опепшбюмхъ нр дюммнцн 228 ;сярпниярбю - - - -35- 589.7545471.00066-01 12 01 229 131060 012777 131172 050712 MOV #131172,@2000 ;ятнплхпнбюрэ бейрнп опепшбюмхъ 230 131066 005201 INC R1 ;сбекхвхрэ явервхй опепшбюмхи 231 131070 000002 RTI 232 131072 016237 000010 002000 MOV 10(R2),@#2000 ;бшапюрэ юдпея бейрнпю опепшбюмхъ нр дюммнцн 233 ;сярпниярбю 234 131100 012777 131172 050672 MOV #131172,@2000 ;ятнплхпнбюрэ бейрнп опепшбюмхъ 235 131106 005201 INC R1 ;сбекхвхрэ явервхй опепшбюмхи 236 131110 000002 RTI 237 131112 016237 000012 002000 MOV 12(R2),@#2000 ;бшапюрэ юдпея бейрнпю опепшбюмхъ нр дюммнцн 238 ;сярпниярбю 239 131120 012777 131172 050652 MOV #131172,@2000 ;ятнплхпнбюрэ бейрнп опепшбюмхъ 240 131126 005201 INC R1 ;сбекхвхрэ явервхй опепшбюмхи 241 131130 000002 RTI 242 131132 016237 000014 002000 MOV 14(R2),@#2000 ;бшапюрэ юдпея бейрнпю опепшбюмхъ нр дюммнцн 243 ;сярпниярбю 244 131140 012777 131172 050632 MOV #131172,@2000 ;ятнплхпнбюрэ бейрнп опепшбюмхъ 245 131146 005201 INC R1 ;сбекхвхрэ явервхй опепшбюмхи 246 131150 000002 RTI 247 131152 016237 000016 002000 MOV 16(R2),@#2000 ;бшапюрэ юдпея бейрнпю опепшбюмхъ нр дюммнцн 248 ;сярпниярбю 249 131160 012777 131172 050612 MOV #131172,@2000 ;ятнплхпнбюрэ бейрнп опепшбюмхъ 250 131166 005201 INC R1 ;сбекхвхрэ явервхй опепшбюмхи 251 131170 000002 RTI 252 253 254 ;ондопнцпюллю наяксфхбюмхъ онбрнпмнцн опепшбюмхъ нр сярпниярбю 255 256 131172 012764 000002 177634 MOV #2,177634(R4) ;ньхайю 2. опнхгнькн опепшбюмхе опх гюопеыемхх 257 ;гюопняю опепшбюмхъ хкх ме ямхлюеряъ ткюц 258 ;гюопняю опепшбюмхъ оняке наяксфхбюмхъ 259 ;опепшбюмхъ 260 131200 012716 130570 MOV #130570,@SP ;ятнплхпнбюрэ юдпея бшундю хг опепшбюмхъ 261 131204 000002 RTI 262 263 ;рюакхжю юдпеянб 264 131206 131216 131216 265 131210 131242 131242 266 131212 131266 131266 267 131214 000000 000000 268 269 ;рюакхжю йнмярюмр дкъ гюдюмхъ пефхлю пюанрш йнмрпнккепю опепшбюмхи 270 131216 140200 140200 271 131220 160377 160377 272 131222 160634 160634 273 131224 161200 161200 274 131226 161604 161604 275 131230 162210 162210 276 131232 162614 162614 277 131234 163220 163220 278 131236 163624 163624 279 131240 000230 000230 280 281 131242 140201 140201 282 131244 160377 160377 283 131246 160700 160700 284 131250 161310 161310 285 131252 161720 161720 - - - -36- 589.7545471.00066-01 12 01 286 131254 162330 162330 287 131256 162740 162740 288 131260 163350 163350 289 131262 163760 163760 290 131264 000370 000370 291 292 131266 140201 140201 293 131270 160377 160377 294 131272 160704 160704 295 131274 161314 161314 296 131276 161724 161724 297 131300 162334 162334 298 131302 162744 162744 299 131304 163354 163354 300 131306 163764 163764 301 131310 000374 000374 302 303 304 305 ;********************************************************************** 306 ; 307 ;ондопнцпюллю опнбепйх хмрептеияю йкюбхюрспш б пефхле 308 ;"йнпнрйюъ оеркъ" 309 ; 310 ;*********************************************************************** 311 312 131312 012764 000014 177672 MOV #14,177672(R4) ;гюохяюрэ хдемрхтхйюжхнммши йнд хмрептеияю 313 ;йкюбхюрспш б рюакхжс йнмтхцспюжхх обй 314 131320 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо = 7 315 131326 012700 173500 MOV #173500,R0 ;бшапюрэ юдпея хмрептеияю йкюбхюрспш 316 131332 012701 000001 MOV #1,R1 ;сярюмнбхрэ б R1 опхгмюй опнбепйх хмрептеияю йкюбхюрспш 317 131336 010546 MOV R5,-(SP) 318 131340 004737 132036 JSR PC,@#132036 ;опнбепхрэ хмрептеия йкюбхюрспш б пефхле "йнпнрйюъ оеркъ" 319 131344 010564 177670 MOV R5,177670(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй йнд ньхайх хкх 320 ;0, еякх ньхайх мер 321 131350 012605 MOV (SP)+,R5 322 131352 005764 177670 TST 177670(R4) ;ашкю ньхайю? 323 131356 001013 BNE 131406 ;оепеирх, еякх дю 324 131360 005760 000006 TST 6(R0) 325 131364 012760 000116 000004 MOV #116,4(R0) ;гюдюрэ юяяхмупнммши пефхл пюанрш я 8-ч хмтнплюжхнммшлх 326 ;ахрюлх х 1 ярнонбшл ахрнл 327 131372 012760 000074 000004 MOV #74,4(R0) ;гюдюрэ яйнпнярэ налемю - 4800 ахр/я 328 131400 012760 000047 000006 MOV #47,6(R0) ;пюгпеьхрэ опхел х оепедювс хмрептеияю йкюбхюрспш б 329 ;мнплюкэмнл пефхле 330 131406 000207 RTS PC ;бшунд хг ондопнцпюллш 331 332 ;*********************************************************************** 333 ; 334 ;ондопнцпюллю бшанпйх хг астепю йкюбхюрспш х гюохях б рюакхжс 335 ;йнмтхцспюжхх обй хдемрхтхйюжхнммшу йнднб, цемепхпселшу йкюбхюрспни 336 ; 337 ;*********************************************************************** 338 339 131410 005764 177702 TST 177702(R4) ;лнмхрнп ондянедхмем? 340 131414 001403 BEQ .+10 ;оепеирх, еякх мер 341 131416 105764 177670 TSTB 177670(R4) ;ашкх ньхайх опх опнбепйе хмрептеияю йкюбхюрспш б 342 ;пефхле "йнпнрйюъ оеркъ"? - - - -37- 589.7545471.00066-01 12 01 343 131422 001401 BEQ .+4 ;оепеирх, еякх мер 344 131424 000207 RTS PC 345 131426 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо = 7 346 131434 012737 131600 000200 MOV #131600,@#200 ;ятнплхпнбюрэ бейрнпш опепшбюмхи я юдпеяюлх 000200 х 347 131442 012737 000340 000202 MOV #340,@#202 ;000204 348 131450 012737 131564 000204 MOV #131564,@#204 349 131456 012737 000340 000206 MOV #340,@#206 350 131464 012701 000001 MOV #1,R1 351 131470 005737 173500 TST @#173500 ;явхрюрэ астеп 352 131474 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр бундю йкюбхюрспш 353 131476 005201 INC R1 354 131500 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр бшундю йкюбхюрспш 355 131502 012737 000375 173500 MOV #375,@#173500 ;бшонкмхрэ реяр, цемепхпсчыхи хдемрхтхйюжхнммше йндш 356 ;йкюбхюрспш 357 131510 005000 CLR R0 358 131512 005001 CLR R1 359 131514 005037 002000 CLR @#2000 360 131520 012737 177777 002002 MOV #-1,@#2002 361 131526 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо = 0 362 ;днкфмн опнхгнирх опепшбюмхе 363 131532 077001 SOB R0,.+0 ;опнхгбеярх гюдепфйс дкъ гюбепьемхъ бшанпйх йнднб 364 131534 012701 000001 MOV #1,R1 365 131540 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бундю йкюбхюрспш 366 131542 005201 INC R1 367 131544 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бшундю йкюбхюрспш 368 131546 013764 002000 177722 MOV @#2000,177722(R4) ;гюохяюрэ хдемрхтхйюжхнммше йндш б рюакхжс 369 131554 013764 002002 177720 MOV @#2002,177720(R4) ;йнмтхцспюжхх обй 370 131562 000207 RTS PC ;бшунд хг ондопнцпюллш 371 372 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ нр бшундю йкюбхюрспш 373 ;(юдпея бейрнпю опепшбюмхъ - 000204) 374 375 131564 010146 MOV R1,-(SP) 376 131566 012701 000002 MOV #2,R1 377 131572 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бшундю йкюбхюрспш 378 131574 012601 MOV (SP)+,R1 379 131576 000002 RTI ;бшунд хг опепшбюмхъ 380 381 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ нр бундю йкюбхюрспш 382 ;(юдпея бейрнпю опепшбюмхъ - 000200) 383 384 131600 113761 173500 002000 MOVB @#173500,2000(R1) ;бшапюрэ йнд хг астепю йкюбхюрспш 385 131606 005201 INC R1 ;сбекхвхрэ явервхй йнднб 386 131610 022701 000004 CMP #4,R1 ;4 йндю явхрюмш? 387 131614 001005 BNE 131630 ;оепеирх, еякх мер 388 131616 010146 MOV R1,-(SP) 389 131620 012701 000001 MOV #1,R1 390 131624 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бундю йкюбхюрспш 391 131626 012601 MOV (SP)+,R1 392 131630 000002 RTI ;бшунд хг опепшбюмхъ 393 394 ;*********************************************************************** 395 ; 396 ;ондопнцпюллю опнбепйх хмрептеияю оевюрючыецн сярпниярбю 397 ;б пефхле "йнпнрйюъ оеркъ" 398 ; 399 ;*********************************************************************** - - - -38- 589.7545471.00066-01 12 01 400 401 131632 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо = 7 402 131640 012764 000017 177666 MOV #17,177666(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй хдемрхтхйюжхнмши 403 ;йнд хмрептеияю оевюрючыецн сярпниярбю 404 131646 012700 173400 MOV #173400,R0 ;бшапюрэ юдпея хмрептеияю оевюрючыецн сярпниярбю 405 131652 012701 000005 MOV #5,R1 ;сярюмнбхрэ б R1 опхгмюй опнбепйх хмрептеияю оевюрючыецн 406 ;сярпниярбю 407 131656 042737 000200 173700 BIC #200,@#173700 ;гюоперхрэ нярюмнб щбл 408 131664 010546 MOV R5,-(SP) 409 131666 004737 132036 JSR PC,@#132036 ;опнбепхрэ хмрептеия оевюрючыецн сярпниярбю б пефхле 410 ;"йнпнрйюъ оеркъ" 411 131672 010564 177664 MOV R5,177664(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй йнд ньхайх хкх 412 ;0, еякх ньханй мер 413 131676 012605 MOV (SP)+,R5 414 131700 005764 177664 TST 177664(R4) ;ашкх ньхайх? 415 131704 001016 BNE 131742 ;оепеирх, еякх дю 416 131706 005760 000006 TST 6(R0) 417 131712 012760 000116 000004 MOV #116,4(R0) ;гюдюрэ юяяхмупнммши пефхл пюанрш я 8-ч хмтнплюжхнммшлх 418 ;х 1 ярнонбшл ахрюлх 419 131720 012760 000274 000004 MOV #274,4(R0) ;гюдюрэ яйнпнярэ налемю - 4800 ахр/я 420 131726 012760 000047 000006 MOV #47,6(R0) ;пюгпеьхрэ опхел х оепедювс б мнплюкэмнл пефхле 421 131734 052737 000200 173700 BIS #200,@#173700 ;пюгпеьхрэ нярюмнб щбл 422 131742 000207 RTS PC 423 424 ;*********************************************************************** 425 ; 426 ;ондопнцпюллю опнбепйх мюкхвхъ х цнрнбмнярх оскэрнбнцн реплхмюкю 427 ;опх мюкхвхх х цнрнбмнярх оскэрнбнцн реплхмюкю оепеопнцпюллхпсеряъ 428 ;яйнпнярэ налемю хмрептеияю мю 9600 ахр/я 429 ; 430 ;*********************************************************************** 431 432 131744 012737 132030 000004 MOV #132030,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 433 131752 005737 177564 TST @#177564 ;оскэрнбни реплхмюк цнрнб? 434 ;(опепшбюмхе, еякх юдпея ме нрбевюер) 435 131756 001423 BEQ 132026 ;оепеирх, еякх мер 436 131760 012700 173400 MOV #173400,R0 ;бшапюрэ юдпея хмрептеияю оевюрючыецн сярпниярбю 437 131764 012764 000027 177662 MOV #27,177662(R4) ;гюохяюрэ хдемрхтхйюжхнммши йнд оскэрнбнцн реплхмюкю 438 ;б рюакхжс йнмтхцспюжхх обй 439 131772 005760 000006 TST 6(R0) ;оепеопнцпюллхпнбюрэ хмрептеия дкъ пюанрш я оскэрнбшл 440 131776 012760 000116 000004 MOV #116,4(R0) ;реплхмюкнл:гюдюрэ юяяхмупнммши пефхл пюанрш я 8-ч 441 ;хмтнплюжхнммшлх х 1 ярнонбшл ахрюлх 442 132004 012760 000276 000004 MOV #276,4(R0) ;гюдюрэ яйнпнярэ налемю - 9600 ахр/я 443 132012 012760 000047 000006 MOV #47,6(R0) ;пюгпеьхрэ опхел х оепедювс б мнплюкэмнл пефхле 444 132020 052737 000200 173700 BIS #200,@#173700 ;пюгпеьхрэ нярюмнб щбл 445 132026 000207 RTS PC 446 447 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ я юдпеянл бейрнпю 000004 448 132030 012716 132026 MOV #132026,@SP ;ятнплхпнбюрэ юдпея бшундю хг опепшбюмхъ 449 132034 000002 RTI ;бшунд хг опепшбюмхъ 450 451 452 ;*********************************************************************** 453 ; 454 ;ондопнцпюллю оепедювх дюммшу 000-377 б пефхле опепшбюмхи 455 ;я хяонкэгнбюмхел пефхлю "йнпнрйюъ оеркъ" 456 ; - - - -39- 589.7545471.00066-01 12 01 457 ;*********************************************************************** 458 459 132036 012737 132444 000004 MOV #132444,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 460 132044 012737 000340 000006 MOV #340,@#6 461 132052 010102 MOV R1,R2 ;бшапюрэ сйюгюрекэ опнбепъелнцн сярпниярбю 462 ;1 - хмрептеия йкюбхюрспш 463 ;5 - хмрептеия оевюрючыецн сярпниярбю 464 132054 005710 TST @R0 ;явхрюрэ астеп 465 132056 072227 000002 ASH #2,R2 466 132062 012737 000000 002004 MOV #0,@#2004 467 132070 012762 132332 000174 MOV #132332,174(R2) ;ятнплхпнбюрэ бейрнпш опепшбюмхи я юдпеяюлх 468 132076 012762 000340 000176 MOV #340,176(R2) ;000200 х 000204 дкъ хмрептеияю йкюбхюрспш, 469 132104 012762 132300 000200 MOV #132300,200(R2) ;000220 х 000224 дкъ хмрептеияю оевюрючыецн 470 132112 012762 000340 000202 MOV #340,202(R2) ;сярпниярбю 471 132120 005060 000006 CLR 6(R0) 472 132124 005760 000006 TST 6(R0) ;оепеопнцпюллхпнбюрэ пефхл пюанрш хмрептеияю: 473 132130 012760 000116 000004 MOV #116,4(R0) ;гюдюрэ юяхмупнммши пефхл я 8-ч хмтнплюжхнммшлх х 474 ;1 ярнонбшл ахрюлх 475 132136 012760 000057 000004 MOV #57,4(R0) ;гюдюрэ яйнпнярэ налемю - 19200 ахр/я 476 132144 012760 000243 000006 MOV #243,6(R0) ;гюдюрэ пефхл "йнпнрйюъ оеркъ" 477 132152 005037 002002 CLR @#2002 478 132156 005037 002000 CLR @#2000 479 132162 011005 MOV @R0,R5 ;явхрюрэ астеп 480 132164 005005 CLR R5 481 132166 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр бундю хмрептеияю йкюбхюрспш/ 482 ;оевюрючыецн сярпниярбю 483 132170 005201 INC R1 484 132172 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр бшундю хмрептеияю йкюбхюрспш/ 485 ;оевюрючыецн сярпниярбю 486 132174 104004 EMT+4 ;гюдюрэ рпеанбюмхе опепшбюмхъ нр бшундю хмрептеияю 487 ;йкюбхюрспш/оевюрючыецн сярпниярбю 488 132176 005301 DEC R1 489 132200 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо = 0 490 ;днкфмн опнхгнирх опепшбюмхе 491 132204 022737 000400 002002 CMP #400,@#2002 ;опнхгбеярх гюдепфйс дкъ гюбепьемхъ оепедювх дюммшу 492 132212 001405 BEQ 132226 ;б пефхле опепшбюмхи 493 132214 005705 TST R5 ;ашкх ньхайх? 494 132216 001003 BNE .+10 ;оепеирх, еякх дю 495 132220 005337 002004 DEC @#2004 496 132224 001367 BNE 132204 497 132226 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо = 7 498 132234 005060 000006 CLR 6(R0) 499 132240 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бундю хмрептеияю йкюбхюрспш/ 500 ;оевюрючыецн сярпниярбю 501 132242 005201 INC R1 502 132244 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бшундю хмрептеияю йкюбхюрспш/ 503 ;оевюрючыецн сярпниярбю 504 132246 005301 DEC R1 505 132250 005737 002004 TST @#2004 ;явервхй =0? 506 132254 001010 BNE 132276 ;оепеирх, еякх мер 507 132256 022701 000001 CMP #1,R1 ;опнбепъеряъ хмрептеия йкюбхюрспш? 508 132262 001003 BNE .+10 ;оепеирх, еякх опнбепъеряъ 509 ;хмрептеия оевюрючыецн сярпниярбю 510 132264 012705 000004 MOV #4,R5 ;ньхайю 4. мер опепшбюмхъ нр хмрептеияю йкюбхюрспш хкх 511 ;ньхайю яйнпнярх налемю хмрептеияю йкюбхюрспш 512 132270 000402 BR .+6 513 132272 012705 000005 MOV #5,R5 ;ньхайю 5. мер опепшбюмхъ нр хмрептеияю оевюрючыецн - - - -40- 589.7545471.00066-01 12 01 514 ;сярпниярбю хкх ньхайю яйнпнярх налемю хмрептеияю 515 ;оевюрючыецн сярпниярбю 516 132276 000207 RTS PC 517 518 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ нр бшундю хмрептеияю йкюбхюрспш/ 519 ;оевюрючыецн сярпниярбю 520 ;(бейрнп я юдпеянл 000204 - дкъ хмрептеияю йкюбхюрспш, 000224 - дкъ 521 ;хмрептеияю оевюрючыецн сярпниярбю) 522 523 132300 022737 000400 002000 CMP #400,@#2000 ;бяе дюммше оепедюмш? 524 132306 001004 BNE 132320 ;оепеирх, еякх мер 525 132310 005201 INC R1 526 132312 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бшундю хмрептеияю 527 132314 005301 DEC R1 528 132316 000404 BR 132330 529 132320 013710 002000 MOV @#2000,@R0 ;гюцпсгхрэ йнд б бшундмни астеп хмрептеияю 530 132324 005237 002000 INC @#2000 ;онксвхрэ якедсчыхи йнд 531 132330 000002 RTI ;бшунд хг опепшбюмхъ 532 533 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ нр бундю хмрептеияю йкюбхюрспш/ 534 ;оевюрючыецн сярпниярбю 535 ;(бейрнп я юдпеянл 000200 - дкъ хмрептеияю йкюбхюрспш, 000220 - дкъ 536 ;хмрептеияю оевюрючыецн сярпниярбю 537 538 132332 016003 000002 MOV 2(R0),R3 ;явхрюрэ пя 539 132336 032703 000060 BIT #60,R3 ;еярэ ньхайю оепеонкмемхъ хкх ньхайю ярнонбнцн ахрю? 540 132342 001003 BNE .+10 ;оепеирх, еякх дю 541 132344 032703 000002 BIT #2,R3 ;бундмни астеп осяр? 542 132350 001011 BNE 132374 ;оепеирх, еякх гюцпсфем 543 132352 022701 000001 CMP #1,R1 ;опнбепъеряъ хмрептеия йкюбхюрспш? 544 132356 001003 BNE .+10 ;оепеирх, еякх хмрептеия оевюрючыецн сярпниярбю 545 132360 012705 000006 MOV #6,R5 ;ньхайю 6. ньхайю оепеонкмемхъ, ньхайю ярнонбнцн ахрю 546 ;хкх мер цнрнбмнярх бундю хмрептеияю йкюбхюрспш 547 132364 000417 BR 132424 548 132366 012705 000007 MOV #7,R5 ;ньхайю 7. ньхайю оепеонкмемхъ, ньхайю ярнонбнцн ахрю 549 ;хкх мер цнрнбмнярх бундю хмрептеияю оевюрючыецн 550 ;сярпниярбю 551 132372 000414 BR 132424 552 132374 011003 MOV @R0,R3 ;явхрюрэ бундмни астеп 553 132376 120337 002002 CMPB R3,@#2002 ;дюммше янбоюдючр? 554 132402 001415 BEQ 132436 ;оепеирх, еякх дю 555 132404 022701 000001 CMP #1,R1 ;опнбепъеряъ хмрептеия йкюбхюрспш? 556 132410 001003 BNE .+10 ;оепеирх, еякх хмрептеия оевюрючыецн сярпниярбю 557 132412 012705 000010 MOV #10,R5 ;ньхайю 10. меянбоюдемхе оепедюбюелшу х опхмхлюелшу 558 ;дюммшу опх опнбепйе хмрептеияю йкюбхюрспш 559 132416 000402 BR .+6 560 132420 012705 000011 MOV #11,R5 ;ньхайю 11. меянбоюдемхе оепедюбюелшу х опхмхлюелшу 561 ;дюммшу опх опнбепйе хмрептеияю оевюрючыецн сярпниярбю 562 132424 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бундю хмрептеияю 563 132426 005201 INC R1 564 132430 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бшундю хмрептеияю 565 132432 005301 DEC R1 566 132434 000402 BR .+6 567 132436 005237 002002 INC @#2002 ;онксвхрэ якедсчыхи нфхдюелши йнд 568 132442 000002 RTI ;бшунд хг опепшбюмхъ 569 570 ;ондопнцпюллю напюанрйх опепшбюмхъ я юдпеянл бейрнпю 000004 - - - -41- 589.7545471.00066-01 12 01 571 572 132444 012716 132204 MOV #132204,@SP ;ятнплхпнбюрэ юдпея бшундю хг опепшбюмхъ 573 132450 022701 000001 CMP #1,R1 ;опнбепъеряъ хмрептеия йкюбхюрспш? 574 132454 001003 BNE .+10 ;оепеирх, еякх хмрептеия оевюрючыецн сярпниярбю 575 132456 012705 000026 MOV #26,R5 ;ньхайю 26. 576 ;мер нрберю нр ндмнцн хг пецхярпнб хмрептеияю йкюбхюрспш 577 132462 000402 BR .+6 578 132464 012705 000003 MOV #3,R5 ;ньхайю 3.мер нрберю нр ндмнцн хг пецхярпнб хмрептеияю 579 ;оевюрючыецн сярпниярбю 580 132470 000002 RTI ;бшунд хг опепшбюмхъ 581 582 ;*********************************************************************** 583 ; 584 ;ондопнцпюллю опнбепйх йнллсмхйюжхнммнцн хмрептеияю 585 ;пгN - пецхярп гюохях, N - мнлеп пецхярпю гюохях 586 ;пвN - пецхярп времхъ, N - мнлеп пецхярпю времхъ 587 ; 588 ;*********************************************************************** 589 590 132472 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо =7 591 132500 012764 000021 177656 MOV #21,177656(R4) ;гюохяюрэ хдемрхтхйюжхнммши йнд йнллсмхйюжхнммнцн 592 ;хмрептеияю б рюакхжс йнмтхцспюжхх обй 593 132506 012737 133066 000004 MOV #133066,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 594 132514 012737 000340 000006 MOV #340,@#6 595 132522 012737 000377 173314 MOV #377,@#173314 ;гюдюрэ яйнпнярэ налемю - 19200 ахр/я 596 132530 012737 000340 173310 MOV #340,@#173310 ;сярюмнбхрэ пефхл юбрнмнлмни опнбепйх йнллсмхйюжхнммнцн 597 ;хмрептеияю 598 132536 012737 133106 000210 MOV #133106,@#210 ;ятнплхпнбюрэ бейрнп опепшбюмхъ нр йнллсмхйюжхнммнцн 599 132544 012737 000340 000212 MOV #340,@#212 ;хмрептеияю 600 132552 005037 002000 CLR @#2000 601 132556 005037 002002 CLR @#2002 602 132562 010546 MOV R5,-(SP) 603 132564 012737 000000 002004 MOV #0,@#2004 604 132572 012737 000030 173302 MOV #30,@#173302 ;нвхярхрэ ткюцх янярнъмхъ б пв0, кнцхйс 605 132600 012737 000030 173306 MOV #30,@#173306 ;опепшбюмхи х бяе пецхярпш йнмрпнкъ бмсрпеммеи 606 ;люцхярпюкх б йюмюке ю х а 607 132606 012737 000300 173302 MOV #300,@#173302 608 132614 012737 000004 173302 MOV #4,@#173302 ;бшапюрэ мнлеп пг=4 б йюмюке ю 609 132622 012737 000104 173302 MOV #104,@#173302 ;гюоперхрэ оюпхрер, пюгпеьхрэ юяяхмупнммши 610 ;пефхл я 1 ярнонбшл ахрнл 611 132630 012737 000003 173302 MOV #3,@#173302 ;бшапюрэ мнлеп пг=3 б йюмюке ю 612 132636 012737 000341 173302 MOV #341,@#173302 ;пюгпеьхрэ опхел 8-ахрмшу дюммшу 613 132644 012737 000005 173302 MOV #5,@#173302 ;бшапюрэ мнлеп пг=5 б йюмюке ю 614 132652 012737 000352 173302 MOV #352,@#173302 ;пюгпеьхрэ оепедювс 8-ахрмшу дюммшу 615 132660 012737 000002 173302 MOV #2,@#173302 ;бшапюрэ мнлеп пг=2 б йюмюке ю 616 132666 012737 000000 173302 MOV #0,@#173302 ;пюгпеьхрэ пефхл опепшбюмхи б йюмюке ю х а, 617 ;сярюмнбхрэ опхнпхрер опепшбюмхи 618 132674 012737 000020 173302 MOV #20,@#173302 ;хмхжхюкхгхпнбюрэ пюгпъдш янярнъмхъ б пв0, 619 ;пюгпеьхрэ ху гюонкмемхе 620 132702 012737 000002 173306 MOV #2,@#173306 ;бшапюрэ мнлеп пг=2 б йюмюке а 621 132710 012737 000000 173306 MOV #0,@#173306 622 132716 012737 000001 173306 MOV #1,@#173306 ;бшапюрэ мнлеп пг=1 б йюмюке а 623 132724 012737 000004 173306 MOV #4,@#173306 ;сярюмнбхрэ пюгпъд 02 б пг1 624 132732 012737 000001 173302 MOV #1,@#173302 ;бшапюрэ мнлеп пг=1 б йюмюке ю 625 132740 012737 000022 173302 MOV #22,@#173302 ;пюгпеьхрэ опепшбюмхе нр оепедюрвхйю х нр 626 ;опхелмхйю (он гюбепьемхх опхелю йюфднцн яхлбнкю 627 132746 012701 000003 MOV #3,R1 ;хкх опх бнгмхймнбемхх ньхайх) - - - -42- 589.7545471.00066-01 12 01 628 132752 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр йнллсмхйюжхнммнцн хмрептеияю 629 132754 005037 173300 CLR @#173300 ;гюцпсгхрэ йнд б астеп йюмюкю ю 630 132760 005237 002000 INC @#2000 631 132764 005005 CLR R5 632 132766 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо= 0 633 ;днкфмн опнхгнирх опепшбюмхе я юдпеянл бейрнпю 634 ;000210 635 132772 022737 000400 002002 CMP #400,@#2002 ;бяе дюммше оепедюмш? 636 133000 001405 BEQ 133014 ;оепеирх, еякх дю 637 133002 005705 TST R5 ;ашкю ньхайю? 638 133004 001003 BNE .+10 ;оепеирх, еякх дю 639 133006 005337 002004 DEC @#2004 ;опнгбеярх гюдепфйс дкъ гюбепьемхъ оепедювх дюммшу 640 133012 001367 BNE 132772 ;б пефхле опепшбюмхи 641 133014 005037 173310 CLR @#173310 ;пюгпеьхрэ мнплюкэмши пефхл пюанрш йнллсмхйюжхнммнцн 642 ;хмрептеияю 643 133020 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 644 133026 104003 EMT+3 ;гюоперхрэ опепшбюмххе нр йнллсмхйюжхнммнцн хмрептеияю 645 133030 005737 002004 TST @#2004 ;явервхй =0? 646 133034 001002 BNE .+6 ;оепеирх, еякх мер 647 133036 012705 000012 MOV #12,R5 ;ньхайю 12.мер опепшбюмхъ нр йнллсмхйюжхнммнцн хмрептеияю 648 ;хкх ньхайю яйнпнярх налемю 649 133042 012737 000030 173302 MOV #30,@#173302 ;опнхгбеярх хмхжхюкхгюжхч пецхярпнб б йюмюке ю 650 133050 012737 000030 173306 MOV #30,@#173306 ;х б йюмюке а 651 133056 010564 177654 MOV R5,177654(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй йнд ньхайх хкх 0, 652 ;еякх ньханй мер 653 133062 012605 MOV (SP)+,R5 654 133064 000207 RTS PC 655 656 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ я юдпеянл бейрнпю 000004 657 658 133066 012705 000013 MOV #13,R5 ;ньхайю 13. мер нрберю нр ндмнцн хг пецхярпнб 659 ;йнллсмхйюжхнммнцн хмрептеияю 660 133072 012716 132772 MOV #132772,@SP ;ятнплхпнбюрэ юдпея бшундю хг опепшбюмхъ 661 133076 012766 000340 000002 MOV #340,2(SP) 662 133104 000002 RTI ;бшунд хг опепшбюмхъ 663 664 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ я юдпеянл бейрнпю 000210 665 666 133106 000240 NOP 667 133110 000240 NOP 668 133112 012737 000002 173306 MOV #2,@#173306 ;бшапюрэ мнлеп пв=2 б йюмюке а 669 133120 013700 173306 MOV @#173306,R0 ;бшапюрэ яндепфхлне пв2 670 133124 006200 ASR R0 671 133126 042700 177761 BIC #177761,R0 672 133132 000170 133136 JMP @133136(R0) ;оепеирх мю ондопнцпюллс 673 674 ;юдпеяю ондопнцпюлл 675 ;ондопнцпюллш я сйюгюммшлх юдпеяюлх бшонкмъчряъ опх якедсчыел 676 ;яндепфхлнл пв2 йюмюкю а: 677 133136 133272 133272 ;опх пв2=0 678 133140 133272 133272 ;опх пв2=4 679 133142 133272 133272 ;опх пв2=10 680 133144 133272 133272 ;опх пв2=14 681 133146 133156 133156 ;опх пв2=20 682 133150 133212 133212 ;опх пв2=24 683 133152 133220 133220 ;опх пв2=30 684 133154 133244 133244 ;опх пв2=34 - - - -43- 589.7545471.00066-01 12 01 685 686 ;ондопнцпюллю гюцпсгйх дюммшу б астеп йюмюкю ю 687 133156 032737 000400 002000 BIT #400,@#2000 ;бяе дюммше оепедюмш? 688 133164 001404 BEQ 133176 ;оепеирх, еякх мер 689 133166 012737 000050 173302 MOV #50,@#173302 ;гюоперхрэ опепшбюмхъ 690 133174 000440 BR 133276 691 133176 113737 002000 173300 MOVB @#2000,@#173300 ;гюцпсгхрэ йнд б астеп 692 133204 005237 002000 INC @#2000 ;онксвхрэ якедсчыхи йнд 693 133210 000432 BR 133276 694 695 696 133212 012705 000014 MOV #14,R5 ;ньхайю 14. яндепфхлне пв2=24 697 133216 000427 BR 133276 698 699 ;ондопнцпюллю явхршбюмхъ дюммшу хг астепю йюмюкю ю 700 133220 013700 173300 MOV @#173300,R0 ;явхрюрэ бундмни астеп йюмюкю ю 701 133224 123700 002002 CMPB @#2002,R0 ;оепедюбюелше дюммше =опхмхлюелшл? 702 133230 001402 BEQ .+6 ;оепеирх, еякх дю 703 133232 012705 000015 MOV #15,R5 ;ньхайю 15. меянбоюдемхе дюммшу 704 133236 005237 002002 INC @#2002 ;онксвхрэ якедсчыхи нфхдюелши йнд 705 133242 000415 BR 133276 706 707 708 133244 012705 000016 MOV #16,R5 ;ньхайю 16. ньхайю оепеонкмемхъ хкх ньхайю 709 ;ярнонбнцн ахрю 710 133250 012737 000001 173302 MOV #1,@#173302 ;бшапюрэ мнлеп пв=1 711 133256 013701 173302 MOV @#173302,R1 ;явхрюрэ пюгпъдш ньханй 712 133262 012737 000060 173302 MOV #60,@#173302 ;нвхярхрэ пюгпъдш ньханй 713 133270 000402 BR .+6 714 715 716 133272 012705 000017 MOV #17,R5 ;ньхайю 17.яндепфхлне пв2=0, 4, 10 хкх 14 717 133276 012737 000070 173302 MOV #70,@#173302 ;опнхгбеярх яапня опепшбюмхъ я мюхбшяьхл 718 ;опхнпхрернл 719 133304 000002 RTI ;бшунд хг опепшбюмхъ 720 721 ;*********************************************************************** 722 ; 723 ;ондопнцпюллю опнбепйх рюилепю 724 ; 725 ;*********************************************************************** 726 727 133306 012764 000023 177652 MOV #23,177652(R4) ;гюохяюрэ хдемрхтхйюжхнммши йнд рюилепю б рюакхжс 728 ;йнмтхцспюжхх обй 729 133314 012737 133606 000004 MOV #133606,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 730 133322 012737 000340 000006 MOV #340,@#6 731 133330 105737 173032 TSTB @#173032 ;нгс рюилепю янупюмъер хмтнплюжхч оняке 732 ;бшйкчвемхъ нямнбмнцн охрюмхъ? 733 133334 100412 BMI 133362 ;оепеирх, еякх дю 734 133336 012764 000400 177650 MOV #400,177650(R4) 735 133344 012764 000400 177644 MOV #400,177644(R4) 736 133352 052737 000200 173026 BIS #200,@#173026 ;гюоперхрэ унд вюянб 737 133360 000404 BR 133372 738 133362 005064 177644 CLR 177644(R4) 739 133366 005064 177650 CLR 177650(R4) 740 133372 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 741 133400 012737 133510 000230 MOV #133510,@#230 ;ятнплхпнбюрэ бейрнп опепшбюмхъ нр рюилепю - - - -44- 589.7545471.00066-01 12 01 742 133406 012737 000340 000232 MOV #340,@#232 743 133414 012737 000047 173024 MOV #47,@#173024 ;гюдюрэ вюярнрс опепшбюмхи - 512 цж 744 133422 012701 000007 MOV #7,R1 745 133426 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр рюилепю 746 133430 005737 173030 TST @#173030 ;нвхярхрэ ткюцх рпеанбюмхъ опепшбюмхи 747 133434 052737 000100 173026 BIS #100,@#173026 ;пюгпеьхрэ оепхндхвеяйхе опепшбюмхъ нр рюилепю 748 133442 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо =0 749 ;днкфмн опнхгнирх оепбне опепшбюмхе нр рюилепю 750 133446 005000 CLR R0 751 133450 005002 CLR R2 752 133452 077001 SOB R0,.+0 753 133454 012764 000020 177650 MOV #20,177650(R4) ;ньхайю 20. мер опепшбюмхъ нр рюилепю 754 133462 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо =7 755 133470 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр рюилепю 756 133472 042737 000017 173024 BIC #17,@#173024 757 133500 042737 000100 173026 BIC #100,@#173026 ;гюоперхрэ оепхндхвеяйхе опепшбюмхъ нр рюилепю 758 133506 000207 RTS PC ;бшунд хг ондопнцпюллш опнбепйх рюилепю 759 760 ;ондопнцпюллю наяксфхбюмхъ оепбнцн х брнпнцн оепхндхвеяйху 761 ;опепшбюмхи нр рюилепю 762 133510 005737 173030 TST @#173030 ;нвхярхрэ ткюцх рпеанбюмхъ опепшбюмхи 763 133514 005702 TST R2 ;оепбне опепшбюмхе? 764 133516 001406 BEQ 133534 ;оепеирх, еякх дю 765 133520 012716 133540 MOV #133540,@SP ;ятнплхпнбюрэ юдпея бшундю хг опепшбюмхъ 766 133524 005000 CLR R0 ;нвхярхрэ явервхй бшонкмемхи йнлюмдш SOB 767 133526 012737 133544 000230 MOV #133544,@#230 ;ятнплхпнбюрэ бейрнп я юдпеянл 000230 768 133534 005202 INC R2 ;сбекхвхрэ явервхй опепшбюмхи 769 133536 000002 RTI ;бшунд хг опепшбюмхъ 770 771 133540 077001 SOB R0,.+0 ;янявхрюрэ йнкхвеярбн бшонкмемхи йнлюмдш SOB 772 ;лефдс 2-л х 3-л оепхндхвеяйхлх опепшбюмхълх 773 ;(днкфмн опнхгнирх рперэе опепшбюмхе нр рюилепю) 774 133542 000744 BR 133454 ;оепеирх мю ньхайс, еякх опепшбюмхе ме опнхгнькн 775 776 ;ондопнцпюллю наяксфхбюмхъ рперэецн опепшбюмхъ нр рюилепю 777 133544 005737 173030 TST @#173030 ;нвхярхрэ ткюцх рпеанбюмхъ опепшбюмхи 778 133550 062706 000004 ADD #4,SP 779 133554 022700 176500 CMP #176500,R0 ;йнлюмдю SOB бшонкмхкюяэ лемэье 300 пюг? 780 133560 002006 BGE 133576 ;оепеирх мю ньхайс, еякх мер 781 133562 022700 176700 CMP #176700,R0 ;йнлюмдю SOB бшонкмхкюяэ анкэье 100 пюг? 782 133566 003403 BLE .+10 ;оепеирх мю ньхайс, еякх мер 783 133570 105064 177650 CLRB 177650(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй опхгмюй нрясрярбхъ 784 ;ньханй 785 133574 000732 BR 133462 786 133576 012764 000021 177650 MOV #21,177650(R4) ;нхьайю 21. ньхайю вюярнрш оепхндхвеяйху опепшбюмхи 787 ;нр рюилепю 788 133604 000726 BR 133462 789 790 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ я юдпеянл бейрнпю 000004 791 133606 012764 000025 177650 MOV #25,177650(R4) ;ньхайю 25. мер нрберю нр ндмнцн хг пецхярпнб 792 ;рюилепю 793 133614 012626 MOV (SP)+,(SP)+ 794 133616 000207 RTS PC 795 796 ;*********************************************************************** 797 ; 798 ;ондопнцпюллю опнбепйх нгс рюилепю - - - -45- 589.7545471.00066-01 12 01 799 ; 800 ;*********************************************************************** 801 802 133620 012764 000024 177646 MOV #24,177646(R4) ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй хдемрхтхйюжхнммши 803 ;йнд нги рюилепю 804 133626 012737 133704 000004 MOV #133704,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 805 133634 012737 000340 000006 MOV #340,@#6 806 133642 105064 177644 CLRB 177644(R4) 807 133646 112737 000125 173050 MOVB #125,@#173050 ;гюохяюрэ йнд б нгс рюилепю 808 133654 105137 173050 COMB @#173050 ;хмбепрхпнбюрэ яндепфхлне аюирю 809 133660 105137 173050 COMB @#173050 ;хмбепрхпнбюрэ яндепфхлне аюирю 810 133664 122737 000125 173050 CMPB #125,@#173050 ;дюммше янбоюдючр? 811 133672 001403 BEQ .+10 ;оепеирх, еякх дю 812 133674 012764 000023 177644 MOV #23,177644(R4) ;ньхайю 23. меянбоюдемхе гюохяюммшу х явхрюммшу дюммшу 813 133702 000207 RTS PC 814 815 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ я юдпеянл бейрнпю 000004 816 133704 012764 000022 177644 MOV #22,177644(R4) ;ньхайю 22. мер нрберю нр юдпеяю 173050 817 133712 012626 MOV (SP)+,(SP)+ 818 133714 000207 RTS PC 819 820 821 ;*********************************************************************** 822 ; 823 ; опнбепйю юдюорепю окюбючыеи гюоърни (юдюореп ог) 824 ; 825 ; пяо - пецхярп янярнъмхъ опнжеяянпю 826 ; пяог - пецхярп янярнъмхъ юдюорепю ог 827 ;*********************************************************************** 828 829 000000 AC0=R0 830 000001 AC1=R1 831 000002 AC2=R2 832 000003 AC3=R3 833 000004 AC4=R4 834 000005 AC5=R5 835 133716 .=133716 836 133716 012737 134752 000010 MнV #134752,@#10 ;опх нрясрярбхх юдюорепю ог - напюанрйю 837 133724 012737 000340 000012 MOV #340,@#12 ;опепшбюмхъ он пегепбмни йнлюмде 838 133732 170537 134762 TSTF @#134762 839 133736 012764 000012 177642 MOV #12,177642(R4) ;опх мюкхвхх юдюорепю ог гюохяюрэ б рюакхжс 840 ;йнмтхцспюжхх обй ецн хдемрхтхйюжрнммши йнд 841 133744 010446 MOV R4,-(SP) 842 133746 005037 002036 CLR @#2036 843 133752 012737 134744 000244 MOV #134744,@#244 844 133760 012737 000005 000246 MOV #5,@#246 845 133766 170127 007400 LDFPS #7400 ;гюохяюрэ #7400 б пяог 846 ;пюгпеьемш опепшбюмхъ: 847 ;-он менопедекеммнлс ноепюмдс 848 ;-он юмрхоепеонкмемхч 849 ;-он оепеонкмемхч 850 ;-он ньхайе опенапюгнбюмхъ б жекне вхякн 851 133772 170011 SETD ;сярюмнбхрэ пефхл ог я дбнимни рнвмнярэч 852 133774 177027 077777 LDCID #77777,AC0 ;опенапюгнбюрэ жекне вхякн б окюбючыее я дб. рнвмнярэч 853 ;х гюцпсгхрэ б юя0 854 134000 177127 002525 LDCID #2525,AC1 855 134004 174401 DIVD AC1,AC0 - - - -46- 589.7545471.00066-01 12 01 856 134006 171001 MULD AC1,AC0 857 134010 172001 ADDD AC1,AC0 858 134012 173001 SUBD AC1,AC0 859 134014 175437 002014 STCDI AC0,@#2014 ;гюохяюрэ б оюлърэ х опенапюгнбюрэ б жекне вхякн 860 134020 170200 STFPS R0 ;явхрюрэ б R0 яндепфхлне пяог 861 134022 022737 077777 002014 CMP #77777,@#2014 ;дюммше янбоюдючр? 862 134030 001403 BEQ .+10 ;оепеирх, еякх дю 863 134032 004737 134730 JSR PC,@#134730 ;ньхайю 27. ньхайю бшонкмемхъ юпхтлерхвеяйху йнлюмд 864 134036 000027 27 865 866 134040 172437 LDD @(PC)+,AC0 ;гюцпсгхрэ вхякн я дбнимни рнвмнярэч б юя0 867 134042 134772 134772 868 134044 012702 002014 MOV #2014,R2 869 134050 174022 STD AC0,(R2)+ ;гюохяюрэ б оюлърэ вхякн я дбнимни рнвмнярэч хг юя0 870 134052 172537 LDD @(PC)+,AC1 871 134054 134772 134772 872 134056 174122 STD AC1,(R2)+ 873 134060 172737 LDD @(PC)+,AC3 874 134062 002024 2024 875 134064 170200 STFPS R0 ;явхрюрэ б R0 яндепфхлне пяог 876 134066 173737 CMPD @(PC)+,AC3 ;дюммше янбоюдючр? 877 134070 002014 2014 878 134072 170000 CFCC ;яйнохпнбюрэ опхгмюйх юдюорепю ог б пяо 879 134074 001403 BEQ .+10 ;оепеирх, еякх дю 880 134076 004737 134730 JSR PC,@#134730 ;ньхайю 30. ньхайю бшонкмемхъ йнлюмдш STD 881 134102 000030 30 882 883 134104 172537 LDD @(PC)+,AC1 ;гюцпсгхрэ 0 б юя1 884 134106 134774 134774 885 134110 174142 STD AC1,-(R2) ;гюохяюрэ б оюлърэ вхякн я ог хг юя1 886 134112 172012 ADDD @R2,AC0 887 134114 173042 SUBD -(R2),AC0 888 134116 173001 SUBD AC1,AC0 889 134120 175437 002014 STCDI AC0,@#2014 ;опенапюгнбюрэ вхякн я дб.рнвмнярэч б йнпнрйне жекне ;х гюохяюрэ б оюлърэ 890 134124 022737 000000 002014 CMP #0,@#2014 ;дюммше янбоюдючр? 891 134132 170200 STFPS R0 ;явхрюрэ б R0 яндепфхлне пяог 892 134134 001403 BEQ .+10 ;оепеирх, еякх дю 893 134136 004737 134730 JSR PC,@#134730 ;ньхайю 31. ньхайю бшонкмемхъ йнлюмдш STCDI 894 134142 000031 31 895 896 134144 170001 SETF ;сярюмнбхрэ пефхл ог я нашвмни рнвмнярэч 897 134146 177027 000525 LDCIF #525,AC0 ;опенапюгнбюрэ жекне вхякн б окюбючыее я на. рнвмнярэч 898 ;х гюцпсгхрэ б юя0 899 134152 177127 000252 LDCIF #252,AC1 900 134156 174104 STD AC1,AC4 ;янупюмхрэ вхякн я ог б юя4 901 134160 172104 ADDF AC4,AC1 902 134162 172701 LDF AC1,AC3 903 134164 173003 SUBF AC3,AC0 904 134166 175037 002014 STEXP AC0,@#2014 ;янупюмхрэ EXP б ъвеийе 2014 905 134172 170200 STFPS R0 ;явхрюрэ б R0 яндепфхлне пяог 906 134174 022737 000001 002014 CMP #1,@#2014 ;дюммше янбоюдючр? 907 134202 001403 BEQ .+10 ;оепеирх, еякх дю 908 134204 004737 134730 JSR PC,@#134730 ;ньхайю 32. ньхайю бшонкмемхъ йнлюмдш STEXP оняке 909 134210 000032 32 ;бшонкмемхъ йнлюмд ADDF, LDF х SUBF 910 911 134212 177027 000021 LDCIF #21,AC0 ;опенапюгнбюрэ жекне вхякн б окюбючыее я на. рнвмнярэч 912 ;х гюцпсгхрэ б юя0 - - - -47- 589.7545471.00066-01 12 01 913 134216 171000 MULF AC0,AC0 914 134220 174427 DIVF (PC)+,AC0 915 134222 040400 40400 916 134224 171427 MODF (PC)+,AC0 ;слмнфхрэ х бшдекхрэ жексч вюярэ 917 134226 040200 40200 918 134230 170200 STFPS R0 ;явхрюрэ б R0 яндепфхлне пяог 919 134232 175537 002014 STCFI AC1,@#2014 ;опенапюгнбюрэ вхякн я ог б жекне йнпнрйне 920 ;х гюохяюрэ б ъвеийс 2014 921 134236 022737 000220 002014 CMP #220,@#2014 ;дюммше янбоюдючр? 922 134244 001403 BEQ .+10 ;оепеирх, еякх дю 923 134246 004737 134730 JSR PC,@#134730 ;ньхайю 33. ньхайю бшонкмемхъ йнлюмдш MODF, 924 134252 000033 33 ;йнцдю наю ноепюмдю > 1 925 926 134254 171427 MODF (PC)+,AC0 ;слмнфхрэ х бшдекхрэ жексч вюярэ 927 134256 041040 41040 928 134260 175537 002014 STCFI AC1,@#2014 ;опенапюгнбюрэ вхякн я ог б жекне йнпнрйне 929 ;х гюохяюрэ б ъвеийс 2014 930 134264 022737 000005 002014 CMP #5,@#2014 ;дюммше янбоюдючр? 931 134272 001403 BEQ .+10 ;оепеирх, еякх дю 932 134274 004737 134730 JSR PC,@#134730 ;ньхайю 34. ньхайю бшонкмемхъ йнлюмдш MODF, 933 134300 000034 34 ;йнцдю ноепюмд хяр. > 1, 0 < ноепюмд оп. < 1 934 935 134302 012704 007400 MOV #7400,R4 ;сярюмнбхрэ пефхл на. рнвмнярх 936 134306 170104 LDFPS R4 ;йнпнрйнцн якнбю 937 134310 172537 LDF @(PC)+,AC1 ;гюцпсгхрэ вхякн б юя1 938 134312 134756 134756 939 134314 170601 ABSF AC1 ;онксвхрэ юаянкчрмсч бекхвхмс вхякю 940 134316 174137 002000 STF AC1,@#2000 ;б ъвеийе 002000 941 134322 005737 002000 TST @#2000 942 134326 003003 BGT .+10 943 134330 004737 134730 JSR PC,@#134730 ;ньхайю 35. ньхайю бшонкмемхъ йнлюмдш ABSF 944 134334 000035 35 945 946 134336 172537 LDF @(PC)+,AC1 ;гюцпсгхрэ вхякн б юя1 947 134340 002000 2000 948 134342 170701 NEGF AC1 ;хглемхрэ гмюй вхякю 949 134344 174137 002000 STF AC1,@#2000 950 134350 005737 002000 TST @#2000 951 134354 002403 BLT .+10 952 134356 004737 134730 JSR PC,@#134730 ;ньхайю 36. ньхайю бшонкмемхъ йнлюмдш NEGF 953 134362 000036 36 954 955 134364 012704 007600 MOV #7600,R4 ;сярюмнбхрэ пефхл дб. рнвмнярх 956 134370 170104 LDFPS R4 ; 957 134372 172737 LDF @(PC)+,AC3 ;гюцпсгхрэ вхякн б юя3 958 134374 134762 134762 959 134376 170603 ABSD AC3 ;онксвхрэ юаянкчрмсч бекхвхмс вхякю 960 134400 174337 002004 STD AC3,@#2004 ;б ъвеийе 002004 961 134404 005737 002004 TST @#2004 962 134410 003003 BGT .+10 963 134412 004737 134730 JSR PC,@#134730 ;ньхайю 37. ньхайю бшонкмемхъ йнлюмдш ABSD 964 134416 000037 37 965 966 134420 172737 LDD @(PC)+,AC3 ;гюцпсгхрэ вхякн б юя3 967 134422 002004 2004 968 134424 170703 NEGD AC3 ;хглемхрэ гмюй вхякю 969 134426 174337 002004 STD AC3,@#2004 ;б ъвеийе 002004 - - - -48- 589.7545471.00066-01 12 01 970 134432 005737 002004 TST @#2004 971 134436 002403 BLT .+10 972 134440 004737 134730 JSR PC,@#134730 ;ньхайю 40. ньхайю бшонкмемхъ йнлюмдш NEGD 973 134444 000040 40 974 975 134446 170001 SETF ;сярюмнбхрэ пефхл на. рнвмнярх 976 134450 170204 STFPS R4 ;явхрюрэ б R4 яндепфхлне пяог 977 134452 032704 000200 BIT #200,R4 ;дбнимюъ рнвмнярэ? 978 134456 001403 BEQ .+10 ;оепеирх, еякх дю 979 134460 004737 134730 JSR PC,@#134730 ;ньхайю 41. ньхайю бшонкмемхъ йнлюмдш SETF 980 134464 000041 41 981 982 134466 170011 SETD ;сярюмнбхрэ пефхл дб. рнвмнярх 983 134470 170012 SETL ;сярюмнбхрэ тнплюр дкхмнцн жекнцн вхякю 984 134472 170204 STFPS R4 ;явхрюрэ б R4 яндепфхлне пяог 985 134474 032704 000100 BIT #100,R4 ;дкхммши тнплюр жекшу вхяек? 986 134500 001003 BNE .+10 ;оепеирх, еякх дю 987 134502 004737 134730 JSR PC,@#134730 ;ньхайю 42. ньхайю бшонкмемхъ йнлюмдш SETL 988 134506 000042 42 989 990 134510 170002 SETI ;сярюмнбхрэ тнплюр йнпнрйнцн жекнцн вхякю 991 134512 170204 STFPS R4 ;явхрюрэ б R4 яндепфхлне пяог 992 134514 032704 000100 BIT #100,R4 ;йнпнрйхи тнплюр жекшу вхяек? 993 134520 001403 BEQ .+10 ;оепеирх, еякх дю 994 134522 004737 134730 JSR PC,@#134730 ;ньхайю 43. ньхайю бшонкмемхъ йнлюмдш SETI 995 134526 000043 43 996 997 134530 170000 CFCC ;яйнохпнбюрэ опхгмюйх юдюорепю ог б пяо 998 134532 170537 TSTD @(PC)+ 999 134534 134762 134762 1000 134536 002403 BLT .+10 1001 134540 004737 134730 JSR PC,@#134730 ;ньхайю 44. ньхайю бшонкмемхъ йнлюмдш CFCC 1002 134544 000044 44 1003 1004 134546 177737 LDCDF @(PC)+,AC3 1005 134550 134762 134762 1006 134552 005037 002004 CLR @#2004 1007 134556 005037 002006 CLR @#2006 1008 134562 005037 002010 CLR @#2010 1009 134566 005037 002012 CLR @#2012 1010 134572 176337 002004 STCDF AC3,@#2004 1011 134576 023737 002004 134762 CMP @#2004,@#134762 1012 134604 001012 BNE 1$ 1013 134606 023737 002006 134764 CMP @#2006,@#134764 1014 134614 001006 BNE 1$ 1015 134616 005737 002010 TST @#2010 1016 134622 001003 BNE 1$ 1017 134624 005737 002012 TST @#2012 1018 134630 001403 BEQ .+10 1019 134632 004737 134730 1$: JSR PC,@#134730 ;ньхайю 45. ньхайю бшонкмемхъ йнлюмд LDCDF х STCDF 1020 134636 000045 45 1021 1022 134640 170437 002004 CLRD @#2004 1023 134644 005737 002004 TST @#2004 1024 134650 001003 BNE .+10 1025 134652 005737 002006 TST @#2006 1026 134656 001403 BEQ .+10 - - - -49- 589.7545471.00066-01 12 01 1027 134660 004737 134730 JSR PC,@#134730 ;ньхайю 46. ньхайю бшонкмемхъ йнлюмдш CLRD 1028 134664 000046 46 1029 1030 134666 005737 002036 TST @#2036 ;ашкх меопедсялнрпеммше опепшбюмхъ? 1031 134672 001403 BEQ .+10 ;оепеирх, еякх мер 1032 134674 004737 134730 JSR PC,@#134730 ;ньхайю 47. опнхгнькн ндмн хг меопедсялнрпеммшу 1033 134700 000047 47 ;опепшбюмхи я юдпеянл бейрнпю 000244 1034 1035 134702 170010 170010 ;пегепбмюъ йнлюмдю 170010 1036 ;днкфмн опнхгнирх опепшбюмхе я юдпеянл бейрнпю 1037 ;000244 1038 134704 000240 NOP 1039 134706 005737 002036 TST @#2036 ;опнхгнькн опепшбюмхе он пегепбмни йнлюмде? 1040 134712 001003 BNE .+10 ;оепеирх, еякх дю 1041 134714 004737 134730 JSR PC,@#134730 ;ньхайю 50. мер опепшбюмхъ опх оношрйе бшонкмхрэ 1042 134720 000050 50 ;пегепбмсч йнлюмдс я йнднл 170010 1043 1044 134722 004737 134730 JSR PC,@#134730 ;оепеирх мю ондопнцпюллс гюбепьемхъ опнбепйх юдюорепю ог 1045 134726 000000 HALT ;бшунд хг опнцпюллш опнбепйх юдюорепю ог 1046 1047 1048 ;ондопнцпюллю гюбепьемхъ опнбепйх юдюорепю ог 1049 1050 134730 016604 000002 MOV 2(SP),R4 ;бшапюрэ бхпр. юдп. рюакхжш йнмтхцспюжхх обй 1051 134734 013664 177640 MOV @(SP)+,177640(R4);гюохяюрэ мнлеп ньхайх б рюакхжс йнмтхцспюжхх обй 1052 134740 005716 TST (SP) ;нвхярхрэ ярей 1053 134742 000207 RTS PC ;бширх хг ондопнцпюллш опнбепйх юдюорепю ог 1054 1055 1056 1057 ;опндопнцпюллю напюанрйх опепшбюмхъ я юдпеянл бейрнпю 000244 1058 1059 134744 005237 002036 INC @#2036 ;сбекхвхрэ явервхй опепшбюмхи 1060 134750 000002 RTI 1061 1062 1063 ;ондопнцпюллю напюарйх опепшбюмхъ я юдпеянл бейрнпю 000004 1064 ;он пегепбмни йнлюмде опх нрясрярбхх оог 1065 1066 134752 022626 CMP (6)+,(6)+ ;нвхярхрэ ярей 1067 134754 000207 RTS PC ;бшунд хг ондопнцпюллш 1068 1069 1070 ;дюммше дкъ опнбепйх юдог 1071 134756 141510 141510 1072 134760 000000 000000 1073 134762 140507 140507 1074 134764 157473 157473 1075 134766 062132 062132 1076 134770 016254 016254 1077 134772 177777 177777 1078 134774 000000 000000 1079 134776 177777 177777 1080 135000 000000 000000 1081 135002 177777 177777 1082 135004 000000 000000 1083 135006 000000 000000 - - - -50- 589.7545471.00066-01 12 01 1084 135010 177777 177777 1085 135012 000001 000001 1086 135014 000000 000000 1087 135016 177777 177777 1088 135020 134774 134774 1089 135022 135002 135002 1090 135024 135142 135142 1091 135026 077777 077777 1092 135030 000000 000000 1093 135032 177777 177777 1094 135034 000000 000000 1095 135036 100000 100000 1096 135040 000000 000000 1097 135042 000000 000000 1098 135044 000000 000000 1099 135046 002014 002014 1100 135050 040252 040252 1101 135052 125252 125252 1102 135054 125252 125252 1103 135056 125252 125252 1104 135060 040325 040325 1105 135062 052525 052525 1106 135064 052525 052525 1107 135066 052525 052525 1108 135070 040325 040325 1109 135072 052525 052525 1110 135074 052525 052525 1111 135076 052526 052526 1112 135100 040000 040000 1113 135102 000000 000000 1114 135104 000000 000000 1115 135106 000000 000000 1116 135110 037400 037400 1117 135112 000000 000000 1118 135114 000000 000000 1119 135116 000000 000000 1120 135120 040600 040600 1121 135122 000000 000000 1122 135124 000000 000000 1123 135126 000000 000000 1124 135130 020000 020000 1125 135132 000000 000000 1126 135134 000000 000000 1127 135136 000000 000000 1128 135140 000000 000000 1129 135142 177777 177777 1130 135144 000000 000000 1131 135146 000000 000000 1132 135150 000000 000000 1133 135152 000100 000100 1134 135154 000000 000000 1135 135156 000000 000000 1136 135160 000000 000000 1137 135162 177777 177777 1138 135164 177777 177777 1139 135166 177777 177777 1140 135170 000000 000000 - - - -51- 589.7545471.00066-01 12 01 1141 135172 054321 054321 1142 135174 135170 135170 1143 135176 043661 043661 1144 135200 121000 121000 1145 135202 000000 000000 1146 135204 000000 000000 1147 135206 177252 177252 1148 135210 177125 177125 1149 135212 177063 177063 1150 135214 177017 177017 1151 1152 1153 ;********************************************************************** 1154 ; 1155 ;ондопнцпюллю опнбепйх йнмрпнккепю мцлд 1156 ; 1157 ;********************************************************************** 1158 1159 135216 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо =7 1160 135224 010002 MOV R0,R2 1161 135226 072227 000007 ASH #7,R2 1162 135232 062702 174000 ADD #174000,R2 ;онксвхрэ юдпея йнмрпнккепю мцлд 1163 135236 010003 MOV R0,R3 1164 135240 072327 000002 ASH #2,R3 1165 135244 005403 NEG R3 1166 135246 062703 117756 ADD #117756,R3 ;онксвхрэ юдпея ъвеийх б рюакхже йнмтхцспюжхх обй, 1167 ;яннрберярбсчыеи йнмрпнккепс мцлд 1168 135252 010337 002002 MOV R3,@#2002 1169 135256 010446 MOV R4,-(SP) 1170 135260 010237 002000 MOV R2,@#2000 ;бшапюрэ юдпея йнмрпнккепю мцлд 1171 135264 013702 002000 MOV @#2000,R2 1172 135270 005037 177650 CLR @#177650 1173 135274 000137 167612 JMP @#167612 ;бшонкмхрэ днонкмхрекэмши лхйпн-реяр дкъ 1174 ;йнмрпнккепю х опхбндю мцлд 1175 135300 072127 000003 ASH #3,R1 1176 135304 012761 135566 000300 MOV #135566,300(R1) ;ятнплхпнбюрэ бейрнп опепшбюмхъ он гюбепьемхх 1177 135312 012761 000340 000302 MOV #340,302(R1) ;ноепюжхх 1178 135320 010001 MOV R0,R1 1179 135322 052701 000400 BIS #400,R1 1180 135326 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе он гюбепьемхх ноепюжхх 1181 135330 005762 000024 TST 24(R2) ;опнхгбеярх гюосяй йнлюмдш 1182 135334 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо=0 1183 ;он гюбепьемхх бшонкмемхъ днонкмхрекэмнцн лхйпн- 1184 ;реярю днкфмн опнхгнирх опепшбюмхе 1185 135340 012704 000020 MOV #20,R4 ;опнхгбеярх гюдепфйс дкъ бшонкмемхъ лхйпн- 1186 135344 005001 CLR R1 ;реярю х опепшбюмхъ 1187 135346 005301 DEC R1 1188 135350 001376 BNE .-2 1189 135352 077404 SOB R4,.-6 1190 135354 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 1191 135362 010001 MOV R0,R1 1192 135364 052701 000400 BIS #400,R1 1193 135370 104003 EMT+3 ;гюоперхрэ опепшбюмхе он гюбепьемхх ноепюжхх 1194 135372 012777 000001 044402 MOV #1,@2002 ;ньхайю 1. мер опепшбюмхъ нр йнмрпнккепю мцлд 1195 135400 012604 MOV (SP)+,R4 ;он гюбепьемхх бшонкмемхъ ноепюжхх 1196 135402 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю мцлд 1197 135404 012737 000340 177776 MOV #340,@#177776 ;срюмнбхрэ опхнпхрер жо=7 - - - -52- 589.7545471.00066-01 12 01 1198 135412 010001 MOV R0,R1 1199 135414 052701 000400 BIS #400,R1 1200 135420 104003 EMT+3 ;гюоперхрэ опепшбюмхе он гюбепьемхх ноепюжхх 1201 135422 013702 002000 MOV @#2000,R2 ;бшапюрэ юдпея йнмрпнккепю мцлд 1202 135426 032762 000200 000004 BIT #200,4(R2) ;еярэ ньхайх? 1203 135434 001717 BEQ 135274 ;оепеирх, еякх мер 1204 135436 022762 000120 000006 CMP #120,6(R2) ;ньхайю цнрнбмнярх опхбндю? 1205 135444 001713 BEQ 135274 ;оепеирх, еякх дю 1206 135446 016277 000006 044326 MOV 6(R2),@2002 ;гюохяюрэ йнд ньхайх, цемепхпселши лхйпн-реярнл, 1207 135454 012604 MOV (SP)+,R4 ;б рюакхжс йнмтхцспюжхх обй 1208 135456 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю мцлд 1209 135460 012704 000005 MOV #5,R4 ;бшапюрэ явервхй напюгжнб дюммшу 1210 135464 012701 135206 MOV #135206,R1 ;бшапюрэ юдпея оепбнцн напюгжю 1211 135470 012703 001000 MOV #1000,R3 ;гюдюрэ явервхй аюирнб астепю йнмрпнккепю мцлд 1212 135474 005062 000022 CLR 22(R2) ;сярюмнбхрэ сйюгюрекэ мю мювюкн астепю 1213 135500 111162 000020 MOVB @R1,20(R2) ;гюохяюрэ напюгеж бн бяе аюирш астепю 1214 135504 077303 SOB R3,.-4 1215 135506 012703 001000 MOV #1000,R3 ;гюдюрэ явервхй аюирнб астепю 1216 135512 005062 000022 CLR 22(R2) ;сярюмнбхрэ сйюгюрекэ мю мювюкн астепю 1217 135516 121162 000020 CMPB @R1,20(R2) ;дюммше янбоюдючр? 1218 135522 001014 BNE 135554 ;оепеирх мю ньхайс, еякх мер 1219 135524 077304 SOB R3,.-6 ;оепеирх й опнбепйе якедсчыецн аюирю астепю 1220 135526 005721 TST (R1)+ ;онксвхрэ юдпея якедсчыецн напюгжю дюммшу 1221 135530 077421 SOB R4,135470 ;оепеирх й опнбепйе, еякх астеп опнбепем ме мю 1222 ;бяеу напюгжюу 1223 135532 005077 044244 CLR @2002 ;гюохяюрэ опхгмюй нрясрярбхъ ньханй б лкюдьхи 1224 ;аюир ъвеийх 1225 135536 005237 002002 INC @#2002 ;онксвхрэ юдпея ярюпьецн аюирю 1226 135542 116277 000014 044232 MOVB 14(R2),@2002 ;гюохяюрэ уюпюйрепхярхйх йнмрпнккепю мцлд б 1227 ;ярюпьхи аюир ъвеийх б рюакхже йнмтхцспюжхх обй 1228 135550 012604 MOV (SP)+,R4 1229 135552 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю мцлд 1230 1231 135554 012777 000003 044220 MOV #3,@2002 ;ньхайю 3. меянбоюдемхе гюохяюммшу х явхрюммшу 1232 135562 012604 MOV (SP)+,R4 ;дюммшу хг астепю йнмрпнккепю мцлд 1233 135564 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю мцлд 1234 1235 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ он гюбепьемхх бшонкмемхъ ноепюжхх 1236 135566 012716 135404 MOV #135404,@SP ;ятнплхпнбюрэ юдпея бшундю хг опепшбюмхъ 1237 135572 012766 000340 000002 MOV #340,2(SP) 1238 135600 000002 RTI ;бшунд хг опепшбюмхъ 1239 1240 1241 ;*********************************************************************** 1242 ; 1243 ;ондопнцпюллю опнбепйх йнмрпнккепю млд 1244 ; 1245 ;*********************************************************************** 1246 1247 135602 010002 MOV R0,R2 1248 135604 072227 000007 ASH #7,R2 1249 135610 062702 174000 ADD #174000,R2 ;онксвхрэ юдпея йнмрпнккепю млд 1250 135614 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 1251 135622 010003 MOV R0,R3 1252 135624 072327 000002 ASH #2,R3 1253 135630 005403 NEG R3 1254 135632 062703 117756 ADD #117756,R3 ;бшапюрэ юдпея ъвеийх б рюакхже йнмтхцспюжхх обй, - - - -53- 589.7545471.00066-01 12 01 1255 ;яннрберярбсчыеи йнмрпнккепс млд 1256 135636 010337 002002 MOV R3,@#2002 1257 135642 005077 044134 CLR @2002 ;нвхярхрэ ъвеийс 1258 135646 010446 MOV R4,-(SP) 1259 135650 010003 MOV R0,R3 1260 135652 072327 000003 ASH #3,R3 1261 135656 005001 CLR R1 1262 135660 032762 000001 000020 BIT #1,20(R2) ;пюгпъд "ноепюжхъ гюбепьемю" б пямс сярюмнбкем? 1263 135666 001006 BNE 135704 ;оепеирх, еякх дю 1264 135670 077105 SOB R1,135660 ;нфхдюмхе сярюмнбйх пюгпъдю "ноепюжхъ гюбепьемю" 1265 135672 112777 000001 044102 MOVB #1,@2002 ;ньхайю 1. ме сярюмнбхкяъ пюгпъд "ноепюжхъ 1266 ;гюбепьемю" б пямс оняке мювюкэмни сярюмнбйх 1267 135700 012604 MOV (SP)+,R4 1268 135702 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд 1269 135704 032762 000400 000016 BIT #400,16(R2) ;сярюмнбкем пюгпъд ньхайх? 1270 135712 001405 BEQ 135726 ;оепеирх, еякх мер 1271 135714 112777 000002 044060 MOVB #2,@2002 ;ньхайю 2. ме нвхярхкяъ пйя2<08> он мювюкэмни 1272 ;сярюмнбйе 1273 135722 012604 MOV (SP)+,R4 1274 135724 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд 1275 135726 012704 000005 MOV #5,R4 ;бшапюрэ явервхй напюгжнб дюммшу 1276 135732 012701 137116 MOV #137116,R1 ;бшапюрэ юдпея напюгжнб дюммшу 1277 135736 011162 000006 MOV @R1,6(R2) ;гюохяюрэ дюммше б пюяяг 1278 135742 011137 002010 MOV @R1,@#2010 1279 135746 042737 000340 002010 BIC #340,@#2010 ;ятнплхпнбюрэ нфхдюелше дюммше 1280 135754 023762 002010 000006 CMP @#2010,6(R2) ;дюммше янбоюдючр? 1281 135762 001045 BNE 136076 ;оепеирх мю ньхайс, еякх мер 1282 135764 005721 TST (R1)+ ;онксвхрэ юдпея якедсчыецн напюгжю дюммшу 1283 135766 077415 SOB R4,135736 1284 135770 012704 000005 MOV #5,R4 ;бшапюрэ явервхй напюгжнб дюммшу 1285 135774 012701 137116 MOV #137116,R1 ;бшапюрэ юдпея напюгжнб дюммшу 1286 136000 011162 000012 MOV @R1,12(R2) ;гюохяюрэ дюммше б пюж 1287 136004 011137 002010 MOV @R1,@#2010 1288 136010 042737 176000 002010 BIC #176000,@#2010 ;ятнплхпнбюрэ нфхдюелше дюммше 1289 136016 023762 002010 000012 CMP @#2010,12(R2) ;дюммше янбоюдючр? 1290 136024 001024 BNE 136076 ;оепеирх мю ньхайс, еякх мер 1291 136026 005721 TST (R1)+ ;онксвхрэ юдпея якедсчыецн напюгжю дюммшу 1292 136030 077415 SOB R4,136000 1293 136032 012704 000005 MOV #5,R4 ;бшапюрэ явервхй напюгжнб дюммшу 1294 136036 012701 137116 MOV #137116,R1 ;бшапюрэ юдпея напюгжнб дюммшу 1295 136042 011162 000014 MOV @R1,14(R2) ;гюохяюрэ дюммше б пюо 1296 136046 011137 002010 MOV @R1,@#2010 1297 136052 042737 177770 002010 BIC #177770,@#2010 ;ятнплхпнбюрэ нфхдюелше дюммше 1298 136060 023762 002010 000014 CMP @#2010,14(R2) ;дюммше янбоюдючр? 1299 136066 001003 BNE .+10 ;оепеирх мю ньхайс, еякх мер 1300 136070 005721 TST (R1)+ ;онксвхрэ юдпея якедсчыецн напюгжю 1301 136072 077415 SOB R4,136042 1302 136074 000405 BR 136110 1303 136076 112777 000003 043676 MOVB #3,@2002 ;ньхайю 3. меянбоюдемхе гюохяюммшу х явхрюммшу 1304 ;дюммшу б пюяяг, пюж хкх пюо йнмрпнккепю млд 1305 136104 012604 MOV (SP)+,R4 1306 136106 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд 1307 136110 032762 100000 000020 BIT #100000,20(R2) ;пюгпъд "гюмър" б пямс"=0? 1308 136116 001405 BEQ 136132 ;оепеирх, еякх дю 1309 136120 112777 000004 043654 MOVB #4,@2002 ;ньхайю 4. ме нвхярхкяъ пюгпъд "гюмър" б пямс 1310 136126 012604 MOV (SP)+,R4 ;оняке мювюкэмни сярюмнбйх 1311 136130 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд - - - - - - -54- 589.7545471.00066-01 12 01 1312 136132 005001 CLR R1 1313 136134 022762 050000 000016 CMP #50000,16(R2) 1314 136142 001406 BEQ 136160 1315 136144 077105 SOB R1,136134 1316 136146 112777 000005 043626 MOVB #5,@2002 ;ньхайю 5. яндепфхлне пйя2 ме пюбмн 50000 оняке 1317 ;мювюкэмни сярюмнбйх 1318 136154 012604 MOV (SP)+,R4 1319 136156 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд 1320 136160 012763 136256 000300 MOV #136256,300(R3) ;ятнплхпнбюрэ бейрнп опепшбюмхъ он гюбепьемхх 1321 ;бшонкмемхъ ноепюжхх 1322 136166 012763 000340 000302 MOV #340,302(R3) 1323 136174 012737 000100 173206 MOV #100,@#173206 ;нвхярхрэ пюгпъдш б пецхярпюу рпеанбюмхъ 1324 136202 012737 000100 173212 MOV #100,@#173212 ;опепшбюмхи 1325 136210 010001 MOV R0,R1 1326 136212 052701 000400 BIS #400,R1 1327 136216 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе он гюбепьемхх бшонкмемхъ 1328 ;ноепюжхх 1329 136220 012704 000006 MOV #6,R4 1330 136224 005001 CLR R1 1331 136226 012762 000020 000016 MOV #20,16(R2) ;бшонкмхрэ онгхжхнмхпнбюмхе мю мскебсч днпнфйс 1332 136234 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо = 0 1333 ;он гюбепьемхх бшонкмемхъ ноепюжхх 1334 ;"онгхжхнмхпнбюмхе мю мскебсч днпнфйс" днкфмн 1335 ;опнхгнирх опепшбюмхе 1336 136240 077101 SOB R1,.+0 ;нфхдюмхе опепшбюмхъ 1337 136242 077402 SOB R4,.-2 1338 136244 112777 000006 043530 MOVB #6,@2002 ;ньхайю 6. мер опепшбюмхъ нр йнмрпнккепю млд 1339 136252 012604 MOV (SP)+,R4 ;он гюбепьемхх бшонкмемхъ ноепюжхх 1340 ;"онгхжхнмхпнбюмхе мю мскебсч днпнфйс" 1341 136254 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд 1342 136256 022626 CMP (SP)+,(SP)+ 1343 136260 010001 MOV R0,R1 1344 136262 052701 000400 BIS #400,R1 1345 136266 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр йнмрпнккепю млд 1346 136270 032762 000001 000020 BIT #1,20(R2) ;пюгпъд "ноепюжхъ гюбепьемю б пямс =1? 1347 136276 001005 BNE 136312 ;оепеирх, еякх дю 1348 136300 112777 000007 043474 MOVB #7,@2002 ;ньхайю 7. ме сярюмнбхкяъ пюгпъд "ноепюжхъ гюбепьемю" 1349 136306 012604 MOV (SP)+,R4 ;б пямс оняке бшонкмемхъ ноепюжхх "онгхжхнмхпнбюмхе 1350 ;мю мскебсч днпнфйс" 1351 136310 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд 1352 136312 032762 000400 000016 BIT #400,16(R2) ;ашкх ньхайх? 1353 136320 001405 BEQ 136334 ;оепеирх, еякх мер 1354 136322 112777 000010 043452 MOVB #10,@2002 ;ньхайю 10. сярюмнбхкяъ пйя2<08> опх бшонкмемхх 1355 136330 012604 MOV (SP)+,R4 ;ноепюжхх "онгхжхнмхпнбюмхе мю мскебсч днпнфйс" 1356 136332 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд 1357 136334 032762 000400 000020 BIT #400,20(R2) ;онгхжхнмхпнбюмхе нясыеярбкъеряъ б пефхле 1358 ;"ашярпши онхяй"? 1359 136342 001003 BNE .+10 ;оепеирх, еякх онгхжхнмхпнбюмхе нясыеярбкъеряъ 1360 ;б пефхле "ледкеммши онхяй" 1361 136344 052777 000400 043430 BIS #400,@2002 ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй опхгмюй 1362 ;мюйнохрекъ я онгхжхнмхпнбюмхел б пефхле 1363 ;"ашярпши онхяK" 1364 136352 012737 000230 002004 MOV #230,@#2004 ;бшапюрэ юдпея жхкхмдпю = 230 1365 136360 012737 000002 002006 MOV #2,@#2006 1366 136366 012763 136732 000300 MOV #136732,300(R3) ;ятнплхпнбюрэ бейрнпш опепшбюмхъ нр йнмрпнккепю 1367 136374 012763 000340 000302 MOV #340,302(R3) ;млд 1368 136402 012763 137000 000304 MOV #137000,304(R3) - - - -55- 589.7545471.00066-01 12 01 1369 136410 012763 000340 000306 MOV #340,306(R3) 1370 136416 013704 002006 MOV @#2006,R4 1371 136422 005037 002000 CLR @#2000 1372 136426 005737 002000 TST @#2000 1373 136432 001004 BNE 136444 1374 136434 013762 002004 000012 MOV @#2004,12(R2) ;гюдюрэ юдпея жхкхмдпю ( O хкх 230 ) 1375 136442 000412 BR 136470 1376 136444 032737 000001 002000 BIT #1,@#2000 1377 136452 001403 BEQ .+10 1378 136454 005062 000012 CLR 12(R2) ;гюдюрэ юдпея жхкхмдпю = 000000 1379 136460 000403 BR .+10 1380 136462 013762 002004 000012 MOV @#2004,12(R2) ;гюдюрэ юдпея жхкхмдпю ( 0 хкх 230 ) 1381 136470 005062 000006 CLR 6(R2) ;гюдюрэ юдпея яейрнпю = 000000 1382 136474 032737 000001 002000 BIT #1,@#2000 1383 136502 001403 BEQ .+10 1384 136504 013701 002006 MOV @#2006,R1 ;гюдюрэ юдпея онбепумнярх ( O хкх 1 ) 1385 136510 000401 BR .+4 1386 136512 010401 MOV R4,R1 1387 136514 005401 NEG R1 1388 136516 063701 002006 ADD @#2006,R1 ;ятнплхпнбюрэ юдпея онбепумнярх 1389 136522 010162 000014 MOV R1,14(R2) ;гюдюрэ юдпея онбепумнярх 1390 136526 010001 MOV R0,R1 1391 136530 052701 000400 BIS #400,R1 1392 136534 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр йнмрпнккепю млд 1393 ;он гюбепьемхх бшонкмемхъ ноепюжхх 1394 136536 042701 000400 BIC #400,R1 1395 136542 052701 001000 BIS #1000,R1 1396 136546 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр йнмрпнккепю млд 1397 ;он гюбепьемхх явхршбюмхъ яейрнпю б астеп 1398 ;йнмрпнккепю 1399 136550 012762 000040 000016 MOV #40,16(R2) ;бшонкмхрэ ноепюжхч "времхе яейрнпю" 1400 136556 005037 002012 CLR @#2012 1401 136562 012737 000003 002014 MOV #3,@#2014 1402 136570 052705 177777 BIS #-1,R5 1403 136574 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо = 0 1404 ;днкфмн опнхгнирх опепшбюмхе нр йнмрпнккепю 1405 ;он гюбепьемхх явхршбюмхъ яейрнпю б 1406 ;астеп йнмрпнккепю 1407 136600 105777 043176 TSTB @2002 ;ашкх ньхайх? 1408 136604 001013 BNE 136634 ;оепеирх, еякх дю 1409 136606 005705 TST R5 ;ашкн опепшбюмхе он гюбепьемхх бшонкмемхъ ноепюжхх? 1410 136610 001412 BEQ 136636 ;оепеирх, еякх дю 1411 136612 005337 002012 DEC @#2012 ;опнхгбеярх гюдепфйс дкъ бшонкмемхъ ноепюжхх 1412 136616 001370 BNE 136600 ;"времхе яейрнпю" х дкъ наяксфхбюмхъ 1413 136620 005337 002014 DEC @#2014 ;опепшбюмхи 1414 136624 001365 BNE 136600 1415 136626 112777 000011 043146 MOVB #11,@2002 ;ньхайю 11. мер опепшбюмхъ он гюбепьемхх 1416 ;явхршбюмхъ яейрнпю б астеп йнмрпнккепю хкх 1417 ;он гюбепьемхх явхршбюмхъ дюммшу хг астепю 1418 ;йнмрпнккепю 1419 136634 000411 BR 136660 ;опх мюкхвхх ньхайх оепеирх мю 1420 ;ондопнцпюллс опнбепйх пюгпъднб "гюмър" х 1421 ;"ноепюжхъ гюбепьемю" б пямс 1422 136636 032737 000002 002000 BIT #2,@#2000 1423 136644 001003 BNE .+10 1424 136646 005237 002000 INC @#2000 1425 136652 000665 BR 136426 - - - -56- 589.7545471.00066-01 12 01 1426 136654 005304 DEC R4 1427 136656 001261 BNE 136422 1428 136660 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 1429 136666 010001 MOV R0,R1 1430 136670 052701 000400 BIS #400,R1 1431 136674 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр йнмрпнккепю млд он 1432 ;гюбепьемхх бшонкмемхъ ноепюжхх 1433 136676 042701 000400 BIC #400,R1 1434 136702 052701 001000 BIS #1000,R1 1435 136706 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр йнмрпнккепю млд он 1436 ;гюбепьемхх явхршбюмхъ яейрнпю б астеп 1437 ;йнмрпнккепю 1438 136710 004737 137036 JSR PC,@#137036 ;опнбепхрэ пюгпъдш "гюмър" х "ноепюжхъ гюбепьемю" 1439 ;б пямс 1440 136714 000401 BR .+4 ;оепеирх мю ньхайс 1441 136716 000403 BR .+10 ;нанирх ньхайс 12 1442 136720 112777 000012 043054 MOVB #12,@2002 ;ньхайю 12. ме нвхярхкяъ пюгпъд "гюмър" хкх 1443 ;ме сярюмнбхкяъ пюгпъд "ноепюжхъ гюбепьемю" 1444 ;б пямс он гюбепьемхх бшонкмемхъ ноепюжхх 1445 136726 012604 MOV (SP)+,R4 1446 136730 104000 EMT ;бшунд хг ондопнцпюллш опнбепйх йнмрпнккепю млд 1447 1448 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ он гюбепьемхх бшонкмемхъ ноепюжхх 1449 1450 136732 010001 MOV R0,R1 1451 1452 136734 052701 000400 BIS #400,R1 1453 136740 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр йнмрпнккепю млд 1454 ;он гюбепьемхх бшонкмемхъ ноепюжхх 1455 136742 042701 000400 BIC #400,R1 1456 136746 052701 001000 BIS #1000,R1 1457 136752 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр йнмрпнккепю млд 1458 ;он гюбепьемхх явхршбюмхъ яейрнпю б астеп 1459 ;йнмрпнккепю 1460 136754 032762 000400 000016 BIT #400,16(R2) ;опнхгнькю ньхайю? 1461 136762 001002 BNE .+6 ;оепеирх, еякх дю 1462 136764 005005 CLR R5 ;сярюмнбхрэ опхгмюй сяоеьмнцн гюбепьемхъ ноепюжхх 1463 ;х мюкхвхъ опепшбюмхъ он гюбепьемхх бшонкмемхъ 1464 ;ноепюжхх 1465 136766 000002 RTI ;бшунд хг опепшбюмхъ 1466 1467 136770 112777 000013 043004 MOVB #13,@2002 ;ньхайю 13. сярюмнбхкяъ пйя2<08> 1468 ;опх бшонкмемхх ноепюжхх "времхе яейрнпю" 1469 136776 000002 RTI ;бшунд хг опепшбюмхъ 1470 1471 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ он гюбепьемхх явхршбюмхъ 1472 ;яейрнпю б астеп йнмрпнккепю 1473 137000 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо=0 1474 137004 010001 MOV R0,R1 1475 137006 052701 001000 BIS #1000,R1 1476 137012 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр йнмрпнккепю млд 1477 ;он гюбепьемхх явхршбюмхъ яейрнпю б 1478 ;астеп йнмрпнккепю 1479 137014 012701 000400 MOV #400,R1 1480 137020 005762 000010 TST 10(R2) ;явхрюрэ астеп 1481 137024 077103 SOB R1,.-4 1482 ;он гюбепьемхх явхршбюмхъ астепю днкфем - - - -57- 589.7545471.00066-01 12 01 1483 ;сярюмнбхрэяъ пюгпъд "ноепюжхъ гюбепьемю" 1484 ;х опнхгнирх опепшбюмхе он гюбепьемхх 1485 ;бшонкмемхъ ноепюжхх 1486 137026 012737 000100 173212 MOV #100,@#173212 ;нвхярхрэ бяе пюгпъдш б пецхярпе рпеанбюмхъ 1487 ;опепшбюмхи 1488 137034 000002 RTI ;бшунд хг опепшбюмхъ 1489 1490 ;ондопнцпюллю опнбепйх пюгпъднб "гюмър" х "ноепюжхъ гюбепьемю" 1491 1492 137036 005001 CLR R1 1493 137040 032762 100000 000020 BIT #100000,20(R2) ;пюгпъд "гюмър" нвхыем? 1494 137046 001402 BEQ .+6 ;оепеирх, еякх дю 1495 137050 077105 SOB R1,137040 1496 137052 000207 RTS PC ;бшунд мю ньхайс 12 1497 137054 012762 000020 000016 MOV #20,16(R2) ;бшонкмхрэ онгхжхнмхпнбюмхе мю мскебсч днпнфйс 1498 137062 005001 CLR R1 1499 137064 032762 000001 000020 BIT #1,20(R2) ;пюгпъд "ноепюжхъ гюбепьемю" б пямс =1? 1500 137072 001003 BNE .+10 ;оепеирх, еякх дю 1501 137074 077105 SOB R1,137064 ;гюдепфйю дкъ сярюмнбйх пюгпъдю "ноепюжхъ 1502 137076 077406 SOB R4,137064 ;гюбепьемю" б пямс 1503 137100 000402 BR .+6 ;оепеирх мю ньхайс 12, еякх пюгпъд "ноепюжхъ 1504 ;гюбепьемю" ме сярюмнбхкяъ 1505 137102 062716 000002 ADD #2,@SP ;оепеирх вепег ньхайс, еякх пюгпъд "ноепюжхъ 1506 ;гюбепьемю" сярюмнбхкяъ 1507 137106 012737 000100 173206 MOV #100,@#173206 ;нвхярхрэ бяе пюгпъдш б пецхярпе рпеанбюмхъ 1508 ;опепшбюмхи 1509 137114 000207 RTS PC ;бшунд хг ондопнцпюллш 1510 1511 ;напюгжш дюммшу 1512 137116 125252 125252 1513 137120 052525 052525 1514 137122 031463 031463 1515 137124 004717 004717 1516 137126 000377 000377 1517 1518 ;*********************************************************************** 1519 ; 1520 ;ондопнцпюллю опнбепйх бхденйнмрпнккепю 1521 ; 1522 ;*********************************************************************** 1523 137130 010001 MOV R0,R1 1524 137132 072127 000007 ASH #7,R1 1525 137136 062701 174000 ADD #174000,R1 ;онксвхрэ юдпея бхденйнмрнккепю 1526 137142 012761 000030 000006 MOV #30,6(R1) ;гюоперхрэ тнплхпнбюмхе хгнапюфемхъ мю щйпюме 1527 ;лнмхрнпю 1528 137150 012761 014030 000010 MOV #14030,10(R1) 1529 137156 010002 MOV R0,R2 1530 137160 072227 000002 ASH #2,R2 1531 137164 005402 NEG R2 1532 137166 062702 117756 ADD #117756,R2 ;онксвхрэ юдпея ъвеийх рюакхжш йнмтхцспюжхх обй, 1533 ;яннрберярбсчыеи бхденйнмрпнккепс 1534 137172 010237 002000 MOV R2,@#2000 1535 137176 005077 042576 CLR @2000 1536 137202 012746 000004 MOV #4,-(SP) 1537 137206 012746 000140 MOV #140,-(SP) 1538 137212 011661 000026 MOV @SP,26(R1) ;пюглеярхрэ оюлърэ бхденйнмрнккепю б юдпеямнл 1539 ;опнярпюмярбе нр 14000000 дн 14077777 - - - -58- 589.7545471.00066-01 12 01 1540 137216 006316 ASL @SP 1541 137220 006316 ASL @SP 1542 137222 104005 EMT+5 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ дкъ 1543 ;днярсою й оюлърх бхденйнмрпнккепю 1544 137224 022626 CMP (SP)+,(SP)+ 1545 137226 004737 140052 JSR PC,@#140052 ;опнбепхрэ яндепфхлне пецхярпнб бхденйнмрпнккепю 1546 ;оняке мювюкэмни сярюмнбйх 1547 137232 103003 BCC .+10 ;оепеирх , еякх ньханй мер 1548 137234 004737 137714 JSR PC,@#137714 ;ньхайю 2. мебепмне яндепфхлне б ндмнл хг 1549 137240 000002 000002 ;пецхярпнб оняке мювюкэмни сярюмнбйх 1550 137242 052761 000040 000006 BIS #40,6(R1) ;пюгпеьхрэ днярсо жо й оюлърх бхденйнмрпнккепю 1551 137250 004737 140156 JSR PC,@#140156 ;опнбепхрэ оюлърэ бхденйнмрпнккепю гюохяэч, 1552 ;хмбепрхпнбюмхел х явхршбюмхел ьюулюрмнцн 1553 ;йндю 1554 137254 103003 BCC .+10 ;оепеирх, еякх ньханй мер 1555 137256 004737 137714 JSR PC,@#137714 ;ньхайю 3. ньхайю гюохях/явхршбюмхъ б оюлърх 1556 137262 000003 000003 ;бхденйнмрпнккепю 1557 137264 004737 140214 JSR PC,@#140214 ;опнбепхрэ бпелъ тнплхпнбюмхъ ндмнцн йюдпю х 1558 ;мюкхвхе опепшбюмхъ он гюбепьемхх тнплхпнбюмхъ 1559 ;йюдпю 1560 137270 103003 BCC .+10 ;оепеирх, еякх ньханй мер 1561 137272 004737 137714 JSR PC,@#137714 ;ньхайю 4. ньхайю яйнпнярх тнплхпнбюмхъ йюдпю хкх 1562 137276 000004 000004 ;ме опнхгнькн опепшбюмхе он гюбепьемхх 1563 ;тнплхпнбюмхъ йюдпю 1564 137300 042761 000007 000006 BIC #7,6(R1) 1565 137306 052761 000002 000006 BIS #2,6(R1) 1566 137314 004737 140434 JSR PC,@#140434 ;опнбепхрэ опюбхкэмнярэ онярпнемхъ бейрнпю х 1567 ;х мюкхвхе опепшбюмхъ он гюбепьемхх онярпнемхъ 1568 ;бейрнпю 1569 137320 103003 BCC .+10 ;оепеирх, еякх ньханй мер 1570 137322 004737 137714 JSR PC,@#137714 ;ньхайю 5. 1571 137326 000005 000005 ;ньхайю опх онярпнемхх бейрнпю хкх ме опнхгнькн 1572 ;опепшбюмхе он гюбепьемхх онярпнемхъ бейрнпю 1573 137330 010103 MOV R1,R3 1574 137332 062703 000006 ADD #6,R3 1575 137336 012746 000007 MOV #7,-(SP) 1576 137342 012746 000001 MOV #1,-(SP) 1577 137346 004737 140772 JSR PC,@#140772 ;опнбепхрэ опюбхкэмнярэ пефхлнб лндхтхйюжхх 1578 ;бхдендюммшу 1579 137352 103003 BCC .+10 ;оепеирх, еякх ньханй мер 1580 137354 004737 137714 JSR PC,@#137714 ;ньхайю 6. 1581 137360 000006 000006 ;ньхайю пефхлю лндхтхйюжхх бхдендюммшу 1582 137362 004737 142250 JSR PC,@#142250 ;опнбепхрэ ялеыемхе юдпеянб оюлърх нрмняхрекэмн 1583 ;йюдпнбшу яхмупнхлоскэянб 1584 137366 103003 BCC .+10 ;оепеирх, еякх ньханй мер 1585 137370 004737 137714 JSR PC,@#137714 ;ньхайю 7. ньхайю ялеыемхъ юдпеянб оюлърх 1586 137374 000007 7 ;бхденйнмрпнккепю нрмняхрекэмн йюдпнбшу 1587 ;яхмупнхлоскэянб 1588 137376 104006 EMT+6 ;бняярюмнбхрэ йнмярюмрш оепепюяопедекемхъ нгс 1589 ;оняке опнбепйх бхденйнмрпнккепю 1590 137400 012700 001403 MOV #1403,R0 ;бшапюрэ хдемрхтхйюжхнммши йнд пюяьхпхрекъ 1591 ;оюлърх бхдендюммшу 1592 137404 104001 EMT+1 ;нопедекхрэ мнлеп онгхжхх пюяьхпхрекъ 1593 ;оюлърх бхдендюммшу 1594 ;б R0 - мнлеп онгхжхх 1595 ;опх нрясрярбхх пюяьхпхрекъ оюлърх бхдендюммшу 1596 ;R0=177777 - - - -59- 589.7545471.00066-01 12 01 1597 137406 020027 177777 CMP R0,#-1 ;пюяьхпхрекэ оюлърх бхдендюммшу сярюмнбкем? 1598 137412 001011 BNE 137436 ;оепеирх, еякх дю 1599 137414 032761 020000 000004 BIT #20000,4(R1) ;пя<13>=1? 1600 137422 001003 BNE .+10 ;оепеирх,еякх дю 1601 137424 004737 137714 JSR PC,@#137714 ;ньхайю 10. пя<13>=0 опх нрясрярбхх пюяьхпхрекъ 1602 137430 000010 10 ;оюлърх бхдендюммшу 1603 137432 000137 137732 JMP @#137732 1604 1605 ;*********************************************************************** 1606 ; 1607 ;ондопнцпюллю опнбепйх пюяьхпхрекъ оюлърх бхдендюммшу 1608 ; 1609 ;*********************************************************************** 1610 1611 137436 010002 MOV R0,R2 1612 137440 072227 000002 ASH #2,R2 1613 137444 005402 NEG R2 1614 137446 062702 117756 ADD #117756,R2 ;онксвхрэ юдпея ъвеийх рюакхжш йнмтхцспюжхх обй, 1615 ;яннрберярбсчыеи пюяьхпхрекч оюлърх бхдендюммшу 1616 137452 010237 002000 MOV R2,@#2000 1617 137456 027727 042316 177777 CMP @2000,#-1 1618 137464 001402 BEQ .+6 1619 137466 000137 137732 JMP @#137732 1620 137472 005077 042302 CLR @2000 1621 137476 012746 000004 MOV #4,-(SP) 1622 137502 012746 000140 MOV #140,-(SP) 1623 137506 011661 000026 MOV @SP,26(R1) ;пюглеярхрэ оюлърэ пюяьхпхрекъ бхдендюммшу 1624 ;я юдпеяю 14000000 1625 137512 006316 ASL @SP 1626 137514 006316 ASL @SP 1627 137516 104005 EMT+5 ;ятнплхпнбюрэ йнмярюмрш дкъ днярсою й оюлърх 1628 ;пюяьхпхрекъ бхдендюммшу 1629 137520 022626 CMP (SP)+,(SP)+ 1630 137522 004737 140120 JSR PC,@#140120 ;пя<13> =0? 1631 137526 103003 BCC .+10 ;оепеирх, еякх дю 1632 137530 004737 137724 JSR PC,@#137724 ;ньхайю 1. пя<13>=1 опх мюкхвхх пюяьхпхрекъ 1633 137534 000001 000001 ;оюлърх бхдендюммшу 1634 137536 004737 140136 JSR PC,@#140136 1635 137542 103003 BCC .+10 ;оепеирх, еякх ньханй мер 1636 137544 004737 137724 JSR PC,@#137724 ;ньхайю 2. 1637 137550 000002 000002 1638 137552 012761 000030 000006 MOV #30,6(R1) ;гюоперхрэ тнплхпнбюмхе хгнапюфемхъ мю щKпюме 1639 ;лнмхрнпю 1640 137560 012761 014070 000010 MOV #14070,10(R1) 1641 137566 004737 140156 JSR PC,@#140156 ;опнбепхрэ оюлърэ пюяьхпхрекъ бхдендюммшу 1642 ;онякеднбюрекэмни гюохяэч/явхршбюмхел дюммшу 1643 137572 103003 BCC .+10 ;оепеирх, еякх ньханй мер 1644 137574 004737 137724 JSR PC,@#137724 ;ньхайю 3. ньхайю гюохях/явхршбюмхъ б оюлърх 1645 137600 000003 000003 ;пюяьхпхрекъ бхдендюммшу 1646 137602 010103 MOV R1,R3 1647 137604 062703 000010 ADD #10,R3 1648 137610 012746 000007 MOV #7,-(SP) 1649 137614 012746 000001 MOV #1,-(SP) 1650 137620 004737 140772 JSR PC,@#140772 ;опнбепхрэ пефхлш лндхтхйюжхх бхдендюммшу 1651 137624 103003 BCC .+10 ;оепеирх, еякх ньханй мер 1652 137626 004737 137724 JSR PC,@#137724 ;ньхайю 4. ньхайю пефхлю лндхтхйюжхх бхдендюммшу 1653 137632 000004 000004 - - - -60- 589.7545471.00066-01 12 01 1654 137634 012761 034030 000010 MOV #34030,10(R1) 1655 137642 004737 140156 JSR PC,@#140156 1656 137646 103003 BCC .+10 1657 137650 004737 137724 JSR PC,@#137724 1658 137654 000005 000005 1659 137656 010103 MOV R1,R3 1660 137660 062703 000010 ADD #10,R3 1661 137664 012746 003400 MOV #3400,-(SP) 1662 137670 012746 000400 MOV #400,-(SP) 1663 137674 004737 140772 JSR PC,@#140772 1664 137700 103003 BCC .+10 1665 137702 004737 137724 JSR PC,@#137724 1666 137706 000006 000006 1667 137710 000137 137732 JMP @#137732 1668 137714 104006 EMT+6 ;бняярюмнбхрэ йнмярюмрш оепепюяопедекемхъ нгс 1669 137716 013677 042056 MOV @(SP)+,@2000 ;гюохяюрэ йнд ньхайх б рюакхжс йнмтхцспюжхх обй 1670 137722 000441 BR 140026 1671 137724 104006 EMT+6 ;бняярюмнбхрэ йнмярюмрш оепепюяопедекемхъ нгс 1672 137726 013677 042046 MOV @(SP)+,@2000 ;гюохяюрэ йнд ньхайх б рюакхжс йнмтхцспюжхх обй 1673 137732 012761 001000 000004 MOV #1000,4(R1) 1674 137740 012761 000032 000006 MOV #32,6(R1) 1675 137746 012761 015032 000010 MOV #15032,10(R1) 1676 1677 ;гюохяюрэ бн бяе ъвеийх оюлърх бхдендюммшу 0 1678 137754 005061 000024 CLR 24(R1) ;гюдюрэ тсмйжхч ъпйнярх 1679 137760 005061 000016 CLR 16(R1) ;гюдюрэ йннпдхмюрс X=0 1680 137764 005061 000020 CLR 20(R1) ;гюдюрэ йннпдхмюрс Y=0 1681 137770 012761 177777 000022 MOV #-1,22(R1) ;гюдюрэ дкхмс бейрнпю 1682 137776 012746 012455 MOV #12455,-(SP) 1683 140002 005761 000004 TST 4(1) ;ноепюжхъ гюбепьемю? 1684 140006 100406 BMI 140024 ;оепеирх, еякх дю 1685 140010 005316 DEC @%6 ;нфхдюмхе гюбепьемхъ ноепюжхх 1686 140012 001373 BNE 140002 1687 140014 005726 TST (6)+ ;бняярюмнбхрэ ся 1688 140016 004737 137714 JSR %7,@#137714 ;ньхайю 1. мер цнрнбмнярх бхденйнмрпнккепю он 1689 140022 000001 1 ;гюбепьемхх онярпнемхъ бейрнпю дкхмни 177777 1690 140024 005726 TST (6)+ 1691 140026 005061 000004 CLR 4(1) ;нвхярхрэ пецхярп йнлюмд 1692 140032 005061 000006 CLR 6(1) ;нвхярхрэ пецхярп сопюбкемхъ дюммшлх 1693 140036 005061 000010 CLR 10(1) 1694 140042 005061 000014 CLR 14(1) ;нвхярхрэ пецхярп ядбхцю хгнапюфемхъ 1695 140046 104006 EMT+6 ;бняярюмнбхрэ йнмярюмрш оепепюяопедекемхъ нгс 1696 ;оняке опнбепйх бхденйнмрпнккепю 1697 140050 104000 EMT ;бширх хг ондопнцпюллш опнбепйх бхденйнмрпнккепю 1698 1699 ;*********************************************************************** 1700 ;ондопнцпюллю опнбепйх пюгпъднб пецхярпнб оняке мювюкэмни 1701 ;сярюмнбйх (йнлюмдю RESET) 1702 ;пюгпъдш <15-14>, <10-08>, <06>, <01-00> б пецхярпе янярнъмхъ 1703 ;пюгпъдш <05>, <02-00> б пецхярпе сопюбкемхъ дюммшлх 1704 ;пюгпъдш <07-00> б пецхярпе ядбхцю хгнапюфемхъ 1705 ;*********************************************************************** 1706 1707 140052 005761 000004 TST 4(1) 1708 140056 100016 BPL 140114 1709 140060 036127 000004 043503 BIT 4(1),#43503 1710 140066 001012 BNE 140114 - - - -61- 589.7545471.00066-01 12 01 1711 140070 032761 000047 000006 BIT #47,6(1) 1712 140076 001006 BNE 140114 1713 140100 032761 000377 000014 BIT #377,14(1) 1714 140106 001002 BNE .+6 1715 140110 000241 CLC ;нвхярхрэ я-пюгпъд опх нрясрярбхх ньханй 1716 140112 000401 BR .+4 1717 140114 000261 SEC ;сярюмнбхрэ я-пюгпъд опх мюкхвхх ньханй 1718 140116 000207 RTS %7 1719 1720 1721 ;*********************************************************************** 1722 ; 1723 ;ондопнцпюллю опнбепйх пя<13> оняке мювюкэмни сярюмнбйх ( йнлюмдю RESET) 1724 ;опх пя<13>=1 сярюмюбкхбюеряъ я-пюгпъд 1725 ; 1726 ;*********************************************************************** 1727 1728 1729 140120 032761 020000 000004 BIT #20000,4(1) ;пюяьхпхрекэ оюлърх бхдендюммшу сярюмнбкем? 1730 140126 001001 BNE .+4 ;оепеирх, еякх мер 1731 140130 005727 000261 TST #261 1732 140134 000207 RTS %7 1733 1734 140136 032761 023447 000010 BIT #23447,10(1) 1735 140144 001002 BNE .+6 1736 140146 000241 CLC 1737 140150 000401 BR .+4 1738 140152 000261 SEC 1739 140154 000207 RTS %7 1740 1741 1742 ;*********************************************************************** 1743 ; 1744 ;ондопнцпюллю опнбепйх оюлърх бхдендюммшу гюохяэч/ явхршбюмхел 1745 ;ьюулюрмнцн йндю. опх намюпсфемхх ньхайх сярюмюбкхбюеряъ я-пюгпъд 1746 ; 1747 ;*********************************************************************** 1748 1749 140156 010046 MOV %0,-(6) ;янупюмхрэ б ярейе R0-R4 1750 140160 010146 MOV %1,-(6) 1751 140162 010246 MOV %2,-(6) 1752 140164 010446 MOV %4,-(6) 1753 140166 013703 172342 MOV @#172342,%3 1754 140172 012705 000001 MOV #1,%5 ;сярюмнбхрэ опхгмюй опнбепйх оюлърх бхдендюммшу 1755 140176 004737 162256 JSR %7,@#162256 ;опнбепхрэ оюлърэ бхдендюммшу 1756 140202 012604 MOV (6)+,%4 ;бняярюмнбхрэ R4-R0 1757 140204 012602 MOV (6)+,%2 1758 140206 012601 MOV (6)+,%1 1759 140210 012600 MOV (6)+,%0 1760 140212 000207 RTS %7 1761 1762 ;*********************************************************************** 1763 ; 1764 ;ондопнцпюллю опнбепйх бпелемх тнплхпнбюмхъ йюдпю х опюбхкэмнярх 1765 ;опепшбюмхъ нр бхденйнмрпнккепю он гюбепьемхх тнплхпнбюмхъ йюдпю 1766 ; 1767 ;*********************************************************************** - - - -62- 589.7545471.00066-01 12 01 1768 1769 140214 010146 MOV %1,-(6) ;янупюмхрэ R1 1770 140216 010001 MOV %0,%1 ;бшапюрэ мнлеп онгхжхх 1771 140220 072127 000003 ASH #3,%1 1772 140224 012761 140412 000300 MOV #140412,300(1) ;ятнплхпнбюрэ бейрнп опепшбюмхъ нр 1773 ;бхденйнмрпнккепю я юдпеянл 000320 1774 140232 012761 000340 000302 MOV #340,302(1) 1775 140240 010001 MOV %0,%1 1776 140242 052701 000400 BIS #400,%1 1777 140246 011604 MOV @%6,%4 1778 140250 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр бхденйнмрпнккепю 1779 ;он гюбепьемхх тнплхпнбюмхъ йюдпю 1780 140252 012746 140304 MOV #140304,-(6) ;ятнплхпнбюрэ юдпея бшундю хг рперэецн 1781 ;опепшбюмхъ 1782 140256 012702 000003 MOV #3,%2 1783 140262 005003 CLR %3 1784 140264 012764 000101 000004 MOV #101,4(4) ;сярюмнбхрэ пй<06> х пй<00> 1785 140272 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо=0 1786 ;днкфмш опнхгнирх 3 опепшбюмхъ 1787 140276 005203 INC %3 ;янявхрюрэ йнкхвеярбн бшонкмемхи йнлюмд 1788 140300 001376 BNE .-2 ;INC х BNE лефдс брнпшл х рперэхл опепшбюмхел, 1789 ;явервхй б R3 1790 ;опнбепхрэ бпелъ тнплхпнбюмхъ йюдпю ( 625 ярпнй ) 1791 140302 005726 TST (6)+ 1792 140304 020327 010060 CMP %3,#10060 ;R3 лемэье 10060? 1793 140310 002432 BLT 140376 ;оепеирх мю ньхайс, еякх дю 1794 140312 020327 011711 CMP %3,#11711 ;R3 анкэье 11711? 1795 140316 003027 BGT 140376 ;оепеирх мю ньхайс, еякх дю 1796 140320 012746 140352 MOV #140352,-(6) ;ятнплхпнбюрэ юдпея бшундю хг рперэецн 1797 ;опепшбюмхъ 1798 140324 012702 000003 MOV #3,%2 ;бшапюрэ явервхй опепшбюмхи 1799 140330 005003 CLR %3 1800 140332 012764 000100 000004 MOV #100,4(4) ;сярюмнбхрэ пй<06>, пй<00> нвхярхрэ 1801 140340 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо=0 1802 ;днкфмш опнхгнирх 3 опепшбюмхъ 1803 140344 005203 INC %3 ;янявхрюрэ йнкхвеярбн бшонкмемхи йнлюмд 1804 140346 001376 BNE .-2 ;INC х BNE лефдс брнпшл х рперэхл опепшбюмхел 1805 ;явервхй б R3 1806 ;опнбепхрэ бпелъ тнплхпнбюмхъ йюдпю ( 525 ярпнй ) 1807 140350 005726 TST (6)+ 1808 140352 020327 006632 CMP %3,#6632 ;R3 лемэье 6632? 1809 140356 002407 BLT 140376 ;оепеирх мю ньхайс, еякх дю 1810 140360 020327 010237 CMP %3,#10237 ;R3 анкэье 10237? 1811 140364 003004 BGT 140376 ;оепеирх мю ньхайс, еякх дю 1812 140366 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бхденйнмрпнккепю 1813 140370 000241 CLC ;нвхярхрэ я-пюгпъд опх нрясрярбхх ньханй 1814 140372 012601 MOV (6)+,%1 1815 140374 000405 BR 140410 1816 140376 005064 000004 CLR 4(4) ;нвхярхрэ пй 1817 140402 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бхденйнмпнккепю 1818 140404 000261 SEC ;сярюмнбхрэ я-пюгпъд опх мюкхвхх ньханй 1819 140406 012601 MOV (6)+,%1 1820 140410 000207 RTS %7 1821 1822 1823 ;ондопнцпюллю напюанрйх опепшбюмхъ нр бхденйнмрнккепю 1824 - - - -63- 589.7545471.00066-01 12 01 1825 140412 005302 DEC %2 ;рперэе опепшбюмхе? 1826 140414 001403 BEQ .+10 ;оепеирх, еякх дю 1827 140416 012703 000001 MOV #1,%3 1828 140422 000002 RTI 1829 140424 005064 000004 CLR 4(4) ;нвхярхрэ пй 1830 140430 022626 CMP (6)+,(6)+ 1831 140432 000207 RTS %7 1832 1833 1834 ;*********************************************************************** 1835 ; 1836 ;ондопнцпюллю опнбепйх опюбхкэмнярх онярпнемхъ бейрнпю х мюкхвхъ 1837 ;опепшбюмхъ он гюбепьемхх онярпнемхъ бейрнпю 1838 ; 1839 ;*********************************************************************** 1840 140434 010146 MOV %1,-(6) 1841 140436 012703 000003 MOV #3,%3 ;бшапюрэ явервхй опепшбюмхи 1842 140442 010102 MOV %1,%2 1843 140444 010001 MOV %0,%1 ;бшапюрэ мнлеп онгхжхх бхденйнмрпнккепю 1844 140446 072127 000003 ASH #3,%1 1845 140452 012761 140766 000304 MOV #140766,304(1) ;ятнплхпнбюрэ бейрнп я юдпеянл 000324 1846 140460 012761 000340 000306 MOV #340,306(1) 1847 140466 010001 MOV %0,%1 1848 140470 052701 001000 BIS #1000,%1 1849 140474 104002 EMT+2 ;пюгпеьхрэ опепшбюмхе нр бхденйнмрпнккепю он 1850 ;гюбепьемхх онярпнемхъ бейрнпю 1851 140476 052762 040000 000004 BIS #40000,4(2) ;сярюмнбхрэ рпеанбюмхе опепшбюмхъ нр 1852 ;бхденйнмрпнккепю он гюбепьемхх онярпнемхъ 1853 ;бейрнпю 1854 140504 005037 177776 CLR @#177776 ;сярюмнбхрэ опхнпхрер жо=0 1855 ;днкфмн опнхгнирх опепшбюмхе я юдпеянл 1856 ;бейрнпю 000324 1857 140510 005062 000016 CLR 16(2) ;гюдюрэ мюв. йннпдхм. он у=0 1858 140514 005062 000020 CLR 20(2) ;гюдюрэ мюв. йннпдхм. он Y=0 1859 140520 005037 020000 CLR @#20000 ;гюохяюрэ 0 б оепбсч ъвеийс оюлърх бхдендюммшу 1860 140524 005037 025252 CLR @#25252 1861 140530 012737 000001 025254 MOV #1,@#25254 1862 140536 012762 000037 000024 MOV #37,24(2) ;гюдюрэ тсмйжхч ъпйнярх 1863 140544 012762 052525 000022 MOV #52525,22(2) ;х дкхмс бейрнпю 1864 140552 012746 012455 MOV #12455,-(6) ;сярюмнбхрэ гюдепфйс дкъ онярпнемхъ бейрнпю 1865 140556 005762 000004 TST 4(2) ;онярпнемхе бейрнпю гюйнмвемн? 1866 140562 100405 BMI 140576 ;оепеирх, еякх дю 1867 140564 005316 DEC @%6 ;он гюбепьемхх онярпнемхъ бейрнпю 1868 140566 001373 BNE 140556 ;днкфмн опнхгнирх опепшбюмхе 1869 140570 005726 TST (6)+ 1870 140572 000137 140760 JMP @#140760 ;оепеирх мю ньхайс, еякх онярпнемхе бейрнпю ме 1871 140576 005726 TST (6)+ ;гюйнмвемн 1872 140600 023727 020000 000037 CMP @#20000,#37 ;оепбюъ ъвеийю = 37? 1873 140606 001064 BNE 140760 ;оепеирх, еякх мер 1874 140610 023727 025252 000037 CMP @#25252,#37 ;онякедмъъ ъвеийю = 37? 1875 140616 001060 BNE 140760 ;оепеирх, еякх мер 1876 140620 023727 025254 000001 CMP @#25254,#1 ;дкхмю бейрнпю тнплхпсеряъ опюбхкэмн? 1877 140626 001054 BNE 140760 ;оепеирх, еякх дкхмю бейрнпю опебшьюер 1878 ;сйюгюммсч дкхмс 1879 140630 005037 032524 CLR @#32524 1880 140634 012737 000002 032526 MOV #2,@#32526 ;гюохяюрэ 2 б ъвеийс оюлърх бхдендюммшу 1881 140642 012762 001777 000024 MOV #1777,24(2) ;гюдюрэ тсмйжхч ъпйнярх - - - -64- 589.7545471.00066-01 12 01 1882 140650 012762 125252 000022 MOV #125252,22(2) ;гюдюрэ дкхмс бейрнпю 1883 140656 012746 012455 MOV #12455,-(6) ;гюдепфйю дкъ онярпнемхъ бейрнпю 1884 140662 005762 000004 TST 4(2) ;онярпнемхе бейрнпю гюйнмвемн? 1885 140666 100405 BMI 140702 ;оепеирх, еякх дю 1886 140670 005316 DEC @%6 ;он гюбепьемхх онярпнемхъ бейрнпю 1887 140672 001373 BNE 140662 ;днкфмн опнхгнирх опепшбюмхе 1888 140674 005726 TST (6)+ 1889 140676 000137 140760 JMP @#140760 ;оепеирх мю ньхайс, еякх онярпнемхе бейрнпю ме 1890 140702 005726 TST (6)+ ;гюйнмвемн 1891 140704 023727 020000 001777 CMP @#20000,#1777 ;оепбюъ ъвеийю = 377? 1892 140712 001022 BNE 140760 ;оепеирх мю ньхайс, еякх мер 1893 140714 023727 032524 001777 CMP @#32524,#1777 ;онякедмъъ ъвеийю = 377? 1894 140722 001016 BNE 140760 ;оепеирх мю ньхайс, еякх мер 1895 140724 023727 032526 000002 CMP @#32526,#2 ;дкхмю бейрнпю тнплхпсеряъ опюбхкэмн? 1896 140732 001012 BNE 140760 ;оепеирх мю ньхайс, еякх дкхмю бейрнпю 1897 ;опебшьюер сйюгюммсч дкхмс 1898 140734 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 1899 140742 005062 000004 CLR 4(2) 1900 140746 104003 EMT+3 ;гюоперхрэ опепшбюмхе нр бхденйнмрпнккепю 1901 ;он гюбепьемхх онярпнемхъ бейрнпю 1902 140750 005703 TST %3 ;опнхгнькн 3 опепшбюмхъ? 1903 140752 001002 BNE .+6 ;оепеирх мю ньхайс, еякх мер 1904 140754 000241 CLC ;опх нрясрярбхх ньханй нвхярхрэ я-пюгпъд 1905 140756 000401 BR .+4 1906 140760 000261 SEC ;опх мюкхвхх ньханй сярюмнбхрэ я-пюгпъд 1907 140762 012601 MOV (6)+,%1 1908 140764 000207 RTS %7 1909 1910 ;ондопнцпюллю напюанрйх опепшбюмхъ я юдпеянл бейрнпю 000324 1911 1912 140766 005303 DEC %3 ;слемэьхрэ явервхй опепшбюмхи 1913 140770 000002 RTI ;бшунд хг опепшбюмхъ 1914 1915 1916 ;*********************************************************** 1917 ;ондопнцпюллю опнбепйх пефхлнб лндхтхйюжхх бхдендюммшу 1918 ;************************************************************ 1919 1920 ;опнбепхрэ лндхтхйюжхч бхдендюммшу опх 1921 ;пя<09-08>=0 1922 ;псд<02-00>=0,1,2,...,7 1923 1924 140772 042761 001400 000004 BIC #1400,4(1) 1925 141000 012737 063140 072452 MOV #63140,@#72452 1926 141006 012761 000525 000016 MOV #525,16(1) ;гюдюрэ йннпдхмюрс он X 1927 141014 012761 000252 000020 MOV #252,20(1) ;гюдюрэ йннпдхмюрс он Y 1928 141022 012761 125252 000024 MOV #125252,24(1) ;гюдюрэ дкхмс бейрнпю 1929 141030 046613 000004 BIC 4(6),@%3 1930 141034 012702 142040 MOV #142040,%2 ;бшапюрэ юдпея дюммшу 1931 141040 012761 000014 000022 MOV #14,22(1) ;х тсмйжхч ъпйнярх 1932 141046 012746 012455 MOV #12455,-(6) ;гюдепфйю дкъ онярпнемхъ бейрнпю 1933 141052 005761 000004 TST 4(1) ;онярпнемхе бейрнпю гюйнмвемн? 1934 141056 100405 BMI 141072 ;оепеирх, еякх дю 1935 141060 005316 DEC @%6 1936 141062 001373 BNE 141052 1937 141064 005726 TST (6)+ 1938 141066 000137 142026 JMP @#142026 - - - -65- 589.7545471.00066-01 12 01 1939 141072 005726 TST (6)+ 1940 141074 022237 072452 CMP (2)+,@#72452 ;оепб. ъвеийю гюонкмемю опюбхкэмн? 1941 141100 001402 BEQ .+6 ;оепеирх, еякх дю 1942 141102 000137 142026 JMP @#142026 1943 141106 020227 142060 CMP %2,#142060 ;йнмеж рюакхжш дюммшу? 1944 141112 001403 BEQ .+10 ;оепеирх, еякх дю 1945 141114 066613 000002 ADD 2(6),@%3 ;сбекхвхрэ яндепфхлне 174406 мю 1 1946 141120 000747 BR 141040 ;оепеирх мю мювюкн опнбепйх 1947 1948 ;опнбепхрэ лндхтхйюжхч бхдендюммшу 1949 ;опх пя<09-08>=01 1950 ;псд<02-00>=0,1,2,...,7 1951 1952 141122 062761 000400 000004 ADD #400,4(1) 1953 141130 012737 000001 020100 MOV #1,@#20100 1954 141136 012737 000001 020300 MOV #1,@#20300 1955 141144 005037 020500 CLR @#20500 1956 141150 005037 020700 CLR @#20700 1957 141154 012761 001000 000016 MOV #1000,16(1) ;гюдюрэ йнндхмюрс оO X 1958 141162 005061 000020 CLR 20(1) ;х он Y 1959 141166 012761 052525 000024 MOV #52525,24(1) ;гюдюрэ дкхмс бейрнпю 1960 141174 046613 000004 BIC 4(6),@%3 1961 141200 012761 000004 000022 MOV #4,22(1) ;гюдюрэ тсмйжхч ъпйнярх 1962 141206 012746 012455 MOV #12455,-(6) ;гюдепфйю дкъ онярпнемхъ бейрнпю 1963 141212 005761 000004 TST 4(1) ;онярпнемхе бейрнпю гюйнмвемн? 1964 141216 100405 BMI 141232 ;оепеирх, еякх дю 1965 141220 005316 DEC @%6 1966 141222 001373 BNE 141212 1967 141224 005726 TST (6)+ 1968 141226 000137 142026 JMP @#142026 ;оепеирх мю ньхайс 1969 141232 005726 TST (6)+ 1970 141234 022237 020100 CMP (2)+,@#20100 1971 141240 001402 BEQ .+6 1972 141242 000137 142026 JMP @#142026 1973 141246 022237 020300 CMP (2)+,@#20300 1974 141252 001402 BEQ .+6 1975 141254 000137 142026 JMP @#142026 1976 141260 022237 020500 CMP (2)+,@#20500 1977 141264 001402 BEQ .+6 1978 141266 000137 142026 JMP @#142026 1979 141272 022237 020700 CMP (2)+,@#20700 1980 141276 001402 BEQ .+6 1981 141300 000137 142026 JMP @#142026 1982 141304 020227 142160 CMP %2,#142160 ;йнмеж рюакхжш? 1983 141310 001403 BEQ .+10 ;оепеирх, еякх дю 1984 141312 066613 000002 ADD 2(6),@%3 ;сбекхвхрэ яндепфхлне псд мю 1 1985 141316 000730 BR 141200 ;оепеирх мю мювюкн опнбепйх 1986 1987 ;опнбепхрэ лндхтхйюжхч бхдендюммшу опх 1988 ;пя<09-08>=10 1989 ;псд<02-00>=0,1,2,3 1990 1991 141320 062761 000400 000004 ADD #400,4(1) 1992 141326 005037 020000 CLR @#20000 1993 141332 005037 020176 CLR @#20176 1994 141336 005061 000016 CLR 16(1) 1995 141342 005061 000024 CLR 24(1) - - - -66- 589.7545471.00066-01 12 01 1996 141346 046613 000004 BIC 4(6),@%3 1997 141352 012761 000100 000022 MOV #100,22(1) 1998 141360 012746 012455 MOV #12455,-(6) 1999 141364 005761 000004 TST 4(1) 2000 141370 100405 BMI 141404 2001 141372 005316 DEC @%6 2002 141374 001373 BNE 141364 2003 141376 005726 TST (6)+ 2004 141400 000137 142026 JMP @#142026 2005 141404 005726 TST (6)+ 2006 141406 022237 020000 CMP (2)+,@#20000 2007 141412 001402 BEQ .+6 2008 141414 000137 142026 JMP @#142026 2009 141420 022237 020176 CMP (2)+,@#20176 2010 141424 001402 BEQ .+6 2011 141426 000137 142026 JMP @#142026 2012 141432 066613 000002 ADD 2(6),@%3 2013 141436 020227 142200 CMP %2,#142200 2014 141442 001343 BNE 141352 2015 2016 ;опнбепхрэ лндхтхйюжхч бхдендюммшу опх 2017 ;пя<09-08>=10 2018 ;псд<02-00>=5,6,7 2019 2020 141444 066613 000002 ADD 2(6),@%3 2021 141450 005037 020000 CLR @#20000 2022 141454 005037 020174 CLR @#20174 2023 141460 012737 100001 020176 MOV #100001,@#20176 2024 141466 012761 000001 000024 MOV #1,24(1) 2025 141474 012761 000100 000022 MOV #100,22(1) 2026 141502 012746 012455 MOV #12455,-(6) 2027 141506 005761 000004 TST 4(1) 2028 141512 100405 BMI 141526 2029 141514 005316 DEC @%6 2030 141516 001373 BNE 141506 2031 141520 005726 TST (6)+ 2032 141522 000137 142026 JMP @#142026 2033 141526 005726 TST (6)+ 2034 141530 022237 020000 CMP (2)+,@#20000 2035 141534 001134 BNE 142026 2036 141536 022237 020176 CMP (2)+,@#20176 2037 141542 001131 BNE 142026 2038 141544 020227 142214 CMP %2,#142214 2039 141550 001403 BEQ .+10 2040 141552 066613 000002 ADD 2(6),@%3 2041 141556 000746 BR 141474 2042 2043 ;опнбепхрэ лндхтхйюжхч бхдендюммшу опх 2044 ;пя<09-08>=11 2045 ;псд<02-00>=0,1,2,3 2046 2047 141560 062761 000400 000004 ADD #400,4(1) 2048 141566 012737 177777 020000 MOV #-1,@#20000 2049 141574 012737 177777 020176 MOV #-1,@#20176 2050 141602 012761 001777 000016 MOV #1777,16(1) 2051 141610 012761 000001 000024 MOV #1,24(1) 2052 141616 046613 000004 BIC 4(6),@%3 - - - -67- 589.7545471.00066-01 12 01 2053 141622 012761 000100 000022 MOV #100,22(1) 2054 141630 012746 012455 MOV #12455,-(6) 2055 141634 005761 000004 TST 4(1) 2056 141640 100405 BMI 141654 2057 141642 005316 DEC @%6 2058 141644 001373 BNE 141634 2059 141646 005726 TST (6)+ 2060 141650 000137 142026 JMP @#142026 2061 141654 005726 TST (6)+ 2062 141656 022237 020000 CMP (2)+,@#20000 2063 141662 001061 BNE 142026 2064 141664 022237 020176 CMP (2)+,@#20176 2065 141670 001056 BNE 142026 2066 141672 066613 000002 ADD 2(6),@%3 2067 141676 020227 142234 CMP %2,#142234 2068 141702 001347 BNE 141622 2069 2070 ;опнбепхрэ лндхтхйюжхч бхдендюммшу опх 2071 ;пя<09-08>=11 2072 ;псд<02-00>=5,6,7 2073 2074 141704 066613 000002 ADD 2(6),@%3 2075 141710 012737 077776 020000 MOV #77776,@#20000 2076 141716 012737 177777 020002 MOV #-1,@#20002 2077 141724 012737 177777 020176 MOV #-1,@#20176 2078 141732 005061 000024 CLR 24(1) 2079 141736 012761 000100 000022 MOV #100,22(1) 2080 141744 012746 012455 MOV #12455,-(6) 2081 141750 005761 000004 TST 4(1) 2082 141754 100405 BMI 141770 2083 141756 005316 DEC @%6 2084 141760 001373 BNE 141750 2085 141762 005726 TST (6)+ 2086 141764 000137 142026 JMP @#142026 2087 141770 005726 TST (6)+ 2088 141772 022237 020000 CMP (2)+,@#20000 2089 141776 001013 BNE 142026 2090 142000 022237 020176 CMP (2)+,@#20176 2091 142004 001010 BNE 142026 2092 142006 020227 142250 CMP %2,#142250 2093 142012 001403 BEQ .+10 2094 142014 066613 000002 ADD 2(6),@%3 2095 142020 000746 BR 141736 2096 142022 000241 CLC ;нвхярхрэ я-пюгпъд опх нрясрярбхх ньханй 2097 142024 000401 BR .+4 2098 142026 000261 SEC ;сярюмнбхрэ я-пюгпъд опх мюкхвхх ньханй 2099 142030 011666 000004 MOV @%6,4(6) 2100 142034 012626 MOV (6)+,(6)+ 2101 142036 000207 RTS %7 ;бшунд хг ондопнцпюллш 2102 2103 ;рюакхжю дюммшу 2104 142040 063140 063140 2105 142042 031440 031440 2106 142044 052500 052500 2107 142046 125240 125240 2108 142050 177740 177740 2109 142052 125240 125240 - - - -68- 589.7545471.00066-01 12 01 2110 142054 000000 000000 2111 142056 177740 177740 2112 2113 142060 000001 000001 2114 142062 000001 000001 2115 142064 000000 000000 2116 142066 000000 000000 2117 2118 142070 000000 000000 2119 142072 000001 000001 2120 142074 000001 000001 2121 142076 000000 000000 2122 2123 142100 000001 000001 2124 142102 000000 000000 2125 142104 000001 000001 2126 142106 000000 000000 2127 2128 142110 000000 000000 2129 142112 000001 000001 2130 142114 000000 000000 2131 142116 000001 000001 2132 2133 142120 000001 000001 2134 142122 000001 000001 2135 142124 000001 000001 2136 142126 000001 000001 2137 2138 142130 000000 000000 2139 142132 000001 000001 2140 142134 000000 000000 2141 142136 000001 000001 2142 2143 142140 000000 000000 2144 142142 000000 000000 2145 142144 000000 000000 2146 142146 000000 000000 2147 2148 142150 000001 000001 2149 142152 000001 000001 2150 142154 000001 000001 2151 142156 000001 000001 2152 2153 142160 000000 000000 2154 142162 000000 000000 2155 142164 177777 177777 2156 142166 177777 177777 2157 142170 000000 000000 2158 142172 000000 000000 2159 142174 177777 177777 2160 142176 177777 177777 2161 2162 142200 000001 000001 2163 142202 000002 000002 2164 142204 000007 000007 2165 142206 000010 000010 2166 142210 000177 000177 - - - -69- 589.7545471.00066-01 12 01 2167 142212 000200 000200 2168 2169 142214 177777 177777 2170 142216 177777 177777 2171 142220 000000 000000 2172 142222 000000 000000 2173 142224 177777 177777 2174 142226 177777 177777 2175 142230 000000 000000 2176 142232 000000 000000 2177 2178 142234 137777 137777 2179 142236 077777 077777 2180 142240 167777 167777 2181 142242 017777 017777 2182 142244 177377 177377 2183 142246 000377 000377 2184 2185 142250 .=142250 2186 2187 ;*********************************************************************** 2188 ; 2189 ;ондопнцпюллю опнбепйх ялеыемхъ юдпеянб оюлърх нрмняхрекэмн йюдпнбшу 2190 ;яхмупнхлоскэянб 2191 ; 2192 ;*********************************************************************** 2193 2194 142250 012702 020000 MOV #20000,%2 ;бшапюрэ бхпрсюкэмши юдпея оюлърх 2195 ;бхденйнмрпнккепю 2196 142254 005012 CLR @%2 ;гюонкмхрэ ъвеийх оюлърх бхденйнмрпнккепю 2197 142256 005062 000176 CLR 176(2) 2198 142262 012762 000001 012600 MOV #1,12600(2) 2199 142270 012762 000002 012776 MOV #2,12776(2) 2200 142276 012762 000003 025200 MOV #3,25200(2) 2201 142304 012762 000004 025376 MOV #4,25376(2) 2202 142312 062761 000125 000014 ADD #125,14(1) ;гюдюрэ бекхвхмс ядбхцю 2203 142320 012746 012455 MOV #12455,-(6) ;опнхгбеярх гюдепфйс дкъ гюбепьемхъ ялеыемхъ 2204 142324 005761 000004 TST 4(1) ;юдпеянб оюлърх нрмняхрекэмн йюдпнбшу 2205 142330 100405 BMI 142344 ;яхмупнхлоскэянб 2206 142332 005316 DEC @%6 2207 142334 001373 BNE 142324 2208 142336 005726 TST (6)+ 2209 142340 000137 142442 JMP @#142442 2210 142344 005726 TST (6)+ 2211 ;опнбепхрэ ъвеийх оюлърх оняке ялеыемхъ 2212 142346 022712 000003 CMP #3,@%2 2213 142352 001033 BNE 142442 2214 142354 022762 000004 000176 CMP #4,176(2) 2215 142362 001027 BNE 142442 2216 142364 162761 000052 000014 SUB #52,14(1) ;гюдюрэ бекхвхмс ядбхцю 2217 142372 012746 012455 MOV #12455,-(6) ;опнхгбеярх гюдепфйс дкъ гюбепьемхъ ялеыемхъ 2218 142376 005761 000004 TST 4(1) ;юдпеянб оюлърх нрмняхрекэмн йюдпнбшу 2219 142402 100405 BMI 142416 ;яхмупнхлоскэянб 2220 142404 005316 DEC @%6 2221 142406 001373 BNE 142376 2222 142410 005726 TST (6)+ 2223 142412 000137 142442 JMP @#142442 - - - -70- 589.7545471.00066-01 12 01 2224 142416 005726 TST (6)+ 2225 ;опнбепхрэ ъвеийх оюлърх оняке ялеыемхъ 2226 142420 022712 000001 CMP #1,@%2 2227 142424 001006 BNE 142442 2228 142426 022762 000002 000176 CMP #2,176(2) 2229 142434 001002 BNE .+6 2230 142436 000241 CLC ;нвхярхрэ я-пюгпъд, опх нрясрярбхх ньханй 2231 142440 000401 BR .+4 2232 142442 000261 SEC ;сярюмнбхрэ я-пюгпъд, опх мюкхвхх ньханй 2233 142444 000207 RTS %7 2234 142446 .=142446 2235 2236 ;*********************************************************************** 2237 ; 2238 ;ондопнцпюллю юмюкхгю пегскэрюрнб опнбепйх лндскеи бй 2239 ;опх нрясрярбхх ньханй бшбндхряъ " щ к е й р п н м х й ю " 2240 ;опх мюкхвхх ньханй бшбндхряъ хгнапюфемхе яхярелмнцн акнйю я 2241 ;гюьрпхунбйни мехяопюбмнцн щкелемрю, йнд ньхайх х бйкчвюеряъ ябернбюъ 2242 ;хмдхйюжхъ на ньхайе 2243 ; 2244 ;*********************************************************************** 2245 2246 142446 004737 155014 JSR PC,@#155014 ;ятнплхпнбюрэ б ъвеийюу 002000-002004, 002010 2247 ;юдпеяю ондопнцпюлл тнплхпнбюмхъ хгнапюфемхъ 2248 ;мю щйпюме лнмхрнпю 2249 2250 ;юмюкхг пегскэрюрнб опнбепйх сярпниярб яхярелмнцн лндскъ 2251 2252 142452 012702 117712 MOV #117712,R2 ;бшапюрэ бхпрсюкэмши юдпея рюакхжш йнмтхцспюжхх обй 2253 142456 012703 000015 MOV #15,R3 ;сярюмнбхрэ явервхй сярпниярб 2254 142462 005037 137556 CLR @#137556 ;нвхярхрэ опхгмюй ньхайх 2255 142466 105712 TSTB @R2 ;сярпниярбн хяопюбмн? 2256 142470 001410 BEQ 142512 ;оепеирх, еякх дю 2257 142472 022712 177777 CMP #-1,@R2 ;еярэ сярпниярбн? 2258 142476 001405 BEQ 142512 ;оепеирх, еякх мер 2259 142500 005046 CLR -(SP) ;бшапюрэ йнд яхярелмнцн лндскъ, пюбмши 0 2260 142502 004737 142766 JSR PC,@#142766 ;бшбеярх хгнапюфемхе яхярелмнцн акнйю х 2261 ;йкюбхюрспш я гюьрпхунбйни яхярелмнцн лндскъ, 2262 ;бшбеярх хдемрхтхйюжхнммши йнд мехяопюбмнцн 2263 ;сярпниярбю х мнлеп ньхайх, бйкчвхрэ бяе 2264 ;4 ябернбшу хмдхйюрнпю 2265 142506 005726 TST (SP)+ ;бняярюмнбхрэ ся 2266 142510 000403 BR .+10 ;оепеирх й юмюкхгс опнбепйх лндскеи яхярелмни 2267 ;люцхярпюкх 2268 142512 162702 000004 SUB #4,R2 ;оепеирх й якедсчыелс сярпниярбс яхярелмнцн 2269 ;лндскъ 2270 142516 077315 SOB R3,142466 2271 2272 ;юмюкхг опнбепйх лндскеи яхярелмни люцхярпюкх 2273 2274 142520 012702 117756 MOV #117756,R2 ;бшапюрэ бхпрсюкэмши юдпея рюакхжш йнмтхцспюжхх обй 2275 142524 012703 000011 MOV #11,R3 2276 142530 026227 000002 177776 CMP 2(R2),#177776 ;онгхжхъ хяопюбмю? 2277 142536 001405 BEQ 142552 ;оепеирх, еякх мер 2278 142540 105712 TSTB @R2 ;лндскэ хяопюбем? 2279 142542 001412 BEQ 142570 ;оепеирх, еякх дю 2280 142544 022712 177777 CMP #-1,@R2 ;лндскэ сярюмнбкем? - - - -71- 589.7545471.00066-01 12 01 2281 142550 001407 BEQ 142570 ;оепеирх, еякх мер 2282 142552 012704 000012 MOV #12,R4 2283 142556 160304 SUB R3,R4 2284 142560 010446 MOV R4,-(SP) 2285 142562 004737 142766 JSR PC,@#142766 ;бшбеярх хгнапюфемхе яхярелмнцн акнйю х 2286 ;йкюбхюрспш я гюьрпхунбйни мехяопюбмнцн 2287 ;щкелемрю, мнлеп онгхжхх , мнлеп ньхайх х 2288 ;хдемрхтхйюжхнммши йнд мехяопюбмнцн лндскъ. 2289 ;бйкчвхрэ ябернбсч хмдхйюжхч на ньхайе 2290 142566 005726 TST (SP)+ 2291 142570 162702 000004 SUB #4,R2 ;оепеирх й якедсчыелс лндскч 2292 142574 077323 SOB R3,142530 2293 142576 005737 137556 TST @#137556 ;ашкх ньхайх? 2294 142602 001070 BNE 142764 ;оепеирх, еякх мер 2295 2296 ;опнхгбеярх пюяоюйнбйс яннаыемхъ " щ к е й р п н м х й ю " 2297 142604 012702 145020 MOV #145020,R2 ;бшапюрэ юдпея рюакхжш йндхпнбйх хгнапюфемхъ 2298 ;" щ к е й р п н м х й ю " 2299 142610 012746 177777 MOV #-1,-(SP) 2300 142614 012703 060000 MOV #60000,R3 2301 142620 105712 TSTB @R2 2302 142622 001443 BEQ 142732 2303 142624 100022 BPL 142672 2304 142626 005202 INC R2 2305 142630 012723 100312 MOV #100312,(R3)+ 2306 142634 016363 177776 000002 MOV 177776(R3),2(R3) 2307 142642 042763 100000 000002 BIC #100000,2(R3) 2308 142650 016363 177776 000006 MOV 177776(R3),6(R3) 2309 142656 005216 INC @SP 2310 142660 011623 MOV @SP,(R3)+ 2311 142662 112204 MOVB (R2)+,R4 2312 142664 060423 ADD R4,(R3)+ 2313 142666 011623 MOV @SP,(R3)+ 2314 142670 000753 BR 142620 2315 142672 112204 MOVB (R2)+,R4 2316 142674 060423 ADD R4,(R3)+ 2317 142676 016363 177776 000002 MOV 177776(R3),2(R3) 2318 142704 042763 100000 000002 BIC #100000,2(R3) 2319 142712 016363 177776 000006 MOV 177776(R3),6(R3) 2320 142720 011623 MOV @SP,(R3)+ 2321 142722 112204 MOVB (R2)+,R4 2322 142724 060423 ADD R4,(R3)+ 2323 142726 011623 MOV @SP,(R3)+ 2324 142730 000733 BR 142620 2325 142732 005013 CLR @R3 2326 142734 005726 TST (SP)+ 2327 142736 012746 060000 MOV #60000,-(SP) 2328 142742 010337 001022 MOV R3,@#1022 2329 142746 012703 177777 MOV #-1,R3 ;бшапюрэ тсмйжхч ъпйнярх 2330 142752 004777 037022 JSR PC,@2000 ;бшбеярх яннаыемхе " щ к е й р п н м х й ю " 2331 142756 013703 001022 MOV @#1022,R3 2332 142762 005726 TST (SP)+ 2333 142764 000207 RTS PC 2334 2335 2336 ;*********************************************************************** 2337 ; - - - -72- 589.7545471.00066-01 12 01 2338 ;ондопнцпюллю бшбндю хгнапюфемхъ яхярелмнцн акнйю х йкюбхюрспш 2339 ;я гюьрпхунбйни мехяопюбмнцн щкелемрю х йнднл ньхайх 2340 ;б 4(SP) - мнлеп онгхжхх, б @R2 - мнлеп ньхайх, б 2(R2) - хдемрхтхйюж. 2341 ;йнд сярпниярбю 2342 ; 2343 ;*********************************************************************** 2344 2345 142766 005737 137556 TST @#137556 ;оепбюъ ньхайю? 2346 142772 001105 BNE 143206 ;оепеирх, еякх мер 2347 142774 012746 144232 MOV #144232,-(SP) ;бшапюрэ юдпея рюакхжш йннпдхмюр дкъ опнпхянбйх 2348 ;хгнапюфемхъ яхярелмнцн акнйю х йкюбхюрспш 2349 143000 010337 001022 MOV R3,@#1022 2350 143004 012703 177777 MOV #-1,R3 2351 143010 004777 036764 JSR PC,@2000 ;бшбеярх мю щйпюм лнмхрнпю хгнапюфемхе 2352 ;яхрелмнцн акнйю х йкюбхюрспш 2353 143014 013703 001022 MOV @#1022,R3 2354 143020 016605 000004 MOV 4(SP),R5 ;бшапюрэ мнлеп онгхжхх 2355 143024 005705 TST R5 ;мехяопюбмн сярпниярбн яхярелмнцн лндскъ? 2356 143026 001401 BEQ .+4 ;оепеирх, еякх дю 2357 143030 005105 COM R5 2358 143032 010537 173704 MOV R5,@#173704 ;бйкчвхрэ ябернбсч хмдхйюжхч на ньхайе 2359 143036 012705 002172 MOV #2172,R5 2360 143042 016616 000004 MOV 4(SP),@SP ;бшапюрэ мнлеп онгхжхх 2361 143046 012746 000002 MOV #2,-(SP) ;сярюмнбхрэ явервхй жхтп 2362 143052 012746 177777 MOV #-1,-(SP) 2363 143056 004737 143244 JSR PC,@#143244 ;опнхгбеярх пюяоюйнбйс вхякю (мнлепю онгхжхх) 2364 2365 143062 111266 000004 MOVB @R2,4(SP) ;бшапюрэ мнлеп ньхайх 2366 143066 012766 000004 000002 MOV #4,2(SP) ;сярюмнбхрэ явервхй жхтп 2367 143074 005016 CLR @SP 2368 143076 004737 143244 JSR PC,@#143244 ;опнхгбеярх пюяоюйнбйс вхякю (мнлепю ньхайх) 2369 143102 012766 002172 000004 MOV #2172,4(SP) 2370 143110 012766 001551 000002 MOV #1551,2(SP) ;сярюмнбхрэ мювюкэмсч йннпдхмюрс он X 2371 143116 012716 000151 MOV #151,@SP ;сярюмнбхрэ мювюкэмсч йннпдхмюрс он Y 2372 143122 004777 036656 JSR PC,@2004 ;бшбеярх оепбсч ярпнйс жхтп 2373 143126 012705 002172 MOV #2172,R5 2374 143132 016266 000002 000004 MOV 2(R2),4(SP) ;бшапюрэ хдемрхтхйюжхнммши йнд сярпниярбю 2375 143140 012766 000006 000002 MOV #6,2(SP) ;сярюмнбхрэ явервхй жхтп 2376 143146 012716 177777 MOV #-1,@SP 2377 143152 004737 143244 JSR PC,@#143244 ;опнхгбеярх пюяоюйнбйс вхякю 2378 143156 012766 002172 000004 MOV #2172,4(SP) 2379 143164 012766 001551 000002 MOV #1551,2(SP) ;сярюмнбхрэ мювюкэмсч йннпдхмюрс он X 2380 143172 012716 000202 MOV #202,@SP ;сярюмнбхрэ мювюкэмсч йннпдрмюрс он Y 2381 143176 004777 036602 JSR PC,@2004 ;бшбеярх брнпсч ярпнйс жхтп 2382 143202 062706 000006 ADD #6,SP 2383 143206 016605 000002 MOV 2(SP),R5 2384 143212 072527 000002 ASH #2,R5 2385 143216 016546 143350 MOV 143350(R5),-(SP) ;бшапюрэ мювюкэмсч йннпдхмюрс он X дкъ 2386 ;гюьрпхунбйх мехяопюбмнцн щкелемрю 2387 143222 016546 143352 MOV 143352(R5),-(SP) ;бшапюрэ мювюкэмсч йннпдхмюрс он Y 2388 ;дкъ гюьрпхунбйх мехяопюбмнцн щкелемрю 2389 143226 004777 036550 JSR PC,@2002 ;опнхгбеярх гюьрпхунбйс мехяопюбмнцн щкелемрю 2390 143232 022626 CMP (SP)+,(SP)+ 2391 143234 052737 177777 137556 BIS #-1,@#137556 ;сярюмнбхрэ опхгмюй ньхайх 2392 143242 000207 RTS PC ;бшунд хг ондопнцпюллш 2393 2394 ;*********************************************************************** - - - -73- 589.7545471.00066-01 12 01 2395 ; 2396 ;ондопнцпюллю пюяоюйнбйх вхякю б ярпнйс жхтп. 2397 ;вхякн - б 12(SP), явервхй жхтп вхякю - б 10(SP). 2398 ;опх 6(SP), нркхвмнл нр 0, сярюмюбкхбюеряъ опхгмюй тнплхпнбюмхъ 2399 ;мецюрхбмнцн хгнапюфемхъ 2400 ; 2401 ;*********************************************************************** 2402 2403 143244 010446 MOV R4,-(SP) 2404 143246 010346 MOV R3,-(SP) 2405 143250 016604 000010 MOV 10(SP),R4 ;бшапюрэ явервхй жхтп вхякю 2406 143254 005304 DEC R4 2407 143256 006304 ASL R4 2408 143260 005003 CLR R3 2409 143262 166466 143334 000012 SUB 143334(R4),12(SP) 2410 143270 100402 BMI .+6 2411 143272 005203 INC R3 ;онксвхрэ жхтпс 2412 143274 000772 BR 143262 2413 143276 066466 143334 000012 ADD 143334(R4),12(SP) 2414 143304 005766 000006 TST 6(SP) ;ятнплхпнбюрэ опхгмюй мецюрхбмнцн хгнапюфемхъ? 2415 143310 001402 BEQ .+6 ;оепеирх, еякх мер 2416 143312 052703 000200 BIS #200,R3 ;сярюмнбхрэ опхгмюй мецюрхбмнцн хгнапюфемхъ 2417 143316 110325 MOVB R3,(R5)+ ;гюохяюрэ жхтпс б рюакхжс 2418 143320 162704 000002 SUB #2,R4 2419 143324 100355 BPL 143260 ;оепеирх й пюяоюйнбйе якедсчыеи жхтпш вхякю 2420 143326 012603 MOV (SP)+,R3 2421 143330 012604 MOV (SP)+,R4 2422 143332 000207 RTS PC ;бшунд хг ондопнцпюллш 2423 2424 143334 000001 000001 2425 143336 000010 000010 2426 143340 000100 000100 2427 143342 001000 001000 2428 143344 010000 010000 2429 143346 100000 100000 2430 2431 2432 ;рюакхжю мювюкэмшу йннпдхмюр, хяонкэгселшу опх гюьрпхунбйе 2433 ;мехяопюбмшу лндскеи 2434 143350 000610 000610 ;мюв. йннпдхмюрю он X дкъ гюьрпхунбйх яхярелмнцн 2435 ;лндскъ 2436 143352 000234 000234 ;мюв. йннпдхмюрю он Y дкъ гюьрпхунбйх яхярелмнцн 2437 ;лндскъ 2438 143354 001362 001362 ;мювюкэмше йннпдхмюрш он X 2439 143356 000261 000261 ;х он Y дкъ гюьрпхунбйх 1-ни онгхжхх 2440 2441 143360 001374 001374 ;мювюкэмюъ йннпдхмюрю он X 2442 143362 000257 000257 ;х он Y дкъ гюьрпхунбйх 2-ни онгхжхх 2443 2444 143364 001406 001406 ;мювюкэмше йннпдхмюрш он X 2445 143366 000255 000255 ;х он Y дкъ гюьрпхунбйх 3-еи онгхжхх 2446 2447 143370 001420 001420 ;мювюкэвше йннпдхмюрш он X 2448 143372 000253 000253 ;х он Y дкъ гюьрпхунбйх 4-ни онгхжхх 2449 2450 143374 001422 001432 ;мювюкэвше йннпдхмюрш он X 2451 143376 000251 000251 ;х он Y дкъ гюьрпхунбйх 5-ни онгхжхх - - - -74- 589.7545471.00066-01 12 01 2452 2453 143400 001444 001444 ;мювюкэмше йннпдхмюрш он X 2454 143402 000247 000247 ;х он Y дкъ гюьрпхунбйх 6-ни онгхжхх 2455 143404 000000 000000 2456 143406 000000 000000 2457 143410 000000 000000 2458 143412 000000 000000 2459 143414 000761 000761 ;мAвюкэмше йннпдхмюрш он X 2460 143416 000340 000340 ;х он Y дкъ гюьрпхунбйх йкюбхюрспш 2461 2462 2463 ;*********************************************************************** 2464 ; 2465 ;ондопнцпюллю тнплхпнбюмхъ хгнапюфемхъ осрел онякеднбюрекэмнцн онярпнемхъ 2466 ;бейрнпнб 2467 ; 2468 ;*********************************************************************** 2469 143420 004037 144174 JSR R0,@#144174 2470 143424 013701 002006 MOV @#2006,R1 ;бшапюрэ юдпея бхденйнмрпнккепю 2471 143430 005061 000004 CLR 4(R1) 2472 143434 032761 020000 000004 BIT #20000,4(R1) ;сярюмнбкем пюяьхпхрекэ оюлърх бхдендюмшу? 2473 143442 001004 BNE 143454 ;оепеирх, еякх мер 2474 143444 012761 000002 000010 MOV #2,10(R1) 2475 143452 000403 BR .+10 2476 143454 012761 000002 000006 MOV #2,6(R1) 2477 143462 010361 000024 MOV R3,24(R1) ;гюдюрэ тсмйжхч ъпйнярх 2478 143466 024646 CMP -(SP),-(SP) 2479 143470 016600 000024 MOV 24(SP),R0 ;бшапюрэ юдпея рюакхжш йннпдхмюр дкъ онярпнемхъ 2480 ;хгнапюфемхъ 2481 143474 005710 TST @R0 ;йнмеж рюакхжш? 2482 143476 001412 BEQ 143524 ;оепеирх, еякх дю 2483 143500 100003 BPL .+10 ;оепеирх мю бшанпйс йннпдхмюр брнпни рнвйх 2484 2485 143502 004737 143530 JSR PC,@#143530 ;бшапюрэ мювюкэмше йннпдхмюрш дкъ онярпнемхъ 2486 ;якедсчыецн щкелемрю б хгнапюфемхх 2487 143506 000772 BR 143474 2488 143510 012066 000002 MOV (R0)+,2(SP) ;бшапюрэ Kннпдхмюрс он X брнпни рнвйх 2489 143514 012016 MOV (R0)+,@SP ;бшапюрэ йннпдхмюрс он Y брнпни рнвйх 2490 143516 004737 143550 JSR PC,@#143550 ;онярпнхрэ опълсч, янедхмъчысч 2 рнвйх щйпюмю 2491 143522 000764 BR 143474 2492 143524 022626 CMP (SP)+,(SP)+ 2493 143526 000207 RTS PC 2494 2495 ;ондопнцпюллю бшанпйх мювюкэмшу йннпдхмюр дкъ онярпнемхъ 2496 ;щкелемрю хгнапюфемхъ 2497 2498 143530 012037 002010 MOV (R0)+,@#2010 ;бшапюрэ мювюкэмсч йннпдхмюрс он X 2499 143534 012037 002012 MOV (R0)+,@#2012 ;бшапюрэ мювюкэмсч йннпдхмюрс он Y 2500 143540 042737 100000 002010 BIC #100000,@#2010 2501 143546 000207 RTS PC 2502 2503 ;******************************************************************* 2504 ; 2505 ;ондопнцпюллю онярпнемхъ опълни кхмхх, янедхмъчыеи 2 рнвйх щйпюмю, 2506 ;осрел онякеднбюрекэмнцн онярпнемхъ бейрнпнб дкхмни, пюбмни 1 2507 ;б 002010 - йннпдхмюрю он X оепбни рнвйх 2508 ;б 002012 - йннпдхмюрю он Y оепбни рнвйх - - - -75- 589.7545471.00066-01 12 01 2509 ;б 26(SP) - йннпдхмюрю он X брнпни рнвйх 2510 ;б 24(SP) - йннпдхмюрю он Y брнпни рнвйх 2511 ; 2512 ;*********************************************************************** 2513 2514 143550 004037 144174 JSR R0,@#144174 ;янупюмхрэ R1-R5 б ярейе 2515 2516 143554 024646 CMP -(SP),-(SP) 2517 143556 005061 000004 CLR 4(R1) 2518 143562 013705 002010 MOV @#2010,R5 ;бшапюрэ йннпдхмюрс он X оепбни рнвйх 2519 143566 010561 000016 MOV R5,16(R1) ;гюдюрэ йннпдхмюрс он у оепбни рнвйх (у1) 2520 143572 013700 002012 MOV @#2012,R0 ;бшапюрэ йннпдхмюрс он Y оепбни рнвйх 2521 143576 010061 000020 MOV R0,20(R1) ;гюдюрэ йннпдхмюрс он Y оепбни рнвйх (Y1) 2522 143602 016637 000026 002014 MOV 26(SP),@#2014 ;бшапюрэ йннпдхмюрс он у брнпни рнвйх (у2) 2523 143610 160537 002014 SUB R5,@#2014 ;онксвхрэ пюгмнярэ йннпдхмюр он у (X2-X1) 2524 143614 100002 BPL .+6 ;оепеирх, еякх у2-у1>0 2525 143616 005437 002014 NEG @#2014 ;онксвхрэ юаянкчрмсч бекхвхмс пюгмнярх ( /у2-у1/ ) 2526 143622 016637 000024 002016 MOV 24(SP),@#2016 ;бшапюрэ йннпдхмюрс он Y брнпни рнвйх (Y2) 2527 143630 160037 002016 SUB R0,@#2016 ;онксвхрэ пюгмнярэ йннпдхмюр он Y (Y2-Y1) 2528 143634 100002 BPL .+6 ;оепеирх, еякх Y2-Y1>0 2529 143636 005437 002016 NEG @#2016 ;онксвхрэ юаянкчрмсч бекхвхмс пюгмнярх ( /Y2-Y1/ ) 2530 143642 026605 000026 CMP 26(SP),R5 ;у2>у1? 2531 143646 003404 BLE 143660 ;оепеирх, еякх мер 2532 143650 012737 000001 002020 MOV #1,@#2020 ;1--> 2020, еякх у2>у1 2533 143656 000403 BR .+10 2534 143660 012737 177777 002020 MOV #-1,@#2020 ;-1-->2020, еякх X2 лемэье хкх пюбмн X1 2535 143666 026600 000024 CMP 24(SP),R0 ;Y2>Y1? 2536 143672 003404 BLE 143704 ;оепеирх, еякх мер 2537 143674 012737 000001 002022 MOV #1,@#2022 ;1--> 2022, еякх Y2>Y1 2538 143702 000403 BR .+10 2539 143704 012737 177777 002022 MOV #-1,@#2022 ;-1-->2022, еякх Y2 лемэье хкх пюбмн Y1 2540 143712 010137 002034 MOV R1,@#2034 ;бшапюрэ юдпея бхденйнмрпнкепю 2541 143716 010137 002036 MOV R1,@#2036 ;бшапюрэ юдпея бхденйнмрпнкепю 2542 143722 013705 002014 MOV @#2014,R5 ;бшапюрэ /X2-X1/ 2543 143726 013700 002016 MOV @#2016,R0 ;бшапюрэ /Y2-Y1/ 2544 143732 020500 CMP R5,R0 ;/у2-у1/ > /Y2-Y1/ ? 2545 143734 003426 BLE 144012 ;оепеирх, еякх мер 2546 143736 010537 002024 MOV R5,@#2024 ;бшапюрэ /X2-X1/ 2547 143742 010037 002026 MOV R0,@#2026 ;бшапюрэ /Y2-Y1/ 2548 143746 012766 002010 000002 MOV #2010,2(SP) ;бшапюрэ юдпея у1 2549 143754 012716 002012 MOV #2012,@SP ;бшапюрэ юдпея Y1 2550 143760 062737 000016 002034 ADD #16,@#2034 ;онксвхрэ юдпея пецхярпю йннпдхмюр он у 2551 143766 062737 000020 002036 ADD #20,@#2036 ;онксвхрэ юдпея пецхярпю йннпдхмюр он Y 2552 143774 013737 002020 002030 MOV @#2020,@#2030 2553 144002 013737 002022 002032 MOV @#2022,@#2032 2554 144010 000425 BR 144064 2555 144012 010037 002024 MOV R0,@#2024 ;бшапюрэ /Y2-Y1/ 2556 144016 010537 002026 MOV R5,@#2026 ;бшапюрэ /у2-у1/ 2557 144022 012766 002012 000002 MOV #2012,2(SP) ;юдпея Y1 2558 144030 012716 002010 MOV #2010,@SP ;юдпея у1 2559 144034 062737 000020 002034 ADD #20,@#2034 ;юдпея пецхярпю йннпдхмюр он Y 2560 144042 062737 000016 002036 ADD #16,@#2036 ;юдпея пецхярпю йннпдхмюр он у 2561 144050 013737 002022 002030 MOV @#2022,@#2030 2562 144056 013737 002020 002032 MOV @#2020,@#2032 2563 144064 013702 002026 MOV @#2026,R2 2564 144070 163702 002024 SUB @#2024,R2 2565 144074 010205 MOV R2,R5 - - - -76- 589.7545471.00066-01 12 01 2566 144076 005003 CLR R3 2567 144100 000427 BR 144160 2568 2569 ;онярпнхрэ едхмхвмши бейрнп 2570 144102 012761 000001 000022 MOV #1,22(R1) ;гюдюрэ дкхмс бейрнпю = 1 2571 144110 005705 TST R5 2572 144112 003410 BLE 144134 2573 144114 063776 002032 000000 ADD @#2032,@0(SP) 2574 144122 017677 000000 035706 MOV @0(SP),@2036 2575 144130 060205 ADD R2,R5 2576 144132 000404 BR 144144 2577 144134 013700 002026 MOV @#2026,R0 2578 144140 060500 ADD R5,R0 2579 144142 010005 MOV R0,R5 2580 144144 063776 002030 000002 ADD @#2030,@2(SP) 2581 144152 017677 000002 035654 MOV @2(SP),@2034 2582 144160 005203 INC R3 2583 144162 020337 002024 CMP R3,@#2024 2584 144166 003745 BLE 144102 2585 144170 022626 CMP (SP)+,(SP)+ 2586 144172 000207 RTS PC 2587 2588 ;ондопнцпюллю гюохях б ярей R1-R5 2589 2590 144174 010146 MOV R1,-(SP) 2591 144176 010246 MOV R2,-(SP) 2592 144200 010346 MOV R3,-(SP) 2593 144202 010446 MOV R4,-(SP) 2594 144204 010546 MOV R5,-(SP) 2595 144206 012746 144214 MOV #144214,-(SP) 2596 144212 000110 JMP @R0 2597 2598 ;ондопнцпюллю бшанпйх хг ярейю R1-R5 2599 2600 144214 012605 MOV (SP)+,R5 2601 144216 012604 MOV (SP)+,R4 2602 144220 012603 MOV (SP)+,R3 2603 144222 012602 MOV (SP)+,R2 2604 144224 012601 MOV (SP)+,R1 2605 144226 012600 MOV (SP)+,R0 2606 144230 000207 RTS PC 2607 2608 144232 .=144232 2609 ;рюакхжю йннпдхмюр дкъ онярпнемхъ хгнапюфемхъ яхярелмнцн акнйю 2610 ;х йкюбхюрспш 2611 2612 144232 100761 100761 2613 144234 000357 357 2614 144236 000305 305 2615 144240 000250 250 2616 144242 000305 305 2617 144244 000246 246 2618 144246 000761 761 2619 144250 000354 354 2620 144252 001111 1111 2621 144254 000320 320 2622 144256 000435 435 - - - -77- 589.7545471.00066-01 12 01 2623 144260 000220 220 2624 144262 000311 311 2625 144264 000246 246 2626 144266 100761 100761 2627 144270 000357 357 2628 144272 001120 1120 2629 144274 000334 334 2630 144276 001111 1111 2631 144300 000322 322 2632 144302 101164 101164 2633 144304 000324 324 2634 144306 000465 465 2635 144310 000220 220 2636 144312 000456 456 2637 144314 000207 207 2638 144316 000465 465 2639 144320 000160 160 2640 144322 000772 772 2641 144324 000122 122 2642 144326 001471 1471 2643 144330 000211 211 2644 144332 001500 1500 2645 144334 000241 241 2646 144336 001471 1471 2647 144340 000253 253 2648 144342 001164 1164 2649 144344 000324 324 2650 144346 101164 101164 2651 144350 000306 306 2652 144352 001164 1164 2653 144354 000255 255 2654 144356 001035 1035 2655 144360 000233 233 2656 144362 101164 101164 2657 144364 000317 317 2658 144366 000601 601 2659 144370 000234 234 2660 144372 000601 601 2661 144374 000231 231 2662 144376 000616 616 2663 144400 000226 226 2664 144402 100601 100601 2665 144404 000231 231 2666 144406 001164 1164 2667 144410 000314 314 2668 144412 001445 1445 2669 144414 000247 247 2670 144416 001445 1445 2671 144420 000253 253 2672 144422 001164 1164 2673 144424 000320 320 2674 144426 101025 101025 2675 144430 000231 231 2676 144432 000705 705 2677 144434 000212 212 2678 144436 100672 100672 2679 144440 000211 211 - - - -78- 589.7545471.00066-01 12 01 2680 144442 000505 505 2681 144444 000162 162 2682 144446 000764 764 2683 144450 000130 130 2684 144452 001151 1151 2685 144454 000154 154 2686 144456 001151 1151 2687 144460 000156 156 2688 144462 101151 101151 2689 144464 000154 154 2690 144466 000672 672 2691 144470 000212 212 2692 144472 000672 672 2693 144474 000240 240 2694 144476 000510 510 2695 144500 000210 210 2696 144502 000510 510 2697 144504 000164 164 2698 144506 100705 100705 2699 144510 000240 240 2700 144512 000705 705 2701 144514 000213 213 2702 144516 001033 1033 2703 144520 000174 174 2704 144522 001047 1047 2705 144524 000173 173 2706 144526 001067 1067 2707 144530 000174 174 2708 144532 001067 1067 2709 144534 000167 167 2710 144536 101067 101067 2711 144540 000175 175 2712 144542 001144 1144 2713 144544 000204 204 2714 144546 001151 1151 2715 144550 000210 210 2716 144552 001151 1151 2717 144554 000214 214 2718 144556 101144 101144 2719 144560 000204 204 2720 144562 001137 1137 2721 144564 000212 212 2722 144566 001025 1025 2723 144570 000231 231 2724 144572 001025 1025 2725 144574 000261 261 2726 144576 000705 705 2727 144600 000240 240 2728 144602 101035 101035 2729 144604 000264 264 2730 144606 001035 1035 2731 144610 000234 234 2732 144612 001206 1206 2733 144614 000210 210 2734 144616 001336 1336 2735 144620 000230 230 2736 144622 001336 1336 - - - -79- 589.7545471.00066-01 12 01 2737 144624 000261 261 2738 144626 001353 1353 2739 144630 000263 263 2740 144632 101336 101336 2741 144634 000261 261 2742 144636 001164 1164 2743 144640 000306 306 2744 144642 101165 101165 2745 144644 000255 255 2746 144646 001336 1336 2747 144650 000227 227 2748 144652 101164 101164 2749 144654 000306 306 2750 144656 001035 1035 2751 144660 000263 263 2752 144662 001352 1352 2753 144664 000263 263 2754 144666 001352 1352 2755 144670 000226 226 2756 144672 001066 1066 2757 144674 000167 167 2758 144676 101364 101364 2759 144700 000261 261 2760 144702 001364 1364 2761 144704 000224 224 2762 144706 001100 1100 2763 144710 000165 165 2764 144712 101376 101376 2765 144714 000257 257 2766 144716 001376 1376 2767 144720 000222 222 2768 144722 001112 1112 2769 144724 000163 163 2770 144726 101410 101410 2771 144730 000255 255 2772 144732 001410 1410 2773 144734 000220 220 2774 144736 001124 1124 2775 144740 000161 161 2776 144742 101422 101422 2777 144744 000253 253 2778 144746 001422 1422 2779 144750 000216 216 2780 144752 001136 1136 2781 144754 000157 157 2782 144756 101434 101434 2783 144760 000251 251 2784 144762 001434 1434 2785 144764 000214 214 2786 144766 001150 1150 2787 144770 000155 155 2788 144772 101446 101446 2789 144774 000247 247 2790 144776 001446 1446 2791 145000 000212 212 2792 145002 001160 1160 2793 145004 000154 154 - - - - - - -80- 589.7545471.00066-01 12 01 2794 145006 101066 101066 2795 145010 000167 167 2796 145012 001164 1164 2797 145014 000154 154 2798 145016 000000 000000 2799 2800 145020 .=145020 2801 ;йндхпнбйю хгнапюфемхъ " щ к е й р п н м х й ю " 2802 2803 147510 .=147510 2804 ;рюакхжю йннпдхмюр дкъ онярпнемхъ хгнапюфемхъ дхяйерш х гмюйю "?" 2805 2806 151362 .=151362 2807 ;*********************************************************************** 2808 ; 2809 ;ондопнцпюллю гюьрпхунбйх мехяопюбмнцн лндскъ б хгнапюфемхх 2810 ;яхярелмнцн акнйю х йкюбхюрспш 2811 ;б 4(SP) - мювюкэмюъ йннпдхмюрю он X 2812 ;б 2(SP) - мювюкэмюъ йннпдхмюрю он Y 2813 ; 2814 ;*********************************************************************** 2815 2816 151362 013701 002006 MOV @#2006,R1 ;бшапюрэ юдпея бхденйнмрпнккепю 2817 151366 016637 000004 002040 MOV 4(SP),@#2040 ;бшапюрэ мювюкэмсч йннпдхмюрс он X 2818 151374 016637 000002 002042 MOV 2(SP),@#2042 ;бшапюрэ мювюкэмсч йннпдхмюрс он Y 2819 151402 004037 144174 JSR R0,@#144174 2820 151406 012746 000004 MOV #4,-(SP) 2821 151412 012746 000140 MOV #140,-(SP) 2822 151416 011661 000026 MOV @SP,26(R1) ;пюглеярхрэ оюлърэ бхдендюммшу б юдпеямнл 2823 ;опнярпюмярбе 14000000-14077776 2824 151422 032761 020000 000004 BIT #20000,4(R1) ;пюяьхпхрекэ оюлърх бхдендюммшу сярюмнбкем? 2825 151430 001004 BNE 151442 ;оепеирх, еякх мер 2826 151432 012761 000042 000010 MOV #42,10(R1) ;пюгпеьхрэ днярсо й пюяьхпеммни оюлърх 2827 ;бхдендюммшу 2828 151440 000403 BR .+10 2829 151442 012761 000042 000006 MOV #42,6(R1) ;пюгпеьхрэ днярсо й оюлърх бхдендюммшу 2830 151450 006316 ASL @SP 2831 151452 006316 ASL @SP 2832 151454 104005 EMT+5 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 2833 ;дкъ днярсою й оюлърх бхдендюммшу 2834 151456 022626 CMP (SP)+,(SP)+ 2835 151460 012704 002144 MOV #2144,R4 2836 151464 012705 002170 MOV #2170,R5 2837 151470 105045 CLRB -(R5) 2838 151472 013746 002040 MOV @#2040,-(SP) ;бшапюрэ йннпдхмюрс он X 2839 151476 013746 002042 MOV @#2042,-(SP) ;бшапюрэ йннпдхмюрс он Y 2840 151502 005316 DEC @SP ;слемэьхрэ йннпдхмюрс он Y мю 1 2841 151504 004737 153554 JSR PC,@#153554 ;рнвйю я гюдюммшлх йннпдхмюрюлх мюпхянбюмю? 2842 151510 103407 BCS 151530 ;оепеирх, еякх дю 2843 151512 004737 153332 JSR PC,@#153332 2844 151516 016644 000002 MOV 2(SP),-(R4) 2845 151522 011644 MOV @SP,-(R4) 2846 151524 112745 000002 MOVB #2,-(R5) 2847 151530 022626 CMP (SP)+,(SP)+ 2848 151532 013746 002040 MOV @#2040,-(SP) ;бшапюрэ йннпдхмюрс он X 2849 151536 013746 002042 MOV @#2042,-(SP) ;бшапюрэ йннпдхмюрс он Y 2850 151542 004737 153332 JSR PC,@#153332 - - - -81- 589.7545471.00066-01 12 01 2851 151546 012637 002042 MOV (SP)+,@#2042 2852 151552 012637 002040 MOV (SP)+,@#2040 2853 151556 013744 002040 MOV @#2040,-(R4) 2854 151562 013744 002042 MOV @#2042,-(R4) 2855 151566 112745 000001 MOVB #1,-(R5) 2856 151572 105715 TSTB @R5 ;йнмеж опнпхянбйх? 2857 151574 001002 BNE .+6 ;оепеирх, еякх мер 2858 151576 000137 152442 JMP @#152442 ;оепеирх мю бшунд хг ондопнцпюллш 2859 151602 012437 002046 MOV (R4)+,@#2046 2860 151606 012437 002044 MOV (R4)+,@#2044 2861 151612 112537 002060 MOVB (R5)+,@#2060 2862 151616 012737 000377 002052 MOV #377,@#2052 ;люйяхлюкэмюъ йннпдхмюрю он Y 2863 151624 012737 001777 002050 MOV #1777,@#2050 ;люйяхлюкэмюъ йннпдхмюрю он X 2864 151632 013700 002044 MOV @#2044,R0 2865 151636 053700 002046 BIS @#2046,R0 2866 151642 001002 BNE .+6 2867 151644 000137 152436 JMP @#152436 2868 151650 013746 002044 MOV @#2044,-(SP) ;бшапюрэ йннпдхмюрс он X 2869 151654 013746 002046 MOV @#2046,-(SP) ;бшапюрэ йннпдхмюрс он Y 2870 151660 004737 153554 JSR PC,@#153554 ;рнвйю я гюдюммшлх йннпдхмюрюлх мюпхянбюмю? 2871 151664 103003 BCC .+10 ;оепеирх, еякх мер 2872 151666 022626 CMP (SP)+,(SP)+ 2873 151670 000137 152436 JMP @#152436 2874 151674 022626 CMP (SP)+,(SP)+ 2875 151676 013737 002044 002040 MOV @#2044,@#2040 2876 151704 013737 002046 002042 MOV @#2046,@#2042 2877 151712 013746 002040 MOV @#2040,-(SP) 2878 151716 005316 DEC @SP 2879 151720 013746 002042 MOV @#2042,-(SP) 2880 151724 004737 152466 JSR PC,@#152466 2881 151730 022626 CMP (SP)+,(SP)+ 2882 151732 023737 002040 002050 CMP @#2040,@#2050 2883 151740 003402 BLE .+6 2884 151742 000137 152436 JMP @#152436 2885 151746 005737 002062 TST @#2062 2886 151752 001425 BEQ 152026 2887 151754 005737 002064 TST @#2064 2888 151760 001422 BEQ 152026 2889 151762 032737 000001 002060 BIT #1,@#2060 2890 151770 001007 BNE 152010 2891 151772 013737 002066 002044 MOV @#2066,@#2044 2892 152000 013737 002070 002046 MOV @#2070,@#2046 2893 152006 000535 BR 152302 2894 152010 013737 002072 002044 MOV @#2072,@#2044 2895 152016 013737 002074 002046 MOV @#2074,@#2046 2896 152024 000526 BR 152302 2897 152026 013746 002040 MOV @#2040,-(SP) 2898 152032 013746 002042 MOV @#2042,-(SP) 2899 152036 004737 153506 JSR PC,@#153506 2900 152042 004737 153332 JSR PC,@#153332 2901 152046 016644 000002 MOV 2(SP),-(R4) 2902 152052 011644 MOV @SP,-(R4) 2903 152054 022626 CMP (SP)+,(SP)+ 2904 152056 032737 000001 002060 BIT #1,@#2060 2905 152064 001403 BEQ .+10 2906 152066 112745 000002 MOVB #2,-(R5) 2907 152072 000402 BR .+6 - - - -82- 589.7545471.00066-01 12 01 2908 152074 112745 000001 MOVB #1,-(R5) 2909 152100 005737 002062 TST @#2062 2910 152104 001010 BNE 152126 2911 152106 005737 002064 TST @#2064 2912 152112 001405 BEQ 152126 2913 152114 032737 000001 002060 BIT #1,@#2060 2914 152122 001401 BEQ .+4 2915 152124 000412 BR 152152 2916 152126 005737 002064 TST @#2064 2917 152132 001031 BNE 152216 2918 152134 005737 002062 TST @#2062 2919 152140 001426 BEQ 152216 2920 152142 032737 000002 002060 BIT #2,@#2060 2921 152150 001422 BEQ 152216 2922 152152 032737 000001 002060 BIT #1,@#2060 2923 152160 001007 BNE 152200 2924 152162 013737 002066 002044 MOV @#2066,@#2044 2925 152170 013737 002070 002046 MOV @#2070,@#2046 2926 152176 000441 BR 152302 2927 152200 013737 002072 002044 MOV @#2072,@#2044 2928 152206 013737 002074 002046 MOV @#2074,@#2046 2929 152214 000432 BR 152302 2930 152216 013746 002040 MOV @#2040,-(SP) 2931 152222 013746 002042 MOV @#2042,-(SP) 2932 152226 032737 000001 002060 BIT #1,@#2060 2933 152234 001402 BEQ .+6 2934 152236 005316 DEC @SP 2935 152240 000401 BR .+4 2936 152242 005216 INC @SP 2937 152244 004737 153554 JSR PC,@#153554 2938 152250 103407 BCS 152270 2939 152252 004737 153332 JSR PC,@#153332 2940 152256 012637 002046 MOV (SP)+,@#2046 2941 152262 012637 002044 MOV (SP)+,@#2044 2942 152266 000405 BR 152302 2943 152270 022626 CMP (SP)+,(SP)+ 2944 152272 005037 002044 CLR @#2044 2945 152276 005037 002046 CLR @#2046 2946 152302 013746 002040 MOV @#2040,-(SP) 2947 152306 013746 002042 MOV @#2042,-(SP) 2948 152312 004737 153420 JSR PC,@#153420 2949 152316 005266 000002 INC 2(SP) 2950 152322 004737 152466 JSR PC,@#152466 2951 152326 004737 153634 JSR PC,@#153634 ;мюпхянбюрэ цнпхгнмрюкэмши нрпегнй 2952 152332 013737 002040 002050 MOV @#2040,@#2050 2953 152340 013737 002042 002052 MOV @#2042,@#2052 2954 152346 005737 002062 TST @#2062 2955 152352 001403 BEQ .+10 2956 152354 005737 002064 TST @#2064 2957 152360 001023 BNE 152430 2958 152362 013766 002054 000002 MOV @#2054,2(SP) ;бшапюрэ йннпдхмюрс он X 2959 152370 013716 002056 MOV @#2056,@SP ;бшапюрэ йннпдхмюрс он Y 2960 152374 004737 153554 JSR PC,@#153554 ;рнвйю я гюдюммшлх йннпдхмюрюлх мюпхянбюмю? 2961 152400 103413 BCS 152430 ;оепеирх, еякх дю 2962 152402 016644 000002 MOV 2(SP),-(R4) 2963 152406 011644 MOV @SP,-(R4) 2964 152410 005737 002062 TST @#2062 - - - -83- 589.7545471.00066-01 12 01 2965 152414 001003 BNE .+10 2966 152416 112745 000001 MOVB #1,-(R5) 2967 152422 000402 BR .+6 2968 152424 112745 000002 MOVB #2,-(R5) 2969 152430 022626 CMP (SP)+,(SP)+ 2970 152432 000137 151632 JMP @#151632 2971 152436 000137 151572 JMP @#151572 2972 152442 005061 000006 CLR 6(R1) ;нвхярхрэ пецхярп сопюбкемхъ дюммшлх 2973 152446 005061 000010 CLR 10(R1) 2974 152452 005061 000014 CLR 14(R1) ;нвхярхрэ пецхярп ядбхцю хгнапюфемхъ 2975 152456 005061 000004 CLR 4(R1) ;нвхярхрэ пецхярп йнлюмд 2976 152462 104006 EMT+6 ;бняярюмнбхрэ йнмярюмрш оепепюяопедекемхъ нгс 2977 152464 000207 RTS PC ;бшунд хг ондопнцпюллш 2978 152466 005037 002062 CLR @#2062 2979 152472 005037 002064 CLR @#2064 2980 152476 005037 002066 CLR @#2066 2981 152502 005037 002070 CLR @#2070 2982 152506 005037 002072 CLR @#2072 2983 152512 005037 002074 CLR @#2074 2984 152516 016646 000004 MOV 4(SP),-(SP) 2985 152522 016646 000004 MOV 4(SP),-(SP) 2986 152526 004737 153332 JSR PC,@#153332 2987 152532 005316 DEC @SP 2988 152534 005366 000002 DEC 2(SP) 2989 152540 004737 153554 JSR PC,@#153554 2990 152544 103002 BCC .+6 2991 152546 005237 002062 INC @#2062 2992 152552 062716 000002 ADD #2,@SP 2993 152556 004737 153554 JSR PC,@#153554 2994 152562 103002 BCC .+6 2995 152564 005237 002064 INC @#2064 2996 152570 005316 DEC @SP 2997 152572 005266 000002 INC 2(SP) 2998 152576 004737 153554 JSR PC,@#153554 2999 152602 103107 BCC 153022 3000 152604 005316 DEC @SP 3001 152606 004737 153554 JSR PC,@#153554 3002 152612 103010 BCC 152634 3003 152614 005366 000002 DEC 2(SP) 3004 152620 004737 153554 JSR PC,@#153554 3005 152624 103405 BCS 152640 3006 152626 005237 002062 INC @#2062 3007 152632 000402 BR .+6 3008 152634 005366 000002 DEC 2(SP) 3009 152640 062716 000002 ADD #2,@SP 3010 152644 004737 153554 JSR PC,@#153554 3011 152650 103410 BCS 152672 3012 152652 005266 000002 INC 2(SP) 3013 152656 004737 153554 JSR PC,@#153554 3014 152662 103005 BCC 152676 3015 152664 005237 002064 INC @#2064 3016 152670 000402 BR .+6 3017 152672 005266 000002 INC 2(SP) 3018 152676 162716 000002 SUB #2,@SP 3019 152702 004737 153554 JSR PC,@#153554 3020 152706 103415 BCS 152742 3021 152710 005366 000002 DEC 2(SP) - - - -84- 589.7545471.00066-01 12 01 3022 152714 004737 153554 JSR PC,@#153554 3023 152720 103012 BCC 152746 3024 152722 016637 000002 002066 MOV 2(SP),@#2066 3025 152730 011637 002070 MOV @SP,@#2070 3026 152734 005237 002066 INC @#2066 3027 152740 000402 BR .+6 3028 152742 005366 000002 DEC 2(SP) 3029 152746 062716 000002 ADD #2,@SP 3030 152752 004737 153554 JSR PC,@#153554 3031 152756 103013 BCC 153006 3032 152760 005266 000002 INC 2(SP) 3033 152764 004737 153554 JSR PC,@#153554 3034 152770 103410 BCS 153012 3035 152772 016637 000002 002072 MOV 2(SP),@#2072 3036 153000 011637 002074 MOV @SP,@#2074 3037 153004 000402 BR .+6 3038 153006 005266 000002 INC 2(SP) 3039 153012 005316 DEC @SP 3040 153014 005266 000002 INC 2(SP) 3041 153020 000666 BR 152576 3042 153022 005316 DEC @SP 3043 153024 004737 153554 JSR PC,@#153554 3044 153030 103010 BCC 153052 3045 153032 005366 000002 DEC 2(SP) 3046 153036 004737 153554 JSR PC,@#153554 3047 153042 103405 BCS 153056 3048 153044 005237 002062 INC @#2062 3049 153050 000402 BR .+6 3050 153052 005366 000002 DEC 2(SP) 3051 153056 062716 000002 ADD #2,@SP 3052 153062 004737 153554 JSR PC,@#153554 3053 153066 103410 BCS 153110 3054 153070 005266 000002 INC 2(SP) 3055 153074 004737 153554 JSR PC,@#153554 3056 153100 103005 BCC 153114 3057 153102 005237 002064 INC @#2064 3058 153106 000402 BR .+6 3059 153110 005266 000002 INC 2(SP) 3060 153114 004737 153554 JSR PC,@#153554 3061 153120 103015 BCC 153154 3062 153122 016646 000002 MOV 2(SP),-(SP) 3063 153126 016646 000002 MOV 2(SP),-(SP) 3064 153132 004737 153420 JSR PC,@#153420 3065 153136 012637 002074 MOV (SP)+,@#2074 3066 153142 012637 002072 MOV (SP)+,@#2072 3067 153146 005237 002072 INC @#2072 3068 153152 000417 BR 153212 3069 153154 005366 000002 DEC 2(SP) 3070 153160 004737 153554 JSR PC,@#153554 3071 153164 103010 BCC 153206 3072 153166 005266 000002 INC 2(SP) 3073 153172 016637 000002 002072 MOV 2(SP),@#2072 3074 153200 011637 002074 MOV @SP,@#2074 3075 153204 000402 BR .+6 3076 153206 005266 000002 INC 2(SP) 3077 153212 162716 000002 SUB #2,@SP 3078 153216 004737 153554 JSR PC,@#153554 - - - -85- 589.7545471.00066-01 12 01 3079 153222 103016 BCC 153260 3080 153224 016646 000002 MOV 2(SP),-(SP) 3081 153230 016646 000002 MOV 2(SP),-(SP) 3082 153234 004737 153420 JSR PC,@#153420 3083 153240 012637 002070 MOV (SP)+,@#2070 3084 153244 012637 002066 MOV (SP)+,@#2066 3085 153250 005216 INC @SP 3086 153252 005237 002066 INC @#2066 3087 153256 000420 BR 153320 3088 153260 005366 000002 DEC 2(SP) 3089 153264 004737 153554 JSR PC,@#153554 3090 153270 103010 BCC 153312 3091 153272 005266 000002 INC 2(SP) 3092 153276 016637 000002 002066 MOV 2(SP),@#2066 3093 153304 011637 002070 MOV @SP,@#2070 3094 153310 000402 BR .+6 3095 153312 005266 000002 INC 2(SP) 3096 153316 005216 INC @SP 3097 153320 012637 002056 MOV (SP)+,@#2056 3098 153324 012637 002054 MOV (SP)+,@#2054 3099 153330 000207 RTS PC 3100 153332 016646 000004 MOV 4(SP),-(SP) ;бшапюрэ йннпдхмюрс он X 3101 153336 016646 000004 MOV 4(SP),-(SP) ;бшапюрэ йннпдхмюрс он Y 3102 153342 012702 177777 MOV #-1,R2 3103 153346 004737 153554 JSR PC,@#153554 ;рнвйю я гюдюммшлх йннпдхмюрюлх мюпхянбюмю? 3104 153352 103401 BCS .+4 ;оепеирх, еякх дю 3105 153354 005002 CLR R2 ;нвхярхрэ R2, еякх рнвйю я йннпдхмюрюлх X, Y 3106 ;ме мюпхянбюмю 3107 153356 005366 000002 DEC 2(SP) ;слемэьхрэ йннпдхмюрс он X 3108 153362 004737 153554 JSR PC,@#153554 ;рнвйю я гюдюммшлх йннпдхмюрюлх мюпхянбюмю? 3109 153366 103403 BCS .+10 ;оепеирх, еякх дю 3110 153370 005702 TST R2 3111 153372 001771 BEQ 153356 3112 153374 000402 BR .+6 3113 153376 005702 TST R2 3114 153400 001366 BNE 153356 3115 153402 005266 000002 INC 2(SP) 3116 153406 012666 000004 MOV (SP)+,4(SP) ;бшапюрэ йннпдхмюрс он Y 3117 153412 012666 000004 MOV (SP)+,4(SP) ;бшапюрэ йннпдхмюрс он X 3118 153416 000207 RTS PC 3119 153420 016646 000004 MOV 4(SP),-(SP) ;бшапюрэ йннпдхмюрс он X 3120 153424 016646 000004 MOV 4(SP),-(SP) ;бшапюрэ йннпдхмюрс он Y 3121 153430 012702 177777 MOV #-1,R2 3122 153434 004737 153554 JSR PC,@#153554 ;рнвйю я гюдюммшлх йннпдхмюрюлх мюпхянбюмю? 3123 153440 103401 BCS .+4 ;оепеирх, еякх дю 3124 153442 005002 CLR R2 ;нвхярхрэ R2, еякх рнвйю я йннпдхмюрюлх X,Y 3125 ;ме мюпхянбюмю 3126 153444 005266 000002 INC 2(SP) ;сбекхвхрэ йннпдхмюрс он X 3127 153450 004737 153554 JSR PC,@#153554 ;рнвйю я гюдюммшлх йннпдхмюрюлх мюпхянбюмю? 3128 153454 103403 BCS .+10 ;оепеирх, еякх дю 3129 153456 005702 TST R2 3130 153460 001771 BEQ 153444 3131 153462 000402 BR .+6 3132 153464 005702 TST R2 3133 153466 001366 BNE 153444 3134 153470 005366 000002 DEC 2(SP) 3135 153474 012666 000004 MOV (SP)+,4(SP) ;бшапюрэ йннпдхмюрс он Y - - - -86- 589.7545471.00066-01 12 01 3136 153500 012666 000004 MOV (SP)+,4(SP) ;бшапюрэ йннпдхмюрс он X 3137 153504 000207 RTS PC 3138 153506 016646 000004 MOV 4(SP),-(SP) 3139 153512 016646 000004 MOV 4(SP),-(SP) 3140 153516 005366 000002 DEC 2(SP) 3141 153522 004737 153332 JSR PC,@#153332 3142 153526 005366 000002 DEC 2(SP) 3143 153532 004737 153332 JSR PC,@#153332 3144 153536 005266 000002 INC 2(SP) 3145 153542 012666 000004 MOV (SP)+,4(SP) 3146 153546 012666 000004 MOV (SP)+,4(SP) 3147 153552 000207 RTS PC 3148 3149 ;ондопнцпюллю опнбепйх яндепфхлнцн пюгпъдю ъвеийх оюлърх 3150 ;бхденйнмрпнккепю 3151 ;юдпея ъвеийх х мнлеп пюгпъдю нопедекъчряъ вепег йннпдхмюрш X х Y. 3152 ;еякх рнвйю (пюгпъд) я гюдюммшлх йннпдхмюрюлх X х Y мюпхянбюмю 3153 ;(яндепфхр 1), сярюмюбкхбюеряъ я-пюгпъд. еякх рнвйю (пюгпъд) ме 3154 ;мюпхянбюмю (яндепфхр 0), я-пюгпъд нвхыюеряъ. 3155 3156 153554 016600 000002 MOV 2(SP),R0 ;бшапюрэ йннпдхмърс он Y 3157 153560 072027 000007 ASH #7,R0 ;ядбхмсрэ мю 7 онгхжхи бкебн 3158 153564 016601 000004 MOV 4(SP),R1 ;бшапюрэ йннпдхмюрс он X 3159 153570 072127 177775 ASH #177775,R1 ;ядбхмсрэ мю 3 онгхжхх бопюбн 3160 153574 060100 ADD R1,R0 3161 153576 062700 020000 ADD #20000,R0 ;онксвхрэ бхпрсюкэмши юдпея ъвеийх оюлърх 3162 ;бхденйнмрпнккепю 3163 153602 016601 000004 MOV 4(SP),R1 ;бшапюрэ йннпдхмюрс он X 3164 153606 042701 177760 BIC #177760,R1 ;онксвхрэ мнлеп пюгпъдю б ъвеийе 3165 153612 010146 MOV R1,-(SP) 3166 153614 012701 000001 MOV #1,R1 3167 153620 072126 ASH (SP)+,R1 3168 153622 030110 BIT R1,@R0 ;рнвйю мюпхянбюмю? 3169 153624 000261 SEC ;сярюмнбхрэ я-пюгпъд еякх дю 3170 153626 001001 BNE .+4 ;оепеирх, еякх рнвйю мюпхянбюмю 3171 153630 000241 CLC ;нвхярхрэ я-пюгпъд, еякх рнвйю ме мюпхянбюмю 3172 153632 000207 RTS PC ;бшунд хг ондопнцпюллш 3173 3174 ;ондопнцпюллю опнпхянбйх цнпхгнмрюкэмнцн нрпегйю 3175 3176 153634 062737 000002 002040 ADD #2,@#2040 3177 153642 013700 002042 MOV @#2042,R0 ;бшапюрэ йннпдхмюрс он Y 3178 153646 072027 000007 ASH #7,R0 ;ядбхмсрэ мю 7 онгхжхи бкебн 3179 153652 013701 002040 MOV @#2040,R1 ;бшапюрэ йннпдхмюрс он X 3180 153656 072127 177775 ASH #177775,R1 ;ядбхмсрэ мю 3 онгхжхх бопюбн 3181 153662 060100 ADD R1,R0 3182 153664 062700 020000 ADD #20000,R0 ;онксвхрэ бхпрсюкэмши юдпея ъвеийх оюлърх 3183 ;бхденйнмрпнккепю 3184 153670 013701 002040 MOV @#2040,R1 ;бшапюрэ йннпдхмюрс он X 3185 153674 042701 177760 BIC #177760,R1 ;онксвхрэ мнлеп пюгпъдю б ъвеийе 3186 153700 010146 MOV R1,-(SP) 3187 153702 012701 000001 MOV #1,R1 3188 153706 072126 ASH (SP)+,R1 3189 153710 030110 BIT R1,@R0 ;рнвйю мюпхянбюмю? 3190 153712 001004 BNE 153724 ;оепеирх, еякх дю 3191 153714 050110 BIS R1,@R0 ;мюпхянбюрэ рнвйс я гюдюммшлх йннпдхмюрюлх 3192 ;X х Y - - - -87- 589.7545471.00066-01 12 01 3193 153716 005237 002040 INC @#2040 ;сбекхвхрэ йннпдхмюрс он X 3194 153722 000747 BR 153642 3195 153724 005337 002040 DEC @#2040 3196 153730 000207 RTS PC ;бшунд хг ондопнцпюллш 3197 3198 ;*********************************************************************** 3199 ; 3200 ;ондопнцпюллю бшбндю хгнапюфемхъ жхтп мю щйпюм лнмхрнпю 3201 ; 3202 ;*********************************************************************** 3203 3204 153732 004037 144174 JSR R0,@#144174 ;янупюмхрэ R1-R5 б ярейе 3205 153736 013701 002006 MOV @#2006,R1 ;бшапюрэ юдпея бхденйнмпнккепю 3206 153742 016604 000024 MOV 24(SP),R4 3207 153746 016661 000022 000016 MOV 22(SP),16(R1) ;гюдюрэ мювюкэмсч йннпдхмюрс он X 3208 153754 012705 000006 MOV #6,R5 3209 153760 016661 000020 000020 MOV 20(SP),20(R1) ;гюдюрэ мювюкэмсч йннпдхмюрс он Y 3210 153766 112400 MOVB (R4)+,R0 ;бшапюрэ жхтпс 3211 153770 010446 MOV R4,-(SP) 3212 153772 010546 MOV R5,-(SP) 3213 153774 032700 000200 BIT #200,R0 ;тнплхпнбюрэ мецюрхбмне хгнапюфемхе? 3214 154000 001414 BEQ 154032 ;оепеирх, еякх мер 3215 154002 032761 020000 000004 BIT #20000,4(R1) ;пюяьхпхрекэ оюлърх бхдендюммшу сярюмнбкем? 3216 154010 001004 BNE 154022 ;оепеирх, еякх мер 3217 154012 052761 000001 000010 BIS #1,10(R1) ;пюгпеьхрэ тнплхпнбюмхе мецюрхбмнцн хгнапюфемхъ 3218 ;б пюяьхпеммни оюлърх бхдендюммшу 3219 154020 000412 BR 154046 3220 154022 052761 000001 000006 BIS #1,6(R1) ;пюгпеьхрэ тнплхпнбюмхе мецюрхбмнцн хгнапюфемхъ 3221 ;б оюлърх дюммшу 3222 3223 154030 000406 BR 154046 3224 154032 042761 000001 000006 BIC #1,6(R1) ;гюоперхрэ тнплхпнбюмхе мецюрхбмнцн хгнапюфемхъ 3225 154040 042761 000001 000010 BIC #1,10(R1) 3226 154046 042700 177600 BIC #177600,R0 3227 154052 010002 MOV R0,R2 3228 154054 072027 000002 ASH #2,R0 3229 154060 060200 ADD R2,R0 3230 154062 006300 ASL R0 3231 154064 062700 154242 ADD #154242,R0 ;онксвхрэ юдпея рюакхжш хгнапюфемхъ жхтпш 3232 154070 012704 000012 MOV #12,R4 ;сярюмнбхрэ бшянрс люрпхжш хгнапюфемхъ жхтпш 3233 154074 112005 MOVB (R0)+,R5 3234 154076 010146 MOV R1,-(SP) 3235 154100 012701 000010 MOV #10,R1 ;сярюмнбхрэ ьхпхмс люрпхжш хгнапюфемхъ жхтпш 3236 154104 005002 CLR R2 3237 154106 005003 CLR R3 3238 154110 072327 000002 ASH #2,R3 3239 154114 106105 ROLB R5 3240 154116 103403 BCS .+10 3241 154120 042703 000003 BIC #3,R3 3242 154124 000402 BR .+6 3243 154126 052703 000003 BIS #3,R3 3244 154132 077112 SOB R1,154110 3245 154134 073227 000010 ASHC #10,R2 3246 154140 072327 177774 ASH #177774,R3 3247 154144 012705 000002 MOV #2,R5 3248 154150 012601 MOV (SP)+,R1 3249 154152 010361 000024 MOV R3,24(R1) - - - -88- 589.7545471.00066-01 12 01 3250 154156 012761 000014 000022 MOV #14,22(R1) 3251 154164 062761 000014 000016 ADD #14,16(R1) 3252 154172 010261 000024 MOV R2,24(R1) 3253 154176 012761 000014 000022 MOV #14,22(R1) 3254 154204 162761 000014 000016 SUB #14,16(R1) 3255 154212 005261 000020 INC 20(R1) 3256 154216 077523 SOB R5,154152 3257 154220 077453 SOB R4,154074 3258 154222 012605 MOV (SP)+,R5 3259 154224 012604 MOV (SP)+,R4 3260 154226 062761 000030 000016 ADD #30,16(R1) 3261 154234 005305 DEC R5 ;бяе жхтпш бшбедемш? 3262 154236 001250 BNE 153760 ;оепеирх, еякх мер 3263 154240 000207 RTS PC ;бшунд хг ондопнцпюллш 3264 3265 ;рюакхжю хгнапюфемхъ жхтп 3266 3267 ;хгнапюфемхе жхтпш 0 3268 154242 056000 056000 3269 154244 050443 050443 3270 154246 042511 042511 3271 154250 016442 016442 3272 154252 000000 000000 3273 3274 ;хгнапюфемхе жхтпш 1 3275 154254 004000 004000 3276 154256 005014 005014 3277 154260 004010 004010 3278 154262 037010 037010 3279 154264 000000 000000 3280 3281 ;хгнапюфемхе жхтпш 2 3282 154266 017000 017000 3283 154270 040041 040041 3284 154272 003070 003070 3285 154274 077401 077401 3286 154276 000000 000000 3287 3288 ;хгнапюфемхе жхтпш 3 3289 154300 077400 077400 3290 154302 010040 010040 3291 154304 040070 040070 3292 154306 037101 037101 3293 154310 000000 000000 3294 3295 ;хгнапюфемхе жхтпш 4 3296 154312 010000 010000 3297 154314 012030 012030 3298 154316 077422 077422 3299 154320 010020 010020 3300 154322 000000 000000 3301 3302 ;хгнапюфемхе жхтпш 5 3303 154324 077400 077400 3304 154326 036401 036401 3305 154330 040103 040103 3306 154332 037101 037101 - - - -89- 589.7545471.00066-01 12 01 3307 154334 000000 000000 3308 3309 ;хгнапюфемхе жхтпш 6 3310 154336 036000 036000 3311 154340 000502 000502 3312 154342 041475 041475 3313 154344 036102 036102 3314 154346 000000 000000 3315 3316 ;хгнапюфемхе жхтпш 7 3317 154350 077400 077400 3318 154352 020100 020100 3319 154354 004020 004020 3320 154356 001004 001004 3321 154360 000000 000000 3322 3323 ;хгнапюфемхе жхтпш 8 3324 154362 037000 037000 3325 154364 040501 040501 3326 154366 040476 040476 3327 154370 037101 037101 3328 154372 000000 000000 3329 3330 ;хгнапюфемхе жхтпш 9 3331 154374 017000 017000 3332 154376 060441 060441 3333 154400 040136 040136 3334 154402 017041 017041 3335 154404 000000 000000 3336 3337 ;хгнапюфемхе гмюйю " ? " 3338 154406 037000 037000 3339 154410 030101 030101 3340 154412 004010 004010 3341 154414 004000 004000 3342 154416 000000 000000 3343 3344 3345 ;********************************************************************* 3346 ; 3347 ;ондопнцпюллю нвхярйх щйпюмю лнмхрнпю 3348 ; 3349 ;********************************************************************** 3350 154420 .=154420 3351 154420 004037 144174 JSR R0,@#144174 3352 154424 013701 002006 MOV @#2006,R1 3353 154430 012761 001000 000004 MOV #1000,4(R1) 3354 154436 012761 000002 000006 MOV #2,6(R1) 3355 154444 012761 001002 000010 MOV #1002,10(R1) 3356 154452 005061 000016 CLR 16(R1) 3357 154456 005061 000020 CLR 20(R1) 3358 154462 005061 000024 CLR 24(R1) 3359 154466 012761 177777 000022 MOV #-1,22(R1) 3360 154474 005761 000004 TST 4(R1) 3361 154500 100375 BPL .-4 3362 154502 005061 000006 CLR 6(R1) 3363 154506 005061 000010 CLR 10(R1) - - - -90- 589.7545471.00066-01 12 01 3364 154512 000207 RTS PC 3365 3366 ;*********************************************************************** 3367 ; 3368 ;ондопнцпюллю бшанпйх х йнмрпнкэмнцн ясллхпнбюмхъ йнднб 3369 ;лхйпн-опнцпюллш хг огс лндскъ. йндш гюохяшбючряъ б ъвеийх нгс, 3370 ;мювхмюъ я юдпеяю 002000 3371 ; 3372 ;*********************************************************************** 3373 3374 154514 113701 001005 MOVB @#1005,R1 3375 154520 042701 177600 BIC #177600,R1 3376 154524 005065 000002 CLR 2(R5) ;сярюмнбхрэ сйюгюрекэ мю мювюкн огс лндскъ 3377 154530 012700 000012 MOV #12,R0 3378 154534 005715 TST @R5 ;оепелеярхрэ сйюгюрекэ мю аюир 13 огс лндскъ 3379 154536 077002 SOB R0,.-2 3380 154540 010246 MOV R2,-(SP) 3381 154542 012700 001000 MOV #1000,R0 3382 154546 012704 000020 MOV #20,R4 3383 154552 111520 MOVB @R5,(R0)+ ;оепеохяюрэ яндепфхлне аюирнб 13-32 хг огс 3384 154554 077402 SOB R4,.-2 ;лндскъ б нгс, мювхмюъ я юдпеяю 001000 3385 154556 012704 001000 MOV #1000,R4 3386 154562 011602 MOV @SP,R2 ;бшапюрэ юдпея нфхдюелшу дюммшу 3387 3388 ;опнбепхрэ яндепфхлне аюирнб 13-24 хг огс лндскъ мю янбоюдемхе я 3389 ;йнмрпнкэмни хмтнплюжхеи, бшахпюелни хг ъвеей 164732-164742 3390 ;дхюцмнярхвеяйнцн огс 3391 154564 012700 000012 MOV #12,R0 3392 154570 122224 CMPB (R2)+,(R4)+ ;дюммше янбоюдючр? 3393 154572 001403 BEQ .+10 ;оепеирх, еякх дю 3394 154574 011602 MOV @SP,R2 ;бшапюрэ юдпея нфхдюелшу дюммшу 3395 154576 000137 154774 JMP @#154774 3396 154602 077006 SOB R0,154570 3397 154604 105737 001017 TSTB @#1017 ;аюир 32 хг огс лндскъ = 0? 3398 154610 001012 BNE 154636 ;оепеирх, еякх мер 3399 154612 113737 001015 001022 MOVB @#1015,@#1022 ;онксвхрэ б 001022 явервхй аюирнб лхйпн-опнцпюллш 3400 154620 113737 001016 001023 MOVB @#1016,@#1023 3401 154626 023727 001022 060000 CMP @#1022,#60000 ;явервхй лемэье 60000? 3402 154634 101403 BLOS .+10 ;оепеирх , еякх дю 3403 154636 012702 177777 MOV #-1,R2 ;сярюмнбхрэ опхгмюй ньхайх 3404 154642 000454 BR 154774 3405 154644 005065 000002 CLR 2(R5) ;сярюмнбхрэ сйюгюрекэ мю мювюкн огс лндскъ 3406 154650 005715 TST @R5 ;оепелеярхрэ сйюгюрекэ мю мювюкн лхйпн-опнцпюллш 3407 154652 005337 001012 DEC @#1012 3408 154656 001374 BNE .-6 3409 154660 105737 001014 TSTB @#1014 3410 154664 001403 BEQ .+10 3411 154666 105337 001014 DECB @#1014 3412 154672 000766 BR 154650 3413 154674 012700 002000 MOV #2000,R0 ;бшапюрэ юдпея нгс 3414 154700 013704 001022 MOV @#1022,R4 ;бшапюрэ явервхй аюирнб лхйпн-опнцпюллш 3415 154704 006204 ASR R4 ;онксвхрэ явервхй ъвеей лхйпн-опнцпюллш 3416 3417 ;опнхгбеярх явхршбюмхе лхйпн-опнцпюллш хг огс лндскъ б нгс 3418 ;я ндмнбпелеммшл йнмрпнкэмшл ясллхпнбюмхел 3419 3420 154706 012737 177777 001020 MOV #-1,@#1020 - - - -91- 589.7545471.00066-01 12 01 3421 154714 010146 MOV R1,-(SP) 3422 154716 111537 001022 MOVB @R5,@#1022 ;явхрюрэ аюир лхйпн-опнцпюллш 3423 154722 111537 001023 MOVB @R5,@#1023 ;явхрюрэ якедсчыхи аюир лхйпн-опнцпюллш 3424 154726 013701 001022 MOV @#1022,R1 ;опнхгбеярх йнмрпнкэмне ясллхпнбюмхе 3425 154732 074137 001020 XOR R1,@#1020 3426 154736 000241 CLC 3427 154740 006137 001020 ROL @#1020 3428 154744 005537 001020 ADC @#1020 3429 154750 010120 MOV R1,(R0)+ ;гюохяюрэ 2 аюирю лхйпн-опнцпюллш б нгс 3430 154752 077417 SOB R4,154716 ;оепеирх й явхршбюмхч якедсчыху йнднб 3431 ;лхйпн-опнцпюллш 3432 154754 012601 MOV (SP)+,R1 3433 154756 005737 001020 TST @#1020 ;йя=0? 3434 154762 001403 BEQ .+10 ;оепеирх, еякх дю 3435 154764 012702 177776 MOV #177776,R2 ;ньхайю йя йнднб лхйпн-опнцпюллш 3436 ;бшапюрэ йнд 177776 дкъ гюохях б рюакхжс 3437 ;йнмтхцспюжхх обй 3438 154770 000401 BR .+4 3439 154772 005002 CLR R2 ;сярюмнбхрэ опхгмюй нрясрярбхъ ньханй 3440 154774 020216 CMP R2,@SP 3441 154776 001004 BNE 155010 3442 155000 005301 DEC R1 3443 155002 001257 BNE 154542 3444 155004 012702 177777 MOV #-1,R2 3445 155010 005726 TST (SP)+ 3446 155012 000207 RTS PC 3447 3448 ;********************************************************************** 3449 ; 3450 ;ондопнцпюллю гюохях юдпеянб ондопнцпюлл тOплхпнбюмхъ хгнапюфемхъ 3451 ;мю щйпюме лнмхрнпю б ъвеийх 002000-0002004,002010 3452 ; 3453 ;*********************************************************************** 3454 155014 005037 137556 CLR @#137556 ;нвхярхрэ опхгмюй ньханй 3455 155020 032737 000020 173700 BIT #20,@#173700 ;лнмхрнп ондянедхмем? 3456 155026 001003 BNE .+10 ;оепеирх, еякх дю 3457 155030 012737 000004 173704 MOV #4,@#173704 ;лнмхрнп ме опхянедхмем 3458 ;бйкчвхрэ ябернбше хмдхйюрнпш 1,2,4 3459 3460 ;нопедекхрэ мнлеп онгхжхх бхденйнмрпнккепю, хяонкэгсъ хдемрхтхйюжхнммши 3461 ;йнд бхденйнмрпнккепю х яндепфхлне рюакхжш йнмтхцспюжхх обй 3462 155036 005002 CLR R2 3463 155040 010246 MOV R2,-(SP) 3464 155042 011602 MOV @SP,R2 3465 155044 010201 MOV R2,R1 3466 155046 072127 000002 ASH #2,R1 3467 155052 005401 NEG R1 3468 155054 105761 137756 TSTB 137756(R1) ;хяопюбмши лндскэ? 3469 155060 001047 BNE 155200 ;оепеирх, еякх мер 3470 155062 022761 001002 137760 CMP #1002,137760(R1) ;б дюммсч онгхжхч сярюмнбкем бхденйнмрпнккеп? 3471 155070 001024 BNE 155142 ;оепеирх, еякх мер 3472 155072 012737 143420 002000 MOV #143420,@#2000 ;бшапюрэ б ъвеийх 002000-002004, 002010 3473 155100 012737 151362 002002 MOV #151362,@#2002 ;юдпеяю ондопнцпюлл тнплхпнбюмхъ хгнапюфемхъ 3474 155106 012737 153732 002004 MOV #153732,@#2004 3475 155114 012737 154420 002010 MOV #154420,@#2010 3476 155122 012602 MOV (SP)+,R2 3477 155124 072227 000007 ASH #7,R2 - - - -92- 589.7545471.00066-01 12 01 3478 155130 062702 174000 ADD #174000,R2 ;онксвхрэ юдпея бхденйнмрпнккепю 3479 155134 010237 002006 MOV R2,@#2006 ;гюохяюрэ юдпея бхденйнмрпнккепю 3480 155140 000207 RTS PC ;бшунд хг ондопнцпюллш 3481 155142 010205 MOV R2,R5 3482 155144 012746 000010 MOV #10,-(SP) 3483 155150 004737 167340 JSR PC,@#167340 3484 155154 103410 BCS 155176 3485 155156 013702 164756 MOV @#164756,R2 3486 155162 004737 154514 JSR PC,@#154514 3487 155166 005702 TST R2 3488 155170 001402 BEQ .+6 3489 155172 005726 TST (SP)+ 3490 155174 000752 BR 155122 3491 155176 005726 TST (SP)+ 3492 155200 005216 INC @SP 3493 155202 021627 000010 CMP @SP,#10 3494 155206 001315 BNE 155042 3495 155210 012737 155242 002000 MOV #155242,@#2000 3496 155216 012737 155242 002002 MOV #155242,@#2002 3497 155224 012737 155242 002004 MOV #155242,@#2004 3498 155232 012737 155242 002010 MOV #155242,@#2010 3499 155240 000730 BR 155122 3500 155242 000207 RTS PC 3501 3502 3503 ;*********************************************************************** 3504 ; 3505 ;ондопнцпюллю "мювюкэмши гюцпсгвхй" я мцлд 3506 ;ондопнцпюллю гюцпсфюер мскебни акнй ноепюжхнммни яхярелш ( гюцпсгвхй ) 3507 ; 3508 ;********************************************************************* 3509 3510 155244 005002 CLR R2 3511 155246 020027 000003 CMP R0,#3 3512 155252 003043 BGT 155362 3513 155254 010002 MOV R0,R2 3514 155256 006302 ASL R2 3515 155260 152702 000100 BISB #100,R2 3516 155264 110261 000004 MOVB R2,4(R1) ;гюдюрэ йнлюмдс " времхе яейрнпю" 3517 155270 112761 000001 000006 MOVB #1,6(R1) ;гюдюрэ юдпея днпнфйх 3518 155276 112761 000001 000010 MOVB #1,10(R1) ;гюдюрэ юдпея яейрнпю 3519 155304 112761 000000 000024 MOVB #0,24(R1) ;гюосярхрэ йнлюмдс 3520 155312 132761 000010 000004 BITB #10,4(R1) ;нфхдюмхе гюбепьемхъ ноепюжхх 3521 155320 001774 BEQ .-6 3522 155322 105761 000004 TSTB 4(R1) ;опнхгнькю ньхайю? 3523 155326 100415 BMI 155362 ;оепеирх, еякх дю 3524 155330 005002 CLR R2 ;бшапюрэ юдпея нгс 3525 155332 105761 000022 TSTB 22(R1) ;сярюмнбхрэ сйюгюрекэ мю мювюкн астепю 3526 155336 012703 001000 MOV #1000,R3 ;сярюмнбхрэ явервхй аюирнб астепю 3527 155342 005303 DEC R3 3528 155344 002403 BLT .+10 3529 155346 116122 000020 MOVB 20(R1),(R2)+ ;явхрюрэ астеп б нгс 3530 155352 000773 BR 155342 3531 155354 012702 055104 MOV #55104,R2 ;бшапюрэ кнцхвеяйне хлъ мцлд (DZ) 3532 155360 005727 000261 TST #261 3533 155364 000207 RTS PC 3534 - - - -93- 589.7545471.00066-01 12 01 3535 ;*********************************************************************** 3536 ; 3537 ;ондопнцпюллю "мювюкэмши гюцпсгвхй" я млд 3538 ;ондопнцпюллю гюцпсфюер мскебни акнй ноепюжхнммни яхярелш (гюцпсгвхй) 3539 ;я млд 3540 ; 3541 ;********************************************************************** 3542 155366 005002 CLR R2 3543 155370 005700 TST R0 3544 155372 001051 BNE 155516 3545 155374 132761 100000 000020 BITB #100000,20(R1) ;нфхдюмхе цнрнбмнярх йнмрпнккепю 3546 155402 001374 BNE .-6 3547 155404 012761 000000 000014 MOV #0,14(R1) ;гюдюрэ мнлеп онбепумнярх 3548 155412 012761 000001 000006 MOV #1,6(R1) ;гюдюрэ юдпея яейрнпю 3549 155420 012761 000000 000012 MOV #0,12(R1) ;гюдюрэ юдпея жхкхмдпю 3550 155426 012761 000040 000016 MOV #40,16(R1) ;бшонкмхрэ йнлюмдс "времхе яейрнпю" 3551 155434 132761 100000 000020 BITB #100000,20(R1) ;нфхдюмхе цнрнбмнярх йнмрпнккепю 3552 155442 001374 BNE .-6 3553 155444 132761 000200 000020 BITB #200,20(R1) 3554 155452 001774 BEQ .-6 3555 155454 132761 000001 000017 BITB #1,17(R1) ;опнхгнькю ньхайю? 3556 155462 001015 BNE 155516 ;оепеирх, еякх дю 3557 155464 005002 CLR R2 ;бшапюрэ юдпея нгс, пюбмши 000000 3558 155466 012703 000400 MOV #400,R3 ;сярюмнбхрэ явервхй якнб астепю 3559 155472 032761 000200 000020 BIT #200,20(R1) 3560 155500 001774 BEQ .-6 3561 155502 016122 000010 MOV 10(R1),(R2)+ ;явхрюрэ астеп б нгс, мювхмюъ я юдпеяю 000000 3562 155506 077307 SOB R3,155472 3563 155510 012702 053504 MOV #53504,R2 ;бшапюрэ кнцхвеяйне хлъ млд (DW) 3564 155514 005727 000261 TST #261 ;бшунд хг ондопнцпюллш 3565 155520 000207 RTS PC 3566 3567 160000 .=160000 3568 160000 000005 RESET ;бшонкмхрэ йнлюмдс RESET 3569 160002 005737 173406 TST @#173406 ;гюдюрэ пефхл пюанрш хмрептеияю оевюрючыецн 3570 ;сярпниярбю: 3571 160006 012737 000116 173404 MOV #116,@#173404 ;гюдюрэ юяхмупнммши пефхл пюанрш я 8-ч 3572 ;хмтнплюжхнммшлх х 1-ярнонбшл ахрнл 3573 160014 012737 000276 173404 MOV #276,@#173404 ;гюдюрэ яйнпнярэ налемю - 9600 ахр/я 3574 160022 012737 000047 173406 MOV #47,@#173406 ;пюгпеьхрэ опхел х оепедювс б мнплюкэмнл пефхле 3575 160030 052737 000200 173700 BIS #200,@#173700 ;пюгпеьхрэ нярюмнб щбл 3576 3577 ;*********************************************************************** 3578 ; 3579 ; ондопнцпюллю опнбепйх жемрпюкэмнцн опнжеяянпю 3580 ; 3581 ;опх намюпсфемхх ньхайх опх опнбепйе жо яберъряъ бяе 4 ябернбшу 3582 ;хмдхйюрнпю, мю дхяокеи хмтнплюжхъ ме бшбндхряъ, сопюбкемхе он йнлюмде 3583 ;JSR R0,XXXXXX оепедюеряъ ъвеийе XXXXXX, б йнрнпни гюохяюмю йнлюмдю 3584 ;BR .+0 (000777). 3585 ;опх мюкхвхх оскэрнбнцн реплхмюкю дкъ нопедекемхъ опхвхмш ньхайх 3586 ;менаундхлн опнхгбеярх нярюмнб х, хяонкэгсъ юдпея нярюмнбю х яндепфхлне 3587 ;бяонлнцюрекэмшу пецхярпнб/ъвеей, нопедекхрэ опхвхмс ньхайх. 3588 ;*********************************************************************** 3589 3590 160036 012700 000340 MOV #340,R0 ;сярюмнбхрэ опхнпхрер жо = 7 3591 160042 106400 MTPS R0 - - - -94- 589.7545471.00066-01 12 01 3592 160044 012706 001002 MOV #1002,SP ;сярюмнбхрэ ярей 3593 160050 005001 CLR R1 ;нвхярхрэ пецхярпш R1-R5 3594 160052 005002 CLR R2 3595 160054 005003 CLR R3 3596 160056 005004 CLR R4 3597 160060 005005 CLR R5 3598 160062 004037 160070 JSR R0,@#160070 ;бшонкмхрэ йнлюмдс JSR 3599 160066 000777 BR .+0 ;ньхайю. опейпюрхрэ бшонкмемхе бмсрпеммецн 3600 ;юбрн-реярю 3601 3602 ;********************************************************************** 3603 ;опнбепйю бшонкмемхъ йнлюмд бербкемхъ 3604 ;опх нвхярйе бяеу опхгмюйнб, 3605 ;опх сярюмнбйе бяеу опхгмюйнб, 3606 ;он опхгмюйс N 3607 ;нярюмнб 160066, R0=160066 3608 3609 160070 000257 CCC ;нвхярхрэ опхгмюйх N,Z,V,C 3610 3611 ;опнбепхрэ йнлюмдш бербкемхъ 3612 160072 001775 BEQ .-4 ;оепеирх, еякх Z=1 3613 160074 100774 BMI .-6 ;оепеирх, еякх N=1 3614 160076 102773 BVS 160066 ;оепеирх, еякх V=1 3615 160100 103772 BCS 160066 ;оепеирх, еякх C=1 3616 160102 002771 BLT 160066 ;оепеирх, еякх NVV=1 3617 160104 003770 BLE 160066 ;оепеирх, еякх ZV(NVV)=1 3618 160106 101767 BLOS 160066 ;оепеирх, еякх CVZ=1 3619 160110 101015 BHI 160144 ;оепеирх, еякх CVZ=0 3620 160112 100365 BPL 160066 ;оепеирх, еякх N=0 3621 160114 002364 BGE 160066 ;оепеирх, еякх NVV=0 3622 160116 003363 BGT 160066 ;оепеирх, еякх ZV(NVV)=0 3623 160120 002400 BLT .+2 ;оепеирх, еякх NVV=1 3624 160122 000277 SCC ;сярюмнбхрэ опхгмюйх N,Z,V,C 3625 3626 ;опнбепхрэ йнлюмдш бербкемхъ 3627 160124 001360 BNE 160066 ;оепеирх, еякх Z=0 3628 160126 100357 BPL 160066 ;оепеирх, еякх N=0 3629 160130 102356 BVC 160066 ;оепеирх, еякх V=0 3630 160132 103355 BCC 160066 ;оепеирх, еякх C=0 3631 160134 003354 BGT 160066 ;оепеирх, еякх ZV(NVV)=0 3632 160136 101353 BHI 160066 ;оепеирх, еякх CVZ=0 3633 160140 002752 BLT 160066 ;оепеирх, еякх NVV=1 3634 160142 002002 BGE .+6 ;оепеирх, еякх NVV=0 3635 160144 000270 SEN ;сярюмнбхрэ N-пюгпъд 3636 160146 000761 BR 160112 ;оепеирх мю опнбепйс йнлюмд бербкемхъ 3637 3638 ;*********************************************************************** 3639 ;опнбепйю опюбхкэмнярх бшонкмемхъ йнлюмдш JSR 3640 3641 160150 022700 160066 CMP #160066,R0 ;R0 яндепфхр юдпея йнлюмдш, якедсчыеи гю JSR? 3642 160154 001344 BNE 160066 ;оепеирх мю ньхайс, еякх мер 3643 160156 022706 001000 CMP #1000,SP ;ся слемэьхкяъ мю 2 оняке бшонкмемхъ йнлюмдш JSR? 3644 160162 001341 BNE 160066 ;оепеирх мю ньхайс, еякх мер 3645 160164 022737 000340 001000 CMP #340,@#1000 ;яндепфхлне R0 опюбхкэмн гюохяюмн б ярей? 3646 160172 001335 BNE 160066 ;оепеирх мю ньхайс, еякх мер 3647 160174 005726 TST (SP)+ ;сбекхвхрэ ся 3648 160176 022706 001002 CMP #1002,SP ;ся = 1002? - - - -95- 589.7545471.00066-01 12 01 3649 160202 001331 BNE 160066 ;оепеирх мю ньхайс, еякх мер 3650 ;*************************************************************** 3651 ;опнбепйю бшонкмемхъ ндмнюдпеямшу йнлюмд я пецхярпнбшл 3652 ;лернднл юдпеяюжхх (ноепюмд б R1) 3653 ;юдпея нярюмнбю 160066, R0=160320 3654 3655 160204 000277 SCC ;сярюмнбхрэ бяе опхгмюйх 3656 160206 005001 CLR R1 3657 160210 001041 BNE 160314 3658 160212 101040 BHI 160314 3659 160214 003037 BGT 160314 3660 160216 005101 COM R1 3661 160220 103035 BCC 160314 3662 160222 003034 BGT 160314 3663 160224 005401 NEG R1 3664 160226 101032 BHI 160314 3665 160230 002431 BLT 160314 3666 160232 006001 ROR R1 3667 160234 103027 BCC 160314 3668 160236 100026 BPL 160314 3669 160240 005501 ADC R1 3670 160242 103424 BCS 160314 3671 160244 000261 SEC 3672 160246 100022 BPL 160314 3673 160250 002021 BGE 160314 3674 160252 006101 ROL R1 3675 160254 103017 BCC 160314 3676 160256 102016 BVC 160314 3677 160260 006201 ASR R1 3678 160262 103014 BCC 160314 3679 160264 102013 BVC 160314 3680 160266 005601 SBC R1 3681 160270 003011 BGT 160314 3682 160272 006301 ASL R1 3683 160274 002407 BLT 160314 3684 160276 005201 INC R1 3685 160300 001405 BEQ 160314 3686 160302 005301 DEC R1 3687 160304 001003 BNE .+10 3688 160306 005701 TST R1 3689 160310 003001 BGT .+4 3690 160312 001402 BEQ .+6 3691 160314 004037 160066 JSR R0,@#160066 3692 3693 ;*********************************************************************** 3694 ;опнбепйю бшонкмемхъ ндмнюдпеямшу аюирнбшу 3695 ;йнлюмд х йнлюмдш MOVB я пецхярпнбшл лернднл юдпеяюжхх ноепюмдю 3696 ;(ноепюмд б лк. аюире R2) 3697 ;юдпея нярюмнбю 160066, R0=160434 3698 3699 160320 112702 000377 MOVB #377,R2 3700 160324 001405 BEQ 160340 3701 160326 105002 CLRB R2 3702 160330 101037 BHI 160430 3703 160332 105102 COMB R2 3704 160334 103035 BCC 160430 3705 160336 100034 BPL 160430 - - - -96- 589.7545471.00066-01 12 01 3706 160340 105602 SBCB R2 3707 160342 103432 BCS 160430 3708 160344 105202 INCB R2 3709 160346 100030 BPL 160430 3710 160350 105402 NEGB R2 3711 160352 101026 BHI 160430 3712 160354 105302 DECB R2 3713 160356 103024 BCC 160430 3714 160360 003023 BGT 160430 3715 160362 000302 SWAB R2 3716 160364 001421 BEQ 160430 3717 160366 106302 ASLB R2 3718 160370 002017 BGE 160430 3719 160372 106002 RORB R2 3720 160374 103415 BCS 160430 3721 160376 003414 BLE 160430 3722 160400 106202 ASRB R2 3723 160402 103012 BCC 160430 3724 160404 102411 BVS 160430 3725 160406 106102 ROLB R2 3726 160410 100007 BPL 160430 3727 160412 001406 BEQ 160430 3728 160414 105502 ADCB R2 3729 160416 100404 BMI 160430 3730 160420 001003 BNE .+10 3731 160422 105702 TSTB R2 3732 160424 103401 BCS .+4 3733 160426 001402 BEQ .+6 3734 160430 004037 160066 JSR R0,@#160066 3735 3736 ;*********************************************************************** 3737 ;опнбепйю бшонкмемхъ йнлюмдш MOV я лерндюлх юдпеяюжхх 27, 37, х 77 3738 ;ноепюмдю хярнвмхйю 3739 ;юдпея нярюмнбю 160650, R0=160502 3740 3741 160434 012701 160636 MOV #160636,R1 ;опнбепхрэ лернд юдпеяюжхх 27 3742 160440 022701 160636 CMP #160636,R1 3743 160444 001014 BNE 160476 3744 160446 013702 160636 MOV @#160636,R2 ;опнбепхрэ лернд юдпеяюжхх 37 3745 160452 013703 160636 MOV @#160636,R3 ;опнбепхрэ лернд юдпеяюжхх 37 3746 160456 021102 CMP @R1,R2 3747 160460 001006 BNE 160476 3748 160462 021103 CMP @R1,R3 3749 160464 001004 BNE 160476 3750 160466 017704 000144 MOV @160636,R4 ;опнбепхрэ лернд юдпеяюжхх 77 3751 160472 021204 CMP @R2,R4 3752 160474 001402 BEQ .+6 3753 160476 004037 160650 JSR R0,@#160650 3754 3755 3756 ;*********************************************************************** 3757 ;опнбепйю опълни х йнябеммни юдпеяюжхх ноепюмдю хярнвмхйю 3758 ;он йнлюмде MOV 3759 ;юдпея нярюмнбю 160650, R0=160636 3760 3761 160502 012700 160636 MOV #160636,R0 3762 160506 012001 MOV (R0)+,R1 - - - -97- 589.7545471.00066-01 12 01 3763 160510 012002 MOV (R0)+,R2 ;юбрнхмйпелемрмши лернд 3764 160512 022700 160642 CMP #160642,R0 3765 160516 001045 BNE 160632 3766 160520 011203 MOV @R2,R3 ;йнябеммн-пецхярпнбши лернд 3767 160522 022703 052525 CMP #52525,R3 3768 160526 001041 BNE 160632 3769 160530 012204 MOV (R2)+,R4 ;юбрнхмйпелемрмши лернд 3770 160532 020403 CMP R4,R3 3771 160534 001036 BNE 160632 3772 160536 012204 MOV (R2)+,R4 ;юбрнхмйпелемрмши лернд 3773 160540 022704 125252 CMP #125252,R4 3774 160544 001032 BNE 160632 3775 160546 014205 MOV -(R2),R5 ;юбрндейпелемрмши лернд 3776 160550 020405 CMP R4,R5 3777 160552 001027 BNE 160632 3778 160554 014205 MOV -(R2),R5 ;юбрндейпелемрмши лернд 3779 160556 020503 CMP R5,R3 3780 160560 001024 BNE 160632 3781 160562 015001 MOV @-(R0),R1 ;йнябеммн-юбрндейпелемрмши лернд 3782 160564 020103 CMP R1,R3 3783 160566 001021 BNE 160632 3784 160570 015001 MOV @-(R0),R1 ;йнябеммн-юбрндейпелемрмши лернд 3785 160572 020401 CMP R4,R1 3786 160574 001016 BNE 160632 3787 160576 013002 MOV @(R0)+,R2 ;йнябеммн-юбрнхмйпелемрмши лернд 3788 160600 020204 CMP R2,R4 3789 160602 001013 BNE 160632 3790 160604 013002 MOV @(R0)+,R2 3791 160606 020302 CMP R3,R2 3792 160610 001010 BNE 160632 3793 160612 016002 000004 MOV 4(R0),R2 ;хмдейямши лернд 3794 160616 020102 CMP R1,R2 3795 160620 001004 BNE 160632 3796 160622 017002 177776 MOV @177776(R0),R2 ;йнябеммн-хмдейямши лернд 3797 160626 020302 CMP R3,R2 3798 160630 001410 BEQ 160652 3799 160632 004037 160650 JSR R0,@#160650 3800 3801 ;дюммше 3802 3803 160636 160642 160642 3804 160640 160644 160644 3805 160642 125252 125252 3806 160644 052525 052525 3807 160646 125252 125252 3808 3809 160650 000777 BR .+0 ;ньхайю. опейпюрхрэ бшонкмемхе бмсрпеммецн 3810 ;юбрн-реярю 3811 3812 ;*********************************************************************** 3813 ;опнбепйю опълни х йнябеммни юдпеяюжхх ноепюмдю опхелмхйю 3814 ;он йнлюмде MOV 3815 ;юдпея нярюмнбю 161470, R0=161006 3816 3817 160652 012700 161436 MOV #161436,R0 3818 160656 012001 MOV (R0)+,R1 3819 160660 012002 MOV (R0)+,R2 - - - -98- 589.7545471.00066-01 12 01 3820 160662 012003 MOV (R0)+,R3 3821 160664 011304 MOV @R3,R4 3822 160666 010305 MOV R3,R5 3823 160670 011172 000010 MOV @R1,@10(R2) ;йнябеммн-хмдейямши лернд 3824 160674 022170 000020 CMP (R1)+,@20(R0) 3825 160700 001040 BNE 161002 3826 160702 011166 177776 MOV @R1,177776(SP) ;хмдейямши лернд 3827 160706 022166 177776 CMP (R1)+,177776(SP) 3828 160712 001033 BNE 161002 3829 160714 011133 MOV @R1,@(R3)+ ;йнябеммн-юбрнхмйпелемрмши лернд 3830 160716 022135 CMP (R1)+,@(R5)+ 3831 160720 001030 BNE 161002 3832 160722 020305 CMP R3,R5 3833 160724 001026 BNE 161002 3834 160726 022705 161466 CMP #161466,R5 3835 160732 001023 BNE 161002 3836 160734 011153 MOV @R1,@-(R3) ;йнябеммн-юбрндейпелемрмши лернд 3837 160736 022155 CMP (R1)+,@-(R5) 3838 160740 001020 BNE 161002 3839 160742 020102 CMP R1,R2 3840 160744 001016 BNE 161002 3841 160746 010405 MOV R4,R5 ;пецхярпнбши лернд 3842 160750 011114 MOV @R1,@R4 ;йнябеммн-пецхярпнбши лернд 3843 160752 022115 CMP (R1)+,@R5 3844 160754 001012 BNE 161002 3845 160756 011124 MOV @R1,(R4)+ ;юбрнхмйпелемрмши лернд 3846 160760 022125 CMP (R1)+,(R5)+ 3847 160762 001007 BNE 161002 3848 160764 020405 CMP R4,R5 3849 160766 001005 BNE 161002 3850 160770 020604 CMP SP,R4 3851 160772 001003 BNE .+10 3852 160774 011145 MOV @R1,-(R5) ;юбрндейпелемрмши лернд 3853 160776 022144 CMP (R1)+,-(R4) 3854 161000 001402 BEQ .+6 3855 161002 004037 161470 JSR R0,@#161470 3856 3857 ;*********************************************************************** 3858 ;опнбепйю опюбхкэмнярх бшонкмемхъ йнлюмдш MOV я лерндюлх юдпеяюжхх 3859 ;37 х 77 ноепюмдю опхелмхйю 3860 ;юдпея нярюмнбю 161470 R0=161056 3861 3862 161006 012702 161440 MOV #161440,R2 3863 161012 012203 MOV (R2)+,R3 3864 161014 012204 MOV (R2)+,R4 3865 161016 011405 MOV @R4,R5 3866 161020 010637 001000 MOV SP,@#1000 ;лернд юдпеяюжхх 37 3867 161024 020615 CMP SP,@R5 3868 161026 001011 BNE 161052 3869 161030 011237 001000 MOV @R2,@#1000 ;лернд юдпеяюжхх 37 3870 161034 021215 CMP @R2,@R5 3871 161036 001005 BNE 161052 3872 161040 012777 052525 000416 MOV #52525,@161464 ;лернд юдпеяюжхх 77 3873 161046 021315 CMP @R3,@R5 3874 161050 001402 BEQ .+6 3875 161052 004037 161470 JSR R0,@#161470 3876 - - - -99- 589.7545471.00066-01 12 01 3877 ;********************************************************************** 3878 ;опнбепйю бшонкмемхъ ндмнюдпеямшу йнлюмд ян 3879 ;бяелх лерндюлх опълни х йнябеммни юдпеяюжхх 3880 ;юдпея нярюмнбю 161470, R0=161132 3881 3882 161056 012702 161442 MOV #161442,R2 3883 161062 011203 MOV @R2,R3 3884 161064 011304 MOV @R3,R4 3885 161066 005014 CLR @R4 3886 161070 005124 COM (R4)+ 3887 161072 005444 NEG -(R4) 3888 161074 006033 ROR @(R3)+ 3889 161076 005553 ADC @-(R3) 3890 161100 000261 SEC 3891 161102 006172 000022 ROL @22(R2) 3892 161106 006266 177776 ASR 177776(SP) 3893 161112 005614 SBC @R4 3894 161114 006324 ASL (R4)+ 3895 161116 005244 INC -(R4) 3896 161120 005333 DEC @(R3)+ 3897 161122 005753 TST @-(R3) 3898 161124 001402 BEQ .+6 3899 161126 004037 161470 JSR R0,@#161470 3900 3901 ;*********************************************************************** 3902 ;опнбепйю бшонкмемхъ ндмнюдпеямшу аюирнбшу 3903 ;йнлюмд ян бяелх лерндюлх опълни х йнябеммни юдпеяюжхх 3904 ;юдпея нярюмнбю 161470, R0=161206 3905 3906 161132 012714 177777 MOV #-1,@R4 3907 161136 105014 CLRB @R4 3908 161140 105124 COMB (R4)+ 3909 161142 105644 SBCB -(R4) 3910 161144 105233 INCB @(R3)+ 3911 161146 105453 NEGB @-(R3) 3912 161150 105372 000022 DECB @22(R2) 3913 161154 000366 177776 SWAB 177776(SP) 3914 161160 106314 ASLB @R4 3915 161162 006024 ROR (R4)+ 3916 161164 106244 ASRB -(R4) 3917 161166 106133 ROLB @(R3)+ 3918 161170 105553 ADCB @-(R3) 3919 161172 105724 TSTB (R4)+ 3920 161174 001002 BNE .+6 3921 161176 105724 TSTB (R4)+ 3922 161200 001402 BEQ .+6 3923 161202 004037 161470 JSR R0,@#161470 3924 3925 ;*********************************************************************** 3926 ;опнбепйю бшонкмемхъ йнлюмдш MOVB я хяонкэгнбюмхел лернднб юдпеяюжхх 3927 ;1,2,3 ноепюмдю хярнвмхйю 3928 ;юдпея нярюмнбю 161470, R0=161300 3929 3930 161206 012701 161442 MOV #161442,R1 3931 161212 011104 MOV @R1,R4 3932 161214 011403 MOV @R4,R3 3933 161216 014102 MOV -(R1),R2 - - - -100- 589.7545471.00066-01 12 01 3934 161220 014105 MOV -(R1),R5 3935 161222 005013 CLR @R3 ;нвхярхрэ R3 3936 161224 113134 MOVB @(R1)+,@(R4)+ ;йнябеммн-юбрнхмйпелемрмши лернд 3937 161226 121513 CMPB @R5,@R3 3938 161230 001021 BNE 161274 3939 161232 111305 MOVB @R3,R5 ;йнябеммн-пецхярпнбши лернд 3940 161234 113113 MOVB @(R1)+,@R3 ;йнябеммн-юбрнхмйпелемрмши лернд 3941 161236 121254 CMPB @R2,@-(R4) 3942 161240 001015 BNE 161274 3943 161242 011302 MOV @R3,R2 3944 161244 022705 177652 CMP #177652,R5 3945 161250 001011 BNE 161274 3946 161252 022702 000125 CMP #125,R2 3947 161256 001006 BNE 161274 3948 161260 113104 MOVB @(R1)+,R4 ;йнябеммн-юбрнхмйпелемрмши лернд 3949 161262 120304 CMPB R3,R4 3950 161264 001003 BNE .+10 3951 161266 112103 MOVB (R1)+,R3 ;юбрнхмйпелемрмши лернд 3952 161270 120503 CMPB R5,R3 3953 161272 001402 BEQ .+6 3954 161274 004037 161470 JSR R0,@#161470 3955 3956 ;*********************************************************************** 3957 ;опнбепйю бшонкмемхъ йнлюмд BIS, BIT, BIC, BISB, BITB, BICB 3958 ;юдпея нярюмнбю 161470, R0=161436 3959 3960 3961 161300 012700 161436 MOV #161436,R0 ;гюцпсгхрэ пецхярпш 3962 161304 012001 MOV (R0)+,R1 ;161444 --> R1 3963 161306 012002 MOV (R0)+,R2 ;161454 --> R2 3964 161310 012003 MOV (R0)+,R3 ;161464 --> R3 3965 161312 011304 MOV @R3,R4 ;001000 --> R4 3966 161314 012700 177777 MOV #-1,R0 ;177777 --> R0 3967 161320 000277 SCC ;сярюмнбхрэ опхгмюйх N,Z,V,C 3968 161322 050005 BIS R0,R5 ;опнбепхрэ йнлюмдс BIS 3969 161324 100042 BPL 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй N 3970 161326 041205 BIC @R2,R5 ;опнбепхрэ йнлюмдс BIC 3971 161330 032205 BIT (R2)+,R5 ;опнбепхрэ йнлюмдс BIT 3972 161332 001037 BNE 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй Z 3973 161334 050033 BIS R0,@(R3)+ ;опнбепхрэ йнлюмдс BIS 3974 161336 100035 BPL 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй N 3975 161340 042153 BIC (R1)+,@-(R3) ;опнбепхрэ йнлюмдс BIC 3976 161342 100433 BMI 161432 ;оепеирх, еякх ме нвхыем опхгмюй N 3977 161344 031214 BIT @R2,@R4 ;опнбепхрэ йнлюмдс BIT 3978 161346 001031 BNE 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй Z 3979 161350 022137 001000 CMP (R1)+,@#1000 ;опнбепхрэ йнлюмдс BIC 3980 ;(1000)=052525? 3981 161354 001026 BNE 161432 ;оепеирх, еякх мер 3982 161356 022205 CMP (R2)+,R5 ;опнбепхрэ йнлюмдс BIC 3983 ;(R5)=125252? 3984 161360 001024 BNE 161432 ;оепеирх, еякх мер 3985 161362 150005 BISB R0,R5 ;опнбепхрэ йнлюмдс BISB 3986 161364 100022 BPL 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй N 3987 161366 144205 BICB -(R2),R5 ;опнбепхрэ йнлюмдс BICB 3988 161370 100420 BMI 161432 ;оепеирх, еякх ме нвхыем опхгмюй N 3989 161372 131205 BITB @R2,R5 ;опнбепхрэ йнлюмдс BITB 3990 161374 001016 BNE 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй Z - - - -101- 589.7545471.00066-01 12 01 3991 161376 000305 SWAB R5 ;оепеярюбхрэ аюирш б R5 (R5=52652) 3992 161400 100014 BPL 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй N 3993 161402 130514 BITB R5,@R4 ;опнбепхрэ йнлюмдс BITB 3994 161404 001012 BNE 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй Z 3995 161406 150514 BISB R5,@R4 ;опнбепхрэ йнлюмдс BISB 3996 161410 100010 BPL 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй N 3997 161412 000314 SWAB @R4 3998 161414 100406 BMI 161432 ;оепеирх, еякх ме сярюмнбкем опхгмюй N 3999 161416 131233 BITB @R2,@(R3)+ ;опнбепхрэ йнлюмдс BITB 4000 161420 001004 BNE 161432 ;оепеирх, еякх ме нвхыем опхгмюй Z 4001 161422 144153 BICB -(R1),@-(R3) ;опнбепхрэ йнлюмдс BICB 4002 161424 001002 BNE .+6 ;оепеирх, еякх ме нвхыем опхгмюй Z 4003 161426 021214 CMP @R2,@R4 ;опнбепхрэ йнлюмдс BISB 4004 161430 001020 BNE 161472 4005 161432 004037 161470 JSR R0,@#161470 4006 4007 ;дюммше 4008 4009 161436 161444 161444 4010 161440 161454 161454 4011 161442 161464 161464 4012 161444 125252 125252 4013 161446 052525 052525 4014 161450 177400 177400 4015 161452 000377 000377 4016 161454 052525 052525 4017 161456 125252 125252 4018 161460 000377 000377 4019 161462 177400 177400 4020 161464 001000 001000 4021 161466 161464 161464 4022 4023 161470 000777 BR .+0 ;ньхайю. опейпюрхрэ бшонкмемхе бмсрпеммецн 4024 ;юбрн-реярю 4025 4026 ;*********************************************************************** 4027 ;опнбепйю бшонкмемхъ йнлюмдш ADD 4028 ;юдпея нярюмнбю 161730, R0=161564 4029 4030 161472 012701 161726 MOV #161726,R1 4031 161476 011104 MOV @R1,R4 ;025252-->R4 4032 161500 014103 MOV -(R1),R3 ;052525-->R3 4033 161502 061104 ADD @R1,R4 ;якнфхрэ йндш 052525 х 025252 4034 161504 101425 BLOS 161560 ;оепеирх, еякх CVZ=1 4035 161506 003424 BLE 161560 ;оепеирх, еякх ZV(NVV)=1 4036 161510 061104 ADD @R1,R4 ;якнфхрэ йндш 052525 х 077777 4037 161512 101422 BLOS 161560 ;оепеирх, еякх CVZ=1 4038 161514 002421 BLT 161560 ;оепеирх, еякх NVV=1 4039 161516 061104 ADD @R1,R4 ;якнфхрэ йндш 052525 х 152524 4040 161520 003417 BLE 161560 ;оепеирх, еякх ZV(NVV)=1 4041 161522 010451 MOV R4,@-(R1) 4042 161524 011104 MOV @R1,R4 4043 161526 064114 ADD -(R1),@R4 ;якнфхрэ йндш 125252 х 025251 4044 161530 101413 BLOS 161560 ;оепеирх, еякх CVZ=1 4045 161532 002012 BGE 161560 ;оепеирх, еякх NVV=0 4046 161534 064114 ADD -(R1),@R4 ;якнфхрэ йндш 152525 х 152523 4047 161536 101010 BHI 161560 ;оепеирх, еякх CVZ=0 - - - -102- 589.7545471.00066-01 12 01 4048 161540 002007 BGE 161560 ;оепеирх, еякх NVV=0 4049 161542 061114 ADD @R1,@R4 ;якнфхрэ йндш 152525 х 125250 4050 161544 101005 BHI 161560 ;оепеирх, еякх CVZ=0 4051 161546 002004 BGE 161560 ;оепеирх, еякх NVV=00 4052 161550 064114 ADD -(R1),@R4 ;якнфхрэ йндш 100003 х 077775 4053 161552 002402 BLT .+6 ;оепеирх, еякх NVV=1 4054 161554 003001 BGT .+4 ;оепеирх, еякх ZV(NVV)=0 4055 161556 001402 BEQ .+6 ;оепеирх, еякх Z=1 4056 161560 004037 161730 JSR R0,@#161730 4057 4058 ;*********************************************************************** 4059 ;опнбепйю бшонкмемхъ йнлюмдш SUB 4060 ;юдпея нярюмнбю 161730, R0=161660 4061 4062 161564 012701 161726 MOV #161726,R1 4063 161570 014104 MOV -(R1),R4 ;052525-->R4 4064 161572 161104 SUB @R1,R4 ;бшвеярэ йнд 052525 хг йндю 052525 4065 161574 002427 BLT 161654 ;оепеирх, еякх NVV=1 4066 161576 003026 BGT 161654 ;оепеирх, еякх ZV(NVV)=0 4067 161600 103425 BCS 161654 ;оепеирх, еякх C=1 4068 161602 161104 SUB @R1,R4 ;бшвеярэ йнд 052525 хг йндю 000000 4069 161604 003023 BGT 161654 ;оепеирх, еякх ZV(NVV)=0 4070 161606 101022 BHI 161654 ;оепеирх, еякх CVZ=0 4071 161610 161104 SUB @R1,R4 ;бшвеярэ йнд 052525 хг йндю 125253 4072 161612 101420 BLOS 161654 ;оепеирх, еякх CVZ=1 4073 161614 002017 BGE 161654 ;оепеирх, еякх NVV=0 4074 161616 010451 MOV R4,@-(R1) 4075 161620 011104 MOV @R1,R4 4076 161622 164114 SUB -(R1),@R4 ;бшвеярэ йнд 125252 хг йндю 052526 4077 161624 003413 BLE 161654 ;оепеирх, еякх ZV(NVV)=1 4078 161626 101012 BHI 161654 ;оепеирх, еякх CVZ=0 4079 161630 161114 SUB @R1,@R4 ;бшвеярэ йнд 125252 хг йндю 125254 4080 161632 103410 BCS 161654 ;оепеирх, еякх C=1 4081 161634 102407 BVS 161654 ;оепеирх, еякх V=1 4082 161636 005741 TST -(R1) ;слемэьхрэ R1 мю 2 4083 161640 164114 SUB -(R1),@R4 ;бшвеярэ йнд 100003 хг йндю 2 4084 161642 103004 BCC 161654 ;оепеирх, еякх C=0 4085 161644 003403 BLE .+10 ;оепеирх, еякх ZV(NVV)=1 4086 161646 022714 077777 CMP #77777,@R4 ;дюммше янаоюдючр? 4087 161652 001402 BEQ .+6 ;оепеирх, еякх дю 4088 161654 004037 161730 JSR R0,@#161730 4089 4090 ;*********************************************************************** 4091 ;опнбепйю бшонкмемхъ йнлюмд DEC, SOB 4092 ;юдпея нярюмнбю 161730, R0=161714 4093 4094 161660 012701 000002 MOV #2,R1 ;гюдюрэ явервхй бшонкмемхъ йнлюмдш SOB 4095 161664 010102 MOV R1,R2 ;2-->R2 4096 161666 005302 DEC R2 ;слемэьхрэ R2 мю 1 4097 161670 002407 BLT 161710 ;оепеирх, еякх R2<0 4098 161672 005701 TST R1 4100 161676 077105 SOB R1,161666 ;бшвеярэ 1 хг R1 х оепеирх, еякх R1 ме пюбмн 0 4101 161700 005701 TST R1 ;опнбепхрэ R1 оняке бшонкмемхъ йнлюмдш SOB 4102 161702 001002 BNE .+6 ;оепеирх, еякх R1 ме пюбмн 0 4103 161704 000137 161732 JMP @#161732 ;оепеирх мю ондопнцпюллс опнбепйх нгс 4104 161710 004037 161730 JSR R0,@#161730 ;оепеирх мю ньхайс - - - -103- 589.7545471.00066-01 12 01 4105 4106 ;дюммше дкъ опнбепйх жо 4107 4108 161714 100003 100003 4109 161716 152525 152525 4110 161720 125252 125252 4111 161722 001000 001000 4112 161724 052525 052525 4113 161726 025252 025252 4114 4115 161730 000777 BR .+0 ;ньхайю. опейпюрхрэ бшонкмемхе бмсрпеммецн 4116 ;юбрн-реярю 4117 4118 4119 ;*********************************************************************** 4120 ; 4121 ; ондопнцпюллю опнбепйх нгс 4122 ; 4123 ;*********************************************************************** 4124 4125 161732 012700 000006 MOV #6,R0 4126 161736 012710 000340 MOV #340,@R0 4127 161742 012740 162126 MOV #162126,-(R0) ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 4128 161746 012737 000020 172516 MOV #20,@#172516 ;пюгпеьхрэ 22-пюгпъдмне опенапюгнбюмхе 4129 161754 004737 162136 JSR PC,@#162136 ;ондцнрнбхрэ пецхярпш до 4130 161760 005003 CLR R3 ;нвхярхрэ явервхй ярпюмхж оюлърх елйнярэч 2 йаюир 4131 161762 012701 020000 MOV #20000,R1 4132 161766 012737 000001 177572 MOV #1,@#177572 ;пюгпеьхрэ до 4133 161774 012710 162012 MOV #162012,@R0 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 4134 4135 ;*********************************************************************** 4136 ;нопедекемхе елйнярх нямнбмнцн нгс 4137 ; 4138 ;елйнярэ нямнбмнцн нгс нопедекъеряъ гюохяэч б оепбсч ъвеийс 4139 ;йюфдни ярпюмхжш елйнярэч 2 йаюир ее яндепфхлнцн. 4140 ;R3 яндепфхр явервхй ясы. ярпюмхж нямнбмнцн нгс елйнярэч 2 йаюир 4141 4142 162000 011111 MOV @R1,@R1 ;опнхгбеярх времхе х гюохяэ ъвеийх 4143 ;опнхгнидер опепшбюмхе, еякх юдпея ме нрбевюер 4144 162002 005203 INC R3 ;сбекхвхрэ явервхй ясыеярбсчыху ярпюмхж нгс 4145 ;елйнярэч 2 йаюир 4146 162004 062712 000040 ADD #40,@R2 ;сбекхвхрэ йнмярюмрс оепепюяопедекемхъ 4147 162010 000773 BR 162000 ;оепеирх й опнбепйе якедсчыеи ярпюмхжш 4148 4149 162012 005037 172516 CLR @#172516 ;гюоперхрэ 22-пюгпъдмне опенапюгнбюмхе 4150 162016 005037 177572 CLR @#177572 ;гюоперхрэ до 4151 162022 005001 CLR R1 4152 162024 013700 173700 MOV @#173700,R0 4153 162030 032700 000001 BIT #1,R0 ;оепбне нгс сярюмнбкемн? 4154 162034 001001 BNE .+4 ;оепеирх, еякх дю 4155 162036 000407 BR 162056 ;оепеирх, еякх мер 4156 162040 032700 000002 BIT #2,R0 ;оепбне нгс елйнярэч 128 йаюир? 4157 162044 001402 BEQ .+6 ;оепеирх, еякх дю 4158 162046 012701 000300 MOV #300,R1 ;ятнплхпнбюрэ йнмярюмрс оепепюяопедекемхъ 4159 162052 062701 000100 ADD #100,R1 ;дкъ 512 йаюир 4160 162056 032700 000004 BIT #4,R0 ;брнпне нгс сярюмнбкемн? 4161 162062 001407 BEQ 162102 ;оепеирх, еякх мер - - - -104- 589.7545471.00066-01 12 01 4162 162064 032700 000010 BIT #10,R0 ;брнпне нгс елйнярэч 128 йаюир? 4163 162070 001402 BEQ .+6 ;оепеирх, еякх дю 4164 162072 062701 000300 ADD #300,R1 ;ятнплхпнбюрэ йнмярюмрс оепепюяопедекемхъ 4165 162076 062701 000100 ADD #100,R1 ;дкъ 512 йаюир 4166 162102 005701 TST R1 ;наю нгс ме сярюмнбкемш? 4167 162104 001407 BEQ 162124 ;оепеирх мю ньхайс, еякх дю 4168 162106 020103 CMP R1,R3 ;намюпсфемш меясыеярбсчыхе ярпюмхжш б 4169 ;б сярюмнбкеммшу нгс? 4170 162110 101005 BHI 162124 ;оепеирх мю ньхайс, еякх дю 4171 162112 070127 000040 MUL #40,R1 ;онксвхрэ йнмярюмрс оепепюяопедекемхъ оепбни 4172 162116 010137 177640 MOV R1,@#177640 ;меясыеярбсчыеи ярпюмхжш 4173 162122 000426 BR 162200 4174 162124 000240 NOP 4175 162126 012737 000003 173704 MOV #3,@#173704 ;бйкчвхрэ ябернбше хмдхйюрнпш 3 х 4 4176 ;ньхайю. мехяопюбмн нгс хкх до 4177 162134 000777 BR .+0 ;опейпюрхрэ бшонкмемхе бмсрпеммецн юбрн-реярю 4178 4179 ;*********************************************************************** 4180 ;ондопнцпюллю ондцнрнбйх пецхярпнб до 4181 4182 162136 005037 172340 CLR @#172340 4183 162142 012702 172342 MOV #172342,R2 4184 162146 005012 CLR @R2 4185 162150 012737 177600 172356 MOV #177600,@#172356 ;пюгпеьхрэ днярсо й онякедмеи ярпюмхже оюлърх 4186 162156 012701 077406 MOV #77406,R1 ;пюгпеьхрэ вр/гюо ярпюмхжш оюлърх 4187 162162 010137 172300 MOV R1,@#172300 4188 162166 010137 172302 MOV R1,@#172302 4189 162172 010137 172316 MOV R1,@#172316 4190 162176 000207 RTS PC 4191 4192 162200 005003 CLR R3 4193 162202 005037 177642 CLR @#177642 ;нвхярхрэ пецхярп ньхайх 4194 162206 005005 CLR R5 ;нвхярхрэ явервхй накюяреи он 32 йаюир 4195 162210 032737 000001 173700 BIT #1,@#173700 ;1-е нгс сярюмнбкемн? 4196 162216 001402 BEQ .+6 ;оепеирх, еякх мер 4197 162220 005703 TST R3 ;опнбепемн 1-е нгс? 4198 162222 001405 BEQ 162236 ;оепеирх, еякх мер 4199 162224 032737 000010 173700 BIT #10,@#173700 ;елйнярэ 2-цн нгс 512 йаюир? 4200 162232 001005 BNE 162246 ;оепеирх, еякх дю 4201 162234 000406 BR 162252 ;оепеирх, еякх елйнярэ 2-цн нгс 128 йаюир 4202 162236 032737 000002 173700 BIT #2,@#173700 ;елйнярэ 1-цн нгс 512 йаюир? 4203 162244 001402 BEQ .+6 ;оепеирх, еякх елйнярэ 1-цн нгс 128 йаюир 4204 162246 012705 000012 MOV #12,R5 ;ятнплхпнбюрэ б R4 4205 162252 062705 000004 ADD #4,R5 ;явервхй накюяреи 4206 162256 010504 MOV R5,R4 ;дкъ опнбепйх он 32 йаюир 4207 162260 012737 000020 172516 MOV #20,@#172516 ;пюгпеьхрэ 22-пюгпъдмне опенапюгнбюмхе 4208 162266 010301 MOV R3,R1 ;гюцпсгхрэ б R1 йнмярюмрс оепепюяопедекемхъ 4209 4210 ;*********************************************************************** 4211 ;ондцнрнбйю пецхярпнб до 4212 4213 162270 012737 177300 172340 MOV #177300,@#172340 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 4214 162276 010137 172342 MOV R1,@#172342 4215 162302 062701 000200 ADD #200,R1 4216 162306 010137 172344 MOV R1,@#172344 4217 162312 062701 000200 ADD #200,R1 4218 162316 010137 172346 MOV R1,@#172346 - - - -105- 589.7545471.00066-01 12 01 1 4219 162322 062701 000200 ADD #200,R1 4220 162326 010137 172350 MOV R1,@#172350 4221 162332 012737 177200 172352 MOV #177200,@#172352 4222 162340 012737 177400 172354 MOV #177400,@#172354 4223 162346 012737 177600 172356 MOV #177600,@#172356 4224 162354 012701 077406 MOV #77406,R1 ;пюгпеьхрэ днярсо й оюлърх 4225 162360 012737 004006 172300 MOV #4006,@#172300 4226 162366 010137 172302 MOV R1,@#172302 4227 162372 010137 172304 MOV R1,@#172304 4228 162376 010137 172306 MOV R1,@#172306 4229 162402 010137 172310 MOV R1,@#172310 4230 162406 010137 172312 MOV R1,@#172312 4231 162412 010137 172314 MOV R1,@#172314 4232 162416 010137 172316 MOV R1,@#172316 4233 162422 012737 000001 177572 MOV #1,@#177572 ;бйкчвхрэ до 4234 4235 ;*********************************************************************** 4236 ;гюохяюрэ йнд 052525 бн бяе ъвеийх оюлърх, мювхмюъ я лкюдьецн юдпеяю 4237 4238 162430 012700 020000 MOV #20000,R0 ;гюмеярх б R0 оепбши юдпея 4239 162434 012710 052525 MOV #52525,@R0 ;гюохяюрэ йнд 052525 йнябеммн он R0 4240 162440 000421 BR 162504 ;оепеирх мю гюохяэ юдпеяю 4241 4242 162442 062737 001000 172342 ADD #1000,@#172342 ;оепесярюмнбхрэ йнмярюмрш 4243 162450 012701 020000 MOV #20000,R1 ;оепепюяопедекемхъ 4244 162454 011011 MOV @R0,@R1 ;дкъ гюохях 4245 162456 062737 001000 172344 ADD #1000,@#172344 ;якедсчыху 32 йаюир 4246 162464 062737 001000 172346 ADD #1000,@#172346 4247 162472 062737 001000 172350 ADD #1000,@#172350 4248 162500 012700 020000 MOV #20000,R0 4249 162504 010001 MOV R0,R1 ;гюохяюрэ юдпея 4250 162506 005721 TST (R1)+ ;сбекхвхрэ юдпея мю 2 4251 162510 012702 037777 MOV #37777,R2 ;сярюмнбхрэ явервхй ъвеей дкъ гюохях он 32 йаюир 4252 162514 012021 MOV (R0)+,(R1)+ ;гюохяюрэ йнд он якедсчыелс юдпеяс 4253 162516 077202 SOB R2,.-2 ;йнмеж гюохях б 32 йаюир? 4254 ;оепеирх, еякх мер 4255 162520 077430 SOB R4,162442 ;йнмеж гюохях б 512/128 йаюир? 4256 ;оепеирх, еякх мер 4257 4258 ;*********************************************************************** 4259 ;хмбепрхпнбюрэ дюммше оюлърх, мювхмюъ я лкюдьецн юдпеяю 4260 4261 162522 010504 MOV R5,R4 ;гюмеярх б R4 явервхй накюяреи елйнярэч он 32 йаюир 4262 162524 010301 MOV R3,R1 ;ятнплхпнбюрэ 4263 162526 010137 172342 MOV R1,@#172342 ;йнмярюмрш 4264 162532 062701 000200 ADD #200,R1 ;оепепюяопедекемхъ 4265 162536 010137 172344 MOV R1,@#172344 ;дкъ оепбшу 32 йаюир 4266 162542 062701 000200 ADD #200,R1 4267 162546 010137 172346 MOV R1,@#172346 4268 162552 062701 000200 ADD #200,R1 4269 162556 010137 172350 MOV R1,@#172350 4270 162562 000414 BR 162614 4271 4272 162564 062737 001000 172342 ADD #1000,@#172342 ;оепесярюмнбхрэ йнмярюмрш 4273 162572 062737 001000 172344 ADD #1000,@#172344 ;оепепюяопедекемхъ 4274 162600 062737 001000 172346 ADD #1000,@#172346 ;дкъ якедсчыху 32 йаюир 4275 162606 062737 001000 172350 ADD #1000,@#172350 - - - -106- 589.7545471.00066-01 12 01 4276 162614 012702 040000 MOV #40000,R2 ;сярюмнбхрэ явервхй ъвеей дкъ гюохях он 32 йаюир 4277 162620 012700 020000 MOV #20000,R0 ;бшапюрэ бхпрсюкэмши юдпея 4278 162624 005120 COM (R0)+ ;хмбепрхпнбюрэ дюммше 4279 162626 077202 SOB R2,.-2 ;йнмеж накюярх б 32 йаюир? 4280 ;оепеирх, еякх мер 4281 162630 077423 SOB R4,162564 ;йнмеж оюлърх? 4282 ;оепеирх, еякх мер 4283 4284 ;*********************************************************************** 4285 ;опнбепхрэ дюммше оюлърх, мювхмюъ ян ярюпьецн юдпеяю 4286 ;х хмбепрхпнбюрэ, еякх дюммше янбоюдючр 4287 4288 162632 010504 MOV R5,R4 ;гюмеярх б R4 явервхй накюяреи елйнярэч 32 йаюир 4289 162634 005001 CLR R1 4290 162636 000414 BR 162670 4291 162640 162737 001000 172342 SUB #1000,@#172342 ;оепесярюмнбхрэ 4292 162646 162737 001000 172344 SUB #1000,@#172344 ;йнмярюмрш оепепюяопедекемхъ 4293 162654 162737 001000 172346 SUB #1000,@#172346 ;дкъ опнбепйх 4294 162662 162737 001000 172350 SUB #1000,@#172350 ;опедшдсыху 32 йаюир 4295 162670 012702 040000 MOV #40000,R2 ;сярюмнбхрэ явервхй ъвеей дкъ опнбепйх он 32 йаюир 4296 162674 012700 120000 MOV #120000,R0 ;бшапюрэ бхпрсюкэмши юдпея б R0 4297 162700 024027 125252 CMP -(R0),#125252 ;дюммше янбоюдючр? 4298 162704 001034 BNE 162776 ;оепеирх, еякх мер 4299 162706 005110 COM @R0 ;хмбепрхпнбюрэ дюммше 4300 162710 077205 SOB R2,162700 ;йнмеж опнбепйх б 32 йаюир? 4301 ;оепеирх, еякх мер 4302 162712 077426 SOB R4,162640 ;йнмеж оюлърх? 4303 ;оепеирх, еякх мер 4304 4305 ;*********************************************************************** 4306 ;опнбепйю оюлърх, мювхмюъ я лкюдьецн юдпеяю 4307 4308 162714 010504 MOV R5,R4 ;бняярюмнбхрэ явервхй накюяреи елйнярэч 32 йаюир 4309 162716 005001 CLR R1 4310 162720 000414 BR 162752 4311 162722 062737 001000 172342 ADD #1000,@#172342 4312 162730 062737 001000 172344 ADD #1000,@#172344 4313 162736 062737 001000 172346 ADD #1000,@#172346 4314 162744 062737 001000 172350 ADD #1000,@#172350 4315 162752 012702 040000 MOV #40000,R2 ;сярюмнбхрэ явервхй ъвеей 4316 162756 012700 020000 MOV #20000,R0 ;бхпрсюкэмши юдпея-->R0 4317 162762 022027 052525 CMP (R0)+,#52525 ;дюммше янбоюдючр? 4318 162766 001003 BNE .+10 ;оепеирх, еякх мер 4319 162770 077204 SOB R2,.-6 ;йнмеж накюярх? оепеирх, еякх мер 4320 162772 077425 SOB R4,162722 ;йнмеж оюлърх? оепеирх, еякх мер 4321 162774 000402 BR .+6 ;оепеирх, еякх ме ашкн ньханй 4322 162776 000261 SEC ;сярюмнбхрэ я-пюгпъд, 4323 163000 000401 BR .+4 ;еякх дюммше ме янбоюдючр 4324 163002 000241 CLC ;нвхярхрэ я-пюгпъд 4325 163004 012737 000000 172340 MOV #0,@#172340 ;пюгпеьхрэ днярсо 4326 163012 012737 077406 172300 MOV #77406,@#172300 ;й 0-и ярпюмхже оюлърх 4327 163020 032705 000001 BIT #1,R5 ;опнбепъеряъ оюлърэ бхденйнмрпнккепю? 4328 163024 001401 BEQ .+4 ;оепеирх, еякх мер 4329 163026 000207 RTS PC ;бшунд хг ондопнцпюллш опнбепйх оюлърх 4330 ;бхденйнмрпнккепю 4331 163030 103015 BCC 163064 ;оепеирх, еякх ме ашкн ньханй 4332 163032 032737 000001 173700 BIT #1,@#173700 ;1-е нгс сярюмнбкемн? - - - -107- 589.7545471.00066-01 12 01 4333 163040 001406 BEQ 163056 ;оепеирх, еякх мер 4334 163042 005703 TST R3 ;ньхайю бн 2-л нгс? 4335 163044 001004 BNE 163056 ;оепеирх, еякх дю 4336 163046 052737 000001 177642 BIS #1,@#177642 ;сярюмнбхрэ опхгмюй ньхайх б 1-л нгс 4337 163054 000403 BR .+10 ; 4338 163056 052737 000002 177642 BIS #2,@#177642 ;сярюмнбхрэ опхгмюй ньхайх бн 2-л нгс 4339 163064 032737 000001 173700 BIT #1,@#173700 ;1-е нгс сярюмнбкемн? 4340 163072 001421 BEQ 163136 ;оепеирх, еякх мер 4341 163074 005703 TST R3 ;2-е нгс опнбепемн? 4342 163076 001017 BNE 163136 ;оепеирх, еякх дю 4343 163100 032737 000004 173700 BIT #4,@#173700 ;2-е нгс сярюмнбкемн? 4344 163106 001413 BEQ 163136 ;оепеирх, еякх мер 4345 163110 012703 004000 MOV #4000,R3 ;бшапюрэ йнмярюмрс оепепюяопедекемхъ дкъ 4346 ;2-цн нгс 4347 163114 032737 000002 173700 BIT #2,@#173700 ;1-е нгс елйнярэч 512 йаюир? 4348 163122 001402 BEQ .+6 ;оепеирх, еякх елйнярэ 1-цн нгс 128 йаюир 4349 163124 006303 ASL R3 ;ятнплхпнбюрэ йнмярюмрс оепепюяопедекемхъ 4350 163126 006303 ASL R3 ;дкъ 2-цн нгс 4351 163130 000137 162206 JMP @#162206 ;оепеирх мю опнбепйс 2-цн нгс 4352 163134 000777 BR .+0 ;ньхайю. опх опнбепйе нгс гюохяэч/явхршбюмхел 4353 ;опнхгнькн опепшбюмхе я юдпеянл бейрнпю 000004 4354 163136 005737 177642 TST @#177642 ;ашкх ньхайх? 4355 163142 001404 BEQ 163154 ;оепеирх мю опнбепйс напюанрйх опепшбюмхи, 4356 ;еякх ме ашкн ньханй 4357 4358 163144 013737 177642 173704 MOV @#177642,@#173704 ;ньхайю времхъ/гюохях нгс 4359 ;бйкчвхрэ ябернбше хмдхйюрнпш 2,3 х 4, еякх 4360 ;ньхайю б 1-нл нгс. 4361 ;бйкчвхрэ ябернбше хмдхйюрнпш 1,3 х 4, еякх 4362 ;ньхайю бн 2-нл нгс 4363 ;бйкчвхрэ ябернбше хмдхйюрнпш 3 х 4, еякх 4364 ;ньхайю б 1-нл х бн 2-нл нгс 4365 163152 000777 BR .+0 ;опейпюрхрэ бшонкмемхе бмсрпеммецн 4366 ;юбрн-реярю 4367 4368 ;*********************************************************************** 4369 ; 4370 ; ондопнцпюллю опнбепйх опюбхкэмнярх бшонкмемхъ опепшбюмхи 4371 ; он йнлюмдюл TRAP (34,36), EMT (30,32), IOT (20,22), BPT (14,16), он 4372 ; пегепбмни йнлюмде 107777 (10,12), он гюопеыеммни йнлюмде JMP R1 (4,6) 4373 ; 4374 ;*********************************************************************** 4375 4376 163154 012701 163432 MOV #163432,R1 4377 163160 010046 MOV R0,-(SP) ;янупюмхрэ R0 4378 163162 012100 MOV (R1)+,R0 4379 163164 005040 CLR -(R0) ;ятнплхпнбюрэ 4380 163166 010002 MOV R0,R2 ;кнбсьйс 4381 163170 005740 TST -(R0) ;опепшбюмхи 4382 163172 010210 MOV R2,@R0 ;он юдпеяюл 000000-000366 4383 163174 005700 TST R0 4384 163176 003372 BGT 163164 4385 163200 012600 MOV (SP)+,R0 ;бняярюмнбхрэ R0 4386 163202 012106 MOV (R1)+,SP ;сярюмнбхрэ сйюгюрекэ ярейю 4387 163204 012104 MOV (R1)+,R4 4388 163206 012102 MOV (R1)+,R2 ;163452-->R2 4389 163210 012103 MOV (R1)+,R3 ;163454-->R3 - - - -108- 589.7545471.00066-01 12 01 4390 163212 004737 163416 JSR PC,@#163416 ;163312-->34 4391 163216 104777 TRAP+377 ;опнбепхрэ опюбхкэмнярэ бшонкмемхъ опепшбюмхъ он 4392 ;TRAP я юдпеянл бейрнпю опепшбюмхъ 34 4393 163220 004737 163356 JSR PC,@#163356 ;бняярюмнбхрэ кнбсьйс опепшбюмхъ он юдпеяс 000034 4394 163224 004737 163416 JSR PC,@#163416 ;163312-->30 4395 163230 104377 EMT+377 ;опнбепхрэ опюбхкэмнярэ бшонкмемхъ опепшбюмхъ 4396 ;он елр я юдпеянл бейрнпю опепшбюмхъ 30 4397 163232 004737 163356 JSR PC,@#163356 ;бняярюмнбхрэ кнбсьйс опепшбюмхъ он юдпеяс 4398 ;000030 4399 163236 024444 CMP -(R4),-(R4) 4400 163240 004737 163416 JSR PC,@#163416 ;163312-->20 4401 163244 000004 IOT ;опнбепхрэ опюбхкэмнярэ бшонкмемхъ опепшбюмхъ 4402 ;он IOT я юдпеянл бейрнпю опепшбюмхъ 20 4403 163246 004737 163356 JSR PC,@#163356 ;бняярюмнбхрэ кнбсьйс опепшбюмхъ он 4404 ;юдпеяс 000020 4405 163252 004737 163416 JSR PC,@#163416 ;163312-->14 4406 163256 000003 BPT ;опнбепхрэ опюбхкэмнярэ бшонкмемхъ опепшбюмхъ 4407 ;он BPT я юдпеянл бейрнпю опепшбюмхъ 14 4408 163260 004737 163356 JSR PC,@#163356 ;бняярюмнбхрэ кнбсьйс опепшбюмхъ он 4409 ;юдпеяс 000014 4410 163264 004737 163416 JSR PC,@#163416 ;163312-->10 4411 163270 107777 107777 ;опнбепхрэ опюбхкэмнярэ бшонкмемхъ опепшбюмхъ 4412 ;он пегепбмни йнлюмде 4413 163272 004737 163356 JSR PC,@#163356 ;бняярюмнбхрэ кнбсьйс опепшбюмхъ он 4414 ;юдпеяс 000010 4415 163276 004737 163416 JSR PC,@#163416 ;163312-->4 4416 163302 000101 JMP R1 ;опнбепхрэ опюбхкэмнярэ бшонкмемхъ опепшбюмхъ 4417 ;он йнлюмде я гюопеыеммшл лернднл юдпеяюжхх 4418 163304 004737 163356 JSR PC,@#163356 ;бняярюмнбхрэ кнбсьйс опепшбюмхъ он 4419 ;юдпеяс 000004 4420 163310 000467 BR 163470 ;оепеирх й опнбепйе опюбхкэонярх хдемрхтхйюжхх 4421 ;щбл 4422 4423 ;*********************************************************************** 4424 ;ондопнцпюллю напюанрйх опепшбюмхъ 4425 4426 163312 106705 MFPS R5 ;явхрюрэ мнбне яяо 4427 163314 020627 001074 CMP SP,#1074 ;ярей слемэьхкяъ опюбхкэмн? 4428 163320 001014 BNE 163352 ;оепеирх мю ньхайс, еякх мер 4429 163322 022316 CMP (R3)+,@SP ;рейсыхи яй гюонлмхкяъ опюбхкэмн? 4430 163324 001012 BNE 163352 ;оепеирх мю ньхайс, еякх мер 4431 163326 022766 000340 000002 CMP #340,2(SP) ;рейсыее яяо гюонлмхкняэ опюбхкэмн? 4432 163334 001006 BNE 163352 ;оепеирх мю ньхайс, еякх мер 4433 163336 120521 CMPB R5,(R1)+ ;мнбне яяо бшапюмн опюбхкэмн? 4434 163340 001004 BNE 163352 ;оепеирх мю ньхайс, еякх мер 4435 163342 005705 TST R5 4436 163344 103401 BCS .+4 ;оепеирх, еякх я-пюгпъд=1 4437 163346 000006 RTT 4438 163350 000002 RTI 4439 4440 163352 004037 160650 JSR R0,@#160650 ;оепеирх мю ньхайс 4441 4442 ;*********************************************************************** 4443 ;ондопнцпюллю опнбепйх яяо х ярейю оняке опепшбюмхъ х 4444 ;бняярюмнбкемхъ кнбсьйх опепшбюмхи 4445 4446 163356 106705 MFPS R5 ;явхрюрэ яяо - - - -109- 589.7545471.00066-01 12 01 4447 163360 120527 000340 CMPB R5,#340 ;яяо=340? 4448 163364 001012 BNE 163412 ;оепеирх мю ньхайс, меякх мер 4449 163366 020627 001076 CMP SP,#1076 ;ся=1076? 4450 163372 001007 BNE 163412 ;оепеирх мю ньхайс, еякх мер 4451 163374 005044 CLR -(R4) ;бняярюмнбхрэ кнбсьйс опепшбюмхи 4452 163376 010046 MOV R0,-(SP) ;оняке опнбепйх опепшбюмхъ 4453 163400 010400 MOV R4,R0 ;я юдпеянл бейрнпю опепшбюмхъ, 4454 163402 005744 TST -(R4) ;упюмъыхляъ б R0 4455 163404 010014 MOV R0,@R4 4456 163406 012600 MOV (SP)+,R0 4457 163410 000207 RTS PC 4458 4459 163412 004037 160650 JSR R0,@#160650 ;оепеирх мю ньхайс 4460 4461 ;*********************************************************************** 4462 ;ондопнцпюллю тнплхпнбюмхъ бейрнпнб опепшбюмхи 4463 4464 163416 111164 177776 MOVB @R1,177776(R4) 4465 163422 011264 177774 MOV @R2,177774(R4) 4466 163426 000257 CCC 4467 163430 000207 RTS PC 4468 4469 ;дюммше 4470 4471 163432 000400 000400 4472 163434 001100 001100 4473 163436 000040 000040 4474 163440 163452 163452 4475 163442 163454 163454 4476 163444 100601 100601 4477 163446 102210 102210 4478 163450 100602 100602 4479 163452 163312 163312 4480 163454 163220 163220 ;яй опх опепшбюмхх он TRAP 4481 163456 163232 163232 ;яй опх опепшбюмхх он EMT 4482 163460 163246 163246 ;яй опх опепшбюмхх он IOT 4483 163462 163260 163260 ;яй опх опепшбюмхх он BPT 4484 163464 163272 163272 ;яй опх опепшбюмхх он пегепбмни йнлюмде 4485 163466 163304 163304 ;яй опх опепшбюмхх он гюопеыеммни йнлюмде 4486 4487 4488 163470 012737 000017 173704 MOV #17,@#173704 ;онцюяхрэ ябернбсч хмдхйюжхч 4489 163476 005000 CLR R0 4490 163500 012701 172340 MOV #172340,R1 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 4491 163504 012702 000004 MOV #4,R2 4492 163510 010021 MOV R0,(R1)+ 4493 163512 062700 000200 ADD #200,R0 4494 163516 077204 SOB R2,.-6 4495 163520 012737 001400 172350 MOV #1400,@#172350 4496 163526 012706 001000 MOV #1000,SP ;сярюмнбхрэ сйюгюрекэ ярейю 4497 163532 012737 000020 172516 MOV #20,@#172516 ;пюгпеьхрэ 22-пюгпъдмне опенапюгнбюмхе 4498 163540 012737 000001 177572 MOV #1,@#177572 ;бйкчвхрэ дхяоервеп оюлърх 4499 4500 4501 ;опнбепйю опюбхкэмнярх хдемрхтхйюжхх щбл 4502 ;опх меопюбхкэмни хдемрхтхйюжхх щбл ъвеийх 157766-157772 гюонкмъчряъ "0" 4503 - - - -110- 589.7545471.00066-01 12 01 4504 163546 012703 117776 MOV #117776,R3 4505 163552 012763 000014 000000 MOV #14,0(R3) 4506 163560 012700 173600 MOV #173600,R0 ;бшапюрэ яндепфхлне пецхярпнб 173600-173616 4507 163564 012701 177770 MOV #177770,R1 ;б ъвеийх 157766-157774 4508 163570 012702 000010 MOV #10,R2 4509 163574 111061 117776 MOVB @R0,117776(R1) 4510 163600 005201 INC R1 4511 163602 005720 TST (R0)+ 4512 163604 077205 SOB R2,163574 4513 4514 ;опнбепхрэ лернднл йнмрпнкэмнцн ясллхпнбюмхъ опюбхкэмнярэ хдемрхтхйюжхх 4515 163606 012737 177777 001020 MOV #-1,@#1020 4516 163614 012702 000004 MOV #4,R2 4517 163620 010300 MOV R3,R0 4518 163622 016001 177770 MOV 177770(R0),R1 ;опнбепхрэ лернднл йнмрпнкэмнцн ясллхпнбюмхъ 4519 163626 074137 001020 XOR R1,@#1020 ;опюбхкэмнярэ хдемрхтхйюжхх щбл 4520 163632 000241 CLC 4521 163634 006137 001020 ROL @#1020 4522 163640 005537 001020 ADC @#1020 4523 163644 062700 000002 ADD #2,R0 4524 163650 077214 SOB R2,163622 4525 163652 005737 001020 TST @#1020 ;опюбхкэмюъ хдемрхтхйюжхъ щбл? 4526 163656 001406 BEQ 163674 ;оепеирх, еякх дю 4527 163660 005063 177770 CLR 177770(R3) ;нвхярхрэ ъвеийх 157766-157772 4528 163664 005063 177772 CLR 177772(R3) 4529 163670 005063 177774 CLR 177774(R3) 4530 4531 4532 4533 163674 012763 000006 177766 MOV #6,177766(R3) ;гюохяюрэ вхякн онгхжхи б рюакхжс йнмтхцспюжхх обй 4534 163702 012763 000031 177776 MOV #31,177776(R3) ;гюохяюрэ хдемрхтхйюжхнммши йнд огс б рюакхжс 4535 ;йнмтхцспюжхх обй 4536 ;гюонкмхрэ рюакхжс йнмтхцспюжхх обй 0 х 177777, мювхмюъ ян ярюпьецн 4537 ;юдпеяю 157760 4538 163710 005063 177764 CLR 177764(R3) 4539 163714 012700 117760 MOV #117760,R0 4540 163720 012701 000036 MOV #36,R1 4541 163724 005010 CLR @R0 ;гюохяюрэ 0 4542 163726 052760 177777 177776 BIS #-1,177776(R0) ;гюохяюрэ 177777 4543 163734 162700 000004 SUB #4,R0 4544 163740 062763 000004 000000 ADD #4,0(R3) 4545 163746 062763 000004 177764 ADD #4,177764(R3) 4546 163754 077115 SOB R1,163724 4547 163756 012763 165746 177572 MOV #165746,177572(R3) ;гюохяюрэ юдпея онбрнпмнцн гюосяйю 4548 ;ондопнцпюллш гюцпсгйх б рюакхжс йнмтхцспюжхх обй 4549 163764 005063 177570 CLR 177570(R3) 4550 163770 005063 177566 CLR 177566(R3) 4551 163774 005063 177564 CLR 177564(R3) 4552 164000 005063 177562 CLR 177562(R3) 4553 164004 005063 177560 CLR 177560(R3) 4554 164010 005063 177556 CLR 177556(R3) 4555 164014 062763 000016 000000 ADD #16,0(R3) ;онксвхрэ дкхмс рюакхжш йнмтхцспюжхх обй б аюирюу 4556 4557 ;бшонкмхрэ ондопнцпюллш опнбепйх сярпниярб яхярелмнцн лндскъ 4558 4559 164022 012737 165036 000030 MOV #165036,@#30 ;ятнплхпнбюрэ бейрнп я юдпеянл 000030 4560 164030 012737 000340 000032 MOV #340,@#32 - - - -111- 589.7545471.00066-01 12 01 4561 164036 005005 CLR R5 ;нвхярхрэ R5 4562 164040 012704 117776 MOV #117776,R4 4563 164044 005765 164064 TST 164064(R5) ;бяе сярпниярбю опнбепемш? 4564 164050 001404 BEQ 164062 ;оепеирх, еякх дю 4565 164052 004775 164064 JSR PC,@164064(R5) ;бшонкмхрэ ондопнцпюллс опнбепйх сярпниярбю 4566 164056 005725 TST (R5)+ ;онксвхрэ юдпея якедсчыеи ондопнцпюллш 4567 164060 000771 BR 164044 ;оепеирх й опнбепйе якедсчыецн сярпниярбю 4568 ;яхярелмнцн лндскъ 4569 164062 000417 BR 164122 ;оепеирх й опнбепйе онгхжхи яхярелмни люцхярпюкх 4570 4571 ;рюакхжю юдпеянб ондопнцпюлл опнбепйх сярпниярб 4572 4573 164064 130200 130200 ;юдпея ондопнцпюллш гюохях б рюакхжс йнмтхцспюжхх обй 4574 ;хдемрхтхйюжхнммнцн йндю рхою опнжеяянпю 4575 164066 130214 130214 ;юдпея ондопнцпюллш гюохях б рюакхжс йнмтхцспюжхх обй 4576 ;хдемрхтхйюжхнммнцн йндю х елйнярх нямнбмнцн нгс 4577 164070 130246 130246 ;юдпея ондопнцпюллш гюохях б рюакхжс йнмтхцспюжхх обй 4578 ;мнлепю бепяхх дхюцмнярхвеяйнцн огс 4579 164072 130314 130314 ;юдпея ондопнцпюллш опнбепйх йнмрпнккепю опепшбюмхи 4580 164074 130270 130270 ;юдпея ондопнцпюллш нопедекемхъ мюкхвхъ лнмхрнпю 4581 164076 130262 130262 4582 164100 131312 131312 ;юдпея ондопнцпюллш опнбепйх хмрептеияю йкюбхюрспш 4583 ;б пефхле "йнпнрйюъ оеркъ" 4584 164102 131410 131410 ;юдпея ондопнцпюллш бшанпйх хг астепю йкюбхюрспш 4585 ;хдемрхтхйюжхнммшу йнднб, цемепхпселшу йкюбхюрспни 4586 164104 131632 131632 ;юдпея ондопнцпюллш опнбепйх хмрептеияю оевюрючыецн 4587 ;сярпниярбю б пефхле "йнпнрйюъ оеркъ" 4588 164106 131744 131744 ;юдпея ондопнцпюллш опнбепйх мюкхвхъ х цнрнбмнярх 4589 ;оскэрнбнцн реплхмюкю 4590 164110 132472 132472 ;юдпея ондопнцпюллш опнбепйх йнллсмхйюжхнммнцн 4591 ;хмрептеияю 4592 164112 133306 133306 ;юдпея ондопнцпюллш опнбепйх рюилепю 4593 164114 133620 133620 ;юдпея ондопнцпюллш опнбепйх нгс рюилепю 4594 164116 133716 133716 ;юдпея ондопнцпюллш опнбепйх юдюорепю окюбючыеи гюоърни 4595 164120 000000 000000 4596 4597 4598 ;*********************************************************************** 4599 ; 4600 ;опнбепйю хяопюбмнярх онгхжхх яхярелмни люцхярпюкх 4601 ;опх мюкхвхх лндскъ б онгхжхх яхярелмни люцхярпюкх ецн хдемрхтхйюжхнммши 4602 ;йнд гюохяшбюеряъ б яннрберярбсчысч ъвеийс рюакхжш йнмтхцспюжхх обй. 4603 ;еякх онгхжхъ ябнандмю х пецхярп хдемрхтхйюжхх кхан ме нрбевюер, кхан 4604 ;ецн яндепфхлне пюбмн 0, яндепфхлне ъвеей ме хглемъеряъ (177777 х 0). 4605 ; 4606 ;*********************************************************************** 4607 4608 4609 164122 012700 177762 MOV #177762,R0 4610 164126 012701 000010 MOV #10,R1 4611 164132 012737 164402 000004 MOV #164402,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 4612 164140 012737 000340 000006 MOV #340,@#6 4613 164146 012702 174000 MOV #174000,R2 ;бшапюрэ юдпея 1-и онгхжхх 4614 164152 012746 000005 MOV #5,-(SP) ;бшапюрэ явервхй напюыемхи й пецхярпс 4615 ;хдемрхтхйюжхх лндскъ опх ньханвмни 4616 ;яхрсюжхх 4617 164156 005004 CLR R4 - - - -112- 589.7545471.00066-01 12 01 4618 164160 005746 TST -(SP) ;нвхярхрэ ъвеийс ярейю дкъ гюохях 4619 ;хдемрхтхйюжхнммнцн йндю лндскъ хкх ньхайх 4620 164162 005062 000002 CLR 2(R2) ;нвхярхрэ пя02 4621 ;опнхгнидер опепшбюмхе я юдпеянл бейрнпю 000004, 4622 ;еякх пецхярп ме нрбевюер 4623 164166 111237 001022 MOVB @R2,@#1022 ;онксвхрэ б 001022 хдемрхтхйюжхнммши йнд лндскъ 4624 164172 111237 001023 MOVB @R2,@#1023 4625 164176 013716 001022 MOV @#1022,@SP ;бшапюрэ хдемрхтхйюжхнммши йнд лндскъ 4626 164202 005716 TST @SP ;хдемрхтхйюжхнммши йнд пюбем 0? 4627 164204 001030 BNE 164266 ;оепеирх й опнбепйе якедсчыеи онгхжхх, еякх мер 4628 164206 012705 000010 MOV #10,R5 4629 164212 160105 SUB R1,R5 4630 164214 012703 000001 MOV #1,R3 ;ятнплхпнбюрэ 1 б пюгпъде, яннрберярбсчыелс 4631 164220 072305 ASH R5,R3 ;дюммнлс лндскч 4632 164222 030337 173702 BIT R3,@#173702 ;онгхжхъ гюмърю? 4633 164226 001421 BEQ 164272 ;оепеирх й опнбепйе якедсчыеи онгхжхх, еякх 4634 ;ябнандмю 4635 164230 005766 000002 TST 2(SP) ;йнмеж напюыемхи й пецхярпс хдемрхтхйюжхх? 4636 164234 001405 BEQ 164250 ;оепеирх, еякх дю 4637 164236 005304 DEC R4 4638 164240 001350 BNE 164162 ;оепеирх мю онбрнпмсч опнбепйс яндепфхлнцн 4639 164242 005366 000002 DEC 2(SP) ;пецхярпю хдемрхтхйюжхх лндскъ 4640 164246 001345 BNE 164162 4641 164250 005716 TST @SP ;опнхгькн опепшбюмхе я юдпеянл бейрнпю 000004? 4642 164252 001003 BNE .+10 ;оепеирх, еякх дю 4643 164254 012760 177775 117774 MOV #177775,117774(R0);гюохяюрэ б рюакхжс йнмтхцспюжхх обй 4644 ;йнд ньхайх 177775: 4645 ;онгхжхъ гюмърю, ю 4646 ;хдемрхтхйюжхнммши йнд лндскъ = 0 4647 164262 012716 177776 MOV #177776,@SP ;гюохяюрэ б рюакхжс йнмтхцспюжхх обй 4648 ;йнд ньхайх 177776: 4649 ;онгхжхъ гюмърю, мн опх напюыемхх й пецхярпюл 4650 ;лндскъ опнхгнькн опепшбюмхе я юдпеянл 4651 ;бейрнпю 000004 хкх хдемрхтхйюжхнммши йнд 4652 ;лндскъ = 0 4653 4654 164266 011660 117776 MOV @SP,117776(R0) ;гюохяюрэ йнд ньхайх б рюакхжс йнмтхцспюжхх обй 4655 164272 062702 000200 ADD #200,R2 ;онксвхрэ юдпея якедсчыеи онгхжхх 4656 164276 162700 000004 SUB #4,R0 ;онксвхрэ юдпея б рюакхже йнмтхцспюжхх обй 4657 ;дкъ якедсчыеи онгхжхх 4658 164302 077151 SOB R1,164162 4659 164304 013700 173702 MOV @#173702,R0 ;явхрюрэ яндепфхлне пецхярпю гюмърнярх онгхжхх 4660 164310 012701 177762 MOV #177762,R1 4661 164314 012702 000010 MOV #10,R2 4662 164320 032700 000001 BIT #1,R0 ;онгхжхъ гюмърю? 4663 164324 001407 BEQ 164344 ;оепеирх, еякх ябнандмю 4664 164326 005761 117776 TST 117776(R1) ;яндепфхлне ъвеийх =0? 4665 164332 001015 BNE 164366 ;оепеирх, еякх мер 4666 164334 012761 177776 117776 MOV #177776,117776(R1);гюохяюрэ йнд ньхайх б рюакхжс йнмтхцспюжхх обй 4667 164342 000411 BR 164366 ;оепеирх й опнбепйе якедсчыеи онгхжхх 4668 164344 032700 000001 BIT #1,R0 ;онгхжхъ ябнандмю? 4669 164350 001006 BNE 164366 ;оепеирх, еякх гюмърю 4670 164352 005761 117776 TST 117776(R1) ;яндепфхлне пецхярпю хдемрхтхйюжхх пюбмн 0? 4671 164356 001403 BEQ .+10 ;оепеирх, еякх дю 4672 164360 012761 177774 117774 MOV #177774,117774(R1);гюохяюрэ б рюакхжс йнмтхцспюжхх обй 4673 ;йнд ньхайх 177774: 4674 ;онгхжхъ ябнандмю, ю яндепфхлне пецхярпю - - - -113- 589.7545471.00066-01 12 01 4675 ;хдемрхтхйюжхх ме пюбмн 0 4676 164366 162701 000004 SUB #4,R1 4677 164372 006000 ROR R0 4678 164374 077227 SOB R2,164320 ;оепеирх й опнбепйе якедсчыеи онгхжхх 4679 164376 022626 CMP (SP)+,(SP)+ ;бняярюмнбхрэ ся 4680 164400 000406 BR 164416 ;оепеирх й опнбепйе лндскеи яхярелмни 4681 ;люцхярпюкх 4682 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ я юдпеянл бейрнпю 000004 4683 4684 164402 012766 177777 000004 MOV #-1,4(SP) ;гюохяэ 177777 б ярей 4685 164410 012716 164206 MOV #164206,@SP ;ятнплхпнбюрэ юдпея бнгбпюрю хг ондопнцпюллш 4686 164414 000002 RTI 4687 4688 ;********************************************************************* 4689 ; 4690 ;опнбепхрэ лндскх, сярюмнбкеммше б онгхжхх яхярелмни люцхярпюкх 4691 ; 4692 ;********************************************************************* 4693 4694 164416 005005 CLR R5 ;сярюмнбхрэ хдемрхтхйюрнп онгхжхх 4695 164420 010546 MOV R5,-(SP) 4696 164422 005765 117760 TST 117760(R5) ;онгхжхъ гюмърю? 4697 164426 001527 BEQ 164706 ;оепеирх, еякх ябнандмю 4698 164430 022765 177776 117760 CMP #177776,117760(R5) ;онгхжхъ хяопюбмю? 4699 164436 001523 BEQ 164706 ;оепеирх, еякх мер 4700 164440 010500 MOV R5,R0 4701 164442 005400 NEG R0 4702 164444 072027 177776 ASH #177776,R0 4703 164450 022765 002004 117760 CMP #2004,117760(R5);б онгхжхх сярюмнбкем йнмрпнккеп мцлд? 4704 164456 001002 BNE .+6 ;оепеирх, еякх мер 4705 164460 000137 135216 JMP @#135216 ;бшонкмхрэ ондопнцпюллс опнбепйх йнмрпнккепю 4706 ;мцлд 4707 164464 022765 000401 117760 CMP #401,117760(R5) ;б онгхжхх сярюмнбкем йнмрпнккеп млд? 4708 164472 001002 BNE .+6 ;оепеирх, еякх мер 4709 164474 000137 135602 JMP @#135602 ;бшонкмхрэ ондопнцпюллс опнбепйх йнмрпнккепю млд 4710 164500 022765 001002 117760 CMP #1002,117760(R5);б онгхжхх сярюмнбкем бхденйнмрпнккеп? 4711 164506 001002 BNE .+6 ;оепеирх, еякх дю 4712 164510 000137 137130 JMP @#137130 ;бшонмхрэ ондопнцпюллс опнбепйх бхденйнмрпнккепю 4713 164514 026527 117756 177777 CMP 117756(R5),#-1 ;онгхжхъ гюмърю х яндепфхлне пецхярпю 4714 ;хдемрхтхйюжхх нркхвмн нр 0? 4715 164522 001071 BNE 164706 ;оепеирх, еякх мер 4716 164524 012737 164730 000004 MOV #164730,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 4717 164532 005405 NEG R5 4718 164534 072527 177776 ASH #177776,R5 4719 164540 004737 164770 JSR PC,@#164770 ;явхрюрэ аюирш 1-12 огс лндскъ б ъвеийх я 4720 ;юдпеяюлх 001000-001010 4721 164544 103003 BCC .+10 ;оепеирх, еякх аюир 3 огс лндскъ пюбем 377 4722 164546 052702 177777 BIS #-1,R2 4723 164552 000442 BR 164660 ;оепеирх й опнбепйе якедсчыецн лндскъ 4724 164554 013700 001006 MOV @#1006,R0 ;бшапюрэ аюир 7 огс лндскъ 4725 164560 005065 000002 CLR 2(R5) ;сярюмнбхрэ сйюгюрекэ мю мювюкн огс лндскъ 4726 4727 ;опнхгбеярх йнмрпнкэмне ясллхпнбюмхе яндепфхлнцн огс лндскъ 4728 ;йнкхвеярбн ясллхпселшу ъвеей пюбмн яндепфхлнлс аюирю 7, 4729 ;слмнфеммнлс мю 200 4730 164564 052737 177777 001020 BIS #-1,@#1020 4731 164572 012701 000200 MOV #200,R1 - - - -114- 589.7545471.00066-01 12 01 4732 164576 111537 001022 MOVB @R5,@#1022 4733 164602 111537 001023 MOVB @R5,@#1023 4734 164606 013702 001022 MOV @#1022,R2 4735 164612 074237 001020 XOR R2,@#1020 4736 164616 000241 CLC 4737 164620 006137 001020 ROL @#1020 4738 164624 005537 001020 ADC @#1020 4739 164630 077116 SOB R1,164576 4740 164632 077021 SOB R0,164572 4741 164634 005737 001020 TST @#1020 ;йя=0? 4742 164640 001403 BEQ .+10 ;оепеирх, еякх дю 4743 164642 012702 177776 MOV #177776,R2 ;ньхайю йя яндепфхлнцн огс лндскъ 4744 164646 000404 BR 164660 ;оепеирх й гюохях йндю ньхайх б рюакхжс 4745 ;йнмтхцспюжхх обй 4746 164650 012702 164732 MOV #164732,R2 4747 164654 004737 154514 JSR PC,@#154514 ;опнхгбеярх йнмрпнкэмне ясллхпнбюмхе йнднб 4748 ;лхйпн-опнцпюллш х гюцпсгхрэ лхйпн-опнцпюллс 4749 ;хг огс лндскъ б нгс, мювхмюъ я юдпеяю 002000 4750 164660 005702 TST R2 ;ашкх ньхайх? 4751 164662 001006 BNE 164700 ;оепеирх, еякх дю 4752 164664 011600 MOV @SP,R0 ;бшапюрэ мнлеп онгхжхх 4753 164666 005400 NEG R0 4754 164670 072027 177776 ASH #177776,R0 4755 164674 012707 002000 MOV #2000,PC ;бшонкмхрэ гюцпсфеммсч опнцпюллс опнбепйх лндскъ 4756 164700 011605 MOV @SP,R5 4757 164702 010265 117756 MOV R2,117756(R5) ;гюохяюрэ йнд ньхайх/янярнъмхъ б рюакхжс 4758 ;йнмтхцспюжхх обй 4759 164706 012605 MOV (SP)+,R5 4760 164710 022705 177744 CMP #177744,R5 ;бяе онгхжхх опнбепемш? 4761 164714 001002 BNE .+6 ;оепеирх, еякх мер 4762 164716 000137 165470 JMP @#165470 ;оепеирх й юмюкхгс яндепфхлнцн рюакхжш 4763 ;йнмтхцспюжхх обй 4764 164722 162705 000004 SUB #4,R5 4765 164726 000634 BR 164420 4766 164730 000777 BR .+0 4767 164732 042046 042046 4768 164734 000000 0 4769 164736 000000 0 4770 164740 000000 0 4771 164742 000000 0 4772 164744 041046 041046 4773 164746 000000 0 4774 164750 000000 0 4775 164752 000000 0 4776 164754 000000 0 4777 164756 053046 053046 4778 164760 000000 0 4779 164762 000000 0 4780 164764 000000 0 4781 164766 000000 0 4782 4783 4784 ;*********************************************************************** 4785 ; 4786 ;ондопнцпюллю явхршбюмхъ аюирнб 1-12 огс лндскъ б ъвеийх нгс я 4787 ;юдпеяюлх 001000-001010 4788 ;опх яндепфхлнл аюирю 3 огс лндскъ , пюбмнл 377, нвхыюеряъ "я"-пюгпъд - - - -115- 589.7545471.00066-01 12 01 4789 ;б опнрхбмнл яксвюе - сярюмюбкхбюеряъ 4790 ; 4791 ;*********************************************************************** 4792 4793 164770 072527 000007 ASH #7,R5 4794 164774 062705 174000 ADD #174000,R5 ;онксвхрэ юдпея лндскъ 4795 165000 005065 000002 CLR 2(R5) ;сярюмнбхрэ сйюгюрекэ мю мювюкн огс лндскъ 4796 165004 012700 001000 MOV #1000,R0 ;бшапюрэ юдпея нгс 4797 165010 012701 000012 MOV #12,R1 ;бшапюрэ явервхй аюирнб 4798 165014 111520 MOVB @R5,(R0)+ ;явхрюрэ аюирш 1-12 б нгс 4799 165016 077102 SOB R1,.-2 4800 165020 122737 000377 001002 CMPB #377,@#1002 ;аюир 3 =377? 4801 165026 001001 BNE .+4 ;оепеирх мю сярюмнбйс "я"-пюгпъдю, еякх мер 4802 165030 005727 000261 TST #261 4803 165034 000207 RTS PC ;бшунд хг ондопнцпюллш 4804 4805 ;*********************************************************************** 4806 ; 4807 ;ондопнцпюллю наяксфхбюмхъ опепшбюмхъ я юдпеянл бейрнпю 4808 ;опепшбюмхъ 000030 4809 ; 4810 ;*********************************************************************** 4811 4812 165036 010346 MOV R3,-(SP) ;янупюмхрэ R3 4813 165040 012746 165070 MOV #165070,-(SP) 4814 165044 016603 000004 MOV 4(SP),R3 ;бшапюрэ юдпея якедсчыеи мебшонкмеммни йнлюмдш 4815 165050 005743 TST -(R3) ;онксвхрэ юдпея елр 4816 165052 011303 MOV @R3,R3 ;бшапюрэ йнд елр 4817 165054 042703 177000 BIC #177000,R3 ;онксвхрэ мнлеп EMT 4818 165060 020327 000006 CMP R3,#6 ;мнлеп анкэье 6 ? 4819 165064 003403 BLE .+10 ;оепеирх, еякх мер 4820 165066 000207 RTS PC 4821 165070 012603 MOV (SP)+,R3 ;бняярюмнбхрэ R3 4822 165072 000002 RTI ;бшунд хг опепшбюмхъ 4823 165074 006303 ASL R3 4824 165076 016307 165104 MOV 165104(R3),PC ;оепеирх мю напюанрйс елр я гюдюммшл мнлепнл 4825 165102 000777 BR .+0 4826 4827 4828 ;рюакхжю юдпеянб ондопнцпюлл наяксфхбюмхъ йнлюмд елр 4829 ;я гюдюммшл мнлепнл 4830 4831 165104 165326 165326 ;елр+0 4832 165106 165254 165254 ;елр+1 4833 165110 165160 165160 ;елр+2 4834 165112 165122 165122 ;елр+3 4835 165114 165216 165216 ;елр+4 4836 165116 165336 165336 ;елр+5 4837 165120 165412 165412 ;елр+6 4838 4839 ;********************************************************************** 4840 ; 4841 ;ондопнцпюллю наяксфхбюмхъ елр+3. 4842 ;ондопнцпюллю гюопеыемхъ опепшбюмхъ нр сйюгюммнцн сярпниярбю 4843 ; 4844 ;*********************************************************************** 4845 - - - -116- 589.7545471.00066-01 12 01 4846 165122 010146 MOV R1,-(SP) 4847 165124 011603 MOV @SP,R3 ;бшапюрэ опхгмюй сярпниярбю 4848 165126 000303 SWAB R3 4849 165130 006303 ASL R3 4850 165132 006303 ASL R3 4851 165134 042703 177400 BIC #177400,R3 4852 165140 042716 177400 BIC #177400,@SP 4853 165144 062716 000070 ADD #70,@SP 4854 165150 011663 173202 MOV @SP,173202(R3) ;гюоперхрэ опепшбюмхе нр сйюгюммнцн сярпниярбю 4855 165154 005726 TST (SP)+ 4856 165156 000207 RTS PC 4857 4858 ;*********************************************************************** 4859 ; 4860 ;ондопнцпюллю наяксфхбюмхъ елр+2 4861 ;ондопнцпюллю пюгпеьемхъ опепшбюмхъ нр сйюгюммнцн сярпниярбю 4862 ; 4863 ;*********************************************************************** 4864 4865 165160 010146 MOV R1,-(SP) 4866 165162 011603 MOV @SP,R3 ;бшапюрэ опхгмюй сярпниярбю 4867 165164 000303 SWAB R3 4868 165166 006303 ASL R3 4869 165170 006303 ASL R3 4870 165172 042703 177400 BIC #177400,R3 4871 165176 042716 177400 BIC #177400,@SP 4872 165202 062716 000030 ADD #30,@SP 4873 165206 011663 173202 MOV @SP,173202(R3) ;пюгпеьхрэ опепшбюмхе нр сйюгюммнцн сярпниярбю 4874 165212 005726 TST (SP)+ 4875 165214 000207 RTS PC 4876 4877 ;*********************************************************************** 4878 ; 4879 ;ондопнцпюллю наяксфхбюмхъ елр+4 4880 ;ондопнцпюллю сярюмнбйх рпеанбюмхъ опепшбюмхъ нр сйюгюммнцн сярпниярбю 4881 ; 4882 ;*********************************************************************** 4883 4884 165216 010146 MOV R1,-(SP) 4885 165220 011603 MOV @SP,R3 ;бшапюрэ опхгмюй сярпниярбю 4886 165222 000303 SWAB R3 4887 165224 006303 ASL R3 4888 165226 006303 ASL R3 4889 165230 042703 177400 BIC #177400,R3 4890 165234 042716 177400 BIC #177400,@SP 4891 165240 062716 000130 ADD #130,@SP 4892 165244 011663 173202 MOV @SP,173202(R3) ;сярюмнбхрэ рпеанбюмхе опепшбюмхъ нр сярпниярбю 4893 165250 005726 TST (SP)+ 4894 165252 000207 RTS PC 4895 4896 ;*********************************************************************** 4897 ; 4898 ;ондопнцпюллю наяксфхбюмхъ елр+1 4899 ;нопедекемхе онгхжхх лндскъ он гюдюммнлс б R0 хдемрхтхйюжхнммнлс йндс 4900 ; 4901 ;*********************************************************************** 4902 - - - -117- 589.7545471.00066-01 12 01 4903 165254 010146 MOV R1,-(SP) ;янупюмхрэ R1 4904 165256 010246 MOV R2,-(SP) ;янупюмхрэ R2 4905 165260 012701 177762 MOV #177762,R1 ;бшапюрэ бхпрсюкэмши юдпея рюакхжш йнмт. обй 4906 165264 005002 CLR R2 ;нвхярхрэ R2 4907 165266 020061 117776 CMP R0,117776(R1) ;яндепфхлне ъвеийх пюбмн хдемрхтхйюжхнммнлс йндс? 4908 165272 001411 BEQ 165316 ;оепеирх, еякх дю 4909 165274 022702 000007 CMP #7,R2 ;онякедмъъ онгхжхъ? 4910 165300 001404 BEQ 165312 ;оепеирх, еякх дю 4911 165302 162701 000004 SUB #4,R1 ;онксвхрэ юдпея якедсчыеи ъвеийх рюакхжш йнмт. 4912 165306 005202 INC R2 ;онксвхрэ мнлеп якедсчыеи онгхжхх 4913 165310 000766 BR 165266 4914 165312 052702 177777 BIS #-1,R2 ;сярюмнбхрэ опхгмюй нрясрярбхъ гюдюммнцн лндскъ 4915 165316 010200 MOV R2,R0 ;бшапюрэ мнлеп онгхжхх 4916 165320 012602 MOV (SP)+,R2 ;бняярюмнбхрэ R2 4917 165322 012601 MOV (SP)+,R1 ;бняярюмнбхрэ R1 4918 165324 000207 RTS PC ;бшунд хг ондопнцпюллш 4919 4920 4921 ;*********************************************************************** 4922 ; 4923 ;ондопнцпюллю наяксфхбюмхъ елр+0 4924 ;ондопнцпюллю гюбепьемхъ опнбепйх лндскеи, сярюмнбкеммшу б онгхжхх 4925 ;яхярелмни люцхярпюкх 4926 ; 4927 ;********************************************************************* 4928 4929 165326 012766 164706 000004 MOV #164706,4(SP) ;ятнплхпнбюрэ юдпея бшундю хг ондопнцпюллш 4930 ;опнбепйх лндскъ 4931 165334 000207 RTS PC 4932 4933 4934 ;*********************************************************************** 4935 ; 4936 ;ондопнцпюллю наяксфхбюмхъ елр+5 4937 ;ондопнцпюллю тнплхпнбюмхъ б пюя 172342-172350 йнмярюмр 4938 ;оепепюяопедекемхъ нгс бхденйнмрпнккепю. 4939 ;яндепфхлне пец. 172342-172350 янупюмъеряъ б ъв. нгс 1766-1774 4940 ; 4941 ;*********************************************************************** 4942 4943 165336 010146 MOV R1,-(SP) 4944 165340 012701 002000 MOV #2000,R1 ;бшапюрэ юдпея дкъ янупюмемхъ йнмярюмр 4945 165344 010046 MOV R0,-(SP) ;янупюмхрэ R0 4946 165346 012700 172342 MOV #172342,R0 ;бшапюрэ юдпея пюя 4947 165352 016641 000016 MOV 16(SP),-(R1) ;бшапюрэ явервхй пюя 4948 165356 016603 000014 MOV 14(SP),R3 4949 165362 072327 000007 ASH #7,R3 ;онксвхрэ йнмяр. оепепюяопедекемхъ дкъ днярсою 4950 ;й оюлърх бхдендюммшу 4951 165366 011041 MOV @R0,-(R1) ;янупюмхрэ пюя 4952 165370 010320 MOV R3,(R0)+ ;ятнплхпнбюрэ йнмярюмрс оепепюяопедекемхъ 4953 165372 062703 000200 ADD #200,R3 ;онксвхрэ якедсчысч йнмярюмрс 4954 165376 005366 000016 DEC 16(SP) 4955 165402 001371 BNE 165366 4956 165404 012600 MOV (SP)+,R0 ;бняярюмнбхрэ R0 4957 165406 012601 MOV (SP)+,R1 ;бняярюмнбхрэ R1 4958 165410 000207 RTS PC 4959 - - - -118- 589.7545471.00066-01 12 01 4960 4961 ;*********************************************************************** 4962 ; 4963 ;ондопнцпюллю наяксфхбюмхъ елр+6 4964 ;ондопнцпюллю бняярюмнбкемхъ яндепфхлнцн пецхярпнб 172342-172350 4965 ;хг ъвеей 1766-1774 оняке опнбепйх бхденйнмрпнккепю 4966 ; 4967 ;*********************************************************************** 4968 4969 165412 010046 MOV R0,-(SP) ;янупюмхрэ R0 4970 165414 010146 MOV R1,-(SP) ;янупюмхрэ R1 4971 165416 012701 002000 MOV #2000,R1 ;бшапюрэ юдпея б R1 4972 165422 014146 MOV -(R1),-(SP) ;бшапюрэ явервхй пюя 4973 165424 005716 TST @SP ;яндепфхлне бяеу пюя бняярюмнбкемн? 4974 165426 001405 BEQ 165442 ;оепеирх, еякх дю 4975 165430 012700 172342 MOV #172342,R0 ;бшапюрэ юдпея пюя 4976 165434 014120 MOV -(R1),(R0)+ ;бняярюмнбхрэ яндепфхлне пюя 4977 165436 005316 DEC @SP ;бяе пюя бняярюмнбкемш? 4978 165440 001375 BNE .-4 ;оепеирх, еякх мер 4979 165442 005037 001776 CLR @#1776 4980 165446 005726 TST (SP)+ ;нвхярхрэ ярей 4981 165450 012601 MOV (SP)+,R1 ;бняярюмнбхрэ R1 4982 165452 012600 MOV (SP)+,R0 ;бняярюмнбхрэ R0 4983 165454 000207 RTS PC ;бшунд хг ондопнцпюллш 4984 4985 ;*********************************************************************** 4986 ; 4987 ;ондопнцпюллю оепелеыемхъ яндепфхлнцн 111 ъвеей юбрндейпелемрмн 4988 ;хг R0 б R1 (рюакхжю йнмтхцспюжхх обй) 4989 ; 4990 ;*********************************************************************** 4991 4992 165456 012703 000111 MOV #111,R3 ;сярюмнбхрэ явервхй ъвеей рюакхжш йнмтхцспюжхх обй 4993 165462 014041 MOV -(R0),-(R1) ;оепелеярхрэ юбрндейпелемрмн хг R0 б R1 4994 ;рюакхжс йнмтхцспюжхх обй 4995 165464 077302 SOB R3,.-2 ;оепеирх, еякх явервхй ме хявепоюм 4996 165466 000207 RTS PC 4997 4998 ;*********************************************************************** 4999 ; 5000 ;ондопнцпюллю тнплхпнбюмхъ йнмярюмр оепепюяопедекемхъ оюлърх 5001 ; 5002 ;********************************************************************* 5003 5004 165470 012737 165744 000004 MOV #165744,@#4 ;ятнплхпнбюрэ бейрнп я юдпеянл 000004 5005 165476 012737 000245 173202 MOV #245,@#173202 5006 165504 012737 000260 173202 MOV #260,@#173202 5007 165512 012737 000245 173206 MOV #245,@#173206 5008 165520 012737 000260 173206 MOV #260,@#173206 5009 165526 012737 000245 173212 MOV #245,@#173212 5010 165534 012737 000260 173212 MOV #260,@#173212 5011 165542 005037 177572 CLR @#177572 ;гюоперхрэ до 5012 165546 005037 172516 CLR @#172516 ;гюоперхрэ 22-пюгпъдмне опенапюгнбюмхе 5013 165552 005037 172340 CLR @#172340 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ дкъ 5014 165556 012737 000200 172342 MOV #200,@#172342 ;днярсою й нгс 5015 165564 012737 000400 172344 MOV #400,@#172344 5016 165572 012737 000600 172346 MOV #600,@#172346 - - - -119- 589.7545471.00066-01 12 01 5017 165600 012737 001400 172350 MOV #1400,@#172350 5018 165606 012737 177400 172354 MOV #177400,@#172354 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ дкъ 5019 ;днярсою й огс х 5020 165614 012737 177600 172356 MOV #177600,@#172356 ;й ярпюмхже ббндю/бшбндю 5021 165622 012700 000010 MOV #10,R0 5022 165626 012701 077406 MOV #77406,R1 ;пюгпеьхрэ днярсо йн бяел ярпюмхжюл 5023 165632 012702 172300 MOV #172300,R2 5024 165636 010122 MOV R1,(R2)+ 5025 165640 077002 SOB R0,.-2 5026 165642 012737 000020 172516 MOV #20,@#172516 ;пюгпеьхрэ 22-пюгпъдмне опенапюгнбюмхе 5027 165650 012737 000001 177572 MOV #1,@#177572 ;пюгпеьхрэ до 5028 165656 013737 117706 172352 MOV @#117706,@#172352 5029 165664 006337 172352 ASL @#172352 5030 165670 162737 000200 172352 SUB #200,@#172352 ;онксвхрэ йнмярюмрс оепепюяопедекемхъ 5031 ;тхгхвеяйни ярпюмхжш нгс 5032 5033 5034 165676 012700 120000 MOV #120000,R0 5035 165702 012701 140000 MOV #140000,R1 5036 165706 004737 165456 JSR PC,@#165456 ;оепелеярхрэ рюакхжс йнмтхцспюжхх обй хг ъвеей 5037 ;я юдпеяюлх 00157554-00157776 б йнмеж нгс 5038 165712 004737 142446 JSR PC,@#142446 ;бшбеярх яннаыемхе на ньхайе хкх яннаыемхе 5039 ;"щ к е й р п н м х й ю" 5040 5041 165716 113737 117707 173050 MOVB @#117707,@#173050 ;гюохяюрэ елйнярэ оюлърх 5042 165724 123737 117707 173050 CMPB @#117707,@#173050 ;дюммше янбоюдючр? 5043 165732 001004 BNE 165744 ;оепеирх, еякх мер 5044 165734 005000 CLR R0 5045 165736 005001 CLR R1 5046 165740 000137 167730 JMP @#167730 5047 165744 000777 BR .+0 5048 5049 ;*********************************************************************** 5050 ; 5051 ;ондопнцпюллю гюосяйю опнцпюлл гюцпсгйх 5052 ;ондопнцпюллю гюосяйюер опнцпюллш гюцпсгйх, мювхмюъ я оепбнцн щрюою, 5053 ;еякх (177640)=0 х (177642)=0. 5054 ;опх (177640)=0 хкх (177642)=0 бшбндхряъ яннаыемхе н опнцпюллмни ньхайе 5055 5056 165746 005737 177640 TST @#177640 ;опнцпюллмюъ ньхайю? 5057 165752 001003 BNE .+10 ;оепеирх, еякх дю 5058 165754 005737 177642 TST @#177642 5059 165760 001471 BEQ 166144 5060 165762 004737 155036 JSR PC,@#155036 ;ятнплхпнбюрэ б ъвеийюу 002000-002004 х 002010 5061 ;юдпеяю ондопнцпюлл тнплхпнбюмхъ хгнапюфемхъ 5062 165766 004777 014016 JSR PC,@2010 ;нвхярхрэ щйпюм лнмхрнпю 5063 165772 012746 144232 MOV #144232,-(SP) 5064 165776 010337 001022 MOV R3,@#1022 5065 166002 012703 177777 MOV #-1,R3 5066 166006 004777 013766 JSR PC,@2000 ;бшбеярх мю щйпюм лнмхрнпю хгнапюфемхе яхярелмнцн 5067 ;акнйю х йкюбхюрспш 5068 166012 013703 001022 MOV @#1022,R3 5069 166016 013716 177640 MOV @#177640,@SP ;бшапюрэ оепбне вхякн 5070 166022 012746 000006 MOV #6,-(SP) ;бшапюрэ явервхй жхтп вхякю 5071 166026 005046 CLR -(SP) 5072 166030 012705 001100 MOV #1100,R5 5073 166034 004737 143244 JSR PC,@#143244 ;пюяоюйнбюрэ вхякн - - - -120- 589.7545471.00066-01 12 01 5074 166040 012766 001100 000004 MOV #1100,4(SP) 5075 166046 012766 001551 000002 MOV #1551,2(SP) ;мювюкэмюъ йннпдхмюрю он X 5076 166054 012716 000151 MOV #151,@SP ;мювюкэмюъ йннпдхмюрю он Y 5077 166060 004777 013720 JSR PC,@2004 ;бшбеярх мю щйпюм оепбсч ярпнйс жхтп 5078 166064 013766 177642 000004 MOV @#177642,4(SP) ;бшапюрэ брнпне вхякн 5079 166072 012766 000006 000002 MOV #6,2(SP) ;бшапюрэ явхрвхй жхтп вхякю 5080 166100 005016 CLR @SP 5081 166102 012705 001100 MOV #1100,R5 5082 166106 004737 143244 JSR PC,@#143244 ;пюяоюйнбюрэ вхякн 5083 166112 012766 001100 000004 MOV #1100,4(SP) 5084 166120 012766 001551 000002 MOV #1551,2(SP) ;мювюкэмюъ йннпдхмюрю он X 5085 166126 012716 000202 MOV #202,@SP ;мювюкэмюъ йннпдхмюрю он Y 5086 166132 004777 013646 JSR PC,@2004 ;бшбеярх мю щйпюм брнпсч ярпнйс жхтп 5087 166136 062706 000006 ADD #6,SP 5088 166142 000777 BR .+0 5089 5090 ;********************************************************************* 5091 ;опнхгбеярх гюцпсгйс мскебнцн акнйю ноепюжхнммни яхярелш ( гюцпсгвхйю ) 5092 ;гюцпсгйю опнхгбндхряъ б 3 щрюою. 5093 ;********************************************************************** 5094 5095 ;********************************************************************** 5096 ; 1-и щ р ю о г ю ц п с г й х 5097 ; 5098 ;мю оепбнл щрюое гюцпсгйх нопедекъеряъ мюкхвхе б онгхжхъу яхярелмни 5099 ;люцхярпюкх сярпниярб ян ялеммшлх мняхрекълх х опнхгбндхряъ оношрйю 5100 ;гюцпсйх я йюфднцн сярпниярбю. опх нрясрярбхх сярпниярб ян ялеммшлх 5101 ;мняхрекълх хкх опх нрясрярбхх гюцпсгвхйнб мю мняхреке бшонкмъеряъ 5102 ;брнпни щрюо гюцпсгйх. 5103 ;********************************************************************** 5104 5105 166144 005037 137564 CLR @#137564 ;нвхярхрэ ъвеийс дкъ гюохях хдемрхтхйюжхнммнцн 5106 ;йндю сярпниярбю гюцпсгйх 5107 166150 112737 000377 137562 MOVB #377,@#137562 5108 166156 105037 137563 CLRB @#137563 ;нвхярхрэ явервхй онгхжхи (пюгпъдш 03-00) 5109 ;пюгпъд <07> аюирю 137563 - опхгмюй щрюою гюцпсгйх 5110 ;пюгпъд<07>=0 - опхгмюй оепбнцн щрюою гюцпсгйх 5111 166162 012737 166170 137560 MOV #166170,@#137560 ;ятнплхпнбюрэ юдпея бнгбпюрю й 1-лс щрюос 5112 ;гюцпсгйх 5113 166170 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 5114 166176 012706 001100 MOV #1100,SP ;сярюмнбхрэ сйюгюрекэ ярейю 5115 166202 004737 167450 JSR PC,@#167450 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 5116 166206 123727 137563 000010 CMPB @#137563,#10 ;сярпниярбю бяеу онгхжхи опнбепемш? 5117 166214 001403 BEQ .+10 ;оепеирх мю 2-и щрюо гюцпсгйх, еякх дю 5118 166216 004737 166712 JSR PC,@#166712 ;нопедекхрэ, хлееряъ кх б дюммни онгхжхх 5119 ;сярпниярбн ян ялеммшл мняхрекел, гюцпсгхрэ 5120 ;х гюосярхрэ гюцпсгвхй 5121 166222 000762 BR 166170 ;оепеирх, еякх гюцпсгвхй ме гюцпсфем 5122 5123 5124 ;********************************************************************** 5125 ; 5126 ; 2-ни щ р ю о г ю ц п с г й х 5127 ; 5128 ;мю брнпнл щрюое опнхгбндхряъ гюцпсгйю я сярпниярб, гюдюммшу б нгс 5129 ;рюилепю. хдемрхтхйюжхнммши йнд оепбнцн сярпниярбю - б 173034 х 173036 5130 ;хдемрхтхйюжхнммши йнд брнпнцн - б 173040 х 173042 - - - -121- 589.7545471.00066-01 12 01 5131 ;*********************************************************************** 5132 5133 166224 112737 000377 137562 MOVB #377,@#137562 5134 166232 005037 137564 CLR @#137564 ;нвхярхрэ ъвеийс дкъ гюохях хдемрхтхйюжхнммнцн 5135 ;йндю сярпниярбю 5136 166236 112737 000200 137563 MOVB #200,@#137563 ;нвхярхрэ явервхй онгхжхи (пюгпъдш 03-00) 5137 ;сярюмнбхрэ опхгмюй 2-цн щрюою опнбепйх (пюгпъд 07) 5138 166244 005737 137642 TST @#137642 ;нгс рюилепю янупюмъер хмтнплюжхч оняке 5139 ;бшйкчвемхъ охрюмхъ? 5140 166250 001131 BNE 166534 ;оепеирх й 3-лс щрюос гюцпсгйх, еякх мер 5141 5142 ;опнхгбеярх йнмрпнкэмне ясллхпнбюмхе яндепфхлнцн 173034-173046 5143 166252 012737 177777 001020 MOV #-1,@#1020 5144 166260 012702 000003 MOV #3,R2 5145 166264 012701 173034 MOV #173034,R1 5146 166270 012137 001022 MOV (R1)+,@#1022 5147 166274 111137 001023 MOVB @R1,@#1023 5148 166300 005721 TST (R1)+ 5149 166302 013703 001022 MOV @#1022,R3 5150 166306 074337 001020 XOR R3,@#1020 5151 166312 000241 CLC 5152 166314 006137 001020 ROL @#1020 5153 166320 005537 001020 ADC @#1020 5154 166324 077217 SOB R2,166270 5155 166326 005737 001020 TST @#1020 ;йя=0? 5156 166332 001100 BNE 166534 ;оепеирх й 3-лс щрюос гюцпсгйх, еякх мер 5157 166334 012737 166422 137560 MOV #166422,@#137560 ;ятнплхпнбюрэ юдпея бнгбпюрю й рейсыелш щрюос 5158 ;гюцпсгйх 5159 166342 113737 173036 001022 MOVB @#173036,@#1022 5160 166350 000337 001022 SWAB @#1022 5161 166354 113737 173034 001022 MOVB @#173034,@#1022 5162 166362 013700 001022 MOV @#1022,R0 ;бшапюрэ хдемрхтхйюжхнммши йнд гюдюммнцн 5163 ;лндскъ гюцпсгйх 5164 166366 012737 165036 000030 MOV #165036,@#30 5165 166374 012737 000340 000032 MOV #340,@#32 5166 166402 104001 EMT+1 ;нопедекхрэ мнлеп онгхжхх гюдюммнцн лндскъ 5167 ;мнлеп онгхжхх гюохяюрэ б R0 5168 ;опх нрясрярбхх дюммнцн лндскъ б R0 гюохяшбюеряъ 5169 ;йнд 177777 5170 166404 022700 177777 CMP #-1,R0 ;гюдюммши лндскэ сярюмнбкем? 5171 166410 001404 BEQ 166422 ;оепеирх, еякх мер 5172 166412 150037 137563 BISB R0,@#137563 ;гюохяюрэ мнлеп дюммнцн лндскъ 5173 166416 004737 166712 JSR PC,@#166712 ;опнхгбеярх гюцпсгйс х гюосяй гюцпсгвхйю 5174 ;я гюдюммнцн лндскъ 5175 ;еякх гюцпсгвхй ме гюцпсфем, бшапюрэ брнпни 5176 ;лндскэ, гюдюммши б 173040 х 173042 5177 5178 166422 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 5179 166430 012706 001100 MOV #1100,SP 5180 166434 004737 167450 JSR PC,@#167450 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 5181 166440 113737 173042 001022 MOVB @#173042,@#1022 5182 166446 000337 001022 SWAB @#1022 5183 166452 113737 173040 001022 MOVB @#173040,@#1022 5184 166460 013700 001022 MOV @#1022,R0 ;бшапюрэ хдемрхтхйюжхнммши йнд лндскъ 5185 166464 012737 165036 000030 MOV #165036,@#30 5186 166472 012737 000340 000032 MOV #340,@#32 5187 166500 104001 EMT+1 ;нопедекхрэ мнлеп онгхжхх лндскъ - - - -122- 589.7545471.00066-01 12 01 5188 166502 022700 177777 CMP #-1,R0 ;лндскэ сярюмнбкем? 5189 166506 001412 BEQ 166534 ;оепеирх, еякх мер 5190 166510 112737 000200 137563 MOVB #200,@#137563 ;сярюмнбхрэ б пюгпъде 07 опхгмюй 2-цн щрюою 5191 ;гюцпсгйх 5192 166516 150037 137563 BISB R0,@#137563 ;гюохяюрэ мнлеп онгхжхх лндскъ 5193 166522 012737 166534 137560 MOV #166534,@#137560 ;ятнплхпнбюрэ юдпея бнгбпюрю й дюммнлс щрюос 5194 ;гюцпсгйх 5195 166530 004737 166712 JSR PC,@#166712 ;гюцпсгхрэ х гюосярхрэ гюцпсгвхй 5196 ;оепеирх й 3-лс щрюос гюцпсгйх, еякх гюцпсгвхй 5197 ;ме гюцпсфем 5198 5199 ;*********************************************************************** 5200 ; 5201 ; 3-и щ р ю о г ю ц п с г й х 5202 ; 5203 ;мю 3-ел щрюое гюцпсгйю опнхгбндхряъ янцкюямн опхнпхрерс лндскеи 5204 ;лндскэ, сярюмнбкеммши 1-ч онгхжхч хлеер мюхбшяьхи опхнпхрер, 5205 ;лндскэ, сярюмнбкеммши б онякедмчч онгхжхч - мхгьхи опхнпхрер 5206 ;********************************************************************** 5207 5208 166534 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 5209 166542 012706 001100 MOV #1100,SP ;сярюмнбхрэ сйюгюрекэ ярейю 5210 166546 004737 167450 JSR PC,@#167450 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 5211 166552 005037 137564 CLR @#137564 ;нвхярхрэ ъвеийс дкъ гюохях хдемрхтхйюжхнммнцн 5212 ;йндю лндскъ 5213 166556 112737 000377 137562 MOVB #377,@#137562 5214 166564 112737 000200 137563 MOVB #200,@#137563 ;сярюмнбхрэ б пюгпъде 07 опхгмюй 3-цн щрюою 5215 ;гюцпсгйх 5216 166572 012737 166600 137560 MOV #166600,@#137560 ;ятнплхпнбюрэ юдпея бнгбпюрю й дюммнлс щрюос 5217 ;гюцпсгйх 5218 166600 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 5219 166606 012706 001100 MOV #1100,SP 5220 166612 004737 167450 JSR PC,@#167450 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 5221 166616 123727 137563 000210 CMPB @#137563,#210 ;лндскх бяеу онгхжхи опнбепемш? 5222 166624 001403 BEQ .+10 ;оепеирх, еякх дю 5223 166626 004737 166712 JSR PC,@#166712 ;гюцпсгхрэ х гюосярхрэ гюцпсгвхй 5224 166632 000762 BR 166600 ;оепеирх, еякх гюцпсгвхй ме гюцпсфем 5225 5226 5227 5228 166634 004737 155036 JSR PC,@#155036 ;ятнплхпнбюрэ б ъвеийюу 002000-002004,002010 5229 ;юдпеяю ондопнцпюлл тнплхпнбюмхъ хгнапюфемхъ 5230 ;мю щйпюме лнмхрнпю 5231 166640 010337 001022 MOV R3,@#1022 5232 166644 012703 177777 MOV #-1,R3 5233 166650 012746 147510 MOV #147510,-(SP) 5234 166654 004777 013120 JSR PC,@2000 ;бшбеярх хгнапюфемхе дхяйерш ян гмюйнл бнопняю 5235 ;( ноепюжхнммюъ яхярелю ме гюцпсфюеряъ ) 5236 166660 013703 001022 MOV @#1022,R3 5237 166664 005726 TST (SP)+ 5238 166666 005737 137556 TST @#137556 ;ашкх ньхайх опх опнбепйе сярпниярб? 5239 166672 001003 BNE .+10 ;оепеирх, еякх дю 5240 166674 012737 000005 173704 MOV #5,@#173704 ;бйкчвхрэ ябернбше хмдхйюрнпш 2, 4 5241 ;( ноепюжхнммюъ яхярелю ме гюцпсфюеряъ ) 5242 166702 005000 CLR R0 5243 166704 005001 CLR R1 5244 166706 000137 167730 JMP @#167730 ;оепеирх й оепбнлс щрюос гюцпсгйх - - - -123- 589.7545471.00066-01 12 01 5245 5246 166712 113705 137563 MOVB @#137563,R5 ;бшапюрэ мнлеп онгхжхх х опхгмюй щрюою гюцпсгйх 5247 166716 005003 CLR R3 5248 166720 005705 TST R5 ;1-и щрюо гюцпсгйх? 5249 166722 100002 BPL .+6 ;оепеирх, еякх дю 5250 166724 052703 000007 BIS #7,R3 ;сярюмнбхрэ опхгмюй 2-цн х 3-цн щрюонб гюцпсгйх 5251 166730 052703 000001 BIS #1,R3 ;сярюмнбхрэ опхгмюй 1-цн щрюою гюцпсгйх 5252 166734 042705 177760 BIC #177760,R5 ;онксвхрэ мнлеп онгхжхх опнбепъелнцн лндскъ 5253 166740 010546 MOV R5,-(SP) ;янупюмхрэ мнлеп онгхжхх 5254 166742 072527 000002 ASH #2,R5 5255 166746 005405 NEG R5 5256 166750 132765 000177 137756 BITB #177,137756(R5) ;лндскэ, сярюмнбкеммши б дюммсч онгхжхч, хяопюбем? 5257 166756 001164 BNE 167330 ;оепеирх, еякх мер 5258 166760 022765 002004 137760 CMP #2004,137760(R5);б онгхжхх йнмрпнккеп мцлд? 5259 166766 001412 BEQ 167014 ;оепеирх, еякх дю 5260 166770 022765 000401 137760 CMP #401,137760(R5) ;б онгхжхх йнмрпнккеп млд? 5261 166776 001406 BEQ 167014 ;оепеирх, еякх дю 5262 167000 011605 MOV @SP,R5 ;бшапюрэ мнлеп онгхжхх 5263 167002 010346 MOV R3,-(SP) 5264 167004 004737 167340 JSR PC,@#167340 ;опнбепхрэ аюирш 3 х 5 огс лндскъ 5265 167010 012603 MOV (SP)+,R3 5266 167012 103546 BCS 167330 ;оепеирх й якедсчыеи онгхжхх, еякх яндепфхлне 5267 ;мебепмне 5268 167014 016537 137760 137564 MOV 137760(R5),@#137564 ;гюохяюрэ хдемрхтхйюжхнммши йнд лндскъ 5269 ;б рюакхжс йнмтхцспюжхх обй 5270 167022 011605 MOV @SP,R5 ;бшапюрэ мнлеп онгхжхх 5271 167024 072527 000007 ASH #7,R5 5272 167030 062705 174000 ADD #174000,R5 ;онксвхрэ юдпея пецхярпю хдемрхтхйюжхх лндскъ 5273 167034 022737 002004 137564 CMP #2004,@#137564 ;гюцпсгйю я мцлд? 5274 167042 001011 BNE 167066 ;оепеирх, еякх мер 5275 5276 ;гюохяюрэ мювюкэмши гюцпсгвхй мцлд б нгс 5277 ;хг дхюцмнярхвеяйнцн огс 5278 167044 012700 155244 MOV #155244,R0 ;бшапюрэ юдпея ондопнцпюллш "мювюкэмши гюцпсгвхй" 5279 167050 012701 000122 MOV #122,R1 ;сярюмнбхрэ явервхй аюирнб ондопнцпюллш 5280 167054 012702 002000 MOV #2000,R2 ;бшапюрэ оепбши юдпея нгс 5281 167060 112022 MOVB (R0)+,(R2)+ ;оепеохяюрэ опнцпюллс хг огс б нгс 5282 167062 077102 SOB R1,.-2 5283 167064 000422 BR 167132 ;оепеирх мю гюосяй мювюкэмнцн гюцпсгвхйю 5284 167066 022737 000401 137564 CMP #401,@#137564 ;гюцпсгйю я млд? 5285 167074 001010 BNE 167116 ;оепеирх, еякх мер 5286 5287 ;гюохяюрэ мювюкэмши гюцпсгвхй млд б нгс 5288 ;хг дхюцмнярхвеяйнцн огс 5289 167076 032703 000002 BIT #2,R3 ;оепбши щрюо гюцпсгйх? 5290 167102 001512 BEQ 167330 ;оепеирх, еякх дю 5291 167104 012700 155366 MOV #155366,R0 ;бшапюрэ юдпея ондопнцпюллш "мювюкэмши гюцпсгвхй" 5292 167110 012701 000134 MOV #134,R1 ;сярюмнбхрэ явервхй аюирнб 5293 167114 000757 BR 167054 5294 167116 012702 164744 MOV #164744,R2 5295 167122 004737 154514 JSR PC,@#154514 ;опнбепхрэ огс лндскъ йнмрпнкэмшл ясллхпнбюмхел, 5296 ;оепеохяюрэ мювюкэмши гюцпсгвхй хг огс лндскъ 5297 ;б нгс, мювхмюъ я юдпеяю 002000 5298 167126 005702 TST R2 ;ашкю ньхайю хдемрхтхйюжхх огс лндскъ хкх 5299 ;ньхайю йя? 5300 167130 001077 BNE 167330 ;оепеирх, еякх дю 5301 167132 105237 137562 INCB @#137562 - - - -124- 589.7545471.00066-01 12 01 5302 167136 113700 137562 MOVB @#137562,R0 5303 167142 010501 MOV R5,R1 5304 167144 004737 002000 JSR PC,@#2000 ;гюосярхрэ мювюкэмши гюцпсгвхй 5305 ;мювюкэмши гюцпсгвхй гюцпсфюер мскебни акнй 5306 ;ноепюжхнммни яхярелш ( гюцпсгвхй ) я мняхрекъ 5307 ;б нгс, мювхмюъ я юдпеяю 000000 5308 5309 167150 103006 BCC 167166 ;оепеирх, еякх опх гюцпсгйе ньхайю ме опнхгнькю 5310 167152 005702 TST R2 ;люйяхлсл оношрнй дкъ дюммнцн лндскъ? 5311 167154 001067 BNE 167334 ;оепеирх, еякх мер 5312 167156 112737 000377 137562 MOVB #377,@#137562 5313 167164 000461 BR 167330 ;оепеирх й якедсчыеи онгхжхх 5314 167166 010046 MOV R0,-(SP) 5315 167170 004737 167364 JSR PC,@#167364 ;опнбепхрэ гюцпсфеммсч опнцпюллс мю гюцпсгвхй 5316 ;он хдемрхтхйюжхнммшл опхгмюйюл 5317 167174 012600 MOV (SP)+,R0 5318 167176 103456 BCS 167334 ;оепеирх, еякх гюцпсфем ме гюцпсгвхй 5319 167200 010046 MOV R0,-(SP) ;янупюмхрэ R0 5320 167202 010146 MOV R1,-(SP) ;янупюмхрэ R1 5321 167204 012701 120000 MOV #120000,R1 5322 167210 012700 140000 MOV #140000,R0 5323 167214 004737 165456 JSR PC,@#165456 ;оепелеярхрэ рюакхжс йнмтхцспюжхх обй хг онякедмецн 5324 ;аюмйю нгс б ъвеийх 157554- 157776 5325 167220 005737 137556 TST @#137556 ;ашкх ньхайх опх опнбепйе лндскеи? 5326 167224 001013 BNE 167254 ;оепеирх, еякх дю 5327 167226 032737 000020 173700 BIT #20,@#173700 ;лнмхрнп опхянедхмем? 5328 167234 001004 BNE 167246 ;оепеирх, еякх дю 5329 167236 012737 000004 173704 MOV #4,@#173704 ;бйкчвхрэ ябернбше хмдхйюрнпш 1,2,4 5330 ;лнмхрнп ме опхянедхмем 5331 167244 000403 BR .+10 5332 167246 012737 000017 173704 MOV #17,@#173704 ;онцюяхрэ бяе хмдхйюрнпш 5333 167254 004737 155036 JSR PC,@#155036 ;ятнплхпнбюрэ б ъвеийюу 002000-002004,002010 5334 ;юдпеяю ондопнцпюлл тнплхпнбюмхъ хгнапюфемхъ 5335 ;мю щйпюме лнмхрнпю 5336 167260 010337 001022 MOV R3,@#1022 5337 167264 005003 CLR R3 5338 167266 012746 147510 MOV #147510,-(SP) 5339 167272 004777 012502 JSR PC,@2000 ;яреперэ хгнапюфемхе дхяйерш х гмюйю "?" 5340 167276 013703 001022 MOV @#1022,R3 5341 167302 005726 TST (SP)+ ;нвхярхрэ ярей 5342 167304 012601 MOV (SP)+,R1 ;бняярюмнбхрэ R1 5343 167306 012600 MOV (SP)+,R0 ;бняярюмнбхрэ R0 5344 167310 013705 117566 MOV @#117566,R5 5345 167314 005037 177572 CLR @#177572 ;гюоперхрэ до 5346 167320 005037 172516 CLR @#172516 ;гюоперхрэ 22-пюгпъдмне опенапюгнбюмхе 5347 167324 000165 000002 JMP 2(R5) ;гюосярхрэ гюцпсгвхй 5348 5349 5350 167330 105237 137563 INCB @#137563 ;сбекхвхрэ мнлеп онгхжхх 5351 167334 005726 TST (SP)+ 5352 167336 000207 RTS PC ;бшунд хг ондопнцпюллш 5353 5354 ;ондопнцпюллю опнбепйх аюирнб 3 х 5 огс лндскъ 5355 167340 004737 164770 JSR PC,@#164770 5356 167344 103405 BCS 167360 ;оепеирх, еякх аюир 3 огс лндскъ нркхвем нр 377 5357 167346 136637 000002 001004 BITB 2(SP),@#1004 5358 167354 001401 BEQ .+4 - - - -125- 589.7545471.00066-01 12 01 5359 167356 005727 000261 TST #261 5360 167362 000207 RTS PC ;бшунд хг ондопнцпюллш 5361 5362 ;*********************************************************************** 5363 ; 5364 ;ондопнцпюллA опнбепйх гюцпсфеммни опнцпюллш он хдемрхтхйюжхнммшл 5365 ;опхгмюйюл. еякх опнцпюллни "мювюкэмши гюцпсгвхй" гюцпсфем ме гюцпсгвхй, 5366 ;сярюмюбкхбюеряъ "я"-пюгпъд 5367 ; 5368 ;*********************************************************************** 5369 5370 167364 005000 CLR R0 ;бшапюрэ оепбши юдпея гюцпсфеммни опнцпюллш 5371 167366 022710 000260 CMP #260,@R0 ;яндепфхлне оепбни ъвеийх = 260? 5372 167372 001405 BEQ 167406 ;оепеирх, еякх дю 5373 167374 022710 000240 CMP #240,@R0 ;яндепфхлне оепбни ъвеийх = 240? 5374 167400 001402 BEQ .+6 ;оепеирх, еякх дю 5375 167402 005710 TST @R0 ;яндепфхлне оепбни ъвеийх =0? 5376 167404 001017 BNE 167444 ;оепеирх мю сярюмнбйс я-пюгпъдю, еякх мер 5377 167406 005720 TST (R0)+ 5378 167410 005200 INC R0 ;онксвхрэ юдпея ярюпьецн аюирю брнпни ъвеийх 5379 167412 122710 000001 CMPB #1,@R0 ;аюир=1? (р.е. б ъвеийе 000002 йнд BR? ) 5380 167416 001012 BNE 167444 ;оепеирх мю сярюмнбйс я-пюгпъдю, еякх мер 5381 167420 005300 DEC R0 ;онксвхрэ юдпея брнпни ъвеийх 5382 167422 111003 MOVB @R0,R3 ;бшапюрэ яндепфхлне лкюдьецн аюирю (ялеыемхе) 5383 167424 006303 ASL R3 ;онксвхрэ юдпея ъвеийх 5384 167426 122713 000020 CMPB #20,@R3 ;яндепфхлне лкюдьецн аюирю =20? 5385 167432 001004 BNE 167444 ;оепеирх мю сярюмнбйс я-пюгпъдю, еякх мер 5386 167434 032713 002000 BIT #2000,@R3 ;пюгпъд 10 = 1? 5387 167440 001401 BEQ .+4 ;оепеирх мю сярюмнбйс я-пюгпъдю, еякх мер 5388 5389 ;#261 - йнд йнлюмдш "сярюмнбхрэ я-пюгпъд" 5390 ;я-пюгпъд сярюмюбкхбюеряъ, еякх мер 5391 ;хдемрхтхйюжхнммшу опхгмюйнб гюцпсгвхйю 5392 167442 005727 000261 TST #261 5393 167446 000207 RTS PC ;бшунд хг ондопнцпюллш 5394 5395 5396 ;ондопнцпюллю ондцнрнбйх пецхярпнб до 5397 167450 005037 177572 CLR @#177572 5398 167454 005037 172516 CLR @#172516 5399 167460 005037 172340 CLR @#172340 5400 167464 012737 000200 172342 MOV #200,@#172342 5401 167472 012737 000400 172344 MOV #400,@#172344 5402 167500 012737 000600 172346 MOV #600,@#172346 5403 167506 012737 001400 172350 MOV #1400,@#172350 ;ятнплхпнбюрэ йнмярюмрс оепепюяопедекемхъ 5404 ;дкъ днярсою й рюакхже йнмтхцспюжхх обй, пюглеыеммни 5405 ;б йнмже 28 йаюир 5406 167514 013737 173050 172352 MOV @#173050,@#172352 ;ятнплхпнбюрэ йнмярюмрс оепепюяопедекемхъ 5407 167522 000337 172352 SWAB @#172352 ;дкъ днярсою й онякедмеи тхгхвеяйни ярпюмхже 5408 167526 006337 172352 ASL @#172352 ;оюлърх 5409 167532 162737 000200 172352 SUB #200,@#172352 5410 167540 012737 177400 172354 MOV #177400,@#172354 5411 167546 012737 177600 172356 MOV #177600,@#172356 5412 167554 012700 000010 MOV #10,R0 5413 167560 012701 077406 MOV #77406,R1 5414 167564 012702 172300 MOV #172300,R2 5415 167570 010122 MOV R1,(R2)+ - - - -126- 589.7545471.00066-01 12 01 5416 167572 077002 SOB R0,.-2 5417 167574 012737 000020 172516 MOV #20,@#172516 ;пюгпеьхрэ 22-пюгпъдмне опенапюгнбюмхе 5418 167602 012737 000001 177572 MOV #1,@#177572 ;пюгпеьхрэ до 5419 167610 000207 RTS PC ;бшунд хг ондопнцпюллш 5420 5421 ;******************************************************************* 5422 ; 5423 ;ондопнцпюллю бйкчвемхъ днонкмхрекэмнцн лхйпн-реярю дкъ 5424 ;опхбнднб 1 х 2 мцлд 5425 ; 5426 ;******************************************************************** 5427 5428 167612 005737 177650 TST @#177650 ;лхйпн-реяр дкъ опхбндю 1 бшонкмем? 5429 167616 001010 BNE 167640 ;оепеирх, еякх дю 5430 167620 012762 000020 000004 MOV #20,4(R2) ;бшонкмхрэ днонкмхреэмши лхйпн-реяр дкъ 5431 ;йнмрпнккепю х опхбндю 1 мцлд 5432 167626 010001 MOV R0,R1 5433 167630 005237 177650 INC @#177650 ;сярюмнбхрэ опхгмюй опнбепйх 1-цн опхбндю 5434 167634 000137 135300 JMP @#135300 5435 167640 022737 000001 177650 CMP #1,@#177650 ;лхйпн-реяр дкъ опхбндю 2 бшонкмем? 5436 167646 001007 BNE 167666 ;оепеирх, еякх дю 5437 167650 005237 177650 INC @#177650 ;сярюмнбхрэ опхгмюй опнбепйх 2-цн опхбндю 5438 167654 012762 000022 000004 MOV #22,4(R2) ;бшонкмхрэ днонкмхрекэмши лхйпн-реяр дкъ 5439 ;йнмрпнккепю х опхбндю 2 мцлд 5440 167662 000137 135320 JMP @#135320 5441 167666 005037 177650 CLR @#177650 5442 167672 000137 135460 JMP @#135460 5443 5444 ;******************************************************************** 5445 ; 5446 ;ондопнцпюллю бнгбпюрю й рейсыелс щрюос гюцпсгйх 5447 ; 5448 ;********************************************************************* 5449 5450 167700 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо=7 5451 167706 012706 001100 MOV #1100,SP ;сярюмнбхрэ сйюгюрекэ ярейю 5452 167712 004737 167450 JSR PC,@#167450 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 5453 167716 000177 147636 JMP @137560 ;оепеирх й рейсыелс щрюос гюцпсгйх 5454 167722 000000 0 5455 167724 000000 0 5456 167726 000000 0 5457 5458 ;******************************************************************** 5459 ; 5460 ;ондопнцпюллю оепеундю й оепбнлс щрюос гюцпсгйх хкх й бшбндс 5461 ;опнцпюллмни ньхайх 5462 ; 5463 ;********************************************************************* 5464 5465 167730 012737 000340 177776 MOV #340,@#177776 ;сярюмнбхрэ опхнпхрер жо =7 5466 167736 010037 177640 MOV R0,@#177640 5467 167742 010137 177642 MOV R1,@#177642 5468 167746 012706 001100 MOV #1100,SP 5469 167752 004737 167450 JSR PC,@#167450 ;ятнплхпнбюрэ йнмярюмрш оепепюяопедекемхъ 5470 167756 000177 147606 JMP @137570 ;оепеирх й оепбнлс щрюос гюцпсгйх хкх 5471 ;бшбеярх яннаыемхе н опнцпюллмни ньхайе, 5472 ;еякх R0 хкх R1 нркхвем нр 0 5473 167762 .BLKW 7 5474 000001 .END - - -