Source Code

These source-code files are part of a reconstructed copy of Comanche 44, the initial release (though not the final mission release) of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 44, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 51 (separately previously reconstructed from an Apollo-era listing of Comanche 55, flown on Apollo 11). Comanche 51 source code was then modified by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed Comanche 44 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code match those on the Comanche 55 printout, although the source code would likely have different page numbers in a contemporary Comanche 44 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the explanatory annotations, there is also a step-by-step commentary about the reconstruction process.

Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

028064,000002:                                                                                                  ## Copyright:   Public domain.
028065,000003:                                                                                                  ## Filename:    P30,P37.agc
028066,000004:                                                                                                  ## Purpose:     A section of Comanche revision 044.
028067,000005:                                                                                                  ##              It is part of the reconstructed source code for the
028068,000006:                                                                                                  ##              original release of the flight software for the Command
028069,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
028070,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
028071,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
028072,000010:                                                                                                  ##              exactly match those specified for Comanche 44 in NASA drawing
028073,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
028074,000012:                                                                                                  ##              reconstruction is correct.
028075,000013:                                                                                                  ## Assembler:   yaYUL
028076,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028077,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028078,000016:                                                                                                  ## Mod history: 2020-12-03 MAS  Created from Comanche 51.
028079,000017:                                                                                                  ##              2020-12-04 MAS  Added back an INHINT that was removed.
028080,000018:                                                                                                  ##              2020-12-11 RSB  Added an annotation justifying the change mentioned above.
028081,000019:                                                                                                  ##              2020-12-13 RSB  Incorporated feedback about the annotations.
028082,000020: 

Page 635

028084,000022: 32,2017                                           BANK     32                                    
028085,000023: 
028086,000024: 35,2000                                           SETLOC   P30S1                                 
028087,000025: 35,2000                                           BANK                                           
028088,000026: 
028089,000027: 35,3270  E7,1625                                  EBANK=   +MGA                                  
028090,000028: 
028091,000029: 35,3270                                           COUNT    35/P34                                
028092,000030: 
028093,000031: 35,3270           77420        DISPMGA            STQ      EXIT                                  #  USED IN P30
028094,000032: 
028095,000033: 35,3271           02370                                    RGEXIT                                
028096,000034: 35,3272           03310                           TC       COMPTGO                               
028097,000035: 
028098,000036: 35,3273           34621        DISP45             CAF      V16N45                                
028099,000037: 35,3274           04662                           TC       BANKCALL                              
028100,000038: 35,3275           21057                           CADR     GOFLASHR                              
028101,000039: 35,3276           04106                           TC       GOTOPOOH                              
028102,000040: 35,3277           03304                           TC       END45                                 
028103,000041: 35,3300           03273                           TC       DISP45                                
028104,000042: 35,3301           05412        P30PHSI            TC       PHASCHNG                              
028105,000043: 35,3302           00014                           OCT      14                                    
028106,000044: 35,3303           05217                           TCR      ENDOFJOB                              
028107,000045: 35,3304           06006        END45              TC       INTPRET                               
028108,000046: 35,3305           52014                           CLEAR    GOTO                                  
028109,000047: 35,3306           03664                                    TIMRFLAG                              
028110,000048: 35,3307           02370                                    RGEXIT                                
028111,000049: 
028112,000050: 35,3310           00006        COMPTGO            EXTEND                                         #  USED TO COMPUTE TTOGO
028113,000051: 35,3311           23066                           QXCH     PHSPRDT6                              #  ** GROUP 6 TEMPORARY USED ,, BEWARE **
028114,000052: 
028115,000053: 35,3312           05546                           TC       UPFLAG                                #  SET TIMRFLAG
028116,000054: 35,3313           00155                           ADRES    TIMRFLAG                              #  BIT 11 FLAG 7
028117,000055: 35,3314           35021                           CAF      ZERO                                  
028118,000056: 35,3315           55145                           TS       NVWORD1                               

Reconstruction: The following INHINT instruction is not present in Comanche 55 (Apollo 11), but none of the available contemporary documentation suggests that it should be removed from Comanche 44 (Apollo 10). However, it is present in Colossus 249 (Apollo 9), and if not present here would result in a one-word offset in succeeding memory locations that is difficult to resolve.

028124,000062: 35,3316           00004                           INHINT                                         
028125,000063: 35,3317           35017                           CAF      ONE                                   
028126,000064: 35,3320           05245                           TC       WAITLIST                              
028127,000065: 35,3321  E7,1412                                  EBANK=   TIG                                   
028128,000066: 35,3321           03260 50067                     2CADR    CLOKTASK                              
028129,000067: 
028130,000068: 35,3323           05372                           TC       2PHSCHNG                              
028131,000069: 35,3324           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
028132,000070: 35,3325           05024                           OCT      05024                                 #  GROUP 4 CONTINUES HERE
028133,000071: 35,3326           13000                           OCT      13000                                 
028134,000072: 
028135,000073: 35,3327           01066                           TC       PHSPRDT6                              

Page 636

