Source Code

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

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

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

027339,000002:                                                                                                  ## Copyright:   Public domain.
027340,000003:                                                                                                  ## Filename:    P30,P37.agc
027341,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
027342,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
027343,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
027344,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
027345,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
027346,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
027347,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
027348,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
027349,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
027350,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
027351,000014:                                                                                                  ##              reconstruction is correct.
027352,000015:                                                                                                  ## Assembler:   yaYUL
027353,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027354,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
027355,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
027356,000019: 
027357,000020: 32,2017                                           BANK     32                                    
027358,000021: 
027359,000022: 35,2000                                           SETLOC   P30S1                                 
027360,000023: 35,2000                                           BANK                                           
027361,000024: 
027362,000025: 35,3264  E7,1625                                  EBANK=   +MGA                                  
027363,000026: 
027364,000027: 35,3264                                           COUNT    35/P34                                
027365,000028: 
027366,000029: 35,3264           77420        DISPMGA            STQ      EXIT                                  #  USED IN P30
027367,000030: 
027368,000031: 35,3265           02370                                    RGEXIT                                
027369,000032: 35,3266           03304                           TC       COMPTGO                               
027370,000033: 
027371,000034: 35,3267           34621        DISP45             CAF      V16N45                                
027372,000035: 35,3270           04676                           TC       BANKCALL                              
027373,000036: 35,3271           21057                           CADR     GOFLASHR                              
027374,000037: 35,3272           04106                           TC       GOTOPOOH                              
027375,000038: 35,3273           03300                           TC       END45                                 
027376,000039: 35,3274           03267                           TC       DISP45                                
027377,000040: 35,3275           05426        P30PHSI            TC       PHASCHNG                              
027378,000041: 35,3276           00014                           OCT      14                                    
027379,000042: 35,3277           05233                           TCR      ENDOFJOB                              
027380,000043: 35,3300           06006        END45              TC       INTPRET                               
027381,000044: 35,3301           52014                           CLEAR    GOTO                                  
027382,000045: 35,3302           03664                                    TIMRFLAG                              
027383,000046: 35,3303           02370                                    RGEXIT                                
027384,000047: 
027385,000048: 35,3304           00006        COMPTGO            EXTEND                                         #  USED TO COMPUTE TTOGO
027386,000049: 35,3305           23066                           QXCH     PHSPRDT6                              #  ** GROUP 6 TEMPORARY USED ,, BEWARE **
027387,000050: 
027388,000051: 35,3306           05562                           TC       UPFLAG                                #  SET TIMRFLAG
027389,000052: 35,3307           00155                           ADRES    TIMRFLAG                              #  BIT 11 FLAG 7
027390,000053: 35,3310           35035                           CAF      ZERO                                  
027391,000054: 35,3311           55145                           TS       NVWORD1                               
027392,000055: 
027393,000056: 35,3312           35033                           CAF      ONE                                   
027394,000057: 35,3313           05261                           TC       WAITLIST                              
027395,000058: 35,3314  E7,1412                                  EBANK=   TIG                                   
027396,000059: 35,3314           03263 50067                     2CADR    CLOKTASK                              
027397,000060: 
027398,000061: 35,3316           05406                           TC       2PHSCHNG                              
027399,000062: 35,3317           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
027400,000063: 35,3320           05024                           OCT      05024                                 #  GROUP 4 CONTINUES HERE
027401,000064: 35,3321           13000                           OCT      13000                                 
027402,000065: 
027403,000066: 35,3322           01066                           TC       PHSPRDT6                              
027404,000067:                                                                                                  #  PROGRAM DESCRIPTION P30       DATE 3-6-67
027405,000068:                                                                                                  #  MOD. I BY S. ZELDIN-  TO ADD P31 AND ADAPT P30 FOR P31 USE.   22DEC67
027406,000069: 
027407,000070:                                                                                                  #  FUNCTIONAL DESCRIPTION
027408,000071:                                                                                                  #        +30     (EXTERNAL DELTA-V TARGETTING PROGRAM)
027409,000072:                                                                                                  #                ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
027410,000073:                                                                                                  #                APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER
027411,000074:                                                                                                  #        P31     (GENERAL LAMBERT AIMPOINT GUIDANCE)
027412,000075:                                                                                                  #                A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
027413,000076:                                                                                                  #                POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
027414,000077:                                                                                                  #                BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND
027415,000078:                                                                                                  #                ASTRONAUT ENTRY OF TIG, P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
027416,000079:                                                                                                  #                AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH
027417,000080:                                                                                                  #                DESIRED MANEUVER
027418,000081: 
027419,000082:                                                                                                  #  THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
027420,000083:                                                                                                  #        S30.1 (P30 ONLY)
027421,000084:                                                                                                  #        S31.1 (P31 ONLY)
027422,000085:                                                                                                  #        P30/P31 - DISPLAYS TIG
027423,000086:                                                                                                  #        CNTUP30 - DISPLAYS DELV(LV)
027424,000087:                                                                                                  #        PARAM30 - DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
027425,000088:                                                                                                  #                  MARKS SINCE LAST THRUSTING MANEUVER
027426,000089: 
027427,000090:                                                                                                  #  CALLING SEQUENCE VIA JOB FROM V37
027428,000091: 
027429,000092:                                                                                                  #  EXIT VIA V37 CALL OR GOTOPOOH
027430,000093: 
027431,000094:                                                                                                  #  OUTPUT FOR POWERED FLIGHT
027432,000095:                                                                                                  #        VTIG    X
027433,000096:                                                                                                  #        RTIG    X       SEE S30.1
027434,000097:                                                                                                  #        DELVSIN X
027435,000098:                                                                                                  #        VGDISP
027436,000099:                                                                                                  #        RTARG   X
027437,000100:                                                                                                  #        TPASS4  X       SEE S31.1
027438,000101:                                                                                                  #                X
027439,000102: 
027440,000103: 35,3323                                           COUNT    35/P30                                
027441,000104: 
027442,000105: 35,3323           03355        P30                TC       P30/P31                               
027443,000106: 35,3324           03374                           TC       CNTNUP30                              
027444,000107: 35,3325           05562                           TC       UPFLAG                                
027445,000108: 35,3326           00045                           ADRES    XDELVFLG                              #  SET XDELVFLG BIT 8 FLAG 2
027446,000109: 35,3327           05574                           TC       DOWNFLAG                              #  RESET UPDATFLG
027447,000110: 35,3330           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
027448,000111: 35,3331           06006                           TC       INTPRET                               
027449,000112: 35,3332           77624                           CALL                                           
027450,000113: 35,3333           63501                                    S30.1                                 
027451,000114: 35,3334           77776                           EXIT                                           
027452,000115: 35,3335           03404                           TC       PARAM30                               
027453,000116: 35,3336           14106                           TCF      GOTOPOOH                              
027454,000117: 
027455,000118: 35,3337           03355        P31                TC       P30/P31                               
027456,000119: 35,3340           05574                           TC       DOWNFLAG                              
027457,000120: 35,3341           00027                           ADRES    UPDATFLG                              #  RESET UPDATFLG BIT 7 FLAG 1
027458,000121: 35,3342           05574                           TC       DOWNFLAG                              
027459,000122: 35,3343           00156                           ADRES    NORMSW                                #  RESET NORMSW BIT 10 FLAG 7
027460,000123: 35,3344           06006                           TC       INTPRET                               
027461,000124: 35,3345           77624                           CALL                                           
027462,000125: 35,3346           63553                                    S31.1                                 
027463,000126: 35,3347           77776                           EXIT                                           
027464,000127: 35,3350           03374                           TC       CNTNUP30                              
027465,000128: 35,3351           03404                           TC       PARAM30                               
027466,000129: 35,3352           05574                           TC       DOWNFLAG                              
027467,000130: 35,3353           00045                           ADRES    XDELVFLG                              #  BIT 8 FLAG 2
027468,000131: 35,3354           14106                           TCF      GOTOPOOH                              
027469,000132: 
027470,000133: 35,3355           56002        P30/P31            XCH      Q                                     
027471,000134: 35,3356           55664                           TS       P30/31RT                              
027472,000135: 35,3357           05562                           TC       UPFLAG                                
027473,000136: 35,3360           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG BIT 7 FLAG 1
027474,000137: 35,3361           05562                           TC       UPFLAG                                
027475,000138: 35,3362           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG BIT 5 FLAG 1
027476,000139: 35,3363           33441                           CAF      V06N33                                #  T OF IGN
027477,000140: 35,3364           04676                           TC       BANKCALL                              
027478,000141: 35,3365           21057                           CADR     GOFLASHR                              
027479,000142: 35,3366           14106                           TCF      GOTOPOOH                              
027480,000143: 35,3367           01664                           TC       P30/31RT                              
027481,000144: 35,3370           13361                           TCF      P30/P31    +4                         
027482,000145: 35,3371           05426                           TC       PHASCHNG                              
027483,000146: 35,3372           00014                           OCT      00014                                 
027484,000147: 35,3373           05233                           TC       ENDOFJOB                              
027485,000148: 
027486,000149: 35,3374           56002        CNTNUP30           XCH      Q                                     
027487,000150: 35,3375           55127                           TS       P30/RET                               
027488,000151: 35,3376           34620                           CAF      V06N81                                
027489,000152: 35,3377           04676                           TC       BANKCALL                              
027490,000153: 35,3400           20720                           CADR     GOFLASH                               
027491,000154: 35,3401           14106                           TCF      GOTOPOOH                              
027492,000155: 35,3402           01127                           TC       P30/RET                               
027493,000156: 35,3403           13376                           TCF      CNTNUP30   +2                         
027494,000157: 35,3404           56002        PARAM30            XCH      Q                                     
027495,000158: 35,3405           55664                           TS       P30/31RT                              
027496,000159: 35,3406           33442                           CAF      V06N42                                
027497,000160: 35,3407           04676                           TC       BANKCALL                              
027498,000161: 35,3410           20720                           CADR     GOFLASH                               
027499,000162: 35,3411           04106                           TC       GOTOPOOH                              #  ON TERMINATION GOTOPOOH
027500,000163: 35,3412           13414                           TCF      REFTEST                               #  ON PROCEED GO DO REFTEST
027501,000164: 35,3413           13406                           TCF      PARAM30    +2                         
027502,000165: 35,3414           35017        REFTEST            CAF      BIT13                                 
027503,000166: 35,3415           70077                           MASK     STATE      +3                         #  REFSMFLAG
027504,000167: 35,3416           00006                           EXTEND                                         
027505,000168: 35,3417           13427                           BZF      NOTSET                                #  REFSMFLAG =0, THEN BRANCH TO NOTSET
027506,000169: 35,3420           06006                           TC       INTPRET                               
027507,000170: 35,3421           41575                           VLOAD    PUSH                                  
027508,000171: 35,3422           03646                                    DELVSIN                               
027509,000172: 35,3423           77624                           CALL                                           
027510,000173: 35,3424           10654                                    GET+MGA                               
027511,000174: 35,3425           77650                           GOTO                                           
027512,000175: 35,3426           73433                                    FLASHMGA                              
027513,000176: 35,3427           00006        NOTSET             EXTEND                                         
027514,000177: 35,3430           43440                           DCS      MARSDP                                
027515,000178: 35,3431           53626                           DXCH     +MGA                                  #  +MGA, +MGA+1 CONTAINS (-00001)
027516,000179: 35,3432           06006                           TC       INTPRET                               
027517,000180: 35,3433           77624        FLASHMGA           CALL                                           
027518,000181: 35,3434           73264                                    DISPMGA                               
027519,000182: 35,3435           77776                           EXIT                                           
027520,000183: 35,3436           01664                           TC       P30/31RT                              
027521,000184: 35,3437           00000        MARSDP             OCT      00000                                 #  (00000) (16440) = (+00001)
027522,000185: 35,3440           35100                           OCT      35100                                 
027523,000186:                                                                                                  #  ( .01 ) DEGREES IN THE LOW ORDER REGISTE
027524,000187: 
027525,000188: 35,3441           01441        V06N33             VN       0633                                  
027526,000189: 35,3442           01452        V06N42             VN       0642                                  
027527,000190: 35,3443           04043        V16N35             VN       1635                                  
027528,000191: 35,3444           01455        V06N45             VN       0645                                  
027529,000192: 
027530,000193:                                                                                                  #  PROGRAM DESCRIPTION S30.1     DATE 9NOV66
027531,000194:                                                                                                  #  MOD NO 1                      LOG SECTION P30,P37
027532,000195:                                                                                                  #  MOD BY RAMA AIYAWAR **
027533,000196:                                                                                                  #  MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS             29DEC67
027534,000197: 
027535,000198:                                                                                                  #  FUNCTIONAL DESCRIPTION
027536,000199:                                                                                                  #        BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
027537,000200:                                                                                                  #        IGNITION (VTIG), TIME OF IGNITION (TIG), DELV(LV), COMPUTE PERIGEE ALTITUDE
027538,000201:                                                                                                  #        A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN)
027539,000202: 
027540,000203:                                                                                                  #  CALLING SEQUENCE
027541,000204:                                                                                                  #        L       CALL
027542,000205:                                                                                                  #        L+1             S30.1
027543,000206: 
027544,000207:                                                                                                  #  NORMAL EXIT MODE
027545,000208:                                                                                                  #        AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027546,000209: 
027547,000210:                                                                                                  #  SUBROUTINES CALLED
027548,000211:                                                                                                  #        THISPREC
027549,000212:                                                                                                  #        PERIAPO
027550,000213: 
027551,000214:                                                                                                  #  ALARM OR ABORT EXIT MODES
027552,000215:                                                                                                  #        NONE
027553,000216: 
027554,000217:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
027555,000218:                                                                                                  #        TIG             TIME OF IGNITION        DP B28CS
027556,000219:                                                                                                  #        DELVSLV         SPECIFIED DELTA-V IN LOCAL VERT.
027557,000220:                                                                                                  #                        COORDS. OF ACTIVE VEHICLE AT
027558,000221:                                                                                                  #                        TIME OF IGNITION        VCT. B+7 M/CS
027559,000222: 
027560,000223:                                                                                                  #  OUTPUT
027561,000224:                                                                                                  #        RTIG            POSITION AT TIG         VCT.    B+29 M
027562,000225:                                                                                                  #        VTIG            VELOCITY AT TIG         VCT.    B+7 M
027563,000226:                                                                                                  #        HAPO            APOGEE ALT.             DP      B+29 M
027564,000227:                                                                                                  #        HPER            PERIGEE ALT.            DP      B+29 M
027565,000228:                                                                                                  #        DELVSIN         DELVSLV IN REF COORDS   VCT.    B+7 M/CS
027566,000229:                                                                                                  #        VGDISP          MAG. OF DELVSIN         DP      B+7 M/CS
027567,000230: 
027568,000231:                                                                                                  #  DEBRIS        QTEMP   TEMP.ERASABLE
027569,000232:                                                                                                  #                QPRET, MPAC
027570,000233:                                                                                                  #                PUSHLIST
027571,000234: 
027572,000235: 31,2000                                           SETLOC   P30S1A                                
027573,000236: 31,2000                                           BANK                                           
027574,000237: 
027575,000238: 31,3501                                           COUNT    35/S30S                               
027576,000239: 
027577,000240: 31,3501           71220        S30.1              STQ      DLOAD                                 
027578,000241: 31,3502           03657                                    QTEMP                                 
027579,000242: 31,3503           03413                                    TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
027580,000243: 31,3504           34041                           STCALL   TDEC1                                 
027581,000244: 31,3505           27100                                    THISPREC                              #  ENCKE ROUTINE FOR 
027582,000245: 
027583,000246: 31,3506           67175                           VLOAD    SXA,2                                 
027584,000247: 31,3507           00007                                    VATT                                  
027585,000248: 31,3510           03746                                    RTX2                                  
027586,000249: 31,3511           27640                           STOVL    VTIG                                  
027587,000250: 31,3512           00001                                    RATT                                  
027588,000251: 31,3513           03632                           STORE    RTIG                                  
027589,000252: 31,3514           03540                           STORE    RACT3                                 
027590,000253: 31,3515           53435                           VXV      UNIT                                  
027591,000254: 31,3516           03640                                    VTIG                                  
027592,000255: 31,3517           36617                           STCALL   UNRM                                  
027593,000256: 31,3520           72666                                    LOMAT                                 
027594,000257: 31,3521           61375                           VLOAD    VXM                                   
027595,000258: 31,3522           03405                                    DELVSLV                               
027596,000259: 31,3523           00001                                    0                                     
027597,000260: 31,3524           66172                           VSL1     SXA,1                                 
027598,000261: 31,3525           03745                                    RTX1                                  
027599,000262: 31,3526           03646                           STORE    DELVSIN                               
027600,000263: 31,3527           77646                           ABVAL                                          
027601,000264: 31,3530           27773                           STOVL    VGDISP                                #  MAG DELV
027602,000265: 31,3531           03632                                    RTIG                                  
027603,000266: 31,3532           53315                           PDVL     VAD                                   
027604,000267: 31,3533           03646                                    DELVSIN                               
027605,000268: 31,3534           03640                                    VTIG                                  
027606,000269: 31,3535           77624                           CALL                                           
027607,000270: 31,3536           45153                                    PERIAPO1                              
027608,000271: 31,3537           77624                           CALL                                           
027609,000272: 31,3540           45263                                    SHIFTR1                               
027610,000273: 31,3541           77624                           CALL                                           
027611,000274: 31,3542           46756                                    MAXCHK                                
027612,000275: 31,3543           16366                           STODL    HPER                                  #  PERIGEE ALT B+29
027613,000276: 31,3544           00005                                    4D                                    
027614,000277: 31,3545           77624                           CALL                                           
027615,000278: 31,3546           45263                                    SHIFTR1                               
027616,000279: 31,3547           77624                           CALL                                           
027617,000280: 31,3550           46756                                    MAXCHK                                
027618,000281: 31,3551           36364                           STCALL   HAPO                                  #  APOGEE ALT B+29
027619,000282: 31,3552           03657                                    QTEMP                                 
027620,000283: 
027621,000284:                                                                                                  #  S31.1 PROGRAM DESCRIPTION             28DEC67
027622,000285:                                                                                                  #  MOD.1 BY S.ZELDIN
027623,000286: 
027624,000287:                                                                                                  #  S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
027625,000288:                                                                                                  #  APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
027626,000289: 
027627,000290:                                                                                                  #  CALLING SEQUENCE
027628,000291:                                                                                                  #        L       CALL
027629,000292:                                                                                                  #        L+1             S31.1
027630,000293: 
027631,000294:                                                                                                  #  NORMAL EXIT MODE
027632,000295:                                                                                                  #        AT L +2 OF CALLING SEQUENCE (GOTO L+2)
027633,000296: 
027634,000297:                                                                                                  #  SUBROUTINES CALLED
027635,000298:                                                                                                  #        AGAIN
027636,000299:                                                                                                  #        PERIAPO1
027637,000300:                                                                                                  #        SHIFTR1
027638,000301:                                                                                                  #        MIDGIM
027639,000302: 
027640,000303:                                                                                                  #  NO ALARM OR ABORT MODES
027641,000304: 
027642,000305:                                                                                                  #  INPUT
027643,000306:                                                                                                  #        DELLT4          DP      +28
027644,000307:                                                                                                  #        TIG             DP      +28
027645,000308:                                                                                                  #        RTARG           VCT     +29
027646,000309: 
027647,000310:                                                                                                  #  OUTPUT
027648,000311:                                                                                                  #        DELVLVC         VCT     +7
027649,000312:                                                                                                  #        VGDISP          DP      +7
027650,000313:                                                                                                  #        HAPO            DP      +29
027651,000314:                                                                                                  #        HPER            DP      +29
027652,000315:                                                                                                  #        TPASS4          DP      +28
027653,000316: 
027654,000317:                                                                                                  #  DEBRIS - QTEMP
027655,000318: 
027656,000319: 31,3553           71220        S31.1              STQ      DLOAD                                 
027657,000320: 31,3554           03657                                    QTEMP                                 
027658,000321: 31,3555           03413                                    TIG                                   
027659,000322: 31,3556           34041                           STCALL   TDEC1                                 
027660,000323: 31,3557           61651                                    AGAIN                                 #  RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
027661,000324: 31,3560           63375                           VLOAD    PDVL                                  #  DELUEET3
027662,000325: 31,3561           03632                                    RTIG                                  
027663,000326: 31,3562           03612                                    VIPRIME                               
027664,000327: 31,3563           77624                           CALL                                           
027665,000328: 31,3564           45153                                    PERIAPO1                              
027666,000329: 31,3565           77624                           CALL                                           
027667,000330: 31,3566           45263                                    SHIFTR1                               
027668,000331: 31,3567           77624                           CALL                                           
027669,000332: 31,3570           46756                                    MAXCHK                                
027670,000333: 31,3571           16366                           STODL    HPER                                  #  B29
027671,000334: 31,3572           00005                                    4D                                    
027672,000335: 31,3573           77624                           CALL                                           
027673,000336: 31,3574           45263                                    SHIFTR1                               
027674,000337: 31,3575           77624                           CALL                                           
027675,000338: 31,3576           46756                                    MAXCHK                                
027676,000339: 31,3577           26364                           STOVL    HAPO                                  #  B29
027677,000340: 31,3600           03646                                    DELVEET3                              
027678,000341: 31,3601           00001                           STORE    0                                     
027679,000342: 31,3602           45014                           SET      CALL                                  
027680,000343: 31,3603           01072                                    AVFLAG                                
027681,000344: 31,3604           10647                                    MIDGIM                                #  GET DELVLVC B7 FOR DISPLAY
027682,000345: 31,3605           77646                           ABVAL                                          
027683,000346: 31,3606           17773                           STODL    VGDISP                                #  B+7 FOR DISPLAY
027684,000347: 31,3607           03423                                    DELLT4                                
027685,000348: 31,3610           77615                           DAD                                            
027686,000349: 31,3611           03413                                    TIG                                   
027687,000350: 31,3612           37656                           STCALL   TPASS4                                #  FOR S40.1
027688,000351: 31,3613           03657                                    QTEMP                                 
027689,000352: 
027690,000353:                                                                                                  #  SUBROUTINE NAME:      DELRSPL         (CONTINUATION OF V 82 IN CSM IF P11 ACTI
027691,000354:                                                                                                  #  TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33.  9 SEPT 67.
027692,000355:                                                                                                  #  MOD NO: 0     MOD BY: ZELDIN          DATE:
027693,000356:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
027694,000357:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67         ADD UR.RT CALC WHEN BELOW 300K FT
027695,000358:                                                                                                  #  MOD NO: 2.1   MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67         FIX ERROR IN MOD. 2.
027696,000359:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67         CHANGE SIGN OF DISPLAYED ERROR.
027697,000360:                                                                                                  #  MOD 4         MOD BY  S.ZELDIN        DATE  3 APRIL 68        CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
027698,000361: 
027699,000362:                                                                                                  #  FUNCTION:     CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
027700,000363:                                                                                                  #                ERROR.  IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
027701,000364:                                                                                                  #                SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
027702,000365:                                                                                                  #                THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED.  IF THE FREE-FALL TRANSFER
027703,000366:                                                                                                  #                ANGLE IS NEGATIVE:  SPLASH ERROR= -RANGE TO TARGET
027704,000367:                                                                                                  #                THE PRESENT TARGET LOCATION IS USED.
027705,000368: 
027706,000369:                                                                                                  #  CALLING SEQUENCE  CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
027707,000370: 
027708,000371:                                                                                                  #  SUBROUTINES CALLED:  VGAMCALC, TFF/TRIG, LALOTORV.
027709,000372: 
027710,000373:                                                                                                  #  EXIT          RETURN DIRECTLY TO V 82 PROG. AT SPLRET
027711,000374: 
027712,000375:                                                                                                  #  ERASABLE INITIALIZATION   LEFT BY SR30.1 AND V82GON1
027713,000376: 
027714,000377:                                                                                                  #  OUTPUT:       RSP-RREC RANGE IN REVOLUTIONS                   DSKY DISPLAY IN N. MI.
027715,000378: 
027716,000379:                                                                                                  #  DEBRIS:       QPRET, PDL0 ... PDL7, PDL10
027717,000380: 
027718,000381:                                                                                                  #  THETA(1)
027719,000382: 
027720,000383: 32,2017                                           BANK     32                                    
027721,000384: 32,2000                                           SETLOC   DELRSPL1                              
027722,000385: 32,2000                                           BANK                                           
027723,000386: 32,2017                                           COUNT*   $$/P30                                #  PROGRAMS: P30 EXTERNAL DELTA V
027724,000387: 
027725,000388: 32,2017           00011        DELRSPL            STORE    8D                                    
027726,000389: 32,2020           45244                           BPL      DSU                                   
027727,000390: 32,2021           64067                                    CANTDO                                #  GONE PAST 300K FT ALT
027728,000391: 32,2022           16326                                    1BITDP                                
027729,000392: 32,2023           45000                           BOV      CALL                                  
027730,000393: 32,2024           64067                                    CANTDO                                #  POSMAX INDICATES NO 300K FT SOLUTION.
027731,000394: 32,2025           55050                                    VGAMCALC                              #  +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
027732,000395: 32,2026           45006                           PUSH     CALL                                  
027733,000396: 32,2027           56632                                    TFF/TRIG                              
027734,000397: 32,2030           77624                           CALL                                           
027735,000398: 32,2031           64075                                    AUGEKUGL                              
027736,000399: 32,2032           65525                           PDDL     ACOS                                  #  T ENTRY PDL 6
027737,000400: 32,2033           00017                                    CDELF/2                               
027738,000401: 32,2034           77615                           DAD                                            
027739,000402: 32,2035           00005                                    4                                     
027740,000403: 32,2036           26350        GETARG             STOVL    THETA(1)                              
027741,000404: 32,2037           03401                                    LAT(SPL)                              
027742,000405: 32,2040           15104                           STODL    LAT                                   
027743,000406: 32,2041           15334                                    HI6ZEROS                              
027744,000407: 32,2042           15110                           STODL    ALT                                   #  ALT=0 = LAT +4
027745,000408: 32,2043           01205                                    PIPTIME                               
027746,000409: 32,2044           71214                           BON      DLOAD                                 
027747,000410: 32,2045           03711                                    V37FLAG                               
027748,000411: 32,2046           64050                                    +2                                    
027749,000412: 32,2047           02325                                    TSTART82                              
027750,000413: 32,2050           43225                           DSU      DAD                                   
027751,000414: 32,2051           00011                                    8D                                    
027752,000415: 32,2052           45014                           CLEAR    CALL                                  
027753,000416: 32,2053           00662                                    ERADFLAG                              
027754,000417: 32,2054           26447                                    LALOTORV                              #  R RECOV. IN ALPHAV AND MPAC
027755,000418: 
027756,000419: 32,2055           63256                           UNIT     PDVL                                  
027757,000420: 32,2056           02327                                    RONE                                  
027758,000421: 32,2057           50256                           UNIT     DOT                                   
027759,000422: 32,2060           65552                           SL1      ARCCOS                                
027760,000423: 32,2061           77621                           BDSU                                           #  ERROR = THETA EST - THETA TARG
027761,000424:                                                                                                  #  NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
027762,000425:                                                                                                  #  POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
027763,000426: 32,2062           02350                                    THETA(1)                              
027764,000427: 32,2063           36356        DELRDONE           STCALL   RSP-RREC                              #  DOWNRANGE RECOVERY RANGE ERROR        /360
027765,000428: 32,2064           27461                                    INTWAKE0                              
027766,000429: 32,2065           77624                           CALL                                           
027767,000430: 32,2066           46655                                    SPLRET                                
027768,000431: 32,2067           65345        CANTDO             DLOAD    PDDL                                  #  INITIALIZE ERASE TO DOT TARGET AND UR
027769,000432:                                                                                                  #  FOR RANGE ANGLE.
027770,000433: 32,2070           15332                                    HIDPHALF                              #  TO PDL 0 FOR DEN INDDV.
027771,000434: 32,2071           15334                                    HI6ZEROS                              
027772,000435: 32,2072           77606                           PUSH                                           #  ZERO TO PDL 2 FOR PHI ENTRY
027773,000436: 32,2073           34011                           STCALL   8D                                    
027774,000437: 32,2074           64036                                    GETARG                                #  GO SET RSP-RREC =0
027775,000438: 
027776,000439: 32,2075           77775        AUGEKUGL           VLOAD                                          
027777,000440: 32,2076           24256                                    X1CON      -2                         
027778,000441: 32,2077           14045                           STODL    X1         -2                         
027779,000442: 32,2100           00001                                    0                                     
027780,000443: 32,2101           50025                           DSU      BMN                                   
027781,000444: 32,2102           24250                                    V(21K)                                
027782,000445: 32,2103           64130                                    LOOPSET                               
027783,000446: 32,2104           65060                           XSU,1    XCHX,2                                
027784,000447: 32,2105           00050                                    S1                                    
027785,000448: 32,2106           00046                                    X1                                    
027786,000449: 32,2107           45324                           XCHX,2   DSU                                   
027787,000450: 32,2110           00050                                    S1                                    
027788,000451: 32,2111           24236                                    V(3K)                                 
027789,000452: 32,2112           65040                           BMN      XCHX,2                                
027790,000453: 32,2113           64130                                    LOOPSET                               
027791,000454: 32,2114           00050                                    S1                                    
027792,000455: 32,2115           50025                           DSU      BMN                                   
027793,000456: 32,2116           24246                                    V(4K)                                 
027794,000457: 32,2117           64130                                    LOOPSET                               
027795,000458: 32,2120           65124                           XCHX,2   XCHX,2                                
027796,000459: 32,2121           00050                                    S1                                    
027797,000460: 32,2122           00046                                    X1                                    
027798,000461: 32,2123           50025                           DSU      BMN                                   
027799,000462: 32,2124           24232                                    V(400)                                
027800,000463: 32,2125           64130                                    LOOPSET                               
027801,000464: 32,2126           77730                           SXA,1                                          
027802,000465: 32,2127           00050                                    S1                                    
027803,000466: 32,2130           52110        LOOPSET            INCR,1   GOTO                                  
027804,000467: 32,2131           00001                           DEC      1          B-14                       
027805,000468: 32,2132           64135                                    K1K2LOOP                              
027806,000469: 32,2133           77730        K2CALC             SXA,1                                          
027807,000470: 32,2134           00050                                    S1                                    
027808,000471: 32,2135           44745        K1K2LOOP           DLOAD    DSU*                                  
027809,000472: 32,2136           00001                                    0                                     
027810,000473: 32,2137           24245                                    V(32K)     +1,1                       
027811,000474: 32,2140           42603                           DMP*     DAD*                                  
027812,000475: 32,2141           24231                                    YK1K2      +1,1                       
027813,000476: 32,2142           24215                                    CK1K2      +1,1                       
027814,000477: 32,2143           60125                           PDDL     TIX,1                                 
027815,000478: 32,2144           00003                                    2                                     
027816,000479: 32,2145           64133                                    K2CALC                                
027817,000480: 32,2146           55225                           DSU      BDDV                                  
027818,000481: 32,2147           40006                           PUSH     BOV                                   
027819,000482: 32,2150           64173                                    MAXPHI                                
027820,000483: 32,2151           45240                           BMN      DSU                                   
027821,000484: 32,2152           64173                                    MAXPHI                                
027822,000485: 32,2153           24200                                    MAXPHIC                               
027823,000486: 32,2154           77644                           BPL                                            
027824,000487: 32,2155           64173                                    MAXPHI                                
027825,000488: 32,2156           45345        PHICALC            DLOAD    DSU                                   #  PHI ENTRY PDL 4D
027826,000489: 32,2157           00001                                    0                                     
027827,000490: 32,2160           24256                                    V(26K)                                
027828,000491: 32,2161           71244                           BPL      DLOAD                                 
027829,000492: 32,2162           64170                                    TGR26                                 
027830,000493: 32,2163           24252                                    TLESS26                               
027831,000494: 32,2164           77671                           DDV                                            
027832,000495: 32,2165           00001                                    0                                     
027833,000496: 32,2166           43405        TENT               DMP      RVQ                                   
027834,000497: 32,2167           00005                                    4D                                    
027835,000498: 32,2170           52145        TGR26              DLOAD    GOTO                                  
027836,000499: 32,2171           24254                                    TGR26CON                              
027837,000500: 32,2172           64166                                    TENT                                  
027838,000501: 
027839,000502: 32,2173           65345        MAXPHI             DLOAD    PDDL                                  
027840,000503: 32,2174           24200                                    MAXPHIC                               
027841,000504: 32,2175           77650                           GOTO                                           
027842,000505: 32,2176           64156                                    PHICALC                               
027843,000506: 32,2177           02755 01307  MAXPHIC            2DEC     .09259298                             #  2000 NM FOR MAXIMUM PHI ENTRY
027844,000507: 
027845,000508: 
027846,000509: 32,2201                                           COUNT*   $$/P30                                
027847,000510: 
027848,000511:                                                                                                  #                BELOW
027849,000512:                                                                                                  #  <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027850,000513: 
027851,000514: 32,2201           00013 22652                     2DEC     7.07304526 E-4                        #  5500
027852,000515: 32,2203           00005 01642                     2DEC     3.08641975 E-4                        #  2400
027853,000516: 32,2205           00005 01642                     2DEC     3.08641975 E-4                        #  2400
027854,000517: 32,2207           77556 53522                     2DEC     -8.8888888 E-3                        #  -3.2
027855,000518: 32,2211           00055 20266                     2DEC     2.7777777  E-3                        #  1
027856,000519: 32,2213           00155 07202  CK1K2              2DEC     6.6666666  E-3                        #  2.4
027857,000520: 32,2215           00000 00000                     2DEC     0          B-28                       #  0
027858,000521: 32,2217           77730 71525                     2DEC*    -1.86909989 E-5        B7*             #  -.443
027859,000522: 32,2221           00000 00000                     2DEC     0          B-28                       
027860,000523: 32,2223           04445 10102                     2DEC*    1.11639691 E-3        B7*             #  .001225
027861,000524: 32,2225           03726 31201                     2DEC*    9.56911636 E-4        B7*             #  .00105
027862,000525: 32,2227           01040 26313  YK1K2              2DEC*    2.59733157 E-4        B7*             #  .000285
027863,000526: 32,2231           00234 01660  V(400)             2DEC     1.2192     B-7                        
027864,000527: 32,2233           25254 01014  V(28K)             2DEC     85.344     B-7                        
027865,000528: 32,2235           02222 15646  V(3K)              2DEC     9.144      B-7                        
027866,000529: 32,2237           22223 16457  V(24K)             2DEC     73.152     B-7                        
027867,000530: 32,2241           25254 01014                     2DEC     85.344     B-7                        
027868,000531: 32,2243           30304 23351  V(32K)             2DEC     97.536     B-7                        
027869,000532: 32,2245           03030 22335  V(4K)              2DEC     12.192     B-7                        
027870,000533: 32,2247           20000 00000  V(21K)             2DEC     64.000     B-7                        
027871,000534: 32,2251           00033 05763  TLESS26            2DEC*    5.70146688 E7         B-35*           #  8660PHI/V
027872,000535: 32,2253           00053 36200  TGR26CON           2DEC     7.2        E5         B-28            #  PHI/3
027873,000536: 32,2255           23637 27636  V(26K)             2DEC     79.248     B-7                        #  26000
027874,000537: 
027875,000538: 
027876,000539: 32,2257           00012        X1CON              DEC      10         B-14                       
027877,000540: 32,2260           00010                           DEC      8          B-14                       
027878,000541: 32,2261           00006                           DEC      6          B-14                       
027879,000542:                                                                                                  #  <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027880,000543:                                                                                                  #                     ABOVE
027881,000544:                                                                                                  #  ..... AVFLAGA/P .....
027882,000545: 
027883,000546:                                                                                                  #  SUBROUTINES USED
027884,000547: 
027885,000548:                                                                                                  #        UPFLAG
027886,000549:                                                                                                  #        DOWNFLAG
027887,000550: 
027888,000551:    4000                                           SETLOC   P30SUBS                               
027889,000552:    4000                                           BANK                                           
027890,000553:    4627  E4,1770                                  EBANK=   SUBEXIT                               
027891,000554:    4627           00006        AVFLAGA            EXTEND                                         #  AVFLAG = CSM
027892,000555:    4630           23770                           QXCH     SUBEXIT                               
027893,000556:    4631           05574                           TC       DOWNFLAG                              
027894,000557:    4632           00050                           ADRES    AVFLAG                                #  BIT 5 FLAG 2
027895,000558:    4633           35074                           CAF      EBANK7                                
027896,000559:    4634           54003                           TS       EBANK                                 
027897,000560:    4635  E7,1424                                  EBANK=   ECSTEER                               
027898,000561:    4635           35017                           CAF      BIT13                                 
027899,000562:    4636           55424                           TS       ECSTEER                               #  SET ECSTEER = 1
027900,000563:    4637           35021                           CAF      EBANK4                                
027901,000564:    4640           54003                           TS       EBANK                                 
027902,000565:    4641  E4,1770                                  EBANK=   SUBEXIT                               
027903,000566:    4641           01770                           TC       SUBEXIT                               
027904,000567:    4642           00006        AVFLAGP            EXTEND                                         #  AVFLAG = LEM
027905,000568:    4643           23770                           QXCH     SUBEXIT                               
027906,000569:    4644           05562                           TC       UPFLAG                                
027907,000570:    4645           00050                           ADRES    AVFLAG                                #  BIT 5 FLAG 2
027908,000571:    4646           01770                           TC       SUBEXIT                               
027909,000572:    4647           00006        P20FLGON           EXTEND                                         
027910,000573:    4650           23770                           QXCH     SUBEXIT                               
027911,000574:    4651           05562                           TC       UPFLAG                                
027912,000575:    4652           00031                           ADRES    TRACKFLG                              
027913,000576:    4653           05562                           TC       UPFLAG                                
027914,000577:    4654           00027                           ADRES    UPDATFLG                              
027915,000578:    4655           01770                           TC       SUBEXIT                               #  DP B4
027916,000579: 
027917,000580: 

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