Source Code

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

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

027281,000002:                                                                                                 #  Copyright:    Public domain.
027282,000003:                                                                                                 #  Filename:      P30,P37.agc
027283,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
027284,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
027285,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
027286,000007:                                                                                                 #  Assembler:    yaYUL
027287,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
027288,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
027289,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
027290,000011:                                                                                                 #  Mod history:  2011-02-19 JL    Adapted from corresponding Colossus 249 file.
027291,000012:                                                                                                 #                 2011-04-29 JL   Added missing line at the bottom of page 632.
027292,000013: 
027293,000014:                                                                                                 # # Page 624
027294,000015: 32,2017                                          BANK     32                                    
027295,000016: 
027296,000017: 35,2000                                          SETLOC   P30S1                                 
027297,000018: 35,2000                                          BANK                                           
027298,000019: 
027299,000020: 35,3544  E7,1625                                 EBANK=   +MGA                                  
027300,000021: 
027301,000022: 35,3544                                          COUNT    35/P34                                
027302,000023: 
027303,000024: 35,3544           77420        DISPMGA           STQ      EXIT                                  #  USED IN P30
027304,000025: 
027305,000026: 35,3545           02370                                   RGEXIT                                
027306,000027: 35,3546           03564                          TC       COMPTGO                               
027307,000028: 
027308,000029: 35,3547           33132        DISP45            CAF      V16N45                                
027309,000030: 35,3550           04555                          TC       BANKCALL                              
027310,000031: 35,3551           20763                          CADR     GOFLASHR                              
027311,000032: 35,3552           04106                          TC       GOTOPOOH                              
027312,000033: 35,3553           03560                          TC       END45                                 
027313,000034: 35,3554           03547                          TC       DISP45                                
027314,000035: 35,3555           05301        P30PHSI           TC       PHASCHNG                              
027315,000036: 35,3556           00014                          OCT      14                                    
027316,000037: 35,3557           05112                          TCR      ENDOFJOB                              
027317,000038: 35,3560           06006        END45             TC       INTPRET                               
027318,000039: 35,3561           52014                          CLEAR    GOTO                                  
027319,000040: 35,3562           03664                                   TIMRFLAG                              
027320,000041: 35,3563           02370                                   RGEXIT                                
027321,000042: 
027322,000043: 35,3564           00006        COMPTGO           EXTEND                                         #  USED TO COMPUTE TTOGO
027323,000044: 35,3565           23066                          QXCH     PHSPRDT6                              #  ** GROUP 6 TEMPORARY USED ,, BEWARE **
027324,000045: 
027325,000046: 35,3566           05435                          TC       UPFLAG                                #  SET TIMRFLAG
027326,000047: 35,3567           00155                          ADRES    TIMRFLAG                              #  BIT 11 FLAG 7
027327,000048: 35,3570           34714                          CAF      ZERO                                  
027328,000049: 35,3571           55145                          TS       NVWORD1                               
027329,000050: 
027330,000051: 35,3572           00004                          INHINT                                         
027331,000052: 35,3573           34712                          CAF      ONE                                   
027332,000053: 35,3574           05140                          TC       WAITLIST                              
027333,000054: 35,3575  E7,1412                                 EBANK=   TIG                                   
027334,000055: 35,3575           03174 50067                    2CADR    CLOKTASK                              
027335,000056: 
027336,000057: 35,3577           05261                          TC       2PHSCHNG                              
027337,000058: 35,3600           40036                          OCT      40036                                 #  6.3SPOT FOR CLOKTASK
027338,000059: 35,3601           05024                          OCT      05024                                 
027339,000060: 35,3602           13000                          OCT      13000                                 
027340,000061: 
027341,000062: 35,3603           01066                          TC       PHSPRDT6                              
027342,000063: 
027343,000064:                                                                                                 # # Page 625
027344,000065:                                                                                                 #  PROGRAM DESCRIPTION  P30    DATE 3-6-67
027345,000066: 
027346,000067:                                                                                                 #  MOD.I BY S. ZELDIN- TO ADD P31 AND AD APT P30 FOR P31 USE.    22DEC67
027347,000068:                                                                                                 #  FUNCTIONAL DESCRIPTION
027348,000069:                                                                                                 #  +30(EXTERNAL DELTA-V TARGETING PROGRAM)
027349,000070:                                                                                                 #      ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES,FOR DISPLAY,
027350,000071:                                                                                                 #      APOGEE,PERIGEE,DELV(MAG),MGA ASSOCIATED WITH DESIRED MANEUVER
027351,000072: 
027352,000073:                                                                                                 #  P31 (GENERAL LAMBERT AIMPOINT GUIDANCE)
027353,000074:                                                                                                 #  A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
027354,000075:                                                                                                 #  POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
027355,000076:                                                                                                 #      BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS,AND
027356,000077:                                                                                                 #      ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
027357,000078:                                                                                                 #      AND,FOR DISPLAY,APOGEE,PERIGEE,DELV(7AG),+MGA ASSOCIATED WITH
027358,000079:                                                                                                 #      DESIRED MANEUVER
027359,000080: 
027360,000081:                                                                                                 #      THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
027361,000082:                                                                                                 #         S30.1 (P30 ONLY)
027362,000083:                                                                                                 #         S31.1 (P31 ONLY)
027363,000084:                                                                                                 #         P30/P31 - DISPLAYS TIG
027364,000085:                                                                                                 #         CNTUP30 - DISPLAYS DELV(LV)
027365,000086:                                                                                                 #         PARAM30 - DISPLAYS APOGEE,PERIGEE,DELV(MAG),MGA,TIME FROM TIG,
027366,000087:                                                                                                 #                   MARKS SINCE LAST THRUSTING MANEUVER
027367,000088: 
027368,000089:                                                                                                 #  CALLING SEQUENCE VIA JOB FROM V37
027369,000090: 
027370,000091:                                                                                                 #  EXIT VIA V37 OR GOTOPOOH
027371,000092: 
027372,000093:                                                                                                 #  OUTPUT FOR POWERED FLIGHT
027373,000094:                                                                                                 #           VTIG   X
027374,000095:                                                                                                 #           RTIG    XSEE S30.1
027375,000096:                                                                                                 #           DELVSIN X
027376,000097:                                                                                                 #           VGDISP
027377,000098:                                                                                                 #           RTARG  X
027378,000099:                                                                                                 #           TPASS4  X SEE S31.1
027379,000100:                                                                                                 #                  X
027380,000101: 
027381,000102: 
027382,000103: 35,3604                                          COUNT    35/P30                                
027383,000104: 
027384,000105: 35,3604           03636        P30               TC       P30/P31                               
027385,000106: 35,3605           03655                          TC       CNTNUP30                              
027386,000107: 35,3606           05447                          TC       DOWNFLAG                              #  RESET UPDATFLG
027387,000108: 35,3607           00027                          ADRES    UPDATFLG                              #  BIT 7  FLAG 1
027388,000109: 35,3610           06006                          TC       INTPRET                               
027389,000110: 35,3611           77624                          CALL                                           
027390,000111: 35,3612           63102                                   S30.1                                 
027391,000112: 35,3613           77776                          EXIT                                           
027392,000113: 35,3614           03665                          TC       PARAM30                               
027393,000114: 35,3615           05435                          TC       UPFLAG                                
027394,000115:                                                                                                 # # Page 626
027395,000116: 35,3616           00045                          ADRES    XDELVFLG                              #  SET XDELVFLG    BIT 8  FLAG 2
027396,000117: 35,3617           14106                          TCF      GOTOPOOH                              
027397,000118: 
027398,000119: 35,3620           03636        P31               TC       P30/P31                               
027399,000120: 35,3621           05447                          TC       DOWNFLAG                              
027400,000121: 35,3622           00027                          ADRES    UPDATFLG                              #  RESET UPDATFLG  BIT 7 FLAG 1
027401,000122: 35,3623           05447                          TC       DOWNFLAG                              
027402,000123: 35,3624           00156                          ADRES    NORMSW                                #  RESET NORMSW       BIT 10  FLAG 7
027403,000124: 35,3625           06006                          TC       INTPRET                               
027404,000125: 35,3626           77624                          CALL                                           
027405,000126: 35,3627           63154                                   S31.1                                 
027406,000127: 35,3630           77776                          EXIT                                           
027407,000128: 35,3631           03655                          TC       CNTNUP30                              
027408,000129: 35,3632           03665                          TC       PARAM30                               
027409,000130: 35,3633           05447                          TC       DOWNFLAG                              
027410,000131: 35,3634           00045                          ADRES    XDELVFLG                              #  BIT 8  FLAG 2
027411,000132: 35,3635           14106                          TCF      GOTOPOOH                              
027412,000133: 
027413,000134: 35,3636           56002        P30/P31           XCH      Q                                     
027414,000135: 35,3637           55664                          TS       P30/31RT                              
027415,000136: 35,3640           05435                          TC       UPFLAG                                
027416,000137: 35,3641           00027                          ADRES    UPDATFLG                              #  SET UPDATFLG  BIT 7  FLAG 1
027417,000138: 35,3642           05435                          TC       UPFLAG                                
027418,000139: 35,3643           00031                          ADRES    TRACKFLG                              #  SET TRACKFLG  BIT 5  FLAG 1
027419,000140: 35,3644           33722                          CAF      V06N33                                #  T OF IGN
027420,000141: 35,3645           04555                          TC       BANKCALL                              
027421,000142: 35,3646           20763                          CADR     GOFLASHR                              
027422,000143: 35,3647           14106                          TCF      GOTOPOOH                              
027423,000144: 35,3650           01664                          TC       P30/31RT                              
027424,000145: 35,3651           13642                          TCF      P30/P31    +4                         
027425,000146: 35,3652           05301                          TC       PHASCHNG                              
027426,000147: 35,3653           00014                          OCT      00014                                 
027427,000148: 35,3654           05112                          TC       ENDOFJOB                              
027428,000149: 
027429,000150: 
027430,000151: 35,3655           56002        CNTNUP30          XCH      Q                                     
027431,000152: 35,3656           55127                          TS       P30/RET                               
027432,000153: 35,3657           33131                          CAF      V06N81                                
027433,000154: 35,3660           04555                          TC       BANKCALL                              
027434,000155: 35,3661           20624                          CADR     GOFLASH                               
027435,000156: 35,3662           14106                          TCF      GOTOPOOH                              
027436,000157: 35,3663           01127                          TC       P30/RET                               
027437,000158: 35,3664           13657                          TCF      CNTNUP30   +2                         
027438,000159: 35,3665           56002        PARAM30           XCH      Q                                     
027439,000160: 35,3666           55664                          TS       P30/31RT                              
027440,000161: 35,3667           33723                          CAF      V06N42                                
027441,000162: 35,3670           04555                          TC       BANKCALL                              
027442,000163: 35,3671           20624                          CADR     GOFLASH                               
027443,000164: 35,3672           04106                          TC       GOTOPOOH                              #  ON TERMINATION GOTOPOOH
027444,000165: 35,3673           13675                          TCF      REFTEST                               #  ON PROCEED GO DO REFTEST
027445,000166:                                                                                                 # # Page 627
027446,000167: 35,3674           13667                          TCF      PARAM30    +2                         
027447,000168: 35,3675           34676        REFTEST           CAF      BIT13                                 
027448,000169: 35,3676           70077                          MASK     STATE      +3                         #  REFSMFLAG
027449,000170: 35,3677           00006                          EXTEND                                         
027450,000171: 35,3700           13710                          BZF      NOTSET                                #  REFSMFLAG =0 , THEN BRANCH TO NOTSET
027451,000172: 35,3701           06006                          TC       INTPRET                               
027452,000173: 35,3702           41575                          VLOAD    PUSH                                  
027453,000174: 35,3703           03646                                   DELVSIN                               
027454,000175: 35,3704           77624                          CALL                                           
027455,000176: 35,3705           10660                                   GET+MGA                               
027456,000177: 35,3706           77650                          GOTO                                           
027457,000178: 35,3707           73714                                   FLASHMGA                              
027458,000179: 35,3710           00006        NOTSET            EXTEND                                         
027459,000180: 35,3711           43721                          DCS      MARSDP                                
027460,000181: 35,3712           53626                          DXCH     +MGA                                  #  +MGA, +MGA+1  CONTAINS (-00001)
027461,000182: 35,3713           06006                          TC       INTPRET                               
027462,000183: 35,3714           77624        FLASHMGA          CALL                                           
027463,000184: 35,3715           73544                                   DISPMGA                               
027464,000185: 35,3716           77776                          EXIT                                           
027465,000186: 35,3717           01664                          TC       P30/31RT                              
027466,000187: 35,3720           00000        MARSDP            OCT      00000                                 #  (00000) (16440)  = (+00001)
027467,000188: 35,3721           35100                          OCT      35100                                 
027468,000189:                                                                                                 #                                           ( .01 ) DEGREES IN THE LOW ORDER REGISTE
027469,000190: 35,3722           01441        V06N33            VN       0633                                  
027470,000191: 35,3723           01452        V06N42            VN       0642                                  
027471,000192: 35,3724           04043        V16N35            VN       1635                                  
027472,000193: 35,3725           01455        V06N45            VN       0645                                  
027473,000194: 
027474,000195:                                                                                                 # # Page 628
027475,000196:                                                                                                 #  PROGRAM DESCRPTION S30.1       DATE 9NOV66
027476,000197: 
027477,000198:                                                                                                 #  MOD NO 1        LOG SECTION  P30,P37
027478,000199:                                                                                                 #  MOD  BY  RAMA AIYAWAR **
027479,000200:                                                                                                 #  MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS         29DEC67
027480,000201:                                                                                                 #  FUNCTIONAL DESCRIPTION
027481,000202:                                                                                                 #           BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
027482,000203:                                                                                                 #  IGNITION(VTIG),TIME OF IGNITION(TIG)),DELV(LV),COMPUTE PERIGEE ALTITUDE
027483,000204:                                                                                                 #  A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS.(DELVSIN)
027484,000205:                                                                                                 #  CALLING SEQUENCE
027485,000206:                                                                                                 #     L     CALL
027486,000207:                                                                                                 #     L+1          S30.1
027487,000208:                                                                                                 #  NORMAL EXIT MODE
027488,000209:                                                                                                 #      AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027489,000210:                                                                                                 #  SUBROUTINES CALLED
027490,000211:                                                                                                 #           THISPREC
027491,000212:                                                                                                 #           PERIAPO
027492,000213:                                                                                                 #  ALARM OR ABORT EXIT MODES
027493,000214:                                                                                                 #                  NONE
027494,000215:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
027495,000216:                                                                                                 #           TIG       TIME OF IGNITION                   DP     B28CS
027496,000217:                                                                                                 #           DELVSLV   SPECIFIED DELTA-V IN LOCAL VERT.
027497,000218:                                                                                                 #                     COORDS. OF ACTIVE VEHICLE AT
027498,000219:                                                                                                 #           TIME OF IGNITION                         VCT.    B+7M/CS
027499,000220:                                                                                                 #  OUTPUT
027500,000221:                                                                                                 #           RTIG         POSITION AT TIG             VCT.    B+29M
027501,000222:                                                                                                 #           VTIG         VELOCITY AT TIG             VCT.    B+7M
027502,000223:                                                                                                 #           HAPO         APOGEE ALT.                 DP      B+29M
027503,000224:                                                                                                 #           HPER         PERIGEE ALT.                DP      B+29M
027504,000225:                                                                                                 #           DELVSIN      DELVSLV IN REF COORDS       VCT.    B+7M/CS
027505,000226:                                                                                                 #           VGDISP       MAG. OF DELVSIN             DP      B+7M/CS
027506,000227:                                                                                                 #  DEBRIS QTEMP    TEMP. ERASABLE
027507,000228:                                                                                                 #         QPRET,MPAC
027508,000229:                                                                                                 #         PUSHLIST
027509,000230: 
027510,000231: 31,2000                                          SETLOC   P30S1A                                
027511,000232: 31,2000                                          BANK                                           
027512,000233: 
027513,000234: 31,3102                                          COUNT    35/S30S                               
027514,000235: 
027515,000236: 31,3102           71220        S30.1             STQ      DLOAD                                 
027516,000237: 31,3103           03657                                   QTEMP                                 
027517,000238: 31,3104           03413                                   TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
027518,000239: 31,3105           34041                          STCALL   TDEC1                                 
027519,000240: 31,3106           27022                                   THISPREC                              #  ENCKE ROUTINE FOR 
027520,000241: 
027521,000242: 31,3107           67175                          VLOAD    SXA,2                                 
027522,000243: 31,3110           00007                                   VATT                                  
027523,000244: 31,3111           03746                                   RTX2                                  
027524,000245: 31,3112           27640                          STOVL    VTIG                                  
027525,000246:                                                                                                 # # Page 629
027526,000247: 31,3113           00001                                   RATT                                  
027527,000248: 31,3114           03632                          STORE    RTIG                                  
027528,000249: 31,3115           03540                          STORE    RACT3                                 
027529,000250: 31,3116           53435                          VXV      UNIT                                  
027530,000251: 31,3117           03640                                   VTIG                                  
027531,000252: 31,3120           36617                          STCALL   UNRM                                  
027532,000253: 31,3121           72667                                   LOMAT                                 
027533,000254: 31,3122           61375                          VLOAD    VXM                                   
027534,000255: 31,3123           03405                                   DELVSLV                               
027535,000256: 31,3124           00001                                   0                                     
027536,000257: 31,3125           66172                          VSL1     SXA,1                                 
027537,000258: 31,3126           03745                                   RTX1                                  
027538,000259: 31,3127           03646                          STORE    DELVSIN                               
027539,000260: 31,3130           77646                          ABVAL                                          
027540,000261: 31,3131           27654                          STOVL    VGDISP                                #  MAG DELV
027541,000262: 31,3132           03632                                   RTIG                                  
027542,000263: 31,3133           53315                          PDVL     VAD                                   
027543,000264: 31,3134           03646                                   DELVSIN                               
027544,000265: 31,3135           03640                                   VTIG                                  
027545,000266: 31,3136           77624                          CALL                                           
027546,000267: 31,3137           45312                                   PERIAPO1                              
027547,000268: 31,3140           77624                          CALL                                           
027548,000269: 31,3141           45422                                   SHIFTR1                               
027549,000270: 31,3142           77624                          CALL                                           
027550,000271: 31,3143           46754                                   MAXCHK                                
027551,000272: 31,3144           16366                          STODL    HPER                                  #  PERIGEE ALT B+29
027552,000273: 31,3145           00005                                   4D                                    
027553,000274: 31,3146           77624                          CALL                                           
027554,000275: 31,3147           45422                                   SHIFTR1                               
027555,000276: 31,3150           77624                          CALL                                           
027556,000277: 31,3151           46754                                   MAXCHK                                
027557,000278: 31,3152           36364                          STCALL   HAPO                                  #  APOGEE ALT B+29
027558,000279: 31,3153           03657                                   QTEMP                                 
027559,000280: 
027560,000281:                                                                                                 # # Page 630
027561,000282:                                                                                                 #  S31.1  PROGRAM DESCRIPTION                   26DEC67
027562,000283:                                                                                                 #  MOD.1 BY S.ZELDIN
027563,000284: 
027564,000285:                                                                                                 #  S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
027565,000286:                                                                                                 #  APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
027566,000287: 
027567,000288:                                                                                                 #  CALLING SEQUENCE
027568,000289:                                                                                                 #          L      CALL
027569,000290:                                                                                                 #        L +1          S31.1
027570,000291: 
027571,000292:                                                                                                 #  NORMAL EXIT MODE
027572,000293:                                                                                                 #          AT L +2 OF CALLING SEQUENCE(GOTO L+2)
027573,000294:                                                                                                 #  SUBROUTINES CALLED
027574,000295:                                                                                                 #           AGAIN
027575,000296:                                                                                                 #           PERIAPO1
027576,000297:                                                                                                 #           SHIFTR1
027577,000298:                                                                                                 #           MIDGIM
027578,000299:                                                                                                 #  NO ALARM OR ABORT MODES
027579,000300:                                                                                                 #  INPUT
027580,000301:                                                                                                 #           DELLT4          DP  +28
027581,000302:                                                                                                 #           TIG            DP  +28
027582,000303:                                                                                                 #           RTARG           VCT +29
027583,000304:                                                                                                 #  OUTPUT
027584,000305:                                                                                                 #           DELVLVC         VCT +7
027585,000306:                                                                                                 #           VGDISP          DP  +7
027586,000307:                                                                                                 #           HAPO            DP  +29
027587,000308:                                                                                                 #           HPER            DP  +29
027588,000309:                                                                                                 #           TPASS4          DP  +28
027589,000310:                                                                                                 #  DEBRIS  - QTEMP
027590,000311: 31,3154           71220        S31.1             STQ      DLOAD                                 
027591,000312: 31,3155           03657                                   QTEMP                                 
027592,000313: 31,3156           03413                                   TIG                                   
027593,000314: 31,3157           34041                          STCALL   TDEC1                                 
027594,000315: 31,3160           61663                                   AGAIN                                 #  RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
027595,000316: 31,3161           63375                          VLOAD    PDVL                                  #  DELUEET3
027596,000317: 31,3162           03632                                   RTIG                                  
027597,000318: 31,3163           03612                                   VIPRIME                               
027598,000319: 31,3164           77624                          CALL                                           
027599,000320: 31,3165           45312                                   PERIAPO1                              
027600,000321: 31,3166           77624                          CALL                                           
027601,000322: 31,3167           45422                                   SHIFTR1                               
027602,000323: 31,3170           77624                          CALL                                           
027603,000324: 31,3171           46754                                   MAXCHK                                
027604,000325: 31,3172           16366                          STODL    HPER                                  #  B29
027605,000326: 31,3173           00005                                   4D                                    
027606,000327: 31,3174           77624                          CALL                                           
027607,000328: 31,3175           45422                                   SHIFTR1                               
027608,000329: 31,3176           77624                          CALL                                           
027609,000330: 31,3177           46754                                   MAXCHK                                
027610,000331: 31,3200           26364                          STOVL    HAPO                                  #  B29
027611,000332:                                                                                                 # # Page 631
027612,000333: 31,3201           03646                                   DELVEET3                              
027613,000334: 31,3202           00001                          STORE    0                                     
027614,000335: 31,3203           45014                          SET      CALL                                  
027615,000336: 31,3204           01072                                   AVFLAG                                
027616,000337: 31,3205           10653                                   MIDGIM                                #  GET DELVLVC B7 FORDISPLAY
027617,000338: 31,3206           77646                          ABVAL                                          
027618,000339: 31,3207           17654                          STODL    VGDISP                                #  B+7 FOR DISPLAY
027619,000340: 31,3210           03423                                   DELLT4                                
027620,000341: 31,3211           77615                          DAD                                            
027621,000342: 31,3212           03413                                   TIG                                   
027622,000343: 31,3213           37656                          STCALL   TPASS4                                #  FOR S40.1
027623,000344: 31,3214           03657                                   QTEMP                                 
027624,000345: 
027625,000346:                                                                                                 # # Page 632
027626,000347:                                                                                                 #  SUBROUTINE NAME:      DELRSPL                                           (CONTINUATION OF V 62 IN CSM IF P11 ACTI
027627,000348:                                                                                                 #  TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
027628,000349:                                                                                                 #  MOD NO:  0           MOD BY:  ZELDIN               DATE:
027629,000350:                                                                                                 #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER      DATE:  11 APR 67
027630,000351:                                                                                                 #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER      DATE:  12 MAY 67     ADD UR.RT CALC WHEN BELOW 300K FT
027631,000352:                                                                                                 #  MOD NO:  2.1         MOD BY:  RR BAIRNSFATHER      DATE: 5 JULY 67      FIX ERROR ON MOD. 2.
027632,000353:                                                                                                 #  MOD NO:  3           MOD BY:  RR BAIRNSFATHER      DATE:  12 JUL 67     CHANGE SIGN OF DISPLAYED ERROR.
027633,000354:                                                                                                 #  MOD 4                MOD BY   S.ZELDIN             DATE  3 APRIL 68      CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
027634,000355:                                                                                                 #  FUNCTION:            CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE     MEASURE OF IN-PLANE SPLASH DOWN
027635,000356:                                                                                                 #                       ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT  ABOVE PAD RADIUS IS POSITIVE:
027636,000357:                                                                                                 #                       SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGEL + ESTIMATED ENTRY ANGLE.
027637,000358:                                                                                                 #                       THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED.  IF THE FREE-FALL TRANSFER
027638,000359:                                                                                                 #                       ANGLE IS NEGATIVE:  SPASH ERROR= -RANGE TO TARGET
027639,000360:                                                                                                 #                       THE PRESENT TARGET LOCATION IS USED.
027640,000361:                                                                                                 #  CALLING SEQUENCE:    CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
027641,000362:                                                                                                 #  SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
027642,000363:                                                                                                 #  EXIT:                RETURN DIRECTLY TO V 82 PROG. AT SPLRET
027643,000364:                                                                                                 #  ERASABLE INITIALIZATION   LEFT BY SR30.1 AND V82GON1
027644,000365:                                                                                                 #  OUTPUT:  RSP-RREC  RANGE IN REVOLUTIONS.                                DSKY DISPLAY IN N. MI.
027645,000366:                                                                                                 #  DEBRIS:  QPRET, PDL0 ...PDL7 ,PDL10
027646,000367: 
027647,000368:                                                                                                 #  THETA(1)
027648,000369: 
027649,000370: 
027650,000371: 32,2017                                          BANK     32                                    
027651,000372: 32,2000                                          SETLOC   DELRSPL1                              
027652,000373: 32,2000                                          BANK                                           
027653,000374: 32,2017                                          COUNT*   $$/P30                                #  PROGRAMS: P30 EXTERNAL DELTA V
027654,000375: 
027655,000376: 32,2017           00011        DELRSPL           STORE    8D                                    
027656,000377: 32,2020           45244                          BPL      DSU                                   
027657,000378: 32,2021           64063                                   CANTDO                                #  GONE PAST 300K FT ALT
027658,000379: 32,2022           16326                                   1BITDP                                
027659,000380: 32,2023           45000                          BOV      CALL                                  
027660,000381: 32,2024           64063                                   CANTDO                                #  POSMAX INDICATES NO 300K FT SOLUTION.
027661,000382: 32,2025           55050                                   VGAMCALC                              #  +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
027662,000383: 32,2026           45006                          PUSH     CALL                                  
027663,000384: 32,2027           56573                                   TFF/TRIG                              
027664,000385: 32,2030           77624                          CALL                                           
027665,000386: 32,2031           64071                                   AUGEKUGL                              
027666,000387: 32,2032           65525                          PDDL     ACOS                                  #  T ENTRY PDL 6
027667,000388: 32,2033           00017                                   CDELF/2                               
027668,000389: 32,2034           77615                          DAD                                            
027669,000390: 32,2035           00005                                   4                                     
027670,000391: 32,2036           26350        GETARG            STOVL    THETA(1)                              
027671,000392: 32,2037           03401                                   LAT(SPL)                              
027672,000393: 32,2040           15104                          STODL    LAT                                   
027673,000394: 32,2041           15332                                   HI6ZEROS                              
027674,000395: 32,2042           15110                          STODL    ALT                                   #  ALT=0  = LAT +4
027675,000396: 32,2043           43225                          DSU      DAD                                   
027676,000397:                                                                                                 # # Page 633
027677,000398: 32,2044           00011                                   8D                                    
027678,000399: 32,2045           01205                                   PIPTIME                               
027679,000400: 32,2046           45014                          CLEAR    CALL                                  
027680,000401: 32,2047           00662                                   ERADFLAG                              
027681,000402: 32,2050           26373                                   LALOTORV                              #  R RECOV. IN ALPHAV AND MPAC
027682,000403: 
027683,000404: 32,2051           63256                          UNIT     PDVL                                  
027684,000405: 32,2052           02327                                   RONE                                  
027685,000406: 32,2053           50256                          UNIT     DOT                                   
027686,000407: 32,2054           65552                          SL1      ARCCOS                                
027687,000408: 32,2055           77621                          BDSU                                           #  ERROR = THETA EST - THETA TARG
027688,000409:                                                                                                 #                                NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
027689,000410:                                                                                                 #                                POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
027690,000411: 32,2056           02350                                   THETA(1)                              
027691,000412: 32,2057           36356        DELRDONE          STCALL   RSP-RREC                              #  DOWNRANGE RECOVERY RANGE ERROR    /360
027692,000413: 32,2060           27404                                   INTWAKE0                              
027693,000414: 32,2061           77624                          CALL                                           
027694,000415: 32,2062           46653                                   SPLRET                                
027695,000416: 32,2063           65345        CANTDO            DLOAD    PDDL                                  #  INITIALIZE ERASE TO DOT TARGET AND UR
027696,000417:                                                                                                 #                                           FOR RANGE ANGLE.
027697,000418: 32,2064           15330                                   HIDPHALF                              #  TO PDL 0 FOR DEN IN DDV.
027698,000419: 32,2065           15332                                   HI6ZEROS                              
027699,000420: 32,2066           77606                          PUSH                                           #  ZERO TO PDL 2 FOR PHI ENTRY
027700,000421: 32,2067           34011                          STCALL   8D                                    
027701,000422: 32,2070           64036                                   GETARG                                #  GO SET RSP-RREC =0
027702,000423: 
027703,000424: 32,2071           77775        AUGEKUGL          VLOAD                                          
027704,000425: 32,2072           24245                                   X1CON      -2                         
027705,000426: 32,2073           14045                          STODL    X1         -2                         
027706,000427: 32,2074           00001                                   0                                     
027707,000428: 32,2075           50025                          DSU      BMN                                   
027708,000429: 32,2076           24237                                   V(21K)                                
027709,000430: 32,2077           64124                                   LOOPSET                               
027710,000431: 32,2100           65060                          XSU,1    XCHX,2                                
027711,000432: 32,2101           00050                                   S1                                    
027712,000433: 32,2102           00046                                   X1                                    
027713,000434: 32,2103           45324                          XCHX,2   DSU                                   
027714,000435: 32,2104           00050                                   S1                                    
027715,000436: 32,2105           24225                                   V(3K)                                 
027716,000437: 32,2106           65040                          BMN      XCHX,2                                
027717,000438: 32,2107           64124                                   LOOPSET                               
027718,000439: 32,2110           00050                                   S1                                    
027719,000440: 32,2111           50025                          DSU      BMN                                   
027720,000441: 32,2112           24235                                   V(4K)                                 
027721,000442: 32,2113           64124                                   LOOPSET                               
027722,000443: 32,2114           65124                          XCHX,2   XCHX,2                                
027723,000444: 32,2115           00050                                   S1                                    
027724,000445: 32,2116           00046                                   X1                                    
027725,000446: 32,2117           50025                          DSU      BMN                                   
027726,000447: 32,2120           24221                                   V(400)                                
027727,000448:                                                                                                 # # Page 634
027728,000449: 32,2121           64124                                   LOOPSET                               
027729,000450: 32,2122           77730                          SXA,1                                          
027730,000451: 32,2123           00050                                   S1                                    
027731,000452: 32,2124           52110        LOOPSET           INCR,1   GOTO                                  
027732,000453: 32,2125           00001                          DEC      1          B-14                       
027733,000454: 32,2126           64131                                   K1K2LOOP                              
027734,000455: 32,2127           77730        K2CALC            SXA,1                                          
027735,000456: 32,2130           00050                                   S1                                    
027736,000457: 32,2131           44745        K1K2LOOP          DLOAD    DSU*                                  
027737,000458: 32,2132           00001                                   0                                     
027738,000459: 32,2133           24234                                   V(32K)     +1,1                       
027739,000460: 32,2134           42603                          DMP*     DAD*                                  
027740,000461: 32,2135           24220                                   YK1K2      +1,1                       
027741,000462: 32,2136           24204                                   CK1K2      +1,1                       
027742,000463: 32,2137           60125                          PDDL     TIX,1                                 
027743,000464: 32,2140           00003                                   2                                     
027744,000465: 32,2141           64127                                   K2CALC                                
027745,000466: 32,2142           55225                          DSU      BDDV                                  
027746,000467: 32,2143           50000                          BOV      BMN                                   
027747,000468: 32,2144           64163                                   MAXPHI                                
027748,000469: 32,2145           64163                                   MAXPHI                                
027749,000470: 32,2146           45325        PHICALC           PDDL     DSU                                   #  PHI ENTRY PDL 4D
027750,000471: 32,2147           00001                                   0                                     
027751,000472: 32,2150           24245                                   V(26K)                                
027752,000473: 32,2151           71244                          BPL      DLOAD                                 
027753,000474: 32,2152           64160                                   TGR26                                 
027754,000475: 32,2153           24241                                   TLESS26                               
027755,000476: 32,2154           77671                          DDV                                            
027756,000477: 32,2155           00001                                   0                                     
027757,000478: 32,2156           43405        TENT              DMP      RVQ                                   
027758,000479: 32,2157           00005                                   4D                                    
027759,000480: 32,2160           52145        TGR26             DLOAD    GOTO                                  
027760,000481: 32,2161           24243                                   TGR26CON                              
027761,000482: 32,2162           64156                                   TENT                                  
027762,000483: 
027763,000484: 
027764,000485: 32,2163           52145        MAXPHI            DLOAD    GOTO                                  
027765,000486: 32,2164           24167                                   MAXPHIC                               
027766,000487: 32,2165           64146                                   PHICALC                               
027767,000488: 32,2166           02755 01307  MAXPHIC           2DEC     .09259298                             #  2000 NM FOR MAXIMUM PHI ENTRY
027768,000489: 32,2170                                          COUNT*   $$/P30                                
027769,000490: 
027770,000491:                                                                                                 #                                         #                    BELOW
027771,000492:                                                                                                 #                                         # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027772,000493: 
027773,000494: 32,2170           00013 22652                    2DEC     7.07304526 E-4                        #  5500
027774,000495: 32,2172           00005 01642                    2DEC     3.08641975 E-4                        #  2400
027775,000496:                                                                                                 # # Page 635
027776,000497: 32,2174           00005 01642                    2DEC     3.08641975 E-4                        #  2400
027777,000498: 32,2176           77556 53522                    2DEC     -8.8888888 E-3                        #  -3.2
027778,000499: 32,2200           00055 20266                    2DEC     2.7777777  E-3                        #  1
027779,000500: 32,2202           00155 07202  CK1K2             2DEC     6.6666666  E-3                        #  2.4
027780,000501: 32,2204           00000 00000                    2DEC     0          B-28                       #  0
027781,000502: 32,2206           77730 71525                    2DEC*    -1.86909989 E-5        B7*             #  -.443
027782,000503: 32,2210           00000 00000                    2DEC     0          B-28                       
027783,000504: 32,2212           04445 10102                    2DEC*    1.11639691 E-3        B7*             #  .001225
027784,000505: 32,2214           03726 31201                    2DEC*    9.56911636 E-4        B7*             #  .00105
027785,000506: 32,2216           01040 26313  YK1K2             2DEC*    2.59733157 E-4        B7*             #       .000285
027786,000507: 32,2220           00234 01660  V(400)            2DEC     1.2192     B-7                        
027787,000508: 32,2222           25254 01014  V(28K)            2DEC     85.344     B-7                        
027788,000509: 32,2224           02222 15646  V(3K)             2DEC     9.144      B-7                        
027789,000510: 32,2226           22223 16457  V(24K)            2DEC     73.152     B-7                        
027790,000511: 32,2230           25254 01014                    2DEC     85.344     B-7                        
027791,000512: 32,2232           30304 23351  V(32K)            2DEC     97.536     B-7                        
027792,000513: 32,2234           03030 22335  V(4K)             2DEC     12.192     B-7                        
027793,000514: 32,2236           20000 00000  V(21K)            2DEC     64.000     B-7                        
027794,000515: 32,2240           00033 05763  TLESS26           2DEC*    5.70146688 E7         B-35*           #  8660PHI/V
027795,000516: 32,2242           00053 36200  TGR26CON          2DEC     7.2        E5         B-28            #  PHI/3
027796,000517: 32,2244           23637 27636  V(26K)            2DEC     79.248     B-7                        #  26000
027797,000518: 32,2246           00012        X1CON             DEC      10         B-14                       
027798,000519: 32,2247           00010                          DEC      8          B-14                       
027799,000520: 32,2250           00006                          DEC      6          B-14                       
027800,000521:                                                                                                 #                                           <<<<* TABLE IS INDEXED. KEEP IN ORDER >>>
027801,000522:                                                                                                 #                                                               ABOVE
027802,000523: 
027803,000524:                                                                                                 # # Page 636
027804,000525:                                                                                                 #  ..... AVFLAG/P .....
027805,000526: 
027806,000527:                                                                                                 #  SUBROUTINES USED
027807,000528: 
027808,000529:                                                                                                 #        UPFLAG
027809,000530:                                                                                                 #        DOWNFLAG
027810,000531: 35,2000                                          SETLOC   P30S1                                 
027811,000532: 35,2000                                          BANK                                           
027812,000533: 35,3726  E4,1770                                 EBANK=   SUBEXIT                               
027813,000534: 35,3726           00006        AVFLAGA           EXTEND                                         #  AVFLAG = CSM
027814,000535: 35,3727           23770                          QXCH     SUBEXIT                               
027815,000536: 35,3730           05447                          TC       DOWNFLAG                              
027816,000537: 35,3731           00050                          ADRES    AVFLAG                                #  BIT 5  FLAG 2
027817,000538: 35,3732           34753                          CAF      EBANK7                                
027818,000539: 35,3733           54003                          TS       EBANK                                 
027819,000540: 35,3734  E7,1424                                 EBANK=   ECSTEER                               
027820,000541: 35,3734           34676                          CAF      BIT13                                 
027821,000542: 35,3735           55424                          TS       ECSTEER                               #  SET ECSTEER = 1
027822,000543: 35,3736           34700                          CAF      EBANK4                                
027823,000544: 35,3737           54003                          TS       EBANK                                 
027824,000545: 35,3740  E4,1770                                 EBANK=   SUBEXIT                               
027825,000546: 35,3740           01770                          TC       SUBEXIT                               
027826,000547: 35,3741           00006        AVFLAGP           EXTEND                                         #  AVFLAG = LEM
027827,000548: 35,3742           23770                          QXCH     SUBEXIT                               
027828,000549: 35,3743           05435                          TC       UPFLAG                                
027829,000550: 35,3744           00050                          ADRES    AVFLAG                                #  BIT 5  FLAG 2
027830,000551: 35,3745           01770                          TC       SUBEXIT                               
027831,000552: 35,3746           00006        P20FLGON          EXTEND                                         
027832,000553: 35,3747           23770                          QXCH     SUBEXIT                               
027833,000554: 35,3750           05435                          TC       UPFLAG                                
027834,000555: 35,3751           00031                          ADRES    TRACKFLG                              
027835,000556: 35,3752           05435                          TC       UPFLAG                                
027836,000557: 35,3753           00027                          ADRES    UPDATFLG                              
027837,000558: 35,3754           01770                          TC       SUBEXIT                               

End of include-file P30,P37.agc.  Parent file is MAIN.agc