028137,000075:                                                                                                  #  PROGRAM DESCRIPTION P30       DATE 3-6-67
028138,000076:                                                                                                  #  MOD. I BY S. ZELDIN-  TO ADD P31 AND ADAPT P30 FOR P31 USE.   22DEC67
028139,000077: 
028140,000078:                                                                                                  #  FUNCTIONAL DESCRIPTION
028141,000079:                                                                                                  #        +30     (EXTERNAL DELTA-V TARGETTING PROGRAM)
028142,000080:                                                                                                  #                ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
028143,000081:                                                                                                  #                APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER
028144,000082:                                                                                                  #        P31     (GENERAL LAMBERT AIMPOINT GUIDANCE)
028145,000083:                                                                                                  #                A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
028146,000084:                                                                                                  #                POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
028147,000085:                                                                                                  #                BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND
028148,000086:                                                                                                  #                ASTRONAUT ENTRY OF TIG, P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
028149,000087:                                                                                                  #                AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH
028150,000088:                                                                                                  #                DESIRED MANEUVER
028151,000089: 
028152,000090:                                                                                                  #  THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
028153,000091:                                                                                                  #        S30.1 (P30 ONLY)
028154,000092:                                                                                                  #        S31.1 (P31 ONLY)
028155,000093:                                                                                                  #        P30/P31 - DISPLAYS TIG
028156,000094:                                                                                                  #        CNTUP30 - DISPLAYS DELV(LV)
028157,000095:                                                                                                  #        PARAM30 - DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
028158,000096:                                                                                                  #                  MARKS SINCE LAST THRUSTING MANEUVER
028159,000097: 
028160,000098:                                                                                                  #  CALLING SEQUENCE VIA JOB FROM V37
028161,000099: 
028162,000100:                                                                                                  #  EXIT VIA V37 CALL OR GOTOPOOH
028163,000101: 
028164,000102:                                                                                                  #  OUTPUT FOR POWERED FLIGHT
028165,000103:                                                                                                  #        VTIG    X
028166,000104:                                                                                                  #        RTIG    X       SEE S30.1
028167,000105:                                                                                                  #        DELVSIN X
028168,000106:                                                                                                  #        VGDISP
028169,000107:                                                                                                  #        RTARG   X
028170,000108:                                                                                                  #        TPASS4  X       SEE S31.1
028171,000109:                                                                                                  #                X
028172,000110: 
028173,000111: 35,3330                                           COUNT    35/P30                                
028174,000112: 
028175,000113: 35,3330           03362        P30                TC       P30/P31                               
028176,000114: 35,3331           03401                           TC       CNTNUP30                              
028177,000115: 35,3332           05560                           TC       DOWNFLAG                              #  RESET UPDATFLG
028178,000116: 35,3333           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
028179,000117: 35,3334           06006                           TC       INTPRET                               
028180,000118: 35,3335           77624                           CALL                                           
028181,000119: 35,3336           63475                                    S30.1                                 
028182,000120: 35,3337           77776                           EXIT                                           
028183,000121: 35,3340           03411                           TC       PARAM30                               
028184,000122: 35,3341           05546                           TC       UPFLAG                                

Page 637

028186,000124: 35,3342           00045                           ADRES    XDELVFLG                              #  SET XDELVFLG BIT 8 FLAG 2
028187,000125: 35,3343           14106                           TCF      GOTOPOOH                              
028188,000126: 
028189,000127: 35,3344           03362        P31                TC       P30/P31                               
028190,000128: 35,3345           05560                           TC       DOWNFLAG                              
028191,000129: 35,3346           00027                           ADRES    UPDATFLG                              #  RESET UPDATFLG BIT 7 FLAG 1
028192,000130: 35,3347           05560                           TC       DOWNFLAG                              
028193,000131: 35,3350           00156                           ADRES    NORMSW                                #  RESET NORMSW BIT 10 FLAG 7
028194,000132: 35,3351           06006                           TC       INTPRET                               
028195,000133: 35,3352           77624                           CALL                                           
028196,000134: 35,3353           63547                                    S31.1                                 
028197,000135: 35,3354           77776                           EXIT                                           
028198,000136: 35,3355           03401                           TC       CNTNUP30                              
028199,000137: 35,3356           03411                           TC       PARAM30                               
028200,000138: 35,3357           05560                           TC       DOWNFLAG                              
028201,000139: 35,3360           00045                           ADRES    XDELVFLG                              #  BIT 8 FLAG 2
028202,000140: 35,3361           14106                           TCF      GOTOPOOH                              
028203,000141: 
028204,000142: 35,3362           56002        P30/P31            XCH      Q                                     
028205,000143: 35,3363           55664                           TS       P30/31RT                              
028206,000144: 35,3364           05546                           TC       UPFLAG                                
028207,000145: 35,3365           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG BIT 7 FLAG 1
028208,000146: 35,3366           05546                           TC       UPFLAG                                
028209,000147: 35,3367           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG BIT 5 FLAG 1
028210,000148: 35,3370           33446                           CAF      V06N33                                #  T OF IGN
028211,000149: 35,3371           04662                           TC       BANKCALL                              
028212,000150: 35,3372           21057                           CADR     GOFLASHR                              
028213,000151: 35,3373           14106                           TCF      GOTOPOOH                              
028214,000152: 35,3374           01664                           TC       P30/31RT                              
028215,000153: 35,3375           13366                           TCF      P30/P31    +4                         
028216,000154: 35,3376           05412                           TC       PHASCHNG                              
028217,000155: 35,3377           00014                           OCT      00014                                 
028218,000156: 35,3400           05217                           TC       ENDOFJOB                              
028219,000157: 
028220,000158: 35,3401           56002        CNTNUP30           XCH      Q                                     
028221,000159: 35,3402           55127                           TS       P30/RET                               
028222,000160: 35,3403           34620                           CAF      V06N81                                
028223,000161: 35,3404           04662                           TC       BANKCALL                              
028224,000162: 35,3405           20720                           CADR     GOFLASH                               
028225,000163: 35,3406           14106                           TCF      GOTOPOOH                              
028226,000164: 35,3407           01127                           TC       P30/RET                               
028227,000165: 35,3410           13403                           TCF      CNTNUP30   +2                         
028228,000166: 35,3411           56002        PARAM30            XCH      Q                                     
028229,000167: 35,3412           55664                           TS       P30/31RT                              
028230,000168: 35,3413           33447                           CAF      V06N42                                
028231,000169: 35,3414           04662                           TC       BANKCALL                              
028232,000170: 35,3415           20720                           CADR     GOFLASH                               
028233,000171: 35,3416           04106                           TC       GOTOPOOH                              #  ON TERMINATION GOTOPOOH
028234,000172: 35,3417           13421                           TCF      REFTEST                               #  ON PROCEED GO DO REFTEST

