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.

026367,000002:                                                                                                  ## Copyright:   Public domain.
026368,000003:                                                                                                  ## Filename:    SPS_BACK-UP_RCS_CONTROL.agc
026369,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
026370,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
026371,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
026372,000007:                                                                                                  ## Assembler:   yaYUL
026373,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
026374,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
026375,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
026376,000011:                                                                                                  ##              2016-09-30 MAS  Transcribed.
026377,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
026378,000013:                                                                                                  ##              2016-12-06 RSB  Comment-proofing with octopus/ProoferComments.
026379,000014: 

Page 629

026381,000016: 21,3417                                           BANK     21                                    
026382,000017: 21,3417  E6,1542                                  EBANK=   DT                                    
026383,000018: 
026384,000019: 21,3417           40775        SPSRCS             CS       OMEGAQD                               
026385,000020: 21,3420           61416                           AD       OMEGAQ                                
026386,000021: 21,3421           55423                           TS       EDOTQ                                 #   EDOT = OMEGAQ - OMEGAQD
026387,000022: 
026388,000023: 21,3422           61413                           AD       ER                                    
026389,000024: 21,3423           00006                           EXTEND                                         #  F = 1/4 E + EDOT
026390,000025: 21,3424           63464                           BZMF     PLUSD                                 #  DQ NEGATIVE FOR POSITIVE F
026391,000026: 
026392,000027: 21,3425           33571                           CAF      NEGD                                  #  STORE DIRECTION TO THRUST IN ITEMP3
026393,000028: 
026394,000029: 21,3426           54063        GCOMPUTE           TS       ITEMP3                                
026395,000030: 21,3427           31423                           CAE      EDOTQ                                 
026396,000031: 21,3430           00006                           EXTEND                                         
026397,000032: 21,3431           73570                           MP       ACONST                                #  ACONST = 2**(-11) X SQRT(1/2A X PI/1024)
026398,000033: 21,3432           10000                           CCS      A                                     
026399,000034: 21,3433           13455                           TCF      LIMSQQ                                
026400,000035: 21,3434           13436                           TCF      +2                                    
026401,000036: 21,3435           13455                           TCF      LIMSQQ                                
026402,000037: 21,3436           22000                           LXCH     A                                     #  A = 2**(3) X SQRT(1/2A X PI/1024)
026403,000038: 21,3437           00006        LIMRETQ            EXTEND                                         
026404,000039: 21,3440           70000                           SQUARE                                         
026405,000040: 21,3441           54062                           TS       ITEMP2                                #  ITEMP2 = (1/2A) EDOT**2
026406,000041: 
026407,000042: 21,3442           61413                           AD       ER                                    
026408,000043: 21,3443           63571                           AD       NEGD                                  #  DB IS SPECIFIED BY NEGD IN SPS MODE
026409,000044: 
026410,000045: 21,3444           00006                           EXTEND                                         
026411,000046: 21,3445           63472                           BZMF     UZERO                                 
026412,000047: 
026413,000048: 21,3446           31423                           CAE      EDOTQ                                 #  G WAS POSITIVE, NOW TEST EDOT
026414,000049: 
026415,000050: 21,3447           00006                           EXTEND                                         
026416,000051: 21,3450           63461                           BZMF     ULOW                                  
026417,000052: 
026418,000053: 21,3451           60062                           AD       ITEMP2                                #  EDOT WAS POSITIVE, CALCULATE HIGH U CASE
026419,000054: 21,3452           61413                           AD       ER                                    
026420,000055: 21,3453           55502                           TS       URGENCYQ                              
026421,000056: 
026422,000057: 21,3454           13474                           TCF      RCALC                                 
026423,000058: 
026424,000059: 21,3455           37743        LIMSQQ             CAF      POSMAX                                
026425,000060: 21,3456           13437                           TCF      LIMRETQ                               
026426,000061: 21,3457           37743        LIMSQR             CAF      POSMAX                                
026427,000062: 21,3460           13514                           TCF      LIMRETR                               
026428,000063: 21,3461           61413        ULOW               AD       ER                                    #  EDOT WAS NEGATIVE, CALCULATE LOW U CASE
026429,000064: 21,3462           55502                           TS       URGENCYQ                              

Page 630

