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