Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

028363,000002:                                                                                                  ## Copyright:   Public domain.
028364,000003:                                                                                                  ## Filename:    P30-P37.agc
028365,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
028366,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
028367,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
028368,000007:                                                                                                  ## Assembler:   yaYUL
028369,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028370,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
028371,000010:                                                                                                  ## Pages:       635-648
028372,000011:                                                                                                  ## Mod history: 2009-05-10 RSB  Adapted from the Colossus249/ file 
028373,000012:                                                                                                  ##                              of the same name, using Comanche055 page 
028374,000013:                                                                                                  ##                              images.
028375,000014:                                                                                                  ##              2009-05-20 RSB  Corrected BDV -> BOV.
028376,000015:                                                                                                  ##              2010-08-24 JL   Fixed page numbers, some whitespace.
028377,000016:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
028378,000017:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
028379,000018:                                                                                                  ##              2016-12-11 RSB  Proofed comments with octopus/ProoferComments
028380,000019:                                                                                                  ##                              and fixed the errors found.
028381,000020:                                                                                                  ##              2017-01-17 RSB  Fixed comment-text errors noted while diff'ing
028382,000021:                                                                                                  ##                              vs Colossus 249.
028383,000022:                                                                                                  ##
028384,000023:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
028385,000024:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
028386,000025:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
028387,000026:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
028388,000027:                                                                                                  ## consequent reduction in image quality as well) are available online at
028389,000028:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
028390,000029:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
028391,000030:                                                                                                  ## (much) higher-quality images which Paul actually created.
028392,000031:                                                                                                  ##
028393,000032:                                                                                                  ## Notations on the hardcopy document read, in part:
028394,000033:                                                                                                  ##
028395,000034:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
028396,000035:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
028397,000036:                                                                                                  ##
028398,000037:                                                                                                  ##      This AGC program shall also be referred to as
028399,000038:                                                                                                  ##                      Colossus 2A
028400,000039: 

Page 635

028402,000041: 32,2017                                           BANK     32                                    
028403,000042: 
028404,000043: 35,2000                                           SETLOC   P30S1                                 
028405,000044: 35,2000                                           BANK                                           
028406,000045: 
028407,000046: 35,3264  E7,1625                                  EBANK=   +MGA                                  
028408,000047: 
028409,000048: 35,3264                                           COUNT    35/P34                                
028410,000049: 
028411,000050: 35,3264           77420        DISPMGA            STQ      EXIT                                  #  USED IN P30
028412,000051: 
028413,000052: 35,3265           02370                                    RGEXIT                                
028414,000053: 35,3266           03304                           TC       COMPTGO                               
028415,000054: 
028416,000055: 35,3267           34621        DISP45             CAF      V16N45                                
028417,000056: 35,3270           04662                           TC       BANKCALL                              
028418,000057: 35,3271           21057                           CADR     GOFLASHR                              
028419,000058: 35,3272           04106                           TC       GOTOPOOH                              
028420,000059: 35,3273           03300                           TC       END45                                 
028421,000060: 35,3274           03267                           TC       DISP45                                
028422,000061: 35,3275           05412        P30PHSI            TC       PHASCHNG                              
028423,000062: 35,3276           00014                           OCT      14                                    
028424,000063: 35,3277           05217                           TCR      ENDOFJOB                              
028425,000064: 35,3300           06006        END45              TC       INTPRET                               
028426,000065: 35,3301           52014                           CLEAR    GOTO                                  
028427,000066: 35,3302           03664                                    TIMRFLAG                              
028428,000067: 35,3303           02370                                    RGEXIT                                
028429,000068: 
028430,000069: 35,3304           00006        COMPTGO            EXTEND                                         #  USED TO COMPUTE TTOGO
028431,000070: 35,3305           23066                           QXCH     PHSPRDT6                              #  ** GROUP 6 TEMPORARY USED ,, BEWARE **
028432,000071: 
028433,000072: 35,3306           05546                           TC       UPFLAG                                #  SET TIMRFLAG
028434,000073: 35,3307           00155                           ADRES    TIMRFLAG                              #  BIT 11 FLAG 7
028435,000074: 35,3310           35021                           CAF      ZERO                                  
028436,000075: 35,3311           55145                           TS       NVWORD1                               
028437,000076: 
028438,000077: 35,3312           35017                           CAF      ONE                                   
028439,000078: 35,3313           05245                           TC       WAITLIST                              
028440,000079: 35,3314  E7,1412                                  EBANK=   TIG                                   
028441,000080: 35,3314           03260 50067                     2CADR    CLOKTASK                              
028442,000081: 
028443,000082: 35,3316           05372                           TC       2PHSCHNG                              
028444,000083: 35,3317           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
028445,000084: 35,3320           05024                           OCT      05024                                 #  GROUP 4 CONTINUES HERE
028446,000085: 35,3321           13000                           OCT      13000                                 
028447,000086: 
028448,000087: 35,3322           01066                           TC       PHSPRDT6                              

Page 636

