Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

027420,000002:                                                                                                  ## Copyright:   Public domain.
027421,000003:                                                                                                  ## Filename:    P30,P37.agc
027422,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
027423,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
027424,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
027425,000007:                                                                                                  ## Assembler:   yaYUL
027426,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
027427,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
027428,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
027429,000011:                                                                                                  ## Mod history: 2011-02-19 JL   Adapted from corresponding Colossus 249 file.
027430,000012:                                                                                                  ##              2011-04-29 JL   Added missing line at the bottom of page 632.
027431,000013:                                                                                                  ##              2016-12-31 RSB  Proofed comment text using octopus/ProoferComments,
027432,000014:                                                                                                  ##                              and corrected errors found.
027433,000015:                                                                                                  ##              2017-01-17 RSB  Fixed comment-text errors noted while diff'ing
027434,000016:                                                                                                  ##                              vs Colossus 249.
027435,000017: 

Page 624

027437,000019: 32,2017                                           BANK     32                                    
027438,000020: 
027439,000021: 35,2000                                           SETLOC   P30S1                                 
027440,000022: 35,2000                                           BANK                                           
027441,000023: 
027442,000024: 35,3544  E7,1625                                  EBANK=   +MGA                                  
027443,000025: 
027444,000026: 35,3544                                           COUNT    35/P34                                
027445,000027: 
027446,000028: 35,3544           77420        DISPMGA            STQ      EXIT                                  #  USED IN P30
027447,000029: 
027448,000030: 35,3545           02370                                    RGEXIT                                
027449,000031: 35,3546           03564                           TC       COMPTGO                               
027450,000032: 
027451,000033: 35,3547           33132        DISP45             CAF      V16N45                                
027452,000034: 35,3550           04555                           TC       BANKCALL                              
027453,000035: 35,3551           20763                           CADR     GOFLASHR                              
027454,000036: 35,3552           04106                           TC       GOTOPOOH                              
027455,000037: 35,3553           03560                           TC       END45                                 
027456,000038: 35,3554           03547                           TC       DISP45                                
027457,000039: 35,3555           05301        P30PHSI            TC       PHASCHNG                              
027458,000040: 35,3556           00014                           OCT      14                                    
027459,000041: 35,3557           05112                           TCR      ENDOFJOB                              
027460,000042: 35,3560           06006        END45              TC       INTPRET                               
027461,000043: 35,3561           52014                           CLEAR    GOTO                                  
027462,000044: 35,3562           03664                                    TIMRFLAG                              
027463,000045: 35,3563           02370                                    RGEXIT                                
027464,000046: 
027465,000047: 35,3564           00006        COMPTGO            EXTEND                                         #  USED TO COMPUTE TTOGO
027466,000048: 35,3565           23066                           QXCH     PHSPRDT6                              #  ** GROUP 6 TEMPORARY USED ,, BEWARE **
027467,000049: 
027468,000050: 35,3566           05435                           TC       UPFLAG                                #  SET TIMRFLAG
027469,000051: 35,3567           00155                           ADRES    TIMRFLAG                              #  BIT 11 FLAG 7
027470,000052: 35,3570           34714                           CAF      ZERO                                  
027471,000053: 35,3571           55145                           TS       NVWORD1                               
027472,000054: 
027473,000055: 35,3572           00004                           INHINT                                         
027474,000056: 35,3573           34712                           CAF      ONE                                   
027475,000057: 35,3574           05140                           TC       WAITLIST                              
027476,000058: 35,3575  E7,1412                                  EBANK=   TIG                                   
027477,000059: 35,3575           03174 50067                     2CADR    CLOKTASK                              
027478,000060: 
027479,000061: 35,3577           05261                           TC       2PHSCHNG                              
027480,000062: 35,3600           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
027481,000063: 35,3601           05024                           OCT      05024                                 #  GROUP 4 CONTINUES HERE
027482,000064: 35,3602           13000                           OCT      13000                                 
027483,000065: 
027484,000066: 35,3603           01066                           TC       PHSPRDT6                              
027485,000067: 

Page 625