026431,000066: 21,3463           13474                           TCF      RCALC                                 
026432,000067: 
026433,000068: 21,3464           41413        PLUSD              CS       ER                                    
026434,000069: 21,3465           57413                           XCH      ER                                    
026435,000070: 21,3466           41423                           CS       EDOTQ                                 
026436,000071: 21,3467           57423                           XCH      EDOTQ                                 
026437,000072: 21,3470           43571                           CS       NEGD                                  
026438,000073: 21,3471           13426                           TCF      GCOMPUTE                              
026439,000074: 
026440,000075: 21,3472           37767        UZERO              CAF      ZERO                                  #  G = 0, NO URGENCY
026441,000076: 21,3473           55502                           TS       URGENCYQ                              
026442,000077: 
026443,000078: 21,3474           40776        RCALC              CS       OMEGARD                               #  REPEAT CALCULATIONS FOR R-AXIS
026444,000079: 21,3475           61420                           AD       OMEGAR                                
026445,000080: 21,3476           55424                           TS       EDOTR                                 
026446,000081: 
026447,000082: 21,3477           61411                           AD       E                                     #  F = 1/4 E + EDOT
026448,000083: 21,3500           00006                           EXTEND                                         
026449,000084: 21,3501           63535                           BZMF     PLUSDR                                
026450,000085: 
026451,000086: 21,3502           33571                           CAF      NEGD                                  
026452,000087: 
026453,000088: 21,3503           54064        GCOMPUTR           TS       ITEMP4                                
026454,000089: 21,3504           31424                           CAE      EDOTR                                 
026455,000090: 21,3505           00006                           EXTEND                                         
026456,000091: 21,3506           73570                           MP       ACONST                                #  ACONST = 2**(-11) X SQRT(1/2A X PI/1024)
026457,000092: 21,3507           10000                           CCS      A                                     
026458,000093: 21,3510           13457                           TCF      LIMSQR                                
026459,000094: 21,3511           13513                           TCF      +2                                    
026460,000095: 21,3512           13457                           TCF      LIMSQR                                
026461,000096: 21,3513           22000                           LXCH     A                                     #  A = 2**(3) X SQRT(1/2A X PI/1024)
026462,000097: 21,3514           00006        LIMRETR            EXTEND                                         
026463,000098: 21,3515           70000                           SQUARE                                         
026464,000099: 21,3516           54062                           TS       ITEMP2                                
026465,000100: 
026466,000101: 21,3517           61411                           AD       E                                     
026467,000102: 21,3520           63571                           AD       NEGD                                  
026468,000103: 
026469,000104: 21,3521           00006                           EXTEND                                         
026470,000105: 21,3522           63543                           BZMF     UZEROR                                
026471,000106: 
026472,000107: 21,3523           31424                           CAE      EDOTR                                 
026473,000108: 
026474,000109: 21,3524           00006                           EXTEND                                         
026475,000110: 21,3525           63532                           BZMF     ULOWR                                 
026476,000111: 
026477,000112: 21,3526           60062                           AD       ITEMP2                                #  EDOT WAS POSITIVE, CALCULATE HIGH U CASE
026478,000113: 21,3527           61411                           AD       E                                     
026479,000114: 21,3530           55504                           TS       URGENCYR                              

Page 631