Page 638

028236,000174: 35,3420           13413                           TCF      PARAM30    +2                         
028237,000175: 35,3421           35003        REFTEST            CAF      BIT13                                 
028238,000176: 35,3422           70077                           MASK     STATE      +3                         #  REFSMFLAG
028239,000177: 35,3423           00006                           EXTEND                                         
028240,000178: 35,3424           13434                           BZF      NOTSET                                #  REFSMFLAG =0, THEN BRANCH TO NOTSET
028241,000179: 35,3425           06006                           TC       INTPRET                               
028242,000180: 35,3426           41575                           VLOAD    PUSH                                  
028243,000181: 35,3427           03646                                    DELVSIN                               
028244,000182: 35,3430           77624                           CALL                                           
028245,000183: 35,3431           10654                                    GET+MGA                               
028246,000184: 35,3432           77650                           GOTO                                           
028247,000185: 35,3433           73440                                    FLASHMGA                              
028248,000186: 35,3434           00006        NOTSET             EXTEND                                         
028249,000187: 35,3435           43445                           DCS      MARSDP                                
028250,000188: 35,3436           53626                           DXCH     +MGA                                  #  +MGA, +MGA+1 CONTAINS (-00001)
028251,000189: 35,3437           06006                           TC       INTPRET                               
028252,000190: 35,3440           77624        FLASHMGA           CALL                                           
028253,000191: 35,3441           73270                                    DISPMGA                               
028254,000192: 35,3442           77776                           EXIT                                           
028255,000193: 35,3443           01664                           TC       P30/31RT                              
028256,000194: 35,3444           00000        MARSDP             OCT      00000                                 #  (00000) (16440) = (+00001)
028257,000195: 35,3445           35100                           OCT      35100                                 
028258,000196:                                                                                                  #  ( .01 ) DEGREES IN THE LOW ORDER REGISTE
028259,000197: 
028260,000198: 35,3446           01441        V06N33             VN       0633                                  
028261,000199: 35,3447           01452        V06N42             VN       0642                                  
028262,000200: 35,3450           04043        V16N35             VN       1635                                  
028263,000201: 35,3451           01455        V06N45             VN       0645                                  
028264,000202: 

Page 639