027487,000069:                                                                                                  #  PROGRAM DESCRIPTION  P30    DATE 3-6-67
027488,000070: 
027489,000071:                                                                                                  #  MOD.I BY S. ZELDIN- TO ADD P31 AND AD APT P30 FOR P31 USE.    22DEC67
027490,000072:                                                                                                  #  FUNCTIONAL DESCRIPTION
027491,000073:                                                                                                  #  +30(EXTERNAL DELTA-V TARGETTING PROGRAM)
027492,000074:                                                                                                  #      ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES,FOR DISPLAY,
027493,000075:                                                                                                  #      APOGEE,PERIGEE,DELV(MAG),MGA ASSOCIATED WITH DESIRED MANEUVER
027494,000076: 
027495,000077:                                                                                                  #  P31 (GENERAL LAMBERT AIMPOINT GUIDANCE)
027496,000078:                                                                                                  #  A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
027497,000079:                                                                                                  #  POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
027498,000080:                                                                                                  #      BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS,AND
027499,000081:                                                                                                  #      ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
027500,000082:                                                                                                  #      AND,FOR DISPLAY,APOGEE,PERIGEE,DELV(7AG),+MGA ASSOCIATED WITH
027501,000083:                                                                                                  #      DESIRED MANEUVER
027502,000084: 
027503,000085:                                                                                                  #      THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
027504,000086:                                                                                                  #         S30.1 (P30 ONLY)
027505,000087:                                                                                                  #         S31.1 (P31 ONLY)
027506,000088:                                                                                                  #         P30/P31 - DISPLAYS TIG
027507,000089:                                                                                                  #         CNTUP30 - DISPLAYS DELV(LV)
027508,000090:                                                                                                  #         PARAM30 - DISPLAYS APOGEE,PERIGEE,DELV(MAG),MGA,TIME FROM TIG,
027509,000091:                                                                                                  #                   MARKS SINCE LAST THRUSTING MANEUVER
027510,000092: 
027511,000093:                                                                                                  #  CALLING SEQUENCE VIA JOB FROM V37
027512,000094: 
027513,000095:                                                                                                  #  EXIT VIA V37 CALL OR GOTOPOOH
027514,000096: 
027515,000097:                                                                                                  #  OUTPUT FOR POWERED FLIGHT
027516,000098:                                                                                                  #           VTIG   X
027517,000099:                                                                                                  #           RTIG    XSEE S30.1
027518,000100:                                                                                                  #           DELVSIN X
027519,000101:                                                                                                  #           VGDISP
027520,000102:                                                                                                  #           RTARG  X
027521,000103:                                                                                                  #           TPASS4  X SEE S31.1
027522,000104:                                                                                                  #                  X
027523,000105: 
027524,000106: 
027525,000107: 35,3604                                           COUNT    35/P30                                
027526,000108: 
027527,000109: 35,3604           03636        P30                TC       P30/P31                               
027528,000110: 35,3605           03655                           TC       CNTNUP30                              
027529,000111: 35,3606           05447                           TC       DOWNFLAG                              #  RESET UPDATFLG
027530,000112: 35,3607           00027                           ADRES    UPDATFLG                              #  BIT 7  FLAG 1
027531,000113: 35,3610           06006                           TC       INTPRET                               
027532,000114: 35,3611           77624                           CALL                                           
027533,000115: 35,3612           63102                                    S30.1                                 
027534,000116: 35,3613           77776                           EXIT                                           
027535,000117: 35,3614           03665                           TC       PARAM30                               
027536,000118: 35,3615           05435                           TC       UPFLAG                                

Page 626

027538,000120: 35,3616           00045                           ADRES    XDELVFLG                              #  SET XDELVFLG    BIT 8  FLAG 2
027539,000121: 35,3617           14106                           TCF      GOTOPOOH                              
027540,000122: 
027541,000123: 35,3620           03636        P31                TC       P30/P31                               
027542,000124: 35,3621           05447                           TC       DOWNFLAG                              
027543,000125: 35,3622           00027                           ADRES    UPDATFLG                              #  RESET UPDATFLG  BIT 7 FLAG 1
027544,000126: 35,3623           05447                           TC       DOWNFLAG                              
027545,000127: 35,3624           00156                           ADRES    NORMSW                                #  RESET NORMSW       BIT 10  FLAG 7
027546,000128: 35,3625           06006                           TC       INTPRET                               
027547,000129: 35,3626           77624                           CALL                                           
027548,000130: 35,3627           63154                                    S31.1                                 
027549,000131: 35,3630           77776                           EXIT                                           
027550,000132: 35,3631           03655                           TC       CNTNUP30                              
027551,000133: 35,3632           03665                           TC       PARAM30                               
027552,000134: 35,3633           05447                           TC       DOWNFLAG                              
027553,000135: 35,3634           00045                           ADRES    XDELVFLG                              #  BIT 8  FLAG 2
027554,000136: 35,3635           14106                           TCF      GOTOPOOH                              
027555,000137: 
027556,000138: 35,3636           56002        P30/P31            XCH      Q                                     
027557,000139: 35,3637           55664                           TS       P30/31RT                              
027558,000140: 35,3640           05435                           TC       UPFLAG                                
027559,000141: 35,3641           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG  BIT 7  FLAG 1
027560,000142: 35,3642           05435                           TC       UPFLAG                                
027561,000143: 35,3643           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG  BIT 5  FLAG 1
027562,000144: 35,3644           33722                           CAF      V06N33                                #  T OF IGN
027563,000145: 35,3645           04555                           TC       BANKCALL                              
027564,000146: 35,3646           20763                           CADR     GOFLASHR                              
027565,000147: 35,3647           14106                           TCF      GOTOPOOH                              
027566,000148: 35,3650           01664                           TC       P30/31RT                              
027567,000149: 35,3651           13642                           TCF      P30/P31    +4                         
027568,000150: 35,3652           05301                           TC       PHASCHNG                              
027569,000151: 35,3653           00014                           OCT      00014                                 
027570,000152: 35,3654           05112                           TC       ENDOFJOB                              
027571,000153: 
027572,000154: 
027573,000155: 35,3655           56002        CNTNUP30           XCH      Q                                     
027574,000156: 35,3656           55127                           TS       P30/RET                               
027575,000157: 35,3657           33131                           CAF      V06N81                                
027576,000158: 35,3660           04555                           TC       BANKCALL                              
027577,000159: 35,3661           20624                           CADR     GOFLASH                               
027578,000160: 35,3662           14106                           TCF      GOTOPOOH                              
027579,000161: 35,3663           01127                           TC       P30/RET                               
027580,000162: 35,3664           13657                           TCF      CNTNUP30   +2                         
027581,000163: 35,3665           56002        PARAM30            XCH      Q                                     
027582,000164: 35,3666           55664                           TS       P30/31RT                              
027583,000165: 35,3667           33723                           CAF      V06N42                                
027584,000166: 35,3670           04555                           TC       BANKCALL                              
027585,000167: 35,3671           20624                           CADR     GOFLASH                               
027586,000168: 35,3672           04106                           TC       GOTOPOOH                              #  ON TERMINATION GOTOPOOH
027587,000169: 35,3673           13675                           TCF      REFTEST                               #  ON PROCEED GO DO REFTEST

