Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

034018,000002:                                                                                                  ## Copyright:   Public domain.
034019,000003:                                                                                                  ## Filename:    P61-P67.agc
034020,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
034021,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
034022,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
034023,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
034024,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
034025,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
034026,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
034027,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
034028,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
034029,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
034030,000014:                                                                                                  ##              reconstruction is correct.
034031,000015:                                                                                                  ## Assembler:   yaYUL
034032,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
034033,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
034034,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
034035,000019: 
034036,000020:                                                                                                  #  PROGRAM:      P61
034037,000021:                                                                                                  #  MOD NO.:      0       MAR. 13, 1967
034038,000022:                                                                                                  #  MOD BY:       R. HIRSCHKOP
034039,000023:                                                                                                  #  MOD NO: 1     MOD BY:  RR BAIRNSFATHER        DATE: 22 JUN 67         RESTARTS.
034040,000024:                                                                                                  #  MOD NO: 2     MOD BY:  RR BAIRNSFATHER        DATE: 17 JAN 68         COLOSSUS GSOP CHANGES.
034041,000025:                                                                                                  #  MOD NO: 3     MOD BY:  RR BAIRNSFATHER        DATE:  8 MAY 68         DELETE CMSM MANEUVER (PCR 50)
034042,000026:                                                                                                  #  MOD NO: 4     MOD BY:  RR BAIRNSFATHER        DATE:  1 JUL 69         PCR 787: TICK TTE
034043,000027:                                                                                                  #  FUNCTION:     TO CALCULATE AND DISPLAY EMS INITIALIZATION DATA
034044,000028:                                                                                                  #  CALLING SEQUENCE-  BY V37
034045,000029:                                                                                                  #  EXIT-         TO P62
034046,000030:                                                                                                  #  SUBROUTINE CALLS-  S61.1, S61.3, GOFLASH, FLAGUP, R02BOTH
034047,000031:                                                                                                  #  ERASABLE INITIALIZATION:
034048,000032:                                                                                                  #        EMSALT (-29) M          .05G ALTITUDE ABOVE FISCHER ELLIPSOID   PAD LOADED.
034049,000033:                                                                                                  #        ALFAPAD /180            HYPERSONIC CM TRIM ANGLE OF ATTACK      PAD LOADED
034050,000034:                                                                                                  #  OUTPUT:       THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
034051,000035:                                                                                                  #                GMAX    100 GMAX (-14) G,S      MAXIMUM ACCELERATION
034052,000036:                                                                                                  #                VPRED   (-7) M/CS               PREDICTED VELOCITY AT 400K FT
034053,000037:                                                                                                  #                GAMMAEI GAMMA/360               PREDICTED GAMMA    AT 400K FT
034054,000038:                                                                                                  #                RTGO    THETAH/360              RANGE ANGLE TO SPLASH FROM EMSALT       EMSALT IS PAD LOADED
034055,000039:                                                                                                  #                VIO     (-7) M/CS               INERTIAL VELOCITY AT       EMSALT       EMSALT IS PAD LOADED
034056,000040:                                                                                                  #                TTE     (-28) CS                TIME TO                    EMSALT       EMSALT IS PAD LOADED
034057,000041:                                                                                                  #                LAT(SPL) /360                   TARGET LOCATION                         LEFT BY DSKY
034058,000042:                                                                                                  #                LNG(SPL) /360                   TARGET LOCATION                         LEFT BY DSKY
034059,000043:                                                                                                  #                HEADSUP (0)                     +1 = LIFT DOWN, -1 = LIFT UP            LEFT BY DSKY
034060,000044:                                                                                                  #  DEBRIS:       SEE SUBROUTINES.
034061,000045: 
034062,000046: 26,2217                                           BANK     26                                    
034063,000047: 26,2000                                           SETLOC   P60S                                  
034064,000048: 26,2000                                           BANK                                           
034065,000049: 
034066,000050: 26,2217  E6,1661                                  EBANK=   AOG                                   
034067,000051: 
034068,000052: 26,2217                                           COUNT*   $$/P61                                
034069,000053: 
034070,000054: 26,2217           35016        P61                CA       BIT14                                 #  EXTENDED VERB SHOULD BE FREE THIS CLOSE
034071,000055: 26,2220           55044                           TS       EXTVBACT                              #  TO V37
034072,000056:                                                                                                  #  LOCK OUT EXTENDED VERBS SO CAN USE TFF
034073,000057:                                                                                                  #  ROUTINES.  EXT VERB ERASE IS USED
034074,000058: 
034075,000059: 26,2221           45033                           CS       ONE                                   #  REMOVE IF HEADSUP EVER ON UPLINK DATA
034076,000060: 26,2222           55726                           TS       HEADSUP                               #  PRELOAD
034077,000061: 
034078,000062: 26,2223           02537                           TC       S61.1                                 #  CHECK STATE VECTOR AND IMU ORIENTATION
034079,000063:                                                                                                  #  RV 60GENRET. DOES PHASCHNG, GROUP 4.
034080,000064: 
034081,000065: 26,2224           32420                           CA       V06N61                                #  LAT(SPL)      LNG(SPL)        HEADSUP
034082,000066:                                                                                                  #  XXX.XX DEG    XXX.XX DEG      XXXXX.
034083,000067: 26,2225           04676                           TC       BANKCALL                              
034084,000068: 26,2226           21057                           CADR     GOFLASHR                              
034085,000069: 26,2227           04106                           TC       GOTOPOOH                              
034086,000070: 26,2230           02235                           TC       P61.4                                 
034087,000071: 26,2231           02224                           TC       -5                                    
034088,000072: 
034089,000073: 26,2232           05426        P61.3              TC       PHASCHNG                              
034090,000074: 26,2233           00014                           OCT      00014                                 
034091,000075: 
034092,000076: 26,2234           05233                           TC       ENDOFJOB                              
034093,000077: 
034094,000078: 26,2235           22007        P61.4              ZL                                             
034095,000079: 26,2236           11726                           CCS      HEADSUP                               #  C(HEADSUP)= +1/-1
034096,000080: 26,2237           35016                           CA       BIT14                                 #  IF HEADSUP POS,ROLLC =180 DEG.(LIFT DWN)
034097,000081: 26,2240           12241                           NOOP                                           #  IF HEADSUP NEG,ROLLC =0 (LIFT UP)
034098,000082: 26,2241           53716                           DXCH     ROLLC                                 #  ROLLC IS USED BY S62.3: GIM ANG AT .05G
034099,000083: 
034100,000084: 26,2242           35016        AGIN,MON           CA       BIT14                                 #  LOCK OUT EXTENDED VERBS.(REDUNDANT ON
034101,000085: 26,2243           55044                           TS       EXTVBACT                              #   INITIAL PASS)
034102,000086: 
034103,000087: 26,2244           06006                           TC       INTPRET                               
034104,000088: 26,2245           77745        NEWRNVN            DLOAD                                          
034105,000089: 26,2246           01205                                    PIPTIME                               #  SAVE TIME OF RN,VN TO DETERMINE IF AN
034106,000090: 26,2247           37651                           STCALL   MM                                    #  UPDATE HAS OCCURRED
034107,000091: 26,2250           52063                                    STARTEN1                              #  INITIALIZE
034108,000092: 26,2251           43175                           VLOAD    CLEAR                                 #  'TTE' WILL BE DECREMENTED UNTIL
034109,000093: 26,2252           01171                                    RN                                    
034110,000094: 26,2253           03274                                    .05GSW                                #  THE DRAG > 0.05 G .
034111,000095:                                                                                                  #  .05GSW SET =1 BY  FRESH START.
034112,000096: 26,2254           02327                           STORE    RONE                                  
034113,000097: 26,2255           77656                           UNIT                                           
034114,000098: 26,2256           26343                           STOVL    URONE                                 
034115,000099: 26,2257           01177                                    VN                                    
034116,000100: 26,2260           02335                           STORE    VONE                                  
034117,000101: 26,2261           53435                           VXV      UNIT                                  
034118,000102: 26,2262           02343                                    URONE                                 
034119,000103: 26,2263           03502                           STORE    UNI                                   
034120,000104: 26,2264           45345        DUMPP61            DLOAD    DSU                                   
034121,000105: 26,2265           03651                                    MM                                    #  INITIAL VALUE OF PIPTIME
034122,000106: 26,2266           01205                                    PIPTIME                               
034123,000107: 26,2267           45040                           BMN      CALRB                                 
034124,000108: 26,2270           54245                                    NEWRNVN                               #  UPDATED... GO TRY AGAIN
034125,000109: 26,2271           54644                                    S61.2                                 #  GET DISPLAY DATA FOR N60 AND N63
034126,000110:                                                                                                  #  AND RETURN IN BASIC, BELOW.
034127,000111: 26,2272           05552        P61.1              TC       CLEARMRK                              
034128,000112: 26,2273           32417                           CA       V06N60                                #  GMAX          VPRED           GAMMAEI
034129,000113:                                                                                                  #  XXX.XX G      XXXXX. FPS      XXX.XX DEG
034130,000114: 26,2274           04676                           TC       BANKCALL                              
034131,000115: 26,2275           20720                           CADR     GOFLASH                               
034132,000116: 
034133,000117: 26,2276           04106                           TC       GOTOPOOH                              
034134,000118: 26,2277           02301                           TC       +2                                    #  PROCEED
034135,000119: 26,2300           02273                           TC       -5                                    
034136,000120: 
034137,000121:                                                                                                  #  'TICKTTE' DECREMENTS 'TTE' DISPLAY NOUN N63 AT A 2 SECOND RATE. 'TICKTTE' IS LOCATED IN 'SERVICER' AND
034138,000122:                                                                                                  #  OPERATES ONLY DURING P61 THROUGH P63. THUS N63 IS 'ON CALL' & ON ENTRY  DOWNLIST THROUGH P63.
034139,000123:                                                                                                  #  'TICKTTE' WILL GIVE PROPER ANSWER IN EVENT OF RESTART OR A RECYCLE VIA   V32.
034140,000124: 
034141,000125: 26,2301           32421                           CA       V16N63                                #  RTGO          VIO             TTE
034142,000126:                                                                                                  #  XXXX.X NM     XXXXX. FPS      XXBXX M,S
034143,000127: 26,2302           04676                           TC       BANKCALL                              
034144,000128: 26,2303           20720                           CADR     GOFLASH                               
034145,000129: 26,2304           04106                           TC       GOTOPOOH                              
034146,000130: 26,2305           02307                           TC       +2                                    
034147,000131: 26,2306           02242                           TC       AGIN,MON                              #  REDO CONIC CALC. ASSUME EXT VB INACTIVE
034148,000132: 
034149,000133:                                                                                                  #                .... THEN FALL INTO P62
034150,000134: 
034151,000135:                                                                                                  #  PROGRAM-      P62
034152,000136:                                                                                                  #  MOD NO.-      0       MAR. 13, 1967
034153,000137:                                                                                                  #  MOD BY-       R. HIRSCHKOP
034154,000138:                                                                                                  #  MOD NO:  1    MOD BY:  RR BAIRNSFATHER        DATE: 21 MAR 67
034155,000139:                                                                                                  #  MOD NO:  2    MOD BY:  RR BAIRNSFATHER        DATE: 22 JUN 67         RESTARTS.
034156,000140:                                                                                                  #  MOD NO:  3    MOD BY:  RR BAIRNSFATHER        DATE: 17 JAN 68         COLOSSUS GSOP CHANGES.
034157,000141:                                                                                                  #  MOD NO:  4    MOD BY:  RR BAIRNSFATHER        DATE:  8 MAY 68         MOVE START OF DESIRED GIMBAL CALC.
034158,000142:                                                                                                  #  FUNCTION-     1) TO NOTIFY CREW WHEN GNC SYSTEM IS PREPARED FOR CM/SM SEPARATION
034159,000143:                                                                                                  #                2) TO ORIENT THE CM TO THE CORRECT ATTITUDE FOR ATMOSPHERIC ENTRY
034160,000144:                                                                                                  #  CALLING SEQUENCE-  BY V37 OR DIRECTLY FROM P61
034161,000145:                                                                                                  #  EXIT-         TO P63
034162,000146:                                                                                                  #  ERASABLE INITIALIZATION:      
034163,000147:                                                                                                  #        ALFAPAD                                         LEFT BY PAD LOAD
034164,000148:                                                                                                  #        LADPAD                                          LEFT BY PAD LOAD
034165,000149:                                                                                                  #        LODPAD                                          LEFT BY PAD LOAD
034166,000150:                                                                                                  #        LAT(SPL)        (MAY BE CHANGED BELOW)          LEFT BY DSKY, VIA P61
034167,000151:                                                                                                  #        LNG(SPL)        (MAY BE CHANGED BELOW)          LEFT BY DSKY, VIA P61
034168,000152:                                                                                                  #        HEADSUP         (MAY BE CHANGED BELOW)          LEFT BY DSKY, VIA P61
034169,000153:                                                                                                  #  SUBROUTINE CALLS:  NEWMODEX, S61.1, CM/DAPIC, CM/DAPON, R02BOTH, GOPERF1, GOFLASH, GODSPR
034170,000154: 
034171,000155: 26,2307                                           COUNT*   $$/P62                                
034172,000156: 
034173,000157: 26,2307           05370                           TC       NEWMODEX                              #  MODE CHANGE IF CAME FROM P61.
034174,000158: 26,2310           00076                           MM       62         B-14                       #  MODE CHANGE AUTOMATIC VIA V 37.
034175,000159: 26,2311           35033                           CA       ONE                                   
034176,000160: 26,2312           54332                           TS       DNLSTCOD                              
034177,000161: 
034178,000162: 26,2313           02537        P62                TC       S61.1                                 #  CHECK STATE VECTOR AND IMU ORIENTATION.
034179,000163: 
034180,000164: 26,2314           06006                           TC       INTPRET                               
034181,000165: 26,2315           47131                           SSP      RTB                                   
034182,000166: 26,2316           03325                                    POSEXIT                               
034183,000167: 26,2317           54374                                    P62.3                                 #  CALCULATE DESIRED .05G GIMBAL ANGLES,
034184,000168:                                                                                                  #  WITHOUT DISPLAY.
034185,000169: 26,2320           41730                                    CM/DAPIC                              #  START CM/POSE AND BODY RATE CALC
034186,000170: 
034187,000171:                                                                                                  #  DOES 2PHSCHNG, OCT 40116, OCT 05024, OCT 13000.
034188,000172:                                                                                                  #  CM/DAPIC SETS EBANK = EBAOG
034189,000173:                                                                                                  #  AND RETURNS IN BASIC TO P62.2.                                
034190,000174: 26,2321           00006        P62.2              EXTEND                                         
034191,000175: 26,2322           32425                           DCA      POSECADR                              #  CONTINUE WITH CM/POSE AFTER AV G.
034192,000176: 26,2323           53223                           DXCH     AVEGEXIT                              
034193,000177: 
034194,000178: 26,2324           34270                           CAF      OCT41                                 #  REQUEST SEPARATION
034195,000179: 26,2325           04676                           TC       BANKCALL                              
034196,000180: 26,2326           21125                           CADR     GOPERF1R                              
034197,000181: 26,2327           04106                           TC       GOTOPOOH                              
034198,000182: 26,2330           02333                           TC       +3                                    #  PROCEED
034199,000183:                                                                                                  #  NOTE:  NODOFLAG WILL BE SET IN CM/DAPON. <<<
034200,000184: 26,2331           02324                           TC       -5                                    #  ENTER
034201,000185: 26,2332           02232                           TC       P61.3                                 #  FOR PHASCHNG AND ENDOFJOB.
034202,000186: 
034203,000187: 26,2333           04715                 +3        TC       POSTJUMP                              
034204,000188: 26,2334           41650                           CADR     CM/DAPON                              #  DISABLE RCS DAP, ENABLE ENTRY DAP AND
034205,000189:                                                                                                  #  DO ATTITUDE HOLD.
034206,000190: 
034207,000191:                                                                                                  #  WILL IDLE UNTIL CM/POSE DOES ONE UPDATE.
034208,000192:                                                                                                  #  CM/DAPON DOES NO PHASCHNG.
034209,000193: 
034210,000194: 26,2335           32420        P62.1              CA       V06N61                                #  LAT(SPL)      LNG(SPL)        HEADSUP
034211,000195:                                                                                                  #  XXX.XX DEG    XXX.XX DEG      0000X.
034212,000196: 
034213,000197:                                                                                                  #  TERMINATE ATTITUDE HOLD.  SET UP COMMANDS:
034214,000198:                                                                                                  #  ROLLC, ALFACOM, BETACOM.  BEGIN MANUVER TO
034215,000199:                                                                                                  #  ENTRY ATTITUDE.
034216,000200: 
034217,000201: 26,2336           04676                           TC       BANKCALL                              
034218,000202: 26,2337           20720                           CADR     GOFLASH                               
034219,000203: 26,2340           02335                           TC       -3                                    
034220,000204: 26,2341           02343                           TC       +2                                    
034221,000205: 26,2342           02335                           TC       -5                                    
034222,000206: 
034223,000207: 26,2343           05426                           TC       PHASCHNG                              
034224,000208: 26,2344           04024                           OCT      04024                                 #  USE ENTRYVN FOR DISPLAY BELOW.
034225,000209:                                                                                                  #  EBANK WAS SET IN CM/DAPON TO EBAOG
034226,000210: 
034227,000211: 26,2345           11726                           CCS      HEADSUP                               #  C(HEADSUP) = +/- 1
034228,000212: 26,2346           35016                           CA       BIT14                                 #  IF HEADSUP POS, ROLLC=180 DEG (LIFT DWN)
034229,000213: 26,2347           12350                           NOOP                                           #  IF HEADSUP NEG, ROLLC=0 DEG (LIFT UP)
034230,000214: 26,2350           55715                           TS       ROLLC                                 
034231,000215: 26,2351           31411                           CA       ALFAPAD                               #  NOMINAL ALFATRIM PAD LOADED, NEG. NO.
034232,000216: 26,2352           22007                           ZL                                             
034233,000217: 26,2353           53604                           DXCH     ALFACOM                               #  SET ALFACOM = ALFA TRIM, BETACOM=0
034234,000218: 
034235,000219: 26,2354           35033                           CA       ONE                                   #  PERMITS EXDAP2 TO CHANGE FLAG TO +0
034236,000220: 26,2355           55727                           TS       P63FLAG                               #  AS INDICATOR.  STARTS UP P63.
034237,000221: 
034238,000222: 26,2356           35066                           CA       V06N22                                #  SET UP DISPLAY FOR CDU DESIRED VALUES
034239,000223: 26,2357           55263                           TS       ENTRYVN                               #  FROM ENTRY ATTITUDE CALC, THAT IS
034240,000224:                                                                                                  #  ALREADY GOING.
034241,000225: 26,2360           05562                           TC       UPFLAG                                #  TURN ON ENTRY DISPLAY
034242,000226: 26,2361           00134                           ADRES    ENTRYDSP                              #  ENTRYDSP = 92D BIT 13 FLAG 6
034243,000227:                                                                                                  #  SKIP
034244,000228: 26,2362           41700                           CS       CMDAPMOD                              #  GO DIRECTLY TO P63 IF BODY ATTITUDE
034245,000229: 26,2363           75033                           MASK     ONE                                   #  IS SUCH THAT THE DELAY TASK: WAKEP62
034246,000230: 26,2364           00006                           EXTEND                                         #  WILL BE OMITTED.
034247,000231: 26,2365           12414                           BZF      P63.1                                 #  DISABLE GRP 4, GO TO ENDOFJOB.
034248,000232:                                                                                                  #  (IE, CONTINUE IF CMDAPMOD = -1, OR +0)
034249,000233: 26,2366           02400                           TC       P63                                   
034250,000234: 
034251,000235:                                                                                                  #  PUT JOB TO SLEEP UNTIL VEHICLE MANUVER HAS
034252,000236:                                                                                                  #  REDUCED ALFA TO +/-45 DEG. CONSIDER REMAINING
034253,000237:                                                                                                  #  65 DEG (25 DEG IF ALFA NEG) TO ALFA TRIM TO
034254,000238:                                                                                                  #  OCCUR AT 3 DEG/SEC, AND TERMINATE P62 AT THAT
034255,000239:                                                                                                  #  TIME.
034256,000240: 
034257,000241:                                                                                                  #  TASK WAKEP62 IS CALLED FROM ENTRY DAP.
034258,000242: 26,2367           35101        WAKEP62            CA       PRIO13                                
034259,000243: 26,2370           05150                           TC       NOVAC                                 
034260,000244: 26,2371  E6,1661                                  EBANK=   AOG                                   
034261,000245: 26,2371           02400 54066                     2CADR    P63                                   
034262,000246: 
034263,000247: 26,2373           05340                           TC       TASKOVER                              
034264,000248: 
034265,000249:                                                                                                  #  EACH 2 SEC, CALCULATE GIMBAL ANGLES FOR ENTRY CON-
034266,000250:                                                                                                  #  DITIONS THAT WILL HOLD IF REORIENTATION WERE MADE
034267,000251:                                                                                                  #  AT PRESENT RN, VN.  COME HERE FROM CM/POSE AND ALSO
034268,000252:                                                                                                  #  IN KEPLER PHASE OF ENTRY.
034269,000253: 
034270,000254: 26,2374           52131        P62.3              SSP      GOTO                                  #  SET RETURN ADDRESS SO THAT ROUTINE
034271,000255: 26,2375           00053                                    QPRET                                 #  GOES DIRECTLY TO ENTRY GUIDANCE EXIT
034272,000256: 26,2376           53576                                    ENDEXIT                               #  THAT DOES ENTRY DISPLAY, GRP 5.
034273,000257: 26,2377           20376                                    S62.3                                 #  PUT DESIRED CDU VALUES IN CPHI'S FOR
034274,000258:                                                                                                  #  N22 DISPLAY.
034275,000259: 
034276,000260:                                                                                                  #        P63
034277,000261:                                                                                                  #  PROGRAM-      P63
034278,000262:                                                                                                  #  MOD NO.-      0       MAR. 13, 1967
034279,000263:                                                                                                  #  MOD BY-       R. HIRSCHKOP
034280,000264:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER         DATE: 22 JIN 67         RESTARTS.
034281,000265:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER         DATE: 14 JUL 67         REVISED RESTARTS
034282,000266:                                                                                                  #  FUNCTION-     1) TO INITIALIZE THE ENTRY EQUATIONS
034283,000267:                                                                                                  #                2) TO CONTINUE TO HOLD THE CM TO THE CORRECT ATTITUDE WITH RESPECT TO THE ATMOSPHERE FOR
034284,000268:                                                                                                  #                   THE ONSET OF ENTRY DECELERATION.  ROLL ANGLE IS LIFT UP/DOWN AS SPECIFIED BY HEADSUP.
034285,000269:                                                                                                  #                3) TO SENSE .05 G
034286,000270:                                                                                                  #  CALLING SEQUENCE-  DIRECTLY FROM P62
034287,000271:                                                                                                  #  EXIT-         TO ENDOFJOB
034288,000272:                                                                                                  #  SUBROUTINE CALLS-  NEWMODEX, GODSPR
034289,000273: 
034290,000274: 26,2400                                           COUNT*   $$/P63                                
034291,000275: 
034292,000276: 26,2400           05370        P63                TC       NEWMODEX                              
034293,000277: 26,2401           00077                           MM       63         B-14                       
034294,000278: 
034295,000279:                                                                                                  #  ARRIVE WITH EBANK = AOG.
034296,000280: 
034297,000281: 26,2402           32423                           CA       ENTCADR                               #  CONTINUE AT STARTENT AFTER CM/POSE.
034298,000282: 
034299,000283:                                                                                                  #  AT END OF STARTENT, CHANGE ADDRESS IN GOTOADDR
034300,000284:                                                                                                  #  TO CONTINUE AT SCALEPOP THEREAFTER.
034301,000285: 
034302,000286: 26,2403           55724                           TS       POSEXIT                               
034303,000287: 
034304,000288: 26,2404           32422                           CA       V06N64                                #  G             VI              R TO SPLSH
034305,000289:                                                                                                  #  XXX.XX G      XXXXX. FPS      XXXX.X NM
034306,000290: 26,2405           55263                           TS       ENTRYVN                               #  FOR DISPLAY CALL IN OVERNOUT.
034307,000291: 
034308,000292: 26,2406           45033                           CS       ONE                                   #  IN CASE FLAG IS LEFT AT +1 BY DAP.  THE
034309,000293: 26,2407           55727                           TS       P63FLAG                               #  -1 ASSURES THAT EXO-ATM DAP WILL NOT
034310,000294:                                                                                                  #  CALL P63 OUT OF SEQUENCE IN P66.
034311,000295: 
034312,000296: 26,2410           05426                           TC       PHASCHNG                              #  THIS IS REQUIRED TO PRESERVE CLEANDSP
034313,000297: 26,2411           00004                           OCT      00004                                 #  RETURN IN EVENT OF AN EXTENDED VERB..
034314,000298: 
034315,000299: 26,2412           04676                           TC       BANKCALL                              #  FLUSH 'N22' DISPLAY, IF ON. (OMIT
034316,000300: 26,2413           20703                           CADR     CLEANDSP                              #  DISPLAY DURING 'STARTENT' PASS.)
034317,000301: 
034318,000302: 26,2414           05426        P63.1              TC       PHASCHNG                              
034319,000303: 26,2415           00004                           OCT      00004                                 #  DISABLE.  DISPLAY RESTARTED VIA ENTRY.
034320,000304: 
034321,000305: 26,2416           05233                           TC       ENDOFJOB                              
034322,000306: 
034323,000307: 26,2417           01474        V06N60             VN       0660                                  
034324,000308: 26,2420           01475        V06N61             VN       0661                                  
034325,000309: 26,2421           04077        V16N63             VN       1663                                  
034326,000310: 26,2422           01500        V06N64             VN       0664                                  
034327,000311: 26,2423           52000        ENTCADR            CADR     STARTENT                              
034328,000312: 
034329,000313: 26,2424  E7,1451                                  EBANK=   RTINIT                                #  TO CARY OVER INTO ENTRY STEERING.
034330,000314: 26,2424           03473 76067  POSECADR           2CADR    CM/POSE                               
034331,000315: 
034332,000316:                                                                                                  #  PROGRAM-      P64
034333,000317:                                                                                                  #  MOD NO.-      1       SEPT. 19, 1967
034334,000318:                                                                                                  #  MOD BY-       R. HIRSCHKOP
034335,000319:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER         DATE: 8 MAY 68          REVISED COMMENTS FOR COLOSSUS
034336,000320:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER         DATE: 1 MAR '69  N74
034337,000321:                                                                                                  #  FUNCTION-     1.  TO START ENTRY GUIDANCE AT .05G SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND
034338,000322:                                                                                                  #                    DRAG THRESHOLD, KA, WHICH ARE KEYED TO THE .05G POINT.
034339,000323:                                                                                                  #                2.  SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS.
034340,000324:                                                                                                  #                3.  ITERATE FOR UP-CONTROL SOLUTION P65 IF V > 27000 FPS AND IF ALTITUDE RATE AND DRAG
034341,000325:                                                                                                  #                    LEVEL CONDITIONS ARE SATISFIED.  ENTER P65 WHEN CONSTANT DRAG CONTROLLER HAS BROUGHT RANGE
034342,000326:                                                                                                  #                    AS PREDICTED TO WITHIN 25 NM OF DESIRED RANGE.
034343,000327:                                                                                                  #                4.  SELECT FINAL PHASE  P67  IF NO UP-CONTROL SOLUTION EXISTS WITH VL > 18000 FPS.
034344,000328:                                                                                                  #  CALLING SEQUENCE-  BY RTB FROM REENTRY CONTROL
034345,000329:                                                                                                  #  EXIT-         BACK TO REENTRY CONTROL
034346,000330:                                                                                                  #  SUBROUTINE CALLS-  NEWMODEX
034347,000331: 
034348,000332: 25,2000                                           BANK     25                                    
034349,000333: 26,2000                                           SETLOC   P60S1                                 
034350,000334: 26,2000                                           BANK                                           
034351,000335: 
034352,000336:                                                                                                  #  THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING.  RESTART PROTECTION IS VIA STEERING.
034353,000337: 
034354,000338: 26,2426                                           COUNT*   $$/P64                                
034355,000339: 
034356,000340: 26,2426           05370        P64                TC       NEWMODEX                              #  ENTER VIA RTB WHEN .05G IS EXCEEDED.
034357,000341: 26,2427           00100                           MM       64         B-14                       
034358,000342: 26,2430           32433                           CA       V06N74                                #  ROLLC         VI              D
034359,000343:                                                                                                  #  XXX.XX DEG    XXXXX. FPS      XXX.XX G
034360,000344: 26,2431           55263                           TS       ENTRYVN                               #  DISPLAY VIA OVERNOUT.
034361,000345: 
034362,000346: 26,2432           06030                           TC       DANZIG                                #  ... AND CONTINUE IN INITROLL ...
034363,000347: 
034364,000348: 26,2433           01512        V06N74             VN       0674                                  
034365,000349: 
034366,000350:                                                                                                  #  PROGRAM:      P65
034367,000351:                                                                                                  #  MOD NO:  0    MOD BY:  RR BAIRNSFATHER        DATE:  17 JAN 68        COLOSSUS GSOP ADDITION.
034368,000352:                                                                                                  #  FUNCTION:     TO CONTINUE ENTRY GUIDANCE, USING THE UP-CONTROL PHASE TO STEER TO A CONTROLLED EXIT
034369,000353:                                                                                                  #                CONDITION.  THIS PHASE TERMINATES  A) IF D < Q7 FPSS, GO TO P66   ,
034370,000354:                                                                                                  #                                                   B) IF RDOT NEG, AND IF V < VL +500 FPS, GO TO P67.
034371,000355:                                                                                                  #  CALLING SEQUENCE:  BY RTB FROM REENTRY CONTROL
034372,000356:                                                                                                  #  EXIT:         BACK TO REENTRY CONTROL, OR TO ENDOFJOB.
034373,000357:                                                                                                  #  SUBROUTINE CALLS:  NEWMODEX
034374,000358: 
034375,000359: 26,2434                                           COUNT*   $$/P65                                
034376,000360: 
034377,000361: 26,2434           05370        P65                TC       NEWMODEX                              #  ENTER VIA RTB WHEN RANGE < 25 N M OF
034378,000362: 26,2435           00101                           MM       65         B-14                       #  TARGET.
034379,000363: 
034380,000364: 26,2436           35101                           CA       PRIO13                                
034381,000365: 26,2437           05150                           TC       NOVAC                                 
034382,000366: 26,2440     1263                                  EBANK=   ENTRYVN                               
034383,000367: 26,2440           02452 54062                     2CADR    P65.1                                 
034384,000368: 
034385,000369: 26,2442           05406                           TC       2PHSCHNG                              #  2 PHASE CHG REQUIRED TO PREVENT RE-
034386,000370: 26,2443           00554                           OCT      00554                                 #  STARTING FLASHING DISPLAY TWICE.
034387,000371: 26,2444           10035                           OCT      10035                                 #  4.55 SPOT AND SERVICER, HERE.
034388,000372: 26,2445           06006                           TC       INTPRET                               
034389,000373: 26,2446           47131                           SSP      RTB                                   
034390,000374: 26,2447           03646                                    GOTOADDR                              #  CHANGE ENTRY MODE TO UPCONTRL.
034391,000375: 26,2450           53035                                    UPCONTRL                              
034392,000376: 26,2451           52120                                    REFAZE10                              #  GO HERE TO REESTABLISH ENTRY SEQUENCER.
034393,000377:                                                                                                  #  AND CONTINUE AT UPCONTRL...
034394,000378: 
034395,000379: 26,2452           05574        P65.1              TC       DOWNFLAG                              
034396,000380: 26,2453           00134                           ADRES    ENTRYDSP                              #  ENTRYDSP = 92D BIT 13 FLAG 6
034397,000381: 
034398,000382: 26,2454           32466                           CA       V16N69                                #  ROLLC         DL (Q7)         VL
034399,000383: 26,2455           04676                           TC       BANKCALL                              #  XXX.XX DEG    XXX.XX G        XXXXX. FPS
034400,000384: 26,2456           21057                           CADR     GOFLASHR                              
034401,000385: 26,2457           02454                           TC       -3                                    #  NODOFLAG IS SET..
034402,000386: 26,2460           02463                           TC       +3                                    
034403,000387: 26,2461           02454                           TC       -5                                    
034404,000388: 26,2462           02232                           TC       P61.3                                 #  EST. GRP 4 FOR DSPLAY AND DO ENDOFJOB
034405,000389:                                                                                                  #  IF PROCEED, CONTINUE.
034406,000390: 26,2463           05562                           TC       UPFLAG                                
034407,000391: 26,2464           00134                           ADRES    ENTRYDSP                              #  ENTRYDSP = 92D BIT 13 FLAG 6
034408,000392: 
034409,000393: 26,2465           02414                           TC       P63.1                                 #  DISABLE GRP 4,START UP ENTRY DISPLAY
034410,000394:                                                                                                  #  N06V68 VIA OVERNOUT, AS USED IN P64.
034411,000395: 26,2466           04105        V16N69             VN       1669                                  
034412,000396: 
034413,000397:                                                                                                  #  PROGRAM:      P66
034414,000398:                                                                                                  #  MOD NO: 0     MOD BY: RR BAIRNSFATHER         DATE: 17 JAN 68         COLOSSUS GSOP ADDITIONS.
034415,000399:                                                                                                  #  FUNCTION:     KEEP CM ATTITUDE IN TRIM TO THE RELATIVE VELOCITY VECTOR.  ENTRY GUIDANCE STOPS GENERATING
034416,000400:                                                                                                  #                ROLL COMMANDS UNTIL DRAG BUILDS UP TO Q7+0.5 FPSS.
034417,000401:                                                                                                  #  CALLING SEQUENCE:  VIA RTB FROM REENTRY CONTROL.
034418,000402:                                                                                                  #  EXIT:         BACK TO REENTRY CONTROL.
034419,000403:                                                                                                  #  SUBROUTINE CALLS:  NEWMODEX
034420,000404: 
034421,000405: 26,2467                                           COUNT*   $$/P66                                
034422,000406: 
034423,000407: 26,2467           05370        P66                TC       NEWMODEX                              #  ENTER VIA RTB WHEN D < Q7 FPSS
034424,000408: 26,2470           00102                           MM       66         B-14                       
034425,000409: 
034426,000410: 26,2471           35066                           CA       V06N22                                #  OGA           IGA             MGA
034427,000411:                                                                                                  #  XXX.XX DEG    XXX.XX DEG      XXX.XX DEG
034428,000412: 26,2472           02476                           TC       P66END                                #  IN CASE CAME FROM P65, GO DISABLE GRP4,
034429,000413:                                                                                                  #  AND SET ENTRYDSP TO DO DISPLAY VIA
034430,000414:                                                                                                  #  OVERNOUT.
034431,000415: 
034432,000416:                                                                                                  #  ... AND CONTINUE AT KEP2 
034433,000417: 
034434,000418:                                                                                                  #  P67
034435,000419: 
034436,000420:                                                                                                  #  PROGRAM-      P67
034437,000421:                                                                                                  #  MOD NO.-      0       MAR. 16, 1967
034438,000422:                                                                                                  #  MOD BY-       R. HIRSCHKOP
034439,000423:                                                                                                  #  FUNCTION-     TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC
034440,000424:                                                                                                  #  CALLING SEQUENCE-
034441,000425:                                                                                                  #  EXIT-         TO POOH
034442,000426:                                                                                                  #  SUBROUTINE CALLS-  GOFLASH
034443,000427: 
034444,000428:                                                                                                  #  THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING.  RESTART PROTECTION IS VIA STEERING.
034445,000429: 
034446,000430: 26,2473                                           COUNT*   $$/P67                                
034447,000431: 
034448,000432: 26,2473           05370        P67                TC       NEWMODEX                              #  ENTER VIA RTB
034449,000433: 26,2474           00103                           MM       67         B-14                       
034450,000434: 26,2475           32504                           CA       V06N66                                #  ROLLC         XRNGERR         DNRNGERR
034451,000435:                                                                                                  #  XXX.XX DEG    XXXX.X NM       XXXX.X NM
034452,000436: 26,2476           55263        P66END             TS       ENTRYVN                               #  DISPLAY VIA OVERNOUT.
034453,000437: 
034454,000438: 26,2477           05562                           TC       UPFLAG                                #  (IN CASE CAME FROM P65.  ENTRY DISPLAY
034455,000439: 26,2500           00134                           ADRES    ENTRYDSP                              #  WILL FLUSH FLASHING DISP.  IF STILL ON)
034456,000440:                                                                                                  #  BIT 13 FLAG 6
034457,000441: 26,2501           05426        KILLGRP4           TC       PHASCHNG                              #  DISABLE GRP4, IN CASE CAME FROM HUNTEST.
034458,000442: 26,2502           00004                           OCT      00004                                 #  (COME TO KILLGRP4 VIA RTB, RET TO CALLER)
034459,000443: 
034460,000444: 26,2503           06030                           TC       DANZIG                                #  ... AND CONTINUE AT PREDICT3 ...
034461,000445: 
034462,000446: 26,2504           01502        V06N66             VN       0666                                  
034463,000447: 
034464,000448: 26,2505                                           BANK     26                                    
034465,000449: 26,2000                                           SETLOC   P60S2                                 
034466,000450: 26,2000                                           BANK                                           
034467,000451: 
034468,000452: 26,2505           32536        P67.1              CA       V16N67                                #  RTOGO         LAT             LONG
034469,000453:                                                                                                  #  XXXX.X NM     XXX.XX DEG      XXX.XX DEG
034470,000454: 26,2506           04676                           TC       BANKCALL                              
034471,000455: 26,2507           20720                           CADR     GOFLASH                               
034472,000456: 26,2510           02513                           TC       +3                                    #  EFFECTIVE GOTOPOOH
034473,000457: 26,2511           02513                           TC       +2                                    
034474,000458: 26,2512           02505                           TC       P67.1                                 #  REDO
034475,000459: 
034476,000460: 26,2513           46214                           CS       THREE                                 #  TURN OFF ENTRY DAP
034477,000461: 26,2514           00004                           INHINT                                         
034478,000462: 26,2515           70102                           MASK     CM/FLAGS                              #  CM/DSTBY, GAMDIFSW
034479,000463: 26,2516           54102                           TS       CM/FLAGS                              
034480,000464: 26,2517           00003                           RELINT                                         
034481,000465: 26,2520           00006                           EXTEND                                         
034482,000466: 26,2521           32636                           DCA      SERVCAD2                              
034483,000467: 
034484,000468: 26,2522           53223                           DXCH     AVEGEXIT                              
034485,000469: 
034486,000470: 26,2523           14106                           TCF      GOTOPOOH                              
034487,000471: 
034488,000472: 26,2524           43175        P67.2              VLOAD    CLEAR                                 #  CALC PRESENT LAT, LONG, ALT.
034489,000473: 26,2525           01171                                    RN                                    
034490,000474: 26,2526           00662                                    ERADFLAG                              #  USE PAD RAD FOR ALT. (NOT SEEN ANYWAY)
034491,000475: 26,2527           16152                           STODL    ALPHAV                                
034492,000476: 26,2530           01205                                    PIPTIME                               #  USE TIME OF RN
034493,000477: 26,2531           45014                           CLEAR    CALL                                  
034494,000478: 26,2532           01663                                    LUNAFLAG                              
034495,000479: 26,2533           26376                                    LAT-LONG                              
034496,000480: 26,2534           77634        P67.3              RTB                                            #  ENTRY EXIT THAT OMITS DISPLAY.
034497,000481: 26,2535           53611                                    SERVNOUT                              
034498,000482: 
034499,000483: 26,2536           04103        V16N67             VN       1667                                  
034500,000484: 26,2537     4270               OCT41              =        33DEC                                 
034501,000485: 26,2537  26,2635               SERVCAD2           =        SERVCAD1                              
034502,000486: 
034503,000487:                                                                                                  #  SUBROUTINE NAME:      S61.1   
034504,000488:                                                                                                  #  MOD NO:       0                                       DATE:           21 FEB 67
034505,000489:                                                                                                  #  MOD BY:       RR BAIRNSFATHER                         LOG SECTION:    P61-P67
034506,000490:                                                                                                  #  MOD NO:       1       MOD BY: RR BAIRNSFATHER         DATE:           22 JUN 67       RESTARTS.
034507,000491: 
034508,000492:                                                                                                  #  FUNCTIONAL DESCRIPTION:       CALLED BY BOTH P61 AND P62
034509,000493:                                                                                                  #        FIRST, TEST TO SEE IF  AVERAGEG  IS ON.  IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE
034510,000494:                                                                                                  #        AND TURN ON  AVERAGEG  AT THAT TIME, AND CONTINUE.  OTHERWISE CONTINUE:  SEE IF IMU Y AXIS IS
034511,000495:                                                                                                  #        WITHIN 30 DEG OF V*R.  IF YES, EXIT SUBROUTINE S61.1.  IF NO, SEE IF -Y AXIS OF IMU IS WITHIN
034512,000496:                                                                                                  #        30 DEG OF V*R.  IF YES, DISPLAY ALARM:  01427   IMU REVERSED.
034513,000497:                                                                                                  #                        IF NO, DISPLAY ALARM:   01426   IMU UNSATISFACTORY.
034514,000498:                                                                                                  #        IN EITHER OF THESE LAST 2 CASES, WAIT 10 SEC AND THEN EXIT SUBROUTINE S61.1.
034515,000499: 
034516,000500:                                                                                                  #  REMARK:       THERE WILL BE A SHORT 10 SEC DELAY IF AN ALARM EXIT IS TAKEN.  THE DELAY FOR INTEGRATION IS
034517,000501:                                                                                                  #                AS SHORT AS CAN BE MADE, BUT IS ARBITRARY SINCE IT DEPENDS ON THE AGE OF THE STATE VECTOR.
034518,000502: 
034519,000503:                                                                                                  #  CALLING SEQUENCE:     CALL
034520,000504:                                                                                                  #                                S61.1
034521,000505: 
034522,000506:                                                                                                  #                        C(MPAC) UNSPECIFIED
034523,000507:                                                                                                  #                        PUSHLOC UNSPECIFIED
034524,000508: 
034525,000509:                                                                                                  #  SUBROUTINES CALLED:   LOADTIME, CSMPREC, TPAGREE,
034526,000510:                                                                                                  #                        WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB
034527,000511: 
034528,000512:                                                                                                  #  NORMAL EXIT MODES:    RVQ
034529,000513: 
034530,000514:                                                                                                  #  ALARMS:       01426   IMU UNSATISFACTORY
034531,000515:                                                                                                  #                01427   IMU REVERSED
034532,000516: 
034533,000517:                                                                                                  #  OUTPUT:       POSSIBLE ALARMS
034534,000518:                                                                                                  #                POSSIBLY TDEC1, RATT, VATT, RN, VN
034535,000519: 
034536,000520:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
034537,000521:                                                                                                  #        AVEGFLAG                AVERAGEG ON OR OFF                              LEFT BY SERVICER
034538,000522:                                                                                                  #        PIPTIME   (-28) CS      TIME OF PIPA UPDATE                             LEFT BY READACCS
034539,000523:                                                                                                  #        RN        (-29) M       STATE VECTOR                                    LEFT BY AVERAGEG
034540,000524:                                                                                                  #        VN        (-7) M/CS     STATE VECTOR                                    LEFT BY AVERAGEG
034541,000525:                                                                                                  #        REFSMMAT  (-1)          .5 REF TO SM MATRIX                             LEFT BY LAST IMU ALIGNMENT
034542,000526: 
034543,000527:                                                                                                  #  DEBRIS:       QPRET
034544,000528:                                                                                                  #                POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1       IF UPDATED
034545,000529:                                                                                                  #                PUSH LIST LOCS USED BY CSMPREC
034546,000530: 
034547,000531: 26,2537  E6,1661                                  EBANK=   AOG                                   #  FOR 60GENRET, S61DT
034548,000532: 26,2537                                           BANK     26                                    
034549,000533: 26,2000                                           SETLOC   P60S3                                 
034550,000534: 26,2000                                           BANK                                           
034551,000535: 
034552,000536: 26,2537                                           COUNT*   $$/S61.1                              
034553,000537: 
034554,000538: 26,2537           00006        S61.1              EXTEND                                         
034555,000539: 26,2540           23773                           QXCH     60GENRET                              #  SAVE RET ADDR IN EB 6
034556,000540: 26,2541           04676                           TC       BANKCALL                              
034557,000541: 26,2542           17653                           CADR     R02BOTH                               
034558,000542: 26,2543           06006                           TC       INTPRET                               
034559,000543: 26,2544           45014                           BON      CALRB                                 
034560,000544: 26,2545           00716                                    AVEGFLAG                              #  IS AVERAGEG ON
034561,000545: 26,2546           54577                                    S61.1A                                #  YES
034562,000546: 26,2547           27547                                    MIDTOAV2                              #  GET FUTURE STATE VECTOR SOON AS CAN
034563,000547: 
034564,000548: 26,2550           30155                           CA       MPAC       +1                         #  RETURN INHINTED ***
034565,000549: 26,2551           55774                           TS       S61DT                                 #  FOR RESTART.
034566,000550: 26,2552           05261                           TC       WAITLIST                              
034567,000551: 26,2553  E7,1431                                  EBANK=   DVCNTR                                
034568,000552: 26,2553           02560 54067                     2CADR    S61.1C                                
034569,000553: 
034570,000554: 26,2555           05426                           TC       PHASCHNG                              
034571,000555: 26,2556           40434                           OCT      40434                                 
034572,000556: 26,2557           05233                           TC       ENDOFJOB                              
034573,000557: 
034574,000558: 26,2560           35101        S61.1C             CA       PRIO13                                
034575,000559: 26,2561           05163                           TC       FINDVAC                               
034576,000560: 26,2562  E6,1661                                  EBANK=   AOG                                   
034577,000561: 26,2562           02576 54066                     2CADR    S61.1A     -1                         
034578,000562: 
034579,000563: 26,2564           00006                           EXTEND                                         
034580,000564: 26,2565           32636                           DCA      SERVCAD1                              #  HE WHO STARTS AVERAGEG MUST SERVICE
034581,000565: 26,2566           53223                           DXCH     AVEGEXIT                              #  THE EXIT.
034582,000566: 
034583,000567: 26,2567           05406                           TC       2PHSCHNG                              
034584,000568: 26,2570           00454                           OCT      00454                                 
034585,000569: 26,2571           00415                           OCT      00415                                 
034586,000570: 
034587,000571: 26,2572           35074                           CA       EBENTRY                               #  SET EB= 7 FOR PREREAD.
034588,000572: 26,2573           54003                           TS       EBANK                                 
034589,000573: 
034590,000574: 26,2574           04715                           TC       POSTJUMP                              
034591,000575: 26,2575           76714                           CADR     PREREAD                               #  PREREAD DOES TC TASKOVER.
034592,000576: 
034593,000577: 26,2576           06006                           TC       INTPRET                               
034594,000578: 26,2577           77204        S61.1A             BOVB     VLOAD                                 
034595,000579: 26,2600           57353                                    TCDANZIG                              #  TURN OFF OVFIND, IF ON
034596,000580: 26,2601           01177                                    VN                                    #  VN    (-7) M/CS
034597,000581: 26,2602           64235                           VXV      MXV                                   
034598,000582: 26,2603           01171                                    RN                                    #  RN    (-29) M
034599,000583: 26,2604           01736                                    REFSMMAT                              #  .5 UNIT MATRIX
034600,000584: 26,2605           71256                           UNIT     DLOAD                                 
034601,000585: 26,2606           00160                                    MPAC       +3                         #  GET COS(THETA)/2
034602,000586: 26,2607           43240                           BMN      DAD                                   
034603,000587: 26,2610           54615                                    S61.1B                                #  DO TEST ON -YSM
034604,000588: 26,2611           14640                                    C(30)LIM                              #  = 1.0 -.5 COS(30)
034605,000589: 26,2612           47004                           BOVB     RTB                                   
034606,000590: 26,2613           54634                                    RETRN1                                
034607,000591: 26,2614           54621                                    RETRN3                                
034608,000592: 26,2615           43276        S61.1B             DCOMP    DAD                                   
034609,000593: 26,2616           14640                                    C(30)LIM                              #  = 1.0 - .5 COS(30)
034610,000594: 26,2617           77404                           BOVB     EXIT                                  
034611,000595: 26,2620           54624                                    RETRN2                                
034612,000596: 
034613,000597: 26,2621           05664        RETRN3             TC       ALARM                                 
034614,000598: 26,2622           01426                           OCT      01426                                 #  IMU UNSATISFACTORY
034615,000599: 26,2623           02626                           TC       RETRN2     +2                         
034616,000600: 
034617,000601: 26,2624           05664        RETRN2             TC       ALARM                                 
034618,000602: 26,2625           01427                           OCT      01427                                 #  IMU REVERSED
034619,000603: 
034620,000604: 26,2626           35064                 +2        CAF      V05N09                                
034621,000605: 26,2627           04676                           TC       BANKCALL                              
034622,000606: 26,2630           20676                           CADR     GODSPR                                #  DO DISPLAY
034623,000607: 26,2631           32641                           CA       10SECS                                
034624,000608: 26,2632           04676                           TC       BANKCALL                              
034625,000609: 26,2633           01732                           CADR     DELAYJOB                              
034626,000610: 
034627,000611: 26,2634           01773        RETRN1             TC       60GENRET                              
034628,000612: 
034629,000613: 26,2635  E7,1431                                  EBANK=   DVCNTR                                
034630,000614: 26,2635           03231 76067  SERVCAD1           2CADR    SERVEXIT                              
034631,000615: 
034632,000616: 26,2637           22111 17335  C(30)LIM           2DEC     .566985                               #  = 1.0 - .5 COS(30)
034633,000617: 
034634,000618: 26,2641           01750        10SECS             DEC      1000       B-14                       #  1000 CS
034635,000619: 26,2642           00000 13560  60SECDP            2DEC     6000       B-28                       #  6000 CS
034636,000620: 
034637,000621:                                                                                                  #  PROGRAM NAME:         S61.2                   DATE:           14 FEB 67
034638,000622:                                                                                                  #  MOD NO:       1                               LOG SECTION:    P61-P67
034639,000623:                                                                                                  #  MOD BY:       MORTH / BAIRNSFATHER
034640,000624:                                                                                                  #  MOD NO: 2     MOD BY: MORTH/BAIRNSFATHER      DATE: 11 MAY 67         ADD 2ND ITER FOR ERAD AT 400K FT.
034641,000625:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER         DATE: 21 NOV 67         VARIABLE MU ADDED.
034642,000626:                                                                                                  #  MOD NO: 4     MOD BY: RR BAIRNSFATHER         DATE: 21 MAR 68         DIFFERENT EARTH/MOON SCALES IN TFF'S
034643,000627: 
034644,000628:                                                                                                  #  FUNCTIONAL DESCRIPTION:  CALLED BY P61.  PROVIDES DISPLAYS FOR NOUNS  N60  AND  N63 .
034645,000629:                                                                                                  #        PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED  (GMAX)  AND ALSO THE EXPECTED
034646,000630:                                                                                                  #        INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE  (GAMMAEI)  THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER
034647,000631:                                                                                                  #        ELLIPSOID.  PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE  EMSALT  ABOVE FISCHER ELLIPSOID
034648,000632:                                                                                                  #        AND CONSISTS OF RANGE TO SPLASH FROM NOW  (RTGO) , PREDICTED INERTIAL VELOCITY  (VIO) , AND THE TIME TO
034649,000633:                                                                                                  #        GO FROM NOW  (TTE) .
034650,000634: 
034651,000635:                                                                                                  #  CALLING SEQUENCE:     CALL
034652,000636:                                                                                                  #                                S61.2
034653,000637:                                                                                                  #                        C(MPAC) UNSPECIFIED
034654,000638:                                                                                                  #                        PUSHLOC WILL BE SET TO ZERO.
034655,000639: 
034656,000640:                                                                                                  #  SUBROUTINES CALLED:   TFFCONIC, CALCTFF, TFF/TRIG, FISHCALC, GETERAD, VGAMCALC
034657,000641: 
034658,000642:                                                                                                  #  NORMAL EXIT MODES:    RTB   P61.1
034659,000643: 
034660,000644:                                                                                                  #  ALARMS:       NONE
034661,000645: 
034662,000646:                                                                                                  #  OUTPUT:       THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
034663,000647:                                                                                                  #                GMAX    100 GMAX (-14) G,S      MAXIMUM ACCELERATION
034664,000648:                                                                                                  #                VPRED   (-7) M/CS               PREDICTED VELOCITY AT 400K FT
034665,000649:                                                                                                  #                GAMMAEI GAMMA/360               PREDICTED GAMMA    AT 400K FT
034666,000650:                                                                                                  #                                                FOR TM, DP(GAMMAEI) = (GAMMAEI, RTGO) / 360
034667,000651:                                                                                                  #                RTGO    THETAH/360              RANGE ANGLE TO SPLASH FROM EMSALT       EMSALT IS PAD LOADED
034668,000652:                                                                                                  #                VIO     (-7) M/CS               INERTIAL VELOCITY AT      EMSALT        EMSALT IS PAD LOADED
034669,000653:                                                                                                  #                TTE     (-28) CS                TIME TO                    EMSALT       EMSALT IS PAD LOADED
034670,000654:                                                                                                  #                PUSHLOC = 0
034671,000655:                                                                                                  #                CONIC PARAMETERS STORED IN VAC AREA (SEE TFF SUBROUTINES)
034672,000656: 
034673,000657:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
034674,000658:                                                                                                  #                RONE    (-29) M                 STATE VECTOR                            LEFT BY USER
034675,000659:                                                                                                  #                VONE    (-7) M/CS               STATE VECTOR                            LEFT BY USER
034676,000660:                                                                                                  #                URONE   UR/2                                                            LEFT BY USER
034677,000661:                                                                                                  #                UNI     (-1)                    UNIT NORMAL V*R                         LEFT BY ENTRY / P61
034678,000662:                                                                                                  #                THETAH  THETAH/360              RANGE ANGLE                             LEFT BY ENTRY / P61
034679,000663:                                                                                                  #                UNITW   (0)                     UNIT POLAR VECTOR                       LEFT BY PAD LOAD
034680,000664:                                                                                                  #                EMSALT  (-29) M                 EMS INTERFACE ALTITUDE                  LEFT BY PAD LOAD
034681,000665:                                                                                                  #                                                ORBITAL REENTRY: 284643 FT, LUNAR REENTRY: 297431 FT.
034682,000666: 
034683,000667:                                                                                                  #  DEBRIS:       QPRET,
034684,000668:                                                                                                  #                ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2
034685,000669:                                                                                                  #                ALSO PDL+0 ... PDL+5, WHERE INITIAL PUSHLOC = PDL
034686,000670: 
034687,000671:                                                                                                  #  THE FOLLOWING PUSH LIST LOCATIONS HAVE BEEN RESERVED FOR TFF ROUTINES AND ARE REPEATED HERE FOR CONVENIENCE.
034688,000672:                                                                                                  #  OF COURSE FOR S61.2 USAGE, EARTH ORIGIN SCALING IS USED.
034689,000673: 
034690,000674:                                                                                                  #                                BELOW   E:  IS USED FOR EARTH ORIGIN SCALE
034691,000675:                                                                                                  #                                        M:  IS USED FOR MOON ORIGIN SCALE
034692,000676: 
034693,000677:                                                                                                  #        RTERM   =       18D             TERMINAL RADIUS M       E:  (-29)       M:  (-27)
034694,000678:                                                                                                  #        NRTERM  =       16D             TERMINAL RADIUS M       E:  (-29+NR)
034695,000679:                                                                                                  #                                                                M:  (-27+NR)
034696,000680:                                                                                                  #        RMAG1   =       12D             PRESENT RADIUS M        E:  (-29)       M:  (-27)
034697,000681:                                                                                                  #        NRMAG   =       32D             PRESENT RADIUS M        E:  (-29+NR)
034698,000682:                                                                                                  #                                                                M:  (-27+NR)
034699,000683:                                                                                                  #        SDELF/2                         SIN(THETA) / 2
034700,000684:                                                                                                  #        CDELF/2 =       14D             COS(THETA) / 2
034701,000685:                                                                                                  #        TFFX    =       34D             X, ARGUMENT OF SERIES T(X).
034702,000686:                                                                                                  #        TFFTEM  =       36D             ARG FOR TRANSFER ANGLE CALCULATION.
034703,000687:                                                                                                  #        TFFNP   =       28D             LC P M                  E:  (-38+2NR)   M:  (-36+2NR)
034704,000688:                                                                                                  #        TFF/RTMU=       30D             1/SQRT(MU)              E:  (17)        M:  (14)
034705,000689:                                                                                                  #        TFFVSQ  =       20D             -(VN.VN/MU)     1/M     E:  (20)        M:  (18)
034706,000690: 
034707,000691: 34,3763                                           BANK     34                                    
034708,000692: 26,2000                                           SETLOC   P60S2                                 
034709,000693: 26,2000                                           BANK                                           
034710,000694: 
034711,000695: 26,2644                                           COUNT*   $$/S61.2                              
034712,000696:                                                                                                  #  PDL LEFT AT ZERO BY TARGETNG
034713,000697: 
034714,000698: 26,2644           45345        S61.2              DLOAD    DSU                                   
034715,000699: 26,2645           02020                                    EMSALT                                
034716,000700: 26,2646           15000                                    290KFT                                
034717,000701: 26,2647           71244                           BPL      DLOAD                                 
034718,000702: 26,2650           54774                                    LUNENT                                
034719,000703: 26,2651           17355                                    1/RTMU                                #  ESTABLISH MU FOR ORBITAL ENTRIES
034720,000704: 26,2652           77624        CALLCON            CALL                                           
034721,000705: 26,2653           56760                                    TFFCONIC                              #  FILL VAC AREA WITH CONIC PARAMETERS
034722,000706: 
034723,000707: 26,2654           45145                           DLOAD    CALL                                  
034724,000708: 26,2655           15020                                    RTRIAL                                #  1ST GUESS AT TERMINAL RADIUS  (-29)
034725,000709: 26,2656           57070                                    CALCTFF                               #  SAVES MPAC IN RTERM           (18D)
034726,000710: 
034727,000711: 26,2657           77624                           CALL                                           #  CALC SDELF/2, CDELF/2
034728,000712: 26,2660           56632                                    TFF/TRIG                              #  RETURN WITH S(THETA) IN MPAC
034729,000713: 
034730,000714: 26,2661           77624                           CALL                                           #  GET FISCHER RADIUS            (-29) M
034731,000715: 26,2662           55027                                    FISHCALC                              #  ANS IN MPAC AND IN ERADM.
034732,000716: 
034733,000717: 26,2663           45015                           DAD      CALL                                  
034734,000718: 26,2664           02020                                    EMSALT                                
034735,000719: 26,2665           57070                                    CALCTFF                               #  SAVES MPAC IN RTERM           (18D)
034736,000720: 
034737,000721: 26,2666           03733                           STORE    TTE1                                  #  USED IN TARGET ITERATION (DISPTARG)
034738,000722: 26,2667           57415                           DAD      DCOMP                                 #  DECR 'TTE' FROM BASE 'TTE2' IN 'SERVICER
034739,000723: 26,2670           03651                                    MM                                    #  'PIPTIME' FOR STATE VECTOR
034740,000724:                                                                                                  #  DNLIST AND DSKY WILL USE TTE.
034741,000725: 26,2671           03735                           STORE    TTE2                                  #  TTE=PIPTIME+TTE2=-(TTE1+MM-PIPTIME)
034742,000726: 26,2672           77615                           DAD                                            #  DECREMENT 'TTE' FOR DISPLAY AND DOWNLINK
034743,000727: 26,2673           01205                                    PIPTIME                               #  UNTIL SERVICER COMES ALONG.
034744,000728: 26,2674           37727                           STCALL   TTE                                   #  'TTE' IS NEGATIVE AS IN COUNTDOWN.
034745,000729: 
034746,000730:                                                                                                  #  TTE= TIME FROM NOW TO EMSALT +FISCHER
034747,000731: 
034748,000732: 26,2675           56632                                    TFF/TRIG                              #  S(THETA) IN MPAC ON RETURNING
034749,000733:                                                                                                  #  AND THETA= RANGE FROM NOW TO EMSALT
034750,000734: 
034751,000735: 26,2676           77624                           CALL                                           
034752,000736: 26,2677           55027                                    FISHCALC                              
034753,000737: 26,2700           77624                           CALL                                           
034754,000738: 26,2701           56665                                    VRCALC                                
034755,000739: 26,2702           77624                           CALL                                           
034756,000740: 26,2703           56652                                    DISPTARG                              
034757,000741: 26,2704           77624                           CALL                                           
034758,000742: 26,2705           56652                                    DISPTARG                              
034759,000743: 26,2706           37714                           STCALL   RTGO                                  
034760,000744: 26,2707           55050                                    VGAMCALC                              
034761,000745: 
034762,000746: 26,2710           77605                           DMP                                            #  MPAC = GAMMA
034763,000747:                                                                                                  #  PDL0 HAS VGAM.
034764,000748: 26,2711           43265                           BDDV     DAD                                   
034765,000749: 26,2712           15026                                    VEMSCON                               #  -HS D 180/PI (-14)
034766,000750: 26,2713           00001                                    0                                     #  VGAM FROM PDL0.
034767,000751: 26,2714           17725                           STODL    VIO                                   #  PREDICTED VELOCITY AT EMSALT.
034768,000752: 
034769,000753:                                                                                                  #  GAMMA AND VGAM AT 300K FT ARE REQUIRED BY GMAX
034770,000754:                                                                                                  #  ALGORITHM.
034771,000755: 
034772,000756: 26,2715           02241                                    ERADM                                 #  EARTH RADIUS FROM GETERAD (-29) M
034773,000757:                                                                                                  #  = FISCHER RADIUS (-29)
034774,000758: 
034775,000759: 26,2716           77615                           DAD                                            
034776,000760: 26,2717           06502                                    300KFT                                #  M (-29)
034777,000761: 26,2720           34023                           STCALL   RTERM                                 #  TERMINAL RADIUS M (-29)
034778,000762: 
034779,000763: 26,2721           55045                                    PREVGAM                               #  VGAMCALC WITH NEW RTERM
034780,000764: 
034781,000765:                                                                                                  #  VBAR = (V(FPS) - 36KF/S) / 20KF/S
034782,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.
034783,000767: 
034784,000768:                                                                                                  #  GMAXCALC
034785,000769: 26,2722           45325                           PDDL     DSU                                   #  GAM TO PDL2
034786,000770: 26,2723           00001                                    0                                     #  VGAM IS IN PDL0 (-7)
034787,000771: 26,2724           15004                                    36KFT/S                               #  (-7) M/CS
034788,000772: 26,2725           63471                           DDV      DSQ                                   
034789,000773: 26,2726           15006                                    20KFT/S                               #  (-6) M/CS
034790,000774: 26,2727           00001                           STORE    0                                     #  VBARSQ (-2) TO PDL0
034791,000775: 
034792,000776: 26,2730           43205                           DMP      DAD                                   
034793,000777: 26,2731           15010                                    KR1                                   
034794,000778:                                                                                                  #  GAM, POS DOWN, FROM PDL2
034795,000779: 26,2732           41215                           DAD      DMP                                   
034796,000780: 26,2733           15012                                    -6.05DEG                              
034797,000781: 26,2734           15014                                    KR2                                   
034798,000782: 26,2735           77725                           PDDL                                           #  XCH PDL+0 FOR VBARSQ (-2)
034799,000783: 26,2736           43271                           DDV      DAD                                   
034800,000784: 26,2737           15024                                    KR4                                   
034801,000785: 26,2740           17367                                    DP2(-4)                               
034802,000786: 26,2741           77665                           BDDV                                           
034803,000787:                                                                                                  #  NUM FROM PDL+0
034804,000788: 26,2742           51015                           DAD      BPL                                   
034805,000789: 26,2743           15016                                    KR3                                   
034806,000790: 26,2744           54747                                    +3                                    
034807,000791: 26,2745           77745                           DLOAD                                          
034808,000792: 26,2746           15334                                    HI6ZEROS                              
034809,000793: 26,2747           17722                           STODL    GMAX                                  #  100 GMAX (-14)
034810,000794:                                                                                                  #  DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED.
034811,000795: 26,2750           02241                                    ERADM                                 #  = FISCHER RADIUS (-29) M
034812,000796: 26,2751           45015                           DAD      CALL                                  #  2 ND ITERATION FOR FISCHER RADIUS
034813,000797: 26,2752           15022                                    400KFT                                
034814,000798: 26,2753           57070                                    CALCTFF                               #  ESTABLISH TRANSFER ANGLE DATA.
034815,000799: 26,2754           77624                           CALL                                           
034816,000800: 26,2755           56632                                    TFF/TRIG                              #  GET SIN, COS DELF
034817,000801: 26,2756           77624                           CALL                                           
034818,000802: 26,2757           55027                                    FISHCALC                              #  GET CORRESPONDING FISCHER RADIUS.
034819,000803: 
034820,000804: 26,2760           73015                           DAD      LXA,2                                 #  SAVE HI-WORD FOR DOWNLIST.
034821,000805: 26,2761           15022                                    400KFT                                #  M (-29)
034822,000806: 26,2762           03713                                    RTGO                                  #  (RANGE ANGLE FROM EMSALT) / 360
034823,000807: 26,2763           34023                           STCALL   RTERM                                 
034824,000808: 26,2764           55045                                    PREVGAM                               #  VGAMCALC WITH NEW RTERM
034825,000809: 
034826,000810: 26,2765           67076                           DCOMP    SXA,2                                 #  HI-WORD OF EACH ON DOWNLIST.
034827,000811: 26,2766           00155                                    MPAC       +1                         
034828,000812: 26,2767           17771                           STODL    GAMMAEI                               #  CONIC GAMMA/360 AT 400K FT.   (HI-WORD)
034829,000813:                                                                                                  #  CONIC RTGO/360 FROM EMSALT   (LOW-WORD)
034830,000814:                                                                                                  #  FOR TM, DP(GAMMAEI) = (GAMMA, RTGO) / 360
034831,000815: 
034832,000816:                                                                                                  #  VGAM FROM PDL+0 (-7)
034833,000817: 26,2770           77626                           STADR                                          
034834,000818: 26,2771           74010                           STORE    VPRED                                 #  CONIC VELOCITY AT 400K FT
034835,000819: 
034836,000820: 26,2772           77634                           RTB                                            
034837,000821: 26,2773           54272                                    P61.1                                 
034838,000822:                                                                                                  #  PDL BACK TO ZERO.
034839,000823: 
034840,000824: 26,2774           52145        LUNENT             DLOAD    GOTO                                  
034841,000825: 26,2775           06476                                    1/RTMUE                               #  ESTABLISH MU FOR LUNAR TYPE ENTRIES
034842,000826: 26,2776           54652                                    CALLCON                               
034843,000827: 26,2777           00002 26244  290KFT             2DEC     88392.0    B-29                       
034844,000828: 
034845,000829: 26,3001           00052 05716  KTETA1             2DEC*    .421844723 E2         B-14*           #  1100 2PI/16384(163.84)
034846,000830: 
034847,000831: 26,3003           33335 05707  36KFT/S            2DEC     109.728    B-7                        #  (-7) M/CS = 36 KFT/S (-7)
034848,000832: 
034849,000833: 26,3005           36365 30244  20KFT/S            2DEC     121.92     B-7                        #  (-6) M/CS = 2 20KFT/S (-7)
034850,000834: 
034851,000835: 26,3007           77113 42770  KR1                2DEC     -.026666667                            #  = -2.4 4 / 360
034852,000836: 
034853,000837: 26,3011           77354 65030  -6.05DEG           2DEC     -.016805556                            #  = -6.05 / 360
034854,000838: 
034855,000839: 26,3013           21450 00001  KR2                2DEC     .54931641                             #  = (360/4) 100 (-14) = 9000 B-14
034856,000840: 
034857,000841: 26,3015           01750 00000  KR3                2DEC     1000       B-14                       #  = 100 (10.0) (-14) G,S
034858,000842:                                                                                                  #  ASSUMES L/D = 0.3, BANK =0.
034859,000843: 26,3017           00305 04541  RTRIAL             2DEC     6460097.18 B-29                       #  RPAD +284643 FT =21 194 545 FT
034860,000844:                                                                                                  #  RPAD DEFINED AS 20 909 901.57 FT =6 373 338 M
034861,000845: 26,3021           00003 27040  400KFT             2DEC     121920     B-29                       #  METERS
034862,000846: 
034863,000847:                                                                                                  #  300KFT        2DEC    91440 B-29      (-29) M
034864,000848: 
034865,000849:                                                                                                  #  EMSALT        2DEC    86759.2 B-29    284643 FT (-29) M       (ORBITAL REENTRY)
034866,000850: 
034867,000851:                                                                                                  #  EMSALT        2DEC    90657 B-29      297431 FT (-29) M       (LUNAR REENTRY)
034868,000852: 
034869,000853: 26,3023           32525 12525  KR4                2DEC     .833333333                            
034870,000854: 
034871,000855: 26,3025  23,2501               300KFT             EQUALS   MINPERE                               
034872,000856: 26,3025           77777 76601  VEMSCON            2DEC     -.0389676  B-14                       #  = -HS D / 2 PI (-14)  M SQ / CS SQ
034873,000857: 
034874,000858:                                                                                                  #  = -16369      .05G    32.2    .3048   .3048/2 PI      (-14)
034875,000859: 
034876,000860:                                                                                                  #  SUBROUTINE NAME:  FISHCALC    (USED BY S61.2)         DATE:           01.21.67
034877,000861:                                                                                                  #  MOD NO: 0                                             LOG SECTION:    P61-P67
034878,000862:                                                                                                  #  MOD BY: MORTH / BAIRNSFATHER
034879,000863:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER                 DATE:           11 MAY 67       INCLUDE GETERAD CALL
034880,000864: 
034881,000865:                                                                                                  #  FUNCTIONAL DESCRIPTION:  GIVEN THE PRESENT POSITION, UNITR, CALCULATE A NEW UNITR THAT IS ROTATED THROUGH
034882,000866:                                                                                                  #        TRANSFER ANGLE, THETA, ALONG TRAJECTORY.  THEN CALCULATE SIN(LAT) AND USE TO OBTAIN FISCHER RADIUS.
034883,000867: 
034884,000868:                                                                                                  #        SINCE FISHCALC USES UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED.  (WILL IMPROVE FOR SUITABLE TENNANT)
034885,000869: 
034886,000870:                                                                                                  #  CALLING SEQUENCE:     CALL
034887,000871:                                                                                                  #                                FISHCALC
034888,000872:                                                                                                  #        ENTER WITH .5 SIN(THETA) IN MPAC.
034889,000873:                                                                                                  #        PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D
034890,000874: 
034891,000875:                                                                                                  #  SUBROUTINES CALLED:  GET ERAD
034892,000876: 
034893,000877:                                                                                                  #  NORMAL EXIT MODE:  RVQ
034894,000878: 
034895,000879:                                                                                                  #  EXIT MODES:   NONE
034896,000880: 
034897,000881:                                                                                                  #  OUTPUT:       ERADM (-29) M IN MPAC ON RETURNING
034898,000882:                                                                                                  #                NEW UNIT VECTOR NOT SAVED.
034899,000883:                                                                                                  #                SIN(LAT) NOT SAVED.
034900,000884:                                                                                                  #                PUSHLOC AT PDL+0
034901,000885: 
034902,000886:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED:
034903,000887:                                                                                                  #                SDELF/2         =SIN(THETA) / 2, IN MPAC                LEFT BY TFF/TRIG
034904,000888:                                                                                                  #                CDELF/2         =COS(THETA) / 2, STORED IN PDL 14D      LEFT BY TFF/TRIG
034905,000889:                                                                                                  #                RONE            (-29) M                                 LEFT BY USER
034906,000890:                                                                                                  #                VONE            (-7) M/CS                               LEFT BY USER
034907,000891:                                                                                                  #                URONE           UR/2                                    LEFT BY USER
034908,000892:                                                                                                  #                UNI             .5 UNIT(V*R)                            LEFT BY ENTRY / P61
034909,000893:                                                                                                  #                UNITW           UNIT NORTH POLE                         LEFT BY PAD LOAD
034910,000894: 
034911,000895:                                                                                                  #  DEBRIS:       QPRET, PDL+0 ... PDL+5
034912,000896:                                                                                                  #  -      -          -
034913,000897: 26,3027           47315        FISHCALC           PDVL     VXV                                   #  URPR = UR CDELF + UHOR SDELF
034914,000898: 26,3030           02343                                    URONE                                 
034915,000899: 26,3031           03502                                    UNI                                   
034916,000900: 26,3032           76561                           VXSC     VSL1                                  
034917,000901:                                                                                                  #  SIN(THETA) / 2 FROM PDL+0
034918,000902: 26,3033           74315                           PDVL     VXSC                                  #  TO PDL+0, +5
034919,000903: 26,3034           02343                                    URONE                                 
034920,000904: 26,3035           00017                                    CDELF/2                               #  COS(THETA) / 2
034921,000905: 26,3036           45455                           VAD      STADR                                 
034922,000906: 26,3037           74235                           STORE    URH                                   #  FOR USE IN RTGO FROM EMS DISPLAY
034923,000907: 26,3040           72441                           DOT      SL1                                   
034924,000908: 26,3041           01714                                    UNITW                                 #  FULL UNIT VECTOR      UNIT NORTH
034925,000909: 26,3042           02156                           STORE    ALPHAV     +4                         #  = .5 SIN(LAT)
034926,000910: 26,3043           77650        DUMPFISH           GOTO                                           
034927,000911: 26,3044           26513                                    GETERAD                               #  SAVES FISCHER RAD (-29) M IN ERADM AND
034928,000912:                                                                                                  #  IN MPAC.  RETURNS TO CALLER VIQ QPRET.
034929,000913: 
034930,000914:                                                                                                  #  SUBROUTINE NAME:  VGAMCALC    (USED BY S61.2)                         DATE:           01.21.67
034931,000915:                                                                                                  #  MOD NO: 0                                                             LOG SECTION:    P61-P67
034932,000916:                                                                                                  #  MOD BY: MORTH / BAIRNSFATHER
034933,000917:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER         DATE: 11 APR 67
034934,000918:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER         DATE: 21 NOV 67         VARIABLE MU ADDED.
034935,000919:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER         DATE: 21 MAR 68         ACCEPT DIFFERENT EARTH/MOON SCALE
034936,000920: 
034937,000921:                                                                                                  #  FUNCTIONAL DESCRIPTION:  EARTH CENTERED VIS VIVA CALCULATION OF TERMINAL VELOCITY AND GAMMA (REL TO
034938,000922:                                                                                                  #        HORIZONTAL) GIVEN THE SCALAR QUANTITIES:  PRESENT RADIUS AND VELOCITY AND THE TERMINAL RADIUS.
034939,000923:                                                                                                  #        THE USER MUST APPEND PROPER SIGN TO GAMMA, SINCE IT IS CALCULATED AS A POSITIVE NUMBER.
034940,000924:                                                                                                  #        THE EQUATIONS ARE
034941,000925: 
034942,000926:                                                                                                  #                VGAM = SQRT(VN VN/MU + 2(RN-RTERM)/(RN RTERM) ) RTMU
034943,000927: 
034944,000928:                                                                                                  #                COSGAM = H / RTERM VGAM = SQRT (LCP) / (RTERM VGAM/RTMU)
034945,000929: 
034946,000930:                                                                                                  #        VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS.  BOTH CALCTFF AND CALCTPER
034947,000931:                                                                                                  #        MAKE THIS ASSUMPTION.
034948,000932: 
034949,000933:                                                                                                  #  CALLING SEQUENCE:     CALL                    STCALL  RTERM
034950,000934:                                                                                                  #                                VGAMCALC                PREVGAM
034951,000935:                                                                                                  #        PUSHLOC AT PDL+0, ARBITRARY IF LEQ 12D
034952,000936:                                                                                                  #        C(MPAC) UNSPECIFIED                     C(MPAC)=NEW RTERM
034953,000937: 
034954,000938:                                                                                                  #  SUBROUTINES CALLED:  NONE
034955,000939: 
034956,000940:                                                                                                  #  NORMAL EXIT MODE:  RVQ
034957,000941: 
034958,000942:                                                                                                  #  ALARMS:       NONE
034959,000943:                                                                                                  #  
034960,000944:                                                                                                  #  OUTPUT:       GAMMA / 360 IN MPAC, POSITIVE NUMBER
034961,000945:                                                                                                  #                VGAM    E: (-7)   M: (-5)       M/CS IN PDL+0
034962,000946:                                                                                                  #                PUSHLOC AT PDL+2
034963,000947: 
034964,000948:                                                                                                  #  ERASABLE INITIALIZATION REQD:
034965,000949:                                                                                                  #        TFF/RTMU  E: (17)   M: (14)     1/SQRT(MU)                              LEFT BY TFFCONIC.
034966,000950:                                                                                                  #        RMAG1     E: (-29)  M: (-27)    M  PRESENT RADIUS LENGTH                LEFT BY TFFCONIC
034967,000951:                                                                                                  #        NRMAG     E: (-29+NR)           M  NORM LENGTH OF PRESENT POSITION      LEFT BY TFFCONIC
034968,000952:                                                                                                  #                  M: (-27+NR)
034969,000953:                                                                                                  #        RTERM     E: (-29)  M: (-27)    M  TERMINAL RADIUS LENGTH               LEFT BY CALCTFF
034970,000954:                                                                                                  #        NRTERM    E: (-29+NR)           M  NORM LENGTH OF TERMINAL RADIUS       LEFT BY CALCTFF
034971,000955:                                                                                                  #                  M: (-27+NR)
034972,000956:                                                                                                  #        TFFVSQ    E: (20)   M: (18)   1/M  -(V SQ/MU): PRESENT VELOCITY, NORM   LEFT BY TFFCONIC
034973,000957:                                                                                                  #        TFFNP     E: (-38+2NR)          M  LCP, SEMI-LATUS RECTUM, WEIGHT NR    LEFT BY TFFCONIC
034974,000958:                                                                                                  #                  M: (-36+2NR)
034975,000959: 
034976,000960:                                                                                                  #  DEBRIS:       QPRET, PDL+0 ... PDL+3
034977,000961:                                                                                                  #                RTERM, NRTERM IF PREVGAM ENTERED.
034978,000962: 
034979,000963: 26,3045           77657        PREVGAM            SL*                                            #  ENTER WITH NEW RTERM IN MPAC
034980,000964:                                                                                                  #  E: (-29)  M: (-27)
034981,000965: 26,3046           20201                                    0,1                                   #  X1 = -NR
034982,000966: 26,3047           00021                           STORE    NRTERM                                #  RTERM M               E: (-29+NR)     M: (-27+NR)
034983,000967: 
034984,000968: 26,3050           41345        VGAMCALC           DLOAD    DMP                                   
034985,000969: 26,3051           00041                                    NRMAG                                 #  RMAG M                E: (-29+NR)     M: (-27+NR)
034986,000970: 26,3052           00021                                    NRTERM                                #  RTERM M               E: (-29+NR)     M: (-27+NR)
034987,000971: 26,3053           45325                           PDDL     DSU                                   #  RMAG RTERM M          E: (-58+2NR)    M: (-54+2NR)
034988,000972: 26,3054           00041                                    NRMAG                                 #  RMAG M                E: (-29+NR)     M: (-27+NR)
034989,000973: 26,3055           00021                                    NRTERM                                #  RTERM M               E: (-29+NR)     M: (-27+NR)
034990,000974: 26,3056           56257                           SL*      DDV                                   #  2(RN-RTERM)           E: (-30+NR)     M: (-28+NR)
034991,000975: 26,3057           20171                                    0          -8D,1                      #  (-8+NR)
034992,000976:                                                                                                  #  PUSH UP PRODUCT.                                      
034993,000977: 26,3060           77625                           DSU                                            
034994,000978: 26,3061           00025                                    TFFVSQ                                #  -(V SQ/MU)            E: (20)         M: (18)
034995,000979: 26,3062           41566                           SQRT     PUSH                                  #  SAVE VGAM/RT(MU) FOR NOW.     E: (10) M: (9)
034996,000980: 26,3063           65271                           DDV      PDDL                                  #  XCH PDL+0, LEAVING VGAM FOR OUTPUT.
034997,000981:                                                                                                  #  VGAM TO PDL M/CS      E: (-7)         M: (-2)
034998,000982: 26,3064           00037                                    TFF/RTMU                              #                        E: (17)         M: (14)
034999,000983: 26,3065           65205                           DMP      PDDL                                  #  RTERM VGAM/RTMU       E: (-19+NR)     M: (-18+NR)
035000,000984: 26,3066           00021                                    NRTERM                                #  RTERM M               E: (-29+NR)     M: (-27+NR)
035001,000985: 26,3067           00035                                    TFFNP                                 #  LC P =H.H/MU M        E: (-38+2NR)    M: (-36+2NR)
035002,000986: 26,3070           56366                           SQRT     DDV                                   #                        E: (-19+NR)     M: (-18+NR)
035003,000987:                                                                                                  #  PUSH UP DEN           E: (-19+NR)     M: (-18+NR)
035004,000988:                                                                                                  #  USE DDV OVFL AS LIMITER (|COS| <1.0)
035005,000989: 26,3071           65542                           SR1      ACOS                                  
035006,000990: 26,3072           77616        DUMPVGAM           RVQ                                            
035007,000991:                                                                                                  #  CALLER MUST SUPPLY OWN SIGN ...
035008,000992:                                                                                                  #                        22W     27MS
035009,000993: 
035010,000994:                                                                                                  #  SUBROUTINE NAME:      TFF/TRIG        (USED BY S61.2)         DATE            01.17.67
035011,000995:                                                                                                  #  MOD NO: 0                                                     LOG SECTION:    P61-P67
035012,000996:                                                                                                  #  MOD BY: RR BAIRNSFATHER
035013,000997:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER         DATE: 14 APR 67
035014,000998:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER         DATE: 21 MAR 68         ACCEPT DIFFERENT EARTH/MOON SCALE
035015,000999: 
035016,001000:                                                                                                  #  FUNCTIONAL DESCRIPTION:  USED BY ENTRY DISPLAY TO CALCULATE SIN(THETA), COS(THETA) FROM DATA LEFT IN
035017,001001:                                                                                                  #        PDL BY TFF SUBROUTINES.  THE EQNS ARE
035018,001002: 
035019,001003:                                                                                                  #                COS(THETA) = 1-2 ABS(ARG) / (RN RTERM (1+X) )
035020,001004:                                                                                                  #                                                2
035021,001005:                                                                                                  #                SIN(THETA) = SGN(ARG) SQRT(1-COS (THETA) )
035022,001006: 
035023,001007:                                                                                                  #        WHERE THETA = TRANSFER ANGLE
035024,001008:                                                                                                  #        AND     ARG = P Z ABS(Z)                        IF ALFA ZZ LEQ 1
035025,001009:                                                                                                  #                ARG = (P / ALFA) SGN(Q1 + R 1/Z)        IF ALFA Z Z G 1
035026,001010:                                                                                                  #        AND  ARG  HAS BEEN AFFIXED WITH THE SIGN OF SIN(THETA).
035027,001011: 
035028,001012:                                                                                                  #  CALLING SEQUENCE:     CALL
035029,001013:                                                                                                  #                                TFF/TRIG
035030,001014:                                                                                                  #                PUSHLOC AT PDL+0, ARBITRARY IF NOT EQ 14D
035031,001015:                                                                                                  #                C(MPAC) UNSPECIFIED
035032,001016: 
035033,001017:                                                                                                  #  SUBROUTINES CALLED:  NONE
035034,001018: 
035035,001019:                                                                                                  #  NORMAL EXIT MODES:  RVQ
035036,001020: 
035037,001021:                                                                                                  #  ALARMS:       NONE
035038,001022: 
035039,001023:                                                                                                  #  OUTPUT:       C(MPAC) = .5 SIN(THETA)
035040,001024:                                                                                                  #                CDELF/2 = .5 COS(THETA)         (IN PDL 14D)
035041,001025:                                                                                                  #                PUSHLOC AT PDL+0
035042,001026: 
035043,001027:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
035044,001028:                                                                                                  #                TFFX                    X                                       LEFT BY CALCTFF OR CALCTPER
035045,001029:                                                                                                  #                TFFTEM  E: (-59+2NR)    ARG                                     LEFT BY CALCTFF OR CALCTPER
035046,001030:                                                                                                  #                        M: (-55+2NR)    WHERE ARG = LCP ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
035047,001031:                                                                                                  #                NRTERM  E: (-29+NR)     M  NORM LENGTH OF TERMINAL RADIUS       LEFT BY CALCTFF OR CALCTPER
035048,001032:                                                                                                  #                        M: (-27+NR)     
035049,001033:                                                                                                  #                NRMAG   E: (-29+NR)     M  NORM LENGTH OF PRESENT POSITION      LEFT BY TFFCONIC
035050,001034:                                                                                                  #                        M: (-27+NR)
035051,001035: 
035052,001036:                                                                                                  #  DEBRIS:       QPRET, CDELF/2
035053,001037: 
035054,001038: 27,2632                                           BANK     27                                    
035055,001039: 27,2000                                           SETLOC   P60S5                                 
035056,001040: 27,2000                                           BANK                                           
035057,001041: 27,2632           70545        TFF/TRIG           DLOAD    SR1                                   
035058,001042: 27,2633           00043                                    TFFX                                  
035059,001043: 27,2634           41215                           DAD      DMP                                   
035060,001044: 27,2635           15332                                    HIDPHALF                              
035061,001045: 27,2636           00041                                    NRMAG                                 #  RMAG M                E: (-29+NR)     M: (-27+NR)
035062,001046: 27,2637           55205                           DMP      BDDV                                  
035063,001047: 27,2640           00021                                    NRTERM                                #  RTERM M               E: (-29+NR)     M: (-27+NR)
035064,001048: 27,2641           00045                                    TFFTEM                                #  P ZSQ OR P/ALFA       E: (-59+2NR)    M: (-55+2NR)
035065,001049: 27,2642           44246                           ABS      BDSU                                  #  THE SIGN IS FOR SDELF.
035066,001050: 27,2643           15332                                    HIDPHALF                              
035067,001051: 27,2644           00017                           STORE    CDELF/2                               #  .5 COS(THETA)
035068,001052: 27,2645           57516                           DSQ      DCOMP                                 #  KEEP HONEST FOR SQRT.
035069,001053: 27,2646           75415                           DAD      SQRT                                  
035070,001054: 27,2647           15324                                    HIDP1/4                               
035071,001055: 27,2650           43565        DUMPTRIG           SIGN     RVQ                                   
035072,001056: 27,2651           00045                                    TFFTEM                                #  AFFIX SIGN(DELE/2)
035073,001057:                                                                                                  #  RETURN WITH .5 SIN(THETA) IN MPAC
035074,001058: 
035075,001059:                                                                                                  #                        16W     15MS
035076,001060: 
035077,001061: 27,2652           77620        DISPTARG           STQ                                            #  C(MPAC) = TRGO ESTIMATE
035078,001062: 27,2653           03373                                    60GENRET                              
035079,001063: 27,2654           43205                           DMP      DAD                                   #  (TTE1 IS POSITIVE)
035080,001064: 27,2655           15002                                    KTETA1                                
035081,001065: 27,2656           03733                                    TTE1                                  
035082,001066: 27,2657           37606                           STCALL   DTEAROT                               
035083,001067: 27,2660           46225                                    EARROT2                               
035084,001068: 27,2661           77624                           CALL                                           
035085,001069: 27,2662           56665                                    VRCALC                                
035086,001070: 27,2663           77650                           GOTO                                           
035087,001071: 27,2664           03373                                    60GENRET                              
035088,001072: 27,2665           50375        VRCALC             VLOAD    DOT                                   
035089,001073: 27,2666           03542                                    URH                                   
035090,001074: 27,2667           03474                                    RT                                    
035091,001075: 27,2670           65512                           SL2      ACOS                                  
035092,001076: 27,2671           77616                           RVQ                                            
035093,001077: 
035094,001078:                                                                                                  #  END OF PROGRAM S61.2
035095,001079: 
035096,001080:                                                                                                  #  PROGRAM DESCRIPTION S62.3     DATE 10JAN67
035097,001081:                                                                                                  #  MOD NO 1                      LOG SECTION P60-P67
035098,001082:                                                                                                  #  MOD BY ZELDIN
035099,001083:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER         DATE: 15 MAY 67         CHANGED TO REF COORDS.
035100,001084:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER         DATE: 17 JAN 68         ALFAPAD CHANGES MADE.
035101,001085: 
035102,001086:                                                                                                  #  FUNCTIONAL DESCRIPTION
035103,001087: 
035104,001088:                                                                                                  #        COMPUTE DESIRED GIMBOL ANGLES FOR ENTRY ATTITUDE
035105,001089:                                                                                                  #        THE FOLLOWING TRAJECTORY TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY CM/POSE IN
035106,001090:                                                                                                  #        REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH) :
035107,001091: 
035108,001092:                                                                                                  #                UXA = -UNIT(V)
035109,001093:                                                                                                  #                UYA =  UNIT(V*R)
035110,001094:                                                                                                  #                UZA =  UXA*UYA
035111,001095: 
035112,001096:                                                                                                  #        GENERATE A DESIRED BODY TRIAD FOR TRIMMED FLIGHT WITH RESPECT TO THE RELATIVE VELOCITY VECTOR, USING
035113,001097:                                                                                                  #        ROLL COMMAND AND TRIM ANGLE OF ATTACK:
035114,001098: 
035115,001099:                                                                                                  #                UXD = UNIT(UYD*UXA) SIN(ALFATRIM) + UXA COS(ALFATRIM)
035116,001100:                                                                                                  #                UYD = UYA COS(ROLLC) + UZA SIN(ROLLC)
035117,001101:                                                                                                  #                UZD = UXD * UYD
035118,001102: 
035119,001103:                                                                                                  #        USE THE DESIRED SET (IN REFERENCE COORDS) AND REFSMMAT TO CALL  CALCGA  AND OBTAIN GIMBAL ANGLES
035120,001104:                                                                                                  #        IN 2S, C IN MPAC, +2 AND THETAD, +2.
035121,001105: 
035122,001106:                                                                                                  #  CALLING SEQUENCE
035123,001107: 
035124,001108:                                                                                                  #        L       CALL
035125,001109:                                                                                                  #        L+1             S62.3
035126,001110: 
035127,001111:                                                                                                  #  NORMAL EXIT MODE
035128,001112: 
035129,001113:                                                                                                  #        RETURN VIA QPRET DIRECTLY FROM CALCGA.
035130,001114: 
035131,001115:                                                                                                  #  SUBROUTINES CALLED
035132,001116: 
035133,001117:                                                                                                  #        CALCGA
035134,001118: 
035135,001119:                                                                                                  #  ALARM OR ABORT MODES
035136,001120: 
035137,001121:                                                                                                  #        NONE
035138,001122: 
035139,001123:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
035140,001124: 
035141,001125:                                                                                                  #        ROLLC   ROLL COMMAND            DP 1:S COMP AT 1REV
035142,001126:                                                                                                  #        ALFAPAD SP 1S,C / 180           LEFT BY PAD LOAD        ALFATRIM IS NEGATIVE.
035143,001127:                                                                                                  #        UXA/2   REF COORDS              LEFT BY CM/POSE
035144,001128:                                                                                                  #        UYA/2   REF COORDS              LEFT BY CM/POSE
035145,001129:                                                                                                  #        UZA/2   REF COORDS              LEFT BY CM/POSE
035146,001130: 
035147,001131:                                                                                                  #  OUTPUT
035148,001132:                                                                                                  #        
035149,001133:                                                                                                  #        CPHI    GIMBAL ANGLES (O,I,M) 2:S COMP TP (O,I,M)/180
035150,001134: 
035151,001135:                                                                                                  #  DEBRIS
035152,001136: 
035153,001137:                                                                                                  #        QTEMP, QPRET, PUSHLIST
035154,001138: 
035155,001139: 10,2376                                           BANK     10                                    
035156,001140: 10,2000                                           SETLOC   P60S4                                 
035157,001141: 10,2000                                           BANK                                           
035158,001142: 10,2376                                           COUNT*   $$/S62.3                              
035159,001143: 
035160,001144: 10,2376           67201        S62.3              SETPD    SLOAD                                 
035161,001145: 10,2377           00001                                    0                                     
035162,001146: 10,2400           03012                                    ALFAPAD                               #  ALFATRIM / 180, ALFA IS NEG.
035163,001147: 10,2401           41542                           SR1      PUSH                                  
035164,001148: 10,2402           65346                           COS      PDDL                                  #  XCH PDL, COS TO PDL0
035165,001149: 10,2403           65356                           SIN      PDDL                                  #  SIN TO PDL2
035166,001150: 10,2404           03316                                    ROLLC                                 
035167,001151: 10,2405           74346                           COS      VXSC                                  
035168,001152: 10,2406           03550                                    UYA/2                                 #                                REF COORDS
035169,001153: 10,2407           73525                           PDDL     SIN                                   #  PUSH VECTOR INTO PDL4,.9
035170,001154: 10,2410           03316                                    ROLLC                                 
035171,001155: 10,2411           53361                           VXSC     VAD                                   
035172,001156: 10,2412           03556                                    UZA/2                                 #                                REF COORDS
035173,001157:                                                                                                  #  VECTOR FROM PDL4, 9
035174,001158: 10,2413           77772                           VSL1                                           
035175,001159: 10,2414           02722                           STORE    YNB                                   #  = UYD                         REF COORDS
035176,001160: 
035177,001161: 10,2415           76435                           VXV      VSL1                                  
035178,001162: 10,2416           03542                                    UXA/2                                 #                                REF COORDS
035179,001163: 10,2417           65361                           VXSC     PDDL                                  
035180,001164:                                                                                                  #  SIN TRIM FROM PDL2
035181,001165:                                                                                                  #  XCH PDL0 FOR COS TRIM
035182,001166: 10,2420           53361                           VXSC     VAD                                   
035183,001167: 10,2421           03542                                    UXA/2                                 #                                REF COORDS
035184,001168:                                                                                                  #  FROM PDL0
035185,001169: 10,2422           77772                           VSL1                                           
035186,001170: 10,2423           02714                           STORE    XNB                                   #  X SC AXIS (.5 UNIT)           REF COORDS
035187,001171: 
035188,001172: 10,2424           76435                           VXV      VSL1                                  
035189,001173: 10,2425           02722                                    YNB                                   
035190,001174: 10,2426           26730                           STOVL    ZNB                                   #  Z SC IN REF COOR. SCALED AT 2
035191,001175: 10,2427           01736                                    REFSMMAT                              
035192,001176: 10,2430           26672                           STOVL    XSM                                   
035193,001177: 10,2431           01744                                    REFSMMAT   +6                         
035194,001178: 10,2432           26700                           STOVL    YSM                                   
035195,001179: 10,2433           01752                                    REFSMMAT   +12D                       
035196,001180: 10,2434           02706                           STORE    ZSM                                   
035197,001181: 
035198,001182: 10,2435           52014                           CLEAR    GOTO                                  
035199,001183: 10,2436           00260                                    CPHIFLAG                              #  CAUSE CALCGA TO STORE ANS IN TP CPHI
035200,001184: 10,2437           47313                                    CALCGA                                
035201,001185:                                                                                                  #  CALCGA WILL RETURN TO ORIGINAL CALLER
035202,001186:                                                                                                  #  VIA QPRET WITH 2,S COMP. ANGLES IN CPHI
035203,001187: 
035204,001188: 
035205,001189: 

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