028450,000089:                                                                                                  #  PROGRAM DESCRIPTION P30       DATE 3-6-67
028451,000090:                                                                                                  #  MOD. I BY S. ZELDIN-  TO ADD P31 AND ADAPT P30 FOR P31 USE.   22DEC67
028452,000091: 
028453,000092:                                                                                                  #  FUNCTIONAL DESCRIPTION
028454,000093:                                                                                                  #        +30     (EXTERNAL DELTA-V TARGETTING PROGRAM)
028455,000094:                                                                                                  #                ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
028456,000095:                                                                                                  #                APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER
028457,000096:                                                                                                  #        P31     (GENERAL LAMBERT AIMPOINT GUIDANCE)
028458,000097:                                                                                                  #                A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
028459,000098:                                                                                                  #                POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
028460,000099:                                                                                                  #                BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND
028461,000100:                                                                                                  #                ASTRONAUT ENTRY OF TIG, P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
028462,000101:                                                                                                  #                AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH
028463,000102:                                                                                                  #                DESIRED MANEUVER
028464,000103: 
028465,000104:                                                                                                  #  THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
028466,000105:                                                                                                  #        S30.1 (P30 ONLY)
028467,000106:                                                                                                  #        S31.1 (P31 ONLY)
028468,000107:                                                                                                  #        P30/P31 - DISPLAYS TIG
028469,000108:                                                                                                  #        CNTUP30 - DISPLAYS DELV(LV)
028470,000109:                                                                                                  #        PARAM30 - DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
028471,000110:                                                                                                  #                  MARKS SINCE LAST THRUSTING MANEUVER
028472,000111: 
028473,000112:                                                                                                  #  CALLING SEQUENCE VIA JOB FROM V37
028474,000113: 
028475,000114:                                                                                                  #  EXIT VIA V37 CALL OR GOTOPOOH
028476,000115: 
028477,000116:                                                                                                  #  OUTPUT FOR POWERED FLIGHT
028478,000117:                                                                                                  #        VTIG    X
028479,000118:                                                                                                  #        RTIG    X       SEE S30.1
028480,000119:                                                                                                  #        DELVSIN X
028481,000120:                                                                                                  #        VGDISP
028482,000121:                                                                                                  #        RTARG   X
028483,000122:                                                                                                  #        TPASS4  X       SEE S31.1
028484,000123:                                                                                                  #                X
028485,000124: 
028486,000125: 35,3323                                           COUNT    35/P30                                
028487,000126: 
028488,000127: 35,3323           03355        P30                TC       P30/P31                               
028489,000128: 35,3324           03374                           TC       CNTNUP30                              
028490,000129: 35,3325           05560                           TC       DOWNFLAG                              #  RESET UPDATFLG
028491,000130: 35,3326           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
028492,000131: 35,3327           06006                           TC       INTPRET                               
028493,000132: 35,3330           77624                           CALL                                           
028494,000133: 35,3331           63475                                    S30.1                                 
028495,000134: 35,3332           77776                           EXIT                                           
028496,000135: 35,3333           03404                           TC       PARAM30                               
028497,000136: 35,3334           05546                           TC       UPFLAG                                

Page 637

028499,000138: 35,3335           00045                           ADRES    XDELVFLG                              #  SET XDELVFLG BIT 8 FLAG 2
028500,000139: 35,3336           14106                           TCF      GOTOPOOH                              
028501,000140: 
028502,000141: 35,3337           03355        P31                TC       P30/P31                               
028503,000142: 35,3340           05560                           TC       DOWNFLAG                              
028504,000143: 35,3341           00027                           ADRES    UPDATFLG                              #  RESET UPDATFLG BIT 7 FLAG 1
028505,000144: 35,3342           05560                           TC       DOWNFLAG                              
028506,000145: 35,3343           00156                           ADRES    NORMSW                                #  RESET NORMSW BIT 10 FLAG 7
028507,000146: 35,3344           06006                           TC       INTPRET                               
028508,000147: 35,3345           77624                           CALL                                           
028509,000148: 35,3346           63547                                    S31.1                                 
028510,000149: 35,3347           77776                           EXIT                                           
028511,000150: 35,3350           03374                           TC       CNTNUP30                              
028512,000151: 35,3351           03404                           TC       PARAM30                               
028513,000152: 35,3352           05560                           TC       DOWNFLAG                              
028514,000153: 35,3353           00045                           ADRES    XDELVFLG                              #  BIT 8 FLAG 2
028515,000154: 35,3354           14106                           TCF      GOTOPOOH                              
028516,000155: 
028517,000156: 35,3355           56002        P30/P31            XCH      Q                                     
028518,000157: 35,3356           55664                           TS       P30/31RT                              
028519,000158: 35,3357           05546                           TC       UPFLAG                                
028520,000159: 35,3360           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG BIT 7 FLAG 1
028521,000160: 35,3361           05546                           TC       UPFLAG                                
028522,000161: 35,3362           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG BIT 5 FLAG 1
028523,000162: 35,3363           33441                           CAF      V06N33                                #  T OF IGN
028524,000163: 35,3364           04662                           TC       BANKCALL                              
028525,000164: 35,3365           21057                           CADR     GOFLASHR                              
028526,000165: 35,3366           14106                           TCF      GOTOPOOH                              
028527,000166: 35,3367           01664                           TC       P30/31RT                              
028528,000167: 35,3370           13361                           TCF      P30/P31    +4                         
028529,000168: 35,3371           05412                           TC       PHASCHNG                              
028530,000169: 35,3372           00014                           OCT      00014                                 
028531,000170: 35,3373           05217                           TC       ENDOFJOB                              
028532,000171: 
028533,000172: 35,3374           56002        CNTNUP30           XCH      Q                                     
028534,000173: 35,3375           55127                           TS       P30/RET                               
028535,000174: 35,3376           34620                           CAF      V06N81                                
028536,000175: 35,3377           04662                           TC       BANKCALL                              
028537,000176: 35,3400           20720                           CADR     GOFLASH                               
028538,000177: 35,3401           14106                           TCF      GOTOPOOH                              
028539,000178: 35,3402           01127                           TC       P30/RET                               
028540,000179: 35,3403           13376                           TCF      CNTNUP30   +2                         
028541,000180: 35,3404           56002        PARAM30            XCH      Q                                     
028542,000181: 35,3405           55664                           TS       P30/31RT                              
028543,000182: 35,3406           33442                           CAF      V06N42                                
028544,000183: 35,3407           04662                           TC       BANKCALL                              
028545,000184: 35,3410           20720                           CADR     GOFLASH                               
028546,000185: 35,3411           04106                           TC       GOTOPOOH                              #  ON TERMINATION GOTOPOOH
028547,000186: 35,3412           13414                           TCF      REFTEST                               #  ON PROCEED GO DO REFTEST