026481,000116: 21,3531           13545                           TCF      URGRECT                               
026482,000117: 21,3532           61411        ULOWR              AD       E                                     #  EDOT WAS NEGATIVE, CALCULATE LOW U CASE
026483,000118: 21,3533           55504                           TS       URGENCYR                              
026484,000119: 
026485,000120: 21,3534           13545                           TCF      URGRECT                               
026486,000121: 21,3535           41411        PLUSDR             CS       E                                     
026487,000122: 21,3536           57411                           XCH      E                                     
026488,000123: 21,3537           41424                           CS       EDOTR                                 
026489,000124: 21,3540           57424                           XCH      EDOTR                                 
026490,000125: 21,3541           43571                           CS       NEGD                                  
026491,000126: 21,3542           13503                           TCF      GCOMPUTR                              
026492,000127: 
026493,000128: 21,3543           37767        UZEROR             CAF      ZERO                                  
026494,000129: 21,3544           55504                           TS       URGENCYR                              
026495,000130: 
026496,000131: 21,3545           10064        URGRECT            CCS      ITEMP4                                #  DR = ITEMP4, NON-ZERO
026497,000132: 21,3546           41504                           CS       URGENCYR                              #  DR POS = POSR JETS = URGENCY NEG
026498,000133: 21,3547           55504                           TS       URGENCYR                              #  URGENCYR NEGATIVE
026499,000134: 
026500,000135: 21,3550           10063                           CCS      ITEMP3                                #  DQ = ITEMP3, NON-ZERO
026501,000136: 21,3551           41502                           CS       URGENCYQ                              #  DQ POS = POSR JETS = NEGATIVE URGENCY
026502,000137: 21,3552           55502                           TS       URGENCYQ                              
026503,000138: 
026504,000139: 21,3553           33572                           CAF      RESADR                                #  RESADR = JETSON AFTER POLICY LOCATION
026505,000140: 21,3554           54062                           TS       TJETADR                               
026506,000141: 
026507,000142: 21,3555           37744                           CAF      NEG1/2                                #  SET URGLIMIT = NEGMAX FOR ONLY
026508,000143: 21,3556           54066                           TS       URGLIMIT                              #           2 JET RESPONSE
026509,000144: 21,3557           55673                           TS       NJ-U                                  #  SET JETS FOR NO OFFSET CORRECTION
026510,000145: 21,3560           55672                           TS       NJ+U                                  
026511,000146: 21,3561           55675                           TS       NJ-V                                  
026512,000147: 21,3562           55674                           TS       NJ+V                                  
026513,000148: 
026514,000149: 21,3563           00006                           EXTEND                                         
026515,000150: 21,3564           33567                           DCA      URGAXADR                              
026516,000151: 21,3565           52006                           DTCB                                           
026517,000152: 
026518,000153: 21,3566  E6,1416                                  EBANK=   OMEGAQ                                
026519,000154: 21,3566           03154 36066  URGAXADR           2CADR    URGPLANE                              
026520,000155: 
026521,000156: 21,3570           00016        ACONST             OCTAL    00016                                 
026522,000157: 21,3571           77511        NEGD               DEC      -0.0111                               
026523,000158: 21,3572           03730        RESADR             REMADR   JETSON                                #  JETSON IS IN Q,R TJETLAW
026524,000159: 

Page 632

026526,000161:                                                                                                  #  THE TRYGTS CODING IS AN EXTENSION OF THE Q,R-AXES REACTION CONTROL SYSTEM AUTOPILOT.  TRYGTS CALLS UPON THE GTS
026527,000162:                                                                                                  #  CODING WHENEVER Q,R-AXIS CONTROL FINDS ITSELF ENTERING A COAST REGION WITH JETS OFF.
026528,000163: 
026529,000164: 21,3573  E6,1542                                  EBANK=   DT                                    
026530,000165: 21,3573           37762        TRYGTS             CAF      USEQRJTS                              #  IS JET USE MANDATORY.
026531,000166: 21,3574           70077                           MASK     DAPBOOLS                              
026532,000167: 21,3575           10000                           CCS      A                                     
026533,000168: 21,3576           15733                           TCF      RESUME                                #  YES.  RESUME.
026534,000169: 
026535,000170: 21,3577           00006                           EXTEND                                         #  NO.  CALL IN GTS, IF POSSIBLE.
026536,000171: 21,3600           00012                           READ     12                                    
026537,000172: 21,3601           73617                           MASK     BGIM21                                #  ARE GIMBALS STILL DRIVING.
026538,000173: 21,3602           10000                           CCS      A                                     
026539,000174: 21,3603           15733                           TCF      RESUME                                #  GIMBALS STILL DRIVING.  TRY AGAIN LATER.
026540,000175: 
026541,000176: 21,3604           46311        GOTOGTS            CS       THREE                                 #  GIMBALS STOPPED.  RESET TIME5 COUNTER
026542,000177: 21,3605           26030                           ADS      TIME5                                 #  FROM 20 MS TO 50 MS.
026543,000178: 21,3606           00006                           EXTEND                                         #  NEXT T5RUPT IN 50 MS IS PAXIS.
026544,000179: 21,3607           32100                           DCA      PAX/FILT                              
026545,000180: 21,3610           53001                           DXCH     T5ADR                                 
026546,000181: 
026547,000182: 21,3611           13404        INSRT21A           TCF      TESTCNTR                              #  DETERMINE WHAT TO PUT IN PASSCTR.
026548,000183: 21,3612           55736        LOADCNTR           TS       PASSCTR                               #  NMBR PASSES REQUIRED TO WARM UP FILTER
026549,000184: 21,3613           00006                           EXTEND                                         
026550,000185: 21,3614           33621                           DCA      RATEINAD                              #  NEXT T5RUPT AFTER NEXT PAXIS IS RATEINIT
026551,000186: 21,3615           53573                           DXCH     PFILTADR                              #  CONTROL FLOW SWITCH CELL FOR PAXIS RUPT.
026552,000187: 21,3616           15733                           TCF      RESUME                                
026553,000188: 
026554,000189: 21,3617           07400        BGIM21             OCT      07400                                 #  TRIM GIMBAL BITS IN CHANNEL 12 ARE 9-12.
026555,000190: 21,3620  E6,1542                                  EBANK=   DT                                    
026556,000191: 21,3620           03622 42066  RATEINAD           2CADR    RATEINIT                              #  RATE INITIALIZATION FOR KALMAN FILTER.
026557,000192: 