Page 627

027589,000171: 35,3674           13667                           TCF      PARAM30    +2                         
027590,000172: 35,3675           34676        REFTEST            CAF      BIT13                                 
027591,000173: 35,3676           70077                           MASK     STATE      +3                         #  REFSMFLAG
027592,000174: 35,3677           00006                           EXTEND                                         
027593,000175: 35,3700           13710                           BZF      NOTSET                                #  REFSMFLAG =0 , THEN BRANCH TO NOTSET
027594,000176: 35,3701           06006                           TC       INTPRET                               
027595,000177: 35,3702           41575                           VLOAD    PUSH                                  
027596,000178: 35,3703           03646                                    DELVSIN                               
027597,000179: 35,3704           77624                           CALL                                           
027598,000180: 35,3705           10660                                    GET+MGA                               
027599,000181: 35,3706           77650                           GOTO                                           
027600,000182: 35,3707           73714                                    FLASHMGA                              
027601,000183: 35,3710           00006        NOTSET             EXTEND                                         
027602,000184: 35,3711           43721                           DCS      MARSDP                                
027603,000185: 35,3712           53626                           DXCH     +MGA                                  #  +MGA, +MGA+1  CONTAINS (-00001)
027604,000186: 35,3713           06006                           TC       INTPRET                               
027605,000187: 35,3714           77624        FLASHMGA           CALL                                           
027606,000188: 35,3715           73544                                    DISPMGA                               
027607,000189: 35,3716           77776                           EXIT                                           
027608,000190: 35,3717           01664                           TC       P30/31RT                              
027609,000191: 35,3720           00000        MARSDP             OCT      00000                                 #  (00000) (16440)  = (+00001)
027610,000192: 35,3721           35100                           OCT      35100                                 
027611,000193:                                                                                                  #                                          ( .01 ) DEGREES IN THE LOW ORDER REGISTE
027612,000194: 35,3722           01441        V06N33             VN       0633                                  
027613,000195: 35,3723           01452        V06N42             VN       0642                                  
027614,000196: 35,3724           04043        V16N35             VN       1635                                  
027615,000197: 35,3725           01455        V06N45             VN       0645                                  
027616,000198: 

Page 628

