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