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