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