027618,000200:                                                                                                  #  PROGRAM DESCRIPTION S30.1       DATE 9NOV66
027619,000201: 
027620,000202:                                                                                                  #  MOD NO 1        LOG SECTION  P30,P37
027621,000203:                                                                                                  #  MOD  BY  RAMA AIYAWAR **
027622,000204:                                                                                                  #  MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS         29DEC67
027623,000205:                                                                                                  #  FUNCTIONAL DESCRIPTION
027624,000206:                                                                                                  #           BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
027625,000207:                                                                                                  #  IGNITION(VTIG),TIME OF IGNITION(TIG),DELV(LV),COMPUTE PERIGEE ALTITUDE
027626,000208:                                                                                                  #  A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS.(DELVSIN)
027627,000209:                                                                                                  #  CALLING SEQUENCE
027628,000210:                                                                                                  #     L     CALL
027629,000211:                                                                                                  #     L+1          S30.1
027630,000212:                                                                                                  #  NORMAL EXIT MODE
027631,000213:                                                                                                  #      AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027632,000214:                                                                                                  #  SUBROUTINES CALLED
027633,000215:                                                                                                  #           THISPREC
027634,000216:                                                                                                  #           PERIAPO
027635,000217:                                                                                                  #  ALARM OR ABORT EXIT MODES
027636,000218:                                                                                                  #                  NONE
027637,000219:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
027638,000220:                                                                                                  #           TIG       TIME OF IGNITION                   DP     B28CS
027639,000221:                                                                                                  #           DELVSLV   SPECIFIED DELTA-V IN LOCAL VERT.
027640,000222:                                                                                                  #                     COORDS. OF ACTIVE VEHICLE AT
027641,000223:                                                                                                  #           TIME OF IGNITION                         VCT.    B+7M/CS
027642,000224:                                                                                                  #  OUTPUT
027643,000225:                                                                                                  #           RTIG         POSITION AT TIG             VCT.    B+29M
027644,000226:                                                                                                  #           VTIG         VELOCITY AT TIG             VCT.    B+7M
027645,000227:                                                                                                  #           HAPO         APOGEE ALT.                 DP      B+29M
027646,000228:                                                                                                  #           HPER         PERIGEE ALT.                DP      B+29M
027647,000229:                                                                                                  #           DELVSIN      DELVSLV IN REF COORDS       VCT.    B+7M/CS
027648,000230:                                                                                                  #           VGDISP       MAG. OF DELVSIN             DP      B+7M/CS
027649,000231:                                                                                                  #  DEBRIS QTEMP    TEMP. ERASABLE
027650,000232:                                                                                                  #         QPRET,MPAC
027651,000233:                                                                                                  #         PUSHLIST
027652,000234: 
027653,000235: 31,2000                                           SETLOC   P30S1A                                
027654,000236: 31,2000                                           BANK                                           
027655,000237: 
027656,000238: 31,3102                                           COUNT    35/S30S                               
027657,000239: 
027658,000240: 31,3102           71220        S30.1              STQ      DLOAD                                 
027659,000241: 31,3103           03657                                    QTEMP                                 
027660,000242: 31,3104           03413                                    TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
027661,000243: 31,3105           34041                           STCALL   TDEC1                                 
027662,000244: 31,3106           27022                                    THISPREC                              #  ENCKE ROUTINE FOR 
027663,000245: 
027664,000246: 31,3107           67175                           VLOAD    SXA,2                                 
027665,000247: 31,3110           00007                                    VATT                                  
027666,000248: 31,3111           03746                                    RTX2                                  
027667,000249: 31,3112           27640                           STOVL    VTIG                                  

Page 629

027669,000251: 31,3113           00001                                    RATT                                  
027670,000252: 31,3114           03632                           STORE    RTIG                                  
027671,000253: 31,3115           03540                           STORE    RACT3                                 
027672,000254: 31,3116           53435                           VXV      UNIT                                  
027673,000255: 31,3117           03640                                    VTIG                                  
027674,000256: 31,3120           36617                           STCALL   UNRM                                  
027675,000257: 31,3121           72667                                    LOMAT                                 
027676,000258: 31,3122           61375                           VLOAD    VXM                                   
027677,000259: 31,3123           03405                                    DELVSLV                               
027678,000260: 31,3124           00001                                    0                                     
027679,000261: 31,3125           66172                           VSL1     SXA,1                                 
027680,000262: 31,3126           03745                                    RTX1                                  
027681,000263: 31,3127           03646                           STORE    DELVSIN                               
027682,000264: 31,3130           77646                           ABVAL                                          
027683,000265: 31,3131           27654                           STOVL    VGDISP                                #  MAG DELV
027684,000266: 31,3132           03632                                    RTIG                                  
027685,000267: 31,3133           53315                           PDVL     VAD                                   
027686,000268: 31,3134           03646                                    DELVSIN                               
027687,000269: 31,3135           03640                                    VTIG                                  
027688,000270: 31,3136           77624                           CALL                                           
027689,000271: 31,3137           45312                                    PERIAPO1                              
027690,000272: 31,3140           77624                           CALL                                           
027691,000273: 31,3141           45422                                    SHIFTR1                               
027692,000274: 31,3142           77624                           CALL                                           
027693,000275: 31,3143           46754                                    MAXCHK                                
027694,000276: 31,3144           16366                           STODL    HPER                                  #  PERIGEE ALT B+29
027695,000277: 31,3145           00005                                    4D                                    
027696,000278: 31,3146           77624                           CALL                                           
027697,000279: 31,3147           45422                                    SHIFTR1                               
027698,000280: 31,3150           77624                           CALL                                           
027699,000281: 31,3151           46754                                    MAXCHK                                
027700,000282: 31,3152           36364                           STCALL   HAPO                                  #  APOGEE ALT B+29
027701,000283: 31,3153           03657                                    QTEMP                                 
027702,000284: 

Page 630

