Previous File   Multiple Pages   Next File

SUBR STRT REV E 1 5-11-10 EI PAGE 1

0001 SUBR STRT REV E 1 5-11-10 EI 0002 REL 0003 00000 0 000000 STRT DAC ** 0004 00001 001001 INH 0005 00002 0 02 00530 LDA =-3 0006 00003 0 04 00446 STA REPT SET COUNTER 0007 00004 140040 CRA 0008 00005 0 04 00451 STA T 0009 00006 0 04 00444 STA IND 0010 00007 0 04 00450 STA PHASE 0011 00010 54 1500 INA '1500 READ CONTROL REGISTER 0012 00011 0 01 00334 JMP INT2 INTERFACE 2 NOT ON 0013 00012 0 04 00447 STA SAVA 0014 00013 0 03 00527 ANA ='77 ARE ALL FFS OFF 0015 00014 101040 SNZ 0016 00015 0 01 00022 JMP LOWP YES 0017 00016 140040 CRA 0018 00017 0 10 00000 CALL HOLD NO - GO RESET 0019 00020 100000 SKP OK RETURN 0020 00021 0 01 00301 JMP ERR1 ERROR RETURN 0021 00022 0 02 00447 LOWP LDA SAVA 0022 00023 0 03 00526 ANA ='4000 INTERRUPT STILL ON? 0023 00024 100040 SZE 0024 00025 0 01 00336 JMP DOWN STRUCTURE IS DOW 0025 00026 000401 ENB 0026 00027 54 1012 INA '1012 0027 00030 0 01 00332 JMP INT1 INTERFACE 1 NOT ON 0028 00031 0 03 00526 ANA ='4000 BIG JACK AT ZERO? 0029 00032 100040 SZE 0030 00033 0 01 00432 JMP J6UP NO - GO COMPLAIN 0031 00034 0 02 00525 LDA ='10 OUTPUT REG. TEST. 0032 00035 74 0030 OTA '30 IF THEY ARE ON THIS 0033 00036 0 01 00035 JMP *-1 WILL SET BIT 11 IN R'12 0034 00037 0 12 00451 IRS T 0035 00040 0 01 00037 JMP *-1 0036 00041 54 1012 INA '1012 0037 00042 0 01 00041 JMP *-1 GET R.'12 0038 00043 0 03 00524 ANA ='40 IS IT SET 0039 00044 100040 SZE 0040 00045 0 12 00444 IRS IND YES - SET INDICATOR 0041 00046 140040 CRA RESET OUTPUTS 0042 00047 74 0022 OTA '22 0043 00050 0 01 00047 JMP *-1 0044 00051 74 0060 OTA '60 0045 00052 0 01 00051 JMP *-1 0046 00053 74 0030 OTA '30 0047 00054 0 01 00053 JMP *-1 0048 00055 0 12 00451 IRS T 0049 00056 0 01 00055 JMP *-1 0050 00057 54 1012 INA '1012 THIS SHOULD CHANGE IT
SUBR STRT REV E 1 5-11-10 EI PAGE 2

