Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
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.
|
036404,000002: ## Copyright: Public domain.
036405,000003: ## Filename: P70-P71.agc
036406,000004: ## Purpose: A section of LUM69 revision 2.
036407,000005: ## It is part of the reconstructed source code for the flown
036408,000006: ## version of the flight software for the Lunar Module's (LM)
036409,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
036410,000008: ## been recreated from a copy of Luminary revsion 069, using
036411,000009: ## changes present in Luminary 099 which were described in
036412,000010: ## Luminary memos 75 and 78. The code has been adapted such
036413,000011: ## that the resulting bugger words exactly match those specified
036414,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
036415,000013: ## relatively high confidence that the reconstruction is correct.
036416,000014: ## Reference: pp. 829-838
036417,000015: ## Assembler: yaYUL
036418,000016: ## Contact: Ron Burkey <info@sandroid.org>.
036419,000017: ## Website: www.ibiblio.org/apollo/index.html
036420,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
036421,000019:
|
|
Page 829
|
036423,000021: 21,2102 BANK 21
036424,000022: 21,2000 SETLOC R11
036425,000023: 21,2000 BANK
036426,000024:
036427,000025: 21,2102 E7,1513 EBANK= DVCNTR
036428,000026: 21,2102 COUNT* $$/R11
036429,000027:
036430,000028: 21,2102 40103 R10,R11 CS FLAGWRD7 # IS SERVICER STILL RUNNING?
036431,000029: 21,2103 74747 MASK AVEGFBIT
036432,000030: 21,2104 10000 CCS A
036433,000031: 21,2105 15261 TCF TASKOVER # LET AVGEND TAKE CARE OF GROUP 2.
036434,000032: 21,2106 11056 CCS PIPCTR
036435,000033: 21,2107 12111 TCF +2
036436,000034: 21,2110 12314 TCF LRHTASK # LAST PASS. CALL LRHTASK.
036437,000035: 21,2111 55712 +2 TS PIPCTR1
036438,000036:
036439,000037: 21,2112 E7,1712 PIPCTR1 = LADQSAVE
036440,000038: 21,2112 1056 PIPCTR = PHSPRDT2
036441,000039: 21,2112 36010 CAF OCT31
036442,000040: 21,2113 05173 TC TWIDDLE
036443,000041: 21,2114 02102 ADRES R10,R11
036444,000042: 21,2115 41303 R10,R11A CS IMODES33 # IF LAMP TEST, DO NOT CHANGE LR LITES.
036445,000043: 21,2116 74753 MASK BIT1
036446,000044: 21,2117 00006 EXTEND
036447,000045: 21,2120 12136 BZF 10,11
036448,000046:
036449,000047: 21,2121 70107 FLASHH? MASK FLGWRD11 # C(A) = 1 = HFLASH BIT
036450,000048: 21,2122 00006 EXTEND
036451,000049: 21,2123 12127 BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
036452,000050:
036453,000051: 21,2124 34747 CA HLITE
036454,000052: 21,2125 54001 TS L
036455,000053: 21,2126 04606 TC FLIP # FLIP H LITE
036456,000054:
036457,000055: 21,2127 34752 FLASHV? CA VFLSHBIT # VFLASHBIT MUST BE BIT 2.
036458,000056: 21,2130 70107 MASK FLGWRD11
036459,000057: 21,2131 00006 EXTEND
036460,000058: 21,2132 12136 BZF 10,11 # V FLASH OFF
036461,000059:
036462,000060: 21,2133 34751 CA VLITE
036463,000061: 21,2134 54001 TS L
036464,000062: 21,2135 04606 TC FLIP # FLIP V LITE
036465,000063:
036466,000064: 21,2136 30105 10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
036467,000065: 21,2137 74743 MASK LETABBIT
036468,000066: 21,2140 00006 EXTEND
036469,000067: 21,2141 12340 BZF LANDISP # NO. PROCEED TO R10.
036470,000068:
036471,000069: 21,2142 41011 P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
|
|
Page 830
|
036473,000071: 21,2143 62272 AD MODE71
036474,000072: 21,2144 00006 EXTEND
036475,000073: 21,2145 12340 BZF LANDISP # YES. PROCEED TO R10.
036476,000074:
036477,000075: 21,2146 00006 EXTEND # NO. IS AN ABORT STAGE COMMANDED?
036478,000076: 21,2147 00030 READ CHAN30
036479,000077: 21,2150 40000 COM
036480,000078: 21,2151 54001 TS L
036481,000079: 21,2152 74750 MASK BIT4
036482,000080: 21,2153 10000 CCS A
036483,000081: 21,2154 12172 TCF P71A # YES.
036484,000082:
036485,000083: 21,2155 41011 P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
036486,000084: 21,2156 62270 AD MODE70
036487,000085: 21,2157 00006 EXTEND
036488,000086: 21,2160 12340 BZF LANDISP # YES. PROCEED TO R10.
036489,000087:
036490,000088: 21,2161 30001 CA L # NO. IS AN ABORT COMMANDED?
036491,000089: 21,2162 74753 MASK BIT1
036492,000090: 21,2163 10000 CCS A
036493,000091: 21,2164 12167 TCF P70A # YES.
036494,000092: 21,2165 12340 TCF LANDISP # NO. PROCEED TO R10.
036495,000093:
036496,000094: 21,2166 COUNT* $$/P70
036497,000095:
036498,000096: 21,2166 02274 P70 TC LEGAL?
036499,000097: 21,2167 44755 P70A CS ZERO
036500,000098: 21,2170 12173 TCF +3
036501,000099: 21,2171 02274 P71 TC LEGAL?
036502,000100: 21,2172 34752 P71A CAF TWO
036503,000101: 21,2173 54002 +3 TS Q
036504,000102: 21,2174 00004 INHINT
036505,000103: 21,2175 32200 CAF ABRTJADR
036506,000104: 21,2176 54017 TS BRUPT
036507,000105: 21,2177 50017 RESUME
036508,000106:
036509,000107: 21,2200 12201 ABRTJADR TCF ABRTJASK
036510,000108:
036511,000109: 21,2201 32271 ABRTJASK CAF OCTAL27
036512,000110: 21,2202 60002 AD Q
036513,000111: 21,2203 54001 TS L
036514,000112: 21,2204 40000 COM
036515,000113: 21,2205 52761 DXCH -PHASE4
036516,000114: 21,2206 50002 INDEX Q
036517,000115: 21,2207 32270 CAF MODE70
036518,000116: 21,2210 55011 TS MODREG
036519,000117:
036520,000118: 21,2211 55163 TS DISPDEX # INSURE DISPDEX IS POSITIVE.
036521,000119:
036522,000120: 21,2212 10002 CCS Q # SET APSFLAG IF P71.
|
|
Page 831
|
036524,000122: 21,2213 40106 CS FLGWRD10 # SET APSFLAG PRIOR TO THE ENEMA.
036525,000123: 21,2214 74737 MASK APSFLBIT
036526,000124: 21,2215 26106 ADS FLGWRD10
036527,000125: 21,2216 42273 CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9
036528,000126: 21,2217 70111 MASK DAPBOOLS # (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
036529,000127: 21,2220 54111 TS DAPBOOLS
036530,000128:
036531,000129: 21,2221 40101 CS FLAGWRD5 # SET ENGONFLG.
036532,000130: 21,2222 74745 MASK ENGONBIT
036533,000131: 21,2223 26101 ADS FLAGWRD5
036534,000132:
036535,000133: 21,2224 44355 CS PRIO30 # INSURE THAT THE ENGINE IS ON, IF ARMED.
036536,000134: 21,2225 00006 EXTEND
036537,000135: 21,2226 02011 RAND DSALMOUT
036538,000136: 21,2227 64737 AD BIT13
036539,000137: 21,2230 00006 EXTEND
036540,000138: 21,2231 01011 WRITE DSALMOUT
036541,000139:
036542,000140: 21,2232 34735 CAF LRBYBIT # TERMINATE R12.
036543,000141: 21,2233 54107 TS FLGWRD11
036544,000142:
036545,000143: 21,2234 40074 CS FLAGWRD0 # SET R10FLAG TO SUPPRESS OUTPUTS TO THE
036546,000144: 21,2235 74752 MASK R10FLBIT # CROSS-POINTER DISPLAY.
036547,000145: 21,2236 26074 ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
036548,000146: # DISPLAY INERTIAL DATA OUTBIT AND
036549,000147: # DISABLE THE RR ERROR CTRS FOR US.
036550,000148:
036551,000149: 21,2237 00006 EXTEND # LOAD TEVENT FOR THE DOWNLINK.
036552,000150: 21,2240 30025 DCA TIME2
036553,000151: 21,2241 53345 DXCH TEVENT
036554,000152:
036555,000153: 21,2242 00006 EXTEND
036556,000154: 21,2243 32267 DCA SVEXITAD
036557,000155: 21,2244 53253 DXCH AVGEXIT
036558,000156:
036559,000157: 21,2245 00006 EXTEND
036560,000158: 21,2246 34755 DCA NEG0
036561,000159: 21,2247 52753 DXCH -PHASE1
036562,000160:
036563,000161: 21,2250 00006 EXTEND
036564,000162: 21,2251 34755 DCA NEG0
036565,000163: 21,2252 52757 DXCH -PHASE3
036566,000164:
036567,000165: 21,2253 00006 EXTEND
036568,000166: 21,2254 34755 DCA NEG0
036569,000167: 21,2255 52765 DXCH -PHASE6
036570,000168:
036571,000169: 21,2256 36244 CAF THREE # SET UP 4.3SPOT FOR GOABORT
036572,000170: 21,2257 54001 TS L
036573,000171: 21,2260 40000 COM
|
|
Page 832
|
036575,000173: 21,2261 52761 DXCH -PHASE4
036576,000174:
036577,000175: 21,2262 37727 CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
036578,000176: 21,2263 54030 TS TIME5 # 40 MILLISECONDS.
036579,000177:
036580,000178: 21,2264 04635 TC POSTJUMP
036581,000179: 21,2265 12766 CADR ENEMA
036582,000180:
036583,000181: 21,2266 E7,1513 EBANK= DVCNTR
036584,000182: 21,2266 03525 76067 SVEXITAD 2CADR SERVEXIT
036585,000183:
036586,000184: 21,2270 00106 MODE70 DEC 70 B-14
036587,000185: 21,2271 00027 OCTAL27 OCT 27
036588,000186: 21,2272 00107 MODE71 DEC 71 B-14
036589,000187:
036590,000188: 21,2273 00640 DAPBITS OCT 00640
036591,000189:
036592,000190: 32,3257 BANK 32
036593,000191: 32,2000 SETLOC ABORTS
036594,000192: 32,2000 BANK
036595,000193:
036596,000194: 32,3257 COUNT* $$/P70
036597,000195:
036598,000196: 32,3257 06036 GOABORT TC INTPRET
036599,000197: 32,3260 77624 CALL
036600,000198: 32,3261 61055 INITCDUW
036601,000199: 32,3262 77776 EXIT
036602,000200: 32,3263 34751 CAF FOUR
036603,000201: 32,3264 55513 TS DVCNTR
036604,000202:
036605,000203: 32,3265 33607 CAF WHICHADR
036606,000204: 32,3266 55453 TS WHICH
036607,000205:
036608,000206: 32,3267 05516 TC DOWNFLAG
036609,000207: 32,3270 00214 ADRES FLRCS
036610,000208:
036611,000209: 32,3271 05516 TC DOWNFLAG
036612,000210: 32,3272 00175 ADRES FLUNDISP
036613,000211:
036614,000212: 32,3273 05516 TC DOWNFLAG
036615,000213: 32,3274 00161 ADRES IDLEFLAG
036616,000214:
036617,000215: 32,3275 05504 TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
036618,000216: 32,3276 00307 ADRES ACC4-2FL
036619,000217:
036620,000218: 32,3277 05321 TC CHECKMM
036621,000219: 32,3300 00106 70DEC DEC 70 B-14
036622,000220: 32,3301 13525 TCF P71RET
036623,000221:
036624,000222: 32,3302 06036 P70INIT TC INTPRET
|
|
Page 833
|
036626,000224: 32,3303 77624 CALL
036627,000225: 32,3304 65555 TGOCOMP
036628,000226: 32,3305 54345 DLOAD SL
036629,000227: 32,3306 34003 MDOTDPS
036630,000228: 32,3307 20205 4D
036631,000229: 32,3310 77665 BDDV
036632,000230: 32,3311 01245 MASS
036633,000231: 32,3312 16265 STODL TBUP
036634,000232: 32,3313 01245 MASS
036635,000233: 32,3314 70471 DDV SR1
036636,000234: 32,3315 24003 K(1/DV)
036637,000235: 32,3316 03633 STORE 1/DV1
036638,000236: 32,3317 03635 STORE 1/DV2
036639,000237: 32,3320 03637 STORE 1/DV3
036640,000238: 32,3321 77665 BDDV
036641,000239: 32,3322 25606 K(AT)
036642,000240: 32,3323 16257 STODL AT
036643,000241: 32,3324 34005 DTDECAY
036644,000242: 32,3325 54276 DCOMP SL
036645,000243: 32,3326 20214 11D
036646,000244: 32,3327 02263 STORE TTO
036647,000245: 32,3330 57535 SLOAD DCOMP
036648,000246: 32,3331 26002 DPSVEX
036649,000247: 32,3332 77702 SR2
036650,000248: 32,3333 02261 STORE VE # INITIALIZE DPS EXHAUST VELOCITY
036651,000249: 32,3334 45014 SET CALL
036652,000250: 32,3335 04467 FLAP
036653,000251: 32,3336 60230 COMMINIT
036654,000252: 32,3337 77650 INJTARG GOTO # *** BYPASS ZONE 0 ***
036655,000253: 32,3340 65371 UPTHROT # *** BYPASS ZONE 0 ***
036656,000254: # DLOAD DSU
036657,000255: # TGO
036658,000256: # 50SECS
036659,000257: # BPL EXIT
036660,000258: # UPTHROT
036661,000259:
036662,000260: 32,3341 05321 TC CHECKMM
036663,000261: 32,3342 00106 DEC 70 B-14
036664,000262: 32,3343 33572 CAF DEC299 # P71. DELAY 3 SECONDS.
036665,000263: 32,3344 64753 AD BIT1 # P70. DELAY 1 CENTISECOND.
036666,000264: 32,3345 55644 TS ENGOFFDT
036667,000265: 32,3346 05173 TC TWIDDLE
036668,000266: 32,3347 03356 ADRES ZONEZERO
036669,000267:
036670,000268: 32,3350 05353 TC PHASCHNG
036671,000269: 32,3351 47014 OCT 47014
036672,000270: 32,3352 76133 -GENADR ENGOFFDT
036673,000271: 32,3353 E7,1513 EBANK= DVCNTR
036674,000272: 32,3353 03356 64067 2CADR ZONEZERO
|
|
Page 834
|
036676,000274: 32,3355 15155 TCF ENDOFJOB
036677,000275:
036678,000276: 32,3356 04674 ZONEZERO TC IBNKCALL
036679,000277: 32,3357 75551 CADR ENGINOF2
036680,000278:
036681,000279: 32,3360 33407 CAF ZERETAD
036682,000280: 32,3361 55260 TS OUTROUTE
036683,000281:
036684,000282: 32,3362 05516 TC DOWNFLAG
036685,000283: 32,3363 00163 ADRES AVEGFLAG
036686,000284:
036687,000285: 32,3364 05516 TC DOWNFLAG
036688,000286: 32,3365 00162 ADRES V37FLAG
036689,000287:
036690,000288: 32,3366 05353 TC PHASCHNG
036691,000289: 32,3367 00004 OCT 00004
036692,000290:
036693,000291: 32,3370 15261 TCF TASKOVER
036694,000292:
036695,000293: 32,3371 77414 UPTHROT SET EXIT
036696,000294: 32,3372 04461 FLVR
036697,000295:
036698,000296: 32,3373 03564 TC THROTUP
036699,000297:
036700,000298: 32,3374 05353 TC PHASCHNG
036701,000299: 32,3375 04024 OCT 04024
036702,000300:
036703,000301: 32,3376 04616 -3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
036704,000302: 32,3377 73707 CADR P40AUTO # ARE PROPERLY SET.
036705,000303:
036706,000304: 32,3400 03564 TC THROTUP
036707,000305:
036708,000306: 32,3401 00006 UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE.
036709,000307: 32,3402 33611 DCA ATMAGAD
036710,000308: 32,3403 53253 DXCH AVGEXIT
036711,000309:
036712,000310: 32,3404 05353 GRP4OFF TC PHASCHNG # TERMINATE USE OF GROUP 4.
036713,000311: 32,3405 00004 OCT 00004
036714,000312:
036715,000313: 32,3406 15155 TCF ENDOFJOB
036716,000314:
036717,000315: 32,3407 65410 ZERETAD CADR ZONE0RET
036718,000316: 32,3410 05327 ZONE0RET TC 2PHSCHNG
036719,000317: 32,3411 00002 OCT 00002
036720,000318: 32,3412 05024 OCT 05024
036721,000319: 32,3413 25000 OCT 25000
036722,000320:
036723,000321: 32,3414 06036 TC INTPRET
036724,000322: 32,3415 43234 RTB DAD
|
|
Page 835
|
036726,000324: 32,3416 21462 LOADTIME
036727,000325: 32,3417 25576 90SEC
036728,000326: 32,3420 03557 STORE PIPTIME1 # STORE TEMPORARILY IN PIPTIME1.
036729,000327: 32,3421 34041 STCALL TDEC1
036730,000328: 32,3422 27057 LEMPREC
036731,000329: 32,3423 77775 VLOAD
036732,000330: 32,3424 00007 VATT
036733,000331: 32,3425 03551 STORE VN1 # STORE VTIG TEMPORARILY IN VN1.
036734,000332: 32,3426 76521 MXV VSL1
036735,000333: 32,3427 01734 REFSMMAT
036736,000334: 32,3430 27525 STOVL V
036737,000335: 32,3431 00001 RATT
036738,000336: 32,3432 03543 STORE RN1 # STORE RTIG TEMPORARILY IN RN1.
036739,000337: 32,3433 52521 MXV VSL6
036740,000338: 32,3434 01734 REFSMMAT
036741,000339: 32,3435 37517 STCALL R
036742,000340: 32,3436 67162 MUNGRAV
036743,000341: 32,3437 45014 SET CALL
036744,000342: 32,3440 04471 FLZONE0
036745,000343: 32,3441 60313 ASCENT
036746,000344: 32,3442 77776 PREBRET1 EXIT
036747,000345: 32,3443 05353 TC PHASCHNG
036748,000346: 32,3444 04024 OCT 04024
036749,000347: 32,3445 06036 TC INTPRET
036750,000348: 32,3446 77214 CLEAR VLOAD
036751,000349: 32,3447 04671 FLZONE0
036752,000350: 32,3450 03646 VGVECT
036753,000351: 32,3451 76505 VXM VSL1
036754,000352: 32,3452 01734 REFSMMAT
036755,000353: 32,3453 03654 STORE DELVSIN
036756,000354: 32,3454 77646 ABVAL
036757,000355: 32,3455 27662 STOVL DELVSAB
036758,000356: 32,3456 03543 RN1
036759,000357: 32,3457 27640 STOVL RTIG
036760,000358: 32,3460 03551 VN1
036761,000359: 32,3461 17646 STODL VTIG
036762,000360: 32,3462 03557 PIPTIME1
036763,000361: 32,3463 03440 STORE TIG
036764,000362: 32,3464 43014 SET CLEAR
036765,000363: 32,3465 01067 XDELVFLG
036766,000364: 32,3466 04666 LETABORT
036767,000365: 32,3467 77776 EXIT
036768,000366:
036769,000367: 32,3470 36241 CAF SIX # SET UP R60 FOR A 10 DEG/SEC MANUV. RATE.
036770,000368: 32,3471 55325 TS RATEINDX
036771,000369:
036772,000370: 32,3472 35023 CAF PRIO13 # REDUCE PRIORITY TO LEVEL EXPECTED BY
036773,000371: 32,3473 05146 TC PRIOCHNG # P40 AND P42.
036774,000372: 32,3474 33612 CAF ORBMANAD # INITIALIZE FOR ORBITAL MANEUVERS LIST.
036775,000373: 32,3475 54332 TS DNLSTCOD
|
|
Page 836
|
036777,000375: 32,3476 55324 TS AGSWORD
036778,000376:
036779,000377: 32,3477 05321 TC CHECKMM
036780,000378: 32,3500 00106 DEC 70 B-14 # FOR MODE=70,USE P40,OTHERWISE P42
036781,000379: 32,3501 13515 TCF 42SET
036782,000380: 32,3502 33521 40SET CAF P40CADR
036783,000381: 32,3503 55566 TS CADRSAVE
036784,000382: 32,3504 33523 CAF DEC40
036785,000383: 32,3505 55567 COMMSET TS MMSAVE
036786,000384: 32,3506 05353 TC PHASCHNG
036787,000385: 32,3507 05024 OCT 05024
036788,000386: 32,3510 13000 OCT 13000
036789,000387:
036790,000388: 32,3511 31567 CA MMSAVE
036791,000389: 32,3512 05314 TC NEWMODEA
036792,000390:
036793,000391: 32,3513 31566 CA CADRSAVE
036794,000392: 32,3514 04640 TC BANKJUMP
036795,000393: 32,3515 33522 42SET CAF P42CADR
036796,000394: 32,3516 55566 TS CADRSAVE
036797,000395: 32,3517 33524 CAF DEC42
036798,000396: 32,3520 13505 TCF COMMSET
036799,000397:
036800,000398: 32,3521 75147 P40CADR CADR P40LM
036801,000399: 32,3522 75410 P42CADR CADR P42LM
036802,000400: 32,3523 E7,1566 CADRSAVE = MASS1
036803,000401: 32,3523 E7,1567 MMSAVE = MASS1 +1
036804,000402: 32,3523 00050 DEC40 DEC 40 B-14
036805,000403: 32,3524 00052 DEC42 DEC 42 B-14
036806,000404:
036807,000405: 32,3525 05516 P71RET TC DOWNFLAG
036808,000406: 32,3526 00215 ADRES LETABORT
036809,000407:
036810,000408: 32,3527 36000 CAF THRESH2 # SET DVMON THRESHOLD TO THE ASCENT VALUE.
036811,000409: 32,3530 55251 TS DVTHRUSH
036812,000410:
036813,000411: 32,3531 06036 TC INTPRET
036814,000412: 32,3532 45014 BON CALL
036815,000413: 32,3533 04707 FLAP
036816,000414: 32,3534 65542 OLDTIME
036817,000415: 32,3535 65555 TGOCOMP # IF FLAP=0, TGO=T-TIG
036818,000416: 32,3536 52131 SSP GOTO
036819,000417: 32,3537 00053 QPRET
036820,000418: 32,3540 65337 CADR INJTARG
036821,000419: 32,3541 60204 P12INIT # WILL EXIT P12INIT TO INJTARG
036822,000420: 32,3542 72545 OLDTIME DLOAD SL1 # IF FLAP=1,TGO=2 TGO
036823,000421: 32,3543 03515 TGO
036824,000422: 32,3544 37643 STCALL TGO1
036825,000423: 32,3545 60204 P12INIT
|
|
Page 837
|
036827,000425: 32,3546 77776 EXIT
036828,000426: 32,3547 05353 TC PHASCHNG
036829,000427: 32,3550 04024 OCT 04024
036830,000428:
036831,000429: 32,3551 00006 EXTEND
036832,000430: 32,3552 31643 DCA TGO1
036833,000431: 32,3553 53515 DXCH TGO
036834,000432: 32,3554 13376 TCF UPTHROT1 -3
036835,000433:
036836,000434: 32,3555 E7,1642 TGO1 = APO
036837,000435: # ************************************************************************
036838,000436:
036839,000437: 21,2274 BANK 21
036840,000438: 21,2000 SETLOC R11
036841,000439: 21,2000 BANK
036842,000440:
036843,000441: 21,2274 COUNT* $$/P70
036844,000442:
036845,000443: 21,2274 40775 LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
036846,000444: 21,2275 61011 AD MODREG
036847,000445: 21,2276 00006 EXTEND
036848,000446: 21,2277 12310 BZF ABORTALM
036849,000447:
036850,000448: 21,2300 40105 CS FLAGWRD9 # ARE THE ABORTS ENABLED?
036851,000449: 21,2301 74743 MASK LETABBIT
036852,000450: 21,2302 10000 CCS A
036853,000451: 21,2303 12310 TCF ABORTALM
036854,000452:
036855,000453: 21,2304 30103 CA FLAGWRD7 # IS SERVICER ON THE AIR?
036856,000454: 21,2305 74747 MASK AVEGFBIT
036857,000455: 21,2306 10000 CCS A
036858,000456: 21,2307 00002 TC Q # YES. ALL IS WELL.
036859,000457: 21,2310 04364 ABORTALM TC FALTON
036860,000458: 21,2311 04457 TC RELDSP
036861,000459: 21,2312 04635 TC POSTJUMP
036862,000460: 21,2313 20723 CADR PINBRNCH
036863,000461:
036864,000462: 32,3555 BANK 32
036865,000463: 32,2000 SETLOC ABORTS
036866,000464: 32,2000 BANK
036867,000465:
036868,000466: 32,3555 COUNT* $$/P70
036869,000467:
036870,000468: # ************************************************************************
036871,000469:
036872,000470: 32,3555 45234 TGOCOMP RTB DSU
036873,000471: 32,3556 21462 LOADTIME
036874,000472: 32,3557 03440 TIG
036875,000473: 32,3560 77661 SL
|
|
Page 838
|
036877,000475: 32,3561 20214 11D
036878,000476: 32,3562 03515 STORE TGO
036879,000477: 32,3563 77616 RVQ
036880,000478:
036881,000479: # ************************************************************************
036882,000480:
036883,000481: 32,3564 34737 THROTUP CAF BIT13
036884,000482: 32,3565 54055 TS THRUST
036885,000483: 32,3566 34750 CAF BIT4
036886,000484: 32,3567 00006 EXTEND
036887,000485: 32,3570 05014 WOR CHAN14
036888,000486: 32,3571 00002 TC Q
036889,000487:
036890,000488: # ************************************************************************
036891,000489:
036892,000490: 32,3572 00453 DEC299 DEC 299 B-14
036893,000491:
036894,000492: 32,3573 00000 01750 10SECS 2DEC 1000 B-28
036895,000493:
036896,000494: 32,3575 00000 21450 90SEC 2DEC 9000 B-28
036897,000495:
036898,000496: 32,3577 01161 00000 50SECS 2DEC 5000 B-17
036899,000497:
036900,000498: 32,3601 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
036901,000499:
036902,000500: 32,3603 11021 00000 (TGO)A 2DEC 37000 B-17
036903,000501:
036904,000502: 32,3605 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT
036905,000503:
036906,000504: 32,3607 02110 WHICHADR REMADR ABRTABLE
036907,000505:
036908,000506: # ************************************************************************
036909,000507: 32,3610 E7,1513 EBANK= DVCNTR
036910,000508: 32,3610 03637 70067 ATMAGAD 2CADR ATMAG
036911,000509:
036912,000510: 32,3612 00003 ORBMANAD ADRES ORBMANUV
036913,000511:
End of include-file P70-P71.agc. Parent file is MAIN.agc