Page 638

028549,000188: 35,3413           13406                           TCF      PARAM30    +2                         
028550,000189: 35,3414           35003        REFTEST            CAF      BIT13                                 
028551,000190: 35,3415           70077                           MASK     STATE      +3                         #  REFSMFLAG
028552,000191: 35,3416           00006                           EXTEND                                         
028553,000192: 35,3417           13427                           BZF      NOTSET                                #  REFSMFLAG =0, THEN BRANCH TO NOTSET
028554,000193: 35,3420           06006                           TC       INTPRET                               
028555,000194: 35,3421           41575                           VLOAD    PUSH                                  
028556,000195: 35,3422           03646                                    DELVSIN                               
028557,000196: 35,3423           77624                           CALL                                           
028558,000197: 35,3424           10654                                    GET+MGA                               
028559,000198: 35,3425           77650                           GOTO                                           
028560,000199: 35,3426           73433                                    FLASHMGA                              
028561,000200: 35,3427           00006        NOTSET             EXTEND                                         
028562,000201: 35,3430           43440                           DCS      MARSDP                                
028563,000202: 35,3431           53626                           DXCH     +MGA                                  #  +MGA, +MGA+1 CONTAINS (-00001)
028564,000203: 35,3432           06006                           TC       INTPRET                               
028565,000204: 35,3433           77624        FLASHMGA           CALL                                           
028566,000205: 35,3434           73264                                    DISPMGA                               
028567,000206: 35,3435           77776                           EXIT                                           
028568,000207: 35,3436           01664                           TC       P30/31RT                              
028569,000208: 35,3437           00000        MARSDP             OCT      00000                                 #  (00000) (16440) = (+00001)
028570,000209: 35,3440           35100                           OCT      35100                                 
028571,000210:                                                                                                  #  ( .01 ) DEGREES IN THE LOW ORDER REGISTE
028572,000211: 
028573,000212: 35,3441           01441        V06N33             VN       0633                                  
028574,000213: 35,3442           01452        V06N42             VN       0642                                  
028575,000214: 35,3443           04043        V16N35             VN       1635                                  
028576,000215: 35,3444           01455        V06N45             VN       0645                                  
028577,000216: 

Page 639

