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