027704,000286:                                                                                                  #  S31.1  PROGRAM DESCRIPTION                   28DEC67
027705,000287:                                                                                                  #  MOD.1 BY S.ZELDIN
027706,000288: 
027707,000289:                                                                                                  #  S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
027708,000290:                                                                                                  #  APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
027709,000291: 
027710,000292:                                                                                                  #  CALLING SEQUENCE
027711,000293:                                                                                                  #          L      CALL
027712,000294:                                                                                                  #        L +1          S31.1
027713,000295: 
027714,000296:                                                                                                  #  NORMAL EXIT MODE
027715,000297:                                                                                                  #          AT L +2 OF CALLING SEQUENCE(GOTO L+2)
027716,000298:                                                                                                  #  SUBROUTINES CALLED
027717,000299:                                                                                                  #           AGAIN
027718,000300:                                                                                                  #           PERIAPO1
027719,000301:                                                                                                  #           SHIFTR1
027720,000302:                                                                                                  #           MIDGIM
027721,000303:                                                                                                  #  NO ALARM OR ABORT MODES
027722,000304:                                                                                                  #  INPUT
027723,000305:                                                                                                  #           DELLT4          DP  +28
027724,000306:                                                                                                  #           TIG            DP  +28
027725,000307:                                                                                                  #           RTARG           VCT +29
027726,000308:                                                                                                  #  OUTPUT
027727,000309:                                                                                                  #           DELVLVC         VCT +7
027728,000310:                                                                                                  #           VGDISP          DP  +7
027729,000311:                                                                                                  #           HAPO            DP  +29
027730,000312:                                                                                                  #           HPER            DP  +29
027731,000313:                                                                                                  #           TPASS4          DP  +28
027732,000314:                                                                                                  #  DEBRIS  - QTEMP
027733,000315: 31,3154           71220        S31.1              STQ      DLOAD                                 
027734,000316: 31,3155           03657                                    QTEMP                                 
027735,000317: 31,3156           03413                                    TIG                                   
027736,000318: 31,3157           34041                           STCALL   TDEC1                                 
027737,000319: 31,3160           61663                                    AGAIN                                 #  RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
027738,000320: 31,3161           63375                           VLOAD    PDVL                                  #  DELUEET3
027739,000321: 31,3162           03632                                    RTIG                                  
027740,000322: 31,3163           03612                                    VIPRIME                               
027741,000323: 31,3164           77624                           CALL                                           
027742,000324: 31,3165           45312                                    PERIAPO1                              
027743,000325: 31,3166           77624                           CALL                                           
027744,000326: 31,3167           45422                                    SHIFTR1                               
027745,000327: 31,3170           77624                           CALL                                           
027746,000328: 31,3171           46754                                    MAXCHK                                
027747,000329: 31,3172           16366                           STODL    HPER                                  #  B29
027748,000330: 31,3173           00005                                    4D                                    
027749,000331: 31,3174           77624                           CALL                                           
027750,000332: 31,3175           45422                                    SHIFTR1                               
027751,000333: 31,3176           77624                           CALL                                           
027752,000334: 31,3177           46754                                    MAXCHK                                
027753,000335: 31,3200           26364                           STOVL    HAPO                                  #  B29

Page 631

027755,000337: 31,3201           03646                                    DELVEET3                              
027756,000338: 31,3202           00001                           STORE    0                                     
027757,000339: 31,3203           45014                           SET      CALL                                  
027758,000340: 31,3204           01072                                    AVFLAG                                
027759,000341: 31,3205           10653                                    MIDGIM                                #  GET DELVLVC B7 FORDISPLAY
027760,000342: 31,3206           77646                           ABVAL                                          
027761,000343: 31,3207           17654                           STODL    VGDISP                                #  B+7 FOR DISPLAY
027762,000344: 31,3210           03423                                    DELLT4                                
027763,000345: 31,3211           77615                           DAD                                            
027764,000346: 31,3212           03413                                    TIG                                   
027765,000347: 31,3213           37656                           STCALL   TPASS4                                #  FOR S40.1
027766,000348: 31,3214           03657                                    QTEMP                                 
027767,000349: 

Page 632