0051 00060 0 01 00057 JMP *-1 0052 00061 0 03 00524 ANA ='40 0053 00062 101040 SNZ 0054 00063 0 01 00070 JMP TEST IT IS RESET - CHEK IND 0055 00064 0 02 00444 LDA IND SET - IND SHOULD BE 0 0056 00065 100040 SZE 0057 00066 0 01 00346 JMP OUT NO - REGISTERS ARE OFF 0058 00067 0 01 00073 JMP OK YES - THEY ARE ON 0059 00070 0 02 00444 TEST LDA IND 0060 00071 101040 SNZ 0061 00072 0 01 00346 JMP OUT 0062 00073 0 02 00633 OK LDA OVR! 0063 00074 0 10 00000 CALL MSGINT 0064 00075 54 1500 OVER INA '1500 0065 00076 0 01 00075 JMP *-1 0066 00077 0 03 00523 ANA ='20000 IS OVERRIDE PRESSED 0067 00100 101040 SNZ 0068 00101 0 01 00075 JMP OVER NO - WAIT FOR IT 0069 00102 0 02 00522 LDA ='6 TURN ON SOLENOID & 0070 00103 0 10 00000 CALL HOLD 15 VOLTS 0071 00104 100000 SKP 0072 00105 0 01 00300 JMP ERR2 0073 00106 54 1500 INA '1500 0074 00107 0 01 00106 JMP *-1 0075 00110 0 04 00447 STA SAVA 0076 00111 0 03 00521 ANA ='300 15V SHOULD BE ON 0077 00112 0 05 00520 ERA ='200 AND MOOG OFF 0078 00113 100040 SZE 0079 00114 0 01 00340 JMP RELY RELAY FAULT 0080 00115 0 02 00517 LDA =-10 0081 00116 0 04 00446 STA REPT 0082 00117 54 1500 LOW INA '1500 0083 00120 0 01 00117 JMP *-1 0084 00121 0 04 00447 STA SAVA 0085 00122 0 03 00516 ANA ='1000 LP SHOULD BE ON 0086 00123 100040 SZE 0087 00124 0 01 00133 JMP HIGH YES 0088 00125 0 12 00446 IRS REPT NO - WAIT 0089 00126 100000 SKP 0090 00127 0 01 00342 JMP NOLO NO LOW PRESSURE 0091 00130 0 02 00515 LDA =10 0092 00131 0 10 00000 CALL WAIT 0093 00132 0 01 00117 JMP LOW 0094 00133 0 02 00514 HIGH LDA =-30 0095 00134 0 04 00446 STA REPT 0096 00135 54 1500 INA '1500 0097 00136 0 01 00135 JMP *-1 0098 00137 0 04 00447 STA SAVA 0099 00140 0 03 00513 ANA ='400 HP SHOULD BE ON 0100 00141 100040 SZE
SUBR STRT REV E 1 5-11-10 EI PAGE 3

0101 00142 0 01 00153 JMP MOOG 0102 00143 0 12 00446 IRS REPT WAIT 0103 00144 100000 SKP 0104 00145 0 01 00344 JMP NOHI NO HIGH PRESSURE 0105 00146 0 02 00515 LDA =10 0106 00147 0 10 00000 CALL WAIT 0107 00150 0 01 00135 JMP HIGH+2 0108 00151 0 02 00512 LDA =20 0109 00152 0 10 00000 CALL WAIT 0110 00153 0 02 00511 MOOG LDA ='7 TURN OM MOOG 0111 00154 0 10 00000 CALL HOLD 0112 00155 100000 SKP 0113 00156 0 01 00276 JMP ERR4 0114 00157 0 02 00517 LDA =-10 0115 00160 0 04 00446 STA REPT 0116 00161 54 1012 SERV INA '1012 ARE SERVOS AT ZERO? 0117 00162 0 01 00161 JMP *-1 0118 00163 0 03 00510 ANA ='7777 0119 00164 101040 SNZ THESE WILL BE OFF 0120 00165 0 01 00203 JMP LIFT GO LIFT J.6 0121 00166 0 12 00446 IRS REPT WAIT 0122 00167 100000 SKP 0123 00170 0 01 00174 JMP SER1 0124 00171 0 02 00515 LDA =10 0125 00172 0 10 00000 CALL WAIT 0126 00173 0 01 00161 JMP SERV 0127 00174 54 1012 SER1 INA '1012 0128 00175 0 01 00174 JMP *-1 0129 00176 0 04 00447 STA SAVA 0130 00177 0 03 00527 ANA ='77 SERVOS AT ZERO? 0131 00200 101040 SNZ 0132 00201 0 01 00355 JMP POTS NO - POT FAULT 0133 00202 0 01 00364 JMP SERF SERVO FAULT 0134 00203 0 02 00523 LIFT LDA ='20000 0135 00204 74 0022 OTA '22 0136 00205 0 01 00204 JMP *-1 0137 00206 0 02 00507 LDA ='32 0138 00207 74 0030 OTA '30 0139 00210 0 01 00207 JMP *-1 0140 00211 0 02 00506 LDA ='47 LIFT J.6. 0141 00212 0 10 00000 CALL HOLD 0142 00213 100000 SKP 0143 00214 0 01 00277 JMP ERR3 0144 00215 0 02 00505 LDA =5 0145 00216 0 10 00000 CALL WAIT 0146 00217 0 02 00514 LDA =-30 0147 00220 0 04 00446 STA REPT 0148 00221 54 1012 UP INA '1012 0149 00222 0 01 00221 JMP *-1 0150 00223 0 04 00447 STA SAVA
SUBR STRT REV E 1 5-11-10 EI PAGE 4