028266,000204:                                                                                                  #  PROGRAM DESCRIPTION S30.1     DATE 9NOV66
028267,000205:                                                                                                  #  MOD NO 1                      LOG SECTION P30,P37
028268,000206:                                                                                                  #  MOD BY RAMA AIYAWAR **
028269,000207:                                                                                                  #  MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS             29DEC67
028270,000208: 
028271,000209:                                                                                                  #  FUNCTIONAL DESCRIPTION
028272,000210:                                                                                                  #        BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
028273,000211:                                                                                                  #        IGNITION (VTIG), TIME OF IGNITION (TIG), DELV(LV), COMPUTE PERIGEE ALTITUDE
028274,000212:                                                                                                  #        A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN)
028275,000213: 
028276,000214:                                                                                                  #  CALLING SEQUENCE
028277,000215:                                                                                                  #        L       CALL
028278,000216:                                                                                                  #        L+1             S30.1
028279,000217: 
028280,000218:                                                                                                  #  NORMAL EXIT MODE
028281,000219:                                                                                                  #        AT L+2 OR CALLING SEQUENCE (GOTO L+2)
028282,000220: 
028283,000221:                                                                                                  #  SUBROUTINES CALLED
028284,000222:                                                                                                  #        THISPREC
028285,000223:                                                                                                  #        PERIAPO
028286,000224: 
028287,000225:                                                                                                  #  ALARM OR ABORT EXIT MODES
028288,000226:                                                                                                  #        NONE
028289,000227: 
028290,000228:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
028291,000229:                                                                                                  #        TIG             TIME OF IGNITION        DP B28CS
028292,000230:                                                                                                  #        DELVSLV         SPECIFIED DELTA-V IN LOCAL VERT.
028293,000231:                                                                                                  #                        COORDS. OF ACTIVE VEHICLE AT
028294,000232:                                                                                                  #                        TIME OF IGNITION        VCT. B+7 M/CS
028295,000233: 
028296,000234:                                                                                                  #  OUTPUT
028297,000235:                                                                                                  #        RTIG            POSITION AT TIG         VCT.    B+29 M
028298,000236:                                                                                                  #        VTIG            VELOCITY AT TIG         VCT.    B+7 M
028299,000237:                                                                                                  #        HAPO            APOGEE ALT.             DP      B+29 M
028300,000238:                                                                                                  #        HPER            PERIGEE ALT.            DP      B+29 M
028301,000239:                                                                                                  #        DELVSIN         DELVSLV IN REF COORDS   VCT.    B+7 M/CS
028302,000240:                                                                                                  #        VGDISP          MAG. OF DELVSIN         DP      B+7 M/CS
028303,000241: 
028304,000242:                                                                                                  #  DEBRIS        QTEMP   TEMP.ERASABLE
028305,000243:                                                                                                  #                QPRET, MPAC
028306,000244:                                                                                                  #                PUSHLIST
028307,000245: 
028308,000246: 31,2000                                           SETLOC   P30S1A                                
028309,000247: 31,2000                                           BANK                                           
028310,000248: 
028311,000249: 31,3475                                           COUNT    35/S30S                               
028312,000250: 
028313,000251: 31,3475           71220        S30.1              STQ      DLOAD                                 
028314,000252: 31,3476           03657                                    QTEMP                                 
028315,000253: 31,3477           03413                                    TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
028316,000254: 31,3500           34041                           STCALL   TDEC1                                 
028317,000255: 31,3501           27071                                    THISPREC                              #  ENCKE ROUTINE FOR 
028318,000256: 
028319,000257: 31,3502           67175                           VLOAD    SXA,2                                 
028320,000258: 31,3503           00007                                    VATT                                  
028321,000259: 31,3504           03746                                    RTX2                                  
028322,000260: 31,3505           27640                           STOVL    VTIG                                  

Page 640

028324,000262: 31,3506           00001                                    RATT                                  
028325,000263: 31,3507           03632                           STORE    RTIG                                  
028326,000264: 31,3510           03540                           STORE    RACT3                                 
028327,000265: 31,3511           53435                           VXV      UNIT                                  
028328,000266: 31,3512           03640                                    VTIG                                  
028329,000267: 31,3513           36617                           STCALL   UNRM                                  
028330,000268: 31,3514           72667                                    LOMAT                                 
028331,000269: 31,3515           61375                           VLOAD    VXM                                   
028332,000270: 31,3516           03405                                    DELVSLV                               
028333,000271: 31,3517           00001                                    0                                     
028334,000272: 31,3520           66172                           VSL1     SXA,1                                 
028335,000273: 31,3521           03745                                    RTX1                                  
028336,000274: 31,3522           03646                           STORE    DELVSIN                               
028337,000275: 31,3523           77646                           ABVAL                                          
028338,000276: 31,3524           27773                           STOVL    VGDISP                                #  MAG DELV
028339,000277: 31,3525           03632                                    RTIG                                  
028340,000278: 31,3526           53315                           PDVL     VAD                                   
028341,000279: 31,3527           03646                                    DELVSIN                               
028342,000280: 31,3530           03640                                    VTIG                                  
028343,000281: 31,3531           77624                           CALL                                           
028344,000282: 31,3532           45153                                    PERIAPO1                              
028345,000283: 31,3533           77624                           CALL                                           
028346,000284: 31,3534           45263                                    SHIFTR1                               
028347,000285: 31,3535           77624                           CALL                                           
028348,000286: 31,3536           46754                                    MAXCHK                                
028349,000287: 31,3537           16366                           STODL    HPER                                  #  PERIGEE ALT B+29
028350,000288: 31,3540           00005                                    4D                                    
028351,000289: 31,3541           77624                           CALL                                           
028352,000290: 31,3542           45263                                    SHIFTR1                               
028353,000291: 31,3543           77624                           CALL                                           
028354,000292: 31,3544           46754                                    MAXCHK                                
028355,000293: 31,3545           36364                           STCALL   HAPO                                  #  APOGEE ALT B+29
028356,000294: 31,3546           03657                                    QTEMP                                 
028357,000295: 

Page 641

