SUBR STRT REV E 1 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
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
SUBR STRT REV E 1 PAGE 2
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
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
SUBR STRT REV E 1 PAGE 3
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
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
SUBR STRT REV E 1 PAGE 4
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
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
SUBR STRT REV E 1 PAGE 5
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!
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!
SUBR STRT REV E 1 PAGE 6
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
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
SUBR STRT REV E 1 PAGE 7
00545 150325
00546 146720
00547 120316
00550 147724
00551 120311
00552 147240
00553 142305
00554 146324
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
SUBR STRT REV E 1 PAGE 8
00636 151640
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
00721 142640
00722 123240
00723 152331
00724 150305
00725 120322
00726 153240
SUBR STRT REV E 1 PAGE 9
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
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
SUBR STRT REV E 1 PAGE 10
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 WH
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
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
SUBR STRT REV E 1 PAGE 11
T! 000452 TEST 000070 UP 000221
0000 WARNING OR ERROR FLAGS
DAP-16 MOD 2 REV. C 01-26-71