028579,000218:                                                                                                  #  PROGRAM DESCRIPTION S30.1     DATE 9NOV66
028580,000219:                                                                                                  #  MOD NO 1                      LOG SECTION P30,P37
028581,000220:                                                                                                  #  MOD BY RAMA AIYAWAR **
028582,000221:                                                                                                  #  MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS             29DEC67
028583,000222: 
028584,000223:                                                                                                  #  FUNCTIONAL DESCRIPTION
028585,000224:                                                                                                  #        BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
028586,000225:                                                                                                  #        IGNITION (VTIG), TIME OF IGNITION (TIG), DELV(LV), COMPUTE PERIGEE ALTITUDE
028587,000226:                                                                                                  #        A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN)
028588,000227: 
028589,000228:                                                                                                  #  CALLING SEQUENCE
028590,000229:                                                                                                  #        L       CALL
028591,000230:                                                                                                  #        L+1             S30.1
028592,000231: 
028593,000232:                                                                                                  #  NORMAL EXIT MODE
028594,000233:                                                                                                  #        AT L+2 OR CALLING SEQUENCE (GOTO L+2)
028595,000234: 
028596,000235:                                                                                                  #  SUBROUTINES CALLED
028597,000236:                                                                                                  #        THISPREC
028598,000237:                                                                                                  #        PERIAPO
028599,000238: 
028600,000239:                                                                                                  #  ALARM OR ABORT EXIT MODES
028601,000240:                                                                                                  #        NONE
028602,000241: 
028603,000242:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
028604,000243:                                                                                                  #        TIG             TIME OF IGNITION        DP B28CS
028605,000244:                                                                                                  #        DELVSLV         SPECIFIED DELTA-V IN LOCAL VERT.
028606,000245:                                                                                                  #                        COORDS. OF ACTIVE VEHICLE AT
028607,000246:                                                                                                  #                        TIME OF IGNITION        VCT. B+7 M/CS
028608,000247: 
028609,000248:                                                                                                  #  OUTPUT
028610,000249:                                                                                                  #        RTIG            POSITION AT TIG         VCT.    B+29 M
028611,000250:                                                                                                  #        VTIG            VELOCITY AT TIG         VCT.    B+7 M
028612,000251:                                                                                                  #        HAPO            APOGEE ALT.             DP      B+29 M
028613,000252:                                                                                                  #        HPER            PERIGEE ALT.            DP      B+29 M
028614,000253:                                                                                                  #        DELVSIN         DELVSLV IN REF COORDS   VCT.    B+7 M/CS
028615,000254:                                                                                                  #        VGDISP          MAG. OF DELVSIN         DP      B+7 M/CS
028616,000255: 
028617,000256:                                                                                                  #  DEBRIS        QTEMP   TEMP.ERASABLE
028618,000257:                                                                                                  #                QPRET, MPAC
028619,000258:                                                                                                  #                PUSHLIST
028620,000259: 
028621,000260: 31,2000                                           SETLOC   P30S1A                                
028622,000261: 31,2000                                           BANK                                           
028623,000262: 
028624,000263: 31,3475                                           COUNT    35/S30S                               
028625,000264: 
028626,000265: 31,3475           71220        S30.1              STQ      DLOAD                                 
028627,000266: 31,3476           03657                                    QTEMP                                 
028628,000267: 31,3477           03413                                    TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
028629,000268: 31,3500           34041                           STCALL   TDEC1                                 
028630,000269: 31,3501           27071                                    THISPREC                              #  ENCKE ROUTINE FOR 
028631,000270: 
028632,000271: 31,3502           67175                           VLOAD    SXA,2                                 
028633,000272: 31,3503           00007                                    VATT                                  
028634,000273: 31,3504           03746                                    RTX2                                  
028635,000274: 31,3505           27640                           STOVL    VTIG                                  

Page 640

028637,000276: 31,3506           00001                                    RATT                                  
028638,000277: 31,3507           03632                           STORE    RTIG                                  
028639,000278: 31,3510           03540                           STORE    RACT3                                 
028640,000279: 31,3511           53435                           VXV      UNIT                                  
028641,000280: 31,3512           03640                                    VTIG                                  
028642,000281: 31,3513           36617                           STCALL   UNRM                                  
028643,000282: 31,3514           72666                                    LOMAT                                 
028644,000283: 31,3515           61375                           VLOAD    VXM                                   
028645,000284: 31,3516           03405                                    DELVSLV                               
028646,000285: 31,3517           00001                                    0                                     
028647,000286: 31,3520           66172                           VSL1     SXA,1                                 
028648,000287: 31,3521           03745                                    RTX1                                  
028649,000288: 31,3522           03646                           STORE    DELVSIN                               
028650,000289: 31,3523           77646                           ABVAL                                          
028651,000290: 31,3524           27773                           STOVL    VGDISP                                #  MAG DELV
028652,000291: 31,3525           03632                                    RTIG                                  
028653,000292: 31,3526           53315                           PDVL     VAD                                   
028654,000293: 31,3527           03646                                    DELVSIN                               
028655,000294: 31,3530           03640                                    VTIG                                  
028656,000295: 31,3531           77624                           CALL                                           
028657,000296: 31,3532           45153                                    PERIAPO1                              
028658,000297: 31,3533           77624                           CALL                                           
028659,000298: 31,3534           45263                                    SHIFTR1                               
028660,000299: 31,3535           77624                           CALL                                           
028661,000300: 31,3536           46754                                    MAXCHK                                
028662,000301: 31,3537           16366                           STODL    HPER                                  #  PERIGEE ALT B+29
028663,000302: 31,3540           00005                                    4D                                    
028664,000303: 31,3541           77624                           CALL                                           
028665,000304: 31,3542           45263                                    SHIFTR1                               
028666,000305: 31,3543           77624                           CALL                                           
028667,000306: 31,3544           46754                                    MAXCHK                                
028668,000307: 31,3545           36364                           STCALL   HAPO                                  #  APOGEE ALT B+29
028669,000308: 31,3546           03657                                    QTEMP                                 
028670,000309: 

Page 641