0151 00224 0 03 00527 ANA ='77 0152 00225 101040 SNZ 0153 00226 0 01 00235 JMP SLEV 0154 00227 0 12 00446 IRS REPT 0155 00230 100000 SKP 0156 00231 0 01 00364 JMP SERF 0157 00232 0 02 00515 LDA =10 0158 00233 0 10 00000 CALL WAIT 0159 00234 0 01 00221 JMP UP 0160 00235 0 02 00712 SLEV LDA SL1! 0161 00236 0 10 00000 CALL MSGINT 0162 00237 0 02 00504 LDA =ARV 0163 00240 0 04 00074 STA '74 0164 00241 54 1012 INA '1012 0165 00242 0 01 00241 JMP *-1 0166 00243 0 03 04000 ANA '4000 IS J.6. AT ZERO? 0167 00244 101040 SNZ 0168 00245 0 10 00000 CALL INTR YES - FAULT 0169 00246 0 02 00077 LDA '77 0170 00247 0 03 00504 ANA =ARV IS RV THERE 0171 00250 0 05 00504 ERA =ARV 0172 00251 100040 SZE 0173 00252 0 01 00240 JMP SLEV+3 NOT YET 0174 00253 140040 CRA 0175 00254 0 04 00077 STA '77 0176 00255 0 02 00503 LDA ='57 TURN ON BIG PUMP 0177 00256 0 10 00000 CALL HOLD 0178 00257 100000 SKP 0179 00260 0 01 00321 JMP ERR5 0180 00261 0 02 00517 LDA =-10 0181 00262 0 04 00446 STA REPT 0182 00263 54 1500 GO INA '1500 0183 00264 0 01 00263 JMP *-1 0184 00265 0 03 00502 ANA ='40000 0185 00266 100040 SZE BIG PUMP IN DELTA? 0186 00267 0 01 00436 JMP ALGO ALL SYSTEMS GO 0187 00270 0 12 00446 IRS REPT 0188 00271 100000 SKP 0189 00272 0 01 00403 JMP DELT 0190 00273 0 02 00515 LDA =10 0191 00274 0 10 00000 CALL WAIT 0192 00275 0 01 00263 JMP GO 0193 00276 0 12 00450 ERR4 IRS PHASE 0194 00277 0 12 00450 ERR3 IRS PHASE 0195 00300 0 12 00450 ERR2 IRS PHASE 0196 00301 0 12 00450 ERR1 IRS PHASE 0197 00302 0 04 00447 STA SAVA 0198 00303 140040 CRA 0199 00304 0 10 00000 CALL HOLD SWITCH ALL OFF 0200 00305 100000 SKP
SUBR STRT REV E 1 5-11-10 EI PAGE 5

