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