028672,000311:                                                                                                  #  S31.1 PROGRAM DESCRIPTION             28DEC67
028673,000312:                                                                                                  #  MOD.1 BY S.ZELDIN
028674,000313: 
028675,000314:                                                                                                  #  S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
028676,000315:                                                                                                  #  APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
028677,000316: 
028678,000317:                                                                                                  #  CALLING SEQUENCE
028679,000318:                                                                                                  #        L       CALL
028680,000319:                                                                                                  #        L+1             S31.1
028681,000320: 
028682,000321:                                                                                                  #  NORMAL EXIT MODE
028683,000322:                                                                                                  #        AT L +2 OF CALLING SEQUENCE (GOTO L+2)
028684,000323: 
028685,000324:                                                                                                  #  SUBROUTINES CALLED
028686,000325:                                                                                                  #        AGAIN
028687,000326:                                                                                                  #        PERIAPO1
028688,000327:                                                                                                  #        SHIFTR1
028689,000328:                                                                                                  #        MIDGIM
028690,000329: 
028691,000330:                                                                                                  #  NO ALARM OR ABORT MODES
028692,000331: 
028693,000332:                                                                                                  #  INPUT
028694,000333:                                                                                                  #        DELLT4          DP      +28
028695,000334:                                                                                                  #        TIG             DP      +28
028696,000335:                                                                                                  #        RTARG           VCT     +29
028697,000336: 
028698,000337:                                                                                                  #  OUTPUT
028699,000338:                                                                                                  #        DELVLVC         VCT     +7
028700,000339:                                                                                                  #        VGDISP          DP      +7
028701,000340:                                                                                                  #        HAPO            DP      +29
028702,000341:                                                                                                  #        HPER            DP      +29
028703,000342:                                                                                                  #        TPASS4          DP      +28
028704,000343: 
028705,000344:                                                                                                  #  DEBRIS - QTEMP
028706,000345: 
028707,000346: 31,3547           71220        S31.1              STQ      DLOAD                                 
028708,000347: 31,3550           03657                                    QTEMP                                 
028709,000348: 31,3551           03413                                    TIG                                   
028710,000349: 31,3552           34041                           STCALL   TDEC1                                 
028711,000350: 31,3553           61651                                    AGAIN                                 #  RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
028712,000351: 31,3554           63375                           VLOAD    PDVL                                  #  DELUEET3
028713,000352: 31,3555           03632                                    RTIG                                  
028714,000353: 31,3556           03612                                    VIPRIME                               
028715,000354: 31,3557           77624                           CALL                                           
028716,000355: 31,3560           45153                                    PERIAPO1                              
028717,000356: 31,3561           77624                           CALL                                           
028718,000357: 31,3562           45263                                    SHIFTR1                               
028719,000358: 31,3563           77624                           CALL                                           
028720,000359: 31,3564           46754                                    MAXCHK                                
028721,000360: 31,3565           16366                           STODL    HPER                                  #  B29
028722,000361: 31,3566           00005                                    4D                                    
028723,000362: 31,3567           77624                           CALL                                           
028724,000363: 31,3570           45263                                    SHIFTR1                               
028725,000364: 31,3571           77624                           CALL                                           
028726,000365: 31,3572           46754                                    MAXCHK                                
028727,000366: 31,3573           26364                           STOVL    HAPO                                  #  B29

Page 642

028729,000368: 31,3574           03646                                    DELVEET3                              
028730,000369: 31,3575           00001                           STORE    0                                     
028731,000370: 31,3576           45014                           SET      CALL                                  
028732,000371: 31,3577           01072                                    AVFLAG                                
028733,000372: 31,3600           10647                                    MIDGIM                                #  GET DELVLVC B7 FOR DISPLAY
028734,000373: 31,3601           77646                           ABVAL                                          
028735,000374: 31,3602           17773                           STODL    VGDISP                                #  B+7 FOR DISPLAY
028736,000375: 31,3603           03423                                    DELLT4                                
028737,000376: 31,3604           77615                           DAD                                            
028738,000377: 31,3605           03413                                    TIG                                   
028739,000378: 31,3606           37656                           STCALL   TPASS4                                #  FOR S40.1
028740,000379: 31,3607           03657                                    QTEMP                                 
028741,000380: 

Page 643

