Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. 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 in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. 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 BURST120 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:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
019663,000002: ## Copyright: Public domain.
019664,000003: ## Filename: DAP_INTERFACE_SUBROUTINES.agc
019665,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
019666,000005: ## is part of the source code for the Lunar Module's
019667,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
019668,000007: ## Assembler: yaYUL
019669,000008: ## Contact: Ron Burkey <info@sandroid.org>.
019670,000009: ## Website: www.ibiblio.org/apollo/index.html
019671,000010: ## Mod history: 2016-09-30 RSB Created draft version from Luminary 099.
019672,000011: ## 2016-10-18 RSB Completed transcription.
019673,000012: ## 2016-10-31 RSB Typos.
019674,000013: ## 2016-11-01 RSB More typos.
019675,000014: ## 2016-12-05 RSB Comment-proofing with octopus/ProoferComments
019676,000015: ## completed, changes made.
019677,000016:
![]() |
Page 473 |
019679,000018: 20,2046 BANK 20
019680,000019: 20,2046 E6,1542 EBANK= DT
019681,000020:
019682,000021: # MOD 0 DATE 11/15/66 BY GEORGE W. CHERRY
019683,000022:
019684,000023: # FUNCTIONAL DESCRIPTION
019685,000024:
019686,000025: # HEREIN ARE A COLLECTION OF SUBROUTINES WHICH ALLOW MISSION CONTROL PROGRAMS TO CONTROL THE MODE
019687,000026: # AND INTERFACE WITH THE DAP.
019688,000027:
019689,000028: # CALLING SEQUENCES
019690,000029:
019691,000030: # IN INTERRUPT OR WITH INTERRUPT INHIBITED
019692,000031: # TC IBNKCALL
019693,000032: # FCADR ROUTINE
019694,000033:
019695,000034: # IN A JOB WITHOUT INTERRUPT INHIBITED
019696,000035: # INHINT
019697,000036: # TC IBNKCALL
019698,000037: # FCADR ROUTINE
019699,000038: # RELINT
019700,000039:
019701,000040: # OUTPUT
019702,000041: # SEE INDIVIDUAL ROUTINES BELOW
019703,000042:
019704,000043: # DEBRIS
019705,000044: # A,L, AND SOMETIMES MDUETEMP
019706,000045:
![]() |
Page 474 |
019708,000047: # DAPBOOLS BITS AND NAMES
019709,000048:
019710,000049: 20,2046 7763 OURRCBIT EQUALS BIT1 # INTERNAL DAP RATE COMMAND ACTIVITY FLAG
019711,000050: 20,2046 7762 TRYGIMBL EQUALS BIT2 # TRIM GIMBAL FLAG
019712,000051: 20,2046 7761 DATAGOOD EQUALS BIT3 # RECIPROCAL ACCELERATIONS OKAY FLAG
019713,000052: 20,2046 7760 ACC4OR2X EQUALS BIT4 # 2 OR 4 JET Z-TRANSLATION MODE FLAG
019714,000053: 20,2046 7757 AORBSYST EQUALS BIT5 # P-AXIS ROTATION JET SYSTEM (A OR B) FLAG
019715,000054: 20,2046 7756 ULLAGER EQUALS BIT6 # INTERNAL ULLAGE REQUEST FLAG
019716,000055: 20,2046 7755 DBSELECT EQUALS BIT7 # DAP DEADBAND SELECT FLAG
019717,000056: 20,2046 7754 APSGOING EQUALS BIT8 # ASCENT PROPULSION SYSTEM BURN FLAG
019718,000057: 20,2046 7753 VIZPHASE EQUALS BIT9 # DESCENT VISIBILITY PHASE FLAG
019719,000058: 20,2046 7752 PULSES EQUALS BIT10 # MINIMUM IMPULSE RHC MODE FLAG
019720,000059: 20,2046 7751 GODAPGO EQUALS BIT11 # DAP ENABLING FLAG
019721,000060: 20,2046 7750 MASSGOOD EQUALS BIT12 # MASS OKAY FLAG
019722,000061:
019723,000062: # STILL AVAILABLE BIT13
019724,000063:
019725,000064: 20,2046 7746 AUTORHLD EQUALS BIT14 # AUTOMATIC MODE RATE HOLD FLAG
019726,000065: 20,2046 7745 SPSBACUP EQUALS BIT15 # SPS BACKUP DAP FLAG
019727,000066:
019728,000067:
019729,000068: 20,2046 7762 USEQRJTS EQUALS TRYGIMBL # ALTERNATE TRIM GIMBAL FLAG
019730,000069:
019731,000070: # BIT FLAGWORD SWITCH SWITCH ON-STATE OFF-STATE
019732,000071: # LOCATION NUMBER SYMBOL NUMBER SYMBOL INDICATES INDICATES
019733,000072: # -------- -------- -------- ------ ------ --------- ---------
019734,000073:
019735,000074: # DAPBOOLS 1 OURRCBIT 59 INTERNAL RATE COMMAND NO INTERNAL RATE COMMAND
019736,000075: # ACTIVITY ACTIVITY (LOCKED ON 0)
019737,000076: # 2 TRYGIMBL 58 TRIM GIMBAL CONTROL TRIM GIMBAL CONTROL POSSIBLE
019738,000077: # IMPOSSIBLE
019739,000078: # 3 DATAGOOD 57 RECIPROCAL ACCELERATION RECIPROCAL ACCELERATION
019740,000079: # PROBABLY CORRECT PROBABLY INCORRECT
019741,000080: # 4 ACC4OR2X 56 P-AXIS 4 JET P-AXIS 2 JET
019742,000081: # X-TRANSLATION MODE X-TRANSLATION MODE
019743,000082: # (LOCKED ON 1)
019744,000083: # 5 AORBSYST 55 P-FORCE COUPLES 15, 7 AND P-FORCE COUPLES 4, 12 AND 3, 11
019745,000084: # 16, 8
019746,000085: # 6 ULLAGER 54 INTERNAL ULLAGE REQUEST NO INTERNAL ULLAGE REQUEST
019747,000086: # 7 DBSELECT 53 MAX DEADBAND SELECT MIN DEADBAND SELECT
019748,000087: # 8 APSGOING 52 ASCENT PROPULSION SYSTEM APS OFF
019749,000088: # BURN
019750,000089: # 9 VIZPHASE 51 DESCENT VISIBILITY PHASE NOT IN DESCENT VISIBILITY
019751,000090: # (LOCKED ON 1) PHASE
019752,000091: # 10 PULSES 50 MINIMUM IMPULSE RHC MODE RATE COMMAND RHC MODE
019753,000092: # (LOCKED ON 0)
019754,000093: # 11 GODAPGO 49 DAP ENABLED DAP IDLING
019755,000094: # 12 MASSGOOD 48 VALUE OF MASS PROBABLY VALUE OF MASS PROBABLY
019756,000095: # CORRECT INCORRECT
![]() |
Page 475 |
019758,000097: # 13 47 NOT AVAILABLE - STATE
019759,000098: # IRRELEVANT
019760,000099: # 14 AUTORHLD 46 AUTOMATIC RATE HOLD MODE AUTOMATIC ATTITUDE HOLD
019761,000100: # 15 SPSBACUP 45 NOT IN SPS BACK-UP DAP MODE SPS BACK-UP DAP MODE
019762,000101: # (LOCKED ON 1)
019763,000102:
019764,000103: 20,2046 36110 SETMINDB CAF NARROWDB
019765,000104: 20,2047 54375 TS DB
019766,000105: 20,2050 47755 CS DBSELECT
019767,000106: 20,2051 70077 MASK DAPBOOLS
019768,000107: 20,2052 54077 TS DAPBOOLS
019769,000108: 20,2053 00002 TC Q
019770,000109:
019771,000110: 20,2054 36111 SETMAXDB CAF WIDEDB
019772,000111: 20,2055 54375 TS DB
019773,000112: 20,2056 40077 CS DAPBOOLS
019774,000113: 20,2057 77755 MASK DBSELECT
019775,000114: 20,2060 26077 ADS DAPBOOLS
019776,000115: 20,2061 00002 TC Q
019777,000116:
019778,000117: 20,2062 40077 ULLAGE CS DAPBOOLS
019779,000118: 20,2063 77756 MASK ULLAGER
019780,000119: 20,2064 26077 ADS DAPBOOLS
019781,000120: 20,2065 00002 TC Q
019782,000121:
019783,000122: 20,2066 47756 NOULLAGE CS ULLAGER
019784,000123: 20,2067 70077 MASK DAPBOOLS
019785,000124: 20,2070 54077 TS DAPBOOLS
019786,000125: 20,2071 00002 TC Q
019787,000126:
019788,000127: 20,2072 12106 HOLDRATE TCF COMNEXIT # REPLACE BY CS DAPBOOLS FOR RATE HOLD.
019789,000128: 20,2073 77746 MASK AUTORHLD
019790,000129: 20,2074 26077 ADS DAPBOOLS
019791,000130:
019792,000131: 20,2075 35632 CAF EBANK6
019793,000132: 20,2076 56003 XCH EBANK
019794,000133: 20,2077 54776 TS OMEGARD
019795,000134:
019796,000135: 20,2100 00006 EXTEND
019797,000136: 20,2101 31416 DCA OMEGAP
019798,000137: 20,2102 52775 DXCH OMEGAPD
019799,000138: 20,2103 31420 CAE OMEGAR
019800,000139: 20,2104 56776 XCH OMEGARD
019801,000140:
019802,000141: 20,2105 54003 TS EBANK
019803,000142:
019804,000143: 20,2106 00006 COMNEXIT EXTEND
019805,000144: 20,2107 30034 DCA CDUY
![]() |
Page 476 |
019807,000146: 20,2110 52770 DXCH CDUYD
019808,000147: 20,2111 30032 CAE CDUX
019809,000148: 20,2112 54766 TS CDUXD
019810,000149:
019811,000150: 20,2113 00002 TC Q
019812,000151:
019813,000152: 20,2114 47746 STOPRATE CS AUTORHLD
019814,000153: 20,2115 70077 MASK DAPBOOLS
019815,000154: 20,2116 54077 TS DAPBOOLS
019816,000155:
019817,000156: 20,2117 37767 CAF ZERO
019818,000157: 20,2120 54774 TS OMEGAPD
019819,000158: 20,2121 54775 TS OMEGAQD
019820,000159: 20,2122 54776 TS OMEGARD
019821,000160: 20,2123 54771 TS DELCDUX
019822,000161: 20,2124 54772 TS DELCDUY
019823,000162: 20,2125 54773 TS DELCDUZ
019824,000163: 20,2126 12106 TCF COMNEXIT
019825,000164:
019826,000165: 20,2127 20,2072 SETRATE EQUALS HOLDRATE
019827,000166:
![]() |
Page 477 |
019829,000168: # SUBROUTINE NAME: 1. UPCOAST MOD. NO. 1 DATE: DECEMBER 4, 1966
019830,000169: # 2. ALLCOAST
019831,000170: # 3. WCHANGE
019832,000171:
019833,000172: # AUTHOR: JONATHAN D. ADDELSTON (ADAMS ASSOCIATES)
019834,000173:
019835,000174: # "UPCOAST" SETS UP DAP VARIABLES TO THEIR ASCENT-COAST VALUES.
019836,000175:
019837,000176: # GROUNDRULE: IT MUST BE CALLED AS SOON AS ASCENT COAST IS DETECTED.
019838,000177:
019839,000178: # "ALLCOAST" SETS UP MANY DAP VARIABLES FOR "STARTDAP" IN "DAPIDLER".
019840,000179:
019841,000180: # GROUNDRULE: DESCOAST IS CALLED AS SOON AS DESCENT COAST IS DETECTED.
019842,000181:
019843,000182: # "WCHANGE" SETS UP THE VARIABLE FOR "WCHANGER" AS A STORAGE SAVING DEVICE.
019844,000183:
019845,000184: # CALLING SEQUENCE: (SAME AS ABOVE.)
019846,000185:
019847,000186: # SUBROUTINES CALLED: NONE.
019848,000187:
019849,000188: # ZERO: AOSQ,AOSR,AOSU,AOSV,AOSQTERM,AOSRTERM,ALL NJS.
019850,000189:
019851,000190: # SET URGRATQ AND URGRATR TO POSMAX.
019852,000191:
019853,000192: # OUTPUT: WFORP (1-K) MINIMPDB APSGOING/DAPBOOLS
019854,000193: # WFORQR (1-K)/8 DBMINIMP 1/AMINQ 1/AMINR 1/AMINU 1/AMINV
019855,000194: # DEBRIS: A,L.
019856,000195:
019857,000196: # ***** WARNING. ***** EBANK MUST BE SET TO 6.
019858,000197:
019859,000198: 20,2127 BANK 20
019860,000199: 20,2127 E6,1640 EBANK= WFORP
019861,000200:
019862,000201: 20,2127 35632 ALLCOAST CAF EBANK6
019863,000202: 20,2130 56003 XCH EBANK
019864,000203: 20,2131 54066 TS ITEMP6
019865,000204:
019866,000205: 20,2132 47754 CS APSGOING
019867,000206: 20,2133 70077 MASK DAPBOOLS
019868,000207: 20,2134 54077 TS DAPBOOLS
019869,000208:
019870,000209: 20,2135 37771 CAF NEGONE # MAKES SPECIAL DAP APS CODING INACTIVE
019871,000210: 20,2136 55732 TS AOSCOUNT
019872,000211: 20,2137 33420 CAF 0.00444
019873,000212: 20,2140 55631 TS MINIMPDB # IMPULSE DBS ARE SET TO 0.8 DEGREES.
019874,000213: 20,2141 55632 TS DBMNMPAX # (AND P-AXIS VALUE)
019875,000214: 20,2142 55630 TS DBMINIMP
019876,000215:
019877,000216: 20,2143 37743 CAF POSMAX # SET URGENCY FUNCTION CORRECTION RATIOS
019878,000217: 20,2144 55725 TS URGRATQ # TO ALMOST 1 BEFORE BEING SET IN AOSJOB.
019879,000218:
![]() |
Page 478 |
019881,000220: 20,2145 55726 TS URGRATR # SCALED AT 1.
019882,000221:
019883,000222: 20,2146 33744 CAF ACCFIFTY # INVERSE MINIMUM ACCELERATIONS ARE SET TO
019884,000223: 20,2147 55721 TS 1/AMINQ # 50 SECONDS(2)/RADIAN. THESE VARIABLES
019885,000224: 20,2150 55722 TS 1/AMINR # ARE SET TO HALF THAT VALUE WITH THE
019886,000225: 20,2151 55723 TS 1/AMINU # SCALE FACTOR 2(+8)/PI.
019887,000226: 20,2152 55724 TS 1/AMINV
019888,000227:
019889,000228: 20,2153 32174 CAF 13DEC # ZERO THE FOLLOWING DAP ERASABLES:
019890,000229: 20,2154 55650 CLEARASC TS KCOEFCTR # AOSQ AOSQTERM NJ+Q NJ+U
019891,000230: 20,2155 37767 CAF ZERO # AOSR AOSRTERM NJ-Q NJ-U
019892,000231: 20,2156 51650 INDEX KCOEFCTR # AOSU NJ+R NJ+V
019893,000232: 20,2157 55660 TS AOSQ # AOSV NJ-R NJ-V
019894,000233: 20,2160 11650 CCS KCOEFCTR
019895,000234: 20,2161 12154 TCF CLEARASC
019896,000235:
019897,000236: 20,2162 33423 WCHANGE CAF 0.3125 # K = 0.5
019898,000237: 20,2163 55640 TS WFORP # WFORP = WFORQR = K/DT = K/.1 = 10K = 5
019899,000238: 20,2164 55641 TS WFORQR # SCALED AT 16 PER SECOND.
019900,000239:
019901,000240: 20,2165 00006 EXTEND # K = 0.5 IMPLIES (1-K) = 0.5:
019902,000241: 20,2166 33434 DCA (1-K)S # (1-K) = 0.5 SINCE SCALED AT 1.
019903,000242: 20,2167 53643 DXCH (1-K) # (1-K)/8 = 0.0625 SINCE SCALED AT 8.
019904,000243:
019905,000244: # *** NOTE THAT STARTDAP RESETS WFORP,WFORQR,(1-K),(1-K)/8. ***
019906,000245:
019907,000246: 20,2170 30066 CAE ITEMP6
019908,000247: 20,2171 54003 TS EBANK
019909,000248:
019910,000249: 20,2172 00002 TC Q # RETURN
019911,000250:
019912,000251:
019913,000252: 20,2173 00033 0.3DEGDB DEC 0.00167
019914,000253: 20,2174 00015 13DEC DEC 13 B-14
019915,000254:
![]() |
Page 479 |
019917,000256: # APS AND DPS ENGINE-ON ROUTINES (MUST BE CALLED WITH INTERRUPT INHIBIT)
019918,000257: # THE NAMES ENGINEON, ENGINOFF, AND ENGINOF1 ARE PRESERVED TO KEEP CURRENT
019919,000258: # SIMULATIONS AND EDITS OUT OF TROUBLE.
019920,000259:
019921,000260: 20,2175 35632 APSENGON CAF EBANK6
019922,000261: 20,2176 56003 XCH EBANK
019923,000262: 20,2177 55312 TS TEVENT +1
019924,000263:
019925,000264: 20,2200 47767 CS ZERO # DUMMYFIL WILL SET APSGOING BIT BECAUSE
019926,000265: 20,2201 55732 TS AOSCOUNT # OF MINUS ZERO IN AOSCOUNT
019927,000266: 20,2202 36106 CAF PGNSCADR # ACTIVATE PGNCS MONITOR
019928,000267:
019929,000268: # START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
019930,000269: 20,2203 13057 20INSRT TCF 20INSRTA # STORE TIME FOR ENGINOFF DELAY LOGIC.
019931,000270: # **END CODING FOR MODULE 3 REMAKE, AUGUST 1967****END CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
019932,000271: 20,2204 40077 CS DAPBOOLS # TURN TRIM GIMBAL OFF IN CASE WE DID FITH
019933,000272: 20,2205 77762 MASK USEQRJTS
019934,000273: 20,2206 26077 ADS DAPBOOLS
019935,000274:
019936,000275: 20,2207 42225 CS INPARAB # MODIFY THE TJETLAW FOR ASCENT BURNS:
019937,000276: 20,2210 55631 TS MINIMPDB # (IN ONE EQUATION DELETE MINIMPDB AND
019938,000277: 20,2211 37767 CAF ZERO # SHIFT THE SWITCHING CURVE TO THE ORIGIN)
019939,000278: 20,2212 55630 TS DBMINIMP # MINIMPDB = -DB, DBMINIMP = 0
019940,000279:
019941,000280: 20,2213 00006 EXTEND # SET UP ASCENT URGENCY LIMITS SCALED AT
019942,000281: 20,2214 32312 DCA ASCURGLM # 2(+9) SECONDS AND
019943,000282: 20,2215 53477 DXCH URGLMS # 2(+4) SECONDS.
019944,000283:
019945,000284: 20,2216 00006 EXTEND # SET UP ASCENT RATE COMMAND VALUES:
019946,000285: 20,2217 32314 DCA ASCRATEC # -2.0 DEGREES/SECOND SCALED AT PI/4 LIMIT
019947,000286: 20,2220 53501 DXCH -2JETLIM # -1.0 DEGREES/SECOND SCALED AT PI/4 DB
019948,000287:
019949,000288: 20,2221 32224 CAF -.06ACC # SET ACC. LIMIT FOR INVERSE CALCULATION
019950,000289: 20,2222 55655 TS -.06R/S2 # HERE FOR STAGING AT APS BURN.
019951,000290: 20,2223 12235 TCF ENGINEON # BYPASS THE SPECIAL DPS MONITOR SETUP
019952,000291:
019953,000292: 20,2224 76615 -.06ACC DEC -.03820 # -0.06 RADIANS/SECOND(2) AT PI/2
019954,000293:
019955,000294: 20,2225 00067 INPARAB DEC +.00333 # NOTE FOR AS206 USE -.6DB NOT -DB
019956,000295:
019957,000296: 20,2226 30003 DPSENGON CA EBANK # SAVE CALLER'S EBANK
019958,000297: 20,2227 55312 TS TEVENT +1
019959,000298: 20,2230 36105 CAF GMBLMNAD # GIMBLMON HANDLES THE TRIM GIMBAL ON/OFF
019960,000299: # LOGIC AND EXITS TO PGNCSMON
019961,000300:
019962,000301: # START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
019963,000302:
019964,000303: 20,2231 13767 INSERT20 TCF SETCNTR # SET FLAGS FOR CRITICAL GTS ENTRIES.
019965,000304:
019966,000305: # **END CODING FOR MODULE 3 REMAKE, AUGUST 1967*****END CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
019967,000306:
![]() |
Page 480 |
019969,000308: 20,2232 47760 CS BIT4 # CLEAR GIMBLMON INHIBIT FLAG JUST IN CASE
019970,000309: 20,2233 70076 MASK FLAGWRD2 # IT HAD NOT BEEN RESET BY THROTTLE CONTRO
019971,000310: 20,2234 54076 TS FLAGWRD2
019972,000311:
019973,000312: 20,2235 00006 ENGINEON EXTEND # THE ENGINE-ON COMMAND IS RECORDED
019974,000313: 20,2236 30025 DCA TIME2 # FOR THE DOWNLINK
019975,000314: 20,2237 53312 DXCH TEVENT
019976,000315:
019977,000316: 20,2240 31340 CA STOPDVC
019978,000317: 20,2241 55341 TS SETDVCNT
019979,000318: 20,2242 36107 CA BURNDB # SET ONE DEGREE DEADBAND FOR THE BURN
019980,000319: 20,2243 54375 TS DB
019981,000320:
019982,000321: 20,2244 45210 CS PRIO30 # TURN ON THE ENGINE - APS OR DPS
019983,000322: 20,2245 00006 EXTEND # DEPENDING ON THE ARM COMMAND
019984,000323: 20,2246 02011 RAND 11
019985,000324: 20,2247 67747 AD BIT13
019986,000325: 20,2250 00006 EXTEND
019987,000326: 20,2251 01011 WRITE 11
019988,000327:
019989,000328: 20,2252 40075 CS FLAGWRD1 # SET ENGINBIT - THE BIT WILL BE CLEARED
019990,000329: 20,2253 77757 MASK ENGINBIT # IN ENGINOFF AND THUS NODV CAN CHECK IT
019991,000330: 20,2254 26075 ADS FLAGWRD1 # TO ASCERTAIN NORMAL OR PREMATURE CUTOFF
019992,000331:
019993,000332: 20,2255 35661 CA EBANK5
019994,000333: 20,2256 54003 TS EBANK
019995,000334: 20,2257 E5,1511 EBANK= DVCNTR
019996,000335: 20,2257 31337 CA STARTDVC # SET UP THE DV MONITOR
019997,000336: 20,2260 55511 TS DVCNTR
019998,000337: 20,2261 22003 LXCH EBANK # RESTORE CALLER:S EBANK
019999,000338: 20,2262 00002 TC Q # RETURN TO CALLER
020000,000339:
![]() |
Page 481 |
020002,000341: # APS AND DPS ENGINE - OFF ROUTINE ( CALL WITH INTERRUPT INHIBITED )
020003,000342:
020004,000343: # START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
020005,000344: 20,2263 13064 ENGINOFF TCF 20INSRTB # PROCEED TO ENGINOFF DELAY LOGIC.
020006,000345:
020007,000346: # **END CODING FOR MODULE 3 REMAKE, AUGUST 1967****END CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
020008,000347: 20,2264 02127 TC ALLCOAST # DO DAP COASTING FLIGHT INITIALIZATION.
020009,000348:
020010,000349: 20,2265 00006 EXTEND
020011,000350: 20,2266 30025 DCA TIME2 # THE ENGINE - OFF COMMAND IS RECORDED
020012,000351: 20,2267 53312 DXCH TEVENT # FOR THE DOWNLINK
020013,000352:
020014,000353: # START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
020015,000354: 20,2270 00006 EXTEND # RESTORE ORIGINAL Q SETTING.
020016,000355: 20,2271 22376 QXCH /TEMP1/
020017,000356:
020018,000357: # **END CODING FOR MODULE 3 REMAKE, AUGUST 1967****END CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
020019,000358: 20,2272 40077 CS DAPBOOLS # TURN TRIM GIMBAL OFF.
020020,000359: 20,2273 77762 MASK USEQRJTS
020021,000360: 20,2274 26077 ADS DAPBOOLS
020022,000361: 20,2275 36106 CAF PGNSCADR # MAKE SURE GIMBLMON DOES NOT TURN GIMBAL
020023,000362: 20,2276 55310 TS DVSELECT # BACK ON.
020024,000363:
020025,000364: 20,2277 45210 ENGINOF1 CS PRIO30 # TURN OFF THE ENGINE
020026,000365: 20,2300 00006 EXTEND
020027,000366: 20,2301 02011 RAND 11
020028,000367: 20,2302 67746 AD BIT14
020029,000368: 20,2303 00006 EXTEND
020030,000369: 20,2304 01011 WRITE 11
020031,000370:
020032,000371: 20,2305 47757 CS ENGINBIT # CLEAR ENGINBIT - THIS IS AN INDICATION
020033,000372: 20,2306 70075 MASK FLAGWRD1 # OF NORMAL SHUTDOWN
020034,000373: 20,2307 54075 TS FLAGWRD1
020035,000374:
020036,000375: # START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
020037,000376:
020038,000377: 20,2310 13045 INSRT20A TCF RESETCTR # GO DEACTIVATE EXTRAORDINARY GTS FLAGS.
020039,000378:
020040,000379: # THEN RETURN TO CALLER.
020041,000380: # **END CODING FOR MODULE 3 REMAKE, AUGUST 1967*****END CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
020042,000381:
020043,000382: 20,2311 7757 ENGINBIT EQUALS BIT5
020044,000383: 20,2311 77767 ASCURGLM DEC -0.25 B-9 # -0.25 SECONDS SCALED AT 2(+9).
020045,000384: 20,2312 77377 DEC -0.25 B-4 # -0.25 SECONDS SCALED AT 2(+4).
020046,000385: 20,2313 77001 ASCRATEC OCTAL 77001 # -1.4 DEG/SEC SCALED AT PI/4 RADIANS/SEC
020047,000386: 20,2314 77555 OCTAL 77555 # -0.4 DEG/SEC SCALED AT PI/4 RADIANS/SEC
020048,000387:
020049,000388: 20,2315 22002 1STENGOF LXCH Q # COME HERE FROM FRESH START.
020050,000389: 20,2316 02277 TC ENGINOF1 # JUST TURN OFF ENGINE
020051,000390: 20,2317 22002 LXCH Q
020052,000391:
![]() |
Page 482 |
020054,000393: 20,2320 12127 TCF ALLCOAST # AND SET UP FOR COAST.
End of include-file DAP_INTERFACE_SUBROUTINES.agc. Parent file is MAIN.agc