027769,000351:                                                                                                  #  SUBROUTINE NAME:      DELRSPL                                           (CONTINUATION OF V 82 IN CSM IF P11 ACTI
027770,000352:                                                                                                  #  TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
027771,000353:                                                                                                  #  MOD NO:  0           MOD BY:  ZELDIN               DATE:
027772,000354:                                                                                                  #  MOD NO:  1           MOD BY:  RR BAIRNSFATHER      DATE:  11 APR 67
027773,000355:                                                                                                  #  MOD NO:  2           MOD BY:  RR BAIRNSFATHER      DATE:  12 MAY 67     ADD UR.RT CALC WHEN BELOW 300K FT
027774,000356:                                                                                                  #  MOD NO:  2.1         MOD BY:  RR BAIRNSFATHER      DATE: 5 JULY 67      FIX ERROR IN MOD. 2.
027775,000357:                                                                                                  #  MOD NO:  3           MOD BY:  RR BAIRNSFATHER      DATE:  12 JUL 67     CHANGE SIGN OF DISPLAYED ERROR.
027776,000358:                                                                                                  #  MOD 4                MOD BY   S.ZELDIN             DATE  3 APRIL 68     CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
027777,000359:                                                                                                  #  FUNCTION:            CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE     MEASURE OF IN-PLANE SPLASH DOWN
027778,000360:                                                                                                  #                       ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT  ABOVE PAD RADIUS IS POSITIVE:
027779,000361:                                                                                                  #                       SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
027780,000362:                                                                                                  #                       THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED.  IF THE FREE-FALL TRANSFER
027781,000363:                                                                                                  #                       ANGLE IS NEGATIVE:  SPLASH ERROR= -RANGE TO TARGET
027782,000364:                                                                                                  #                       THE PRESENT TARGET LOCATION IS USED.
027783,000365:                                                                                                  #  CALLING SEQUENCE     CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
027784,000366:                                                                                                  #  SUBROUTINES CALLED:  VGAMCALC, TFF/TRIG, LALOTORV.
027785,000367:                                                                                                  #  EXIT                 RETURN DIRECTLY TO V 82 PROG. AT SPLRET
027786,000368:                                                                                                  #  ERASABLE INITIALIZATION   LEFT BY SR30.1 AND V82GON1
027787,000369:                                                                                                  #  OUTPUT:  RSP-RREC  RANGE IN REVOLUTIONS                                 DSKY DISPLAY IN N. MI.
027788,000370:                                                                                                  #  DEBRIS:  QPRET, PDL0 ...PDL7 ,PDL10
027789,000371: 
027790,000372:                                                                                                  #  THETA(1)
027791,000373: 
027792,000374: 
027793,000375: 32,2017                                           BANK     32                                    
027794,000376: 32,2000                                           SETLOC   DELRSPL1                              
027795,000377: 32,2000                                           BANK                                           
027796,000378: 32,2017                                           COUNT*   $$/P30                                #  PROGRAMS: P30 EXTERNAL DELTA V
027797,000379: 
027798,000380: 32,2017           00011        DELRSPL            STORE    8D                                    
027799,000381: 32,2020           45244                           BPL      DSU                                   
027800,000382: 32,2021           64063                                    CANTDO                                #  GONE PAST 300K FT ALT
027801,000383: 32,2022           16326                                    1BITDP                                
027802,000384: 32,2023           45000                           BOV      CALL                                  
027803,000385: 32,2024           64063                                    CANTDO                                #  POSMAX INDICATES NO 300K FT SOLUTION.
027804,000386: 32,2025           55050                                    VGAMCALC                              #  +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
027805,000387: 32,2026           45006                           PUSH     CALL                                  
027806,000388: 32,2027           56573                                    TFF/TRIG                              
027807,000389: 32,2030           77624                           CALL                                           
027808,000390: 32,2031           64071                                    AUGEKUGL                              
027809,000391: 32,2032           65525                           PDDL     ACOS                                  #  T ENTRY PDL 6
027810,000392: 32,2033           00017                                    CDELF/2                               
027811,000393: 32,2034           77615                           DAD                                            
027812,000394: 32,2035           00005                                    4                                     
027813,000395: 32,2036           26350        GETARG             STOVL    THETA(1)                              
027814,000396: 32,2037           03401                                    LAT(SPL)                              
027815,000397: 32,2040           15104                           STODL    LAT                                   
027816,000398: 32,2041           15332                                    HI6ZEROS                              
027817,000399: 32,2042           15110                           STODL    ALT                                   #  ALT=0  = LAT +4
027818,000400: 32,2043           43225                           DSU      DAD                                   

Page 633

027820,000402: 32,2044           00011                                    8D                                    
027821,000403: 32,2045           01205                                    PIPTIME                               
027822,000404: 32,2046           45014                           CLEAR    CALL                                  
027823,000405: 32,2047           00662                                    ERADFLAG                              
027824,000406: 32,2050           26373                                    LALOTORV                              #  R RECOV. IN ALPHAV AND MPAC
027825,000407: 
027826,000408: 32,2051           63256                           UNIT     PDVL                                  
027827,000409: 32,2052           02327                                    RONE                                  
027828,000410: 32,2053           50256                           UNIT     DOT                                   
027829,000411: 32,2054           65552                           SL1      ARCCOS                                
027830,000412: 32,2055           77621                           BDSU                                           #  ERROR = THETA EST - THETA TARG
027831,000413:                                                                                                  #                               NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
027832,000414:                                                                                                  #                               POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
027833,000415: 32,2056           02350                                    THETA(1)                              
027834,000416: 32,2057           36356        DELRDONE           STCALL   RSP-RREC                              #  DOWNRANGE RECOVERY RANGE ERROR    /360
027835,000417: 32,2060           27404                                    INTWAKE0                              
027836,000418: 32,2061           77624                           CALL                                           
027837,000419: 32,2062           46653                                    SPLRET                                
027838,000420: 32,2063           65345        CANTDO             DLOAD    PDDL                                  #  INITIALIZE ERASE TO DOT TARGET AND UR
027839,000421:                                                                                                  #                                          FOR RANGE ANGLE.
027840,000422: 32,2064           15330                                    HIDPHALF                              #  TO PDL 0 FOR DEN IN DDV.
027841,000423: 32,2065           15332                                    HI6ZEROS                              
027842,000424: 32,2066           77606                           PUSH                                           #  ZERO TO PDL 2 FOR PHI ENTRY
027843,000425: 32,2067           34011                           STCALL   8D                                    
027844,000426: 32,2070           64036                                    GETARG                                #  GO SET RSP-RREC =0
027845,000427: 
027846,000428: 32,2071           77775        AUGEKUGL           VLOAD                                          
027847,000429: 32,2072           24245                                    X1CON      -2                         
027848,000430: 32,2073           14045                           STODL    X1         -2                         
027849,000431: 32,2074           00001                                    0                                     
027850,000432: 32,2075           50025                           DSU      BMN                                   
027851,000433: 32,2076           24237                                    V(21K)                                
027852,000434: 32,2077           64124                                    LOOPSET                               
027853,000435: 32,2100           65060                           XSU,1    XCHX,2                                
027854,000436: 32,2101           00050                                    S1                                    
027855,000437: 32,2102           00046                                    X1                                    
027856,000438: 32,2103           45324                           XCHX,2   DSU                                   
027857,000439: 32,2104           00050                                    S1                                    
027858,000440: 32,2105           24225                                    V(3K)                                 
027859,000441: 32,2106           65040                           BMN      XCHX,2                                
027860,000442: 32,2107           64124                                    LOOPSET                               
027861,000443: 32,2110           00050                                    S1                                    
027862,000444: 32,2111           50025                           DSU      BMN                                   
027863,000445: 32,2112           24235                                    V(4K)                                 
027864,000446: 32,2113           64124                                    LOOPSET                               
027865,000447: 32,2114           65124                           XCHX,2   XCHX,2                                
027866,000448: 32,2115           00050                                    S1                                    
027867,000449: 32,2116           00046                                    X1                                    
027868,000450: 32,2117           50025                           DSU      BMN                                   
027869,000451: 32,2120           24221                                    V(400)                                

