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