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