Page 633

026559,000194: 21,3622           33645        RATEINIT           CAF      FILTMS50                              #  RESET TIMER IMMEDIATELY  DT = 50 MS.
026560,000195: 21,3623           54030                           TS       TIME5                                 
026561,000196: 
026562,000197: 21,3624           22016                           LXCH     BANKRUPT                              #  INTERRUPT LEAD-IN (CONTINUED)
026563,000198: 21,3625           00006                           EXTEND                                         
026564,000199: 21,3626           22012                           QXCH     QRUPT                                 
026565,000200: 
026566,000201: 21,3627           00006                           EXTEND                                         #  FILTINIT WILL BE NEXT T5RUPT, IN 50 MS.
026567,000202: 21,3630           33644                           DCA      FILINADR                              
026568,000203: 21,3631           53001                           DXCH     T5ADR                                 
026569,000204: 
026570,000205: 21,3632           33635                           CA       BACKHOME                              #  ESTABLISH RETURN SWITCH FROM THE PROCESS
026571,000206: 21,3633           55544                           TS       STEERADR                              #  OF READING CDUY,Z AND TIMER.  TO BE USED
026572,000207: 21,3634           12042                           TCF      FILSTART   +1                         #  IN FILTINIT FOR RATE INITIALIZATION
026573,000208: 
026574,000209: 21,3635           03636        BACKHOME           GENADR   BACKHOME   +1                         
026575,000210: 
026576,000211: 21,3636           23543                           LXCH     DAPTIME                               #  RETURN HERE TO STORE DATA JUST DESCRIBED
026577,000212: 21,3637           00006                           EXTEND                                         
026578,000213: 21,3640           31541                           DCA      STORCDUY                              #  IN 2S COMPLEMENT, SCALED AT PI
026579,000214: 21,3641           53741                           DXCH     HOLDCDUY                              #  HOLD FOR RATE DERIVATION
026580,000215: 21,3642           15733                           TCF      RESUME                                
026581,000216: 
026582,000217: 21,3643  E6,1542                                  EBANK=   DT                                    
026583,000218: 21,3643           02000 42066  FILINADR           2CADR    FILTINIT                              
026584,000219: 
026585,000220: 21,3645           37773        FILTMS50           OCT      37773                                 #  50 MS CONSTANT FOR TIME5
026586,000221: 
026587,000222: 21,3646           03647        HOMAGAIN           GENADR   HOMAGAIN   +1                         
026588,000223: 21,3647           37763                           CA       BIT1                                  #  SET UP RATE CALCULATION LOOP, Z AXIS 1ST
026589,000224: 21,3650           54066        HOMELOOP           TS       QRCNTR                                
026590,000225: 21,3651           60000                           DOUBLE                                         
026591,000226: 21,3652           54061                           TS       KCENTRAL                              
026592,000227: 21,3653           50066                           INDEX    QRCNTR                                
026593,000228: 21,3654           31540                           CA       STORCDUY                              #  2S COMPLEMENT AT PI
026594,000229: 21,3655           00006                           EXTEND                                         
026595,000230: 21,3656           50066                           INDEX    QRCNTR                                
026596,000231: 21,3657           21740                           MSU      HOLDCDUY                              #  DIFFERENCE IN 1S COMPLEMENT, AT PI
026597,000232: 21,3660           00006                           EXTEND                                         
026598,000233: 21,3661           77756                           MP       BIT6                                  #  DIFFERENCE IN L, AT PI/2(5)
026599,000234: 21,3662           56001                           XCH      L                                     #  ZERO L, PREPARE FOR DIVISION BY DT
026600,000235: 21,3663           00006                           EXTEND                                         
026601,000236: 21,3664           11542                           DV       DT                                    #  DT IS AT 1/8, SO RATE IS AT PI/4
026602,000237: 21,3665           50061                           INDEX    KCENTRAL                              
026603,000238: 21,3666           53560                           DXCH     DCDUYFIL                              #  STORE S.P. INITIAL RATE ESTIMATE
026604,000239: 21,3667           10066                           CCS      QRCNTR                                #  ARE BOTH RATES DONE YET.
026605,000240: 21,3670           13650                           TCF      HOMELOOP                              #  NO.   NOW DO Y AXIS
026606,000241: 21,3671           33674                           CA       ORDINARY                              #  YES.   SET SWITCH FOR NORMAL OPERATION