0201 00306 0 01 00303 JMP *-3 ERROR - TRY AGAIN 0202 00307 0 02 00557 LDA FF! TYPE FF FAULT 0203 00310 0 10 00000 CALL MESS 0204 00311 0 02 00450 LDA PHASE PICK UP FAULT NUMBER 0205 00312 0 06 00501 ADD ='260 0206 00313 74 0004 OTA 4 0207 00314 0 01 00313 JMP *-1 0208 00315 0 02 00447 LDA SAVA 0209 00316 0 10 00000 CALL STATES 0210 00317 000000 HLT 0211 00320 0 01 00000 JMP STRT 0212 00321 0 10 00000 ERR5 CALL WIND 0213 00322 0 02 00557 LDA FF! 0214 00323 0 10 00000 CALL MESS 0215 00324 0 02 00500 LDA ='264 0216 00325 74 0004 OTA 4 0217 00326 0 01 00325 JMP *-1 0218 00327 0 10 00000 CALL 2LIN 0219 00330 000000 HLT 0220 00331 0 01 00331 JMP * 0221 00332 0 02 00575 INT1 LDA IN! 0222 00333 0 01 00411 JMP HALT 0223 00334 0 02 00773 INT2 LDA IN2! 0224 00335 0 01 00411 JMP HALT 0225 00336 0 02 00612 DOWN LDA DOW! 0226 00337 0 01 00417 JMP STOP 0227 00340 0 02 00650 RELY LDA RLY! 0228 00341 0 01 00417 JMP STOP 0229 00342 0 02 00666 NOLO LDA NOL! 0230 00343 0 01 00417 JMP STOP 0231 00344 0 02 00700 NOHI LDA NOH! 0232 00345 0 01 00417 JMP STOP 0233 00346 0 02 01010 OUT LDA OUT! 0234 00347 0 10 00000 CALL MESS 0235 00350 0 02 01055 LDA STR! 0236 00351 0 10 00000 CALL MESS 0237 00352 0 10 00000 CALL 2LIN 0238 00353 000000 HLT 0239 00354 0 01 00002 JMP STRT+2 0240 00355 0 02 00760 POTS LDA POT! 0241 00356 0 10 00000 CALL MESS 0242 00357 0 02 01055 LDA STR! 0243 00360 0 10 00000 CALL MESS 0244 00361 0 10 00000 CALL 2LIN 0245 00362 000000 HLT 0246 00363 0 01 00161 JMP SERV 0247 00364 0 02 00730 SERF LDA SRV! 0248 00365 0 10 00000 CALL MSGINT 0249 00366 0 02 00514 LDA =-30 0250 00367 0 04 00452 STA T!
SUBR STRT REV E 1 5-11-10 EI PAGE 6

0251 00370 54 1012 INA '1012 0252 00371 0 01 00370 JMP *-1 0253 00372 0 03 00524 ANA ='40 IS J.6.0K? 0254 00373 101040 SNZ 0255 00374 0 01 00161 JMP SERV YES 0256 00375 0 12 00451 IRS T 0257 00376 0 01 00370 JMP SERF+4 0258 00377 0 12 00452 IRS T! 0259 00400 0 01 00370 JMP SERF+4 0260 00401 0 02 00747 LDA REG! 0261 00402 0 01 00417 JMP STOP 0262 00403 0 10 00000 DELT CALL WIND 0263 00404 0 02 00542 LDA DLT! 0264 00405 0 10 00000 CALL MESS 0265 00406 0 10 00000 CALL 2LIN 0266 00407 000000 HLT 0267 00410 0 01 00410 JMP * 0268 00411 0 10 00000 HALT CALL MESS 0269 00412 0 02 01055 LDA STR! 0270 00413 0 10 00000 CALL MESS 0271 00414 0 10 00000 CALL 2LIN 0272 00415 000000 HLT 0273 00416 0 01 00002 JMP STRT+2 0274 00417 0 04 00445 STOP STA MES 0275 00420 140040 CRA 0276 00421 0 10 00000 CALL HOLD 0277 00422 101000 NOP 0278 00423 0 02 00445 LDA MES 0279 00424 0 10 00000 CALL MESS 0280 00425 0 02 00447 LDA SAVA 0281 00426 0 10 00000 CALL BITS 0282 00427 0 10 00000 CALL 2LIN 0283 00430 000000 HLT 0284 00431 0 01 00431 JMP * 0285 00432 0 02 01030 J6UP LDA 6UP! 0286 00433 0 10 00000 CALL MESS 0287 00434 0 10 00000 CALL 2LIN 0288 00435 0 01 00415 JMP HALT+4 0289 00436 0 02 00477 ALGO LDA ='17 0290 00437 0 10 00000 CALL HOLD 0291 00440 101000 NOP 0292 00441 0 02 00531 LDA ALG! 0293 00442 0 10 00000 CALL MSGINT 0294 00443 -0 01 00000 JMP* STRT 0295 * 0296 00444 000000 IND BSZ 1 TEST INDICATOR 0297 00445 000000 MES BSZ 1 0298 00446 000000 REPT BSZ 1 0299 00447 000000 SAVA BSZ 1 0300 00450 000000 PHASEBSZ 1
SUBR STRT REV E 1 5-11-10 EI PAGE 7