028743,000382:                                                                                                  #  SUBROUTINE NAME:      DELRSPL         (CONTINUATION OF V 82 IN CSM IF P11 ACTI
028744,000383:                                                                                                  #  TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33.  9 SEPT 67.
028745,000384:                                                                                                  #  MOD NO: 0     MOD BY: ZELDIN          DATE:
028746,000385:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
028747,000386:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67         ADD UR.RT CALC WHEN BELOW 300K FT
028748,000387:                                                                                                  #  MOD NO: 2.1   MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67         FIX ERROR IN MOD. 2.
028749,000388:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67         CHANGE SIGN OF DISPLAYED ERROR.
028750,000389:                                                                                                  #  MOD 4         MOD BY  S.ZELDIN        DATE  3 APRIL 68        CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
028751,000390: 
028752,000391:                                                                                                  #  FUNCTION:     CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
028753,000392:                                                                                                  #                ERROR.  IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
028754,000393:                                                                                                  #                SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
028755,000394:                                                                                                  #                THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED.  IF THE FREE-FALL TRANSFER
028756,000395:                                                                                                  #                ANGLE IS NEGATIVE:  SPLASH ERROR= -RANGE TO TARGET
028757,000396:                                                                                                  #                THE PRESENT TARGET LOCATION IS USED.
028758,000397: 
028759,000398:                                                                                                  #  CALLING SEQUENCE  CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
028760,000399: 
028761,000400:                                                                                                  #  SUBROUTINES CALLED:  VGAMCALC, TFF/TRIG, LALOTORV.
028762,000401: 
028763,000402:                                                                                                  #  EXIT          RETURN DIRECTLY TO V 82 PROG. AT SPLRET
028764,000403: 
028765,000404:                                                                                                  #  ERASABLE INITIALIZATION   LEFT BY SR30.1 AND V82GON1
028766,000405: 
028767,000406:                                                                                                  #  OUTPUT:       RSP-RREC RANGE IN REVOLUTIONS                   DSKY DISPLAY IN N. MI.
028768,000407: 
028769,000408:                                                                                                  #  DEBRIS:       QPRET, PDL0 ... PDL7, PDL10
028770,000409: 
028771,000410:                                                                                                  #  THETA(1)
028772,000411: 
028773,000412: 32,2017                                           BANK     32                                    
028774,000413: 32,2000                                           SETLOC   DELRSPL1                              
028775,000414: 32,2000                                           BANK                                           
028776,000415: 32,2017                                           COUNT*   $$/P30                                #  PROGRAMS: P30 EXTERNAL DELTA V
028777,000416: 
028778,000417: 32,2017           00011        DELRSPL            STORE    8D                                    
028779,000418: 32,2020           45244                           BPL      DSU                                   
028780,000419: 32,2021           64067                                    CANTDO                                #  GONE PAST 300K FT ALT
028781,000420: 32,2022           16326                                    1BITDP                                
028782,000421: 32,2023           45000                           BOV      CALL                                  
028783,000422: 32,2024           64067                                    CANTDO                                #  POSMAX INDICATES NO 300K FT SOLUTION.
028784,000423: 32,2025           55051                                    VGAMCALC                              #  +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
028785,000424: 32,2026           45006                           PUSH     CALL                                  
028786,000425: 32,2027           56631                                    TFF/TRIG                              
028787,000426: 32,2030           77624                           CALL                                           
028788,000427: 32,2031           64075                                    AUGEKUGL                              
028789,000428: 32,2032           65525                           PDDL     ACOS                                  #  T ENTRY PDL 6
028790,000429: 32,2033           00017                                    CDELF/2                               
028791,000430: 32,2034           77615                           DAD                                            
028792,000431: 32,2035           00005                                    4                                     
028793,000432: 32,2036           26350        GETARG             STOVL    THETA(1)                              
028794,000433: 32,2037           03401                                    LAT(SPL)                              
028795,000434: 32,2040           15104                           STODL    LAT                                   
028796,000435: 32,2041           15335                                    HI6ZEROS                              
028797,000436: 32,2042           15110                           STODL    ALT                                   #  ALT=0 = LAT +4
028798,000437: 32,2043           01205                                    PIPTIME                               

Page 644

028800,000439: 32,2044           71214                           BON      DLOAD                                 
028801,000440: 32,2045           03711                                    V37FLAG                               
028802,000441: 32,2046           64050                                    +2                                    
028803,000442: 32,2047           02325                                    TSTART82                              
028804,000443: 32,2050           43225                           DSU      DAD                                   
028805,000444: 32,2051           00011                                    8D                                    
028806,000445: 32,2052           45014                           CLEAR    CALL                                  
028807,000446: 32,2053           00662                                    ERADFLAG                              
028808,000447: 32,2054           26441                                    LALOTORV                              #  R RECOV. IN ALPHAV AND MPAC
028809,000448: 
028810,000449: 32,2055           63256                           UNIT     PDVL                                  
028811,000450: 32,2056           02327                                    RONE                                  
028812,000451: 32,2057           50256                           UNIT     DOT                                   
028813,000452: 32,2060           65552                           SL1      ARCCOS                                
028814,000453: 32,2061           77621                           BDSU                                           #  ERROR = THETA EST - THETA TARG
028815,000454:                                                                                                  #  NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
028816,000455:                                                                                                  #  POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
028817,000456: 32,2062           02350                                    THETA(1)                              
028818,000457: 32,2063           36356        DELRDONE           STCALL   RSP-RREC                              #  DOWNRANGE RECOVERY RANGE ERROR        /360
028819,000458: 32,2064           27455                                    INTWAKE0                              
028820,000459: 32,2065           77624                           CALL                                           
028821,000460: 32,2066           46653                                    SPLRET                                
028822,000461: 32,2067           65345        CANTDO             DLOAD    PDDL                                  #  INITIALIZE ERASE TO DOT TARGET AND UR
028823,000462:                                                                                                  #  FOR RANGE ANGLE.
028824,000463: 32,2070           15333                                    HIDPHALF                              #  TO PDL 0 FOR DEN INDDV.
028825,000464: 32,2071           15335                                    HI6ZEROS                              
028826,000465: 32,2072           77606                           PUSH                                           #  ZERO TO PDL 2 FOR PHI ENTRY
028827,000466: 32,2073           34011                           STCALL   8D                                    
028828,000467: 32,2074           64036                                    GETARG                                #  GO SET RSP-RREC =0
028829,000468: 
028830,000469: 32,2075           77775        AUGEKUGL           VLOAD                                          
028831,000470: 32,2076           24256                                    X1CON      -2                         
028832,000471: 32,2077           14045                           STODL    X1         -2                         
028833,000472: 32,2100           00001                                    0                                     
028834,000473: 32,2101           50025                           DSU      BMN                                   
028835,000474: 32,2102           24250                                    V(21K)                                
028836,000475: 32,2103           64130                                    LOOPSET                               
028837,000476: 32,2104           65060                           XSU,1    XCHX,2                                
028838,000477: 32,2105           00050                                    S1                                    
028839,000478: 32,2106           00046                                    X1                                    
028840,000479: 32,2107           45324                           XCHX,2   DSU                                   
028841,000480: 32,2110           00050                                    S1                                    
028842,000481: 32,2111           24236                                    V(3K)                                 
028843,000482: 32,2112           65040                           BMN      XCHX,2                                
028844,000483: 32,2113           64130                                    LOOPSET                               
028845,000484: 32,2114           00050                                    S1                                    
028846,000485: 32,2115           50025                           DSU      BMN                                   
028847,000486: 32,2116           24246                                    V(4K)                                 
028848,000487: 32,2117           64130                                    LOOPSET                               
028849,000488: 32,2120           65124                           XCHX,2   XCHX,2                                