Page 634

027871,000453: 32,2121           64124                                    LOOPSET                               
027872,000454: 32,2122           77730                           SXA,1                                          
027873,000455: 32,2123           00050                                    S1                                    
027874,000456: 32,2124           52110        LOOPSET            INCR,1   GOTO                                  
027875,000457: 32,2125           00001                           DEC      1          B-14                       
027876,000458: 32,2126           64131                                    K1K2LOOP                              
027877,000459: 32,2127           77730        K2CALC             SXA,1                                          
027878,000460: 32,2130           00050                                    S1                                    
027879,000461: 32,2131           44745        K1K2LOOP           DLOAD    DSU*                                  
027880,000462: 32,2132           00001                                    0                                     
027881,000463: 32,2133           24234                                    V(32K)     +1,1                       
027882,000464: 32,2134           42603                           DMP*     DAD*                                  
027883,000465: 32,2135           24220                                    YK1K2      +1,1                       
027884,000466: 32,2136           24204                                    CK1K2      +1,1                       
027885,000467: 32,2137           60125                           PDDL     TIX,1                                 
027886,000468: 32,2140           00003                                    2                                     
027887,000469: 32,2141           64127                                    K2CALC                                
027888,000470: 32,2142           55225                           DSU      BDDV                                  
027889,000471: 32,2143           50000                           BOV      BMN                                   
027890,000472: 32,2144           64163                                    MAXPHI                                
027891,000473: 32,2145           64163                                    MAXPHI                                
027892,000474: 32,2146           45325        PHICALC            PDDL     DSU                                   #  PHI ENTRY PDL 4D
027893,000475: 32,2147           00001                                    0                                     
027894,000476: 32,2150           24245                                    V(26K)                                
027895,000477: 32,2151           71244                           BPL      DLOAD                                 
027896,000478: 32,2152           64160                                    TGR26                                 
027897,000479: 32,2153           24241                                    TLESS26                               
027898,000480: 32,2154           77671                           DDV                                            
027899,000481: 32,2155           00001                                    0                                     
027900,000482: 32,2156           43405        TENT               DMP      RVQ                                   
027901,000483: 32,2157           00005                                    4D                                    
027902,000484: 32,2160           52145        TGR26              DLOAD    GOTO                                  
027903,000485: 32,2161           24243                                    TGR26CON                              
027904,000486: 32,2162           64156                                    TENT                                  
027905,000487: 
027906,000488: 
027907,000489: 32,2163           52145        MAXPHI             DLOAD    GOTO                                  
027908,000490: 32,2164           24167                                    MAXPHIC                               
027909,000491: 32,2165           64146                                    PHICALC                               
027910,000492: 32,2166           02755 01307  MAXPHIC            2DEC     .09259298                             #  2000 NM FOR MAXIMUM PHI ENTRY
027911,000493: 32,2170                                           COUNT*   $$/P30                                
027912,000494: 
027913,000495:                                                                                                  #                                                           BELOW
027914,000496:                                                                                                  #                                        <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027915,000497: 
027916,000498: 32,2170           00013 22652                     2DEC     7.07304526 E-4                        #  5500
027917,000499: 32,2172           00005 01642                     2DEC     3.08641975 E-4                        #  2400

Page 635