Page 634

026608,000243: 21,3672           55742                           TS       STEERAD2                              
026609,000244: 21,3673           12323                           TCF      FILFIRST   +1                         
026610,000245: 21,3674           02075        ORDINARY           GENADR   PAX/FILT   -2                         
026611,000246: 
026612,000247: 21,3675           37767        CLEARCH5           CAF      ZERO                                  #  TURN OFF Q,R-AXES RCS JETS.
026613,000248: 21,3676           00006                           EXTEND                                         
026614,000249: 21,3677           01005                           WRITE    5                                     
026615,000250: 21,3700           33646                           CAF      HOMAGAIN                              #  SET UP TO PREVENT FILTERING DURING THE
026616,000251: 21,3701           55742                           TS       STEERAD2                              #  INITIALIZATION.
026617,000252: 21,3702           12042                           TCF      FILSTART   +1                         #  T6JOBCHK NOT NEEDED.  CHANNEL 5 ZEROED.
026618,000253: 
026619,000254: 21,3703           53575        COUNTDWN           DXCH     PFRPTLST                              #  FINISH CYCLING POST RUPT LIST.
026620,000255: 
026621,000256: 21,3704           11736                           CCS      PASSCTR                               #  DECREMENT PASSCTR.
026622,000257: 21,3705           55736                           TS       PASSCTR                               
026623,000258: 21,3706           12041                           TCF      FILSTART                              
026624,000259: 
026625,000260: 21,3707           55542        TIMEDONE           TS       DT                                    #  DT STORED.  SCALED AT 1/8.
026626,000261: 21,3710           01742                           TC       STEERAD2                              #  BYPASS FILTERING DURING INITIALIZATION.
026627,000262: 21,3711           12075                           TCF      PAX/FILT   -2                         
026628,000263: 
026629,000264: 21,3712           33720        USUALXIT           CA       GOQADR                                
026630,000265: 21,3713           55737                           TS       SLECTLAW                              #  SET LOOP EXIT FOR SIMPLE CONTROL OR NOT.
026631,000266: 21,3714           13005                           TCF      GTSQAXIS                              
026632,000267: 
026633,000268: 21,3715           11736        TESTPCTR           CCS      PASSCTR                               #  EITHER ZERO (+) , OR POSITIVE
026634,000269: 21,3716           13722                           TCF      SIMPCTRL                              #  USE SIMPLE CONTROL - NULLIFY ALPHA.
026635,000270: 21,3717           12731                           TCF      RCSCNTRL                              #  TO TO Q,R JETS.
026636,000271: 
026637,000272: 21,3720           03003        GOQADR             GENADR   GOQTRIMG                              
026638,000273: 21,3721           03726        SIMPQADR           GENADR   SIMPQTRG                              
026639,000274: 
026640,000275: 21,3722           33721        SIMPCTRL           CA       SIMPQADR                              #  SET UP 2ND PASS THROUGH CONTROL LOOP.
026641,000276: 21,3723           55737                           TS       SLECTLAW                              
026642,000277: 21,3724           37762                           CAF      TWO                                   #  SET UP INDEX FOR 1ST PASS THROUGH SIM
026643,000278: 21,3725           13727                           TCF      SIMPLOOP                              #  PLE CONTROL LAW.  (R-AXIS)
026644,000279: 21,3726           37767        SIMPQTRG           CAF      ZERO                                  #  SET INDEX FOR Q-AXIS
026645,000280: 21,3727           54066        SIMPLOOP           TS       QRCNTR                                
026646,000281: 21,3730           50066                           INDEX    QRCNTR                                
026647,000282: 21,3731           11417                           CCS      ALPHAQ                                #  CHOOSE DRIVE TO NULL ALPHA
026648,000283: 21,3732           37763                           CA       BIT1                                  
026649,000284: 21,3733           13176                           TCF      POSDRIVE                              
026650,000285: 21,3734           47763                           CS       BIT1                                  
026651,000286: 21,3735           13176                           TCF      POSDRIVE                              #  DRIVE BITS GO TO THE CHANNEL
026652,000287: 