Page 645

028851,000490: 32,2121           00050                                    S1                                    
028852,000491: 32,2122           00046                                    X1                                    
028853,000492: 32,2123           50025                           DSU      BMN                                   
028854,000493: 32,2124           24232                                    V(400)                                
028855,000494: 32,2125           64130                                    LOOPSET                               
028856,000495: 32,2126           77730                           SXA,1                                          
028857,000496: 32,2127           00050                                    S1                                    
028858,000497: 32,2130           52110        LOOPSET            INCR,1   GOTO                                  
028859,000498: 32,2131           00001                           DEC      1          B-14                       
028860,000499: 32,2132           64135                                    K1K2LOOP                              
028861,000500: 32,2133           77730        K2CALC             SXA,1                                          
028862,000501: 32,2134           00050                                    S1                                    
028863,000502: 32,2135           44745        K1K2LOOP           DLOAD    DSU*                                  
028864,000503: 32,2136           00001                                    0                                     
028865,000504: 32,2137           24245                                    V(32K)     +1,1                       
028866,000505: 32,2140           42603                           DMP*     DAD*                                  
028867,000506: 32,2141           24231                                    YK1K2      +1,1                       
028868,000507: 32,2142           24215                                    CK1K2      +1,1                       
028869,000508: 32,2143           60125                           PDDL     TIX,1                                 
028870,000509: 32,2144           00003                                    2                                     
028871,000510: 32,2145           64133                                    K2CALC                                
028872,000511: 32,2146           55225                           DSU      BDDV                                  
028873,000512: 32,2147           40006                           PUSH     BOV                                   
028874,000513: 32,2150           64173                                    MAXPHI                                
028875,000514: 32,2151           45240                           BMN      DSU                                   
028876,000515: 32,2152           64173                                    MAXPHI                                
028877,000516: 32,2153           24200                                    MAXPHIC                               
028878,000517: 32,2154           77644                           BPL                                            
028879,000518: 32,2155           64173                                    MAXPHI                                
028880,000519: 32,2156           45345        PHICALC            DLOAD    DSU                                   #  PHI ENTRY PDL 4D
028881,000520: 32,2157           00001                                    0                                     
028882,000521: 32,2160           24256                                    V(26K)                                
028883,000522: 32,2161           71244                           BPL      DLOAD                                 
028884,000523: 32,2162           64170                                    TGR26                                 
028885,000524: 32,2163           24252                                    TLESS26                               
028886,000525: 32,2164           77671                           DDV                                            
028887,000526: 32,2165           00001                                    0                                     
028888,000527: 32,2166           43405        TENT               DMP      RVQ                                   
028889,000528: 32,2167           00005                                    4D                                    
028890,000529: 32,2170           52145        TGR26              DLOAD    GOTO                                  
028891,000530: 32,2171           24254                                    TGR26CON                              
028892,000531: 32,2172           64166                                    TENT                                  
028893,000532: 
028894,000533: 32,2173           65345        MAXPHI             DLOAD    PDDL                                  
028895,000534: 32,2174           24200                                    MAXPHIC                               
028896,000535: 32,2175           77650                           GOTO                                           
028897,000536: 32,2176           64156                                    PHICALC                               
028898,000537: 32,2177           02755 01307  MAXPHIC            2DEC     .09259298                             #  2000 NM FOR MAXIMUM PHI ENTRY
028899,000538: 

Page 646

