Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
036618,000002: ## Copyright: Public domain.
036619,000003: ## Filename: P70-P71.agc
036620,000004: ## Purpose: The main source file for Luminary revision 069.
036621,000005: ## It is part of the source code for the original release
036622,000006: ## of the flight software for the Lunar Module's (LM) Apollo
036623,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
036624,000008: ## version was Luminary 69 revision 2, which included a
036625,000009: ## newer lunar gravity model and only affected module 2.
036626,000010: ## This file is intended to be a faithful transcription, except
036627,000011: ## that the code format has been changed to conform to the
036628,000012: ## requirements of the yaYUL assembler rather than the
036629,000013: ## original YUL assembler.
036630,000014: ## Reference: pp. 829-838
036631,000015: ## Assembler: yaYUL
036632,000016: ## Contact: Ron Burkey <info@sandroid.org>.
036633,000017: ## Website: www.ibiblio.org/apollo/index.html
036634,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
036635,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
036636,000020: ## 2017-01-09 RRB Updated for Luminary 69.
036637,000021: ## 2017-01-20 HG Fix pseudo code 2CARD -> 2CADR
036638,000022: ## 2017-01-21 HG Fix operand XDEVLFLG -> XDELVFLG
036639,000023: ## 2017-01-22 HG commented statements. Looks like code but are type A comments
036640,000024: ## Add missing statements TC DOWNFLAG
036641,000025: ## ADRES AVEGFLAG
036642,000026: ## STOVL RTIG
036643,000027: ## VN1
036644,000028: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
036645,000029: ## and fixed errors found.
036646,000030: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
036647,000031: ## side-by-side diff of Luminary 69/99/116/131/210.
036648,000032:
![]() |
Page 829 |
036650,000034: 21,2102 BANK 21
036651,000035: 21,2000 SETLOC R11
036652,000036: 21,2000 BANK
036653,000037:
036654,000038: 21,2102 E7,1513 EBANK= DVCNTR
036655,000039: 21,2102 COUNT* $$/R11
036656,000040:
036657,000041: 21,2102 40103 R10,R11 CS FLAGWRD7 # IS SERVICER STILL RUNNING?
036658,000042: 21,2103 74747 MASK AVEGFBIT
036659,000043: 21,2104 10000 CCS A
036660,000044: 21,2105 15261 TCF TASKOVER # LET AVGEND TAKE CARE OF GROUP 2.
036661,000045: 21,2106 11056 CCS PIPCTR
036662,000046: 21,2107 12111 TCF +2
036663,000047: 21,2110 12314 TCF LRHTASK # LAST PASS. CALL LRHTASK.
036664,000048: 21,2111 55712 +2 TS PIPCTR1
036665,000049:
036666,000050: 21,2112 E7,1712 PIPCTR1 = LADQSAVE
036667,000051: 21,2112 1056 PIPCTR = PHSPRDT2
036668,000052: 21,2112 36010 CAF OCT31
036669,000053: 21,2113 05173 TC TWIDDLE
036670,000054: 21,2114 02102 ADRES R10,R11
036671,000055: 21,2115 41303 R10,R11A CS IMODES33 # IF LAMP TEST, DO NOT CHANGE LR LITES.
036672,000056: 21,2116 74753 MASK BIT1
036673,000057: 21,2117 00006 EXTEND
036674,000058: 21,2120 12136 BZF 10,11
036675,000059:
036676,000060: 21,2121 70107 FLASHH? MASK FLGWRD11 # C(A) = 1 = HFLASH BIT
036677,000061: 21,2122 00006 EXTEND
036678,000062: 21,2123 12127 BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
036679,000063:
036680,000064: 21,2124 34747 CA HLITE
036681,000065: 21,2125 54001 TS L
036682,000066: 21,2126 04606 TC FLIP # FLIP H LITE
036683,000067:
036684,000068: 21,2127 34752 FLASHV? CA VFLSHBIT # VFLASHBIT MUST BE BIT 2.
036685,000069: 21,2130 70107 MASK FLGWRD11
036686,000070: 21,2131 00006 EXTEND
036687,000071: 21,2132 12136 BZF 10,11 # V FLASH OFF
036688,000072:
036689,000073: 21,2133 34751 CA VLITE
036690,000074: 21,2134 54001 TS L
036691,000075: 21,2135 04606 TC FLIP # FLIP V LITE
036692,000076:
036693,000077: 21,2136 30105 10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
036694,000078: 21,2137 74743 MASK LETABBIT
036695,000079: 21,2140 00006 EXTEND
036696,000080: 21,2141 12340 BZF LANDISP # NO. PROCEED TO R10.
036697,000081:
036698,000082: 21,2142 41011 P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
![]() |
Page 830 |
036700,000084: 21,2143 62272 AD MODE71
036701,000085: 21,2144 00006 EXTEND
036702,000086: 21,2145 12340 BZF LANDISP # YES. PROCEED TO R10.
036703,000087:
036704,000088: 21,2146 00006 EXTEND # NO. IS AN ABORT STAGE COMMANDED?
036705,000089: 21,2147 00030 READ CHAN30
036706,000090: 21,2150 40000 COM
036707,000091: 21,2151 54001 TS L
036708,000092: 21,2152 74750 MASK BIT4
036709,000093: 21,2153 10000 CCS A
036710,000094: 21,2154 12172 TCF P71A # YES.
036711,000095:
036712,000096: 21,2155 41011 P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
036713,000097: 21,2156 62270 AD MODE70
036714,000098: 21,2157 00006 EXTEND
036715,000099: 21,2160 12340 BZF LANDISP # YES. PROCEED TO R10.
036716,000100:
036717,000101: 21,2161 30001 CA L # NO. IS AN ABORT COMMANDED?
036718,000102: 21,2162 74753 MASK BIT1
036719,000103: 21,2163 10000 CCS A
036720,000104: 21,2164 12167 TCF P70A # YES.
036721,000105: 21,2165 12340 TCF LANDISP # NO. PROCEED TO R10.
036722,000106:
036723,000107: 21,2166 COUNT* $$/P70
036724,000108:
036725,000109: 21,2166 02274 P70 TC LEGAL?
036726,000110: 21,2167 44755 P70A CS ZERO
036727,000111: 21,2170 12173 TCF +3
036728,000112: 21,2171 02274 P71 TC LEGAL?
036729,000113: 21,2172 34752 P71A CAF TWO
036730,000114: 21,2173 54002 +3 TS Q
036731,000115: 21,2174 00004 INHINT
036732,000116: 21,2175 32200 CAF ABRTJADR
036733,000117: 21,2176 54017 TS BRUPT
036734,000118: 21,2177 50017 RESUME
036735,000119:
036736,000120: 21,2200 12201 ABRTJADR TCF ABRTJASK
036737,000121:
036738,000122: 21,2201 32271 ABRTJASK CAF OCTAL27
036739,000123: 21,2202 60002 AD Q
036740,000124: 21,2203 54001 TS L
036741,000125: 21,2204 40000 COM
036742,000126: 21,2205 52761 DXCH -PHASE4
036743,000127: 21,2206 50002 INDEX Q
036744,000128: 21,2207 32270 CAF MODE70
036745,000129: 21,2210 55011 TS MODREG
036746,000130:
036747,000131: 21,2211 55163 TS DISPDEX # INSURE DISPDEX IS POSITIVE.
036748,000132:
036749,000133: 21,2212 10002 CCS Q # SET APSFLAG IF P71.
![]() |
Page 831 |
036751,000135: 21,2213 40106 CS FLGWRD10 # SET APSFLAG PRIOR TO THE ENEMA.
036752,000136: 21,2214 74737 MASK APSFLBIT
036753,000137: 21,2215 26106 ADS FLGWRD10
036754,000138: 21,2216 42273 CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9
036755,000139: 21,2217 70111 MASK DAPBOOLS # (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
036756,000140: 21,2220 54111 TS DAPBOOLS
036757,000141:
036758,000142: 21,2221 40101 CS FLAGWRD5 # SET ENGONFLG.
036759,000143: 21,2222 74745 MASK ENGONBIT
036760,000144: 21,2223 26101 ADS FLAGWRD5
036761,000145:
036762,000146: 21,2224 44355 CS PRIO30 # INSURE THAT THE ENGINE IS ON, IF ARMED.
036763,000147: 21,2225 00006 EXTEND
036764,000148: 21,2226 02011 RAND DSALMOUT
036765,000149: 21,2227 64737 AD BIT13
036766,000150: 21,2230 00006 EXTEND
036767,000151: 21,2231 01011 WRITE DSALMOUT
036768,000152:
036769,000153: 21,2232 34735 CAF LRBYBIT # TERMINATE R12.
036770,000154: 21,2233 54107 TS FLGWRD11
036771,000155:
036772,000156: 21,2234 40074 CS FLAGWRD0 # SET R10FLAG TO SUPPRESS OUTPUTS TO THE
036773,000157: 21,2235 74752 MASK R10FLBIT # CROSS-POINTER DISPLAY.
036774,000158: 21,2236 26074 ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
036775,000159: # DISPLAY INERTIAL DATA OUTBIT AND
036776,000160: # DISABLE THE RR ERROR CTRS FOR US.
036777,000161:
036778,000162: 21,2237 00006 EXTEND # LOAD TEVENT FOR THE DOWNLINK.
036779,000163: 21,2240 30025 DCA TIME2
036780,000164: 21,2241 53345 DXCH TEVENT
036781,000165:
036782,000166: 21,2242 00006 EXTEND
036783,000167: 21,2243 32267 DCA SVEXITAD
036784,000168: 21,2244 53253 DXCH AVGEXIT
036785,000169:
036786,000170: 21,2245 00006 EXTEND
036787,000171: 21,2246 34755 DCA NEG0
036788,000172: 21,2247 52753 DXCH -PHASE1
036789,000173:
036790,000174: 21,2250 00006 EXTEND
036791,000175: 21,2251 34755 DCA NEG0
036792,000176: 21,2252 52757 DXCH -PHASE3
036793,000177:
036794,000178: 21,2253 00006 EXTEND
036795,000179: 21,2254 34755 DCA NEG0
036796,000180: 21,2255 52765 DXCH -PHASE6
036797,000181:
036798,000182: 21,2256 36244 CAF THREE # SET UP 4.3SPOT FOR GOABORT
036799,000183: 21,2257 54001 TS L
036800,000184: 21,2260 40000 COM
![]() |
Page 832 |
036802,000186: 21,2261 52761 DXCH -PHASE4
036803,000187:
036804,000188: 21,2262 37727 CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
036805,000189: 21,2263 54030 TS TIME5 # 40 MILLISECONDS.
036806,000190:
036807,000191: 21,2264 04635 TC POSTJUMP
036808,000192: 21,2265 12766 CADR ENEMA
036809,000193:
036810,000194: 21,2266 E7,1513 EBANK= DVCNTR
036811,000195: 21,2266 03525 76067 SVEXITAD 2CADR SERVEXIT
036812,000196:
036813,000197: 21,2270 00106 MODE70 DEC 70 B-14
036814,000198: 21,2271 00027 OCTAL27 OCT 27
036815,000199: 21,2272 00107 MODE71 DEC 71 B-14
036816,000200:
036817,000201: 21,2273 00640 DAPBITS OCT 00640
036818,000202:
036819,000203: 32,3257 BANK 32
036820,000204: 32,2000 SETLOC ABORTS
036821,000205: 32,2000 BANK
036822,000206:
036823,000207: 32,3257 COUNT* $$/P70
036824,000208:
036825,000209: 32,3257 06036 GOABORT TC INTPRET
036826,000210: 32,3260 77624 CALL
036827,000211: 32,3261 61055 INITCDUW
036828,000212: 32,3262 77776 EXIT
036829,000213: 32,3263 34751 CAF FOUR
036830,000214: 32,3264 55513 TS DVCNTR
036831,000215:
036832,000216: 32,3265 33607 CAF WHICHADR
036833,000217: 32,3266 55453 TS WHICH
036834,000218:
036835,000219: 32,3267 05516 TC DOWNFLAG
036836,000220: 32,3270 00214 ADRES FLRCS
036837,000221:
036838,000222: 32,3271 05516 TC DOWNFLAG
036839,000223: 32,3272 00175 ADRES FLUNDISP
036840,000224:
036841,000225: 32,3273 05516 TC DOWNFLAG
036842,000226: 32,3274 00161 ADRES IDLEFLAG
036843,000227:
036844,000228: 32,3275 05504 TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
036845,000229: 32,3276 00307 ADRES ACC4-2FL
036846,000230:
036847,000231: 32,3277 05321 TC CHECKMM
036848,000232: 32,3300 00106 70DEC DEC 70 B-14
036849,000233: 32,3301 13525 TCF P71RET
036850,000234:
036851,000235: 32,3302 06036 P70INIT TC INTPRET
![]() |
Page 833 |
036853,000237: 32,3303 77624 CALL
036854,000238: 32,3304 65555 TGOCOMP
036855,000239: 32,3305 54345 DLOAD SL
036856,000240: 32,3306 34003 MDOTDPS
036857,000241: 32,3307 20205 4D
036858,000242: 32,3310 77665 BDDV
036859,000243: 32,3311 01245 MASS
036860,000244: 32,3312 16265 STODL TBUP
036861,000245: 32,3313 01245 MASS
036862,000246: 32,3314 70471 DDV SR1
036863,000247: 32,3315 24003 K(1/DV)
036864,000248: 32,3316 03633 STORE 1/DV1
036865,000249: 32,3317 03635 STORE 1/DV2
036866,000250: 32,3320 03637 STORE 1/DV3
036867,000251: 32,3321 77665 BDDV
036868,000252: 32,3322 25606 K(AT)
036869,000253: 32,3323 16257 STODL AT
036870,000254: 32,3324 34005 DTDECAY
036871,000255: 32,3325 54276 DCOMP SL
036872,000256: 32,3326 20214 11D
036873,000257: 32,3327 02263 STORE TTO
036874,000258: 32,3330 57535 SLOAD DCOMP
036875,000259: 32,3331 26002 DPSVEX
036876,000260: 32,3332 77702 SR2
036877,000261: 32,3333 02261 STORE VE # INITIALIZE DPS EXHAUST VELOCITY
036878,000262: 32,3334 45014 SET CALL
036879,000263: 32,3335 04467 FLAP
036880,000264: 32,3336 60230 COMMINIT
036881,000265: 32,3337 77650 INJTARG GOTO # *** BYPASS ZONE 0 ***
036882,000266: 32,3340 65371 UPTHROT # *** BYPASS ZONE 0 ***
036883,000267: # DLOAD DSU
036884,000268: # TGO
036885,000269: # 50SECS
036886,000270: # BPL EXIT
036887,000271: # UPTHROT
036888,000272:
036889,000273: 32,3341 05321 TC CHECKMM
036890,000274: 32,3342 00106 DEC 70 B-14
036891,000275: 32,3343 33572 CAF DEC299 # P71. DELAY 3 SECONDS.
036892,000276: 32,3344 64753 AD BIT1 # P70. DELAY 1 CENTISECOND.
036893,000277: 32,3345 55644 TS ENGOFFDT
036894,000278: 32,3346 05173 TC TWIDDLE
036895,000279: 32,3347 03356 ADRES ZONEZERO
036896,000280:
036897,000281: 32,3350 05353 TC PHASCHNG
036898,000282: 32,3351 47014 OCT 47014
036899,000283: 32,3352 76133 -GENADR ENGOFFDT
036900,000284: 32,3353 E7,1513 EBANK= DVCNTR
036901,000285: 32,3353 03356 64067 2CADR ZONEZERO
![]() |
Page 834 |
036903,000287: 32,3355 15155 TCF ENDOFJOB
036904,000288:
036905,000289: 32,3356 04674 ZONEZERO TC IBNKCALL
036906,000290: 32,3357 75551 CADR ENGINOF2
036907,000291:
036908,000292: 32,3360 33407 CAF ZERETAD
036909,000293: 32,3361 55260 TS OUTROUTE
036910,000294:
036911,000295: 32,3362 05516 TC DOWNFLAG
036912,000296: 32,3363 00163 ADRES AVEGFLAG
036913,000297:
036914,000298: 32,3364 05516 TC DOWNFLAG
036915,000299: 32,3365 00162 ADRES V37FLAG
036916,000300:
036917,000301: 32,3366 05353 TC PHASCHNG
036918,000302: 32,3367 00004 OCT 00004
036919,000303:
036920,000304: 32,3370 15261 TCF TASKOVER
036921,000305:
036922,000306: 32,3371 77414 UPTHROT SET EXIT
036923,000307: 32,3372 04461 FLVR
036924,000308:
036925,000309: 32,3373 03564 TC THROTUP
036926,000310:
036927,000311: 32,3374 05353 TC PHASCHNG
036928,000312: 32,3375 04024 OCT 04024
036929,000313:
036930,000314: 32,3376 04616 -3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
036931,000315: 32,3377 73707 CADR P40AUTO # ARE PROPERLY SET.
036932,000316:
036933,000317: 32,3400 03564 TC THROTUP
036934,000318:
036935,000319: 32,3401 00006 UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE.
036936,000320: 32,3402 33611 DCA ATMAGAD
036937,000321: 32,3403 53253 DXCH AVGEXIT
036938,000322:
036939,000323: 32,3404 05353 GRP4OFF TC PHASCHNG # TERMINATE USE OF GROUP 4.
036940,000324: 32,3405 00004 OCT 00004
036941,000325:
036942,000326: 32,3406 15155 TCF ENDOFJOB
036943,000327:
036944,000328: 32,3407 65410 ZERETAD CADR ZONE0RET
036945,000329: 32,3410 05327 ZONE0RET TC 2PHSCHNG
036946,000330: 32,3411 00002 OCT 00002
036947,000331: 32,3412 05024 OCT 05024
036948,000332: 32,3413 25000 OCT 25000
036949,000333:
036950,000334: 32,3414 06036 TC INTPRET
036951,000335: 32,3415 43234 RTB DAD
![]() |
Page 835 |
036953,000337: 32,3416 21462 LOADTIME
036954,000338: 32,3417 25576 90SEC
036955,000339: 32,3420 03557 STORE PIPTIME1 # STORE TEMPORARILY IN PIPTIME1.
036956,000340: 32,3421 34041 STCALL TDEC1
036957,000341: 32,3422 27057 LEMPREC
036958,000342: 32,3423 77775 VLOAD
036959,000343: 32,3424 00007 VATT
036960,000344: 32,3425 03551 STORE VN1 # STORE VTIG TEMPORARILY IN VN1.
036961,000345: 32,3426 76521 MXV VSL1
036962,000346: 32,3427 01734 REFSMMAT
036963,000347: 32,3430 27525 STOVL V
036964,000348: 32,3431 00001 RATT
036965,000349: 32,3432 03543 STORE RN1 # STORE RTIG TEMPORARILY IN RN1.
036966,000350: 32,3433 52521 MXV VSL6
036967,000351: 32,3434 01734 REFSMMAT
036968,000352: 32,3435 37517 STCALL R
036969,000353: 32,3436 67162 MUNGRAV
036970,000354: 32,3437 45014 SET CALL
036971,000355: 32,3440 04471 FLZONE0
036972,000356: 32,3441 60313 ASCENT
036973,000357: 32,3442 77776 PREBRET1 EXIT
036974,000358: 32,3443 05353 TC PHASCHNG
036975,000359: 32,3444 04024 OCT 04024
036976,000360: 32,3445 06036 TC INTPRET
036977,000361: 32,3446 77214 CLEAR VLOAD
036978,000362: 32,3447 04671 FLZONE0
036979,000363: 32,3450 03646 VGVECT
036980,000364: 32,3451 76505 VXM VSL1
036981,000365: 32,3452 01734 REFSMMAT
036982,000366: 32,3453 03654 STORE DELVSIN
036983,000367: 32,3454 77646 ABVAL
036984,000368: 32,3455 27662 STOVL DELVSAB
036985,000369: 32,3456 03543 RN1
036986,000370: 32,3457 27640 STOVL RTIG
036987,000371: 32,3460 03551 VN1
036988,000372: 32,3461 17646 STODL VTIG
036989,000373: 32,3462 03557 PIPTIME1
036990,000374: 32,3463 03440 STORE TIG
036991,000375: 32,3464 43014 SET CLEAR
036992,000376: 32,3465 01067 XDELVFLG
036993,000377: 32,3466 04666 LETABORT
036994,000378: 32,3467 77776 EXIT
036995,000379:
036996,000380: 32,3470 36241 CAF SIX # SET UP R60 FOR A 10 DEG/SEC MANUV. RATE.
036997,000381: 32,3471 55325 TS RATEINDX
036998,000382:
036999,000383: 32,3472 35023 CAF PRIO13 # REDUCE PRIORITY TO LEVEL EXPECTED BY
037000,000384: 32,3473 05146 TC PRIOCHNG # P40 AND P42.
037001,000385: 32,3474 33612 CAF ORBMANAD # INITIALIZE FOR ORBITAL MANEUVERS LIST.
037002,000386: 32,3475 54332 TS DNLSTCOD
![]() |
Page 836 |
037004,000388: 32,3476 55324 TS AGSWORD
037005,000389:
037006,000390: 32,3477 05321 TC CHECKMM
037007,000391: 32,3500 00106 DEC 70 B-14 # FOR MODE=70,USE P40,OTHERWISE P42
037008,000392: 32,3501 13515 TCF 42SET
037009,000393: 32,3502 33521 40SET CAF P40CADR
037010,000394: 32,3503 55566 TS CADRSAVE
037011,000395: 32,3504 33523 CAF DEC40
037012,000396: 32,3505 55567 COMMSET TS MMSAVE
037013,000397: 32,3506 05353 TC PHASCHNG
037014,000398: 32,3507 05024 OCT 05024
037015,000399: 32,3510 13000 OCT 13000
037016,000400:
037017,000401: 32,3511 31567 CA MMSAVE
037018,000402: 32,3512 05314 TC NEWMODEA
037019,000403:
037020,000404: 32,3513 31566 CA CADRSAVE
037021,000405: 32,3514 04640 TC BANKJUMP
037022,000406: 32,3515 33522 42SET CAF P42CADR
037023,000407: 32,3516 55566 TS CADRSAVE
037024,000408: 32,3517 33524 CAF DEC42
037025,000409: 32,3520 13505 TCF COMMSET
037026,000410:
037027,000411: 32,3521 75147 P40CADR CADR P40LM
037028,000412: 32,3522 75410 P42CADR CADR P42LM
037029,000413: 32,3523 E7,1566 CADRSAVE = MASS1
037030,000414: 32,3523 E7,1567 MMSAVE = MASS1 +1
037031,000415: 32,3523 00050 DEC40 DEC 40 B-14
037032,000416: 32,3524 00052 DEC42 DEC 42 B-14
037033,000417:
037034,000418: 32,3525 05516 P71RET TC DOWNFLAG
037035,000419: 32,3526 00215 ADRES LETABORT
037036,000420:
037037,000421: 32,3527 36000 CAF THRESH2 # SET DVMON THRESHOLD TO THE ASCENT VALUE.
037038,000422: 32,3530 55251 TS DVTHRUSH
037039,000423:
037040,000424: 32,3531 06036 TC INTPRET
037041,000425: 32,3532 45014 BON CALL
037042,000426: 32,3533 04707 FLAP
037043,000427: 32,3534 65542 OLDTIME
037044,000428: 32,3535 65555 TGOCOMP # IF FLAP=0, TGO=T-TIG
037045,000429: 32,3536 52131 SSP GOTO
037046,000430: 32,3537 00053 QPRET
037047,000431: 32,3540 65337 CADR INJTARG
037048,000432: 32,3541 60204 P12INIT # WILL EXIT P12INIT TO INJTARG
037049,000433: 32,3542 72545 OLDTIME DLOAD SL1 # IF FLAP=1,TGO=2 TGO
037050,000434: 32,3543 03515 TGO
037051,000435: 32,3544 37643 STCALL TGO1
037052,000436: 32,3545 60204 P12INIT
![]() |
Page 837 |
037054,000438: 32,3546 77776 EXIT
037055,000439: 32,3547 05353 TC PHASCHNG
037056,000440: 32,3550 04024 OCT 04024
037057,000441:
037058,000442: 32,3551 00006 EXTEND
037059,000443: 32,3552 31643 DCA TGO1
037060,000444: 32,3553 53515 DXCH TGO
037061,000445: 32,3554 13376 TCF UPTHROT1 -3
037062,000446:
037063,000447: 32,3555 E7,1642 TGO1 = APO
037064,000448: # ************************************************************************
037065,000449:
037066,000450: 21,2274 BANK 21
037067,000451: 21,2000 SETLOC R11
037068,000452: 21,2000 BANK
037069,000453:
037070,000454: 21,2274 COUNT* $$/P70
037071,000455:
037072,000456: 21,2274 40775 LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
037073,000457: 21,2275 61011 AD MODREG
037074,000458: 21,2276 00006 EXTEND
037075,000459: 21,2277 12310 BZF ABORTALM
037076,000460:
037077,000461: 21,2300 40105 CS FLAGWRD9 # ARE THE ABORTS ENABLED?
037078,000462: 21,2301 74743 MASK LETABBIT
037079,000463: 21,2302 10000 CCS A
037080,000464: 21,2303 12310 TCF ABORTALM
037081,000465:
037082,000466: 21,2304 30103 CA FLAGWRD7 # IS SERVICER ON THE AIR?
037083,000467: 21,2305 74747 MASK AVEGFBIT
037084,000468: 21,2306 10000 CCS A
037085,000469: 21,2307 00002 TC Q # YES. ALL IS WELL.
037086,000470: 21,2310 04364 ABORTALM TC FALTON
037087,000471: 21,2311 04457 TC RELDSP
037088,000472: 21,2312 04635 TC POSTJUMP
037089,000473: 21,2313 20723 CADR PINBRNCH
037090,000474:
037091,000475: 32,3555 BANK 32
037092,000476: 32,2000 SETLOC ABORTS
037093,000477: 32,2000 BANK
037094,000478:
037095,000479: 32,3555 COUNT* $$/P70
037096,000480:
037097,000481: # ************************************************************************
037098,000482:
037099,000483: 32,3555 45234 TGOCOMP RTB DSU
037100,000484: 32,3556 21462 LOADTIME
037101,000485: 32,3557 03440 TIG
037102,000486: 32,3560 77661 SL
![]() |
Page 838 |
037104,000488: 32,3561 20214 11D
037105,000489: 32,3562 03515 STORE TGO
037106,000490: 32,3563 77616 RVQ
037107,000491:
037108,000492: # ************************************************************************
037109,000493:
037110,000494: 32,3564 34737 THROTUP CAF BIT13
037111,000495: 32,3565 54055 TS THRUST
037112,000496: 32,3566 34750 CAF BIT4
037113,000497: 32,3567 00006 EXTEND
037114,000498: 32,3570 05014 WOR CHAN14
037115,000499: 32,3571 00002 TC Q
037116,000500:
037117,000501: # ************************************************************************
037118,000502:
037119,000503: 32,3572 00453 DEC299 DEC 299 B-14
037120,000504:
037121,000505: 32,3573 00000 01750 10SECS 2DEC 1000 B-28
037122,000506:
037123,000507: 32,3575 00000 21450 90SEC 2DEC 9000 B-28
037124,000508:
037125,000509: 32,3577 01161 00000 50SECS 2DEC 5000 B-17
037126,000510:
037127,000511: 32,3601 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
037128,000512:
037129,000513: 32,3603 11021 00000 (TGO)A 2DEC 37000 B-17
037130,000514:
037131,000515: 32,3605 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT
037132,000516:
037133,000517: 32,3607 02110 WHICHADR REMADR ABRTABLE
037134,000518:
037135,000519: # ************************************************************************
037136,000520: 32,3610 E7,1513 EBANK= DVCNTR
037137,000521: 32,3610 03637 70067 ATMAGAD 2CADR ATMAG
037138,000522:
037139,000523: 32,3612 00003 ORBMANAD ADRES ORBMANUV
037140,000524:
End of include-file P70-P71.agc. Parent file is MAIN.agc