0301 00451 000000 T BSZ 1 0302 00452 000000 T! BSZ 1 0303 00453 BSS 20 CORRECTIONS 0304 00477 000017 FIN 00500 000264 00501 000260 00502 040000 00503 000057 00504 151326 00505 000005 00506 000047 00507 000032 00510 007777 00511 000007 00512 000024 00513 000400 00514 177742 00515 000012 00516 001000 00517 177766 00520 000200 00521 000300 00522 000006 00523 020000 00524 000040 00525 000010 00526 004000 00527 000077 00530 177775 0305 00531 0 000532 ALG! DAC ALG 0306 00532 140714 ALG BCI 8,ALL SYSTEMS G0@@ 00533 146240 00534 151731 00535 151724 00536 142715 00537 151640 00540 120307 00541 130300 0307 00542 0 000543 DLT! DAC DLT 0308 00543 141311 DLT BCI 12,BIG PUMP NOT IN DELTA @@ 00544 143640 00545 150325 00546 146720 00547 120316 00550 147724 00551 120311 00552 147240 00553 142305 00554 146324
SUBR STRT REV E 1 5-11-10 EI PAGE 8

00555 140640 00556 140300 0309 00557 0 000560 FF! DAC FF 0310 00560 143314 FF BCI 13,FLIP-FLOP FAULT PHASE @@@ 00561 144720 00562 126706 00563 146317 00564 150240 00565 143301 00566 152714 00567 152240 00570 120320 00571 144301 00572 151705 00573 120300 00574 140300 0311 00575 0 000576 IN! DAC IN 0312 00576 152325 IN BCI 12,TURN ON INTERFACE NO 1@@ 00577 151316 00600 120317 00601 147240 00602 144716 00603 152305 00604 151306 00605 140703 00606 142640 00607 147317 00610 120261 00611 140300 0313 00612 0 000613 DOW! DAC DOW 0314 00613 144716 DOW BCI 16,INTERRUPT ON, SEE INSTRUCTIONS@@ 00614 152305 00615 151322 00616 152720 00617 152240 00620 147716 00621 126240 00622 151705 00623 142640 00624 144716 00625 151724 00626 151325 00627 141724 00630 144717 00631 147323 00632 140300 0315 00633 0 000634 OVR! DAC OVR 0316 00634 150322 OVR BCI 12,PRESS OVERRIDE BUTTON @@ 00635 142723 00636 151640
SUBR STRT REV E 1 5-11-10 EI PAGE 9

00637 147726 00640 142722 00641 151311 00642 142305 00643 120302 00644 152724 00645 152317 00646 147240 00647 140300 0317 00650 0 000651 RLY! DAC RLY 0318 00651 151305 RLY BCI 13,RELAY FAULT,15V OR MOOG @@ 00652 146301 00653 154640 00654 143301 00655 152714 00656 152254 00657 130665 00660 153240 00661 147722 00662 120315 00663 147717 00664 143640 00665 140300 0319 00666 0 000667 NOL! DAC NOL 0320 00667 147317 NOL BCI 9,NO LOW PRESSURE @@ 00670 120314 00671 147727 00672 120320 00673 151305 00674 151723 00675 152722 00676 142640 00677 120300 0321 00700 0 000701 NOH! DAC NOH 0322 00701 147317 NOH BCI 9,NO HIGH PRESSURE@@ 00702 120310 00703 144707 00704 144240 00705 150322 00706 142723 00707 151725 00710 151305 00711 140300 0323 00712 0 000713 SL1! DAC SL1 0324 00713 151305 SL1 BCI 13,REMOVE SLEEVE & TYPE RV @@ 00714 146717 00715 153305 00716 120323 00717 146305 00720 142726
SUBR STRT REV E 1 5-11-10 EI PAGE 10