028359,000297:                                                                                                  #  S31.1 PROGRAM DESCRIPTION             28DEC67
028360,000298:                                                                                                  #  MOD.1 BY S.ZELDIN
028361,000299: 
028362,000300:                                                                                                  #  S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
028363,000301:                                                                                                  #  APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
028364,000302: 
028365,000303:                                                                                                  #  CALLING SEQUENCE
028366,000304:                                                                                                  #        L       CALL
028367,000305:                                                                                                  #        L+1             S31.1
028368,000306: 
028369,000307:                                                                                                  #  NORMAL EXIT MODE
028370,000308:                                                                                                  #        AT L +2 OF CALLING SEQUENCE (GOTO L+2)
028371,000309: 
028372,000310:                                                                                                  #  SUBROUTINES CALLED
028373,000311:                                                                                                  #        AGAIN
028374,000312:                                                                                                  #        PERIAPO1
028375,000313:                                                                                                  #        SHIFTR1
028376,000314:                                                                                                  #        MIDGIM
028377,000315: 
028378,000316:                                                                                                  #  NO ALARM OR ABORT MODES
028379,000317: 
028380,000318:                                                                                                  #  INPUT
028381,000319:                                                                                                  #        DELLT4          DP      +28
028382,000320:                                                                                                  #        TIG             DP      +28
028383,000321:                                                                                                  #        RTARG           VCT     +29
028384,000322: 
028385,000323:                                                                                                  #  OUTPUT
028386,000324:                                                                                                  #        DELVLVC         VCT     +7
028387,000325:                                                                                                  #        VGDISP          DP      +7
028388,000326:                                                                                                  #        HAPO            DP      +29
028389,000327:                                                                                                  #        HPER            DP      +29
028390,000328:                                                                                                  #        TPASS4          DP      +28
028391,000329: 
028392,000330:                                                                                                  #  DEBRIS - QTEMP
028393,000331: 
028394,000332: 31,3547           71220        S31.1              STQ      DLOAD                                 
028395,000333: 31,3550           03657                                    QTEMP                                 
028396,000334: 31,3551           03413                                    TIG                                   
028397,000335: 31,3552           34041                           STCALL   TDEC1                                 
028398,000336: 31,3553           61651                                    AGAIN                                 #  RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
028399,000337: 31,3554           63375                           VLOAD    PDVL                                  #  DELUEET3
028400,000338: 31,3555           03632                                    RTIG                                  
028401,000339: 31,3556           03612                                    VIPRIME                               
028402,000340: 31,3557           77624                           CALL                                           
028403,000341: 31,3560           45153                                    PERIAPO1                              
028404,000342: 31,3561           77624                           CALL                                           
028405,000343: 31,3562           45263                                    SHIFTR1                               
028406,000344: 31,3563           77624                           CALL                                           
028407,000345: 31,3564           46754                                    MAXCHK                                
028408,000346: 31,3565           16366                           STODL    HPER                                  #  B29
028409,000347: 31,3566           00005                                    4D                                    
028410,000348: 31,3567           77624                           CALL                                           
028411,000349: 31,3570           45263                                    SHIFTR1                               
028412,000350: 31,3571           77624                           CALL                                           
028413,000351: 31,3572           46754                                    MAXCHK                                
028414,000352: 31,3573           26364                           STOVL    HAPO                                  #  B29

Page 642

028416,000354: 31,3574           03646                                    DELVEET3                              
028417,000355: 31,3575           00001                           STORE    0                                     
028418,000356: 31,3576           45014                           SET      CALL                                  
028419,000357: 31,3577           01072                                    AVFLAG                                
028420,000358: 31,3600           10647                                    MIDGIM                                #  GET DELVLVC B7 FOR DISPLAY
028421,000359: 31,3601           77646                           ABVAL                                          
028422,000360: 31,3602           17773                           STODL    VGDISP                                #  B+7 FOR DISPLAY
028423,000361: 31,3603           03423                                    DELLT4                                
028424,000362: 31,3604           77615                           DAD                                            
028425,000363: 31,3605           03413                                    TIG                                   
028426,000364: 31,3606           37656                           STCALL   TPASS4                                #  FOR S40.1
028427,000365: 31,3607           03657                                    QTEMP                                 
028428,000366: 

Page 643

