org 00100 ; addr code l00100 kcf ; 00100 0001022 jms l00217 ; 00101 0034217 jms l00205 ; 00102 0034205 l00103 jms l00213 ; 00103 0034213 l00104 jms l00123 ; 00104 0034123 jms l00233 ; 00105 0034233 jmp l00104 ; 00106 0010104 jms l00404 ; 00107 0034404 jmp l00104 ; 00110 0010104 l00111 jms l00213 ; 00111 0034213 l00112 jms l00123 ; 00112 0034123 jms l00266 ; 00113 0034266 jmp l00112 ; 00114 0010112 jms l00420 ; 00115 0034420 l00116 jms l00123 ; 00116 0034123 jms l00311 ; 00117 0034311 jmp l00116 ; 00120 0010116 jms l00433 ; 00121 0034433 jmp l00116 ; 00122 0010116 ;------------------------ l00123 hlt ; 00123 0000000 l00124 jms l00153 ; 00124 0034153 ksf ; 00125 0002020 jmp l00124 ; 00126 0010124 cla ; 00127 0100001 krc ; 00130 0001023 and l01265 ; 00131 0045265 dac l01244 ; 00132 0021244 sam l01266 ; 00133 0075266 jmp l00136 ; 00134 0010136 jmp l00100 ; 00135 0010100 l00136 sam l01265 ; 00136 0075265 jmp l00142 ; 00137 0010142 jms l00205 ; 00140 0034205 jmp l00124 ; 00141 0010124 l00142 sam l01267 ; 00142 0075267 jmp l00145 ; 00143 0010145 jmp l00111 ; 00144 0010111 l00145 sam l01270 ; 00145 0075270 jmp l00150 ; 00146 0010150 jmp l00103 ; 00147 0010103 l00150 sam l01271 ; 00150 0075271 jmp *l00123 ; 00151 0110123 jmp l00460 ; 00152 0010460 ;------------------------ l00153 hlt ; 00153 0000000 dsn ; 00154 0102010 jmp *l00153 ; 00155 0110153 ssf ; 00156 0002200 jmp *l00153 ; 00157 0110153 scf ; 00160 0001071 lda ; 00161 0100041 and l01272 ; 00162 0045272 dac l00164 ; 00163 0020164 l00164 nop ; 00164 0100000 law l00176 ; 00165 0004176 dla ; 00166 0001003 don ; 00167 0003100 dsn ; 00170 0102010 jmp .-1 ; 00171 0010170 law l00202 ; 00172 0004202 dla ; 00173 0001003 don ; 00174 0003100 jmp *l00153 ; 00175 0110153 ;------------------------ l00176 data 006006 ; 00176 0006006 dlya 01600 ; 00177 0021600 djms l00777 ; 00200 0050777 djmp l04000 ; 00201 0064000 l00202 dlya 01760 ; 00202 0021760 djms l00777 ; 00203 0050777 djmp l01444 ; 00204 0061444 ;------------------------ l00205 hlt ; 00205 0000000 lac l01312 ; 00206 0061312 dac l01245 ; 00207 0021245 cla ; 00210 0100001 jms l00404 ; 00211 0034404 jmp *l00205 ; 00212 0110205 ;------------------------ l00213 hlt ; 00213 0000000 cla ; 00214 0100001 dac l01444 ; 00215 0021444 jmp *l00213 ; 00216 0110213 ;------------------------ l00217 hlt ; 00217 0000000 lac l01313 ; 00220 0061313 dac l01246 ; 00221 0021246 law 00656 ; 00222 0004656 dac l00010 ; 00223 0020010 lwc 00120 ; 00224 0104120 dac l01247 ; 00225 0021247 l00226 cla ; 00226 0100001 dac *l00010 ; 00227 0120010 isz l01247 ; 00230 0031247 jmp l00226 ; 00231 0010226 jmp *l00217 ; 00232 0110217 ;------------------------ l00233 hlt ; 00233 0000000 lwc 00066 ; 00234 0104066 dac l01247 ; 00235 0021247 law 00534 ; 00236 0004534 dac l00010 ; 00237 0020010 lac l01244 ; 00240 0061244 l00241 sam *l00010 ; 00241 0174010 jmp l00244 ; 00242 0010244 jmp l00247 ; 00243 0010247 l00244 isz l01247 ; 00244 0031247 jmp l00241 ; 00245 0010241 jmp *l00233 ; 00246 0110233 l00247 law 00066 ; 00247 0004066 add l00010 ; 00250 0064010 ior l01275 ; 00251 0051275 dac l01250 ; 00252 0021250 and l01276 ; 00253 0045276 dac l01251 ; 00254 0021251 add l01277 ; 00255 0065277 dac l01252 ; 00256 0021252 lac *l01252 ; 00257 0161252 dac l01253 ; 00260 0021253 lac *l01251 ; 00261 0161251 asz ; 00262 0002001 isz l00233 ; 00263 0030233 lac l01250 ; 00264 0061250 jmp *l00233 ; 00265 0110233 ;------------------------ l00266 hlt ; 00266 0000000 lwc 00032 ; 00267 0104032 dac l01247 ; 00270 0021247 law 00570 ; 00271 0004570 dac l00010 ; 00272 0020010 lac l01244 ; 00273 0061244 l00274 sam *l00010 ; 00274 0174010 jmp l00277 ; 00275 0010277 jmp l00302 ; 00276 0010302 l00277 isz l01247 ; 00277 0031247 jmp l00274 ; 00300 0010274 jmp *l00266 ; 00301 0110266 l00302 law 00066 ; 00302 0004066 add l00010 ; 00303 0064010 dac l01254 ; 00304 0021254 add l01277 ; 00305 0065277 dac l01255 ; 00306 0021255 isz l00266 ; 00307 0030266 jmp *l00266 ; 00310 0110266 l00311 sam l00571 ; 00311 0074571 jms l00233 ; 00312 0034233 jmp *l00311 ; 00313 0110311 lac l01253 ; 00314 0061253 iac ; 00315 0100004 sam l01300 ; 00316 0075300 jmp l00321 ; 00317 0010321 jmp *l00311 ; 00320 0110311 l00321 law 00370 ; 00321 0004370 dac l01256 ; 00322 0021256 cla ; 00323 0100001 dac l01257 ; 00324 0021257 lac l01254 ; 00325 0061254 ior l01275 ; 00326 0051275 dac l01260 ; 00327 0021260 lac l01251 ; 00330 0061251 ior l01275 ; 00331 0051275 dac l01261 ; 00332 0021261 l00333 lac l01261 ; 00333 0061261 sam l01260 ; 00334 0075260 jmp l00337 ; 00335 0010337 jmp *l00311 ; 00336 0110311 l00337 and l01301 ; 00337 0045301 sam l01275 ; 00340 0075275 jmp l00354 ; 00341 0010354 lac l01257 ; 00342 0061257 dac *l01256 ; 00343 0121256 isz l01256 ; 00344 0031256 l00345 lac l01261 ; 00345 0061261 and l01276 ; 00346 0045276 dac l01257 ; 00347 0021257 l00350 lac *l01257 ; 00350 0161257 isz l01257 ; 00351 0031257 dac l01261 ; 00352 0021261 jmp l00333 ; 00353 0010333 l00354 sam l01302 ; 00354 0075302 jmp l00357 ; 00355 0010357 jmp l00345 ; 00356 0010345 l00357 lwc 00001 ; 00357 0104001 add l01256 ; 00360 0065256 dac l01256 ; 00361 0021256 lac *l01256 ; 00362 0161256 dac l01257 ; 00363 0021257 asz ; 00364 0002001 jmp l00350 ; 00365 0010350 isz l00311 ; 00366 0030311 jmp *l00311 ; 00367 0110311 hlt ; 00370 0000000 ; org 00404 ; addr code l00404 jmp *l00311 ; 00404 0110311 dac *l01245 ; 00405 0121245 lac l01245 ; 00406 0061245 sam l01303 ; 00407 0075303 jmp l00412 ; 00410 0010412 jmp l00100 ; 00411 0010100 l00412 isz l01245 ; 00412 0031245 dac l00010 ; 00413 0020010 cla ; 00414 0100001 dac *l00010 ; 00415 0120010 dac *l00010 ; 00416 0120010 jmp *l00404 ; 00417 0110404 ;------------------------ l00420 jmp l00112 ; 00420 0010112 lac l01254 ; 00421 0061254 sub l01304 ; 00422 0071304 ior l01275 ; 00423 0051275 dac l01444 ; 00424 0021444 lac l01314 ; 00425 0061314 dac l01262 ; 00426 0021262 cla ; 00427 0100001 dac *l01262 ; 00430 0121262 dac l01263 ; 00431 0021263 jmp *l00420 ; 00432 0110420 ;------------------------ l00433 cla ; 00433 0100001 lac l01251 ; 00434 0061251 ior l01275 ; 00435 0051275 dac *l01262 ; 00436 0121262 lac l01262 ; 00437 0061262 isz l01262 ; 00440 0031262 sam l01315 ; 00441 0075315 jmp l00444 ; 00442 0010444 jmp l00111 ; 00443 0010111 l00444 dac l00010 ; 00444 0020010 cla ; 00445 0100001 dac *l00010 ; 00446 0120010 dac *l00010 ; 00447 0120010 lac l01253 ; 00450 0061253 iac ; 00451 0100004 sub l01263 ; 00452 0071263 asp ; 00453 0002002 cla ; 00454 0100001 add l01263 ; 00455 0065263 dac l01263 ; 00456 0021263 jmp *l00433 ; 00457 0110433 ;------------------------ l00460 lac l01262 ; 00460 0061262 sam l01314 ; 00461 0075314 jmp l00477 ; 00462 0010477 lac l01444 ; 00463 0061444 asn ; 00464 0102001 jmp l00124 ; 00465 0010124 and l01276 ; 00466 0045276 add l01304 ; 00467 0065304 dac l01252 ; 00470 0021252 add l01277 ; 00471 0065277 dac l01247 ; 00472 0021247 cla ; 00473 0100001 dac *l01252 ; 00474 0121252 dac *l01247 ; 00475 0121247 jmp l00111 ; 00476 0010111 l00477 sub l01314 ; 00477 0071314 cia ; 00500 0100006 dac l01247 ; 00501 0021247 law 01445 ; 00502 0005445 dac l00010 ; 00503 0020010 lac l01246 ; 00504 0061246 sub l01307 ; 00505 0071307 dac l00011 ; 00506 0020011 lac l01247 ; 00507 0061247 cia ; 00510 0100006 iac ; 00511 0100004 add l01246 ; 00512 0065246 dac l01252 ; 00513 0021252 sub l01316 ; 00514 0071316 asm ; 00515 0102002 jmp l00111 ; 00516 0010111 lac l01246 ; 00517 0061246 ior l01302 ; 00520 0051302 dac *l01254 ; 00521 0121254 lac l01252 ; 00522 0061252 dac l01246 ; 00523 0021246 lac l01263 ; 00524 0061263 dac *l01255 ; 00525 0121255 l00526 lac *l00010 ; 00526 0160010 dac *l00011 ; 00527 0120011 isz l01247 ; 00530 0031247 jmp l00526 ; 00531 0010526 lac l01311 ; 00532 0061311 dac *l00011 ; 00533 0120011 jmp l00111 ; 00534 0010111 ;------------------------ data 000015 ; 00535 0000015 data 000040 ; 00536 0000040 data 000141 ; 00537 0000141 data 000142 ; 00540 0000142 data 000143 ; 00541 0000143 data 000144 ; 00542 0000144 data 000145 ; 00543 0000145 data 000146 ; 00544 0000146 data 000147 ; 00545 0000147 data 000150 ; 00546 0000150 data 000151 ; 00547 0000151 data 000152 ; 00550 0000152 data 000153 ; 00551 0000153 data 000154 ; 00552 0000154 data 000155 ; 00553 0000155 data 000156 ; 00554 0000156 data 000157 ; 00555 0000157 data 000160 ; 00556 0000160 data 000161 ; 00557 0000161 data 000162 ; 00560 0000162 data 000163 ; 00561 0000163 data 000164 ; 00562 0000164 data 000165 ; 00563 0000165 data 000166 ; 00564 0000166 data 000167 ; 00565 0000167 data 000170 ; 00566 0000170 data 000171 ; 00567 0000171 data 000172 ; 00570 0000172 l00571 data 000101 ; 00571 0000101 data 000102 ; 00572 0000102 data 000103 ; 00573 0000103 data 000104 ; 00574 0000104 data 000105 ; 00575 0000105 data 000106 ; 00576 0000106 data 000107 ; 00577 0000107 data 000110 ; 00600 0000110 data 000111 ; 00601 0000111 data 000112 ; 00602 0000112 data 000113 ; 00603 0000113 data 000114 ; 00604 0000114 data 000115 ; 00605 0000115 data 000116 ; 00606 0000116 data 000117 ; 00607 0000117 data 000120 ; 00610 0000120 data 000121 ; 00611 0000121 data 000122 ; 00612 0000122 data 000123 ; 00613 0000123 data 000124 ; 00614 0000124 data 000125 ; 00615 0000125 data 000126 ; 00616 0000126 data 000127 ; 00617 0000127 data 000130 ; 00620 0000130 data 000131 ; 00621 0000131 data 000132 ; 00622 0000132 data 060777 ; 00623 0060777 data 061017 ; 00624 0061017 data 061024 ; 00625 0061024 data 061032 ; 00626 0061032 data 061041 ; 00627 0061041 data 061046 ; 00630 0061046 data 061053 ; 00631 0061053 data 061061 ; 00632 0061061 data 061066 ; 00633 0061066 data 061074 ; 00634 0061074 data 061102 ; 00635 0061102 data 061107 ; 00636 0061107 data 061113 ; 00637 0061113 data 061121 ; 00640 0061121 data 061125 ; 00641 0061125 data 061133 ; 00642 0061133 data 061141 ; 00643 0061141 data 061147 ; 00644 0061147 data 061154 ; 00645 0061154 data 061163 ; 00646 0061163 data 061171 ; 00647 0061171 data 061176 ; 00650 0061176 data 061203 ; 00651 0061203 data 061211 ; 00652 0061211 data 061216 ; 00653 0061216 data 061225 ; 00654 0061225 data 061232 ; 00655 0061232 data 061237 ; 00656 0061237 ; org 00777 ; addr code l00777 dlxa 00000 ; 00777 0010000 ddym ; 01000 0004100 ddym ; 01001 0004100 dnop ; 01002 0004000 dnop ; 01003 0004000 dnop ; 01004 0004000 dnop ; 01005 0004000 dnop ; 01006 0004000 dnop ; 01007 0004000 dnop ; 01010 0004000 dnop ; 01011 0004000 dnop ; 01012 0004000 dnop ; 01013 0004000 dnop ; 01014 0004000 dnop ; 01015 0004000 drjm ; 01016 0004040 data 005040 ; 01017 0005040 data 030202 ; 01020 0030202 data 150320 ; 01021 0150320 data 101360 ; 01022 0101360 data 170171 ; 01023 0170171 data 030302 ; 01024 0030302 data 141322 ; 01025 0141322 data 153306 ; 01026 0153306 data 143203 ; 01027 0143203 data 170360 ; 01030 0170360 data 074571 ; 01031 0074571 data 030302 ; 01032 0030302 data 141302 ; 01033 0141302 data 150325 ; 01034 0150325 data 167010 ; 01035 0167010 data 154316 ; 01036 0154316 data 172760 ; 01037 0172760 data 074571 ; 01040 0074571 data 030231 ; 01041 0030231 data 104365 ; 01042 0104365 data 170702 ; 01043 0170702 data 141321 ; 01044 0141321 data 152571 ; 01045 0152571 data 030302 ; 01046 0030302 data 141302 ; 01047 0141302 data 150326 ; 01050 0150326 data 143366 ; 01051 0143366 data 170171 ; 01052 0170171 data 030320 ; 01053 0030320 data 150010 ; 01054 0150010 data 141302 ; 01055 0141302 data 141320 ; 01056 0141320 data 150257 ; 01057 0150257 data 174171 ; 01060 0174171 data 030302 ; 01061 0030302 data 141302 ; 01062 0141302 data 150320 ; 01063 0150320 data 127770 ; 01064 0127770 data 074571 ; 01065 0074571 data 030222 ; 01066 0030222 data 150356 ; 01067 0150356 data 170352 ; 01070 0170352 data 141312 ; 01071 0141312 data 150316 ; 01072 0150316 data 074571 ; 01073 0074571 data 030302 ; 01074 0030302 data 141302 ; 01075 0141302 data 103720 ; 01076 0103720 data 150001 ; 01077 0150001 data 141302 ; 01100 0141302 data 141171 ; 01101 0141171 data 030210 ; 01102 0030210 data 150250 ; 01103 0150250 data 141302 ; 01104 0141302 data 141250 ; 01105 0141250 data 150171 ; 01106 0150171 data 030202 ; 01107 0030202 data 147320 ; 01110 0147320 data 145302 ; 01111 0145302 data 141171 ; 01112 0141171 data 030302 ; 01113 0030302 data 141302 ; 01114 0141302 data 000602 ; 01115 0000602 data 151322 ; 01116 0151322 data 000773 ; 01117 0000773 data 074571 ; 01120 0074571 data 030320 ; 01121 0030320 data 150010 ; 01122 0150010 data 141302 ; 01123 0141302 data 141171 ; 01124 0141171 data 030302 ; 01125 0030302 data 141302 ; 01126 0141302 data 147316 ; 01127 0147316 data 145312 ; 01130 0145312 data 143306 ; 01131 0143306 data 143171 ; 01132 0143171 data 030302 ; 01133 0030302 data 141302 ; 01134 0141302 data 147326 ; 01135 0147326 data 147302 ; 01136 0147302 data 141302 ; 01137 0141302 data 074571 ; 01140 0074571 data 030210 ; 01141 0030210 data 150312 ; 01142 0150312 data 141352 ; 01143 0141352 data 170356 ; 01144 0170356 data 143316 ; 01145 0143316 data 074571 ; 01146 0074571 data 030302 ; 01147 0030302 data 141302 ; 01150 0141302 data 150325 ; 01151 0150325 data 167370 ; 01152 0167370 data 074571 ; 01153 0074571 data 030223 ; 01154 0030223 data 157661 ; 01155 0157661 data 145302 ; 01156 0145302 data 170765 ; 01157 0170765 data 143306 ; 01160 0143306 data 152711 ; 01161 0152711 data 074571 ; 01162 0074571 data 030302 ; 01163 0030302 data 141302 ; 01164 0141302 data 150325 ; 01165 0150325 data 167010 ; 01166 0167010 data 154317 ; 01167 0154317 data 074571 ; 01170 0074571 data 030201 ; 01171 0030201 data 152721 ; 01172 0152721 data 165360 ; 01173 0165360 data 165321 ; 01174 0165321 data 152571 ; 01175 0152571 data 030220 ; 01176 0030220 data 141302 ; 01177 0141302 data 141010 ; 01200 0141010 data 150320 ; 01201 0150320 data 074571 ; 01202 0074571 data 030203 ; 01203 0030203 data 101706 ; 01204 0101706 data 143316 ; 01205 0143316 data 150312 ; 01206 0150312 data 141302 ; 01207 0141302 data 074571 ; 01210 0074571 data 030203 ; 01211 0030203 data 101706 ; 01212 0101706 data 147316 ; 01213 0147316 data 145312 ; 01214 0145312 data 141171 ; 01215 0141171 data 030302 ; 01216 0030302 data 141302 ; 01217 0141302 data 000712 ; 01220 0000712 data 145316 ; 01221 0145316 data 147302 ; 01222 0147302 data 141302 ; 01223 0141302 data 074571 ; 01224 0074571 data 030312 ; 01225 0030312 data 151312 ; 01226 0151312 data 004316 ; 01227 0004316 data 153316 ; 01230 0153316 data 074571 ; 01231 0074571 data 030220 ; 01232 0030220 data 141312 ; 01233 0141312 data 145010 ; 01234 0145010 data 147316 ; 01235 0147316 data 074571 ; 01236 0074571 data 030320 ; 01237 0030320 data 150010 ; 01240 0150010 data 145322 ; 01241 0145322 data 145360 ; 01242 0145360 data 170171 ; 01243 0170171 l01244 data 001646 ; 01244 0001646 l01245 data 000000 ; 01245 0000000 l01246 data 000000 ; 01246 0000000 l01247 data 000000 ; 01247 0000000 l01250 data 000000 ; 01250 0000000 l01251 data 000000 ; 01251 0000000 l01252 data 000000 ; 01252 0000000 l01253 data 000000 ; 01253 0000000 l01254 data 000000 ; 01254 0000000 l01255 data 000000 ; 01255 0000000 l01256 data 000000 ; 01256 0000000 l01257 data 000000 ; 01257 0000000 l01260 data 000000 ; 01260 0000000 l01261 data 000000 ; 01261 0000000 l01262 data 000000 ; 01262 0000000 l01263 data 000000 ; 01263 0000000 ; org 01265 ; addr code l01265 data 000177 ; 01265 0000177 l01266 data 000014 ; 01266 0000014 l01267 data 000006 ; 01267 0000006 l01270 data 000004 ; 01270 0000004 l01271 data 000056 ; 01271 0000056 l01272 data 100000 ; 01272 0100000 data 000077 ; 01273 0000077 data 000100 ; 01274 0000100 l01275 data 050000 ; 01275 0050000 l01276 data 007777 ; 01276 0007777 l01277 data 000066 ; 01277 0000066 l01300 data 000010 ; 01300 0000010 l01301 data 070000 ; 01301 0070000 l01302 data 060000 ; 01302 0060000 l01303 data 007770 ; 01303 0007770 l01304 data 000032 ; 01304 0000032 data 000102 ; 01305 0000102 data 000300 ; 01306 0000300 l01307 data 000001 ; 01307 0000001 data 000070 ; 01310 0000070 l01311 data 004040 ; 01311 0004040 l01312 data 003777 ; 01312 0003777 l01313 data 001646 ; 01313 0001646 l01314 data 001446 ; 01314 0001446 l01315 data 001644 ; 01315 0001644 l01316 data 003770 ; 01316 0003770 ; org 01444 ; addr code l01444 dhlt ; 01444 0000000 data 051020 ; 01445 0051020 ; org 01646 ; addr code data 005670 ; 01646 0005670 data 001003 ; 01647 0001003 data 003100 ; 01650 0003100 data 104003 ; 01651 0104003 data 021264 ; 01652 0021264 data 031264 ; 01653 0031264 data 011653 ; 01654 0011653 data 102010 ; 01655 0102010 data 010100 ; 01656 0010100 data 061677 ; 01657 0061677 data 020176 ; 01660 0020176 data 061700 ; 01661 0061700 data 020177 ; 01662 0020177 data 061701 ; 01663 0061701 data 020202 ; 01664 0020202 data 061702 ; 01665 0061702 data 020777 ; 01666 0020777 data 010100 ; 01667 0010100 data 006005 ; 01670 0006005 data 012000 ; 01671 0012000 data 025000 ; 01672 0025000 data 047000 ; 01673 0047000 data 001000 ; 01674 0001000 data 000000 ; 01675 0000000 data 000000 ; 01676 0000000 data 006005 ; 01677 0006005 data 025000 ; 01700 0025000 data 026000 ; 01701 0026000 data 011400 ; 01702 0011400 ; org 04000 ; addr code l04000 data 001646 ; 04000 0001646 data 001646 ; 04001 0001646 dhlt ; 04002 0000000 ; org 37400 ; addr code data 001052 ; 37400 0001052 data 113402 ; 37401 0113402 data 001646 ; 37402 0001646 ; org 37714 ; addr code data 013400 ; 37714 0013400 end ;