Source Code
![]() |
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
038016,000002: ## Copyright: Public domain.
038017,000003: ## Filename: SERVICER.agc
038018,000004: ## Purpose: A section of Luminary revision 210.
038019,000005: ## It is part of the source code for the Lunar Module's (LM)
038020,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
038021,000007: ## This file is intended to be a faithful transcription, except
038022,000008: ## that the code format has been changed to conform to the
038023,000009: ## requirements of the yaYUL assembler rather than the
038024,000010: ## original YUL assembler.
038025,000011: ## Reference: pp. 860-894
038026,000012: ## Assembler: yaYUL
038027,000013: ## Contact: Ron Burkey <info@sandroid.org>.
038028,000014: ## Website: www.ibiblio.org/apollo/index.html
038029,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
038030,000016: ## 2016-11-27 MAS Began transcription.
038031,000017: ## 2016-11-28 MAS Completed transcription. Lots of changes (including
038032,000018: ## the new terrain model) and lots and lots of updated
038033,000019: ## comments.
038034,000020: ## 2016-11-29 HG fix opcode BDSL -> BDSU
038035,000021: ## 2016-12-07 HG fix P00 -> POO (appears only in comments)
038036,000022: ## 2016-12-12 hg Fix operator BZMF -> BZF
038037,000023: ## 2016-12-25 RSB Comment-text proofed using ProoferComments
038038,000024: ## and corrected errors found.
038039,000025: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
038040,000026: ## side-by-side diff of Luminary 69/99/116/131/210.
038041,000027:
![]() |
Page 860 |
038043,000029: 37,3401 BANK 37
038044,000030: 37,2000 SETLOC SERV1
038045,000031: 37,2000 BANK
038046,000032:
038047,000033: 37,3401 E7,1515 EBANK= DVCNTR
038048,000034: # ************************************* PREREAD **************************************************************
038049,000035:
038050,000036:
038051,000037: 37,3401 COUNT* $$/SERV
038052,000038:
038053,000039: 37,3401 34750 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER
038054,000040: 37,3402 03530 TC GNUFAZE5 # RESTART.
038055,000041: 37,3403 35022 CAF PRIO21
038056,000042: 37,3404 05063 TC NOVAC
038057,000043: 37,3405 E3,1460 EBANK= NBDX
038058,000044: 37,3405 03733 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
038059,000045:
038060,000046: 37,3407 03543 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FREE FALL
038061,000047: # DO NOT DESTROY VALUE OF PIPTIME1
038062,000048:
038063,000049: 37,3410 40103 CS FLAGWRD7
038064,000050: 37,3411 74764 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
038065,000051: 37,3412 26103 ADS FLAGWRD7 # OF FLAGWRD7)
038066,000052:
038067,000053: 37,3413 44726 CS DRFTBIT
038068,000054: 37,3414 70076 MASK FLAGWRD2 # START POWERED FLITE GYRO COMPENSATION
038069,000055: 37,3415 54076 TS FLAGWRD2 # BY T3RUPT
038070,000056:
038071,000057: 37,3416 34742 CAF FOUR # NO LONGER NEEDED
038072,000058: 37,3417 55256 TS PIPAGE
038073,000059:
038074,000060: 37,3420 37731 CAF PRIO22 # INITIALIZE NAVIGATED STATE VECTOR(SM COO
038075,000061: 37,3421 05076 TC FINDVAC # RD) FROM MIDTOAVE OUTPUTS PRIOR TO FIRST
038076,000062: 37,3422 E7,1515 EBANK= DVCNTR # AVERAGE G.
038077,000063: 37,3422 03661 64067 2CADR NORMLIZE
038078,000064:
038079,000065:
038080,000066: 37,3424 34743 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE
038081,000067: 37,3425 03524 GOREADAX TC GNUTFAZ5
038082,000068: 37,3426 34771 CA 2SECS # WAIT TWO SECONDS FOR READACCS
038083,000069: 37,3427 05226 TC VARDELAY
038084,000070:
![]() |
Page 861 |
038086,000072: # ************************************* READACCS *************************************************************
038087,000073: 37,3430 43537 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
038088,000074: 37,3431 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL
038089,000075: 37,3432 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL
038090,000076: 37,3433 44744 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
038091,000077: 37,3434 13436 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
038092,000078: 37,3435 34744 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS
038093,000079: 37,3436 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
038094,000080: # WITH ANY OF THE 8 SUBSEQUENT R10,R11
038095,000081: # INTERRUPTS -- THUS MINIMIZING THE POSS-
038096,000082: # IBILITY OF LOSING DOWNRUPTS.
038097,000083:
038098,000084: 37,3437 03540 TC PIPASR # READ THE PIPAS AND THEN ZERO THEM.
038099,000085:
038100,000086: 37,3440 34747 PIPSDONE CA FIVE
038101,000087: 37,3441 03530 TC GNUFAZE5
038102,000088: 37,3442 34744 REDO5.5 CAF ONE # SHOWS THAT PIPAREAD HAD NOT STARTED
038103,000089: 37,3443 55256 TS PIPAGE # SO THAT RESTART BEGINS AT READACCS.
038104,000090:
038105,000091: 37,3444 34727 CA PRIO20
038106,000092: 37,3445 05076 TC FINDVAC
038107,000093: 37,3446 E7,1515 EBANK= DVCNTR
038108,000094: 37,3446 02121 66067 2CADR SERVICER # SET UP SERVICER JOB
038109,000095:
038110,000096: 37,3450 34734 CA BIT9
038111,000097: 37,3451 00006 EXTEND
038112,000098: 37,3452 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT,AVE G ON.
038113,000099:
038114,000100: 37,3453 30103 CA FLAGWRD7 # WAS AVERAGE G ASKED TO BE TERMINATED?
038115,000101: 37,3454 74740 MASK AVEGFBIT
038116,000102: 37,3455 00006 EXTEND
038117,000103: 37,3456 13516 BZF AVEGOUT # YES: SET UP FINAL EXIT.
038118,000104:
038119,000105: 37,3457 30102 CA FLAGWRD6 # NO: IS THIS P6X OR P12?
038120,000106: 37,3460 74735 MASK MUNFLBIT
038121,000107: 37,3461 00006 EXTEND
038122,000108: 37,3462 13514 BZF MAKEACCS # NO: BYPASS LR READ AND DISPLAYS
038123,000109:
038124,000110: 37,3463 40107 CS FLGWRD11 # YES: DOES SOMEONE WANT TO BYPASS LR UPDT
038125,000111: 37,3464 74726 MASK LRBYBIT
038126,000112: 37,3465 00006 EXTEND
038127,000113: 37,3466 13473 BZF R10CALL # YES: BYPASS LR READINGS
038128,000114:
038129,000115: 37,3467 33536 CA 1.75SEC # CALL R12 0.25 SEC PRIOR TO NEXT READACCS
038130,000116: 37,3470 05205 TC WAITLIST # VELOCITY LANDING RADAR READINGS ARE CENT
038131,000117: 37,3471 E7,1462 EBANK= VSELECT # ERED AROUND PIPTIME. 2 VELOCITY AND 1 AL
038132,000118: 37,3471 03142 52067 2CADR R12READ # TITUDE READINGS BEFORE PIPTIME,3 V AFTER
038133,000119:
![]() |
Page 862 |
038135,000121: 37,3473 10754 R10CALL CCS PHASE2
038136,000122: 37,3474 13514 TCF MAKEACCS # PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
038137,000123:
038138,000124: 37,3475 34750 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE.
038139,000125: 37,3476 55055 TS PIPCTR
038140,000126:
038141,000127: 37,3477 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST.
038142,000128: 37,3500 64747 AD FIVE
038143,000129: 37,3501 64725 AD NEG1/2
038144,000130: 37,3502 64725 AD NEG1/2
038145,000131: 37,3503 57054 XCH TBASE2
038146,000132:
038147,000133: 37,3504 34352 CAF DEC17 # 2.21SPOT FOR R10,R11
038148,000134: 37,3505 54001 TS L
038149,000135: 37,3506 40000 COM
038150,000136: 37,3507 52754 DXCH -PHASE2
038151,000137:
038152,000138: 37,3510 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS.
038153,000139: 37,3511 05205 TC WAITLIST
038154,000140: 37,3512 E7,1536 EBANK= UNIT/R/
038155,000141: 37,3512 02042 42067 2CADR R10,R11
038156,000142:
038157,000143:
038158,000144: 37,3514 34742 MAKEACCS CA FOUR
038159,000145: 37,3515 13425 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS
038160,000146:
038161,000147:
038162,000148: 37,3516 00006 AVEGOUT EXTEND
038163,000149: 37,3517 33535 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT
038164,000150: 37,3520 53252 DXCH AVGEXIT
038165,000151:
038166,000152: 37,3521 34742 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER
038167,000153: 37,3522 03524 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT
038168,000154: 37,3523 05263 TC TASKOVER # END TASK WITHOUT CALLING READACCS
038169,000155:
038170,000156:
038171,000157: 37,3524 54001 GNUTFAZ5 TS L # SAVE INPUT IN L
038172,000158: 37,3525 40025 CS TIME1
038173,000159: 37,3526 55062 TS TBASE5 # SET TBASE5
038174,000160: 37,3527 13531 TCF +2
038175,000161:
038176,000162: 37,3530 54001 GNUFAZE5 TS L # SAVE INPUT IN L
038177,000163: 37,3531 40001 CS L # -PHASE IN A, PHASE IN L
038178,000164: 37,3532 52762 DXCH -PHASE5 # SET -PHASE5,PHASE5
038179,000165: 37,3533 00002 TC Q
038180,000166:
038181,000167:
038182,000168: 37,3534 E7,1515 EBANK= DVCNTR
038183,000169: 37,3534 03663 44067 AVOUTCAD 2CADR AVGEND
038184,000170:
![]() |
Page 863 |
038186,000172: 37,3536 00257 1.75SEC DEC 175 B-14
038187,000173: 37,3537 37771 OCT37771 OCT 37771
038188,000174:
038189,000175: 33,2121 BANK 33
038190,000176: 33,2000 SETLOC SERVICES
038191,000177: 33,2000 BANK
038192,000178:
038193,000179: 33,2121 COUNT* $$/SERV
038194,000180:
![]() |
Page 864 |
038196,000182: # ************************************* SERVICER *************************************************************
038197,000183:
038198,000184:
038199,000185: 33,2121 05355 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER
038200,000186: 33,2122 16035 OCT 16035
038201,000187: 33,2123 20000 OCT 20000
038202,000188: 33,2124 E7,1515 EBANK= DVCNTR
038203,000189: 33,2124 02132 66067 2CADR GETABVAL
038204,000190:
038205,000191: 33,2126 37737 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS
038206,000192: 33,2127 55074 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED.
038207,000193:
038208,000194:
038209,000195: 33,2130 04607 TC BANKCALL # PIPA COMPENSATION CALL
038210,000196: 33,2131 15333 CADR 1/PIPA
038211,000197:
038212,000198: 33,2132 06060 GETABVAL TC INTPRET
038213,000199: 33,2133 51575 VLOAD ABVAL
038214,000200: 33,2134 00325 DELV
038215,000201: 33,2135 77776 EXIT
038216,000202: 33,2136 30154 CA MPAC
038217,000203: 33,2137 55245 TS ABDELV # ABDELV = CM/SEC*2(-14).
038218,000204: 33,2140 00006 EXTEND
038219,000205: 33,2141 72072 MP KPIP
038220,000206: 33,2142 53514 DXCH ABDVCONV # ABDVCONV = M/CS *2(-5).
038221,000207: 33,2143 00006 EXTEND
038222,000208: 33,2144 31244 DCA MASS
038223,000209: 33,2145 53571 DXCH MASS1 # NO MASS MONITOR ON SURFACE.
038224,000210:
038225,000211: 33,2146 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE?
038226,000212: 33,2147 74735 MASK SURFFBIT
038227,000213: 33,2150 00006 EXTEND
038228,000214: 33,2151 12202 BZF MOONSPOT # YES: BYPASS MASS MESS
038229,000215:
038230,000216: 33,2152 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED?
038231,000217: 33,2153 74730 MASK APSFLBIT
038232,000218: 33,2154 10000 CCS A
038233,000219: 33,2155 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A,
038234,000220: 33,2156 32001 DCA APSVEX # OTHERWISE DPSVEX --> A
038235,000221: 33,2157 54002 TS Q
038236,000222:
038237,000223: 33,2160 00006 EXTEND
038238,000224: 33,2161 31514 DCA ABDVCONV
038239,000225: 33,2162 00006 EXTEND
038240,000226: 33,2163 10002 DV Q # WHERE APPROPRIATE VEX RESIDES
038241,000227: 33,2164 00006 EXTEND
038242,000228: 33,2165 71243 MP MASS
038243,000229: 33,2166 21571 DAS MASS1
038244,000230:
038245,000231: 33,2167 07124 TC DMP # TP MPAC = ABDELV AT 2(14) CM/SEC
![]() |
Page 865 |
038247,000233: 33,2170 02073 ADRES KPIP1 # DMP BY DP KPIP1 TO GET
038248,000234: 33,2171 00006 EXTEND
038249,000235: 33,2172 31510 DCA DVTOTAL
038250,000236: 33,2173 20155 DAS MPAC # MPAC = ABDELV AT 2(7) M/CS
038251,000237: 33,2174 52155 DXCH MPAC
038252,000238: 33,2175 53174 DXCH DVTEMP # SAVE NEW DVTOTAL FOR RESTARTS
038253,000239:
038254,000240: 33,2176 03473 TC QUIKFAZ5
038255,000241:
038256,000242: 33,2177 00006 EXTEND
038257,000243: 33,2200 31174 DCA DVTEMP
038258,000244: 33,2201 53510 DXCH DVTOTAL
038259,000245:
038260,000246: 33,2202 02367 MOONSPOT TC TMPTOSPT # CDUS AT PIPTIME LOADED INTO CDUSPOT CELL
038261,000247: 33,2203 04607 TC BANKCALL # SINES AND COSINES OF CDUSPOT.
038262,000248: 33,2204 47607 CADR QUICTRIG
038263,000249:
038264,000250: 33,2205 32343 CAF XNBPIPAD
038265,000251: 33,2206 04607 TC BANKCALL # COMPUTE BOD-TO-SM MATRIX (XNB),AND
038266,000252: 33,2207 20037 CADR FLESHPOT # STORE INTO XNBPIPAD.
038267,000253:
038268,000254: 33,2210 06060 TC INTPRET
038269,000255: 33,2211 45014 AVERAGEG BON CALL
038270,000256: 33,2212 03307 MUNFLAG # COMPUTE LM & CM STATE VECTORS IN LUNAR G
038271,000257: 33,2213 66744 RVBOTH # ,DO R12 , DO COPYCYCL1, RETURN AT COPYCL
038272,000258: 33,2214 66710 CALCRVG # UPDATE LM STATE VECTOR.
038273,000259: 33,2215 77776 EXIT
038274,000260: 33,2216 03473 GOSERV TC QUIKFAZ5
038275,000261:
038276,000262: 33,2217 02352 COPYCYCL TC COPYCYC # RN1,VN1,MASS1 => RN,VN,MASS.
038277,000263:
038278,000264: # CA ZERO A IS ZERO ON RETURN FROM COPYCYC
038279,000265: 33,2220 55157 TS PIPATMPX # STILL UNDER INHINT
038280,000266: 33,2221 55160 TS PIPATMPY
038281,000267: 33,2222 55161 TS PIPATMPZ
038282,000268:
038283,000269: 33,2223 44732 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON.
038284,000270: 33,2224 70076 MASK FLAGWRD2
038285,000271: 33,2225 54076 TS FLAGWRD2
038286,000272:
038287,000273: 33,2226 34736 CAF IDLEFBIT # IS DV MONITOR TO BE TURNED ON?
038288,000274: 33,2227 70103 MASK FLAGWRD7
038289,000275: 33,2230 10000 CCS A
038290,000276: 33,2231 12264 TCF NODVMON1 # NO: SET AUXFLAG TO 0
038291,000277:
038292,000278: 33,2232 40102 CS FLAGWRD6 # ALLOW ANOTHER PASS WITHOUT DVMON?
038293,000279: 33,2233 74743 MASK AUXFLBIT
038294,000280: 33,2234 10000 CCS A
038295,000281: 33,2235 12270 TCF NODVMON2 # YES: SET AUXFLAG TO 0
038296,000282:
![]() |
Page 866 |
038298,000284: 33,2236 41250 DVMON CS DVTHRUSH # SUFFICIENT THRUST TO STEER WITH?
038299,000285: 33,2237 61245 AD ABDELV
038300,000286: 33,2240 00006 EXTEND
038301,000287: 33,2241 62274 BZMF LOTHRUST # NO: THRUST TOO LO, DECREMENT DVCNTR
038302,000288:
038303,000289: 33,2242 40076 CS FLAGWRD2 # YES: SET STEERSW TO ALLOW GUIDANCE.
038304,000290: 33,2243 74732 MASK STEERBIT
038305,000291: 33,2244 26076 ADS FLAGWRD2
038306,000292:
038307,000293: 33,2245 34744 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT
038308,000294: 33,2246 55515 TS DVCNTR # THRUST HAS BEEN DETECTED.
038309,000295:
038310,000296: 33,2247 30106 CA FLGWRD10 # IS APSFLAG SET?
038311,000297: 33,2250 74730 MASK APSFLBIT
038312,000298: 33,2251 10000 CCS A
038313,000299: 33,2252 12317 TCF USEJETS # YES: USE RCS TO STEER ASCENT STAGE.
038314,000300:
038315,000301: 33,2253 34734 CA BIT9 # NO: PITCH GIMBAL FAILURE?
038316,000302: 33,2254 00006 EXTEND
038317,000303: 33,2255 02032 RAND CHAN32
038318,000304: 33,2256 00006 EXTEND
038319,000305: 33,2257 12317 BZF USEJETS # YES: USE RCS TO STEER DESCENT STAGE.
038320,000306:
038321,000307: 33,2260 44727 USEGTS CS USEQRJTS # NO: USE GTS TO STEER DESCENT STAGE.
038322,000308: 33,2261 70111 MASK DAPBOOLS
038323,000309: 33,2262 54111 TS DAPBOOLS
038324,000310: 33,2263 12322 TCF SERVOUT
038325,000311:
038326,000312: 33,2264 44743 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0.
038327,000313: 33,2265 70102 MASK FLAGWRD6
038328,000314: 33,2266 54102 TS FLAGWRD6
038329,000315: 33,2267 12317 TCF USEJETS
038330,000316: 33,2270 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1.
038331,000317: 33,2271 74743 MASK AUXFLBIT
038332,000318: 33,2272 26102 ADS FLAGWRD6
038333,000319: 33,2273 12317 TCF USEJETS
038334,000320:
038335,000321: 33,2274 03473 LOTHRUST TC QUIKFAZ5
038336,000322: 33,2275 11515 CCS DVCNTR # TWO PASSES OF LO THRUST?
038337,000323: 33,2276 12310 TCF DECCNTR # NO: DECREMENT DVCNTR.
038338,000324:
038339,000325: 33,2277 10760 CCS PHASE4 # COMFAIL JOB ACTIVE?
038340,000326: 33,2300 12322 TCF SERVOUT # YES WON'T NEED ANOTHER.
038341,000327:
038342,000328: 33,2301 05355 TC PHASCHNG # 4.37SPOT FOR COMFAIL.
038343,000329: 33,2302 00374 OCT 00374
038344,000330:
038345,000331: 33,2303 37734 CAF PRIO25
038346,000332: 33,2304 05063 TC NOVAC
038347,000333: 33,2305 E7,1455 EBANK= WHICH
![]() |
Page 867 |
038349,000335: 33,2305 02570 74067 2CADR COMFAIL # ESTABLISH JOB COMFAIL FOR
038350,000336:
038351,000337: 33,2307 12322 TCF SERVOUT # THRUST FAIL LOGIC.
038352,000338:
038353,000339: 33,2310 55570 DECCNTR TS DVCNTR1
038354,000340: 33,2311 03473 TC QUIKFAZ5
038355,000341: 33,2312 31570 CA DVCNTR1
038356,000342: 33,2313 55515 TS DVCNTR
038357,000343: 33,2314 00004 INHINT
038358,000344: 33,2315 04665 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE
038359,000345: 33,2316 40166 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO.
038360,000346: 33,2317 40111 USEJETS CS DAPBOOLS
038361,000347: 33,2320 74727 MASK USEQRJTS
038362,000348: 33,2321 26111 ADS DAPBOOLS # TELL DAP TO USE RCS TO STEER.
038363,000349:
038364,000350: 33,2322 00003 SERVOUT RELINT
038365,000351: 33,2323 04607 TC BANKCALL # COMPUTE VEHICLE MOMENTS OF INERTIA.
038366,000352: 33,2324 40463 CADR 1/ACCS
038367,000353:
038368,000354: 33,2325 30167 CA PRIORITY
038369,000355: 33,2326 74775 MASK LOW9
038370,000356: 33,2327 54166 TS PUSHLOC
038371,000357: 33,2330 22007 ZL
038372,000358: 33,2331 52121 DXCH FIXLOC # FIXLOC AND OVFIND
038373,000359:
038374,000360: 33,2332 03473 TC QUIKFAZ5
038375,000361: 33,2333 41234 CS PIPTIME +1
038376,000362: 33,2334 60025 AD TIME1
038377,000363: 33,2335 64727 AD HALF
038378,000364: 33,2336 64727 AD HALF
038379,000365: 33,2337 57355 XCH SERVDURN # SERVICER DURATION FOR DOWNLINK
038380,000366: 33,2340 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE
038381,000367: 33,2341 31252 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW
038382,000368: 33,2342 52006 DXCH Z # WILL CONVEY THIS INFORMATION.
038383,000369:
038384,000370: 33,2343 02136 XNBPIPAD ECADR XNBPIP
038385,000371:
038386,000372: 32,3656 BANK 32
038387,000373: 22,2000 SETLOC SERV2
038388,000374: 22,2000 BANK
038389,000375: 22,3663 COUNT* $$/SERV
038390,000376:
038391,000377: 22,3663 31234 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT,AVEGFLAG SET.
038392,000378: 22,3664 55074 TS 1/PIPADT # SET UP COASTING FLIGHT GYRO COMPENSATION
038393,000379:
038394,000380: 22,3665 05506 TC UPFLAG # SET DRIFT FLAG, TERMINATE POWERED FLITE
038395,000381: 22,3666 00036 ADRES DRIFTFLG # GYRO COMPENSATION.
![]() |
The above two instructions are circled. |
038397,000383:
038398,000384: 22,3667 04607 TC BANKCALL
038399,000385: 22,3670 17275 CADR PIPFREE
038400,000386:
![]() |
Page 868 |
038402,000388: 22,3671 44734 CS BIT9
038403,000389: 22,3672 00006 EXTEND
038404,000390: 22,3673 03011 WAND DSALMOUT # TELL WORLD THAT AVERAGEG IS NOW OFF.
038405,000391:
038406,000392: 22,3674 05331 TC 2PHSCHNG
038407,000393: 22,3675 00005 OCT 5 # GROUP 5 OFF
038408,000394: 22,3676 05022 OCT 05022 # GROUP 2 ON
038409,000395: 22,3677 20000 OCT 20000
038410,000396:
038411,000397: 22,3700 06060 TC INTPRET
038412,000398: 22,3701 77614 CLEAR
038413,000399: 22,3702 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS.
038414,000400: 22,3703 45014 CLEAR CALL # RESET MUNFLAG.
038415,000401: 22,3704 03267 MUNFLAG
038416,000402: 22,3705 27522 AVETOMID # BRING CM STATE VECTOR UP TO PIPTIME.
038417,000403: 22,3706 77414 CLEAR EXIT
038418,000404: 22,3707 03671 V37FLAG
038419,000405:
038420,000406: 22,3710 04626 AVERTRN TC POSTJUMP
038421,000407: 22,3711 10144 CADR V37RET # GO TO V37 LOGIC.
038422,000408:
038423,000409: 22,3712 22,3710 OUTGOAVE = AVERTRN
038424,000410:
![]() |
Page 869 |
038426,000412: # SERVIDLE IS ENTERED AFTER A POODOO SOFTWARE RESTART. SERVICER CONTINUES,BUT GUIDANCE AND R12 ( IF RUNNING) ARE
038427,000413: # TERMINATED. ABORTS MONITOR CONTINUES TO RUN.
038428,000414:
038429,000415: 27,2000 SETLOC SERV3
038430,000416: 27,2000 BANK
038431,000417: 27,3324 COUNT* $$/SERV
038432,000418:
038433,000419: 27,3324 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
038434,000420: 27,3325 33362 DCA SVEXTADR
038435,000421: 27,3326 53252 DXCH AVGEXIT
038436,000422:
038437,000423: 27,3327 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR
038438,000424: 27,3330 74736 MASK IDLEFBIT
038439,000425: 27,3331 26103 ADS FLAGWRD7
038440,000426:
038441,000427: 27,3332 34726 CAF LRBYBIT # TERMINATE R12 IF RUNNING.
038442,000428: 27,3333 54107 TS FLGWRD11
038443,000429:
038444,000430: 27,3334 00006 EXTEND
038445,000431: 27,3335 34746 DCA NEG0
038446,000432: 27,3336 52752 DXCH -PHASE1
038447,000433:
038448,000434: 27,3337 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
038449,000435: 27,3340 74735 MASK MUNFLBIT
038450,000436: 27,3341 10000 CCS A
038451,000437: 27,3342 13346 TCF +4
038452,000438:
038453,000439: 27,3343 00006 EXTEND
038454,000440: 27,3344 34746 DCA NEG0
038455,000441: 27,3345 52754 DXCH -PHASE2
038456,000442:
038457,000443: 27,3346 00006 +4 EXTEND
038458,000444: 27,3347 34746 DCA NEG0
038459,000445: 27,3350 52756 DXCH -PHASE3
038460,000446:
038461,000447: 27,3351 00006 EXTEND
038462,000448: 27,3352 34746 DCA NEG0
038463,000449: 27,3353 52764 DXCH -PHASE6
038464,000450:
038465,000451: 27,3354 34755 CAF OCT33 # 4.33SPOT FOR GOPOOFIX
038466,000452: 27,3355 54001 TS L
038467,000453: 27,3356 40000 COM
038468,000454: 27,3357 52760 DXCH -PHASE4
038469,000455:
038470,000456: 27,3360 15636 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
038471,000457: # TO GOTOPOOH WHILE SERVICER CONTINUES TO
038472,000458: # RUN, ALBEIT IN A GROUND STATE WHERE
038473,000459: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS
038474,000460: # ARE MAINTAINED.
038475,000461:
![]() |
Page 870 |
038477,000463: 27,3361 E7,1515 EBANK= DVCNTR
038478,000464: 27,3361 03656 64067 SVEXTADR 2CADR SERVEXIT
038479,000465:
038480,000466:
038481,000467:
038482,000468: 32,3656 BANK 32
038483,000469: 32,2000 SETLOC SERV
038484,000470: 32,2000 BANK
038485,000471: 32,3656 COUNT* $$/SERV
038486,000472:
038487,000473: 32,3656 05355 SERVEXIT TC PHASCHNG
038488,000474: 32,3657 00035 OCT 00035
038489,000475:
038490,000476: 32,3660 15146 TCF ENDOFJOB
038491,000477:
![]() |
Page 871 |
038493,000479: # NORMLIZE AND COPYCYCL
038494,000480:
038495,000481: 32,3661 06060 NORMLIZE TC INTPRET
038496,000482: 32,3662 43175 VLOAD BOFF
038497,000483: 32,3663 03545 RN1
038498,000484: 32,3664 03347 MUNFLAG
038499,000485: 32,3665 66344 NORMLIZ1 # DO NOT USE LUNAR LANDING AVERAGE G
038500,000486: 32,3666 64252 VSL6 MXV
038501,000487: 32,3667 01732 REFSMMAT
038502,000488: 32,3670 37521 STCALL R # LM POS VECTOR IN SM COORD AT 2(+24)M.
038503,000489: 32,3671 67037 MUNGRAV # USE LUNAR LANDING AVERAGE G ROUTINE.
038504,000490: 32,3672 76575 VLOAD VSL1
038505,000491: 32,3673 03553 VN1
038506,000492: 32,3674 77721 MXV
038507,000493: 32,3675 01732 REFSMMAT
038508,000494: 32,3676 03527 STORE V # LM VEL VECTOR IN SM COORD AT 2(+7)M/CS.
038509,000495: 32,3677 41535 SLOAD PUSH # COMPUTE PIPA BIAS VECTOR FOR USE BY
038510,000496: 32,3700 01457 PBIASZ # P66ROD AND LANDING ANALOG DISPLAYS
038511,000497: 32,3701 41535 SLOAD PUSH
038512,000498: 32,3702 01455 PBIASY
038513,000499: 32,3703 55535 SLOAD VDEF
038514,000500: 32,3704 01453 PBIASX
038515,000501: 32,3705 77761 VXSC
038516,000502: 32,3706 26641 BIASFACT
038517,000503: 32,3707 02616 STORE VBIAS # ONE SECOND'S BIAS IN UNITS OF 2(7) M/CS
038518,000504: 32,3710 77776 ASCSPOT EXIT
038519,000505: 32,3711 00006 EXTEND # MAKE SURE GOUP 2 IS OFF.
038520,000506: 32,3712 34746 DCA NEG0
038521,000507: 32,3713 52754 DXCH -PHASE2
038522,000508:
038523,000509: 32,3714 04626 TC POSTJUMP
038524,000510: 32,3715 66347 CADR NORMLIZ2
038525,000511:
038526,000512: 33,2344 BANK 33
038527,000513: 33,2000 SETLOC SERVICES
038528,000514: 33,2000 BANK
038529,000515: 33,2344 COUNT* $$/SERV
038530,000516:
038531,000517: 33,2344 77624 NORMLIZ1 CALL
038532,000518: 33,2345 66642 CALCGRAV
038533,000519: 33,2346 77776 EXIT
038534,000520:
038535,000521: 33,2347 32366 NORMLIZ2 CA EIGHTEEN
038536,000522: 33,2350 02353 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE
038537,000523: 33,2351 05146 TC ENDOFJOB
038538,000524:
038539,000525: # COPYCYC PLACES NEWLY NAVIGATED STATE VECTORS AND MASS INTO DOWNLIST REG
038540,000526:
038541,000527: 33,2352 36007 COPYCYC CA OCT24 # DEC 20
![]() |
Page 872 |
038543,000529: 33,2353 00004 +1 INHINT
038544,000530: 33,2354 77770 +2 MASK NEG1 # REDUCE BY 1 IF ODD
038545,000531: 33,2355 54061 TS ITEMP1
038546,000532: 33,2356 00006 EXTEND
038547,000533: 33,2357 50061 INDEX ITEMP1
038548,000534: 33,2360 31545 DCA RN1
038549,000535: 33,2361 50061 INDEX ITEMP1
038550,000536: 33,2362 53220 DXCH RN
038551,000537: 33,2363 10061 CCS ITEMP1
038552,000538: 33,2364 12354 TCF COPYCYC +2
038553,000539: 33,2365 00002 TC Q # RETURN UNDER INHINT
038554,000540:
038555,000541:
038556,000542: 33,2366 00022 EIGHTEEN DEC 18 B-14
038557,000543:
![]() |
Page 873 |
038559,000545: # ******************* PIPA READER ********************
038560,000546:
038561,000547: # MOD NO. 00 BY D. LICKLY DEC.9 1966
038562,000548:
038563,000549:
038564,000550: # FUNCTIONAL DESCRIPTION
038565,000551: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
038566,000552: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
038567,000553: # RESTARTS BEGIN AT REREADAC.
038568,000554:
038569,000555:
038570,000556: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
038571,000557: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
038572,000558: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
038573,000559: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
038574,000560:
038575,000561: # CALLING SEQUENCE AND EXIT
038576,000562:
038577,000563: # CALL VIA TC, ISWCALL, ETC.
038578,000564:
038579,000565: # EXIT IS VIA Q.
038580,000566:
038581,000567:
038582,000568:
038583,000569:
038584,000570: # INPUT
038585,000571:
038586,000572: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
038587,000573:
038588,000574:
038589,000575: # OUTPUT
038590,000576:
038591,000577: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
038592,000578: # PIPTIME CONTAINS TIME OF PIPA READING.
038593,000579:
038594,000580:
038595,000581: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
038596,000582:
038597,000583: # TEMX TEMY TEMZ PIPAGE
038598,000584:
038599,000585:
038600,000586: 37,3540 BANK 37
038601,000587: 37,2000 SETLOC SERV1
038602,000588: 37,2000 BANK
038603,000589:
038604,000590: 37,3540 COUNT* $$/SERV
038605,000591:
038606,000592: 37,3540 00006 PIPASR EXTEND
![]() |
Page 874 |
038608,000594: 37,3541 30025 DCA TIME2
038609,000595: 37,3542 53561 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
038610,000596: 37,3543 44746 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
038611,000597: 37,3544 55253 TS TEMX
038612,000598: 37,3545 55254 TS TEMY
038613,000599: 37,3546 55255 TS TEMZ
038614,000600:
038615,000601: 37,3547 34746 CA ZERO
038616,000602: 37,3550 54330 TS DELVZ
038617,000603: 37,3551 54331 TS DELVZ +1
038618,000604: 37,3552 54326 TS DELVY
038619,000605: 37,3553 54327 TS DELVY +1
038620,000606: 37,3554 54325 TS DELVX +1
038621,000607: 37,3555 55256 TS PIPAGE # SHOW PIPA READING IN PROGRESS
038622,000608:
038623,000609: 37,3556 00006 REPIP1 EXTEND
038624,000610: 37,3557 40040 DCS PIPAX # X AND Y PIPS READ
038625,000611: 37,3560 53254 DXCH TEMX
038626,000612: 37,3561 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
038627,000613: 37,3562 54324 TS DELVX
038628,000614: 37,3563 22326 LXCH DELVY
038629,000615:
038630,000616: 37,3564 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
038631,000617: 37,3565 57255 XCH TEMZ
038632,000618: 37,3566 56041 XCH PIPAZ
038633,000619: 37,3567 54330 DODELVZ TS DELVZ
038634,000620:
038635,000621: 37,3570 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD
038636,000622: 37,3571 31561 DCA PIPTIME1
038637,000623: 37,3572 53247 DXCH PGUIDE
038638,000624: 37,3573 00006 EXTEND
038639,000625: 37,3574 41234 DCS PIPTIME
038640,000626: 37,3575 21247 DAS PGUIDE
038641,000627:
038642,000628: 37,3576 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS
038643,000629: 37,3577 55154 TS CDUTEMPX
038644,000630: 37,3600 30033 CA CDUY
038645,000631: 37,3601 55155 TS CDUTEMPY
038646,000632: 37,3602 30034 CA CDUZ
038647,000633: 37,3603 55156 TS CDUTEMPZ
038648,000634: 37,3604 30324 CA DELVX
038649,000635: 37,3605 55157 TS PIPATMPX
038650,000636: 37,3606 30326 CA DELVY
038651,000637: 37,3607 55160 TS PIPATMPY
038652,000638: 37,3610 30330 CA DELVZ
038653,000639: 37,3611 55161 TS PIPATMPZ
038654,000640:
038655,000641: 37,3612 00002 TC Q
![]() |
In the margins above there are some doodles of something I can't quite make out. Possibly satellites. |
038657,000643:
![]() |
Page 875 |
038659,000645: 37,3613 11256 REREADAC CCS PIPAGE
038660,000646: 37,3614 13430 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
038661,000647:
038662,000648: 37,3615 33653 CAF DONEADR # SET UP RETURN FROM PIPASR
038663,000649: 37,3616 54002 TS Q
038664,000650:
038665,000651: 37,3617 10330 CCS DELVZ
038666,000652: 37,3620 13570 TCF REPIP4 # Z DONE, GO DO CDUS
038667,000653: 37,3621 13624 TCF +3 # Z NOT DONE, CHECK Y.
038668,000654: 37,3622 13570 TCF REPIP4
038669,000655: 37,3623 13570 TCF REPIP4
038670,000656:
038671,000657: 37,3624 22007 ZL
038672,000658: 37,3625 10326 CCS DELVY
038673,000659: 37,3626 13631 TCF +3
038674,000660: 37,3627 13640 TCF CHKTEMX # Y NOT DONE, CHECK X.
038675,000661: 37,3630 13631 TCF +1
038676,000662: 37,3631 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
038677,000663:
038678,000664: 37,3632 11255 CCS TEMZ
038679,000665: 37,3633 41255 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
038680,000666: 37,3634 13567 TCF DODELVZ
038681,000667: 37,3635 13633 TCF -2
038682,000668: 37,3636 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
038683,000669: 37,3637 13570 TCF REPIP4
038684,000670:
038685,000671: 37,3640 11253 CHKTEMX CCS TEMX # HAS THIS CHANGED
038686,000672: 37,3641 41253 CS TEMX # YES
038687,000673: 37,3642 13645 TCF +3 # YES
038688,000674: 37,3643 13641 TCF -2 # YES
038689,000675: 37,3644 13556 TCF REPIP1 # NO
038690,000676: 37,3645 54324 TS DELVX
038691,000677:
038692,000678: 37,3646 41254 CS TEMY
038693,000679: 37,3647 54326 TS DELVY
038694,000680:
038695,000681: 37,3650 44746 CS ZERO # ZERO X AND Y PIPS
038696,000682: 37,3651 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
038697,000683:
038698,000684: 37,3652 13564 TCF REPIP3
038699,000685:
038700,000686: 37,3653 03440 DONEADR GENADR PIPSDONE
038701,000687:
![]() |
Page 876 |
038703,000689: 33,2367 BANK 33
038704,000690: 33,2000 SETLOC SERVICES
038705,000691: 33,2000 BANK
038706,000692:
038707,000693: 33,2367 COUNT* $$/SERV
038708,000694:
038709,000695: 33,2367 31155 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM
038710,000696: 33,2370 54765 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON-
038711,000697: 33,2371 31156 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR.
038712,000698: 33,2372 54767 TS CDUSPOTZ
038713,000699: 33,2373 31154 CA CDUTEMPX
038714,000700: 33,2374 54771 TS CDUSPOTX
038715,000701: 33,2375 00002 TC Q
038716,000702:
038717,000703: 33,2376 BANK 33
038718,000704: 33,2000 SETLOC SERVICES
038719,000705: 33,2000 BANK
038720,000706:
038721,000707: 33,2376 COUNT* $$/SERV
038722,000708:
038723,000709: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
038724,000710: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
038725,000711: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR
038726,000712: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS
038727,000713: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
038728,000714: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
038729,000715:
038730,000716: 33,2376 05355 HIGATASK TC PHASCHNG
038731,000717: 33,2377 00051 OCT 51
038732,000718:
038733,000719: 33,2400 37741 CA PRIO32
038734,000720: 33,2401 05076 TC FINDVAC
038735,000721: 33,2402 E7,1654 EBANK= HMEAS
038736,000722: 33,2402 03561 66067 2CADR HIGATJOB
038737,000723:
038738,000724: 33,2404 40107 CS FLGWRD11
038739,000725: 33,2405 75006 MASK PRIO3
038740,000726: 33,2406 26107 ADS FLGWRD11
038741,000727: 33,2407 12502 TCF CONTSERV +1
038742,000728:
![]() |
Page 877 |
038744,000730: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
038745,000731:
038746,000732: 33,2410 77776 MUNRETRN EXIT
038747,000733:
038748,000734: 33,2411 40107 CS FLGWRD11
038749,000735: 33,2412 74726 MASK LRBYBIT
038750,000736: 33,2413 00006 EXTEND
038751,000737: 33,2414 12505 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET.
038752,000738:
038753,000739: 33,2415 40107 CS FLGWRD11 # CHECK IF AT 30000 FT
038754,000740: 33,2416 74734 MASK XORFLBIT
038755,000741: 33,2417 00006 EXTEND
038756,000742: 33,2420 12432 BZF LROFF?
038757,000743:
038758,000744: 33,2421 00006 30KCHK EXTEND
038759,000745: 33,2422 33062 DCA 1-30KFT
038760,000746: 33,2423 20155 DAS MPAC # HCALC IS STILL IN MPAC FROM RVBOTH
038761,000747:
038762,000748: 33,2424 10000 CCS A
038763,000749: 33,2425 12444 TCF R12 # ALTITUDE > 30KFT
038764,000750: 33,2426 05506 TC UPFLAG # ALTITUDE < 30KFT SET X-AXIS OVERRIDE
038765,000751: 33,2427 00311 ADRES XOVINFLG
038766,000752: 33,2430 05506 TC UPFLAG
038767,000753: 33,2431 00253 ADRES XORFLG
038768,000754:
038769,000755: 33,2432 31534 LROFF? CA HCALC
038770,000756: 33,2433 00006 EXTEND # IF HIGH ORDER PART ZERO, H < 3000 FT,
038771,000757: 33,2434 12436 BZF +2 # SO MAKE CUTOFF TEST
038772,000758: 33,2435 12444 TCF R12
038773,000759: 33,2436 41535 CS HCALC +1
038774,000760: 33,2437 61451 AD HLROFF
038775,000761: 33,2440 00006 EXTEND
038776,000762: 33,2441 62444 BZMF R12 # IF H < HLROFF, RESET LR PERMIT FLAG
038777,000763: 33,2442 05520 TC DOWNFLAG
038778,000764: 33,2443 00254 ADRES LRINH
038779,000765:
038780,000766: 33,2444 40107 R12 CS FLGWRD11
038781,000767: 33,2445 74733 MASK NOLRRBIT
038782,000768: 33,2446 00006 EXTEND
038783,000769: 33,2447 12501 BZF CONTSERV
038784,000770:
038785,000771: 33,2450 34767 POSTST CA BITS6+7 # TEST LANDING RADAR POSITION DISCRETES
038786,000772: 33,2451 00006 EXTEND
038787,000773: 33,2452 02033 RAND CHAN33
038788,000774: 33,2453 00006 EXTEND
038789,000775: 33,2454 74733 MP BIT10 # SHIFT BITS 6+7 TO BITS 1+2
038790,000776:
038791,000777: 33,2455 50000 INDEX A
038792,000778: 33,2456 12457 TCF +1
038793,000779: 33,2457 12462 TCF 511? # A = 0 - BOTH DISCRETES PRESENT
![]() |
Page 878 |
038795,000781: 33,2460 12471 TCF POSCHNG? # A = 1 - POSITION 2
038796,000782: 33,2461 12471 TCF POSCHNG? # A = 2 - POSITION 1
038797,000783: 33,2462 11622 511? CCS 511CTR # IF CONDITION PERSISTS FOR FIVE
038798,000784: 33,2463 12467 TCF ST511CTR # CONSECUTIVE PASSES,ISSUE 511 ALARM
038799,000785: 33,2464 05571 TC ALARM
038800,000786: 33,2465 00511 OCT 511
038801,000787: 33,2466 44746 CS ZERO # SET CTR TO -0 TO BYPASS ALARM
038802,000788: 33,2467 55622 ST511CTR TS 511CTR
038803,000789: 33,2470 12501 TCF CONTSERV
038804,000790: 33,2471 54001 POSCHNG? TS L
038805,000791: 33,2472 34742 CA FOUR # SET 511CTR TO RE-ENABLE 511 ALARM
038806,000792: 33,2473 55622 TS 511CTR
038807,000793: 33,2474 23650 LXCH LRPOS # UPDATE LRPOS
038808,000794: 33,2475 41650 CS LRPOS # COMPARE OLD AND NEW POSITIONS
038809,000795: 33,2476 60001 AD L
038810,000796: 33,2477 00006 EXTEND # IF OLDPOS = NEWPOS,
038811,000797: 33,2500 13064 BZF UPDATCHK # TRY TO UPDATE WITH LR DATA
038812,000798:
038813,000799: 33,2501 00004 CONTSERV INHINT
038814,000800: 33,2502 43060 CS BITS4-7
038815,000801: 33,2503 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES.
038816,000802: 33,2504 54107 TS FLGWRD11
038817,000803:
![]() |
Page 879 |
038819,000805: 33,2505 03473 COPYCYC1 TC QUIKFAZ5
038820,000806:
038821,000807: 33,2506 30120 CA FIXLOC # BATTEN DOWN THE HATCHES
038822,000808: 33,2507 54166 TS PUSHLOC
038823,000809:
038824,000810: 33,2510 06060 TC INTPRET
038825,000811: 33,2511 51575 VLOAD ABVAL
038826,000812: 33,2512 03573 R1S
038827,000813: 33,2513 45206 PUSH DSU
038828,000814: 33,2514 02324 /LAND/
038829,000815: 33,2515 03535 STORE HCALC # ALTITUDE IN UNITS OF 2(24) METERS
038830,000816: 33,2516 03775 STORE HCALC1
038831,000817: 33,2517 63261 SL PDVL # STORE HCALCLAD AT PD 2
038832,000818: 33,2520 20212 9D
038833,000819: 33,2521 03537 UNIT/R/
038834,000820: 33,2522 51435 VXV ABVAL
038835,000821: 33,2523 03601 V1S
038836,000822: 33,2524 56316 DSQ DDV
038837,000823: 33,2525 00001 0
038838,000824: 33,2526 63352 SL1 PDVL # STORE DALTRATE AT PD 4
038839,000825: 33,2527 03537 UNIT/R/
038840,000826: 33,2530 72441 DOT SL1
038841,000827: 33,2531 03601 V1S
038842,000828: 33,2532 03474 STORE HDOTDISP # HDOT IN UNITS OF 2(7) M/CS
038843,000829: 33,2533 63312 SL2 PDVL # STORE HDOTLAD AT PD 6
038844,000830: 33,2534 03573 R1S
038845,000831: 33,2535 60505 VXM VSR4
038846,000832: 33,2536 01732 REFSMMAT
038847,000833: 33,2537 27545 STOVL RN1 # POSITION IN REFERENCE COORDINATES
038848,000834: 33,2540 03601 V1S
038849,000835: 33,2541 76505 VXM VSL1
038850,000836: 33,2542 01732 REFSMMAT
038851,000837: 33,2543 27553 STOVL VN1 # VELOCITY IN REFERENCE COORDINATES
038852,000838: 33,2544 03563 GDT1/2
038853,000839: 33,2545 70251 VSU V/SC
038854,000840: 33,2546 02616 VBIAS
038855,000841: 33,2547 26637 GSCALE1
038856,000842: 33,2550 77776 EXIT # G-VBIAS IN MPAC UNITS OF 2(-9) M/CS/CS
038857,000843:
038858,000844: 33,2551 00004 INHINT
038859,000845:
038860,000846: 33,2552 50120 INDEX FIXLOC # FETCH HCALCLAD FROM PD 2
038861,000847: 33,2553 52003 DXCH 2
038862,000848: 33,2554 53710 DXCH HCALCLAD # ALTITUDE IN UNITS OF 2(15) METERS
038863,000849:
038864,000850: 33,2555 50120 INDEX FIXLOC # FETCH DALTRATE FROM PD 4
038865,000851: 33,2556 30004 CA 4
038866,000852: 33,2557 55713 TS DALTRATE # DALTRATE IN UNITS OF 2(-9) M/CS/CS
038867,000853:
![]() |
Page 880 |
038869,000855: 33,2560 50120 INDEX FIXLOC # FETCH HDOTLAD FROM PD 6
038870,000856: 33,2561 52007 DXCH 6
038871,000857: 33,2562 53712 DXCH HDOTLAD # HDOTLAD IN UNITS OF 2(5) M/CS
038872,000858:
038873,000859: 33,2563 30154 CA MPAC # FETCH G-VBIAS FROM MPAC
038874,000860: 33,2564 55676 TS G-VBIASX
038875,000861: 33,2565 30157 CA MPAC +3
038876,000862: 33,2566 55677 TS G-VBIASY
038877,000863: 33,2567 30161 CA MPAC +5
038878,000864: 33,2570 55700 TS G-VBIASZ # G-VBIAS IN UNITS OF 2(-9) M/CS/CS
038879,000865:
038880,000866: 33,2571 00006 EXTEND
038881,000867: 33,2572 31537 DCA UNIT/R/
038882,000868: 33,2573 20001 DDOUBL # SCALE FULL-SIZE BUT WATCH FOR OVERFLOW
038883,000869: 33,2574 54000 OVSK
038884,000870: 33,2575 12577 TCF +2
038885,000871: 33,2576 34724 CAF POSMAX
038886,000872: 33,2577 57714 +2 XCH RUNITX
038887,000873:
038888,000874: 33,2600 00006 EXTEND
038889,000875: 33,2601 31541 DCA UNIT/R/ +2
038890,000876: 33,2602 20001 DDOUBL # SCALE FULL-SIZE, OVERFLOW MOST UNLIKELY
038891,000877: 33,2603 57715 XCH RUNITY
038892,000878:
038893,000879: 33,2604 00006 EXTEND
038894,000880: 33,2605 31543 DCA UNIT/R/ +4
038895,000881: 33,2606 20001 DDOUBL # SCALE FULL-SIZE, OVERFLOW MOST UNLIKELY
038896,000882: 33,2607 57716 XCH RUNITZ
038897,000883:
038898,000884: 33,2610 40103 CS FLAGWRD7 # INDICATE TO LANADISP THAT THE NUMBERS IT
038899,000885: 33,2611 74732 MASK SWANDBIT # NEEDS FROM SERVICER HAVE BEEN PROVIDED
038900,000886: 33,2612 26103 ADS FLAGWRD7
038901,000887:
038902,000888:
038903,000889: 33,2613 00006 EXTEND
038904,000890: 33,2614 31573 DCA R1S # LOAD NEW NAVIGATED STATE VECTOR INTO R,V
038905,000891: # VECTORS, FOR GUIDANCE.
038906,000892: 33,2615 53521 DXCH R
038907,000893: 33,2616 00006 EXTEND
038908,000894: 33,2617 31575 DCA R1S +2
038909,000895: 33,2620 53523 DXCH R +2
038910,000896: 33,2621 00006 EXTEND
038911,000897: 33,2622 31577 DCA R1S +4
038912,000898: 33,2623 53525 DXCH R +4
038913,000899: 33,2624 00006 EXTEND
038914,000900: 33,2625 31601 DCA V1S
038915,000901: 33,2626 53527 DXCH V
038916,000902: 33,2627 00006 EXTEND
038917,000903: 33,2630 31603 DCA V1S +2
038918,000904: 33,2631 53531 DXCH V +2
038919,000905: 33,2632 00006 EXTEND
![]() |
Page 881 |
038921,000907: 33,2633 31605 DCA V1S +4
038922,000908: 33,2634 53533 DXCH V +4
038923,000909:
038924,000910: 33,2635 12217 TCF COPYCYCL # COMPLETE THE COYPCYCL.
038925,000911:
038926,000912: # COPYCYC1 CONSTANTS:
038927,000913:
038928,000914: 33,2636 00031 00000 GSCALE1 2DEC 100 B-16
038929,000915:
038930,000916:
038931,000917: 33,2640 00000 05075 BIASFACT 2DEC .01 B-10
038932,000918:
![]() |
Page 882 |
038934,000920: # *********************************************************************************************************
038935,000921:
038936,000922: 33,2642 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18)
038937,000923: 33,2643 03537 STORE UNIT/R/
038938,000924: 33,2644 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
038939,000925: 33,2645 02777 RTX2
038940,000926: 33,2646 03000 RTX2
038941,000927: 33,2647 50076 DCOMP BMN
038942,000928: 33,2650 66677 CALCGRV1
038943,000929: 33,2651 50375 VLOAD DOT # (12)
038944,000930: 33,2652 06477 UNITZ
038945,000931: 33,2653 03537 UNIT/R/
038946,000932: 33,2654 41552 SL1 PUSH # (14)
038947,000933: 33,2655 44316 DSQ BDSU
038948,000934: 33,2656 26741 DP1/20
038949,000935: 33,2657 56325 PDDL DDV
038950,000936: 33,2660 26106 RESQ
038951,000937: 33,2661 00043 34D # (RN)SQ
038952,000938: 33,2662 00041 STORE 32D # TEMP FOR (RE/RN)SQ
038953,000939: 33,2663 41205 DMP DMP
038954,000940: 33,2664 26110 20J
038955,000941: 33,2665 65361 VXSC PDDL
038956,000942: 33,2666 03537 UNIT/R/
038957,000943: 33,2667 41205 DMP DMP
038958,000944: 33,2670 26112 2J
038959,000945: 33,2671 00041 32D
038960,000946: 33,2672 76561 VXSC VSL1
038961,000947: 33,2673 06477 UNITZ
038962,000948: 33,2674 45455 VAD STADR
038963,000949: 33,2675 74256 STORE UNITGOBL
038964,000950: 33,2676 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18)
038965,000951: 33,2677 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN
038966,000952: 33,2700 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR
038967,000953: 33,2701 00050 X2 # MAXIMUM PRECISION.
038968,000954: 33,2702 53663 BDDV* SLR*
038969,000955: 33,2703 26100 -MUDT,1
038970,000956: 33,2704 56623 0 -21D,2
038971,000957: 33,2705 45561 VXSC STADR
038972,000958: 33,2706 74214 STORE GDT1/2 # SCALED AT 2(+7) M/CS
038973,000959: 33,2707 77616 RVQ
038974,000960:
038975,000961: 33,2710 61375 CALCRVG VLOAD VXM
038976,000962: 33,2711 00325 DELV
038977,000963: 33,2712 01732 REFSMMAT
038978,000964: 33,2713 76561 VXSC VSL1
038979,000965: 33,2714 26074 KPIP1
038980,000966: 33,2715 03527 STORE DELVREF
038981,000967: 33,2716 41562 VSR1 PUSH
038982,000968: 33,2717 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
![]() |
Page 883 |
038984,000970: 33,2720 01236 GDT/2
038985,000971: 33,2721 65255 VAD PDDL # (18)
038986,000972: 33,2722 01226 VN
038987,000973: 33,2723 01247 PGUIDE
038988,000974: 33,2724 74261 SL VXSC
038989,000975: 33,2725 20207 6D
038990,000976: 33,2726 44055 VAD STQ
038991,000977: 33,2727 01220 RN
038992,000978: 33,2730 00037 31D
038993,000979: 33,2731 37545 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
038994,000980: 33,2732 66642 CALCGRAV
038995,000981:
038996,000982: 33,2733 53255 VAD VAD
038997,000983: 33,2734 77655 VAD
038998,000984: 33,2735 01226 VN
038999,000985: 33,2736 37553 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7)M/CS
039000,000986: 33,2737 00037 31D
039001,000987:
039002,000988: 33,2740 01463 06315 DP1/20 2DEC 0.05
039003,000989:
039004,000990: 33,2742 00010 00000 SHIFT11 2DEC 1 B-11
039005,000991:
![]() |
Page 884 |
039007,000993: # ****************************************************************************************************************
039008,000994:
039009,000995: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
039010,000996: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
039011,000997: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
039012,000998: # COORDINATE SYSTEM.
039013,000999:
039014,001000: 33,2744 41575 RVBOTH VLOAD PUSH
039015,001001: 33,2745 02310 G(CSM) # CSM GDT1/2 FOR LAST PASS.
039016,001002: 33,2746 65255 VAD PDDL
039017,001003: 33,2747 01724 V(CSM)
039018,001004: 33,2750 01247 PGUIDE
039019,001005: 33,2751 74271 DDV VXSC
039020,001006: 33,2752 26743 SHIFT11
039021,001007: 33,2753 77655 VAD
039022,001008: 33,2754 01716 R(CSM)
039023,001009: 33,2755 37573 STCALL R1S # = RCSM + PGUIDE(VCSM + GCSM) AT 2(+24)M.
039024,001010: 33,2756 67037 MUNGRAV # COMPUTE LUNAR GRAVITY AT CSM ALTITUDE.
039025,001011: 33,2757 53255 VAD VAD
039026,001012: 33,2760 01724 V(CSM)
039027,001013: 33,2761 77626 STADR
039028,001014: 33,2762 74176 STORE V1S # = VCSM + GCSM + GDT1/2 AT 2(+7)M/CS.
039029,001015: 33,2763 77776 EXIT
039030,001016: 33,2764 03473 TC QUIKFAZ5
039031,001017: 33,2765 06060 TC INTPRET
039032,001018: 33,2766 77775 VLOAD # FOR RESTART PURPOSES.
039033,001019: 33,2767 03563 GDT1/2
039034,001020: 33,2770 26310 STOVL G(CSM)
039035,001021: 33,2771 03573 R1S
039036,001022: 33,2772 25716 STOVL R(CSM)
039037,001023: 33,2773 03601 V1S
039038,001024: 33,2774 01724 STORE V(CSM)
039039,001025: 33,2775 77776 EXIT
039040,001026: 33,2776 03473 TC QUIKFAZ5
039041,001027: 33,2777 06060 TC INTPRET
039042,001028: 33,3000 74375 MUNRVG VLOAD VXSC
039043,001029: 33,3001 00325 DELV
039044,001030: 33,3002 26076 KPIP2
039045,001031: 33,3003 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS
039046,001032: 33,3004 01236 GDT/2
039047,001033: 33,3005 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
039048,001034: 33,3006 03527 V # (12)
039049,001035: 33,3007 56325 PDDL DDV
039050,001036: 33,3010 01247 PGUIDE
039051,001037: 33,3011 26743 SHIFT11
039052,001038: 33,3012 77761 VXSC
039053,001039: 33,3013 77655 VAD
039054,001040: 33,3014 03521 R # LM POSITION VECTOR AT 2(24)M.
039055,001041: 33,3015 37573 STCALL R1S # = R + PGUIDE(V + DELV + GDT1/2).
039056,001042: 33,3016 67037 MUNGRAV
![]() |
Page 885 |
039058,001044: 33,3017 53255 VAD VAD
039059,001045: 33,3020 77655 VAD # (0)
039060,001046: 33,3021 03527 V # LM VELOCITY VECTOR AT 2(+7)M/CS.
039061,001047: 33,3022 03601 STORE V1S # = V + GDT1/2 + DELV
039062,001048: 33,3023 77646 ABVAL
039063,001049: 33,3024 27472 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS.
039064,001050: 33,3025 02316 WM
039065,001051: 33,3026 72435 VXV VSL2
039066,001052: 33,3027 03573 R1S
039067,001053: 33,3030 17702 STODL VSURFACE # SURFACE VELOCITY IN UNITS OF 2(5) M/CS
039068,001054: 33,3031 00045 36D
039069,001055: 33,3032 47025 DSU RTB
039070,001056: 33,3033 02324 /LAND/
039071,001057: 33,3034 21622 SGNAGREE
039072,001058: 33,3035 37535 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG
039073,001059: 33,3036 66410 MUNRETRN # GO TO LR UPDATES ROUTINE, R12.
039074,001060:
039075,001061: 33,3037 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R
039076,001062: 33,3040 17537 STODL UNIT/R/
039077,001063: 33,3041 00043 34D
039078,001064: 33,3042 55261 SL BDDV
039079,001065: 33,3043 20207 6D
039080,001066: 33,3044 26104 -MUDTMUN
039081,001067: 33,3045 74205 DMP VXSC
039082,001068: 33,3046 26743 SHIFT11
039083,001069: 33,3047 03537 UNIT/R/
039084,001070: 33,3050 03563 STORE GDT1/2 # 1/2GDT SCALED AT 2(7)M/CS.
039085,001071: 33,3051 77616 RVQ
039086,001072:
039087,001073: 33,3052 4767 BITS6+7 EQUALS SUPER110 # LR POSITION DISCRETES
039088,001074: 33,3052 00014 20000 2SEC(18) 2DEC 200 B-18
039089,001075:
039090,001076: 33,3054 00000 00310 2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28)
039091,001077:
039092,001078: 33,3056 00000 00620 4SEC(28) 2DEC 400 B-28
039093,001079:
039094,001080: 33,3060 00110 BITS4-7 OCT 110
039095,001081: 33,3061 37767 02200 1-30KFT 2DEC 16768072 B-24 # DPPOSMAX-30KFT
039096,001082:
039097,001083: 33,3063 00102 66DEC DEC 66 B-14
039098,001084:
![]() |
Page 886 |
039100,001086: 33,3064 34741 UPDATCHK CA RNGEDBIT # SEE IF ALT READING MADE
![]() |
RNGEDBIT in the above line is circled |
039102,001088: 33,3065 70107 MASK FLGWRD11
039103,001089: 33,3066 00006 EXTEND
039104,001090: 33,3067 13261 BZF VMEASCHK # NO ALT MEAS THIS CYCLE-CHECK FOR VEL
039105,001091:
039106,001092: 33,3070 03473 POSUPDAT TC QUIKFAZ5
039107,001093: 33,3071 03501 TC POSINDEX # SET X1 TO PROPER POSITION AND ZERO PLIST
039108,001094: 33,3072 06060 TC INTPRET
039109,001095: 33,3073 61373 VLOAD* VXM
039110,001096: 33,3074 26003 HBEAMNB,1
039111,001097: 33,3075 02137 XNBPIP # HBEAM SM AT 2(1)
039112,001098: 33,3076 54325 PDDL SL # STORE IN PUSHLIST AND SCALE HMEAS
039113,001099: 33,3077 03655 HMEAS
039114,001100: 33,3100 20207 6D
039115,001101: 33,3101 74205 DMP VXSC # SLANT RANGE AT 2(22),PUSH UP FOR HBEAM
039116,001102: 33,3102 26063 HSCAL # TO GET SLANT RANGE VECTOR AT 2(23) M
039117,001103: 33,3103 50206 PUSH DOT # PUSH NEG OF RADAR ALTITUDE BEAM VECTOR
039118,001104: 33,3104 03537 UNIT/R/ # ALTITUDE AT 2(24) METERS
039119,001105: 33,3105 77625 DSU
039120,001106: 33,3106 03535 HCALC
039121,001107: 33,3107 03767 STORE TEMDELH # STORE PARTIAL(TRUE) DELTA H, AND
039122,001108: 33,3110 77725 PDDL # LOAD NEG OF BEAM Z
039123,001109:
![]() |
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. |
039127,001113: # ========================================================================
039128,001114: # TERRAIN MODEL
039129,001115: # =======================================================================:
039130,001116:
039131,001117: 33,3111 43342 SR1 DAD
039132,001118: 33,3112 03641 LAND +4
039133,001119: 33,3113 54221 BDSU SL # SCALE RANGE TO UNITS OF 2(18) METERS
039134,001120: 33,3114 03577 R1S +4
039135,001121: 33,3115 20207 6D
039136,001122: 33,3116 77404 BOVB EXIT
039137,001123: 33,3117 31765 SIGNMPAC # PICK UP NEGMAX UPON OVERFLOW
039138,001124:
039139,001125: 33,3120 40075 CS FLAGWRD1 # IS NOTERFLG SET (BY P66 OR V68)?
039140,001126: 33,3121 74732 MASK NOTERBIT
039141,001127: 33,3122 00006 EXTEND
039142,001128: 33,3123 13161 BZF TERSKIP # Y: SKIP TERRAIN BUT TRANSFER DELTA H
039143,001129:
039144,001130: 33,3124 35005 CA EBANK5 # N: PREPARE TO ACCESS TERRAIN TABLE
039145,001131: 33,3125 54003 TS EBANK
039146,001132: 33,3126 E5,1777 EBANK= END-E5
039147,001133:
039148,001134: 33,3126 34746 CA ZERO # INITIALIZE MINUS LAST ABSCISSA FOR
039149,001135: 33,3127 54142 TS TEM2 # TERLOOP WHICH ADDS THE CONTRIBUTIONS
039150,001136: 33,3130 34742 CA FOUR # OF FIVE TERRAIN SEGMENTS TO DELTA H
039151,001137: 33,3131 54145 TERLOOP TS TEM5
![]() |
Page 887 |
039153,001139: 33,3132 30154 CA MPAC # PICK UP CURRENT RANGE (NEG BEFORE SITE)
039154,001140: 33,3133 54001 TS L
039155,001141: 33,3134 50145 INDEX TEM5
039156,001142: 33,3135 41522 CS ABSC0 # TERRAIN ABSCISSAE UNITS: 2(18) METERS
039157,001143: 33,3136 04607 TC BANKCALL # LIMIT GIVEN LIMITSUB MUST BE POSITIVE
039158,001144: 33,3137 61713 FCADR LIMITSUB # LIMIT |RANGE| <= |CURRENT ABSCISSA|
039159,001145: 33,3140 54144 TS TEM4 # SAVE TO COMPARE WITH CURRENT ABSCISSA
039160,001146:
039161,001147: 33,3141 60142 AD TEM2 # SUBTRACT LAST ABSCISSA
039162,001148: 33,3142 00006 EXTEND
039163,001149: 33,3143 50145 INDEX TEM5
039164,001150: 33,3144 71527 MP SLOPE0 # SLOPE UNITS: 2(6) RADIANS. RESOL: 3.9 MR
039165,001151:
039166,001152: 33,3145 50120 INDEX FIXLOC # ADD CONTRIBUTION OF SEGMENT TO YIELD
039167,001153: 33,3146 20005 DAS 4 # CORRECTED DELTA H IN UNITS 2(24) METERS
039168,001154:
039169,001155: 33,3147 30141 CA TEM1 # RETRIEVE MINUS CURR ABSC FROM LIMITSUB*
039170,001156: 33,3150 54142 TS TEM2 # STORE AS MINUS LAST ABSC FOR NEXT SEG
039171,001157:
039172,001158: # * NOTE: IF WE HAVE FLOWN BEYOND THE LANDING SITE BY MORE THAN THE
039173,001159: # LENGTH OF THE SEGMENT ADJACENT TO THE LANDING SITE, CA TEM1
039174,001160: # WILL RETRIEVE - INSTEAD OF MINUS THE CURRENT ABSCISSA -
039175,001161: # A ZERO OR POSITIVE REMAINDER OF THE DIVISION DONE BY LIMITSUB.
039176,001162: # THIS RETRIEVAL WILL CAUSE AN IMMEDIATE BRANCH TO TEREND,
039177,001163: # WHICH IS THE DESIRED RESULT. HOWEVER, FLYING PAST THE LANDING
039178,001164: # SITE IS IMPOSSIBLE EXCEPT IN P66 WHEN THE TERRAIN MODEL IS OFF.
039179,001165:
039180,001166: 33,3151 60144 AD TEM4 # HAS LM FLOWN PAST CURRENT ABSCISSA?
039181,001167: 33,3152 00006 EXTEND
039182,001168: 33,3153 13155 BZF +2
039183,001169: 33,3154 13157 TCF TEREND # Y: IGNORE FURTHER ABSCISSAE
039184,001170: 33,3155 10145 CCS TEM5 # N: IS CURRENT ABSCISSA THE LAST?
039185,001171: 33,3156 13131 TCF TERLOOP # N: REPEAT TERRAIN LOOP
039186,001172:
039187,001173: 33,3157 35007 TEREND CA EBANK7 # Y: RESTORE EBANK AND DEPART
039188,001174: 33,3160 54003 TS EBANK
039189,001175: 33,3161 E7,1777 EBANK= END-E7
039190,001176:
039191,001177: 33,3161 00004 TERSKIP INHINT # SO DOWNLINK DATA WILL BE TIME HOMOGENEOU
039192,001178: 33,3162 50120 INDEX FIXLOC # TRANSFER COMPLETED DELTA H HOME
039193,001179: 33,3163 52005 DXCH 4 # TO BE ACCESSED BY DISPLAYS, TELEMETRY,
039194,001180: 33,3164 53665 DXCH DELTAH # AND POSITION UPDATE.
039195,001181:
039196,001182: 33,3165 53767 DXCH TEMDELH # TRANSFER TRUE DELTA H TO TRUDELH
039197,001183: 33,3166 53737 DXCH TRUDELH # FOR DOWNLINK
039198,001184: 33,3167 00003 RELINT
039199,001185:
039200,001186: 33,3170 30120 CA FIXLOC # RESTORE PUSHDOWN POINTER TO ZERO
039201,001187: 33,3171 54166 TS PUSHLOC
039202,001188:
![]() |
Page 888 |
039204,001190: 33,3172 30107 CA FLGWRD11 # IS PSTHIBIT SET (BY HIGATASK)?
039205,001191: 33,3173 74732 MASK PSTHIBIT
039206,001192: 33,3174 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST
039207,001193: 33,3175 13215 BZF NOREASON # UNTIL AFTER HIGATE
039208,001194:
039209,001195: 33,3176 06060 TC INTPRET
039210,001196: 33,3177 51545 DLOAD ABS
039211,001197: 33,3200 03665 DELTAH
039212,001198: 33,3201 62425 DSU SL2 # (ABS(DELTAH) - DQFIX) 2(24)
039213,001199: 33,3202 02504 DELQFIX # SCALE TO 2(22)
039214,001200: 33,3203 77425 DSU EXIT # (ABS(DELTAH) -(DQFIX + HCALC/4)) 2(22)
039215,001201: 33,3204 03535 HCALC
039216,001202:
039217,001203: 33,3205 25670 INCR LRLCTR
039218,001204: 33,3206 06744 TC BRANCH
039219,001205: 33,3207 13513 TCF HFAIL # DELTA H TOO LARGE
039220,001206: 33,3210 13513 TCF HFAIL # DELTA H TOO LARGE
039221,001207: 33,3211 05520 TC DOWNFLAG # RESET HFAIL FLAG
039222,001208: 33,3212 00247 ADRES HFAILFLG
039223,001209: 33,3213 05520 TC DOWNFLAG # TURN OFF ALT FAIL LAMP
039224,001210: 33,3214 00263 ADRES HFLSHFLG
039225,001211:
039226,001212: 33,3215 40107 NOREASON CS FLGWRD11
039227,001213: 33,3216 74735 MASK LRINHBIT
039228,001214: 33,3217 10000 CCS A
039229,001215: 33,3220 13261 TCF VMEASCHK # UPDATE INHIBITED - TEST VELOCITY ANYWAY
039230,001216:
039231,001217: 33,3221 06060 TC INTPRET
039232,001218: 33,3222 40545 POSUP DLOAD SR4
039233,001219: 33,3223 03535 HCALC # RESCALE H TO 2(28)M
039234,001220: 33,3224 77776 EXIT
039235,001221: 33,3225 00006 EXTEND
039236,001222: 33,3226 31665 DCA DELTAH # STORE DELTAH IN MPAC AND
039237,001223: 33,3227 52155 DXCH MPAC # BRING HCALC INTO A,L
039238,001224: 33,3230 07565 TC ALSIGNAG
039239,001225: 33,3231 00006 EXTEND # IF HIGH PART OF HCALC IS NON ZERO, THEN
039240,001226: 33,3232 13234 BZF +2 # HCALC > HMAX,
039241,001227: 33,3233 13261 TCF VMEASCHK # SO UPDATE IS BYPASSED
039242,001228: 33,3234 54156 TS MPAC +2 # FOR LATER SHORTMP
039243,001229:
039244,001230: 33,3235 40001 CS L # -H AT 2(14)M
039245,001231: 33,3236 61420 AD LRHMAX # HMAX - H
039246,001232: 33,3237 00006 EXTEND
039247,001233: 33,3240 63261 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE
039248,001234: 33,3241 00006 EXTEND
039249,001235: 33,3242 71421 MP LRWH # WH(HMAX - H)
039250,001236: 33,3243 00006 EXTEND
039251,001237: 33,3244 11420 DV LRHMAX # WH(1 - H/HMAX)
039252,001238: 33,3245 54135 TS MPTEMP
039253,001239: 33,3246 07334 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC
![]() |
Page 889 |
039255,001241: 33,3247 06060 TC INTPRET # MODE IS DP FROM ABOVE
039256,001242: 33,3250 77752 SL1
039257,001243: 33,3251 53361 VXSC VAD
039258,001244: 33,3252 03537 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
039259,001245: 33,3253 03573 R1S
039260,001246: 33,3254 03657 STORE GNUR
039261,001247: 33,3255 77776 EXIT
039262,001248:
039263,001249: 33,3256 03473 TC QUIKFAZ5
039264,001250:
039265,001251: 33,3257 34746 CA ZERO
039266,001252: 33,3260 03455 RUPDATED TC GNURVST
039267,001253:
039268,001254: 33,3261 03473 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION
039269,001255: 33,3262 40107 R12THRU? CS FLGWRD11 # IS RADAREAD THROUGH ?
039270,001256: 33,3263 74742 MASK R12RDBIT
039271,001257: 33,3264 10000 CCS A
039272,001258: 33,3265 13271 TCF VELDATA? # YES:GO ON WITH UPDATE
039273,001259: 33,3266 10067 CCS NEWJOB # NO-WAIT
039274,001260: 33,3267 05113 TC CHANG1
039275,001261: 33,3270 13262 TCF R12THRU?
039276,001262: 33,3271 40107 VELDATA? CS FLGWRD11
039277,001263: 33,3272 74736 MASK VELDABIT # IS V READING AVAILABLE?
039278,001264: 33,3273 10000 CCS A
039279,001265: 33,3274 13433 TCF VALTCHK # NO SEE IF V READING TO BE TAKEN
039280,001266:
039281,001267: 33,3275 03501 VELUPDAT TC POSINDEX # SET X1 AND X2 AND ZERO PUSHLIST
039282,001268: 33,3276 41462 CS VSELECT
039283,001269: 33,3277 54001 TS L
039284,001270: 33,3300 26001 ADS L # -2 VSELECT IN L
039285,001271: 33,3301 60001 AD L
039286,001272: 33,3302 60001 AD L # -6 VSELECT IN A
039287,001273: 33,3303 50120 INDEX FIXLOC
039288,001274: 33,3304 20047 DAS X1 # X1 = -6 VSELECT(POS), X2 = -2 VSELECT
039289,001275:
039290,001276: 33,3305 06060 TC INTPRET
039291,001277: 33,3306 61373 VLOAD* VXM
039292,001278: 33,3307 26011 VZBEAMNB,1 # CONVERT PROPER VBEAM FROM NB TO SM
039293,001279: 33,3310 02137 XNBPIP # SCALED AT 2(1)
039294,001280: 33,3311 54325 PDDL SL # STORE IN PD 0-5
039295,001281: 33,3312 03653 VMEAS # LOAD VELOCITY MEASUREMENT
039296,001282: 33,3313 20215 12D
039297,001283: 33,3314 63203 DMP* PDVL # SCALE TO M/CS AT 2(6)
039298,001284: 33,3315 51712 VZSCAL,2 # AND STORE IN PD 6-7
039299,001285: 33,3316 03601 V1S # VELOCITY AT TIME OF READING
039300,001286: 33,3317 52352 VSL2 VSU # SCALE TO 2(5) M/CS AND SUBTRACT
039301,001287: 33,3320 03702 VSURFACE # MOON ROTATION.
039302,001288: 33,3321 51406 PUSH ABVAL # STORE IN PD
039303,001289: 33,3322 43202 SR4 DAD # ABS(VM)/8 + VELBIAS AT 2(6)
039304,001290: 33,3323 02401 VELBIAS
![]() |
Page 890 |
039306,001292: 33,3324 24025 STOVL 20D # STORE IN 20D AND PICK UP VM
039307,001293: 33,3325 44241 DOT BDSU
039308,001294: 33,3326 00001 0 # DELTAV = VMEAS - V(EST)
039309,001295: 33,3327 51406 PUSH ABS
039310,001296: 33,3330 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8))
039311,001297: 33,3331 00025 20D
039312,001298:
039313,001299: 33,3332 25672 INCR LRMCTR
039314,001300: 33,3333 06744 TC BRANCH
039315,001301: 33,3334 13532 TCF VFAIL # DELTA V TOO LARGE ALARM
039316,001302: 33,3335 13532 TCF VFAIL # DELTA V TOO LARGE ALARM
039317,001303:
039318,001304: 33,3336 05520 TC DOWNFLAG # RESET HFAIL FLAG
039319,001305: 33,3337 00246 ADRES VFAILFLG
039320,001306: 33,3340 05520 TC DOWNFLAG # TURN OFF VEL FAIL LAMP
039321,001307: 33,3341 00262 ADRES VFLSHFLG
![]() |
The above line is circled. |
039323,001309:
039324,001310: 33,3342 30107 CA FLGWRD11
039325,001311: 33,3343 74731 MASK VXINHBIT
039326,001312: 33,3344 00006 EXTEND
039327,001313: 33,3345 13354 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA.
039328,001314:
039329,001315: 33,3346 05520 TC DOWNFLAG
039330,001316: 33,3347 00250 ADRES VXINH # RESET VX INHIBIT
039331,001317:
039332,001318: 33,3350 31462 CA VSELECT
039333,001319: 33,3351 67767 AD NEG2 # IF VSELECT = 2 (X AXIS),
039334,001320: 33,3352 00006 EXTEND # BYPASS UPDATE
039335,001321: 33,3353 13433 BZF ENDVDAT
039336,001322:
039337,001323: 33,3354 40107 VUPDAT CS FLGWRD11
039338,001324: 33,3355 74735 MASK LRINHBIT
039339,001325: 33,3356 10000 CCS A
039340,001326: 33,3357 13433 TCF VALTCHK # UPDATE INHIBITED
039341,001327:
039342,001328: 33,3360 54155 TS MPAC +1
039343,001329:
039344,001330: 33,3361 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS
039345,001331: 33,3362 54130 TS ABVEL*
039346,001332: 33,3363 31462 CA VSELECT
039347,001333: 33,3364 54131 TS VSELECT*
039348,001334: 33,3365 35005 CA EBANK5
039349,001335: 33,3366 54003 TS EBANK # CHANGE EBANKS
039350,001336:
039351,001337: 33,3367 E5,1512 EBANK= LRVF
039352,001338: 33,3367 41512 CS LRVF
039353,001339: 33,3370 60130 AD ABVEL* # IF V < VF, USE WVF
039354,001340: 33,3371 00006 EXTEND
039355,001341: 33,3372 63405 BZMF USEVF
039356,001342:
![]() |
Page 891 |
039358,001344: 33,3373 40130 CS ABVEL*
039359,001345: 33,3374 61511 AD LRVMAX # VMAX - V
039360,001346: 33,3375 00006 EXTEND
039361,001347: 33,3376 63410 BZMF WSTOR -1 # IF V > VMAX, W = 0
039362,001348:
039363,001349: 33,3377 00006 EXTEND
039364,001350: 33,3400 50131 INDEX VSELECT*
039365,001351: 33,3401 71513 MP LRWVZ # WV(VMAX - V)
039366,001352:
039367,001353: 33,3402 00006 EXTEND
039368,001354: 33,3403 11511 DV LRVMAX # WV( 1 - V/VMAX )
039369,001355: 33,3404 13411 TCF WSTOR
039370,001356:
039371,001357: 33,3405 50131 USEVF INDEX VSELECT*
039372,001358: 33,3406 31516 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
039373,001359: 33,3407 13411 TCF WSTOR
039374,001360:
039375,001361: 33,3410 34746 -1 CA ZERO
039376,001362: 33,3411 54154 WSTOR TS MPAC
039377,001363: 33,3412 44736 CS BIT7 # (=64D)
039378,001364: 33,3413 61010 AD MODREG
039379,001365: 33,3414 00006 EXTEND
039380,001366: 33,3415 63420 BZMF GETGNUV # IF IN P66 USE ANOTHER CONSTANT
039381,001367: 33,3416 31521 CA LRWVFF
039382,001368: 33,3417 54154 TS MPAC
039383,001369:
039384,001370: 33,3420 35007 GETGNUV CA EBANK7
039385,001371: 33,3421 54003 TS EBANK # CHANGE EBANKS
039386,001372:
039387,001373: 33,3422 E7,1471 EBANK= ABVEL
039388,001374: 33,3422 06060 TC INTPRET
039389,001375: 33,3423 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5
039390,001376: 33,3424 77655 VAD
039391,001377: 33,3425 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY
039392,001378: 33,3426 03657 STORE GNUV
039393,001379: 33,3427 77776 EXIT
039394,001380:
039395,001381: 33,3430 03473 TC QUIKFAZ5 # DO NOT RE-UPDATE
039396,001382:
039397,001383: 33,3431 36263 CA SIX
039398,001384: 33,3432 03455 VUPDATED TC GNURVST # STORE NEW VELOCITY VECTOR
039399,001385: 33,3433 33,3433 ENDVDAT = VALTCHK
039400,001386:
039401,001387: 33,3433 03473 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE
039402,001388:
039403,001389: 33,3434 40107 HIGATCHK CS FLGWRD11 # IS PSTHIBIT SET (BY HIGATASK)?
039404,001390: 33,3435 74732 MASK PSTHIBIT
039405,001391: 33,3436 00006 EXTEND
039406,001392: 33,3437 12501 BZF CONTSERV # YES: BYPASS HIGATE CHECK
039407,001393:
![]() |
Page 892 |
039409,001395: 33,3440 31642 CA TTF/8
039410,001396: 33,3441 61427 AD RPCRTIME
039411,001397: 33,3442 00006 EXTEND
039412,001398: 33,3443 62501 BZMF CONTSERV
039413,001399:
039414,001400: 33,3444 34732 CA EBANK4
039415,001401: 33,3445 56003 XCH EBANK
039416,001402: 33,3446 54001 TS L
039417,001403:
039418,001404: 33,3447 E4,1536 EBANK= XNBPIP
039419,001405: 33,3447 41536 CS XNBPIP
039420,001406: 33,3450 E7,1515 EBANK= DVCNTR
039421,001407: 33,3450 22003 LXCH EBANK
039422,001408: 33,3451 61430 AD RPCRTQSW
039423,001409: 33,3452 00006 EXTEND
039424,001410: 33,3453 62376 BZMF HIGATASK
039425,001411: 33,3454 12501 TCF CONTSERV
039426,001412:
039427,001413:
039428,001414: 33,3455 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
039429,001415: 33,3456 00006 EXTEND # A = 0 FOR R, A = 6 FOR V
039430,001416: 33,3457 31657 DCA GNUR
039431,001417: 33,3460 50130 INDEX BUF
039432,001418: 33,3461 53573 DXCH R1S
039433,001419: 33,3462 00006 EXTEND
039434,001420: 33,3463 31661 DCA GNUR +2
039435,001421: 33,3464 50130 INDEX BUF
039436,001422: 33,3465 53575 DXCH R1S +2
039437,001423: 33,3466 00006 EXTEND
039438,001424: 33,3467 31663 DCA GNUR +4
039439,001425: 33,3470 50130 INDEX BUF
039440,001426: 33,3471 53577 DXCH R1S +4
039441,001427: 33,3472 00002 TC Q
039442,001428:
039443,001429:
039444,001430: 33,3473 35000 QUIKFAZ5 CA EBANK3
039445,001431: 33,3474 56003 XCH EBANK # SET EBANK 3
039446,001432: 33,3475 52002 DXCH L # Q TO A, A TO L
039447,001433: 33,3476 E3,1446 EBANK= PHSNAME5
039448,001434: 33,3476 55446 TS PHSNAME5
039449,001435: 33,3477 22003 LXCH EBANK
039450,001436: 33,3500 E7,1515 EBANK= DVCNTR
039451,001437: 33,3500 00000 TC A
039452,001438:
039453,001439:
039454,001440: 33,3501 30120 POSINDEX CA FIXLOC # SET PUSHLIST TO ZERO
039455,001441: 33,3502 54166 TS PUSHLOC
039456,001442:
039457,001443: 33,3503 34744 CA BIT1
039458,001444: 33,3504 71650 MASK LRPOS # *NOTE - LRPOS = 1 FOR POS 2 & VICE VERSA
![]() |
Page 893 |
039460,001446: 33,3505 10000 CCS A
039461,001447: 33,3506 44754 CS OCT30 # POS 2 , INDEX = -24D
039462,001448: 33,3507 22007 ZL # POS 1 , INDEX = 0 , X2 = 0 FOR BOTH
039463,001449: 33,3510 50120 INDEX FIXLOC
039464,001450: 33,3511 52047 DXCH X1 # SET X1,X2
039465,001451: 33,3512 00002 TC Q
039466,001452: 33,3513 05506 HFAIL TC UPFLAG # SET HFAIL FLAG FOR DOWNLINK
039467,001453: 33,3514 00247 ADRES HFAILFLG
039468,001454: 33,3515 41671 CS LRRCTR
039469,001455: 33,3516 00006 EXTEND
039470,001456: 33,3517 13527 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
039471,001457: 33,3520 61670 AD LRLCTR
039472,001458: 33,3521 77766 MASK NEG3
039473,001459: 33,3522 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL
039474,001460: 33,3523 13525 BZF +2
039475,001461: 33,3524 13527 TCF NORLITE
039476,001462:
039477,001463: 33,3525 05506 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
039478,001464: 33,3526 00263 ADRES HFLSHFLG
039479,001465:
039480,001466: 33,3527 31670 NORLITE CA LRLCTR
039481,001467: 33,3530 55671 TS LRRCTR # SET R = L
039482,001468:
039483,001469: 33,3531 13261 TCF VMEASCHK
039484,001470:
039485,001471: 33,3532 05506 VFAIL TC UPFLAG
039486,001472: 33,3533 00246 ADRES VFAILFLG # SET VFAIL FLAG FOR DOWNLINK
![]() |
The above instruction and address are circled in red. |
039488,001474: 33,3534 41673 CS LRSCTR
039489,001475: 33,3535 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
039490,001476: 33,3536 13546 BZF NOLITE
039491,001477: 33,3537 61672 AD LRMCTR # M-S
039492,001478: 33,3540 77766 MASK NEG3 # TEST FOR M-S > 3
039493,001479: 33,3541 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. |
039495,001481: 33,3542 13544 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. |
039498,001484: 33,3543 13546 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..." |
039500,001486:
039501,001487: 33,3544 05506 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
039502,001488: 33,3545 00262 ADRES VFLSHFLG
![]() |
The above instruction and address are circled. |
039504,001490:
039505,001491: 33,3546 31672 NOLITE CA LRMCTR # SET S = M
039506,001492: 33,3547 55673 TS LRSCTR
039507,001493:
039508,001494: 33,3550 11462 CCS VSELECT # TEST FOR Z COMPONENT
039509,001495: 33,3551 13433 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT
039510,001496:
039511,001497: 33,3552 05506 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X
039512,001498: 33,3553 00250 ADRES VXINH # COMPONENT,AS ERROR MAY BE DUE TO CROSS
039513,001499: 33,3554 13433 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS.
039514,001500:
![]() |
Page 894 |
039516,001502: # ********************************************************************************************************
039517,001503: 33,3555 BANK 33
039518,001504: 33,2000 SETLOC SERVICES
039519,001505: 33,2000 BANK
039520,001506:
039521,001507: 33,3555 COUNT* $$/SERV
039522,001508:
039523,001509: 33,3555 E7,1515 EBANK= DVCNTR
039524,001510:
039525,001511:
039526,001512: # HIGATJOB IS BEGUN WHEN BOTH THE TIME AND ANGLE CRITERIA FOR ANTENNA REPOSITIONING ARE MET. THE JOB INITIATES THE
039527,001513: # LANDING RADAR ANTENNA REPOSITIONING ROUTINE. DURING THE REPOSITIONING, R12 IS INHIBITTED BY THE NOLRREAD FLAG.
039528,001514: # UPON COMPLETION OF THE REPOSITIONING,(SUCCESSFUL OR NOT),THE NOLRREAD FLAG IS CLEARED AND R12 CONTINUES.
039529,001515:
039530,001516:
039531,001517: 33,3555 00004 REREPOS INHINT # ON RESTART, SET FLAGS AGAIN
039532,001518: 33,3556 40107 CS FLGWRD11
039533,001519: 33,3557 75006 MASK PRIO3
039534,001520: 33,3560 26107 ADS FLGWRD11
039535,001521:
039536,001522: 33,3561 04607 HIGATJOB TC BANKCALL # INITIATE REPOSITIONING ROUTINE
039537,001523: 33,3562 53511 CADR LRPOS2
039538,001524: 33,3563 04607 TC BANKCALL # DELAY UNTIL FINISHED
039539,001525: 33,3564 17733 CADR RADSTALL
039540,001526:
039541,001527: 33,3565 13566 TCF +1 # IF UNSUCCESSFUL, R12 WILL HANDLE THINGS
039542,001528: 33,3566 34744 CA ONE # INDICATE POS 2 IS EXPECTED
039543,001529: 33,3567 55650 TS LRPOS
039544,001530:
039545,001531: 33,3570 05520 TC DOWNFLAG # RE-ENABLE R12.
039546,001532: 33,3571 00252 ADRES NOLRREAD
039547,001533:
039548,001534: 33,3572 05355 TC PHASCHNG # CLEAR RESTART PROTECTION
039549,001535: 33,3573 00001 OCT 1
039550,001536: 33,3574 05146 TC ENDOFJOB
![]() |
Below, in the comment column, is written "NEG3 = 77774" |
End of include-file SERVICER.agc. Parent file is MAIN.agc