Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

032398,000002:                                                                                                 #  Copyright:     Public domain.
032399,000003:                                                                                                 #  Filename:      MAIN.agc
032400,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
032401,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
032402,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
032403,000007:                                                                                                 #  Assembler:     yaYUL
032404,000008:                                                                                                 #  Contact:       Onno Hommes <ohommes@alumni.cmu.edu>
032405,000009:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
032406,000010:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Colossus237/
032407,000011:                                                                                                 #  Mod history:   2010-05-18 OH   Adapted from corresponding Colossus 249 file.
032408,000012:                                                                                                 #                 2010-12-04 JL   Remove Colossus 249 header comments. Change to double-has page numbers.
032409,000013:                                                                                                 #                 2011-02-08 JL   Minor fixes.
032410,000014: 
032411,000015:                                                                                                 # # Page 740
032412,000016:                                                                                                 #  PROGRAM:             P61
032413,000017:                                                                                                 #  MOD NO.:             0    MAR. 13, 1967
032414,000018:                                                                                                 #  MOD BY:              R. HIRSCHKOP
032415,000019:                                                                                                 #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER      DATE:  22 JUN 67     RESTARTS.
032416,000020:                                                                                                 #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER      DATE:  17 JAN 68     COLOSSUS GSOP CHANGES.
032417,000021:                                                                                                 #  MOD NO:  3           MOD BY:  RR BAIRNSFATHER      DATE:   8 MAY 68     DELETE CMSM MANEUVER (PCR 50)
032418,000022:                                                                                                 #  FUNCTION:            TO CALCULATE AND DISPLAY EMS INITIALIZATION DATA
032419,000023:                                                                                                 #  CALLING SEQUENCE-    BY V37
032420,000024:                                                                                                 #  EXIT-                TO P62
032421,000025:                                                                                                 #  SUBROUTINE CALLS-    S61.1 , S61.3 , GOFLASH , FLAGUP , R02BOTH
032422,000026: 
032423,000027:                                                                                                 #  ERASABLE INITIALIZATION:
032424,000028:                                                                                                 #            EMSALT  (-29) M        .05G ALTITUDE ABOVE FISCHER ELLIPSOID   PAD LOADED.
032425,000029:                                                                                                 #            ALFAPAD  /180          HYPERSONIC CM TRIM ANGLE OF ATTACK      PAD LOADED
032426,000030:                                                                                                 #  OUTPUT:  THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
032427,000031:                                                                                                 #            GMAX   100 GMAX  (-14)  G,S     MAXIMUM ACCELERATION
032428,000032:                                                                                                 #            VPRED  (-7)  M/CS      PREDICTED VELOCITY AT 400K FT
032429,000033:                                                                                                 #            GAMMAEI  GAMMA/360     PREDICTED GAMMA    AT 400K FT
032430,000034:                                                                                                 #            RTGO   THETAH/360      RANGE ANGLE TO SPLASH FROM EMSALT       EMSALT IS PAD LOADED
032431,000035:                                                                                                 #            VIO    (-7) M/CS       INERTIAL VELOCITY AT       EMSALT       EMSALT IS PAD LOADED
032432,000036:                                                                                                 #            TTE    (-28) CS        TIME     TO                EMSALT       EMSALT IS PAD LOADED
032433,000037:                                                                                                 #            LAT(SPL)  /360         TARGET LOCATION                         LEFT BY DSKY
032434,000038:                                                                                                 #            LNG(SPL)  /360         TARGET LOCATION                         LEFT BY DSKY
032435,000039:                                                                                                 #            HEADSUP   (0)          +1 = LIFT DOWN, -1 = LIFT UP            LEFT BY DSKY
032436,000040:                                                                                                 #  DEBRIS:  SEE SUBROUTINES.
032437,000041: 
032438,000042: 26,2217                                          BANK     26                                    
032439,000043: 26,2000                                          SETLOC   P60S                                  
032440,000044: 26,2000                                          BANK                                           
032441,000045: 
032442,000046: 26,2217  E6,1661                                 EBANK=   AOG                                   
032443,000047: 
032444,000048: 26,2217                                          COUNT*   $$/P61                                
032445,000049: 
032446,000050: 26,2217           34675        P61               CA       BIT14                                 #  EXTENDED VERB SHOULD BE FREE THIS CLOSE
032447,000051: 26,2220           55044                          TS       EXTVBACT                              #  TO V37
032448,000052:                                                                                                 #                                           LOCK OUT EXTENDED VERBS SO CAN USE TFF
032449,000053:                                                                                                 #                                           ROUTINES.EXT VERB ERASE IS USED
032450,000054: 
032451,000055: 26,2221           44712                          CS       ONE                                   #  REMOVE IF HEADSUP EVER ON UPLINK DATA
032452,000056: 26,2222           55726                          TS       HEADSUP                               #  PRELOAD
032453,000057: 
032454,000058: 26,2223           02543                          TC       S61.1                                 #  CHECK STATE VECTOR AND IMU ORIENTATION
032455,000059:                                                                                                 #                                RV 60GENRET. DOES PHASCHNG, GROUP 4.
032456,000060: 
032457,000061: 26,2224           32424                          CA       V06N61                                #  LAT(SPL)     LNG(SPL)     HEADSUP
032458,000062:                                                                                                 #                                           XXX.XX DEG   XXX.XX DEG   XXXXX.
032459,000063: 26,2225           04555                          TC       BANKCALL                              
032460,000064: 26,2226           20763                          CADR     GOFLASHR                              
032461,000065: 26,2227           04106                          TC       GOTOPOOH                              
032462,000066:                                                                                                 # # Page 741
032463,000067: 26,2230           02235                          TC       P61.4                                 
032464,000068: 26,2231           02224                          TC       -5                                    
032465,000069: 
032466,000070: 26,2232           05301        P61.3             TC       PHASCHNG                              
032467,000071: 26,2233           00014                          OCT      00014                                 
032468,000072: 
032469,000073: 26,2234           05112                          TC       ENDOFJOB                              
032470,000074: 
032471,000075: 26,2235           22007        P61.4             ZL                                             
032472,000076: 26,2236           11726                          CCS      HEADSUP                               #  C(HEADSUP)=  +1/-1
032473,000077: 26,2237           34675                          CA       BIT14                                 #  IF HEADSUP POS,ROLLC =180 DEG.(LIFT DWN)
032474,000078: 26,2240           12241                          NOOP                                           #  IF HEADSUP NEG,ROLLC=0 (LIFT UP)
032475,000079: 26,2241           53716                          DXCH     ROLLC                                 #  ROLLC IS USED BY S62.3: GIM ANG AT .05G
032476,000080: 
032477,000081: 26,2242           06006                          TC       INTPRET                               
032478,000082: 26,2243           77745        NEWRNVN           DLOAD                                          
032479,000083: 26,2244           01205                                   PIPTIME                               #  SAVE TIME OF RN,VN TO DETERMINE IF AN
032480,000084: 26,2245           37651                          STCALL   MM                                    #  UPDATE HAS OCCURRED
032481,000085: 26,2246           52063                                   STARTEN1                              #  INITIALIZE
032482,000086: 26,2247           77775                          VLOAD                                          
032483,000087: 26,2250           01171                                   RN                                    
032484,000088: 26,2251           02327                          STORE    RONE                                  
032485,000089: 26,2252           77656                          UNIT                                           
032486,000090: 26,2253           26343                          STOVL    URONE                                 
032487,000091: 26,2254           01177                                   VN                                    
032488,000092: 26,2255           02335                          STORE    VONE                                  
032489,000093: 26,2256           53435                          VXV      UNIT                                  
032490,000094: 26,2257           02343                                   URONE                                 
032491,000095: 26,2260           03502                          STORE    UNI                                   
032492,000096: 26,2261           45345        DUMPP61           DLOAD    DSU                                   
032493,000097: 26,2262           03651                                   MM                                    #  INITIAL VALUE OF PIPTIME
032494,000098: 26,2263           01205                                   PIPTIME                               
032495,000099: 26,2264           45040                          BMN      CALRB                                 
032496,000100: 26,2265           54243                                   NEWRNVN                               #  UPDATED... GO TRY AGAIN
032497,000101: 26,2266           54650                                   S61.2                                 #  GET DISPLAY DATA FOR N60 AND N63
032498,000102:                                                                                                 #                                           AND RETURN IN BASIC, BELOW.
032499,000103: 26,2267           05425        P61.1             TC       CLEARMRK                              
032500,000104: 26,2270           32423                          CA       V06N60                                #  GMAX         VPRED         GAMMAEI
032501,000105:                                                                                                 #                                           XXX.XX G     XXXXX. FPS    XXX.XX DEG
032502,000106: 26,2271           04555                          TC       BANKCALL                              
032503,000107: 26,2272           20624                          CADR     GOFLASH                               
032504,000108: 
032505,000109: 26,2273           04106                          TC       GOTOPOOH                              
032506,000110: 26,2274           02276                          TC       P61.2                                 #  PROCEED
032507,000111: 26,2275           02270                          TC       -5                                    
032508,000112: 
032509,000113: 26,2276           06006        P61.2             TC       INTPRET                               #  CORRECT  TTE  FOR TIME LAPSE DURING
032510,000114:                                                                                                 #                                           ABOVE DISPLAY.
032511,000115: 26,2277           45234                          RTB      DSU                                   
032512,000116: 26,2300           45505                                   LOADTIME                              #  CURRENT TIME.
032513,000117:                                                                                                 # # Page 742
032514,000118: 26,2301           03651                                   MM                                    #  PIPTIME FOR RONE & VONE.
032515,000119: 26,2302           77615                          DAD                                            
032516,000120: 26,2303           03733                                   TTE1                                  #  NEGATIVE OF FREE FALL TIME.
032517,000121: 26,2304           03727                          STORE    TTE                                   #  DECREMENTED
032518,000122: 
032519,000123: 26,2305           77776                          EXIT                                           
032520,000124: 
032521,000125: 26,2306           32425                          CA       V06N63                                #  RTGO         VIO           TTE
032522,000126:                                                                                                 #                                           XXXX.X NM    XXXXX. FPS    XXBXX M,S
032523,000127: 26,2307           04555                          TC       BANKCALL                              
032524,000128: 26,2310           20624                          CADR     GOFLASH                               
032525,000129: 26,2311           04106                          TC       GOTOPOOH                              
032526,000130: 26,2312           02314                          TC       +2                                    
032527,000131: 26,2313           02276                          TC       P61.2                                 #  REDO
032528,000132: 
032529,000133:                                                                                                 #                                  .... THEN FALL INTO P62
032530,000134: 
032531,000135:                                                                                                 # # Page 743
032532,000136:                                                                                                 #  PROGRAM-             P62
032533,000137:                                                                                                 #  MOD NO.-             0    MAR. 13, 1967
032534,000138:                                                                                                 #  MOD BY-              R. HIRSCHKOP
032535,000139:                                                                                                 #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER      DATE: 21 MAR 67
032536,000140:                                                                                                 #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER      DATE:  22 JUN 67     RESTARTS.
032537,000141:                                                                                                 #  MOD NO:  3           MOD BY:  RR BAIRNSFATHER      DATE:  17 JAN 68     COLOSSUS GSOP CHANGES.
032538,000142:                                                                                                 #  MOD NO:  4           MOD BY:  RR BAIRNSFATHER      DATE:   8 MAY 68     MOVE START OF DESIRED GIMBAL CALC.
032539,000143:                                                                                                 #  FUNCTION-            1) TO NOTIFY CREW WHEN GNC SYSTEM IS PREPARED FOR CM/SM SEPARATION
032540,000144:                                                                                                 #                       2) TO ORIENT THE CM TO THE CORRECT ATTITUDE FOR ATMOSPHERIC ENTRY
032541,000145:                                                                                                 #  CALLING SEQUENCE-    BY V37 OR DIRECTLY FROM P61
032542,000146:                                                                                                 #  EXIT-                TO P63
032543,000147:                                                                                                 #  ERASABLE INITIALIZATION:
032544,000148:                                                                                                 #            ALFAPAD                                       LEFT BY PAD LOAD
032545,000149:                                                                                                 #            LADPAD                                        LEFT BY PAD LOAD
032546,000150:                                                                                                 #            LODPAD                                        LEFT BY PAD LOAD
032547,000151:                                                                                                 #            LAT(SPL)    (MAY BE CHANGED BELOW)            LEFT BY DSKY, VIA P61
032548,000152:                                                                                                 #            LNG(SPL)    (MAY BE CHANGED BELOW)            LEFT BY DSKY, VIA P61
032549,000153:                                                                                                 #            HEADSUP     (MAY BE CHANGED BELOW)            LEFT BY DSKY, VIA P61
032550,000154:                                                                                                 #  SUBROUTINE CALLS:    NEWMODEX , S61.1 , CM/DAPIC , CM/DAPON , R02BOTH , GOPERF1 , GOFLASH , GODSPR
032551,000155: 
032552,000156: 26,2314                                          COUNT*   $$/P62                                
032553,000157: 
032554,000158: 26,2314           05243                          TC       NEWMODEX                              #  MODE CHANGE IF CAME FROM P61.
032555,000159: 26,2315           00076                          MM       62         B-14                       #  MODE CHANGE AUTOMATIC VIA V 37.
032556,000160: 26,2316           34712                          CA       ONE                                   
032557,000161: 26,2317           54332                          TS       DNLSTCOD                              
032558,000162: 
032559,000163: 26,2320           02543        P62               TC       S61.1                                 #  CHECK STATE VECTOR AND IMU ORIENTATION.
032560,000164: 
032561,000165: 26,2321           06006                          TC       INTPRET                               
032562,000166: 26,2322           47131                          SSP      RTB                                   
032563,000167: 26,2323           03325                                   POSEXIT                               
032564,000168: 26,2324           54402                                   P62.3                                 #  CALCULATE DESIRED .05G GIMBAL ANGLES,
032565,000169:                                                                                                 #                                           WITHOUT DISPLAY.
032566,000170: 26,2325           41630                                   CM/DAPIC                              #  START CM/POSE AND BODY RATE CALC
032567,000171: 
032568,000172:                                                                                                 #                                       DOES 2PHSCHNG, OCT 40116, OCT 05024, OCT 13000.
032569,000173:                                                                                                 #                                           CM/DAPIC SETS EBANK = EBAOG
032570,000174: 
032571,000175:                                                                                                 #                                           AND RETURNS IN BASIC TO P62.2.                                
032572,000176: 26,2326           00006        P62.2             EXTEND                                         
032573,000177: 26,2327           32431                          DCA      POSECADR                              #  CONTINUE WITH CM/POSE AFTER AV G.
032574,000178: 26,2330           53223                          DXCH     AVEGEXIT                              
032575,000179: 
032576,000180: 26,2331           34270                          CAF      OCT41                                 #  REQUEST SEPARATION
032577,000181: 26,2332           04555                          TC       BANKCALL                              
032578,000182: 26,2333           21031                          CADR     GOPERF1R                              
032579,000183: 26,2334           04106                          TC       GOTOPOOH                              
032580,000184: 26,2335           02340                          TC       +3                                    #  PROCEED
032581,000185: 
032582,000186:                                                                                                 # # Page 744
032583,000187:                                                                                                 #                                                                NOTE:  NODOFLAG WILL BE SET IN CM/DAPON. <<<
032584,000188: 26,2336           02331                          TC       -5                                    #  ENTER
032585,000189: 26,2337           02232                          TC       P61.3                                 #  FOR PHASCHNG AND ENDOFJOB.
032586,000190: 
032587,000191: 26,2340           04574        +3                TC       POSTJUMP                              
032588,000192: 26,2341           41550                          CADR     CM/DAPON                              #  DISABLE RCS DAP, ENABLE ENTRY DAP AND
032589,000193:                                                                                                 #                                           DO ATTITUDE HOLD.
032590,000194: 
032591,000195:                                                                                                 #                                WILL IDLE UNTIL CM/POSE DOES ONE UPDATE.
032592,000196:                                                                                                 #                                CM/DAPON DOES NO PHASCHNG.
032593,000197: 
032594,000198: 
032595,000199: 26,2342           32424        P62.1             CA       V06N61                                #  LAT(SPL)     LNG(SPL)      HEADSUP
032596,000200:                                                                                                 #  XXX.XX DEG   XXX.XX DEG    0000X.
032597,000201: 
032598,000202:                                                                                                 #                                   TERMINATE  ATTITUDE HOLD. SET UP COMMANDS:
032599,000203:                                                                                                 #                                   ROLLC,  ALFACOM,  BETACOM.   BEGIN MANUVER TO
032600,000204:                                                                                                 #                                   ENTRY ATTITUDE.
032601,000205: 
032602,000206: 26,2343           04555                          TC       BANKCALL                              
032603,000207: 26,2344           20624                          CADR     GOFLASH                               
032604,000208: 26,2345           02342                          TC       -3                                    
032605,000209: 26,2346           02350                          TC       +2                                    
032606,000210: 26,2347           02342                          TC       -5                                    
032607,000211: 
032608,000212: 26,2350           05301                          TC       PHASCHNG                              
032609,000213: 26,2351           04024                          OCT      04024                                 #  USE ENTRYVN FOR DISPLAY BELOW.
032610,000214: 
032611,000215:                                                                                                 #                                           EBANK WAS SET IN CM/DAPON TO EBAOG
032612,000216: 
032613,000217: 26,2352           11726                          CCS      HEADSUP                               #  C(HEADSUP) = +/- 1
032614,000218: 26,2353           34675                          CA       BIT14                                 #  IF HEADSUP POS,ROLLC=180 DEG (LIFT DWN)
032615,000219: 26,2354           12355                          NOOP                                           #  IF HEADSUP NEG,ROLLC=0 DEG  (LIFT UP)
032616,000220: 26,2355           55715                          TS       ROLLC                                 
032617,000221: 26,2356           31411                          CA       ALFAPAD                               #  NOMINAL ALFATRIM PAD LOADED, NEG. NO.
032618,000222: 26,2357           22007                          ZL                                             
032619,000223: 26,2360           53604                          DXCH     ALFACOM                               #  SET ALFACOM = ALFA TRIM, BETACOM=0
032620,000224: 
032621,000225: 26,2361           34712                          CA       ONE                                   #  PERMITS EXDAP2 TO CHANGE FLAG TO +0
032622,000226: 26,2362           55727                          TS       P63FLAG                               #  AS INDICATOR. STARTS UP P63.
032623,000227: 
032624,000228: 26,2363           34745                          CA       V06N22                                #  SET UP DISPLAY FOR CDU DESIRED VALUES
032625,000229: 26,2364           55263                          TS       ENTRYVN                               #  FROM ENTRY ATTITUDE CALC, THAT IS
032626,000230:                                                                                                 #                                           ALREADY GOING.
032627,000231: 26,2365           05435                          TC       UPFLAG                                #  TURN ON ENTRY DISPLAY
032628,000232: 26,2366           00134                          ADRES    ENTRYDSP                              #  ENTRYDSP = 92D  BIT 13  FLAG 6
032629,000233: 26,2367                        SKIP                                                             
032630,000234: 
032631,000235:                                                                                                 # # Page 745
032632,000236: 26,2367           41700                          CS       CMDAPMOD                              #  GO DIRECTLY TO P63 IF BODY ATTITUDE
032633,000237: 26,2370           74712                          MASK     ONE                                   #  IS SUCH THAT THE DELAY TASK: WAKEP62
032634,000238: 26,2371           00006                          EXTEND                                         #  WILL BE OMITTED.
032635,000239: 26,2372           12420                          BZF      P63.1                                 #  DISABLE GRP 4, GO TO ENDOFJOB.
032636,000240: 
032637,000241:                                                                                                 #                                           (IE, CONTINUE IF CMDAPMOD = -1, OR +0)
032638,000242: 26,2373           02406                          TC       P63                                   
032639,000243: 
032640,000244:                                                                                                 #                                   PUT JOB TO SLEEP UNTIL VEHICLE MANUVER HAS
032641,000245:                                                                                                 #                                   REDUCED ALFA TO +/-45 DEG. CONSIDER REMAINING
032642,000246:                                                                                                 #                                   65 DEG (25 DEG IF ALFA NEG) TO ALFA TRIM TO
032643,000247:                                                                                                 #                                   OCCUR AT 3 DEG/SEC, AND TERMINATE P62 AT THAT
032644,000248:                                                                                                 #                                   TIME.
032645,000249:                                                                                                 #                                   TASK WAKEP62 IS CALLED FROM ENTRY DAP.
032646,000250: 
032647,000251: 26,2374           34760        WAKEP62           CA       PRIO13                                
032648,000252: 26,2375           05027                          TC       NOVAC                                 
032649,000253: 26,2376  E6,1661                                 EBANK=   AOG                                   
032650,000254: 26,2376           02406 54066                    2CADR    P63                                   
032651,000255: 26,2400           05213                          TC       TASKOVER                              
032652,000256: 
032653,000257: 26,2401           54402        P62.3CAD          CADR     P62.3                                 
032654,000258: 
032655,000259:                                                                                                 #                                EACH 2 SEC, CALCULATE GIMBAL ANGLES FOR ENTRY CON-
032656,000260:                                                                                                 #                                DITIONS THAT WILL HOLD IF REORIENTATION WERE MADE
032657,000261:                                                                                                 #                                AT PRESENT RN, VN. COME HERE FROM CM/POSE AND ALSO
032658,000262:                                                                                                 #                                IN KEPLER PHASE OF ENTRY.
032659,000263: 26,2402           52131        P62.3             SSP      GOTO                                  #  SET RETURN ADDRESS SO THAT   ROUTINE
032660,000264: 26,2403           00053                                   QPRET                                 #  GOES DIRECTLY TO ENTRY GUIDANCE EXIT
032661,000265: 26,2404           53570                                   ENDEXIT                               #  THAT DOES ENTRY DISPLAY ,GRP 5.
032662,000266: 26,2405           20302                                   S62.3                                 #   PUT DESIRED CDU VALUES IN CPHI'S FOR
032663,000267:                                                                                                 #  N22 DISPLAY.
032664,000268: 
032665,000269:                                                                                                 # # Page 746
032666,000270:                                                                                                 #            P63
032667,000271:                                                                                                 #  PROGRAM-             P63
032668,000272:                                                                                                 #  MOD NO.-             0    MAR. 13, 1967
032669,000273:                                                                                                 #  MOD BY-              R. HIRSCHKOP
032670,000274:                                                                                                 #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER      DATE:  22 JUN 67     RESTARTS.
032671,000275:                                                                                                 #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER      DATE:  14 JUL 67     REVISED RESTARTS
032672,000276:                                                                                                 #  FUNCTION-            1) TO INITIALIZE THE ENTRY EQUATIONS
032673,000277:                                                                                                 #                       2) TO CONTINUE TO HOLD THE CM TO THE CORRECT ATTITUDE WITH RESPECT TO THE ATMOSPHERE FOR
032674,000278:                                                                                                 #                          THE ONSET OF ENTRY DECELERATION. ROLL ANGLE IS LIFT UP/DOWN AS SPECIFIED BY HEADSUP.
032675,000279:                                                                                                 #                       3) TO SENSE .05G.
032676,000280:                                                                                                 #  CALLING SEQUENCE-    DIRECTLY FROM P62
032677,000281:                                                                                                 #  EXIT-                TO ENDOFJOB
032678,000282:                                                                                                 #  SUBROUTINE CALLS-    NEWMODEX , GODSPR
032679,000283: 
032680,000284: 26,2406                                          COUNT*   $$/P63                                
032681,000285: 
032682,000286: 26,2406           05243        P63               TC       NEWMODEX                              
032683,000287: 26,2407           00077                          MM       63         B-14                       
032684,000288: 
032685,000289: 26,2410           04555                          TC       BANKCALL                              #  FLUSH N22 DISPLAY, IF ON.  (ONIT DISP
032686,000290: 26,2411           20607                          CADR     CLEANDSP                              #  DURING STATEMENT PASS.)
032687,000291: 
032688,000292:                                                                                                 #                                           ARRIVE WITH EBANK = AOG.
032689,000293: 
032690,000294: 26,2412           32427                          CA       ENTCADR                               #  CONTINUE AT STARTENT AFTER CM/POSE .
032691,000295: 
032692,000296:                                                                                                 #                                   AT END OF STATEMENT, CHANGE ADDRESS IN GOTOADDR
032693,000297:                                                                                                 #                                   TO CONTINUE AT  SCALEPOP  THEREAFTER.
032694,000298: 
032695,000299: 26,2413           55724                          TS       POSEXIT                               
032696,000300: 
032697,000301: 26,2414           32426                          CA       V06N64                                #  G            VI            R TO SPLSH
032698,000302:                                                                                                 #                                           XXX.XX G     XXXXX. FPS    XXXX.X NM
032699,000303: 26,2415           55263                          TS       ENTRYVN                               #  FOR DISPLAY CALL IN OVERNOUT.
032700,000304: 
032701,000305: 26,2416           44712                          CS       ONE                                   #  IN CASE FLAG IS LEFT AT +1 BY DAP. THE
032702,000306: 26,2417           55727                          TS       P63FLAG                               #  -1 ASSURES THAT EXO-ATM DAP WILL NOT
032703,000307:                                                                                                 #                                           CALL P63 OUT OF SEQUENCE IN P66 .
032704,000308: 
032705,000309: 26,2420           05301        P63.1             TC       PHASCHNG                              
032706,000310: 26,2421           00004                          OCT      00004                                 #  DISABLE. DISPLAY RESTARTED VIA ENTRY.
032707,000311: 
032708,000312: 26,2422           05112                          TC       ENDOFJOB                              
032709,000313: 
032710,000314: 26,2423           01474        V06N60            VN       0660                                  
032711,000315: 26,2424           01475        V06N61            VN       0661                                  
032712,000316: 26,2425           01477        V06N63            VN       0663                                  
032713,000317: 26,2426           01500        V06N64            VN       0664                                  
032714,000318: 26,2427           52000        ENTCADR           CADR     STARTENT                              
032715,000319:                                                                                                 # # Page 747
032716,000320: 26,2430  E7,1451                                 EBANK=   RTINIT                                #  TO CARY OVER INTO ENTRY STEERING.
032717,000321: 26,2430           03375 76067  POSECADR          2CADR    CM/POSE                               
032718,000322: 
032719,000323:                                                                                                 # # Page 748
032720,000324:                                                                                                 #  PROGRAM-             P64
032721,000325:                                                                                                 #  MOD NO.-             1     SEPT. 19, 1967
032722,000326:                                                                                                 #  MOD BY-              R. HIRSCHKOP
032723,000327:                                                                                                 #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER      DATE:   8 MAY 68     REVISED COMMENTS FOR COLOSSUS
032724,000328:                                                                                                 #  FUNCTION-            1.  TO START ENTRY GUIDANCE AT .05G SELECTING ROLL  ATTITUDE, CONSTANT DRAG LEVEL, AND
032725,000329:                                                                                                 #                       DRAG THRESHHOLD,  KA  , WHICH ARE KEYED TO THE .05G POINT.
032726,000330:                                                                                                 #                       2.  SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS.
032727,000331:                                                                                                 #                       3.  ITERATE FOR UP-CONTROL SOLUTION  P65  IF V > 27000 FPS AND IF ALTITUDE RATE AND DRAG
032728,000332:                                                                                                 #                       LEVEL CONDITIONS ARE SATISFIED. ENTER P65 WHEN CONSTANT DRAG CONTROLLER HAS BROUGHT RANGE
032729,000333:                                                                                                 #                       AS PREDICTED TO WITHIN 25 NM OF DESIRED RANGE.
032730,000334:                                                                                                 #                       4.  SELECT FINAL PHASE  P67  IF NO UP-CONTROL SOLUTION EXISTS WITH VL > 18000 FPS.
032731,000335:                                                                                                 #  CALLING SEQUENCE-    BY RTB FROM REENTRY CONTROL
032732,000336:                                                                                                 #  EXIT-                BACK TO REENTRY CONTROL
032733,000337:                                                                                                 #  SUBROUTINE CALLS-    NEWMODEX
032734,000338: 
032735,000339: 
032736,000340: 26,2432                                          BANK     26                                    
032737,000341: 26,2000                                          SETLOC   P60S1                                 
032738,000342: 26,2000                                          BANK                                           
032739,000343: 
032740,000344:                                                                                                 #            THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.
032741,000345: 
032742,000346: 26,2432                                          COUNT*   $$/P64                                
032743,000347: 
032744,000348: 26,2432           05243        P64               TC       NEWMODEX                              #  ENTER VIA RTB WHEN .05G IS EXCEEDED.
032745,000349: 26,2433           00100                          MM       64         B-14                       
032746,000350: 26,2434           32437                          CA       V06N68                                #  ROLLC        VI            HDOT
032747,000351:                                                                                                 #                                           XXX.XX DEG   XXXXX. FPS    XXXXX. FPS
032748,000352: 26,2435           55263                          TS       ENTRYVN                               #  DISPLAY VIA OVERNOUT.
032749,000353: 
032750,000354: 26,2436           06030                          TC       DANZIG                                #  ... AND CONTINUE IN INITROLL ...
032751,000355: 
032752,000356: 
032753,000357: 26,2437           01504        V06N68            VN       0668                                  
032754,000358: 
032755,000359:                                                                                                 # # Page 749
032756,000360:                                                                                                 #  PROGRAM:             P65
032757,000361:                                                                                                 #  MOD NO:  0           MOD BY:  RR BAIRNSFATHER      DATE:  17 JAN 68     COLOSSUS GSOP ADDITION.
032758,000362:                                                                                                 #  FUNCTION:            TO CONTINUE ENTRY GUIDANCE, USING THE UP-CONTROL PHASE TO STEER TO A CONTROLLED EXIT
032759,000363:                                                                                                 #                       CONDITION. THIS PHASE TERMINATES  A) IF D  < Q7 FPSS, GO TO P66   ,
032760,000364:                                                                                                 #                                                         B) IF RDOT NEG, AND IF V < VL +500 FPS, GO TO P67.
032761,000365:                                                                                                 #  CALLING SEQUENCE:    BY RTB FROM REENTRY CONTROL
032762,000366:                                                                                                 #  EXIT:                BACK TO REENTRY CONTROL, OR TO ENDOFJOB.
032763,000367:                                                                                                 #  SUBROUTINE CALLS:    NEWMODEX
032764,000368: 
032765,000369: 26,2440                                          COUNT*   $$/P65                                
032766,000370: 
032767,000371: 26,2440           05243        P65               TC       NEWMODEX                              #  ENTER VIA RTB WHEN RANGE < 25 N M OF
032768,000372: 26,2441           00101                          MM       65         B-14                       #  TARGET.
032769,000373: 
032770,000374: 26,2442           34760                          CA       PRIO13                                
032771,000375: 26,2443           05027                          TC       NOVAC                                 
032772,000376: 26,2444     1263                                 EBANK=   ENTRYVN                               
032773,000377: 26,2444           02456 54062                    2CADR    P65.1                                 
032774,000378: 26,2446           05261                          TC       2PHSCHNG                              #  2 PHASE CHG REQUIRED TO PREVENT RE-
032775,000379: 26,2447           00554                          OCT      00554                                 #  STARTING FLASHING DISPLAY TWICE.
032776,000380: 26,2450           10035                          OCT      10035                                 #  4.55 SPOT AND SERVICER, HERE.
032777,000381: 26,2451           06006                          TC       INTPRET                               
032778,000382: 26,2452           47131                          SSP      RTB                                   
032779,000383: 26,2453           03646                                   GOTOADDR                              #  CHANGE ENTRY MODE TO UPCONTRL.
032780,000384: 26,2454           53027                                   UPCONTRL                              
032781,000385: 26,2455           52120                                   REFAZE10                              #  GO HERE TO REESTABLISH ENTRY SEQUENCER.
032782,000386:                                                                                                 #                                           AND CONTINUE AT UPCONTRL...
032783,000387: 
032784,000388: 26,2456           05447        P65.1             TC       DOWNFLAG                              
032785,000389: 26,2457           00134                          ADRES    ENTRYDSP                              #  ENTRYDSP = 92D  BIT 13 FLAG 6
032786,000390: 
032787,000391: 26,2460           32472                          CA       V16N69                                #  ROLLC        DL  (Q7)      VL
032788,000392: 26,2461           04555                          TC       BANKCALL                              #  XXX.XX DEG   XXX.XX G      XXXXX. FPS
032789,000393: 26,2462           20763                          CADR     GOFLASHR                              
032790,000394: 26,2463           02460                          TC       -3                                    #  NODOFLAG IS SET..
032791,000395: 26,2464           02467                          TC       +3                                    
032792,000396: 26,2465           02460                          TC       -5                                    
032793,000397: 26,2466           02232                          TC       P61.3                                 #  EST. GRP 4 FOR DSPLAY AND DO ENDOFJOB
032794,000398:                                                                                                 #                                           IF PROCEED, CONTINUE
032795,000399: 26,2467           05435                          TC       UPFLAG                                
032796,000400: 26,2470           00134                          ADRES    ENTRYDSP                              #  ENTRYDSP = 92D   BIT 13 FLAG 6
032797,000401: 
032798,000402: 26,2471           02420                          TC       P63.1                                 #  DISABLE GRP 4,START UP ENTRY DISPLAY
032799,000403: 
032800,000404:                                                                                                 #                                           N06V68 VIA OVERNOUT, AS USED IN P64.
032801,000405: 
032802,000406: 26,2472           04105        V16N69            VN       1669                                  
032803,000407: 
032804,000408:                                                                                                 # # Page 750
032805,000409:                                                                                                 #  PROGRAM:             P66
032806,000410:                                                                                                 #  MOD NO:  0           MOD BY:  RR BAIRNSFATHER      DATE:  17 JAN 68     COLOSSUS GSOP ADDITIONS.
032807,000411:                                                                                                 #  FUNCTION:            KEEP CM ATTITUDE IN TRIM TO THE RELATIVE VELOCITY VECTOR. ENTRY GUIDANCE STOPS GENERATING
032808,000412:                                                                                                 #                       ROLL COMMANDS UNTIL DRAG BUILDS UP TO  Q7+0.5 FPSS.
032809,000413: 
032810,000414:                                                                                                 #  CALLING SEQUENCE:    VIA RTB FROM REENTRY CONTROL.
032811,000415:                                                                                                 #  EXIT:                BACK TO REENTRY CONTROL.
032812,000416:                                                                                                 #  SUBROUTINE CALLS:    NEWMODEX
032813,000417: 
032814,000418: 26,2473                                          COUNT*   $$/P66                                
032815,000419: 
032816,000420: 26,2473           05243        P66               TC       NEWMODEX                              #  ENTER VIA RTB WHEN D < Q7 FPSS
032817,000421: 26,2474           00102                          MM       66         B-14                       
032818,000422: 
032819,000423: 26,2475           34745                          CA       V06N22                                #  OGA          IGA           MGA
032820,000424:                                                                                                 #  XXX.XX DEG   XXX.XX DEG    XXX.XX DEG
032821,000425: 26,2476           02502                          TC       P66END                                #  IN CASE CAME FROM P65, GO TO DISABLE GRP4,
032822,000426:                                                                                                 #                                           AND SET ENTRYDSP TO DO DISPLAY VIA
032823,000427:                                                                                                 #                                           OVERNOUT.
032824,000428:                                                                                                 #                                           ... AND CONTINUE AT KEP2 
032825,000429: 
032826,000430:                                                                                                 # # Page 751
032827,000431:                                                                                                 #  PROGRAM:       P67
032828,000432:                                                                                                 #  MOD NO:        0       MAR. 16, 1967
032829,000433:                                                                                                 #  MOD BY:        R. HIRSCHKOP
032830,000434:                                                                                                 #  FUNCTION:      TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC
032831,000435:                                                                                                 #  CALLING SEQUENCE:
032832,000436:                                                                                                 #  EXIT:          TO P00H
032833,000437:                                                                                                 #  SUBROUTINE CALLS:  GOFLASH
032834,000438: 
032835,000439:                                                                                                 #  THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING.  RESTART PROTECTION IS VIA STEERING.
032836,000440: 
032837,000441: 26,2477                                          COUNT*   $$/P67                                
032838,000442: 
032839,000443: 26,2477           05243        P67               TC       NEWMODEX                              #  ENTER VIA RTB
032840,000444: 26,2500           00103                          MM       67         B-14                       
032841,000445: 26,2501           32510                          CA       V06N66                                #  ROLLC          XRNGERR         DNRNGERR
032842,000446:                                                                                                 #  XXX.XX DEG     XXXX.X NM       XXXX.X NM
032843,000447: 26,2502           55263        P66END            TS       ENTRYVN                               #  DISPLAY VIA OVERNOUT.
032844,000448: 
032845,000449: 26,2503           05435                          TC       UPFLAG                                #  (IN CASE CAME FROM P65. ENTRY DISPLAY
032846,000450: 26,2504           00134                          ADRES    ENTRYDSP                              #  WILL FLUSH FLASHING DISP. IF STILL ON)
032847,000451:                                                                                                 #                                           BIT 13 FLAG 6
032848,000452: 26,2505           05301        KILLGRP4          TC       PHASCHNG                              #  DISABLE GRP4, IN CASE CAME FROM HUNTEST.
032849,000453: 26,2506           00004                          OCT      00004                                 #  (COME TO KILLGRP4 VIA RTB,RET TO CALLER)
032850,000454: 
032851,000455: 26,2507           06030                          TC       DANZIG                                #  ... AND CONTINUE AT PREDICT3 ...
032852,000456: 
032853,000457: 26,2510           01502        V06N66            VN       0666                                  
032854,000458: 
032855,000459: 26,2511                                          BANK     26                                    
032856,000460: 26,2000                                          SETLOC   P60S2                                 
032857,000461: 26,2000                                          BANK                                           
032858,000462: 
032859,000463: 26,2511           32542        P67.1             CA       V16N67                                #  RTOGO        LAT           LONG
032860,000464:                                                                                                 #  XXXX.X NM    XXX.XX DEG    XXX.XX DEG
032861,000465: 26,2512           04555                          TC       BANKCALL                              
032862,000466: 26,2513           20624                          CADR     GOFLASH                               
032863,000467: 26,2514           02517                          TC       +3                                    #  EFFECTIVE GOTOPOOH
032864,000468: 26,2515           02517                          TC       +2                                    
032865,000469: 26,2516           02511                          TC       P67.1                                 #  REDO
032866,000470: 
032867,000471: 26,2517           46214                          CS       THREE                                 #  TURN OFF ENTRY DAP
032868,000472: 26,2520           00004                          INHINT                                         
032869,000473: 26,2521           70102                          MASK     CM/FLAGS                              #  CM/DSTBY , GAMDIFSW
032870,000474: 26,2522           54102                          TS       CM/FLAGS                              
032871,000475: 26,2523           00003                          RELINT                                         
032872,000476: 26,2524           00006                          EXTEND                                         
032873,000477: 26,2525           32642                          DCA      SERVCAD2                              
032874,000478:                                                                                                 # # Page 752
032875,000479: 26,2526           53223                          DXCH     AVEGEXIT                              
032876,000480: 26,2527           14106                          TCF      GOTOPOOH                              
032877,000481: 
032878,000482:                                                                                                 # # Page 753
032879,000483: 26,2530           43175        P67.2             VLOAD    CLEAR                                 #  CALC PRESENT LAT, LONG, ALT.
032880,000484: 26,2531           01171                                   RN                                    
032881,000485: 26,2532           00662                                   ERADFLAG                              #  USE PAD RAD FOR ALT.(NOT SEEN ANYWAY)
032882,000486: 26,2533           16152                          STODL    ALPHAV                                
032883,000487: 26,2534           01205                                   PIPTIME                               #  USE TIME OF RN
032884,000488: 26,2535           45014                          CLEAR    CALL                                  
032885,000489: 26,2536           01663                                   LUNAFLAG                              
032886,000490: 26,2537           26322                                   LAT-LONG                              
032887,000491: 26,2540           77634        P67.3             RTB                                            #  ENTRY EXIT THAT OMITS DISPLAY.
032888,000492: 26,2541           53603                                   SERVNOUT                              
032889,000493: 
032890,000494: 26,2542           04103        V16N67            VN       1667                                  
032891,000495: 26,2543     4270               OCT41             =        33DEC                                 
032892,000496: 26,2543  26,2641               SERVCAD2          =        SERVCAD1                              
032893,000497: 
032894,000498:                                                                                                 # # Page 754
032895,000499:                                                                                                 #  SUBROUTINE NAME:     S61.1     
032896,000500:                                                                                                 #  MOD NO:  0                                                              DATE: 21 FEB 67
032897,000501:                                                                                                 #  MOD BY:  RR BAIRNSFATHER                               LOG SECTION:    P61-P67
032898,000502:                                                                                                 #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER          DATE:           22 JUN 67       RESTARTS.
032899,000503:                                                                                                 #  FUNCTIONAL DESCRIPTION:     CALLED BY BOTH P61 AND P62
032900,000504:                                                                                                 #           FIRST,TEST TO SEE IF   AVERAGEG   IS ON. IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE
032901,000505:                                                                                                 #           AND TURN ON   AVERAGEG   AT THAT TIME, AND CONTINUE.   OTHERWISE CONTINUE:   SEE IF  IMU Y AXIS IS
032902,000506:                                                                                                 #           WITHIN 30 DEG OF V*R.  IF YES, EXIT SUBROUTINE S61.1.    IF NO,  SEE IF -Y AXIS OF IMU IS WITHIN
032903,000507:                                                                                                 #           30 DEG OF V*R.   IF YES, DISPLAY ALARM:  01427   IMU REVERSED.
032904,000508:                                                                                                 #                            IF NO, DISPLAY ALARM:   01426   IMU UNSATISFACTORY.
032905,000509:                                                                                                 #           IN EITHER OF THESE LAST 2 CASES, WAIT  10 SEC  AND THEN EXIT SUBROUTINE  S61.1.
032906,000510: 
032907,000511:                                                                                                 #  REMARK:              THERE WILL BE A SHORT 10 SEC DELAY IF AN ALARM EXIT IS TAKEN. THE DELAY FOR INTEGRATION IS
032908,000512:                                                                                                 #                       AS SHORT AS CAN BE MADE, BUT IS ARBITRARY SINCE IT  DEPENDS ON THE AGE OF THE STATE VECTOR.
032909,000513: 
032910,000514:                                                                                                 #  CALLING SEQUENCE:  CALL
032911,000515:                                                                                                 #                            S61.1
032912,000516:                                                                                                 #                     C(MPAC) UNSPECIFIED
032913,000517:                                                                                                 #                     PUSHLOC UNSPECIFIED
032914,000518: 
032915,000519:                                                                                                 #  SUBROUTINES CALLED:  LOADTIME, CSMPREC, TPAGTREE,
032916,000520:                                                                                                 #                       WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB
032917,000521:                                                                                                 #  NORMAL EXIT MODES:   RVQ
032918,000522:                                                                                                 #  ALARMS:  01426     IMU UNSATISFACTORY
032919,000523:                                                                                                 #           01427     IMU REVERSED
032920,000524:                                                                                                 #  OUTPUT:  POSSIBLE ALARMS
032921,000525:                                                                                                 #           POSSIBLY TDEC1, RATT, VATT, RN, VN
032922,000526:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:
032923,000527:                                                                                                 #           AVEGFLAG               AVERAGEG ON OR OFF                      LEFT BY SERVICER
032924,000528:                                                                                                 #           PIPTIME  (-28) CS      TIME OF PIPA UPDATE                     LEFT BY READACCS
032925,000529:                                                                                                 #           RN     (-29) M         STATE VECTOR                            LEFT BY AVERAGEG
032926,000530:                                                                                                 #           VN     (-7) M/CS       STATE VECTOR                            LEFT BY AVERAGEG
032927,000531:                                                                                                 #           REFSMMAT  (-1)         .5 REF TO SM MATRIX                     LEFT BY LAST IMU ALIGNMENT
032928,000532:                                                                                                 #  DEBRIS:  QPRET
032929,000533:                                                                                                 #           POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1      IF UPDATED
032930,000534:                                                                                                 #           PUSH LIST LOCS USED BY CSMPREC
032931,000535: 
032932,000536: 26,2543  E6,1661                                 EBANK=   AOG                                   #  FOR 60GENRET , S61DT
032933,000537: 26,2543                                          BANK     26                                    
032934,000538: 26,2000                                          SETLOC   P60S3                                 
032935,000539: 26,2000                                          BANK                                           
032936,000540: 
032937,000541: 26,2543                                          COUNT*   $$/S61.1                              
032938,000542: 
032939,000543: 26,2543           00006        S61.1             EXTEND                                         
032940,000544: 26,2544           23773                          QXCH     60GENRET                              #  SAVE RET ADDR IN EB 6
032941,000545: 26,2545           04555                          TC       BANKCALL                              
032942,000546: 26,2546           17573                          CADR     R02BOTH                               
032943,000547: 26,2547           06006                          TC       INTPRET                               
032944,000548:                                                                                                 # # Page 755
032945,000549: 26,2550           45014                          BON      CALRB                                 
032946,000550: 26,2551           00716                                   AVEGFLAG                              #  IS AVERAGEG ON
032947,000551: 26,2552           54603                                   S61.1A                                #  YES
032948,000552: 26,2553           27570                                   MIDTOAV2                              #  GET FUTURE STATE VECTOR SOON AS CAN
032949,000553: 
032950,000554: 26,2554           30155                          CA       MPAC       +1                         #  RETURN INHINTED ***
032951,000555: 26,2555           55774                          TS       S61DT                                 #  FOR RESTART.
032952,000556: 26,2556           05140                          TC       WAITLIST                              
032953,000557: 26,2557  E7,1431                                 EBANK=   DVCNTR                                
032954,000558: 26,2557           02564 54067                    2CADR    S61.1C                                
032955,000559: 26,2561           05301                          TC       PHASCHNG                              
032956,000560: 26,2562           40434                          OCT      40434                                 
032957,000561: 26,2563           05112                          TC       ENDOFJOB                              
032958,000562: 
032959,000563: 26,2564           34760        S61.1C            CA       PRIO13                                
032960,000564: 26,2565           05042                          TC       FINDVAC                               
032961,000565: 26,2566  E6,1661                                 EBANK=   AOG                                   
032962,000566: 26,2566           02602 54066                    2CADR    S61.1A     -1                         
032963,000567: 
032964,000568: 26,2570           00006                          EXTEND                                         
032965,000569: 26,2571           32642                          DCA      SERVCAD1                              #  HE WHO STARTS AVERAGEG MUST SERVICE
032966,000570: 26,2572           53223                          DXCH     AVEGEXIT                              #  THE EXIT.
032967,000571: 
032968,000572: 26,2573           05261                          TC       2PHSCHNG                              
032969,000573: 26,2574           00454                          OCT      00454                                 
032970,000574: 26,2575           00415                          OCT      00415                                 
032971,000575: 
032972,000576: 26,2576           34753                          CA       EBENTRY                               #  SET EB= 7 FOR PREREAD.
032973,000577: 26,2577           54003                          TS       EBANK                                 
032974,000578: 
032975,000579: 26,2600           04574                          TC       POSTJUMP                              
032976,000580: 26,2601           76604                          CADR     PREREAD                               #  PREREAD DOES TC TASKOVER.
032977,000581: 
032978,000582: 26,2602           06006                          TC       INTPRET                               
032979,000583: 26,2603           77204        S61.1A            BOVB     VLOAD                                 
032980,000584: 26,2604           57314                                   TCDANZIG                              #  TURN OFF OVFIND, IF ON
032981,000585: 26,2605           01177                                   VN                                    #  VN   (-7) M/CS
032982,000586: 26,2606           64235                          VXV      MXV                                   
032983,000587: 26,2607           01171                                   RN                                    #  RN  (-29)  M
032984,000588: 26,2610           01736                                   REFSMMAT                              #  .5 UNIT MATRIX
032985,000589: 26,2611           71256                          UNIT     DLOAD                                 
032986,000590: 26,2612           00160                                   MPAC       +3                         #  GET  COS(THETA)/2
032987,000591: 26,2613           43240                          BMN      DAD                                   
032988,000592: 26,2614           54621                                   S61.1B                                #  DO TEST ON -YSM
032989,000593: 26,2615           14644                                   C(30)LIM                              #  = 1.0 -.5 COS(30)
032990,000594: 26,2616           47004                          BOVB     RTB                                   
032991,000595: 26,2617           54640                                   RETRN1                                
032992,000596: 26,2620           54625                                   RETRN3                                
032993,000597:                                                                                                 # # Page 756
032994,000598: 26,2621           43276        S61.1B            DCOMP    DAD                                   
032995,000599: 26,2622           14644                                   C(30)LIM                              #  = 1.0- .5 COS(30)
032996,000600: 26,2623           77404                          BOVB     EXIT                                  
032997,000601: 26,2624           54630                                   RETRN2                                
032998,000602: 
032999,000603: 26,2625           05537        RETRN3            TC       ALARM                                 
033000,000604: 26,2626           01426                          OCT      01426                                 #  IMU UNSATISFACTORY
033001,000605: 26,2627           02632                          TC       RETRN2     +2                         
033002,000606: 
033003,000607: 26,2630           05537        RETRN2            TC       ALARM                                 
033004,000608: 26,2631           01427                          OCT      01427                                 #  IMU REVERSED
033005,000609: 
033006,000610: 26,2632           34743        +2                CAF      V05N09                                
033007,000611: 26,2633           04555                          TC       BANKCALL                              
033008,000612: 26,2634           20602                          CADR     GODSPR                                #  DO DISPLAY
033009,000613: 26,2635           32645                          CA       10SECS                                
033010,000614: 26,2636           04555                          TC       BANKCALL                              
033011,000615: 26,2637           01730                          CADR     DELAYJOB                              
033012,000616: 
033013,000617: 26,2640           01773        RETRN1            TC       60GENRET                              
033014,000618: 
033015,000619: 26,2641  E7,1431                                 EBANK=   DVCNTR                                
033016,000620: 26,2641           03136 76067  SERVCAD1          2CADR    SERVEXIT                              
033017,000621: 26,2643           22111 17335  C(30)LIM          2DEC     .566985                               #  = 1.0 - .5 COS(30)
033018,000622: 26,2645           01750        10SECS            DEC      1000       B-14                       #  1000 CS
033019,000623: 26,2646           00000 13560  60SECDP           2DEC     6000       B-28                       #  6000 CS
033020,000624: 
033021,000625:                                                                                                 # # Page 757
033022,000626:                                                                                                 #  PROGRAM NAME:      S61.2                                                DATE:           14 FEB 67
033023,000627:                                                                                                 #  MOD NO:  1                                                              LOG SECTION:    P61-P67
033024,000628:                                                                                                 #  MOD BY:  MORTH / BAIRNSFATHER
033025,000629:                                                                                                 #  MOD NO:  2           MOD BY:  MORTH/BAIRNSFATHER   DATE:  11 MAY 67     ADD 2ND ITER FOR ERAD AT 400K FT.
033026,000630:                                                                                                 #  MOD NO:  3           MOD BY:  RR BAIRNSFATHER      DATE:  21 NOV 67     VARIABLE MU ADDED.
033027,000631:                                                                                                 #  MOD NO:  4           MOD BY:  RR BAIRNSFATHER      DATE:  21 MAR 68     DIFFERENT EARTH/MOON SCALES IN TFF'S
033028,000632:                                                                                                 #  FUNCTIONAL DESCRIPTION:      CALLED IN P61.  PROVIDES DISPLAYS FOR NOUNS  N60  AND  N63  .
033029,000633:                                                                                                 #           PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED  (GMAX)  AND ALSO THE EXPECTED
033030,000634:                                                                                                 #           INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE   (GAMMABI)   THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER
033031,000635:                                                                                                 #           ELLIPSOID.   PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE  TO THE EMSALT  ABOVE FISCHER ELLIPSOID
033032,000636:                                                                                                 #           AND CONSISTS OF RANGE TO SPLASH FROM NOW (RTGO) , PREDICTED INERTIAL VELOCITY (VIO) , AND THE TIME TO
033033,000637:                                                                                                 #           GO FROM NOW (TTE) .
033034,000638:                                                                                                 #  CALLING SEQUENCE:  CALL
033035,000639:                                                                                                 #                            S61.2
033036,000640:                                                                                                 #           C(MPAC) UNSPECIFIED
033037,000641:                                                                                                 #           PUSHLOC WILL BE SET TO ZERO.
033038,000642: 
033039,000643:                                                                                                 #  SUBROUTINES CALLED:  TFFCONIC,  CALCTFF,  TFF/TRIG,  FISHCALC,  GETERAD,  VGAMCALC
033040,000644:                                                                                                 #  NORMAL EXIT MODES:    RTB  P61.1
033041,000645:                                                                                                 #  ALARMS:  NONE
033042,000646:                                                                                                 #  OUTPUT:  THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
033043,000647:                                                                                                 #           GMAX   100 GMAX  (-14)  G,S     MAXIMUM ACCELERATION
033044,000648:                                                                                                 #           VPRED  (-7)  M/CS      PREDICTED VELOCITY AT 400K FT
033045,000649:                                                                                                 #           GAMMAEI  GAMMA/360     PREDICTED GAMMA    AT 400K FT
033046,000650:                                                                                                 #                                  FOR TM, DP(GAMMAEI) = (GAMMAEI, RTGO) / 360
033047,000651:                                                                                                 #           RTGO   THETAH/360      RANGE ANGLE TO SPLASH FROM EMSALT       EMSALT IS PAD LOADED
033048,000652:                                                                                                 #           VIO    (-7) M/CS       INTERTIAL VELOCITY AT      EMSALT       EMSALT IS PAD LOADED
033049,000653:                                                                                                 #           TTE    (-28) CS        TIME TO                    EMSALT       EMSALT IS PAD LOADED
033050,000654: 
033051,000655:                                                                                                 #           PUSHLOC = 0
033052,000656:                                                                                                 #           CONIC PARAMETERS STORED IN VAC AREA (SEE TFF SUBROUTINES)
033053,000657:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:
033054,000658:                                                                                                 #           RONE   (-29) M         STATE VECTOR                            LEFT BY USER
033055,000659:                                                                                                 #           VONE   (-7)  M/CS      STATE VECTOR                            LEFT BY USER
033056,000660:                                                                                                 #           URONE  UR/2                                                    LEFT BY USER
033057,000661:                                                                                                 #           UNI    (-1)            UNIT NORMAL V*R                         LEFT BY ENTRY / P61
033058,000662:                                                                                                 #           THETAH  THETAH/360     RANGE ANGLE                             LEFT BY ENTRY / P61
033059,000663:                                                                                                 #           UNITW  (0)             UNIT POLAR VECTOR                       LEFT BY  PAD LOAD
033060,000664:                                                                                                 #           EMSALT  (-29) M        EMS INTERFACE ALTITUDE                  LEFT BY  PAD LOAD
033061,000665:                                                                                                 #                                  ORBITAL REENTRY:  284643 FT, LUNAR REENTRY:  297431 FT.
033062,000666:                                                                                                 #  DEBRIS:  QPRET,
033063,000667:                                                                                                 #           ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2
033064,000668:                                                                                                 #           ALSO PDL+0 ... PDL+5, WHERE INITIAL PUSHLOC = PDL
033065,000669: 
033066,000670:                                                                                                 # # Page 758
033067,000671: 
033068,000672: 
033069,000673:                                                                                                 #  THE FOLLOWING PUSH LIST LOCATIONS HAVE BEEN RESERVED FOR TFF ROUTINES AND ARE REPEATED HERE FOR CONVENIENCE.
033070,000674: 
033071,000675:                                                                                                 #  OF COURSE  FOR S61.2 USAGE, EARTH ORIGIN SCALING IS USED.
033072,000676: 
033073,000677:                                                                                                 #                                                               BELOW      E:   IS USED FOR EARTH ORIGIN SCALE
033074,000678:                                                                                                 #                                                                          M:   IS USED FOR MOON ORIGIN SCALE
033075,000679: 
033076,000680:                                                                                                 #                                          RTERM    =      18D             TERMINAL RADIUS M  E: (-29)  M: (-27)
033077,000681:                                                                                                 #                                          NRTERM   =      16D             TERMINAL RADIUS M  E: (-29+NR)
033078,000682:                                                                                                 #                                                                                             M: (-27+NR)
033079,000683:                                                                                                 #                                          RMAG1    =      12D             PRESENT RADIUS M   E: (-29)  M: (-27)
033080,000684:                                                                                                 #                                          NRMAG    =      32D             PRESENT RADIUS M   E: (-29+NR)
033081,000685:                                                                                                 #                                                                                             M: (-27+NR)
033082,000686:                                                                                                 #                                          SDELF/2                         SIN(THETA)  /2
033083,000687:                                                                                                 #                                          CDELF/2  =      14D             COS(THETA) /2
033084,000688:                                                                                                 #                                          TFFX     =      34D             X, ARGUMENT OF SERIES T(X).
033085,000689:                                                                                                 #                                          TFFTEM   =      36D             ARG  FOR TRANSFER ANGLE CALCULATION.
033086,000690:                                                                                                 #                                          TFFNP    =      28D             LC P  M  E: (-38+2NR)   M: (-36+2NR)
033087,000691:                                                                                                 #                                          TFF/RTMU =      30D             1/SQRT(MU)         E: (17)   M: (14)
033088,000692:                                                                                                 #                                          TFFVSQ   =      20D             -(VN.VN/MU)  1/M   E: (20)   M: (18)
033089,000693: 
033090,000694:                                                                                                 # # Page 759
033091,000695: 34,3654                                          BANK     34                                    
033092,000696: 26,2000                                          SETLOC   P60S2                                 
033093,000697: 26,2000                                          BANK                                           
033094,000698: 
033095,000699: 26,2650                                          COUNT*   $$/S61.2                              
033096,000700: 
033097,000701:                                                                                                 #                                           PDL LEFT AT ZERO BY TARGETING
033098,000702: 
033099,000703: 26,2650           45345        S61.2             DLOAD    DSU                                   
033100,000704: 26,2651           02020                                   EMSALT                                
033101,000705: 26,2652           15000                                   290KFT                                
033102,000706: 26,2653           71244                          BPL      DLOAD                                 
033103,000707: 26,2654           54774                                   LUNENT                                
033104,000708: 26,2655           17316                                   1/RTMU                                #  ESTABLISH MU FOR ORBITAL ENTRIES
033105,000709: 26,2656           77624        CALLCON           CALL                                           
033106,000710: 26,2657           56721                                   TFFCONIC                              #  FILL VAC AREA WITH CONIC PARAMETERS
033107,000711: 
033108,000712: 26,2660           45145                          DLOAD    CALL                                  
033109,000713: 26,2661           15020                                   RTRIAL                                #  1ST GUESS AT TERMINAL RADIUS  (-29)
033110,000714: 26,2662           57031                                   CALCTFF                               #  SAVES MPAC IN RTERM  (18D)
033111,000715: 
033112,000716: 26,2663           77624                          CALL                                           #  CALC SDELF/2,  CDELF/2
033113,000717: 26,2664           56573                                   TFF/TRIG                              #  RETURN WITH S(THETA) IN MPAC
033114,000718: 
033115,000719: 26,2665           77624                          CALL                                           #  GET FISCHER RADIUS (-29) M
033116,000720: 26,2666           55027                                   FISHCALC                              #  ANS IN MPAC AND IN ERADM.
033117,000721: 
033118,000722: 26,2667           45015                          DAD      CALL                                  
033119,000723: 26,2670           02020                                   EMSALT                                
033120,000724: 26,2671           57031                                   CALCTFF                               #  SAVES MPAC IN  RTERM  (18D)
033121,000725: 
033122,000726: 26,2672           77676                          DCOMP                                          #  NEGATIVE AS IN COUNTDOWN.
033123,000727: 26,2673           03733                          STORE    TTE1                                  #  DECR TTE FROM BASB TTE1. (RESTART)
033124,000728:                                                                                                 #                                           DNLIST AND DSKY WILL USE TTE.
033125,000729: 26,2674           37727                          STCALL   TTE                                   #  LET MISS CONTRL DECR BY ELAPSED TIME
033126,000730:                                                                                                 #                                           TTE= TIME FROM NOW TO EMSALT +FISCHER
033127,000731: 
033128,000732: 26,2675           56573                                   TFF/TRIG                              #  S(THETA) IN MPAC ON RETURNING
033129,000733:                                                                                                 #                                           AND THETA= RANGE FROM NOW TO EMSALT
033130,000734: 
033131,000735: 26,2676           77624                          CALL                                           
033132,000736: 26,2677           55027                                   FISHCALC                              
033133,000737: 26,2700           77624                          CALL                                           
033134,000738: 26,2701           56626                                   VRCALC                                
033135,000739: 26,2702           77624                          CALL                                           
033136,000740: 26,2703           56613                                   DISPTARG                              
033137,000741: 26,2704           77624                          CALL                                           
033138,000742: 26,2705           56613                                   DISPTARG                              
033139,000743: 26,2706           37714                          STCALL   RTGO                                  
033140,000744:                                                                                                 # # Page 760
033141,000745: 26,2707           55050                                   VGAMCALC                              
033142,000746: 
033143,000747: 26,2710           77605                          DMP                                            #  MPAC = GAMMA
033144,000748:                                                                                                 #  PDL0 HAS VGAM.
033145,000749: 26,2711           43265                          BDDV     DAD                                   
033146,000750: 26,2712           15026                                   VEMSCON                               #  -HS D 180/PI (-14)
033147,000751: 26,2713           00001                                   0                                     #  VGAM FROM PDL0.
033148,000752: 26,2714           17725                          STODL    VIO                                   #  PREDICTED VELOCITY AT EMSALT.
033149,000753: 
033150,000754:                                                                                                 #                                GAMMA AND VGAM AT 300K FT ARE REQUIRED BY  GMAX
033151,000755:                                                                                                 #                                ALGORITHM.
033152,000756: 
033153,000757: 26,2715           02241                                   ERADM                                 #  EARTH RADIUS FROM GETERAD     (-29) M
033154,000758:                                                                                                 #                                           = FISCHER RADIUS  (-29)
033155,000759: 26,2716           77615                          DAD                                            
033156,000760: 26,2717           06462                                   300KFT                                #  M  (-29)
033157,000761: 26,2720           34023                          STCALL   RTERM                                 #  TERMINAL RADIUS  M  (-29)
033158,000762: 
033159,000763: 26,2721           55045                                   PREVGAM                               #  VGAMCALC WITH NEW RTERM
033160,000764: 
033161,000765:                                                                                                 #  VBAR = (V(FPS)  - 36KF/S) / 20KF/S
033162,000766:                                                                                                 #   GMAX = (4/(1+ 4.8 VBARSQ))(GAM -6.05 -2.4 VBARSQ) -10(L/D -.3) + 10     ASSUME L/D = 0.3, BANK =0.
033163,000767: 
033164,000768: 
033165,000769:                                                                                                 #                                          GMAXCALC
033166,000770: 26,2722           45325                          PDDL     DSU                                   #  GAM TO PDL2
033167,000771: 26,2723           00001                                   0                                     #  VGAM IS IN PDL0  (-7)
033168,000772: 26,2724           15004                                   36KFT/S                               #  (-7)   M/CS
033169,000773: 26,2725           63471                          DDV      DSQ                                   
033170,000774: 26,2726           15006                                   20KFT/S                               #  (-6)   M/CS
033171,000775: 26,2727           00001                          STORE    0                                     #  VBARSQ  (-2)  TO PDL0
033172,000776: 
033173,000777: 26,2730           43205                          DMP      DAD                                   
033174,000778: 26,2731           15010                                   KR1                                   
033175,000779:                                                                                                 #                                           GAM,    POS DOWN, FROM PDL2
033176,000780: 26,2732           41215                          DAD      DMP                                   
033177,000781: 26,2733           15012                                   -6.05DEG                              
033178,000782: 26,2734           15014                                   KR2                                   
033179,000783: 26,2735           77725                          PDDL                                           #  XCH PDL+0 FOR VBARSQ  (-2)
033180,000784: 26,2736           43271                          DDV      DAD                                   
033181,000785: 26,2737           15024                                   KR4                                   
033182,000786: 26,2740           17330                                   DP2(-4)                               
033183,000787: 26,2741           77665                          BDDV                                           
033184,000788:                                                                                                 #                                           NUM FROM PDL+0
033185,000789: 26,2742           51015                          DAD      BPL                                   
033186,000790: 26,2743           15016                                   KR3                                   
033187,000791: 26,2744           54747                                   +3                                    
033188,000792: 26,2745           77745                          DLOAD                                          
033189,000793: 26,2746           15332                                   HI6ZEROS                              
033190,000794: 26,2747           17722                          STODL    GMAX                                  #  100 GMAX  (-14)
033191,000795:                                                                                                 # # Page 761
033192,000796:                                                                                                 #  DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED.
033193,000797: 
033194,000798: 26,2750           02241                                   ERADM                                 #  = FISCHER RADIUS  (-29) M
033195,000799: 26,2751           45015                          DAD      CALL                                  #  2 ND  ITERATION FOR FISCHER RADIUS
033196,000800: 26,2752           15022                                   400KFT                                
033197,000801: 26,2753           57031                                   CALCTFF                               #  ESTABLISH TRANSFER ANGLE DATA.
033198,000802: 26,2754           77624                          CALL                                           
033199,000803: 26,2755           56573                                   TFF/TRIG                              #  GET SIN, COS DELF
033200,000804: 26,2756           77624                          CALL                                           
033201,000805: 26,2757           55027                                   FISHCALC                              #  GET CORRESPONDING FISCHER RADIUS.
033202,000806: 
033203,000807: 26,2760           73015                          DAD      LXA,2                                 #  SAVE HI-WORD FOR DOWNLIST.
033204,000808: 26,2761           15022                                   400KFT                                #  M  (-29)
033205,000809: 26,2762           03713                                   RTGO                                  #  (RANGE ANGLE FROM EMSALT)/360
033206,000810: 26,2763           34023                          STCALL   RTERM                                 
033207,000811: 26,2764           55045                                   PREVGAM                               #  VGAMCALC WITH NEW RTERM
033208,000812: 
033209,000813: 26,2765           67076                          DCOMP    SXA,2                                 #  HI-WORD OF EACH ON DOWNLIST.
033210,000814: 26,2766           00155                                   MPAC       +1                         
033211,000815: 26,2767           17771                          STODL    GAMMAEI                               #  CONIC GAMMA/360 AT 400K FT.   ( HI-WORD)
033212,000816:                                                                                                 #                                           CONIC RTGO/360 FROM EMSALT    (LOW-WORD)
033213,000817:                                                                                                 #                                           FOR TM, DP(GAMMAEI)= (GAMMA, RTGO)/360
033214,000818: 
033215,000819:                                                                                                 #                                           VGAM FROM PDL+0   (-7)
033216,000820: 26,2770           77626                          STADR                                          
033217,000821: 26,2771           74010                          STORE    VPRED                                 #  CONIC VELOCITY AT 400K FT
033218,000822: 
033219,000823: 26,2772           77634                          RTB                                            
033220,000824: 26,2773           54267                                   P61.1                                 
033221,000825:                                                                                                 #                                           PDL BACK TO ZERO.
033222,000826: 
033223,000827: 26,2774           52145        LUNENT            DLOAD    GOTO                                  
033224,000828: 26,2775           06456                                   1/RTMUE                               #  ESTABLISH MU FOR LUNAR TYPE ENTRIES
033225,000829: 26,2776           54656                                   CALLCON                               
033226,000830: 26,2777           00002 26244  290KFT            2DEC     88392      B-29                       
033227,000831: 26,3001           00052 05716  KTETA1            2DEC*    .421844723 E2         B-14*           #  1100 2PI/16384(163.84)
033228,000832: 26,3003           33335 05707  36KFT/S           2DEC     109.728    B-7                        #  (-7) M/CS = 36 KFT/S (-7)
033229,000833: 26,3005           36365 30244  20KFT/S           2DEC     121.92     B-7                        #  (-6) M/CS  = 2 20KFT/S  (-7)
033230,000834: 26,3007           77113 42770  KR1               2DEC     -.026666667                            #  = -2.4  4 / 360
033231,000835: 26,3011           77354 65030  -6.05DEG          2DEC     -.016805556                            #  = -6.05 / 360
033232,000836: 26,3013           21450 00001  KR2               2DEC     .54931641                             #  =(360/4) 100 (-14) =  9000 B-14
033233,000837: 26,3015           01750 00000  KR3               2DEC     1000       B-14                       #  = 100  (10.0)  (-14)   G,S
033234,000838:                                                                                                 # # Page 762
033235,000839:                                                                                                 #                                           ASSUMES L/D = 0.3, BANK =0.
033236,000840: 26,3017           00305 04541  RTRIAL            2DEC     6460097.18 B-29                       #   RPAD +284643 FT =21 194 545 FT
033237,000841:                                                                                                 #                                RPAD DEFINED AS 20 909 901.57 FT =6 373 338 M
033238,000842: 26,3021           00003 27040  400KFT            2DEC     121920     B-29                       #  METERS
033239,000843: 
033240,000844:                                                                                                 #  300KFT   2DEC   91440 B-29      (-29)  M
033241,000845: 
033242,000846:                                                                                                 #  EMSALT   2DEC   86759.2 B-29    284643 FT (-29) M    (ORBITAL REENTRY)
033243,000847: 
033244,000848:                                                                                                 #  EMSALT   2DEC   90657 B-29      297431 FT (-29) M    (LUNAR REENTRY)
033245,000849: 
033246,000850: 26,3023           32525 12525  KR4               2DEC     .833333333                            
033247,000851: 26,3025  23,2461               300KFT            EQUALS   MINPERE                               
033248,000852: 26,3025           77777 76601  VEMSCON           2DEC     -.0389676  B-14                       #  = -HS D  /2  PI  (-14)    M SQ/ CS SQ
033249,000853:                                                                                                 #                                =- 16369   .05G  32.2  .3048  .3048/2 PI    (-14)
033250,000854: 
033251,000855:                                                                                                 # # Page 763
033252,000856:                                                                                                 #  SUBROUTINE NAME:   FISHCALC              (USED BY S61.2)                DATE:           01.21.67
033253,000857:                                                                                                 #  MOD NO:  0                                                              LOG SECTION:    P61-P67
033254,000858:                                                                                                 #  MOD BY:  MORTH / BAIRNSFATHER
033255,000859:                                                                                                 #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER     DATE:  11 MAY 67      INCLUDE  GETERAD  CALL
033256,000860:                                                                                                 #  FUNCTIONAL DESCRIPTION:  GIVEN THE PRESENT POSITION, UNITR, CALCULATE A  NEW UNITR THAT IS ROTATED THROUGH
033257,000861:                                                                                                 #           TRANSFER ANGLE, THETA, ALONG TRAJECTORY. THEN CALCULATE  SIN(LAT)  AND USE TO OBTAIN FISCHER RADIUS.
033258,000862: 
033259,000863:                                                                                                 #           SINCE FISHCALC USES UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED.(WILL IMPROVE FOR SUITABLE TENNANT)
033260,000864: 
033261,000865:                                                                                                 #  CALLING SEQUENCE:  CALL
033262,000866:                                                                                                 #                          FISHCALC
033263,000867:                                                                                                 #           ENTER WITH .5 SIN(THETA) IN MPAC.
033264,000868:                                                                                                 #           PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D
033265,000869: 
033266,000870:                                                                                                 #  SUBROUTINES CALLED:  GETERAD
033267,000871:                                                                                                 #  NORMAL EXIT MODE:    RVQ
033268,000872:                                                                                                 #  EXIT MODES:           NONE
033269,000873:                                                                                                 #  OUTPUT:  ERADM  (-29) M   IN MPAC ON RETURNING
033270,000874:                                                                                                 #           NEW UNIT VECTOR NOT SAVED.
033271,000875:                                                                                                 #           SIN(LAT) NOT SAVED.
033272,000876:                                                                                                 #           PUSHLOC AT PDL+0
033273,000877:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:
033274,000878:                                                                                                 #           SDELF/2    =SIN(THETA)  /2,   IN MPAC                          LEFT BY TFF/TRIG
033275,000879:                                                                                                 #           CDELF/2    =COS(THETA) /2, STORED IN PDL 14D                   LEFT BY TFF/TRIG
033276,000880:                                                                                                 #           RONE   (-29) M                                                 LEFT BY USER
033277,000881:                                                                                                 #           VONE   (-7)  M/CS                                              LEFT BY USER
033278,000882:                                                                                                 #           URONE  UR/2                                                    LEFT BY USER
033279,000883:                                                                                                 #           UNI        .5 UNIT( V*R)                                       LEFT BY ENTRY / P61
033280,000884:                                                                                                 #           UNITW      UNIT NORTH POLE                                     LEFT BY PAD LOAD
033281,000885:                                                                                                 #  DEBRIS:  QPRET,   PDL+0 ... PDL+5
033282,000886: 
033283,000887: 
033284,000888:                                                                                                 #                                           -      -          -
033285,000889: 26,3027           47315        FISHCALC          PDVL     VXV                                   #  URPR = UR CDELF + UHOR SDELF
033286,000890: 26,3030           02343                                   URONE                                 
033287,000891: 26,3031           03502                                   UNI                                   
033288,000892: 26,3032           76561                          VXSC     VSL1                                  
033289,000893:                                                                                                 #                                           SIN(THETA) /2 FROM PDL+0
033290,000894: 26,3033           74315                          PDVL     VXSC                                  #  TO PDL+0,  +5
033291,000895: 26,3034           02343                                   URONE                                 
033292,000896: 26,3035           00017                                   CDELF/2                               #  COS(THETA) /2
033293,000897: 26,3036           45455                          VAD      STADR                                 
033294,000898: 26,3037           74235                          STORE    URH                                   #  FOR USE IN RTGO FROM EMS DISPLAY
033295,000899: 26,3040           72441                          DOT      SL1                                   
033296,000900: 26,3041           01714                                   UNITW                                 #  FULL UNIT VECTOR    UNIT NORTH
033297,000901: 26,3042           02156                          STORE    ALPHAV     +4                         #   = .5 SIN(LAT)
033298,000902: 26,3043           77650        DUMPFISH          GOTO                                           
033299,000903: 26,3044           26437                                   GETERAD                               #  SAVES FISCHER RAD (-29) M IN ERADM AND
033300,000904:                                                                                                 #                                           IN MPAC. RETURNS TO CALLER VIO QPRET.
033301,000905: 
033302,000906:                                                                                                 # # Page 764
033303,000907:                                                                                                 #  SUBROUTINE NAME:   VGAMCALC    (USED BY S61.2)                         DATE:           01.21.67
033304,000908:                                                                                                 #  MOD NO:    0                                                           LOG SECTION:    P61-P67
033305,000909:                                                                                                 #  MOD BY:  MORTH / BAIRNSFATHER
033306,000910:                                                                                                 #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER          DATE: 11 APR 67
033307,000911:                                                                                                 #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER          DATE: 21 NOV 67         VARIABLE MU ADDED.
033308,000912:                                                                                                 #  MOD NO:  3           MOD BY:  RR BAIRNSFATHER          DATE: 21 MAR 68         ACCEPT DIFFERENT EARTH/MOON SCALE
033309,000913:                                                                                                 #  FUNCTONAL DESCRIPTION:       EARTH CENTERED VIS VIVA CALCULATION OF TERMINAL VELOCITY AND GAMMA (REL TO
033310,000914:                                                                                                 #          HORIZONTAL)  GIVEN  THE SCALAR QUANTITIES:   PRESENT RADIUS AND VELOCITY AND THE TERMINAL RADIUS.
033311,000915:                                                                                                 #          THE USER MUST APPEND PROPER SIGN TO GAMMA, SINCE IT IS CALCULATED AS A POSITIVE NUMBER.
033312,000916:                                                                                                 #          THE EQUATIONS ARE
033313,000917: 
033314,000918:                                                                                                 #                 VGAM = SQRT(VN VN/MU + 2(RN-RTERM)/(RN RTERM)  )  RTMU
033315,000919: 
033316,000920:                                                                                                 #                 COSGAM = H /RTERM VGAM  = SQRT(LCP)/ (RTERM VGAM/RTMU)
033317,000921: 
033318,000922: 
033319,000923:                                                                                                 #          VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS. BOTH CALCTFF AND CALCTPER
033320,000924:                                                                                                 #          MAKE THIS ASSUMPTION.
033321,000925: 
033322,000926:                                                                                                 #  CALLING SEQUENCE:  CALL                         STCALL RTERM
033323,000927:                                                                                                 #                           VGAMCALC                      PREVGAM
033324,000928:                                                                                                 #          PUSHLOC AT PDL+0, ARBITRARY  IF LEQ 12D
033325,000929:                                                                                                 #          C(MPAC) UNSPECIFIED                    C(MPAC)=NEW RTERM
033326,000930: 
033327,000931:                                                                                                 #  SUBROUTINES CALLED:  NONE
033328,000932:                                                                                                 #  NORMAL EXIT MODE:    RVQ
033329,000933:                                                                                                 #  ALARMS:    NONE
033330,000934:                                                                                                 #  OUTPUT:    GAMMA / 360 IN MPAC, POSITIVE NUMBER
033331,000935:                                                                                                 #             VGAM E:(-7)  M:(-5)    M/CS IN PDL+0
033332,000936:                                                                                                 #             PUSHLOC AT PDL+2
033333,000937:                                                                                                 #  ERASABLE INITIALIZATION REQD:
033334,000938:                                                                                                 #           TFF/RTMU E:(17) M:(14)   1/SQRT(MU)                            LEFT BY TFFCONIC.
033335,000939:                                                                                                 #           RMAG1  E:(-29) M:(-27)   M   PRESENT RADIUS LENGTH             LEFT BY TFFCONIC
033336,000940:                                                                                                 #           NRMAG  E: (-29+NR)       M  NORM LENGTH OF PRESENT POSITION    LEFT BY TFFCONIC
033337,000941:                                                                                                 #                  M: (-27+NR)
033338,000942:                                                                                                 #           RTERM  E:(-29) M:(-27)   M  TERMINAL RADIUS LENGHT             LEFT BY CALCTFF
033339,000943:                                                                                                 #           NRTERM E: (-29+NR)       M  NORM LENGTH OF TERMINAL RADIUS     LEFT BY CALCTFF
033340,000944:                                                                                                 #                  M: (-27+NR)
033341,000945:                                                                                                 #           TFFVSQ E:(20)  M:(18)  1/M   -(V SQ/MU): PRESENT VELOCITY,NORM LEFT BY TFFCONIC
033342,000946:                                                                                                 #           TFFNP  E: (-38+2NR)      M  LCP, SEMI-LATUS RECTUM, WEIGHT NR  LEFT BY TFFCONIC
033343,000947:                                                                                                 #                  M: (-36+2NR)
033344,000948:                                                                                                 #  DEBRIS:  QPRET, PDL+0 ... PDL+3
033345,000949:                                                                                                 #           RTERM, NRTERM IF PREVGAM ENTERED.
033346,000950: 
033347,000951:                                                                                                 # # Page 765
033348,000952: 26,3045           77657        PREVGAM           SL*                                            #  ENTER WITH NEW  RTERM IN MPAC
033349,000953:                                                                                                 #                                           E: (-29)  M: (-27)
033350,000954: 26,3046           20201                                   0,1                                   #  X1 = -NR
033351,000955: 26,3047           00021                          STORE    NRTERM                                #  RTERM  M        E:(-29+NR)   M: (-27+NR)
033352,000956: 
033353,000957: 26,3050           41345        VGAMCALC          DLOAD    DMP                                   
033354,000958: 26,3051           00041                                   NRMAG                                 #  RMAG  M          E:(-29+NR)  M:(-27+NR)
033355,000959: 26,3052           00021                                   NRTERM                                #  RTERM  M         E:(-29+NR)  M:(-27+NR)
033356,000960: 26,3053           45325                          PDDL     DSU                                   #  RMAG RTERM M     E:(-58+2NR) M:(-54+2NR)
033357,000961: 26,3054           00041                                   NRMAG                                 #  RMAG  M          E:(-29+NR)  M:(-27+NR)
033358,000962: 26,3055           00021                                   NRTERM                                #  RTERM  M         E:(-29+NR)  M:(-27+NR)
033359,000963: 26,3056           56257                          SL*      DDV                                   #  2(RN-RTERM)      E:(-30+NR)  M:(-28+NR)
033360,000964: 26,3057           20171                                   0          -8D,1                      #  (-8+NR)
033361,000965:                                                                                                 #                                           PUSH UP PRODUCT.
033362,000966: 26,3060           77625                          DSU                                            
033363,000967: 26,3061           00025                                   TFFVSQ                                #  -(V SQ/MU)         E: (20)   M: (18)
033364,000968: 26,3062           41566                          SQRT     PUSH                                  #  SAVE VGAM/RT(MU) FOR NOW. E:(10) M: (9)
033365,000969: 26,3063           65271                          DDV      PDDL                                  #  XCH PDL+0, LEAVING VGAM FOR OUTPUT.
033366,000970:                                                                                                 #                                           VGAM TO PDL M/CS   E: (-7)   M: (-2)
033367,000971: 26,3064           00037                                   TFF/RTMU                              #  E: (17)  M: (14)
033368,000972: 26,3065           65205                          DMP      PDDL                                  #  RTERM VGAM/RTMU  E:(-19+NR)  M:(-18+NR)
033369,000973: 26,3066           00021                                   NRTERM                                #  RTERM M          E:(-29+NR)  M:(-27+NR)
033370,000974: 26,3067           00035                                   TFFNP                                 #  LC P =H.H/MU M   E:(-38+2NR) M:(-36+2NR)
033371,000975: 26,3070           56366                          SQRT     DDV                                   #                   E:(-19+NR)  M:(-18+NR)
033372,000976:                                                                                                 #                                           PUSH UP DEN      E:(-19+NR)  M:(-18+NR)
033373,000977:                                                                                                 #                                           USE DDV OVFL AS LIMITER (|COS| <1.0)
033374,000978: 26,3071           65542                          SR1      ACOS                                  
033375,000979: 26,3072           77616        DUMPVGAM          RVQ                                            
033376,000980: 
033377,000981:                                                                                                 #                                           CALLER MUST SUPPLY OWN SIGN ...
033378,000982: 
033379,000983:                                                                                                 #                                                                    22W     27MS
033380,000984: 
033381,000985:                                                                                                 # # Page 766
033382,000986:                                                                                                 #  SUBROUTINE NAME:     TFF/TRIG            (USED BY S61.2)                DATE     01.17.67
033383,000987:                                                                                                 #  MOD NO:  0                                                              LOG SECTION:    P61-P67
033384,000988:                                                                                                 #  MOD BY:  RR BAIRNSFATHER
033385,000989:                                                                                                 #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER     DATE:  14 APR 67
033386,000990:                                                                                                 #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER     DATE:  21 MAR 68      ACCEPT DIFFERENT EARTH/MOON SCALE
033387,000991:                                                                                                 #  FUNCTIONAL DESCRIPTION:      USED BY ENTRY DISPLAY TO CALCULATE SIN(THETA), COS(THETA) FROM DATA LEFT IN
033388,000992:                                                                                                 #           PDL BY TFF SUBROUTINES. THE EQNS ARE
033389,000993:                                                                                                 #                  COS(THETA) = 1-2 ABS(ARG) /(RN RTERM (1+X)  )
033390,000994:                                                                                                 #                                                  2
033391,000995:                                                                                                 #                  SIN(THETA) = SGN(ARG) SQRT(1-COS (THETA) )
033392,000996:                                                                                                 #           WHERE  THETA = TRANSFER ANGLE
033393,000997:                                                                                                 #           AND    ARG = P Z ABS(Z)                                        IF ALFA ZZ   LEQ 1
033394,000998:                                                                                                 #                  ARG = (P / ALFA)  SGN(Q1 + R 1/Z)                       IF ALFA Z Z   G  1
033395,000999:                                                                                                 #           AND  ARG  HAS BEEN AFFIXED WITH THE SIGN OF SIN(THETA).
033396,001000:                                                                                                 #  CALLING SEQUENCE:  CALL
033397,001001:                                                                                                 #                            TFF/TRIG
033398,001002:                                                                                                 #           PUSHLOC AT PDL+0, ARBITRARY IF NOT EQ 14D
033399,001003:                                                                                                 #           C(MPAC) UNSPECIFIED
033400,001004: 
033401,001005:                                                                                                 #  SUBROUTINES CALLED:  NONE
033402,001006:                                                                                                 #  NORMAL EXIT MODES:   RVQ
033403,001007:                                                                                                 #  ALARMS:  NONE
033404,001008:                                                                                                 #  OUTPUT:  C(MPAC) = .5 SIN(THETA)
033405,001009:                                                                                                 #           CDELF/2 = .5 COS(THETA)          (IN PDL 14D)
033406,001010:                                                                                                 #           PUSHLOC AT PDL+0
033407,001011:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:
033408,001012:                                                                                                 #           TFFX                   X                                       LEFT BY CALCTFF OR CALCTPER
033409,001013:                                                                                                 #           TFFTEM E: (-59+2NR)    ARG                                     LEFT BY CALCTFF OR CALCTPER
033410,001014:                                                                                                 #                  M: (-55+2NR)    WHERE ARG = LCP ZZ SGN(DELF) OR ARG = LCP/ALFA  SGN(DELF)
033411,001015:                                                                                                 #           NRTERM E: (-29+NR)       M  NORM LENGTH OF TERMINAL RADIUS     LEFT BY CALCTFF OR CALCTPER
033412,001016:                                                                                                 #                  M: (-27+NR)
033413,001017:                                                                                                 #           NRMAG  E: (-29+NR)       M  NORM LENGTH OF PRESENT POSITION    LEFT BY TFFCONIC
033414,001018:                                                                                                 #                  M: (-27+NR)
033415,001019:                                                                                                 #  DEBRIS:  QPRET, CDELF/2
033416,001020: 
033417,001021: 27,2573                                          BANK     27                                    
033418,001022: 27,2000                                          SETLOC   P60S5                                 
033419,001023: 27,2000                                          BANK                                           
033420,001024: 27,2573           70545        TFF/TRIG          DLOAD    SR1                                   
033421,001025: 27,2574           00043                                   TFFX                                  
033422,001026: 27,2575           41215                          DAD      DMP                                   
033423,001027: 27,2576           15330                                   HIDPHALF                              
033424,001028: 27,2577           00041                                   NRMAG                                 #  RMAG  M          E:(-29+NR)  M:(-27+NR)
033425,001029: 27,2600           55205                          DMP      BDDV                                  
033426,001030: 27,2601           00021                                   NRTERM                                #  RTERM  M         E:(-29+NR)  M:(-27+NR)
033427,001031: 27,2602           00045                                   TFFTEM                                #  P ZSQ OR P/ALFA  E:(-59+2NR) M:(-55+2NR)
033428,001032: 27,2603           44246                          ABS      BDSU                                  #  THE SIGN IS FOR SDELF.
033429,001033: 27,2604           15330                                   HIDPHALF                              
033430,001034: 27,2605           00017                          STORE    CDELF/2                               #  .5 COS(THETA)
033431,001035: 27,2606           57516                          DSQ      DCOMP                                 #  KEEP HONEST FOR SQRT.
033432,001036:                                                                                                 # # Page 767
033433,001037: 27,2607           75415                          DAD      SQRT                                  
033434,001038: 27,2610           15322                                   HIDP1/4                               
033435,001039: 27,2611           43565        DUMPTRIG          SIGN     RVQ                                   
033436,001040: 27,2612           00045                                   TFFTEM                                #  AFFIX SIGN(DELE/2)
033437,001041:                                                                                                 #                                           RETURN WITH .5 SIN(THETA) IN MPAC
033438,001042: 
033439,001043:                                                                                                 #                                                              16W            15 MS
033440,001044: 
033441,001045: 27,2613           77620        DISPTARG          STQ                                            #   C(MPAC) = TRGO  ESTIMATE
033442,001046: 27,2614           03373                                   60GENRET                              
033443,001047: 27,2615           45205                          DMP      DSU                                   
033444,001048: 27,2616           15002                                   KTETA1                                
033445,001049: 27,2617           03733                                   TTE1                                  
033446,001050: 27,2620           37606                          STCALL   DTEAROT                               
033447,001051: 27,2621           46225                                   EARROT2                               
033448,001052: 27,2622           77624                          CALL                                           
033449,001053: 27,2623           56626                                   VRCALC                                
033450,001054: 27,2624           77650                          GOTO                                           
033451,001055: 27,2625           03373                                   60GENRET                              
033452,001056: 27,2626           50375        VRCALC            VLOAD    DOT                                   
033453,001057: 27,2627           03542                                   URH                                   
033454,001058: 27,2630           03474                                   RT                                    
033455,001059: 27,2631           65512                          SL2      ACOS                                  
033456,001060: 27,2632           77616                          RVQ                                            
033457,001061:                                                                                                 #  END OF PROGRAM S61.2
033458,001062: 
033459,001063:                                                                                                 # # Page 768
033460,001064: 
033461,001065:                                                                                                 #  PROGRAM DESCRIPTION S62.3       DATE 10JAN67
033462,001066:                                                                                                 #  MOD NO 1        LOG SECTION P60-P67
033463,001067:                                                                                                 #  MOD BY ZELDIN
033464,001068:                                                                                                 #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER      DATE: 15 MAY 67      CHANGED TO REF COORDS.
033465,001069:                                                                                                 #  MOD NO:  3           MOD BY:  RR BAIRNSFATHER      DATE:  17 JAN 68     ALFAPAD CHANGES MADE.
033466,001070:                                                                                                 #  FUNCTIONAL DESCRIPTION
033467,001071:                                                                                                 #           COMPUTE  DESIRED GIMBOL ANGLES FOR ENTRY ATTITUDE
033468,001072:                                                                                                 #           THE FOLLOWING TRAJECTORY TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY  CM/POSE  IN
033469,001073:                                                                                                 #           REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH) :
033470,001074: 
033471,001075:                                                                                                 #                  UXA = -UNIT(V)
033472,001076:                                                                                                 #                  UYA =  UNIT(V*R)
033473,001077:                                                                                                 #                  UZA =  UXA*UYA
033474,001078: 
033475,001079:                                                                                                 #           GENERATE A DESIRED BODY TRIAD FOR TRIMMED FLIGHT WITH RESPECT TO THE RELATIVE VELOCITY VECTOR, USING
033476,001080:                                                                                                 #           ROLL COMMAND AND TRIM ANGLE OF ATTACK:
033477,001081: 
033478,001082:                                                                                                 #                 UXD = UNIT(UYD*UXA) SIN(ALFATRIM) + UXA COS(ALFATRIM)
033479,001083:                                                                                                 #                 UYD = UYA COS(ROLLC) + UZA SIN(ROLLC)
033480,001084:                                                                                                 #                 UZD = UXD * UYD
033481,001085: 
033482,001086:                                                                                                 #           USE THE DESIRED SET (IN REFERENCE COORDS) AND  REFSMMAT  TO CALL   CALCGA   AND OBTAIN GIMBAL ANGLES
033483,001087:                                                                                                 #           IN 2S,C IN MPAC, +2 AND THETAD, +2.
033484,001088: 
033485,001089:                                                                                                 #  CALLING SEQUENCE
033486,001090:                                                                                                 #         L   CALL
033487,001091:                                                                                                 #         L+1      S62.3
033488,001092:                                                                                                 #  NORMAL EXIT MODE
033489,001093:                                                                                                 #           RETURN VIA QPRET DIRECTLY FROM CALCGA.
033490,001094:                                                                                                 #  SUBROUTINES CALLED
033491,001095:                                                                                                 #           CALCGA
033492,001096:                                                                                                 #  ALARM OR ABORT MODES
033493,001097:                                                                                                 #           NONE
033494,001098:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
033495,001099:                                                                                                 #           ROLLC  ROLL COMMAND           DP 1'S COMP AT 1REV
033496,001100:                                                                                                 #           ALFAPAD   SP 1S,C     /180                 LEFT BY PAD LOAD    ALFATRIM IS NEGATIVE.
033497,001101:                                                                                                 #           UXA/2  REF COORDS                         LEFT BY CM/POSE
033498,001102:                                                                                                 #           UYA/2  REF COORDS                         LEFT BY CM/POSE
033499,001103:                                                                                                 #           UZA/2  REF COORDS                         LEFT BY CM/POSE
033500,001104:                                                                                                 #  OUTPUT
033501,001105:                                                                                                 #           CPHI   GIMBAL ANGLES (O,I.M) 2:S COMP TP (O,I.M)/180
033502,001106:                                                                                                 #  DEBRIS
033503,001107:                                                                                                 #        QTEMP, QPRET,PUSHLIST
033504,001108: 
033505,001109: 10,2302                                          BANK     10                                    
033506,001110: 10,2000                                          SETLOC   P60S4                                 
033507,001111: 10,2000                                          BANK                                           
033508,001112: 
033509,001113:                                                                                                 # # Page 769
033510,001114: 10,2302                                          COUNT*   $$/S62.3                              
033511,001115: 
033512,001116: 10,2302           67201        S62.3             SETPD    SLOAD                                 
033513,001117: 10,2303           00001                                   0                                     
033514,001118: 10,2304           03012                                   ALFAPAD                               #  ALFATRIM /180, ALFA IS NEG.
033515,001119: 10,2305           41542                          SR1      PUSH                                  
033516,001120: 10,2306           65346                          COS      PDDL                                  #  XCH PDL, COS TO PDL0
033517,001121: 10,2307           65356                          SIN      PDDL                                  #  SIN TO PDL2
033518,001122: 10,2310           03316                                   ROLLC                                 
033519,001123: 10,2311           74346                          COS      VXSC                                  
033520,001124: 10,2312           03550                                   UYA/2                                 #                           REF COORDS
033521,001125: 10,2313           73525                          PDDL     SIN                                   #  PUSH VECTOR INTO PDL4,.9
033522,001126: 10,2314           03316                                   ROLLC                                 
033523,001127: 10,2315           53361                          VXSC     VAD                                   
033524,001128: 10,2316           03556                                   UZA/2                                 #                           REF COORDS
033525,001129:                                                                                                 #                                           VECTOR FROM PDL4, 9
033526,001130: 10,2317           77772                          VSL1                                           
033527,001131: 10,2320           02722                          STORE    YNB                                   #  = UYD                    REF COORDS
033528,001132: 
033529,001133: 10,2321           76435                          VXV      VSL1                                  
033530,001134: 10,2322           03542                                   UXA/2                                 #                           REF COORDS
033531,001135: 10,2323           65361                          VXSC     PDDL                                  
033532,001136:                                                                                                 #                                           SIN TRIM FROM PDL2
033533,001137:                                                                                                 #                                           XCH PDL0 FOR COS TRIM
033534,001138: 10,2324           53361                          VXSC     VAD                                   
033535,001139: 10,2325           03542                                   UXA/2                                 #                           REF COORDS
033536,001140:                                                                                                 #                                           FROM PDL0
033537,001141: 10,2326           77626                          STADR                                          
033538,001142: 10,2327           75063                          STORE    XNB                                   #  X SC AXIS (.5 UNIT)        REF COORDS
033539,001143: 
033540,001144: 10,2330           76435                          VXV      VSL1                                  
033541,001145: 10,2331           02722                                   YNB                                   
033542,001146: 10,2332           26730                          STOVL    ZNB                                   #  Z SC IN REF COOR. SCALED AT 2
033543,001147: 10,2333           01736                                   REFSMMAT                              
033544,001148: 10,2334           26672                          STOVL    XSM                                   
033545,001149: 10,2335           01744                                   REFSMMAT   +6                         
033546,001150: 10,2336           26700                          STOVL    YSM                                   
033547,001151: 10,2337           01752                                   REFSMMAT   +12D                       
033548,001152: 10,2340           02706                          STORE    ZSM                                   
033549,001153: 
033550,001154: 10,2341           52014                          CLEAR    GOTO                                  
033551,001155: 10,2342           00260                                   CPHIFLAG                              #  CAUSE CALCGA TO STORE ANS IN TP CPHI
033552,001156: 10,2343           47244                                   CALCGA                                
033553,001157:                                                                                                 #                                           CALCGA WILL RETURN TO ORIGINAL CALLER
033554,001158:                                                                                                 #                                           VIA QPRET WITH 2,S COMP. ANGLES IN CPHI

End of include-file P61-P67.agc.  Parent file is MAIN.agc