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