028430,000368:                                                                                                  #  SUBROUTINE NAME:      DELRSPL         (CONTINUATION OF V 82 IN CSM IF P11 ACTI
028431,000369:                                                                                                  #  TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33.  9 SEPT 67.
028432,000370:                                                                                                  #  MOD NO: 0     MOD BY: ZELDIN          DATE:
028433,000371:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
028434,000372:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67         ADD UR.RT CALC WHEN BELOW 300K FT
028435,000373:                                                                                                  #  MOD NO: 2.1   MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67         FIX ERROR IN MOD. 2.
028436,000374:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67         CHANGE SIGN OF DISPLAYED ERROR.
028437,000375:                                                                                                  #  MOD 4         MOD BY  S.ZELDIN        DATE  3 APRIL 68        CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
028438,000376: 
028439,000377:                                                                                                  #  FUNCTION:     CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
028440,000378:                                                                                                  #                ERROR.  IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
028441,000379:                                                                                                  #                SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
028442,000380:                                                                                                  #                THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED.  IF THE FREE-FALL TRANSFER
028443,000381:                                                                                                  #                ANGLE IS NEGATIVE:  SPLASH ERROR= -RANGE TO TARGET
028444,000382:                                                                                                  #                THE PRESENT TARGET LOCATION IS USED.
028445,000383: 
028446,000384:                                                                                                  #  CALLING SEQUENCE  CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
028447,000385: 
028448,000386:                                                                                                  #  SUBROUTINES CALLED:  VGAMCALC, TFF/TRIG, LALOTORV.
028449,000387: 
028450,000388:                                                                                                  #  EXIT          RETURN DIRECTLY TO V 82 PROG. AT SPLRET
028451,000389: 
028452,000390:                                                                                                  #  ERASABLE INITIALIZATION   LEFT BY SR30.1 AND V82GON1
028453,000391: 
028454,000392:                                                                                                  #  OUTPUT:       RSP-RREC RANGE IN REVOLUTIONS                   DSKY DISPLAY IN N. MI.
028455,000393: 
028456,000394:                                                                                                  #  DEBRIS:       QPRET, PDL0 ... PDL7, PDL10
028457,000395: 
028458,000396:                                                                                                  #  THETA(1)
028459,000397: 
028460,000398: 32,2017                                           BANK     32                                    
028461,000399: 32,2000                                           SETLOC   DELRSPL1                              
028462,000400: 32,2000                                           BANK                                           
028463,000401: 32,2017                                           COUNT*   $$/P30                                #  PROGRAMS: P30 EXTERNAL DELTA V
028464,000402: 
028465,000403: 32,2017           00011        DELRSPL            STORE    8D                                    
028466,000404: 32,2020           45244                           BPL      DSU                                   
028467,000405: 32,2021           64067                                    CANTDO                                #  GONE PAST 300K FT ALT
028468,000406: 32,2022           16326                                    1BITDP                                
028469,000407: 32,2023           45000                           BOV      CALL                                  
028470,000408: 32,2024           64067                                    CANTDO                                #  POSMAX INDICATES NO 300K FT SOLUTION.
028471,000409: 32,2025           55051                                    VGAMCALC                              #  +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
028472,000410: 32,2026           45006                           PUSH     CALL                                  
028473,000411: 32,2027           56631                                    TFF/TRIG                              
028474,000412: 32,2030           77624                           CALL                                           
028475,000413: 32,2031           64075                                    AUGEKUGL                              
028476,000414: 32,2032           65525                           PDDL     ACOS                                  #  T ENTRY PDL 6
028477,000415: 32,2033           00017                                    CDELF/2                               
028478,000416: 32,2034           77615                           DAD                                            
028479,000417: 32,2035           00005                                    4                                     
028480,000418: 32,2036           26350        GETARG             STOVL    THETA(1)                              
028481,000419: 32,2037           03401                                    LAT(SPL)                              
028482,000420: 32,2040           15104                           STODL    LAT                                   
028483,000421: 32,2041           15335                                    HI6ZEROS                              
028484,000422: 32,2042           15110                           STODL    ALT                                   #  ALT=0 = LAT +4
028485,000423: 32,2043           01205                                    PIPTIME                               

Page 644

028487,000425: 32,2044           71214                           BON      DLOAD                                 
028488,000426: 32,2045           03711                                    V37FLAG                               
028489,000427: 32,2046           64050                                    +2                                    
028490,000428: 32,2047           02325                                    TSTART82                              
028491,000429: 32,2050           43225                           DSU      DAD                                   
028492,000430: 32,2051           00011                                    8D                                    
028493,000431: 32,2052           45014                           CLEAR    CALL                                  
028494,000432: 32,2053           00662                                    ERADFLAG                              
028495,000433: 32,2054           26441                                    LALOTORV                              #  R RECOV. IN ALPHAV AND MPAC
028496,000434: 
028497,000435: 32,2055           63256                           UNIT     PDVL                                  
028498,000436: 32,2056           02327                                    RONE                                  
028499,000437: 32,2057           50256                           UNIT     DOT                                   
028500,000438: 32,2060           65552                           SL1      ARCCOS                                
028501,000439: 32,2061           77621                           BDSU                                           #  ERROR = THETA EST - THETA TARG
028502,000440:                                                                                                  #  NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
028503,000441:                                                                                                  #  POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
028504,000442: 32,2062           02350                                    THETA(1)                              
028505,000443: 32,2063           36356        DELRDONE           STCALL   RSP-RREC                              #  DOWNRANGE RECOVERY RANGE ERROR        /360
028506,000444: 32,2064           27455                                    INTWAKE0                              
028507,000445: 32,2065           77624                           CALL                                           
028508,000446: 32,2066           46653                                    SPLRET                                
028509,000447: 32,2067           65345        CANTDO             DLOAD    PDDL                                  #  INITIALIZE ERASE TO DOT TARGET AND UR
028510,000448:                                                                                                  #  FOR RANGE ANGLE.
028511,000449: 32,2070           15333                                    HIDPHALF                              #  TO PDL 0 FOR DEN INDDV.
028512,000450: 32,2071           15335                                    HI6ZEROS                              
028513,000451: 32,2072           77606                           PUSH                                           #  ZERO TO PDL 2 FOR PHI ENTRY
028514,000452: 32,2073           34011                           STCALL   8D                                    
028515,000453: 32,2074           64036                                    GETARG                                #  GO SET RSP-RREC =0
028516,000454: 
028517,000455: 32,2075           77775        AUGEKUGL           VLOAD                                          
028518,000456: 32,2076           24256                                    X1CON      -2                         
028519,000457: 32,2077           14045                           STODL    X1         -2                         
028520,000458: 32,2100           00001                                    0                                     
028521,000459: 32,2101           50025                           DSU      BMN                                   
028522,000460: 32,2102           24250                                    V(21K)                                
028523,000461: 32,2103           64130                                    LOOPSET                               
028524,000462: 32,2104           65060                           XSU,1    XCHX,2                                
028525,000463: 32,2105           00050                                    S1                                    
028526,000464: 32,2106           00046                                    X1                                    
028527,000465: 32,2107           45324                           XCHX,2   DSU                                   
028528,000466: 32,2110           00050                                    S1                                    
028529,000467: 32,2111           24236                                    V(3K)                                 
028530,000468: 32,2112           65040                           BMN      XCHX,2                                
028531,000469: 32,2113           64130                                    LOOPSET                               
028532,000470: 32,2114           00050                                    S1                                    
028533,000471: 32,2115           50025                           DSU      BMN                                   
028534,000472: 32,2116           24246                                    V(4K)                                 
028535,000473: 32,2117           64130                                    LOOPSET                               
028536,000474: 32,2120           65124                           XCHX,2   XCHX,2                                

