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