00721 142640 00722 123240 00723 152331 00724 150305 00725 120322 00726 153240 00727 140300 0325 00730 0 000731 SRV! DAC SRV 0326 00731 150317 SRV BCI 14,POT NO 6 OR SERVO FAULT @@ 00732 152240 00733 147317 00734 120266 00735 120317 00736 151240 00737 151705 00740 151326 00741 147640 00742 143301 00743 152714 00744 152240 00745 140300 00746 120240 0327 00747 0 000750 REG! DAC *+1 0328 00750 151305 BCI 8,REG. NO. '12 =@@ 00751 143656 00752 120316 00753 147656 00754 120247 00755 130662 00756 120275 00757 140300 0329 00760 0 000761 POT! DAC POT 0330 00761 151305 POT BCI 10,RESET POTS TO ZERO@@ 00762 151705 00763 152240 00764 150317 00765 152323 00766 120324 00767 147640 00770 155305 00771 151317 00772 140300 0331 00773 0 000774 IN2! DAC IN2 0332 00774 152325 IN2 BCI 12,TURN ON INTERFACE NO 2@@ 00775 151316 00776 120317 00777 147240 01000 144716 01001 152305 01002 151306
SUBR STRT REV E 1 5-11-10 EI PAGE 11

01003 140703 01004 142640 01005 147317 01006 120262 01007 140300 0333 01010 0 001011 OUT! DAC OUT1 0334 01011 150325 OUT1 BCI 15,PUT "OUT" REGISTERS IN AUTO @@ 01012 152240 01013 121317 01014 152724 01015 121240 01016 151305 01017 143711 01020 151724 01021 142722 01022 151640 01023 144716 01024 120301 01025 152724 01026 147640 01027 140300 0335 01030 0 001031 6UP! DAC *+1 0336 01031 145256 BCI 20,J.6. STILL UP - PRESS START WHEN DOWN @@ 01032 133256 01033 120323 01034 152311 01035 146314 01036 120325 01037 150240 01040 126640 01041 150322 01042 142723 01043 151640 01044 151724 01045 140722 01046 152240 01047 153710 01050 142716 01051 120304 01052 147727 01053 147240 01054 140300 0337 01055 0 001056 STR! DAC *+1 0338 01056 123240 BCI 8,& PRESS START @@ 01057 150322 01060 142723 01061 151640 01062 151724 01063 140722 01064 152240
SUBR STRT REV E 1 5-11-10 EI PAGE 12

01065 140300 0339 END 6UP! 001030 ALG 000532 ALG! 000531 ALGO 000436 DELT 000403 DLT 000543 DLT! 000542 DOW 000613 DOW! 000612 DOWN 000336 ERR1 000301 ERR2 000300 ERR3 000277 ERR4 000276 ERR5 000321 FF 000560 FF! 000557 GO 000263 HALT 000411 HIGH 000133 IN 000576 IN! 000575 IN2 000774 IN2! 000773 IND 000444 INT1 000332 INT2 000334 J6UP 000432 LIFT 000203 LOW 000117 LOWP 000022 MES 000445 MOOG 000153 NOH 000701 NOH! 000700 NOHI 000344 NOL 000667 NOL! 000666 NOLO 000342 OK 000073 OUT 000346 OUT! 001010 OUT1 001011 OVER 000075 OVR 000634 OVR! 000633 PHAS 000450 POT 000761 POT! 000760 POTS 000355 REG! 000747 RELY 000340 REPT 000446 RLY 000651 RLY! 000650 SAVA 000447 SER1 000174 SERF 000364 SERV 000161 SL1 000713 SL1! 000712 SLEV 000235 SRV 000731 SRV! 000730 STOP 000417 STR! 001055 STRT 000000 T 000451 T! 000452 TEST 000070 UP 000221 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71
Previous File   Multiple Pages   Next File