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