Page 635

026654,000289:                                                                                                  #  START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
026655,000290: 
026656,000291:                                                                                                  #  FROM GTS: WHEN TRIMCNTR ACTIVE,  DO SIMPCTRL IF THE FILTER IS NOT WARM
026657,000292:                                                                                                  #            AND DO A TGOFF DRIVE IF IT IS.
026658,000293: 
026659,000294: 21,3736           11764        CHKCNTR            CCS      SIMPCNTR                              #  CHOOSE SIMPCTRL OR NORMAL GTS CONTROL.
026660,000295: 21,3737           13715                           TCF      TESTPCTR                              #  SIMPCTRL UNTIL PASSCTR IS ZERO,THEN EXIT
026661,000296: 21,3740           13743                           TCF      NORMCTRL                              #  NORMAL GTS CONTROL.
026662,000297: 21,3741           04736                           TC       CCSHOLE                               
026663,000298: 21,3742           04736                           TC       CCSHOLE                               
026664,000299: 
026665,000300: 21,3743           37763        NORMCTRL           CAF      BIT1                                  #  RETURN TO NORMAL GTS CONTROL.
026666,000301: 21,3744           12701                           TCF      INSERT21   +1                         
026667,000302: 
026668,000303:                                                                                                  #  FROM CHEKDRIV: ALLOW TGOFFCAL DRIVES AND DISABLE SPECIAL GTS INDICATORS
026669,000304: 
026670,000305: 21,3745           03307        WARMFILT           TC       TGOFFCAL                              #  (A= 0, INDEX FOR Q-AXIS IN TGOFFCAL)
026671,000306: 21,3746           37745                           CAF      NEGMAX                                #  RETURN HERE FOR NO Q DRIVE.
026672,000307: 21,3747           54063                           TS       ITEMP3                                #  RETURN HERE WITH TIME IN A (DECASECONDS)
026673,000308: 
026674,000309: 21,3750           37762                           CAF      TWO                                   #  INDEX FOR R-AXIS.
026675,000310: 21,3751           03307                           TC       TGOFFCAL                              
026676,000311: 21,3752           37745                           CAF      NEGMAX                                #  RETURN HERE FOR NO R DRIVE.
026677,000312: 21,3753           54001                           TS       L                                     #  RETURN HERE WITH TIME IN A (DECASECONDS)
026678,000313: 21,3754           30063                           CAE      ITEMP3                                
026679,000314: 21,3755           53754                           DXCH     QGIMTIMR                              #  SET TIMERS SIMULTANEOUSLY FOR RESTART
026680,000315:                                                                                                  #    PROTECTION.
026681,000316: 21,3756           03243                           TC       WRCHN12                               #  START DRIVES
026682,000317: 
026683,000318: 21,3757           11744                           CCS      TRIMCNTR                              #  DEACTIVATE TRIMCNTR IF IT HAS REACHED -0
026684,000319: 21,3760           13765                           TCF      +5                                    
026685,000320: 21,3761           04736                           TC       CCSHOLE                               
026686,000321: 21,3762           13765                           TCF      +3                                    
026687,000322: 21,3763           37745                           CAF      NEGMAX                                
026688,000323: 21,3764           55744                           TS       TRIMCNTR                              
026689,000324: 21,3765           37767                 +5        CAF      ZERO                                  #  DEACTIVATE GTSMNITR NOW THAT TGOFFCAL
026690,000325: 21,3766           55745                           TS       GTSMNITR                              #    HAS BEEN DONE
026691,000326: 21,3767           15727                           TCF      TASKOVER                              
026692,000327: 
026693,000328:                                                                                                  #  **END CODING FOR MODULE 3 REMAKE, AUGUST 1967*****END CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
026694,000329: 
026695,000330: 21,3770           37777        CHKSUM21           OCT      37777                                 

End of include-file SPS_BACK-UP_RCS_CONTROL.agc.  Parent file is MAIN.agc