027919,000501: 32,2174           00005 01642                     2DEC     3.08641975 E-4                        #  2400
027920,000502: 32,2176           77556 53522                     2DEC     -8.8888888 E-3                        #  -3.2
027921,000503: 32,2200           00055 20266                     2DEC     2.7777777  E-3                        #  1
027922,000504: 32,2202           00155 07202  CK1K2              2DEC     6.6666666  E-3                        #  2.4
027923,000505: 32,2204           00000 00000                     2DEC     0          B-28                       #  0
027924,000506: 32,2206           77730 71525                     2DEC*    -1.86909989 E-5        B7*             #  -.443
027925,000507: 32,2210           00000 00000                     2DEC     0          B-28                       
027926,000508: 32,2212           04445 10102                     2DEC*    1.11639691 E-3        B7*             #  .001225
027927,000509: 32,2214           03726 31201                     2DEC*    9.56911636 E-4        B7*             #  .00105
027928,000510: 32,2216           01040 26313  YK1K2              2DEC*    2.59733157 E-4        B7*             #       .000285
027929,000511: 32,2220           00234 01660  V(400)             2DEC     1.2192     B-7                        
027930,000512: 32,2222           25254 01014  V(28K)             2DEC     85.344     B-7                        
027931,000513: 32,2224           02222 15646  V(3K)              2DEC     9.144      B-7                        
027932,000514: 32,2226           22223 16457  V(24K)             2DEC     73.152     B-7                        
027933,000515: 32,2230           25254 01014                     2DEC     85.344     B-7                        
027934,000516: 32,2232           30304 23351  V(32K)             2DEC     97.536     B-7                        
027935,000517: 32,2234           03030 22335  V(4K)              2DEC     12.192     B-7                        
027936,000518: 32,2236           20000 00000  V(21K)             2DEC     64.000     B-7                        
027937,000519: 32,2240           00033 05763  TLESS26            2DEC*    5.70146688 E7         B-35*           #  8660PHI/V
027938,000520: 32,2242           00053 36200  TGR26CON           2DEC     7.2        E5         B-28            #  PHI/3
027939,000521: 32,2244           23637 27636  V(26K)             2DEC     79.248     B-7                        #  26000
027940,000522: 32,2246           00012        X1CON              DEC      10         B-14                       
027941,000523: 32,2247           00010                           DEC      8          B-14                       
027942,000524: 32,2250           00006                           DEC      6          B-14                       
027943,000525:                                                                                                  #                                          <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027944,000526:                                                                                                  #                                                             ABOVE
027945,000527: 

Page 636

027947,000529:                                                                                                  #  ..... AVFLAGA/P .....
027948,000530: 
027949,000531:                                                                                                  #  SUBROUTINES USED
027950,000532: 
027951,000533:                                                                                                  #        UPFLAG
027952,000534:                                                                                                  #        DOWNFLAG
027953,000535: 35,2000                                           SETLOC   P30S1                                 
027954,000536: 35,2000                                           BANK                                           
027955,000537: 35,3726  E4,1770                                  EBANK=   SUBEXIT                               
027956,000538: 35,3726           00006        AVFLAGA            EXTEND                                         #  AVFLAG = CSM
027957,000539: 35,3727           23770                           QXCH     SUBEXIT                               
027958,000540: 35,3730           05447                           TC       DOWNFLAG                              
027959,000541: 35,3731           00050                           ADRES    AVFLAG                                #  BIT 5  FLAG 2
027960,000542: 35,3732           34753                           CAF      EBANK7                                
027961,000543: 35,3733           54003                           TS       EBANK                                 
027962,000544: 35,3734  E7,1424                                  EBANK=   ECSTEER                               
027963,000545: 35,3734           34676                           CAF      BIT13                                 
027964,000546: 35,3735           55424                           TS       ECSTEER                               #  SET ECSTEER = 1
027965,000547: 35,3736           34700                           CAF      EBANK4                                
027966,000548: 35,3737           54003                           TS       EBANK                                 
027967,000549: 35,3740  E4,1770                                  EBANK=   SUBEXIT                               
027968,000550: 35,3740           01770                           TC       SUBEXIT                               
027969,000551: 35,3741           00006        AVFLAGP            EXTEND                                         #  AVFLAG = LEM
027970,000552: 35,3742           23770                           QXCH     SUBEXIT                               
027971,000553: 35,3743           05435                           TC       UPFLAG                                
027972,000554: 35,3744           00050                           ADRES    AVFLAG                                #  BIT 5  FLAG 2
027973,000555: 35,3745           01770                           TC       SUBEXIT                               
027974,000556: 35,3746           00006        P20FLGON           EXTEND                                         
027975,000557: 35,3747           23770                           QXCH     SUBEXIT                               
027976,000558: 35,3750           05435                           TC       UPFLAG                                
027977,000559: 35,3751           00031                           ADRES    TRACKFLG                              
027978,000560: 35,3752           05435                           TC       UPFLAG                                
027979,000561: 35,3753           00027                           ADRES    UPDATFLG                              
027980,000562: 35,3754           01770                           TC       SUBEXIT                               

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