Page 645

028538,000476: 32,2121           00050                                    S1                                    
028539,000477: 32,2122           00046                                    X1                                    
028540,000478: 32,2123           50025                           DSU      BMN                                   
028541,000479: 32,2124           24232                                    V(400)                                
028542,000480: 32,2125           64130                                    LOOPSET                               
028543,000481: 32,2126           77730                           SXA,1                                          
028544,000482: 32,2127           00050                                    S1                                    
028545,000483: 32,2130           52110        LOOPSET            INCR,1   GOTO                                  
028546,000484: 32,2131           00001                           DEC      1          B-14                       
028547,000485: 32,2132           64135                                    K1K2LOOP                              
028548,000486: 32,2133           77730        K2CALC             SXA,1                                          
028549,000487: 32,2134           00050                                    S1                                    
028550,000488: 32,2135           44745        K1K2LOOP           DLOAD    DSU*                                  
028551,000489: 32,2136           00001                                    0                                     
028552,000490: 32,2137           24245                                    V(32K)     +1,1                       
028553,000491: 32,2140           42603                           DMP*     DAD*                                  
028554,000492: 32,2141           24231                                    YK1K2      +1,1                       
028555,000493: 32,2142           24215                                    CK1K2      +1,1                       
028556,000494: 32,2143           60125                           PDDL     TIX,1                                 
028557,000495: 32,2144           00003                                    2                                     
028558,000496: 32,2145           64133                                    K2CALC                                
028559,000497: 32,2146           55225                           DSU      BDDV                                  
028560,000498: 32,2147           40006                           PUSH     BOV                                   
028561,000499: 32,2150           64173                                    MAXPHI                                
028562,000500: 32,2151           45240                           BMN      DSU                                   
028563,000501: 32,2152           64173                                    MAXPHI                                
028564,000502: 32,2153           24200                                    MAXPHIC                               
028565,000503: 32,2154           77644                           BPL                                            
028566,000504: 32,2155           64173                                    MAXPHI                                
028567,000505: 32,2156           45345        PHICALC            DLOAD    DSU                                   #  PHI ENTRY PDL 4D
028568,000506: 32,2157           00001                                    0                                     
028569,000507: 32,2160           24256                                    V(26K)                                
028570,000508: 32,2161           71244                           BPL      DLOAD                                 
028571,000509: 32,2162           64170                                    TGR26                                 
028572,000510: 32,2163           24252                                    TLESS26                               
028573,000511: 32,2164           77671                           DDV                                            
028574,000512: 32,2165           00001                                    0                                     
028575,000513: 32,2166           43405        TENT               DMP      RVQ                                   
028576,000514: 32,2167           00005                                    4D                                    
028577,000515: 32,2170           52145        TGR26              DLOAD    GOTO                                  
028578,000516: 32,2171           24254                                    TGR26CON                              
028579,000517: 32,2172           64166                                    TENT                                  
028580,000518: 
028581,000519: 32,2173           65345        MAXPHI             DLOAD    PDDL                                  
028582,000520: 32,2174           24200                                    MAXPHIC                               
028583,000521: 32,2175           77650                           GOTO                                           
028584,000522: 32,2176           64156                                    PHICALC                               
028585,000523: 32,2177           02755 01307  MAXPHIC            2DEC     .09259298                             #  2000 NM FOR MAXIMUM PHI ENTRY
028586,000524: 

Page 646

