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