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