028588,000526: 
028589,000527: 32,2201                                           COUNT*   $$/P30                                
028590,000528: 
028591,000529:                                                                                                  #                BELOW
028592,000530:                                                                                                  #  <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
028593,000531: 
028594,000532: 32,2201           00013 22652                     2DEC     7.07304526 E-4                        #  5500
028595,000533: 32,2203           00005 01642                     2DEC     3.08641975 E-4                        #  2400
028596,000534: 32,2205           00005 01642                     2DEC     3.08641975 E-4                        #  2400
028597,000535: 32,2207           77556 53522                     2DEC     -8.8888888 E-3                        #  -3.2
028598,000536: 32,2211           00055 20266                     2DEC     2.7777777  E-3                        #  1
028599,000537: 32,2213           00155 07202  CK1K2              2DEC     6.6666666  E-3                        #  2.4
028600,000538: 32,2215           00000 00000                     2DEC     0          B-28                       #  0
028601,000539: 32,2217           77730 71525                     2DEC*    -1.86909989 E-5        B7*             #  -.443
028602,000540: 32,2221           00000 00000                     2DEC     0          B-28                       
028603,000541: 32,2223           04445 10102                     2DEC*    1.11639691 E-3        B7*             #  .001225
028604,000542: 32,2225           03726 31201                     2DEC*    9.56911636 E-4        B7*             #  .00105
028605,000543: 32,2227           01040 26313  YK1K2              2DEC*    2.59733157 E-4        B7*             #  .000285
028606,000544: 32,2231           00234 01660  V(400)             2DEC     1.2192     B-7                        
028607,000545: 32,2233           25254 01014  V(28K)             2DEC     85.344     B-7                        
028608,000546: 32,2235           02222 15646  V(3K)              2DEC     9.144      B-7                        
028609,000547: 32,2237           22223 16457  V(24K)             2DEC     73.152     B-7                        
028610,000548: 32,2241           25254 01014                     2DEC     85.344     B-7                        
028611,000549: 32,2243           30304 23351  V(32K)             2DEC     97.536     B-7                        
028612,000550: 32,2245           03030 22335  V(4K)              2DEC     12.192     B-7                        
028613,000551: 32,2247           20000 00000  V(21K)             2DEC     64.000     B-7                        
028614,000552: 32,2251           00033 05763  TLESS26            2DEC*    5.70146688 E7         B-35*           #  8660PHI/V
028615,000553: 32,2253           00053 36200  TGR26CON           2DEC     7.2        E5         B-28            #  PHI/3
028616,000554: 32,2255           23637 27636  V(26K)             2DEC     79.248     B-7                        #  26000
028617,000555: 

Page 647

028619,000557: 
028620,000558: 32,2257           00012        X1CON              DEC      10         B-14                       
028621,000559: 32,2260           00010                           DEC      8          B-14                       
028622,000560: 32,2261           00006                           DEC      6          B-14                       
028623,000561:                                                                                                  #  <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
028624,000562:                                                                                                  #                     ABOVE

Page 648

028626,000564:                                                                                                  #  ..... AVFLAGA/P .....
028627,000565: 
028628,000566:                                                                                                  #  SUBROUTINES USED
028629,000567: 
028630,000568:                                                                                                  #        UPFLAG
028631,000569:                                                                                                  #        DOWNFLAG
028632,000570: 
028633,000571:    4000                                           SETLOC   P30SUBS                               
028634,000572:    4000                                           BANK                                           
028635,000573:    4627  E4,1770                                  EBANK=   SUBEXIT                               
028636,000574:    4627           00006        AVFLAGA            EXTEND                                         #  AVFLAG = CSM
028637,000575:    4630           23770                           QXCH     SUBEXIT                               
028638,000576:    4631           05560                           TC       DOWNFLAG                              
028639,000577:    4632           00050                           ADRES    AVFLAG                                #  BIT 5 FLAG 2
028640,000578:    4633           35060                           CAF      EBANK7                                
028641,000579:    4634           54003                           TS       EBANK                                 
028642,000580:    4635  E7,1424                                  EBANK=   ECSTEER                               
028643,000581:    4635           35003                           CAF      BIT13                                 
028644,000582:    4636           55424                           TS       ECSTEER                               #  SET ECSTEER = 1
028645,000583:    4637           35005                           CAF      EBANK4                                
028646,000584:    4640           54003                           TS       EBANK                                 
028647,000585:    4641  E4,1770                                  EBANK=   SUBEXIT                               
028648,000586:    4641           01770                           TC       SUBEXIT                               
028649,000587:    4642           00006        AVFLAGP            EXTEND                                         #  AVFLAG = LEM
028650,000588:    4643           23770                           QXCH     SUBEXIT                               
028651,000589:    4644           05546                           TC       UPFLAG                                
028652,000590:    4645           00050                           ADRES    AVFLAG                                #  BIT 5 FLAG 2
028653,000591:    4646           01770                           TC       SUBEXIT                               
028654,000592:    4647           00006        P20FLGON           EXTEND                                         
028655,000593:    4650           23770                           QXCH     SUBEXIT                               
028656,000594:    4651           05546                           TC       UPFLAG                                
028657,000595:    4652           00031                           ADRES    TRACKFLG                              
028658,000596:    4653           05546                           TC       UPFLAG                                
028659,000597:    4654           00027                           ADRES    UPDATFLG                              
028660,000598:    4655           01770                           TC       SUBEXIT                               #  DP B4
028661,000599: 
028662,000600: 

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