Source Code
|
These source-code files are part of a reconstructed copy of Luminary 163, the
first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 173. Changes
between revision 163 and 173 were backed out, as described by Luminary memos 157
and 158. The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 163 listing would be different.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
037131,000002: ## Copyright: Public domain.
037132,000003: ## Filename: SERVICER.agc
037133,000004: ## Purpose: A section of Luminary revision 163.
037134,000005: ## It is part of the reconstructed source code for the first
037135,000006: ## (unflown) release of the flight software for the Lunar
037136,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
037137,000008: ## The code has been recreated from a reconstructed copy of
037138,000009: ## Luminary 173, as well as Luminary memos 157 amd 158.
037139,000010: ## It has been adapted such that the resulting bugger words
037140,000011: ## exactly match those specified for Luminary 163 in NASA
037141,000012: ## drawing 2021152N, which gives relatively high confidence
037142,000013: ## that the reconstruction is correct.
037143,000014: ## Reference: pp. 850-889
037144,000015: ## Assembler: yaYUL
037145,000016: ## Contact: Ron Burkey <info@sandroid.org>.
037146,000017: ## Website: www.ibiblio.org/apollo/index.html
037147,000018: ## Mod history: 2019-08-21 MAS Created from Luminary 173. Removed checking of
037148,000019: ## R12RDFLG (and NEWJOB) from VMEASCHK.
037149,000020:
|
|
Page 860
|
037151,000022: 37,3401 BANK 37
037152,000023: 37,2000 SETLOC SERV1
037153,000024: 37,2000 BANK
037154,000025:
037155,000026: 37,3401 E7,1515 EBANK= DVCNTR
037156,000027: # ************************************* PREREAD **************************************************************
037157,000028:
037158,000029:
037159,000030: 37,3401 COUNT* $$/SERV
037160,000031:
037161,000032: 37,3401 34757 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER
037162,000033: 37,3402 03530 TC GNUFAZE5 # RESTART.
037163,000034: 37,3403 35031 CAF PRIO21
037164,000035: 37,3404 05072 TC NOVAC
037165,000036: 37,3405 E3,1460 EBANK= NBDX
037166,000037: 37,3405 03671 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
037167,000038:
037168,000039: 37,3407 03543 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FREE FALL
037169,000040: # DO NOT DESTROY VALUE OF PIPTIME1
037170,000041:
037171,000042: 37,3410 40103 CS FLAGWRD7
037172,000043: 37,3411 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
037173,000044: 37,3412 26103 ADS FLAGWRD7 # OF FLAGWRD7)
037174,000045:
037175,000046: 37,3413 44735 CS DRFTBIT
037176,000047: 37,3414 70076 MASK FLAGWRD2 # START POWERED FLITE GYRO COMPENSATION
037177,000048: 37,3415 54076 TS FLAGWRD2 # BY T3RUPT
037178,000049:
037179,000050: 37,3416 34751 CAF FOUR # NO LONGER NEEDED
037180,000051: 37,3417 55256 TS PIPAGE
037181,000052:
037182,000053: 37,3420 37713 CAF PRIO22 # INITIALIZE NAVIGATED STATE VECTOR(SM COO
037183,000054: 37,3421 05105 TC FINDVAC # RD) FROM MIDTOAVE OUTPUTS PRIOR TO FIRST
037184,000055: 37,3422 E7,1515 EBANK= DVCNTR # AVERAGE G.
037185,000056: 37,3422 02457 46067 2CADR NORMLIZE
037186,000057:
037187,000058:
037188,000059: 37,3424 34752 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE
037189,000060: 37,3425 03524 GOREADAX TC GNUTFAZ5
037190,000061: 37,3426 35000 CA 2SECS # WAIT TWO SECONDS FOR READACCS
037191,000062: 37,3427 05235 TC VARDELAY
037192,000063:
|
|
Page 861
|
037194,000065: # ************************************* READACCS *************************************************************
037195,000066: 37,3430 43537 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
037196,000067: 37,3431 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL
037197,000068: 37,3432 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL
037198,000069: 37,3433 44753 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
037199,000070: 37,3434 13436 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
037200,000071: 37,3435 34753 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS
037201,000072: 37,3436 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
037202,000073: # WITH ANY OF THE 8 SUBSEQUENT R10,R11
037203,000074: # INTERRUPTS -- THUS MINIMIZING THE POSS-
037204,000075: # IBILITY OF LOSING DOWNRUPTS.
037205,000076:
037206,000077: 37,3437 03540 TC PIPASR # READ THE PIPAS AND THEN ZERO THEM.
037207,000078:
037208,000079: 37,3440 34756 PIPSDONE CA FIVE
037209,000080: 37,3441 03530 TC GNUFAZE5
037210,000081: 37,3442 34753 REDO5.5 CAF ONE # SHOWS THAT PIPAREAD HAD NOT STARTED
037211,000082: 37,3443 55256 TS PIPAGE # SO THAT RESTART BEGINS AT READACCS.
037212,000083:
037213,000084: 37,3444 34736 CA PRIO20
037214,000085: 37,3445 05105 TC FINDVAC
037215,000086: 37,3446 E7,1515 EBANK= DVCNTR
037216,000087: 37,3446 02125 66067 2CADR SERVICER # SET UP SERVICER JOB
037217,000088:
037218,000089: 37,3450 34743 CA BIT9
037219,000090: 37,3451 00006 EXTEND
037220,000091: 37,3452 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT,AVE G ON.
037221,000092:
037222,000093: 37,3453 30103 CA FLAGWRD7 # WAS AVERAGE G ASKED TO BE TERMINATED?
037223,000094: 37,3454 74747 MASK AVEGFBIT
037224,000095: 37,3455 00006 EXTEND
037225,000096: 37,3456 13516 BZF AVEGOUT # YES: SET UP FINAL EXIT.
037226,000097:
037227,000098: 37,3457 30102 CA FLAGWRD6 # NO: IS THIS P6X OR P12?
037228,000099: 37,3460 74744 MASK MUNFLBIT
037229,000100: 37,3461 00006 EXTEND
037230,000101: 37,3462 13514 BZF MAKEACCS # NO: BYPASS LR READ AND DISPLAYS
037231,000102:
037232,000103: 37,3463 40107 CS FLGWRD11 # YES: DOES SOMEONE WANT TO BYPASS LR UPDT
037233,000104: 37,3464 74735 MASK LRBYBIT
037234,000105: 37,3465 00006 EXTEND
037235,000106: 37,3466 13473 BZF R10CALL # YES: BYPASS LR READINGS
037236,000107:
037237,000108: 37,3467 33536 CA 1.75SEC # CALL R12 0.25 SEC PRIOR TO NEXT READACCS
037238,000109: 37,3470 05214 TC WAITLIST # VELOCITY LANDING RADAR READINGS ARE CENT
037239,000110: 37,3471 E7,1462 EBANK= VSELECT # ERED AROUND PIPTIME. 2 VELOCITY AND 1 AL
037240,000111: 37,3471 03162 52067 2CADR R12READ # TITUDE READINGS BEFORE PIPTIME,3 V AFTER
037241,000112:
|
|
Page 862
|
037243,000114: 37,3473 10754 R10CALL CCS PHASE2
037244,000115: 37,3474 13514 TCF MAKEACCS # PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
037245,000116:
037246,000117: 37,3475 34757 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE.
037247,000118: 37,3476 55055 TS PIPCTR
037248,000119:
037249,000120: 37,3477 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST.
037250,000121: 37,3500 64756 AD FIVE
037251,000122: 37,3501 64734 AD NEG1/2
037252,000123: 37,3502 64734 AD NEG1/2
037253,000124: 37,3503 57054 XCH TBASE2
037254,000125:
037255,000126: 37,3504 34361 CAF DEC17 # 2.21SPOT FOR R10,R11
037256,000127: 37,3505 54001 TS L
037257,000128: 37,3506 40000 COM
037258,000129: 37,3507 52754 DXCH -PHASE2
037259,000130:
037260,000131: 37,3510 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS.
037261,000132: 37,3511 05214 TC WAITLIST
037262,000133: 37,3512 E7,1536 EBANK= UNIT/R/
037263,000134: 37,3512 02006 42067 2CADR R10,R11
037264,000135:
037265,000136:
037266,000137: 37,3514 34751 MAKEACCS CA FOUR
037267,000138: 37,3515 13425 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS
037268,000139:
037269,000140:
037270,000141: 37,3516 00006 AVEGOUT EXTEND
037271,000142: 37,3517 33535 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT
037272,000143: 37,3520 53252 DXCH AVGEXIT
037273,000144:
037274,000145: 37,3521 34751 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER
037275,000146: 37,3522 03524 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT
037276,000147: 37,3523 05272 TC TASKOVER # END TASK WITHOUT CALLING READACCS
037277,000148:
037278,000149:
037279,000150: 37,3524 54001 GNUTFAZ5 TS L # SAVE INPUT IN L
037280,000151: 37,3525 40025 CS TIME1
037281,000152: 37,3526 55062 TS TBASE5 # SET TBASE5
037282,000153: 37,3527 13531 TCF +2
037283,000154:
037284,000155: 37,3530 54001 GNUFAZE5 TS L # SAVE INPUT IN L
037285,000156: 37,3531 40001 CS L # -PHASE IN A, PHASE IN L
037286,000157: 37,3532 52762 DXCH -PHASE5 # SET -PHASE5,PHASE5
037287,000158: 37,3533 00002 TC Q
037288,000159:
037289,000160:
037290,000161: 37,3534 E7,1515 EBANK= DVCNTR
037291,000162: 37,3534 03661 44067 AVOUTCAD 2CADR AVGEND
037292,000163:
|
|
Page 863
|
037294,000165: 37,3536 00257 1.75SEC DEC 175 B-14
037295,000166: 37,3537 37771 OCT37771 OCT 37771
037296,000167:
037297,000168: 33,2125 BANK 33
037298,000169: 33,2000 SETLOC SERVICES
037299,000170: 33,2000 BANK
037300,000171:
037301,000172: 33,2125 COUNT* $$/SERV
037302,000173:
|
|
Page 864
|
037304,000175: # ************************************* SERVICER *************************************************************
037305,000176:
037306,000177:
037307,000178: 33,2125 05364 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER
037308,000179: 33,2126 16035 OCT 16035
037309,000180: 33,2127 20000 OCT 20000
037310,000181: 33,2130 E7,1515 EBANK= DVCNTR
037311,000182: 33,2130 02136 66067 2CADR GETABVAL
037312,000183:
037313,000184: 33,2132 37721 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS
037314,000185: 33,2133 55074 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED.
037315,000186:
037316,000187:
037317,000188: 33,2134 04616 TC BANKCALL # PIPA COMPENSATION CALL
037318,000189: 33,2135 15271 CADR 1/PIPA
037319,000190:
037320,000191: 33,2136 06042 GETABVAL TC INTPRET
037321,000192: 33,2137 51575 VLOAD ABVAL
037322,000193: 33,2140 00325 DELV
037323,000194: 33,2141 77776 EXIT
037324,000195: 33,2142 30154 CA MPAC
037325,000196: 33,2143 55245 TS ABDELV # ABDELV = CM/SEC*2(-14).
037326,000197: 33,2144 00006 EXTEND
037327,000198: 33,2145 72072 MP KPIP
037328,000199: 33,2146 53514 DXCH ABDVCONV # ABDVCONV = M/CS *2(-5).
037329,000200: 33,2147 00006 EXTEND
037330,000201: 33,2150 31244 DCA MASS
037331,000202: 33,2151 53571 DXCH MASS1 # NO MASS MONITOR ON SURFACE.
037332,000203:
037333,000204: 33,2152 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE?
037334,000205: 33,2153 74744 MASK SURFFBIT
037335,000206: 33,2154 00006 EXTEND
037336,000207: 33,2155 12173 BZF MOONSPOT # YES: BYPASS MASS MESS
037337,000208:
037338,000209: 33,2156 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED?
037339,000210: 33,2157 74737 MASK APSFLBIT
037340,000211: 33,2160 10000 CCS A
037341,000212: 33,2161 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A,
037342,000213: 33,2162 32001 DCA APSVEX # OTHERWISE DPSVEX --> A
037343,000214: 33,2163 54002 TS Q
037344,000215:
037345,000216: 33,2164 00006 EXTEND
037346,000217: 33,2165 31514 DCA ABDVCONV
037347,000218: 33,2166 00006 EXTEND
037348,000219: 33,2167 10002 DV Q # WHERE APPROPRIATE VEX RESIDES
037349,000220: 33,2170 00006 EXTEND
037350,000221: 33,2171 71243 MP MASS
037351,000222: 33,2172 21571 DAS MASS1
037352,000223:
037353,000224: 33,2173 32073 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC
|
|
Page 865
|
037355,000226: 33,2174 07312 TC SHORTMP # MULTIPLY BY KPIP1 TO GET
037356,000227:
037357,000228: 33,2175 52155 DXCH MPAC # ABDELV AT 2(7) M/CS
037358,000229: 33,2176 21510 DAS DVTOTAL # UPDATE DVTOTAL FOR DISPLAY
037359,000230:
037360,000231: 33,2177 02364 TC TMPTOSPT # CDUS AT PIPTIME LOADED INTO CDUSPOT CELL
037361,000232: 33,2200 04616 TC BANKCALL # SINES AND COSINES OF CDUSPOT.
037362,000233: 33,2201 47622 CADR QUICTRIG
037363,000234:
037364,000235: 33,2202 32340 CAF XNBPIPAD
037365,000236: 33,2203 04616 TC BANKCALL # COMPUTE BOD-TO-SM MATRIX (XNB),AND
037366,000237: 33,2204 20037 CADR FLESHPOT # STORE INTO XNBPIPAD.
037367,000238:
037368,000239: 33,2205 06042 TC INTPRET
037369,000240: 33,2206 45014 AVERAGEG BON CALL
037370,000241: 33,2207 03307 MUNFLAG # COMPUTE LM & CM STATE VECTORS IN LUNAR G
037371,000242: 33,2210 66701 RVBOTH # ,DO R12 , DO COPYCYCL1, RETURN AT COPYCL
037372,000243: 33,2211 66645 CALCRVG # UPDATE LM STATE VECTOR.
037373,000244: 33,2212 77776 EXIT
037374,000245: 33,2213 03417 GOSERV TC QUIKFAZ5
037375,000246:
037376,000247: 33,2214 02347 COPYCYCL TC COPYCYC # RN1,VN1,MASS1 => RN,VN,MASS.
037377,000248:
037378,000249: # CA ZERO A IS ZERO ON RETURN FROM COPYCYC
037379,000250: 33,2215 55157 TS PIPATMPX # STILL UNDER INHINT
037380,000251: 33,2216 55160 TS PIPATMPY
037381,000252: 33,2217 55161 TS PIPATMPZ
037382,000253:
037383,000254: 33,2220 44741 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON.
037384,000255: 33,2221 70076 MASK FLAGWRD2
037385,000256: 33,2222 54076 TS FLAGWRD2
037386,000257:
037387,000258: 33,2223 34745 CAF IDLEFBIT # IS DV MONITOR TO BE TURNED ON?
037388,000259: 33,2224 70103 MASK FLAGWRD7
037389,000260: 33,2225 10000 CCS A
037390,000261: 33,2226 12261 TCF NODVMON1 # NO: SET AUXFLAG TO 0
037391,000262:
037392,000263: 33,2227 40102 CS FLAGWRD6 # ALLOW ANOTHER PASS WITHOUT DVMON?
037393,000264: 33,2230 74752 MASK AUXFLBIT
037394,000265: 33,2231 10000 CCS A
037395,000266: 33,2232 12265 TCF NODVMON2 # YES: SET AUXFLAG TO 0
037396,000267:
|
|
Page 866
|
037398,000269: 33,2233 41250 DVMON CS DVTHRUSH # SUFFICIENT THRUST TO STEER WITH?
037399,000270: 33,2234 61245 AD ABDELV
037400,000271: 33,2235 00006 EXTEND
037401,000272: 33,2236 62271 BZMF LOTHRUST # NO: THRUST TOO LO, DECREMENT DVCNTR
037402,000273:
037403,000274: 33,2237 40076 CS FLAGWRD2 # YES: SET STEERSW TO ALLOW GUIDANCE.
037404,000275: 33,2240 74741 MASK STEERBIT
037405,000276: 33,2241 26076 ADS FLAGWRD2
037406,000277:
037407,000278: 33,2242 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT
037408,000279: 33,2243 55515 TS DVCNTR # THRUST HAS BEEN DETECTED.
037409,000280:
037410,000281: 33,2244 30106 CA FLGWRD10 # IS APSFLAG SET?
037411,000282: 33,2245 74737 MASK APSFLBIT
037412,000283: 33,2246 10000 CCS A
037413,000284: 33,2247 12314 TCF USEJETS # YES: USE RCS TO STEER ASCENT STAGE.
037414,000285:
037415,000286: 33,2250 34743 CA BIT9 # NO: PITCH GIMBAL FAILURE?
037416,000287: 33,2251 00006 EXTEND
037417,000288: 33,2252 02032 RAND CHAN32
037418,000289: 33,2253 00006 EXTEND
037419,000290: 33,2254 12314 BZF USEJETS # YES: USE RCS TO STEER DESCENT STAGE.
037420,000291:
037421,000292: 33,2255 44736 USEGTS CS USEQRJTS # NO: USE GTS TO STEER DESCENT STAGE.
037422,000293: 33,2256 70111 MASK DAPBOOLS
037423,000294: 33,2257 54111 TS DAPBOOLS
037424,000295: 33,2260 12317 TCF SERVOUT
037425,000296:
037426,000297: 33,2261 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0.
037427,000298: 33,2262 70102 MASK FLAGWRD6
037428,000299: 33,2263 54102 TS FLAGWRD6
037429,000300: 33,2264 12314 TCF USEJETS
037430,000301: 33,2265 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1.
037431,000302: 33,2266 74752 MASK AUXFLBIT
037432,000303: 33,2267 26102 ADS FLAGWRD6
037433,000304: 33,2270 12314 TCF USEJETS
037434,000305:
037435,000306: 33,2271 03417 LOTHRUST TC QUIKFAZ5
037436,000307: 33,2272 11515 CCS DVCNTR # TWO PASSES OF LO THRUST?
037437,000308: 33,2273 12305 TCF DECCNTR # NO: DECREMENT DVCNTR.
037438,000309:
037439,000310: 33,2274 10760 CCS PHASE4 # COMFAIL JOB ACTIVE?
037440,000311: 33,2275 12317 TCF SERVOUT # YES WON'T NEED ANOTHER.
037441,000312:
037442,000313: 33,2276 05364 TC PHASCHNG # 4.37SPOT FOR COMFAIL.
037443,000314: 33,2277 00374 OCT 00374
037444,000315:
037445,000316: 33,2300 37716 CAF PRIO25
037446,000317: 33,2301 05072 TC NOVAC
037447,000318: 33,2302 E7,1455 EBANK= WHICH
|
|
Page 867
|
037449,000320: 33,2302 02576 74067 2CADR COMFAIL # ESTABLISH JOB COMFAIL FOR
037450,000321:
037451,000322: 33,2304 12317 TCF SERVOUT # THRUST FAIL LOGIC.
037452,000323:
037453,000324: 33,2305 55570 DECCNTR TS DVCNTR1
037454,000325: 33,2306 03417 TC QUIKFAZ5
037455,000326: 33,2307 31570 CA DVCNTR1
037456,000327: 33,2310 55515 TS DVCNTR
037457,000328: 33,2311 00004 INHINT
037458,000329: 33,2312 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE
037459,000330: 33,2313 40166 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO.
037460,000331: 33,2314 40111 USEJETS CS DAPBOOLS
037461,000332: 33,2315 74736 MASK USEQRJTS
037462,000333: 33,2316 26111 ADS DAPBOOLS # TELL DAP TO USE RCS TO STEER.
037463,000334:
037464,000335: 33,2317 00003 SERVOUT RELINT
037465,000336: 33,2320 04616 TC BANKCALL # COMPUTE VEHICLE MOMENTS OF INERTIA.
037466,000337: 33,2321 40463 CADR 1/ACCS
037467,000338:
037468,000339: 33,2322 30167 CA PRIORITY
037469,000340: 33,2323 75004 MASK LOW9
037470,000341: 33,2324 54166 TS PUSHLOC
037471,000342: 33,2325 22007 ZL
037472,000343: 33,2326 52121 DXCH FIXLOC # FIXLOC AND OVFIND
037473,000344:
037474,000345: 33,2327 03417 TC QUIKFAZ5
037475,000346: 33,2330 41234 CS PIPTIME +1
037476,000347: 33,2331 60025 AD TIME1
037477,000348: 33,2332 64736 AD HALF
037478,000349: 33,2333 64736 AD HALF
037479,000350: 33,2334 57355 XCH SERVDURN # SERVICER DURATION FOR DOWNLINK
037480,000351: 33,2335 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE
037481,000352: 33,2336 31252 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW
037482,000353: 33,2337 52006 DXCH Z # WILL CONVEY THIS INFORMATION.
037483,000354:
037484,000355: 33,2340 02145 XNBPIPAD ECADR XNBPIP
037485,000356:
037486,000357: 32,3636 BANK 32
037487,000358: 22,2000 SETLOC SERV2
037488,000359: 22,2000 BANK
037489,000360: 22,3661 COUNT* $$/SERV
037490,000361:
037491,000362: 22,3661 31234 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT,AVEGFLAG SET.
037492,000363: 22,3662 55074 TS 1/PIPADT # SET UP COASTING FLIGHT GYRO COMPENSATION
037493,000364:
037494,000365: 22,3663 05515 TC UPFLAG # SET DRIFT FLAG, TERMINATE POWERED FLITE
037495,000366: 22,3664 00036 ADRES DRIFTFLG # GYRO COMPENSATION.
|
|
The above two instructions are circled.
|
037497,000368:
037498,000369: 22,3665 04616 TC BANKCALL
037499,000370: 22,3666 17274 CADR PIPFREE
037500,000371:
|
|
Page 868
|
037502,000373: 22,3667 44743 CS BIT9
037503,000374: 22,3670 00006 EXTEND
037504,000375: 22,3671 03011 WAND DSALMOUT # TELL WORLD THAT AVERAGEG IS NOW OFF.
037505,000376:
037506,000377: 22,3672 05340 TC 2PHSCHNG
037507,000378: 22,3673 00005 OCT 5 # GROUP 5 OFF
037508,000379: 22,3674 05022 OCT 05022 # GROUP 2 ON
037509,000380: 22,3675 20000 OCT 20000
037510,000381:
037511,000382: 22,3676 06042 TC INTPRET
037512,000383: 22,3677 77614 CLEAR
037513,000384: 22,3700 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS.
037514,000385: 22,3701 45014 CLEAR CALL # RESET MUNFLAG.
037515,000386: 22,3702 03267 MUNFLAG
037516,000387: 22,3703 27463 AVETOMID # BRING CM STATE VECTOR UP TO PIPTIME.
037517,000388: 22,3704 77414 CLEAR EXIT
037518,000389: 22,3705 03671 V37FLAG
037519,000390:
037520,000391: 22,3706 04635 AVERTRN TC POSTJUMP
037521,000392: 22,3707 10122 CADR V37RET # GO TO V37 LOGIC.
037522,000393:
037523,000394: 22,3710 22,3706 OUTGOAVE = AVERTRN
037524,000395: 22,3710 E7,1570 DVCNTR1 = MASS1
037525,000396:
|
|
Page 869
|
037527,000398: # SERVIDLE IS ENTERED AFTER A POODOO SOFTWARE RESTART. SERVICER CONTINUES,BUT GUIDANCE AND R12 ( IF RUNNING) ARE
037528,000399: # TERMINATED. ABORTS MONITOR CONTINUES TO RUN.
037529,000400:
037530,000401: 27,2000 SETLOC SERV3
037531,000402: 27,2000 BANK
037532,000403: 27,3326 COUNT* $$/SERV
037533,000404:
037534,000405: 27,3326 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
037535,000406: 27,3327 33364 DCA SVEXTADR
037536,000407: 27,3330 53252 DXCH AVGEXIT
037537,000408:
037538,000409: 27,3331 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR
037539,000410: 27,3332 74745 MASK IDLEFBIT
037540,000411: 27,3333 26103 ADS FLAGWRD7
037541,000412:
037542,000413: 27,3334 34735 CAF LRBYBIT # TERMINATE R12 IF RUNNING.
037543,000414: 27,3335 54107 TS FLGWRD11
037544,000415:
037545,000416: 27,3336 00006 EXTEND
037546,000417: 27,3337 34755 DCA NEG0
037547,000418: 27,3340 52752 DXCH -PHASE1
037548,000419:
037549,000420: 27,3341 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
037550,000421: 27,3342 74744 MASK MUNFLBIT
037551,000422: 27,3343 10000 CCS A
037552,000423: 27,3344 13350 TCF +4
037553,000424:
037554,000425: 27,3345 00006 EXTEND
037555,000426: 27,3346 34755 DCA NEG0
037556,000427: 27,3347 52754 DXCH -PHASE2
037557,000428:
037558,000429: 27,3350 00006 +4 EXTEND
037559,000430: 27,3351 34755 DCA NEG0
037560,000431: 27,3352 52756 DXCH -PHASE3
037561,000432:
037562,000433: 27,3353 00006 EXTEND
037563,000434: 27,3354 34755 DCA NEG0
037564,000435: 27,3355 52764 DXCH -PHASE6
037565,000436:
037566,000437: 27,3356 34764 CAF OCT33 # 4.33SPOT FOR GOPOOFIX
037567,000438: 27,3357 54001 TS L
037568,000439: 27,3360 40000 COM
037569,000440: 27,3361 52760 DXCH -PHASE4
037570,000441:
037571,000442: 27,3362 15645 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
037572,000443: # TO GOTOPOOH WHILE SERVICER CONTINUES TO
037573,000444: # RUN, ALBEIT IN A GROUND STATE WHERE
037574,000445: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS
037575,000446: # ARE MAINTAINED.
037576,000447:
|
|
Page 870
|
037578,000449: 27,3363 E7,1515 EBANK= DVCNTR
037579,000450: 27,3363 03636 64067 SVEXTADR 2CADR SERVEXIT
037580,000451:
037581,000452:
037582,000453:
037583,000454: 32,3636 BANK 32
037584,000455: 32,2000 SETLOC SERV
037585,000456: 32,2000 BANK
037586,000457: 32,3636 COUNT* $$/SERV
037587,000458:
037588,000459: 32,3636 05364 SERVEXIT TC PHASCHNG
037589,000460: 32,3637 00035 OCT 00035
037590,000461:
037591,000462: 32,3640 15155 TCF ENDOFJOB
037592,000463:
037593,000464: 23,2457 BANK 23
037594,000465: 23,2000 SETLOC NORMLIZ
037595,000466: 23,2000 BANK
037596,000467:
037597,000468: 23,2457 COUNT* $$/SERV
037598,000469:
|
|
Page 871
|
037600,000471: # NORMLIZE AND COPYCYCL
037601,000472:
037602,000473: 23,2457 06042 NORMLIZE TC INTPRET
037603,000474: 23,2460 43175 VLOAD BOFF
037604,000475: 23,2461 03545 RN1
037605,000476: 23,2462 03347 MUNFLAG
037606,000477: 23,2463 66341 NORMLIZ1 # DO NOT USE LUNAR LANDING AVERAGE G
037607,000478: 23,2464 64252 VSL6 MXV
037608,000479: 23,2465 01732 REFSMMAT
037609,000480: 23,2466 37521 STCALL R # LM POS VECTOR IN SM COORD AT 2(+24)M.
037610,000481: 23,2467 67000 MUNGRAV # USE LUNAR LANDING AVERAGE G ROUTINE.
037611,000482: 23,2470 76575 VLOAD VSL1
037612,000483: 23,2471 03553 VN1
037613,000484: 23,2472 77721 MXV
037614,000485: 23,2473 01732 REFSMMAT
037615,000486: 23,2474 27527 STOVL V
037616,000487: 23,2475 01724 V(CSM)
037617,000488: 23,2476 53435 VXV UNIT
037618,000489: 23,2477 01716 R(CSM)
037619,000490: 23,2500 03720 STORE UHYP
037620,000491: 23,2501 77776 ASCSPOT EXIT
037621,000492: 23,2502 00006 EXTEND # MAKE SURE GOUP 2 IS OFF.
037622,000493: 23,2503 34755 DCA NEG0
037623,000494: 23,2504 52754 DXCH -PHASE2
037624,000495:
037625,000496: 23,2505 04635 TC POSTJUMP
037626,000497: 23,2506 66344 CADR NORMLIZ2
037627,000498:
037628,000499: 33,2341 BANK 33
037629,000500: 33,2000 SETLOC SERVICES
037630,000501: 33,2000 BANK
037631,000502: 33,2341 COUNT* $$/SERV
037632,000503:
037633,000504: 33,2341 77624 NORMLIZ1 CALL
037634,000505: 33,2342 66577 CALCGRAV
037635,000506: 33,2343 77776 EXIT
037636,000507:
037637,000508: 33,2344 32363 NORMLIZ2 CA EIGHTEEN
037638,000509: 33,2345 02350 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE
037639,000510: 33,2346 05155 TC ENDOFJOB
037640,000511:
037641,000512: # COPYCYC PLACES NEWLY NAVIGATED STATE VECTORS AND MASS INTO DOWNLIST REG
037642,000513:
037643,000514: 33,2347 36007 COPYCYC CA OCT24 # DEC 20
|
|
Page 872
|
037645,000516: 33,2350 00004 +1 INHINT
037646,000517: 33,2351 77752 +2 MASK NEG1 # REDUCE BY 1 IF ODD
037647,000518: 33,2352 54061 TS ITEMP1
037648,000519: 33,2353 00006 EXTEND
037649,000520: 33,2354 50061 INDEX ITEMP1
037650,000521: 33,2355 31545 DCA RN1
037651,000522: 33,2356 50061 INDEX ITEMP1
037652,000523: 33,2357 53220 DXCH RN
037653,000524: 33,2360 10061 CCS ITEMP1
037654,000525: 33,2361 12351 TCF COPYCYC +2
037655,000526: 33,2362 00002 TC Q # RETURN UNDER INHINT
037656,000527:
037657,000528:
037658,000529: 33,2363 00022 EIGHTEEN DEC 18 B-14
037659,000530:
|
|
Page 873
|
037661,000532: # ******************* PIPA READER ********************
037662,000533:
037663,000534: # MOD NO. 00 BY D. LICKLY DEC.9 1966
037664,000535:
037665,000536:
037666,000537: # FUNCTIONAL DESCRIPTION
037667,000538: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
037668,000539: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
037669,000540: # RESTARTS BEGIN AT REREADAC.
037670,000541:
037671,000542:
037672,000543: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
037673,000544: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
037674,000545: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
037675,000546: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
037676,000547:
037677,000548: # CALLING SEQUENCE AND EXIT
037678,000549:
037679,000550: # CALL VIA TC, ISWCALL, ETC.
037680,000551:
037681,000552: # EXIT IS VIA Q.
037682,000553:
037683,000554:
037684,000555:
037685,000556:
037686,000557: # INPUT
037687,000558:
037688,000559: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
037689,000560:
037690,000561:
037691,000562: # OUTPUT
037692,000563:
037693,000564: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
037694,000565: # PIPTIME CONTAINS TIME OF PIPA READING.
037695,000566:
037696,000567:
037697,000568: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
037698,000569:
037699,000570: # TEMX TEMY TEMZ PIPAGE
037700,000571:
037701,000572:
037702,000573: 37,3540 BANK 37
037703,000574: 37,2000 SETLOC SERV1
037704,000575: 37,2000 BANK
037705,000576:
037706,000577: 37,3540 COUNT* $$/SERV
037707,000578:
037708,000579: 37,3540 00006 PIPASR EXTEND
|
|
Page 874
|
037710,000581: 37,3541 30025 DCA TIME2
037711,000582: 37,3542 53561 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
037712,000583: 37,3543 44755 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
037713,000584: 37,3544 55253 TS TEMX
037714,000585: 37,3545 55254 TS TEMY
037715,000586: 37,3546 55255 TS TEMZ
037716,000587:
037717,000588: 37,3547 34755 CA ZERO
037718,000589: 37,3550 54330 TS DELVZ
037719,000590: 37,3551 54331 TS DELVZ +1
037720,000591: 37,3552 54326 TS DELVY
037721,000592: 37,3553 54327 TS DELVY +1
037722,000593: 37,3554 54325 TS DELVX +1
037723,000594: 37,3555 55256 TS PIPAGE # SHOW PIPA READING IN PROGRESS
037724,000595:
037725,000596: 37,3556 00006 REPIP1 EXTEND
037726,000597: 37,3557 40040 DCS PIPAX # X AND Y PIPS READ
037727,000598: 37,3560 53254 DXCH TEMX
037728,000599: 37,3561 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
037729,000600: 37,3562 54324 TS DELVX
037730,000601: 37,3563 22326 LXCH DELVY
037731,000602:
037732,000603: 37,3564 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
037733,000604: 37,3565 57255 XCH TEMZ
037734,000605: 37,3566 56041 XCH PIPAZ
037735,000606: 37,3567 54330 DODELVZ TS DELVZ
037736,000607:
037737,000608: 37,3570 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD
037738,000609: 37,3571 31561 DCA PIPTIME1
037739,000610: 37,3572 53247 DXCH PGUIDE
037740,000611: 37,3573 00006 EXTEND
037741,000612: 37,3574 41234 DCS PIPTIME
037742,000613: 37,3575 21247 DAS PGUIDE
037743,000614:
037744,000615: 37,3576 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS
037745,000616: 37,3577 55154 TS CDUTEMPX
037746,000617: 37,3600 30033 CA CDUY
037747,000618: 37,3601 55155 TS CDUTEMPY
037748,000619: 37,3602 30034 CA CDUZ
037749,000620: 37,3603 55156 TS CDUTEMPZ
037750,000621: 37,3604 30324 CA DELVX
037751,000622: 37,3605 55157 TS PIPATMPX
037752,000623: 37,3606 30326 CA DELVY
037753,000624: 37,3607 55160 TS PIPATMPY
037754,000625: 37,3610 30330 CA DELVZ
037755,000626: 37,3611 55161 TS PIPATMPZ
037756,000627:
037757,000628: 37,3612 00002 TC Q
|
|
In the margins above there are some doodles of something I can't quite make out. Possibly satellites.
|
037759,000630:
|
|
Page 875
|
037761,000632: 37,3613 11256 REREADAC CCS PIPAGE
037762,000633: 37,3614 13430 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
037763,000634:
037764,000635: 37,3615 33653 CAF DONEADR # SET UP RETURN FROM PIPASR
037765,000636: 37,3616 54002 TS Q
037766,000637:
037767,000638: 37,3617 10330 CCS DELVZ
037768,000639: 37,3620 13570 TCF REPIP4 # Z DONE, GO DO CDUS
037769,000640: 37,3621 13624 TCF +3 # Z NOT DONE, CHECK Y.
037770,000641: 37,3622 13570 TCF REPIP4
037771,000642: 37,3623 13570 TCF REPIP4
037772,000643:
037773,000644: 37,3624 22007 ZL
037774,000645: 37,3625 10326 CCS DELVY
037775,000646: 37,3626 13631 TCF +3
037776,000647: 37,3627 13640 TCF CHKTEMX # Y NOT DONE, CHECK X.
037777,000648: 37,3630 13631 TCF +1
037778,000649: 37,3631 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
037779,000650:
037780,000651: 37,3632 11255 CCS TEMZ
037781,000652: 37,3633 41255 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
037782,000653: 37,3634 13567 TCF DODELVZ
037783,000654: 37,3635 13633 TCF -2
037784,000655: 37,3636 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
037785,000656: 37,3637 13570 TCF REPIP4
037786,000657:
037787,000658: 37,3640 11253 CHKTEMX CCS TEMX # HAS THIS CHANGED
037788,000659: 37,3641 41253 CS TEMX # YES
037789,000660: 37,3642 13645 TCF +3 # YES
037790,000661: 37,3643 13641 TCF -2 # YES
037791,000662: 37,3644 13556 TCF REPIP1 # NO
037792,000663: 37,3645 54324 TS DELVX
037793,000664:
037794,000665: 37,3646 41254 CS TEMY
037795,000666: 37,3647 54326 TS DELVY
037796,000667:
037797,000668: 37,3650 44755 CS ZERO # ZERO X AND Y PIPS
037798,000669: 37,3651 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
037799,000670:
037800,000671: 37,3652 13564 TCF REPIP3
037801,000672:
037802,000673: 37,3653 03440 DONEADR GENADR PIPSDONE
037803,000674:
|
|
Page 876
|
037805,000676: 33,2364 BANK 33
037806,000677: 33,2000 SETLOC SERVICES
037807,000678: 33,2000 BANK
037808,000679:
037809,000680: 33,2364 COUNT* $$/SERV
037810,000681:
037811,000682: 33,2364 31155 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM
037812,000683: 33,2365 54765 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON-
037813,000684: 33,2366 31156 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR.
037814,000685: 33,2367 54767 TS CDUSPOTZ
037815,000686: 33,2370 31154 CA CDUTEMPX
037816,000687: 33,2371 54771 TS CDUSPOTX
037817,000688: 33,2372 00002 TC Q
037818,000689:
037819,000690: 33,2373 BANK 33
037820,000691: 33,2000 SETLOC SERVICES
037821,000692: 33,2000 BANK
037822,000693:
037823,000694: 33,2373 COUNT* $$/SERV
037824,000695:
037825,000696: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
037826,000697: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
037827,000698: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR
037828,000699: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS
037829,000700: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
037830,000701: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
037831,000702:
037832,000703: 33,2373 05364 HIGATASK TC PHASCHNG
037833,000704: 33,2374 00051 OCT 51
037834,000705:
037835,000706: 33,2375 37723 CA PRIO32
037836,000707: 33,2376 05105 TC FINDVAC
037837,000708: 33,2377 E7,1654 EBANK= HMEAS
037838,000709: 33,2377 03505 66067 2CADR HIGATJOB
037839,000710:
037840,000711: 33,2401 40107 CS FLGWRD11
037841,000712: 33,2402 75015 MASK PRIO3
037842,000713: 33,2403 26107 ADS FLGWRD11
037843,000714: 33,2404 12477 TCF CONTSERV +1
037844,000715:
|
|
Page 877
|
037846,000717: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
037847,000718:
037848,000719: 33,2405 77776 MUNRETRN EXIT
037849,000720:
037850,000721: 33,2406 40107 CS FLGWRD11
037851,000722: 33,2407 74735 MASK LRBYBIT
037852,000723: 33,2410 00006 EXTEND
037853,000724: 33,2411 12502 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET.
037854,000725:
037855,000726: 33,2412 40107 CS FLGWRD11 # CHECK IF AT 30000 FT
037856,000727: 33,2413 74743 MASK XORFLBIT
037857,000728: 33,2414 00006 EXTEND
037858,000729: 33,2415 12427 BZF LROFF?
037859,000730:
037860,000731: 33,2416 00006 30KCHK EXTEND
037861,000732: 33,2417 33023 DCA 1-30KFT
037862,000733: 33,2420 20155 DAS MPAC # HCALC IS STILL IN MPAC FROM RVBOTH
037863,000734:
037864,000735: 33,2421 10000 CCS A
037865,000736: 33,2422 12441 TCF R12 # ALTITUDE > 30KFT
037866,000737: 33,2423 05515 TC UPFLAG # ALTITUDE < 30KFT SET X-AXIS OVERRIDE
037867,000738: 33,2424 00311 ADRES XOVINFLG
037868,000739: 33,2425 05515 TC UPFLAG
037869,000740: 33,2426 00253 ADRES XORFLG
037870,000741:
037871,000742: 33,2427 31534 LROFF? CA HCALC
037872,000743: 33,2430 00006 EXTEND # IF HIGH ORDER PART ZERO, H < 3000 FT,
037873,000744: 33,2431 12433 BZF +2 # SO MAKE CUTOFF TEST
037874,000745: 33,2432 12441 TCF R12
037875,000746: 33,2433 41535 CS HCALC +1
037876,000747: 33,2434 61451 AD HLROFF
037877,000748: 33,2435 00006 EXTEND
037878,000749: 33,2436 62441 BZMF R12 # IF H < HLROFF, RESET LR PERMIT FLAG
037879,000750: 33,2437 05527 TC DOWNFLAG
037880,000751: 33,2440 00254 ADRES LRINH
037881,000752:
037882,000753: 33,2441 40107 R12 CS FLGWRD11
037883,000754: 33,2442 74742 MASK NOLRRBIT
037884,000755: 33,2443 00006 EXTEND
037885,000756: 33,2444 12476 BZF CONTSERV
037886,000757:
037887,000758: 33,2445 34776 POSTST CA BITS6+7 # TEST LANDING RADAR POSITION DISCRETES
037888,000759: 33,2446 00006 EXTEND
037889,000760: 33,2447 02033 RAND CHAN33
037890,000761: 33,2450 00006 EXTEND
037891,000762: 33,2451 74742 MP BIT10 # SHIFT BITS 6+7 TO BITS 1+2
037892,000763:
037893,000764: 33,2452 50000 INDEX A
037894,000765: 33,2453 12454 TCF +1
037895,000766: 33,2454 12457 TCF 511? # A = 0 - BOTH DISCRETES PRESENT
|
|
Page 878
|
037897,000768: 33,2455 12466 TCF POSCHNG? # A = 1 - POSITION 2
037898,000769: 33,2456 12466 TCF POSCHNG? # A = 2 - POSITION 1
037899,000770: 33,2457 11622 511? CCS 511CTR # IF CONDITION PERSISTS FOR FIVE
037900,000771: 33,2460 12464 TCF ST511CTR # CONSECUTIVE PASSES,ISSUE 511 ALARM
037901,000772: 33,2461 05600 TC ALARM
037902,000773: 33,2462 00511 OCT 511
037903,000774: 33,2463 44755 CS ZERO # SET CTR TO -0 TO BYPASS ALARM
037904,000775: 33,2464 55622 ST511CTR TS 511CTR
037905,000776: 33,2465 12476 TCF CONTSERV
037906,000777: 33,2466 54001 POSCHNG? TS L
037907,000778: 33,2467 34751 CA FOUR # SET 511CTR TO RE-ENABLE 511 ALARM
037908,000779: 33,2470 55622 TS 511CTR
037909,000780: 33,2471 23650 LXCH LRPOS # UPDATE LRPOS
037910,000781: 33,2472 41650 CS LRPOS # COMPARE OLD AND NEW POSITIONS
037911,000782: 33,2473 60001 AD L
037912,000783: 33,2474 00006 EXTEND # IF OLDPOS = NEWPOS,
037913,000784: 33,2475 13025 BZF UPDATCHK # TRY TO UPDATE WITH LR DATA
037914,000785:
037915,000786: 33,2476 00004 CONTSERV INHINT
037916,000787: 33,2477 43021 CS BITS4-7
037917,000788: 33,2500 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES.
037918,000789: 33,2501 54107 TS FLGWRD11
037919,000790:
|
|
Page 879
|
037921,000792: 33,2502 03417 COPYCYC1 TC QUIKFAZ5
037922,000793:
037923,000794: 33,2503 06042 TC INTPRET # INTPRET DOES A RELINT.
037924,000795: 33,2504 51575 VLOAD ABVAL # MPAC = ABVAL( NEW SM. POSITION VECTOR )
037925,000796: 33,2505 03573 R1S
037926,000797: 33,2506 45206 PUSH DSU # (2)
037927,000798: 33,2507 02301 /LAND/
037928,000799: 33,2510 03535 STORE HCALC # NEW HCALC*2(24)M.
037929,000800: 33,2511 03775 STORE HCALC1
037930,000801: 33,2512 47075 DMPR RTB
037931,000802: 33,2513 26100 ALTCONV
037932,000803: 33,2514 21613 SGNAGREE
037933,000804: 33,2515 27742 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS.
037934,000805: 33,2516 03537 UNIT/R/
037935,000806: 33,2517 53435 VXV UNIT
037936,000807: 33,2520 03720 UHYP
037937,000808: 33,2521 27726 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10.
037938,000809: 33,2522 03573 R1S
037939,000810: 33,2523 60505 VXM VSR4
037940,000811: 33,2524 01732 REFSMMAT
037941,000812: 33,2525 27545 STOVL RN1 # TEMP. REF. POSITION VECTOR*2(29)M.
037942,000813: 33,2526 03601 V1S
037943,000814: 33,2527 76505 VXM VSL1
037944,000815: 33,2530 01732 REFSMMAT
037945,000816: 33,2531 27553 STOVL VN1 # TEMP. REF. VELOCITY VECTOR*2(7)M/CS.
037946,000817: 33,2532 03537 UNIT/R/
037947,000818: 33,2533 51435 VXV ABVAL
|
|
Page 872
|
037949,000820: 33,2534 03601 V1S
037950,000821: 33,2535 63552 SL1 DSQ
037951,000822: 33,2536 77671 DDV
037952,000823: 33,2537 47075 DMPR RTB
037953,000824: 33,2540 26102 ARCONV1
037954,000825: 33,2541 21613 SGNAGREE
037955,000826: 33,2542 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC
037956,000827: 33,2543 00004 INHINT
037957,000828: 33,2544 31536 CA UNIT/R/ # UPDATE RUNIT FOR R10.
037958,000829: 33,2545 55743 TS RUNIT
037959,000830: 33,2546 31540 CA UNIT/R/ +2
037960,000831: 33,2547 55744 TS RUNIT +1
037961,000832: 33,2550 31542 CA UNIT/R/ +4
037962,000833: 33,2551 55745 TS RUNIT +2
037963,000834: 33,2552 30154 CA MPAC # LOAD NEW DALTRATE FOR R10.
037964,000835: 33,2553 55716 TS DALTRATE
037965,000836:
037966,000837: 33,2554 00006 EXTEND
037967,000838: 33,2555 31573 DCA R1S
037968,000839: 33,2556 53521 DXCH R
037969,000840: 33,2557 00006 EXTEND
037970,000841: 33,2560 31575 DCA R1S +2
037971,000842: 33,2561 53523 DXCH R +2
037972,000843: 33,2562 00006 EXTEND
037973,000844: 33,2563 31577 DCA R1S +4
037974,000845: 33,2564 53525 DXCH R +4
037975,000846: 33,2565 00006 EXTEND
037976,000847: 33,2566 31601 DCA V1S
037977,000848: 33,2567 53527 DXCH V
037978,000849: 33,2570 00006 EXTEND
037979,000850: 33,2571 31603 DCA V1S +2
037980,000851: 33,2572 53531 DXCH V +2
037981,000852: 33,2573 00006 EXTEND
037982,000853: 33,2574 31605 DCA V1S +4
037983,000854: 33,2575 53533 DXCH V +4
037984,000855:
037985,000856: 33,2576 12214 TCF COPYCYCL # COMPLETE THE COYPCYCL.
037986,000857:
|
|
Page 882
|
037988,000859: # *********************************************************************************************************
037989,000860:
037990,000861: 33,2577 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18)
037991,000862: 33,2600 03537 STORE UNIT/R/
037992,000863: 33,2601 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
037993,000864: 33,2602 02777 RTX2
037994,000865: 33,2603 03000 RTX2
037995,000866: 33,2604 50076 DCOMP BMN
037996,000867: 33,2605 66634 CALCGRV1
037997,000868: 33,2606 50375 VLOAD DOT # (12)
037998,000869: 33,2607 06512 UNITZ
037999,000870: 33,2610 03537 UNIT/R/
038000,000871: 33,2611 41552 SL1 PUSH # (14)
038001,000872: 33,2612 44316 DSQ BDSU
038002,000873: 33,2613 26676 DP1/20
038003,000874: 33,2614 56325 PDDL DDV
038004,000875: 33,2615 26112 RESQ
038005,000876: 33,2616 00043 34D # (RN)SQ
038006,000877: 33,2617 00041 STORE 32D # TEMP FOR (RE/RN)SQ
038007,000878: 33,2620 41205 DMP DMP
038008,000879: 33,2621 26114 20J
038009,000880: 33,2622 65361 VXSC PDDL
038010,000881: 33,2623 03537 UNIT/R/
038011,000882: 33,2624 41205 DMP DMP
038012,000883: 33,2625 26116 2J
038013,000884: 33,2626 00041 32D
038014,000885: 33,2627 76561 VXSC VSL1
038015,000886: 33,2630 06512 UNITZ
038016,000887: 33,2631 45455 VAD STADR
038017,000888: 33,2632 74256 STORE UNITGOBL
038018,000889: 33,2633 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18)
038019,000890: 33,2634 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN
038020,000891: 33,2635 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR
038021,000892: 33,2636 00050 X2 # MAXIMUM PRECISION.
038022,000893: 33,2637 53663 BDDV* SLR*
038023,000894: 33,2640 26104 -MUDT,1
038024,000895: 33,2641 56623 0 -21D,2
038025,000896: 33,2642 45561 VXSC STADR
038026,000897: 33,2643 74214 STORE GDT1/2 # SCALED AT 2(+7) M/CS
038027,000898: 33,2644 77616 RVQ
038028,000899:
038029,000900: 33,2645 61375 CALCRVG VLOAD VXM
038030,000901: 33,2646 00325 DELV
038031,000902: 33,2647 01732 REFSMMAT
038032,000903: 33,2650 76561 VXSC VSL1
038033,000904: 33,2651 26074 KPIP1
038034,000905: 33,2652 03527 STORE DELVREF
038035,000906: 33,2653 41562 VSR1 PUSH
038036,000907: 33,2654 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
|
|
Page 883
|
038038,000909: 33,2655 01236 GDT/2
038039,000910: 33,2656 65255 VAD PDDL # (18)
038040,000911: 33,2657 01226 VN
038041,000912: 33,2660 01247 PGUIDE
038042,000913: 33,2661 74261 SL VXSC
038043,000914: 33,2662 20207 6D
038044,000915: 33,2663 44055 VAD STQ
038045,000916: 33,2664 01220 RN
038046,000917: 33,2665 00037 31D
038047,000918: 33,2666 37545 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
038048,000919: 33,2667 66577 CALCGRAV
038049,000920:
038050,000921: 33,2670 53255 VAD VAD
038051,000922: 33,2671 77655 VAD
038052,000923: 33,2672 01226 VN
038053,000924: 33,2673 37553 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7)M/CS
038054,000925: 33,2674 00037 31D
038055,000926:
038056,000927: 33,2675 01463 06315 DP1/20 2DEC 0.05
038057,000928:
038058,000929: 33,2677 00010 00000 SHIFT11 2DEC 1 B-11
038059,000930:
|
|
Page 884
|
038061,000932: # ****************************************************************************************************************
038062,000933:
038063,000934: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
038064,000935: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
038065,000936: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
038066,000937: # COORDINATE SYSTEM.
038067,000938:
038068,000939: 33,2701 41575 RVBOTH VLOAD PUSH
038069,000940: 33,2702 02265 G(CSM) # CSM GDT1/2 FOR LAST PASS.
038070,000941: 33,2703 65255 VAD PDDL
038071,000942: 33,2704 01724 V(CSM)
038072,000943: 33,2705 01247 PGUIDE
038073,000944: 33,2706 74271 DDV VXSC
038074,000945: 33,2707 26700 SHIFT11
038075,000946: 33,2710 77655 VAD
038076,000947: 33,2711 01716 R(CSM)
038077,000948: 33,2712 37573 STCALL R1S # = RCSM + PGUIDE(VCSM + GCSM) AT 2(+24)M.
038078,000949: 33,2713 67000 MUNGRAV # COMPUTE LUNAR GRAVITY AT CSM ALTITUDE.
038079,000950: 33,2714 53255 VAD VAD
038080,000951: 33,2715 01724 V(CSM)
038081,000952: 33,2716 77626 STADR
038082,000953: 33,2717 74176 STORE V1S # = VCSM + GCSM + GDT1/2 AT 2(+7)M/CS.
038083,000954: 33,2720 77776 EXIT
038084,000955: 33,2721 03417 TC QUIKFAZ5
038085,000956: 33,2722 06042 TC INTPRET
038086,000957: 33,2723 77775 VLOAD # FOR RESTART PURPOSES.
038087,000958: 33,2724 03563 GDT1/2
038088,000959: 33,2725 26265 STOVL G(CSM)
038089,000960: 33,2726 03573 R1S
038090,000961: 33,2727 25716 STOVL R(CSM)
038091,000962: 33,2730 03601 V1S
038092,000963: 33,2731 01724 STORE V(CSM)
038093,000964: 33,2732 77776 EXIT
038094,000965: 33,2733 03417 TC QUIKFAZ5
038095,000966: 33,2734 06042 TC INTPRET
038096,000967: 33,2735 74375 MUNRVG VLOAD VXSC
038097,000968: 33,2736 00325 DELV
038098,000969: 33,2737 26076 KPIP2
038099,000970: 33,2740 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS
038100,000971: 33,2741 01236 GDT/2
038101,000972: 33,2742 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
038102,000973: 33,2743 03527 V # (12)
038103,000974: 33,2744 56325 PDDL DDV
038104,000975: 33,2745 01247 PGUIDE
038105,000976: 33,2746 26700 SHIFT11
038106,000977: 33,2747 77761 VXSC
038107,000978: 33,2750 77655 VAD
038108,000979: 33,2751 03521 R # LM POSITION VECTOR AT 2(24)M.
038109,000980: 33,2752 37573 STCALL R1S # = R + PGUIDE(V + DELV + GDT1/2).
038110,000981: 33,2753 67000 MUNGRAV
|
|
Page 885
|
038112,000983: 33,2754 53255 VAD VAD
038113,000984: 33,2755 77655 VAD # (0)
038114,000985: 33,2756 03527 V # LM VELOCITY VECTOR AT 2(+7)M/CS.
038115,000986: 33,2757 03601 STORE V1S # = V + GDT1/2 + DELV
038116,000987: 33,2760 77646 ABVAL
038117,000988: 33,2761 27472 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS.
038118,000989: 33,2762 03537 UNIT/R/
038119,000990: 33,2763 72441 DOT SL1
038120,000991: 33,2764 03601 V1S
038121,000992: 33,2765 27474 STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7) M/CS.
038122,000993: 33,2766 03573 R1S
038123,000994: 33,2767 72435 VXV VSL2
038124,000995: 33,2770 02273 WM
038125,000996: 33,2771 17734 STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5)M/CS.
038126,000997: 33,2772 00045 36D
038127,000998: 33,2773 47025 DSU RTB
038128,000999: 33,2774 02301 /LAND/
038129,001000: 33,2775 21613 SGNAGREE
038130,001001: 33,2776 37535 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG
038131,001002: 33,2777 66405 MUNRETRN # GO TO LR UPDATES ROUTINE, R12.
038132,001003:
038133,001004: 33,3000 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R
038134,001005: 33,3001 17537 STODL UNIT/R/
038135,001006: 33,3002 00043 34D
038136,001007: 33,3003 55261 SL BDDV
038137,001008: 33,3004 20207 6D
038138,001009: 33,3005 26110 -MUDTMUN
038139,001010: 33,3006 74205 DMP VXSC
038140,001011: 33,3007 26700 SHIFT11
038141,001012: 33,3010 03537 UNIT/R/
038142,001013: 33,3011 03563 STORE GDT1/2 # 1/2GDT SCALED AT 2(7)M/CS.
038143,001014: 33,3012 77616 RVQ
038144,001015:
038145,001016: 33,3013 4776 BITS6+7 EQUALS SUPER110 # LR POSITION DISCRETES
038146,001017: 33,3013 00014 20000 2SEC(18) 2DEC 200 B-18
038147,001018:
038148,001019: 33,3015 00000 00310 2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28)
038149,001020:
038150,001021: 33,3017 00000 00620 4SEC(28) 2DEC 400 B-28
038151,001022:
038152,001023: 33,3021 00110 BITS4-7 OCT 110
038153,001024: 33,3022 37767 02200 1-30KFT 2DEC 16768072 B-24 # DPPOSMAX-30KFT
038154,001025:
038155,001026: 33,3024 00102 66DEC DEC 66 B-14
038156,001027:
|
|
Page 886
|
038158,001029: 33,3025 34750 UPDATCHK CA RNGEDBIT # SEE IF ALT READING MADE
|
|
RNGEDBIT in the above line is circled
|
038160,001031: 33,3026 70107 MASK FLGWRD11
038161,001032: 33,3027 00006 EXTEND
038162,001033: 33,3030 13214 BZF VMEASCHK # NO ALT MEAS THIS CYCLE-CHECK FOR VEL
038163,001034:
038164,001035: 33,3031 03417 POSUPDAT TC QUIKFAZ5
038165,001036: 33,3032 03425 TC POSINDEX # SET X1 TO PROPER POSITION AND ZERO PLIST
038166,001037: 33,3033 06042 TC INTPRET
038167,001038: 33,3034 61373 VLOAD* VXM
038168,001039: 33,3035 26003 HBEAMNB,1
038169,001040: 33,3036 02146 XNBPIP # HBEAM SM AT 2(1)
038170,001041: 33,3037 54325 PDDL SL # STORE IN PUSHLIST AND SCALE HMEAS
038171,001042: 33,3040 03655 HMEAS
038172,001043: 33,3041 20207 6D
038173,001044: 33,3042 74205 DMP VXSC # SLANT RANGE AT 2(22),PUSH UP FOR HBEAM
038174,001045: 33,3043 26063 HSCAL # TO GET SLANT RANGE VECTOR AT 2(23) M
038175,001046: 33,3044 50206 PUSH DOT # PUSH NEG OF RADAR ALTITUDE BEAM VECTOR
038176,001047: 33,3045 03537 UNIT/R/ # ALTITUDE AT 2(24) METERS
038177,001048: 33,3046 65225 DSU PDDL # PUSH PARTIAL DELTA H, LOAD NEG OF BEAM Z
038178,001049: 33,3047 03535 HCALC
038179,001050:
|
|
At the end of the 2nd divider below, the suffixed ':' was an '=' in the
original printout. The replacement is a workaround for our proof-reading
system.
|
038183,001054: # ========================================================================
038184,001055: # TERRAIN MODEL
038185,001056: # =======================================================================:
038186,001057:
038187,001058: 33,3050 43342 SR1 DAD
038188,001059: 33,3051 03641 LAND +4
038189,001060: 33,3052 54221 BDSU SL # SCALE RANGE TO UNITS OF 2(18) METERS
038190,001061: 33,3053 03577 R1S +4
038191,001062: 33,3054 20207 6D
038192,001063: 33,3055 77404 BOVB EXIT
038193,001064: 33,3056 21713 SIGNMPAC # PICK UP NEGMAX UPON OVERFLOW
038194,001065:
038195,001066: 33,3057 40075 CS FLAGWRD1 # IS NOTERFLG SET (BY P66 OR V68)?
038196,001067: 33,3060 74741 MASK NOTERBIT
038197,001068: 33,3061 00006 EXTEND
038198,001069: 33,3062 13120 BZF TERSKIP # Y: SKIP TERRAIN BUT TRANSFER DELTA H
038199,001070:
038200,001071: 33,3063 35014 CA EBANK5 # N: PREPARE TO ACCESS TERRAIN TABLE
038201,001072: 33,3064 54003 TS EBANK
038202,001073: 33,3065 E5,1774 EBANK= END-E5
038203,001074:
038204,001075: 33,3065 34755 CA ZERO # INITIALIZE MINUS LAST ABSCISSA FOR
038205,001076: 33,3066 54142 TS TEM2 # TERLOOP WHICH ADDS THE CONTRIBUTIONS
038206,001077: 33,3067 34751 CA FOUR # OF FIVE TERRAIN SEGMENTS TO DELTA H
038207,001078: 33,3070 54145 TERLOOP TS TEM5
|
|
Page 887
|
038209,001080: 33,3071 30154 CA MPAC # PICK UP CURRENT RANGE (NEG BEFORE SITE)
038210,001081: 33,3072 54001 TS L
038211,001082: 33,3073 50145 INDEX TEM5
038212,001083: 33,3074 41522 CS ABSC0 # TERRAIN ABSCISSAE UNITS: 2(18) METERS
038213,001084: 33,3075 04616 TC BANKCALL # LIMIT GIVEN LIMITSUB MUST BE POSITIVE
038214,001085: 33,3076 61712 FCADR LIMITSUB # LIMIT |RANGE| <= |CURRENT ABSCISSA|
038215,001086: 33,3077 54144 TS TEM4 # SAVE TO COMPARE WITH CURRENT ABSCISSA
038216,001087:
038217,001088: 33,3100 60142 AD TEM2 # SUBTRACT LAST ABSCISSA
038218,001089: 33,3101 00006 EXTEND
038219,001090: 33,3102 50145 INDEX TEM5
038220,001091: 33,3103 71527 MP SLOPE0 # SLOPE UNITS: 2(6) RADIANS. RESOL: 3.9 MR
038221,001092:
038222,001093: 33,3104 50120 INDEX FIXLOC # ADD CONTRIBUTION OF SEGMENT TO YIELD
038223,001094: 33,3105 20005 DAS 4 # CORRECTED DELTA H IN UNITS 2(24) METERS
038224,001095:
038225,001096: 33,3106 30141 CA TEM1 # RETRIEVE MINUS CURR ABSC FROM LIMITSUB*
038226,001097: 33,3107 54142 TS TEM2 # STORE AS MINUS LAST ABSC FOR NEXT SEG
038227,001098:
038228,001099: # * NOTE: IF WE HAVE FLOWN BEYOND THE LANDING SITE BY MORE THAN THE
038229,001100: # LENGTH OF THE SEGMENT ADJACENT TO THE LANDING SITE, CA TEM1
038230,001101: # WILL RETRIEVE - INSTEAD OF MINUS THE CURRENT ABSCISSA -
038231,001102: # A ZERO OR POSITIVE REMAINDER OF THE DIVISION DONE BY LIMITSUB.
038232,001103: # THIS RETRIEVAL WILL CAUSE AN IMMEDIATE BRANCH TO TEREND,
038233,001104: # WHICH IS THE DESIRED RESULT. HOWEVER, FLYING PAST THE LANDING
038234,001105: # SITE IS IMPOSSIBLE EXCEPT IN P66 WHEN THE TERRAIN MODEL IS OFF.
038235,001106:
038236,001107: 33,3110 60144 AD TEM4 # HAS LM FLOWN PAST CURRENT ABSCISSA?
038237,001108: 33,3111 00006 EXTEND
038238,001109: 33,3112 13114 BZF +2
038239,001110: 33,3113 13116 TCF TEREND # Y: IGNORE FURTHER ABSCISSAE
038240,001111: 33,3114 10145 CCS TEM5 # N: IS CURRENT ABSCISSA THE LAST?
038241,001112: 33,3115 13070 TCF TERLOOP # N: REPEAT TERRAIN LOOP
038242,001113:
038243,001114: 33,3116 35016 TEREND CA EBANK7 # Y: RESTORE EBANK AND DEPART
038244,001115: 33,3117 54003 TS EBANK
038245,001116: 33,3120 E7,1777 EBANK= END-E7
038246,001117:
038247,001118: 33,3120 50120 TERSKIP INDEX FIXLOC # TRANSFER COMPLETED DELTA H HOME
038248,001119: 33,3121 52005 DXCH 4 # TO BE ACCESSED BY DISPLAYS, TELEMETRY,
038249,001120: 33,3122 53665 DXCH DELTAH # AND POSITION UPDATE.
038250,001121:
038251,001122: 33,3123 30120 CA FIXLOC # RESTORE PUSHDOWN POINTER TO ZERO
038252,001123: 33,3124 54166 TS PUSHLOC
038253,001124:
|
|
Page 888
|
038255,001126: 33,3125 30107 CA FLGWRD11 # IS PSTHIBIT SET (BY HIGATASK)?
038256,001127: 33,3126 74741 MASK PSTHIBIT
038257,001128: 33,3127 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST
038258,001129: 33,3130 13150 BZF NOREASON # UNTIL AFTER HIGATE
038259,001130:
038260,001131: 33,3131 06042 TC INTPRET
038261,001132: 33,3132 51545 DLOAD ABS
038262,001133: 33,3133 03665 DELTAH
038263,001134: 33,3134 52425 DSU SL3 # ABS(DELTAH) - DQFIX
038264,001135: 33,3135 02504 DELQFIX
038265,001136: 33,3136 77425 DSU EXIT # ABS(DELTAH) - (DQFIX + HCALC/8) AT 2(21)
038266,001137: 33,3137 03535 HCALC
038267,001138:
038268,001139: 33,3140 25670 INCR LRLCTR
038269,001140: 33,3141 06726 TC BRANCH
038270,001141: 33,3142 13437 TCF HFAIL # DELTA H TOO LARGE
038271,001142: 33,3143 13437 TCF HFAIL # DELTA H TOO LARGE
038272,001143: 33,3144 05527 TC DOWNFLAG # RESET HFAIL FLAG
038273,001144: 33,3145 00247 ADRES HFAILFLG
038274,001145: 33,3146 05527 TC DOWNFLAG # TURN OFF ALT FAIL LAMP
038275,001146: 33,3147 00263 ADRES HFLSHFLG
038276,001147:
038277,001148: 33,3150 40107 NOREASON CS FLGWRD11
038278,001149: 33,3151 74744 MASK LRINHBIT
038279,001150: 33,3152 10000 CCS A
038280,001151: 33,3153 13214 TCF VMEASCHK # UPDATE INHIBITED - TEST VELOCITY ANYWAY
038281,001152:
038282,001153: 33,3154 06042 TC INTPRET
038283,001154: 33,3155 40545 POSUP DLOAD SR4
038284,001155: 33,3156 03535 HCALC # RESCALE H TO 2(28)M
038285,001156: 33,3157 77776 EXIT
038286,001157: 33,3160 00006 EXTEND
038287,001158: 33,3161 31665 DCA DELTAH # STORE DELTAH IN MPAC AND
038288,001159: 33,3162 52155 DXCH MPAC # BRING HCALC INTO A,L
038289,001160: 33,3163 07547 TC ALSIGNAG
038290,001161: 33,3164 00006 EXTEND # IF HIGH PART OF HCALC IS NON ZERO, THEN
038291,001162: 33,3165 13167 BZF +2 # HCALC > HMAX,
038292,001163: 33,3166 13214 TCF VMEASCHK # SO UPDATE IS BYPASSED
038293,001164: 33,3167 54156 TS MPAC +2 # FOR LATER SHORTMP
038294,001165:
038295,001166: 33,3170 40001 CS L # -H AT 2(14)M
038296,001167: 33,3171 61420 AD LRHMAX # HMAX - H
038297,001168: 33,3172 00006 EXTEND
038298,001169: 33,3173 63214 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE
038299,001170: 33,3174 00006 EXTEND
038300,001171: 33,3175 71421 MP LRWH # WH(HMAX - H)
038301,001172: 33,3176 00006 EXTEND
038302,001173: 33,3177 11420 DV LRHMAX # WH(1 - H/HMAX)
038303,001174: 33,3200 54135 TS MPTEMP
038304,001175: 33,3201 07316 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC
|
|
Page 889
|
038306,001177: 33,3202 06042 TC INTPRET # MODE IS DP FROM ABOVE
038307,001178: 33,3203 77752 SL1
038308,001179: 33,3204 53361 VXSC VAD
038309,001180: 33,3205 03537 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
038310,001181: 33,3206 03573 R1S
038311,001182: 33,3207 03657 STORE GNUR
038312,001183: 33,3210 77776 EXIT
038313,001184:
038314,001185: 33,3211 03417 TC QUIKFAZ5
038315,001186:
038316,001187: 33,3212 34755 CA ZERO
038317,001188: 33,3213 03401 RUPDATED TC GNURVST
038318,001189:
038319,001190: 33,3214 03417 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION
038320,001191: 33,3215 40107 CS FLGWRD11
038321,001192: 33,3216 74745 MASK VELDABIT # IS V READING AVAILABLE?
038322,001193: 33,3217 10000 CCS A
038323,001194: 33,3220 13357 TCF VALTCHK # NO SEE IF V READING TO BE TAKEN
038324,001195:
038325,001196: 33,3221 03425 VELUPDAT TC POSINDEX # SET X1 AND X2 AND ZERO PUSHLIST
038326,001197: 33,3222 41462 CS VSELECT
038327,001198: 33,3223 54001 TS L
038328,001199: 33,3224 26001 ADS L # -2 VSELECT IN L
038329,001200: 33,3225 60001 AD L
038330,001201: 33,3226 60001 AD L # -6 VSELECT IN A
038331,001202: 33,3227 50120 INDEX FIXLOC
038332,001203: 33,3230 20047 DAS X1 # X1 = -6 VSELECT(POS), X2 = -2 VSELECT
038333,001204:
038334,001205: 33,3231 06042 TC INTPRET
038335,001206: 33,3232 61373 VLOAD* VXM
038336,001207: 33,3233 26011 VZBEAMNB,1 # CONVERT PROPER VBEAM FROM NB TO SM
038337,001208: 33,3234 02146 XNBPIP # SCALED AT 2(1)
038338,001209: 33,3235 54325 PDDL SL # STORE IN PD 0-5
038339,001210: 33,3236 03653 VMEAS # LOAD VELOCITY MEASUREMENT
038340,001211: 33,3237 20215 12D
038341,001212: 33,3240 63203 DMP* PDVL # SCALE TO M/CS AT 2(6)
038342,001213: 33,3241 51712 VZSCAL,2 # AND STORE IN PD 6-7
038343,001214: 33,3242 03601 V1S # VELOCITY AT TIME OF READING
038344,001215: 33,3243 53352 VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT
038345,001216: 33,3244 03734 DELVS # MOON ROTATION.
038346,001217: 33,3245 51406 PUSH ABVAL # STORE IN PD
038347,001218: 33,3246 43202 SR4 DAD # ABS(VM)/8 + VELBIAS AT 2(6)
038348,001219: 33,3247 02401 VELBIAS
|
|
Page 890
|
038350,001221: 33,3250 24025 STOVL 20D # STORE IN 20D AND PICK UP VM
038351,001222: 33,3251 44241 DOT BDSU
038352,001223: 33,3252 00001 0 # DELTAV = VMEAS - V(EST)
038353,001224: 33,3253 51406 PUSH ABS
038354,001225: 33,3254 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8))
038355,001226: 33,3255 00025 20D
038356,001227:
038357,001228: 33,3256 25672 INCR LRMCTR
038358,001229: 33,3257 06726 TC BRANCH
038359,001230: 33,3260 13456 TCF VFAIL # DELTA V TOO LARGE ALARM
038360,001231: 33,3261 13456 TCF VFAIL # DELTA V TOO LARGE ALARM
038361,001232:
038362,001233: 33,3262 05527 TC DOWNFLAG # RESET HFAIL FLAG
038363,001234: 33,3263 00246 ADRES VFAILFLG
038364,001235: 33,3264 05527 TC DOWNFLAG # TURN OFF VEL FAIL LAMP
038365,001236: 33,3265 00262 ADRES VFLSHFLG
|
|
The above line is circled.
|
038367,001238:
038368,001239: 33,3266 30107 CA FLGWRD11
038369,001240: 33,3267 74740 MASK VXINHBIT
038370,001241: 33,3270 00006 EXTEND
038371,001242: 33,3271 13300 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA.
038372,001243:
038373,001244: 33,3272 05527 TC DOWNFLAG
038374,001245: 33,3273 00250 ADRES VXINH # RESET VX INHIBIT
038375,001246:
038376,001247: 33,3274 31462 CA VSELECT
038377,001248: 33,3275 67751 AD NEG2 # IF VSELECT = 2 (X AXIS),
038378,001249: 33,3276 00006 EXTEND # BYPASS UPDATE
038379,001250: 33,3277 13357 BZF ENDVDAT
038380,001251:
038381,001252: 33,3300 40107 VUPDAT CS FLGWRD11
038382,001253: 33,3301 74744 MASK LRINHBIT
038383,001254: 33,3302 10000 CCS A
038384,001255: 33,3303 13357 TCF VALTCHK # UPDATE INHIBITED
038385,001256:
038386,001257: 33,3304 54155 TS MPAC +1
038387,001258:
038388,001259: 33,3305 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS
038389,001260: 33,3306 54130 TS ABVEL*
038390,001261: 33,3307 31462 CA VSELECT
038391,001262: 33,3310 54131 TS VSELECT*
038392,001263: 33,3311 35014 CA EBANK5
038393,001264: 33,3312 54003 TS EBANK # CHANGE EBANKS
038394,001265:
038395,001266: 33,3313 E5,1512 EBANK= LRVF
038396,001267: 33,3313 41512 CS LRVF
038397,001268: 33,3314 60130 AD ABVEL* # IF V < VF, USE WVF
038398,001269: 33,3315 00006 EXTEND
038399,001270: 33,3316 63331 BZMF USEVF
038400,001271:
|
|
Page 891
|
038402,001273: 33,3317 40130 CS ABVEL*
038403,001274: 33,3320 61511 AD LRVMAX # VMAX - V
038404,001275: 33,3321 00006 EXTEND
038405,001276: 33,3322 63334 BZMF WSTOR -1 # IF V > VMAX, W = 0
038406,001277:
038407,001278: 33,3323 00006 EXTEND
038408,001279: 33,3324 50131 INDEX VSELECT*
038409,001280: 33,3325 71513 MP LRWVZ # WV(VMAX - V)
038410,001281:
038411,001282: 33,3326 00006 EXTEND
038412,001283: 33,3327 11511 DV LRVMAX # WV( 1 - V/VMAX )
038413,001284: 33,3330 13335 TCF WSTOR
038414,001285:
038415,001286: 33,3331 50131 USEVF INDEX VSELECT*
038416,001287: 33,3332 31516 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
038417,001288: 33,3333 13335 TCF WSTOR
038418,001289:
038419,001290: 33,3334 34755 -1 CA ZERO
038420,001291: 33,3335 54154 WSTOR TS MPAC
038421,001292: 33,3336 44745 CS BIT7 # (=64D)
038422,001293: 33,3337 61010 AD MODREG
038423,001294: 33,3340 00006 EXTEND
038424,001295: 33,3341 63344 BZMF GETGNUV # IF IN P66 USE ANOTHER CONSTANT
038425,001296: 33,3342 31521 CA LRWVFF
038426,001297: 33,3343 54154 TS MPAC
038427,001298:
038428,001299: 33,3344 35016 GETGNUV CA EBANK7
038429,001300: 33,3345 54003 TS EBANK # CHANGE EBANKS
038430,001301:
038431,001302: 33,3346 E7,1471 EBANK= ABVEL
038432,001303: 33,3346 06042 TC INTPRET
038433,001304: 33,3347 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5
038434,001305: 33,3350 77655 VAD
038435,001306: 33,3351 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY
038436,001307: 33,3352 03657 STORE GNUV
038437,001308: 33,3353 77776 EXIT
038438,001309:
038439,001310: 33,3354 03417 TC QUIKFAZ5 # DO NOT RE-UPDATE
038440,001311:
038441,001312: 33,3355 36245 CA SIX
038442,001313: 33,3356 03401 VUPDATED TC GNURVST # STORE NEW VELOCITY VECTOR
038443,001314: 33,3357 33,3357 ENDVDAT = VALTCHK
038444,001315:
038445,001316: 33,3357 03417 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE
038446,001317:
038447,001318: 33,3360 40107 HIGATCHK CS FLGWRD11 # IS PSTHIBIT SET (BY HIGATASK)?
038448,001319: 33,3361 74741 MASK PSTHIBIT
038449,001320: 33,3362 00006 EXTEND
038450,001321: 33,3363 12476 BZF CONTSERV # YES: BYPASS HIGATE CHECK
038451,001322:
|
|
Page 892
|
038453,001324: 33,3364 31642 CA TTF/8
038454,001325: 33,3365 61427 AD RPCRTIME
038455,001326: 33,3366 00006 EXTEND
038456,001327: 33,3367 62476 BZMF CONTSERV
038457,001328:
038458,001329: 33,3370 34741 CA EBANK4
038459,001330: 33,3371 56003 XCH EBANK
038460,001331: 33,3372 54001 TS L
038461,001332:
038462,001333: 33,3373 E4,1545 EBANK= XNBPIP
038463,001334: 33,3373 41545 CS XNBPIP
038464,001335: 33,3374 E7,1515 EBANK= DVCNTR
038465,001336: 33,3374 22003 LXCH EBANK
038466,001337: 33,3375 61430 AD RPCRTQSW
038467,001338: 33,3376 00006 EXTEND
038468,001339: 33,3377 62373 BZMF HIGATASK
038469,001340: 33,3400 12476 TCF CONTSERV
038470,001341:
038471,001342:
038472,001343: 33,3401 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
038473,001344: 33,3402 00006 EXTEND # A = 0 FOR R, A = 6 FOR V
038474,001345: 33,3403 31657 DCA GNUR
038475,001346: 33,3404 50130 INDEX BUF
038476,001347: 33,3405 53573 DXCH R1S
038477,001348: 33,3406 00006 EXTEND
038478,001349: 33,3407 31661 DCA GNUR +2
038479,001350: 33,3410 50130 INDEX BUF
038480,001351: 33,3411 53575 DXCH R1S +2
038481,001352: 33,3412 00006 EXTEND
038482,001353: 33,3413 31663 DCA GNUR +4
038483,001354: 33,3414 50130 INDEX BUF
038484,001355: 33,3415 53577 DXCH R1S +4
038485,001356: 33,3416 00002 TC Q
038486,001357:
038487,001358:
038488,001359: 33,3417 35007 QUIKFAZ5 CA EBANK3
038489,001360: 33,3420 56003 XCH EBANK # SET EBANK 3
038490,001361: 33,3421 52002 DXCH L # Q TO A, A TO L
038491,001362: 33,3422 E3,1446 EBANK= PHSNAME5
038492,001363: 33,3422 55446 TS PHSNAME5
038493,001364: 33,3423 22003 LXCH EBANK
038494,001365: 33,3424 E7,1515 EBANK= DVCNTR
038495,001366: 33,3424 00000 TC A
038496,001367:
038497,001368:
038498,001369: 33,3425 30120 POSINDEX CA FIXLOC # SET PUSHLIST TO ZERO
038499,001370: 33,3426 54166 TS PUSHLOC
038500,001371:
038501,001372: 33,3427 34753 CA BIT1
038502,001373: 33,3430 71650 MASK LRPOS # *NOTE - LRPOS = 1 FOR POS 2 & VICE VERSA
|
|
Page 893
|
038504,001375: 33,3431 10000 CCS A
038505,001376: 33,3432 44763 CS OCT30 # POS 2 , INDEX = -24D
038506,001377: 33,3433 22007 ZL # POS 1 , INDEX = 0 , X2 = 0 FOR BOTH
038507,001378: 33,3434 50120 INDEX FIXLOC
038508,001379: 33,3435 52047 DXCH X1 # SET X1,X2
038509,001380: 33,3436 00002 TC Q
038510,001381: 33,3437 05515 HFAIL TC UPFLAG # SET HFAIL FLAG FOR DOWNLINK
038511,001382: 33,3440 00247 ADRES HFAILFLG
038512,001383: 33,3441 41671 CS LRRCTR
038513,001384: 33,3442 00006 EXTEND
038514,001385: 33,3443 13453 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
038515,001386: 33,3444 61670 AD LRLCTR
038516,001387: 33,3445 77750 MASK NEG3
038517,001388: 33,3446 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL
038518,001389: 33,3447 13451 BZF +2
038519,001390: 33,3450 13453 TCF NORLITE
038520,001391:
038521,001392: 33,3451 05515 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
038522,001393: 33,3452 00263 ADRES HFLSHFLG
038523,001394:
038524,001395: 33,3453 31670 NORLITE CA LRLCTR
038525,001396: 33,3454 55671 TS LRRCTR # SET R = L
038526,001397:
038527,001398: 33,3455 13214 TCF VMEASCHK
038528,001399:
038529,001400: 33,3456 05515 VFAIL TC UPFLAG
038530,001401: 33,3457 00246 ADRES VFAILFLG # SET VFAIL FLAG FOR DOWNLINK
|
|
The above instruction and address are circled in red.
|
038532,001403: 33,3460 41673 CS LRSCTR
038533,001404: 33,3461 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
038534,001405: 33,3462 13472 BZF NOLITE
038535,001406: 33,3463 61672 AD LRMCTR # M-S
038536,001407: 33,3464 77750 MASK NEG3 # TEST FOR M-S > 3
038537,001408: 33,3465 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE
|
|
In the above comment, "THEN TWO ORE MORE OF THE" is crossed out in green.
|
038539,001410: 33,3466 13470 BZF +2 # LAST FOUR V READINGS WERE BAD,
|
|
In the above comment, a 3 has been written over FOUR, and "BAD," has been crossed out
with "GOOD," written next to it.
|
038542,001413: 33,3467 13472 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
|
|
"DON'T" is written under "SO TURN", indicating the line should read "SO DON'T TURN ON..."
|
038544,001415:
038545,001416: 33,3470 05515 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
038546,001417: 33,3471 00262 ADRES VFLSHFLG
|
|
The above instruction and address are circled.
|
038548,001419:
038549,001420: 33,3472 31672 NOLITE CA LRMCTR # SET S = M
038550,001421: 33,3473 55673 TS LRSCTR
038551,001422:
038552,001423: 33,3474 11462 CCS VSELECT # TEST FOR Z COMPONENT
038553,001424: 33,3475 13357 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT
038554,001425:
038555,001426: 33,3476 05515 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X
038556,001427: 33,3477 00250 ADRES VXINH # COMPONENT,AS ERROR MAY BE DUE TO CROSS
038557,001428: 33,3500 13357 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS.
038558,001429:
|
|
Page 894
|
038560,001431: # ********************************************************************************************************
038561,001432: 33,3501 BANK 33
038562,001433: 33,2000 SETLOC SERVICES
038563,001434: 33,2000 BANK
038564,001435:
038565,001436: 33,3501 COUNT* $$/SERV
038566,001437:
038567,001438: 33,3501 E7,1515 EBANK= DVCNTR
038568,001439:
038569,001440:
038570,001441: # HIGATJOB IS BEGUN WHEN BOTH THE TIME AND ANGLE CRITERIA FOR ANTENNA REPOSITIONING ARE MET. THE JOB INITIATES THE
038571,001442: # LANDING RADAR ANTENNA REPOSITIONING ROUTINE. DURING THE REPOSITIONING, R12 IS INHIBITTED BY THE NOLRREAD FLAG.
038572,001443: # UPON COMPLETION OF THE REPOSITIONING,(SUCCESSFUL OR NOT),THE NOLRREAD FLAG IS CLEARED AND R12 CONTINUES.
038573,001444:
038574,001445:
038575,001446: 33,3501 00004 REREPOS INHINT # ON RESTART, SET FLAGS AGAIN
038576,001447: 33,3502 40107 CS FLGWRD11
038577,001448: 33,3503 75015 MASK PRIO3
038578,001449: 33,3504 26107 ADS FLGWRD11
038579,001450:
038580,001451: 33,3505 04616 HIGATJOB TC BANKCALL # INITIATE REPOSITIONING ROUTINE
038581,001452: 33,3506 53523 CADR LRPOS2
038582,001453: 33,3507 04616 TC BANKCALL # DELAY UNTIL FINISHED
038583,001454: 33,3510 17720 CADR RADSTALL
038584,001455:
038585,001456: 33,3511 13512 TCF +1 # IF UNSUCCESSFUL, R12 WILL HANDLE THINGS
038586,001457: 33,3512 34753 CA ONE # INDICATE POS 2 IS EXPECTED
038587,001458: 33,3513 55650 TS LRPOS
038588,001459:
038589,001460: 33,3514 05527 TC DOWNFLAG # RE-ENABLE R12.
038590,001461: 33,3515 00252 ADRES NOLRREAD
038591,001462:
038592,001463: 33,3516 05364 TC PHASCHNG # CLEAR RESTART PROTECTION
038593,001464: 33,3517 00001 OCT 1
038594,001465: 33,3520 05155 TC ENDOFJOB
|
|
Below, in the comment column, is written "NEG3 = 77774"
|
End of include-file SERVICER.agc. Parent file is MAIN.agc