028901,000540: 
028902,000541: 32,2201                                           COUNT*   $$/P30                                
028903,000542: 
028904,000543:                                                                                                  #                BELOW
028905,000544:                                                                                                  #  <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
028906,000545: 
028907,000546: 32,2201           00013 22652                     2DEC     7.07304526 E-4                        #  5500
028908,000547: 32,2203           00005 01642                     2DEC     3.08641975 E-4                        #  2400
028909,000548: 32,2205           00005 01642                     2DEC     3.08641975 E-4                        #  2400
028910,000549: 32,2207           77556 53522                     2DEC     -8.8888888 E-3                        #  -3.2
028911,000550: 32,2211           00055 20266                     2DEC     2.7777777  E-3                        #  1
028912,000551: 32,2213           00155 07202  CK1K2              2DEC     6.6666666  E-3                        #  2.4
028913,000552: 32,2215           00000 00000                     2DEC     0          B-28                       #  0
028914,000553: 32,2217           77730 71525                     2DEC*    -1.86909989 E-5        B7*             #  -.443
028915,000554: 32,2221           00000 00000                     2DEC     0          B-28                       
028916,000555: 32,2223           04445 10102                     2DEC*    1.11639691 E-3        B7*             #  .001225
028917,000556: 32,2225           03726 31201                     2DEC*    9.56911636 E-4        B7*             #  .00105
028918,000557: 32,2227           01040 26313  YK1K2              2DEC*    2.59733157 E-4        B7*             #  .000285
028919,000558: 32,2231           00234 01660  V(400)             2DEC     1.2192     B-7                        
028920,000559: 32,2233           25254 01014  V(28K)             2DEC     85.344     B-7                        
028921,000560: 32,2235           02222 15646  V(3K)              2DEC     9.144      B-7                        
028922,000561: 32,2237           22223 16457  V(24K)             2DEC     73.152     B-7                        
028923,000562: 32,2241           25254 01014                     2DEC     85.344     B-7                        
028924,000563: 32,2243           30304 23351  V(32K)             2DEC     97.536     B-7                        
028925,000564: 32,2245           03030 22335  V(4K)              2DEC     12.192     B-7                        
028926,000565: 32,2247           20000 00000  V(21K)             2DEC     64.000     B-7                        
028927,000566: 32,2251           00033 05763  TLESS26            2DEC*    5.70146688 E7         B-35*           #  8660PHI/V
028928,000567: 32,2253           00053 36200  TGR26CON           2DEC     7.2        E5         B-28            #  PHI/3
028929,000568: 32,2255           23637 27636  V(26K)             2DEC     79.248     B-7                        #  26000
028930,000569: 

Page 647

028932,000571: 
028933,000572: 32,2257           00012        X1CON              DEC      10         B-14                       
028934,000573: 32,2260           00010                           DEC      8          B-14                       
028935,000574: 32,2261           00006                           DEC      6          B-14                       
028936,000575:                                                                                                  #  <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
028937,000576:                                                                                                  #                     ABOVE

Page 648

028939,000578:                                                                                                  #  ..... AVFLAGA/P .....
028940,000579: 
028941,000580:                                                                                                  #  SUBROUTINES USED
028942,000581: 
028943,000582:                                                                                                  #        UPFLAG
028944,000583:                                                                                                  #        DOWNFLAG
028945,000584: 
028946,000585:    4000                                           SETLOC   P30SUBS                               
028947,000586:    4000                                           BANK                                           
028948,000587:    4627  E4,1770                                  EBANK=   SUBEXIT                               
028949,000588:    4627           00006        AVFLAGA            EXTEND                                         #  AVFLAG = CSM
028950,000589:    4630           23770                           QXCH     SUBEXIT                               
028951,000590:    4631           05560                           TC       DOWNFLAG                              
028952,000591:    4632           00050                           ADRES    AVFLAG                                #  BIT 5 FLAG 2
028953,000592:    4633           35060                           CAF      EBANK7                                
028954,000593:    4634           54003                           TS       EBANK                                 
028955,000594:    4635  E7,1424                                  EBANK=   ECSTEER                               
028956,000595:    4635           35003                           CAF      BIT13                                 
028957,000596:    4636           55424                           TS       ECSTEER                               #  SET ECSTEER = 1
028958,000597:    4637           35005                           CAF      EBANK4                                
028959,000598:    4640           54003                           TS       EBANK                                 
028960,000599:    4641  E4,1770                                  EBANK=   SUBEXIT                               
028961,000600:    4641           01770                           TC       SUBEXIT                               
028962,000601:    4642           00006        AVFLAGP            EXTEND                                         #  AVFLAG = LEM
028963,000602:    4643           23770                           QXCH     SUBEXIT                               
028964,000603:    4644           05546                           TC       UPFLAG                                
028965,000604:    4645           00050                           ADRES    AVFLAG                                #  BIT 5 FLAG 2
028966,000605:    4646           01770                           TC       SUBEXIT                               
028967,000606:    4647           00006        P20FLGON           EXTEND                                         
028968,000607:    4650           23770                           QXCH     SUBEXIT                               
028969,000608:    4651           05546                           TC       UPFLAG                                
028970,000609:    4652           00031                           ADRES    TRACKFLG                              
028971,000610:    4653           05546                           TC       UPFLAG                                
028972,000611:    4654           00027                           ADRES    UPDATFLG                              
028973,000612:    4655           01770                           TC       SUBEXIT                               #  DP B4
028974,000613: 
028975,000614: 

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