Source Code

These source-code files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

027640,000002:                                                                                                  ## Copyright:   Public domain.
027641,000003:                                                                                                  ## Filename:    P30-P37.agc
027642,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
027643,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
027644,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
027645,000007:                                                                                                  ## Assembler:   yaYUL
027646,000008:                                                                                                  ## Reference:   pp. 630-643 of 1701.pdf.
027647,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027648,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
027649,000011:                                                                                                  ## Mod history: 08/15/04 RSB.   Began transcribing.  (A little comes from the
027650,000012:                                                                                                  ##                              corresponding Luminary131 file.)
027651,000013:                                                                                                  ##              2010-10-24 JL   Fixed page numbers.
027652,000014:                                                                                                  ##
027653,000015:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
027654,000016:                                                                                                  ## from a scanned document obtained from MIT's website,
027655,000017:                                                                                                  ## http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf.  Notations on this
027656,000018:                                                                                                  ## document read, in part:
027657,000019:                                                                                                  ##
027658,000020:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
027659,000021:                                                                                                  ##      2021111-041.  October 28, 1968.  
027660,000022:                                                                                                  ##
027661,000023:                                                                                                  ##      This AGC program shall also be referred to as
027662,000024:                                                                                                  ##                              Colossus 1A
027663,000025:                                                                                                  ##
027664,000026:                                                                                                  ##      Prepared by
027665,000027:                                                                                                  ##                      Massachusetts Institute of Technology
027666,000028:                                                                                                  ##                      75 Cambridge Parkway
027667,000029:                                                                                                  ##                      Cambridge, Massachusetts
027668,000030:                                                                                                  ##      under NASA contract NAS 9-4065.
027669,000031:                                                                                                  ##
027670,000032:                                                                                                  ## Refer directly to the online document mentioned above for further information.
027671,000033:                                                                                                  ## Please report any errors (relative to 1701.pdf) to info@sandroid.org.
027672,000034:                                                                                                  ##
027673,000035:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
027674,000036:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
027675,000037:                                                                                                  ## source file, and then is proofed to incorporate any changes.
027676,000038: 

Page 630

027678,000040: 32,2017                                           BANK     32                                    
027679,000041: 
027680,000042: 35,2000                                           SETLOC   P30S1                                 
027681,000043: 35,2000                                           BANK                                           
027682,000044: 
027683,000045: 35,3544  E7,1625                                  EBANK=   +MGA                                  
027684,000046: 
027685,000047: 35,3544                                           COUNT    35/P34                                
027686,000048: 
027687,000049: 35,3544           77420        DISPMGA            STQ      EXIT                                  #  USED IN P30
027688,000050: 35,3545           02370                                    RGEXIT                                
027689,000051: 35,3546           03564                           TC       COMPTGO                               
027690,000052: 
027691,000053: 35,3547           33132        DISP45             CAF      V16N45                                
027692,000054: 35,3550           04555                           TC       BANKCALL                              
027693,000055: 35,3551           20763                           CADR     GOFLASHR                              
027694,000056: 35,3552           04106                           TC       GOTOP00H                              
027695,000057: 35,3553           03560                           TC       END45                                 
027696,000058: 35,3554           03547                           TC       DISP45                                
027697,000059: 35,3555           05301        P30PHSI            TC       PHASCHNG                              
027698,000060: 35,3556           00014                           OCT      14                                    
027699,000061: 35,3557           05112                           TCR      ENDOFJOB                              
027700,000062: 35,3560           06006        END45              TC       INTPRET                               
027701,000063: 35,3561           52014                           CLEAR    GOTO                                  
027702,000064: 35,3562           03664                                    TIMRFLAG                              
027703,000065: 35,3563           02370                                    RGEXIT                                
027704,000066: 
027705,000067: 35,3564           00006        COMPTGO            EXTEND                                         #  USED TO COMPUTE TTOGO
027706,000068: 35,3565           23066                           QXCH     PHSPRDT6                              #  ** GROUP 6 TEMPORARY USED, BEWARE **
027707,000069: 35,3566           05435                           TC       UPFLAG                                #  SET TIMRFLAG
027708,000070: 35,3567           00155                           ADRES    TIMRFLAG                              #  BIT 11 FLAG 7
027709,000071: 35,3570           34714                           CAF      ZERO                                  
027710,000072: 35,3571           55145                           TS       NVWORD1                               
027711,000073: 35,3572           00004                           INHINT                                         
027712,000074: 35,3573           34712                           CAF      ONE                                   
027713,000075: 35,3574           05140                           TC       WAITLIST                              
027714,000076: 35,3575  E7,1412                                  EBANK=   TIG                                   
027715,000077: 35,3575           03172 50067                     2CADR    CLOKTASK                              
027716,000078: 
027717,000079: 35,3577           05261                           TC       2PHSCHNG                              
027718,000080: 35,3600           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
027719,000081: 35,3601           05024                           OCT      05024                                 
027720,000082: 35,3602           13000                           OCT      13000                                 
027721,000083: 35,3603           01066                           TC       PHSPRDT6                              

Page 631

027723,000085:                                                                                                  #  PROGRAM DESCRIPTION P30       DATE 3-6-67
027724,000086:                                                                                                  #  MOD. I BY S. ZELDIN:  TO ADD P31 AND AD APT FOR P30 FOR P31 USE.      22DEC67
027725,000087: 
027726,000088:                                                                                                  #  FUNCTIONAL DESCRIPTION
027727,000089:                                                                                                  #        P30     (EXTERNAL DELTA-V TARGETING PROGRAM)
027728,000090:                                                                                                  #                ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
027729,000091:                                                                                                  #                APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER.
027730,000092:                                                                                                  #        P31     (GENERAL LAMBERT AIMPOINT GUIDANCE)
027731,000093:                                                                                                  #                A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
027732,000094:                                                                                                  #                POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
027733,000095:                                                                                                  #                BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND
027734,000096:                                                                                                  #                ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
027735,000097:                                                                                                  #                AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH
027736,000098:                                                                                                  #                DESIRED MANEUVER.
027737,000099: 
027738,000100:                                                                                                  #  THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
027739,000101:                                                                                                  #        S30.1 (P30 ONLY)
027740,000102:                                                                                                  #        S31.1 (P31 ONLY)
027741,000103:                                                                                                  #        P30/P31 -- DISPLAYS TIG
027742,000104:                                                                                                  #        CNTUP30 -- DISPLAYS DELV(LV)
027743,000105:                                                                                                  #        PARAM30 -- DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
027744,000106:                                                                                                  #                   MARKS SINCE LAST THRUSTING MANEUVER
027745,000107: 
027746,000108:                                                                                                  #  CALLING SEQUENCE VIA JOB FROM V37
027747,000109: 
027748,000110:                                                                                                  #  EXIT VIA V37 OR GOTOP00H
027749,000111: 
027750,000112:                                                                                                  #  OUTPUT FOR POWERED FLIGHT
027751,000113:                                                                                                  #        VTIG    X
027752,000114:                                                                                                  #        RTIG    X       SEE S30.1
027753,000115:                                                                                                  #        DELVSIN X
027754,000116:                                                                                                  #        VGDISP
027755,000117:                                                                                                  #        RTARG   X
027756,000118:                                                                                                  #        TPASS4  X       SEE S31.1
027757,000119:                                                                                                  #                X
027758,000120: 
027759,000121: 35,3604                                           COUNT    35/P30                                
027760,000122: 
027761,000123: 35,3604           03636        P30                TC       P30/P31                               
027762,000124: 35,3605           03655                           TC       CNTNUP30                              
027763,000125: 35,3606           05447                           TC       DOWNFLAG                              #  RESET UPDATFLG
027764,000126: 35,3607           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
027765,000127: 35,3610           06006                           TC       INTPRET                               
027766,000128: 35,3611           77624                           CALL                                           
027767,000129: 35,3612           63102                                    S30.1                                 
027768,000130: 35,3613           77776                           EXIT                                           
027769,000131: 35,3614           03665                           TC       PARAM30                               
027770,000132: 35,3615           05435                           TC       UPFLAG                                

Page 632

027772,000134: 35,3616           00045                           ADRES    XDELVFLG                              #  SET XDELVFLG BIT 6 FLAG 2
027773,000135: 35,3617           14106                           TCF      GOTOP00H                              
027774,000136: 
027775,000137: 35,3620           03636        P31                TC       P30/P31                               
027776,000138: 35,3621           05447                           TC       DOWNFLAG                              
027777,000139: 35,3622           00027                           ADRES    UPDATFLG                              #  RESET UPDATFLG BIT 7 FLAG 1
027778,000140: 35,3623           05447                           TC       DOWNFLAG                              
027779,000141: 35,3624           00156                           ADRES    NORMSW                                #  RESET NORMSW BIT 10 FLAG 7
027780,000142: 35,3625           06006                           TC       INTPRET                               
027781,000143: 35,3626           77624                           CALL                                           
027782,000144: 35,3627           63154                                    S31.1                                 
027783,000145: 35,3630           77776                           EXIT                                           
027784,000146: 35,3631           03655                           TC       CNTNUP30                              
027785,000147: 35,3632           03665                           TC       PARAM30                               
027786,000148: 35,3633           05447                           TC       DOWNFLAG                              
027787,000149: 35,3634           00045                           ADRES    XDELVFLG                              #  BIT 8 FLAG 2.
027788,000150: 35,3635           14106                           TCF      GOTOP00H                              
027789,000151: 
027790,000152: 35,3636           56002        P30/P31            XCH      Q                                     
027791,000153: 35,3637           55664                           TS       P30/31RT                              
027792,000154: 35,3640           05435                           TC       UPFLAG                                
027793,000155: 35,3641           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG BIT 7 FLAG 1
027794,000156: 35,3642           05435                           TC       UPFLAG                                
027795,000157: 35,3643           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG BIT 5 FLAG 1
027796,000158: 35,3644           33722                           CAF      V06N33                                #  T OF IGN
027797,000159: 35,3645           04555                           TC       BANKCALL                              
027798,000160: 35,3646           20763                           CADR     GOFLASHR                              
027799,000161: 35,3647           14106                           TCF      GOTOP00H                              
027800,000162: 35,3650           01664                           TC       P30/31RT                              
027801,000163: 35,3651           13642                           TCF      P30/P31    +4                         
027802,000164: 35,3652           05301                           TC       PHASCHNG                              
027803,000165: 35,3653           00014                           OCT      00014                                 
027804,000166: 35,3654           05112                           TC       ENDOFJOB                              
027805,000167: 35,3655           56002        CNTNUP30           XCH      Q                                     
027806,000168: 35,3656           55127                           TS       P30/RET                               
027807,000169: 35,3657           33131                           CAF      V06N81                                
027808,000170: 35,3660           04555                           TC       BANKCALL                              
027809,000171: 35,3661           20624                           CADR     GOFLASH                               
027810,000172: 35,3662           14106                           TCF      GOTOP00H                              
027811,000173: 35,3663           01127                           TC       P30/RET                               
027812,000174: 35,3664           13657                           TCF      CNTNUP30   +2                         
027813,000175: 35,3665           56002        PARAM30            XCH      Q                                     
027814,000176: 35,3666           55664                           TS       P30/31RT                              
027815,000177: 35,3667           33723                           CAF      V06N42                                
027816,000178: 35,3670           04555                           TC       BANKCALL                              
027817,000179: 35,3671           20624                           CADR     GOFLASH                               
027818,000180: 35,3672           04106                           TC       GOTOP00H                              #  ON TERMINATION GOTOP00H
027819,000181: 35,3673           13675                           TCF      REFTEST                               #  ON PROCEED GO DO REFTEST

Page 633

027821,000183: 35,3674           13667                           TCF      PARAM30    +2                         
027822,000184: 35,3675           34676        REFTEST            CAF      BIT13                                 
027823,000185: 35,3676           70077                           MASK     STATE      +3                         #  REFSMFLAG
027824,000186: 35,3677           00006                           EXTEND                                         
027825,000187: 35,3700           13710                           BZF      NOTSET                                #  REFSMFLAG =0, THEN BRANCH TO NOTSET
027826,000188: 35,3701           06006                           TC       INTPRET                               
027827,000189: 35,3702           41575                           VLOAD    PUSH                                  
027828,000190: 35,3703           03646                                    DELVSIN                               
027829,000191: 35,3704           77624                           CALL                                           
027830,000192: 35,3705           10660                                    GET+MGA                               
027831,000193: 35,3706           77650                           GOTO                                           
027832,000194: 35,3707           73714                                    FLASHMGA                              
027833,000195: 35,3710           00006        NOTSET             EXTEND                                         
027834,000196: 35,3711           43721                           DCS      MARSDP                                
027835,000197: 35,3712           53626                           DXCH     +MGA                                  #  +MGA, +MGA+1 CONTAINS (-00001)
027836,000198: 35,3713           06006                           TC       INTPRET                               
027837,000199: 35,3714           77624        FLASHMGA           CALL                                           
027838,000200: 35,3715           73544                                    DISPMGA                               
027839,000201: 35,3716           77776                           EXIT                                           
027840,000202: 35,3717           01664                           TC       P30/31RT                              
027841,000203: 35,3720           00000        MARSDP             OCT      00000                                 #  (00000) (16440) = (+00001)
027842,000204: 35,3721           35100                           OCT      35100                                 
027843,000205:                                                                                                  #  ( .01 ) DEGREES IN THE LOW ORDER REGISTER
027844,000206: 
027845,000207: 35,3722           01441        V06N33             VN       0633                                  
027846,000208: 35,3723           01452        V06N42             VN       0642                                  
027847,000209: 35,3724           04043        V16N35             VN       1635                                  
027848,000210: 35,3725           01455        V06N45             VN       0645                                  
027849,000211: 

Page 634

027851,000213:                                                                                                  #  PROGRAM DESCRPTION S30.1      DATE 9NOV66
027852,000214:                                                                                                  #  MOD NO 1                      LOG SECTION P30,P37
027853,000215:                                                                                                  #  MOD BY RAMA AIYAWAR **
027854,000216:                                                                                                  #  MOD.2 BY S.ZELDIN -- TO CORRECT MOD.1 FOR COLOSSUS            29DEC67
027855,000217: 
027856,000218:                                                                                                  #  FUNCTIONAL DESCRIPTION
027857,000219:                                                                                                  #        BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
027858,000220:                                                                                                  #        IGNITION (VTIG), TIME OF IGNITION (TIG)), COMPUTE PERIGEE ALTITUDE
027859,000221:                                                                                                  #        APOGEE ALTITUDE AND DELTAV REQUIRED (DELVSIN).
027860,000222: 
027861,000223:                                                                                                  #  CALLING SEQUENCE
027862,000224:                                                                                                  #        L       CALL
027863,000225:                                                                                                  #        L+1             S30.1
027864,000226: 
027865,000227:                                                                                                  #  NORMAL EXIT MODE
027866,000228:                                                                                                  #        AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027867,000229: 
027868,000230:                                                                                                  #  SUBROUTINES CALLED
027869,000231:                                                                                                  #        THISPREC
027870,000232:                                                                                                  #        PERIAPO
027871,000233: 
027872,000234:                                                                                                  #  ALARM OR ABORT EXIT MODES
027873,000235:                                                                                                  #        NONE
027874,000236: 
027875,000237:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
027876,000238:                                                                                                  #        TIG             TIME OF IGNITION        DP B28CS
027877,000239:                                                                                                  #        DELVSLV         SPECIFIED DELTA-V INLOCAL VERT.
027878,000240:                                                                                                  #                        COORDS. OF ACTIVE VEHICLE AT
027879,000241:                                                                                                  #        TIME OF IGNITION                        VCT. B+7 M/CS
027880,000242: 
027881,000243:                                                                                                  #  OUTPUT
027882,000244:                                                                                                  #        RTIG            POSITION AT TIG         VCT.    B+29 M
027883,000245:                                                                                                  #        VTIG            VELOCITY AT TIG         VCT.    B+7 M
027884,000246:                                                                                                  #        HAPO            APOGEE ALT.             DP      B+29 M
027885,000247:                                                                                                  #        HPER            PERIGEE ALT.            DP      B+29 M
027886,000248:                                                                                                  #        DELVSIN         DELVSLV IN REF COORDS   VCT.    B+7 M/CS
027887,000249:                                                                                                  #        VGDISP          MAG. OF DELVSIN         DP      B+7 M/CS
027888,000250: 
027889,000251:                                                                                                  #  DEBRIS        QTEMP   TEMP.ERASABLE
027890,000252:                                                                                                  #                QPRET, MPAC
027891,000253:                                                                                                  #                PUSHLIST
027892,000254: 
027893,000255: 31,2000                                           SETLOC   P30S1A                                
027894,000256: 31,2000                                           BANK                                           
027895,000257: 
027896,000258: 31,3102                                           COUNT    35/S30S                               
027897,000259: 
027898,000260: 31,3102           71220        S30.1              STQ      DLOAD                                 
027899,000261: 31,3103           03657                                    QTEMP                                 
027900,000262: 31,3104           03413                                    TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
027901,000263: 31,3105           34041                           STCALL   TDEC1                                 
027902,000264: 31,3106           27022                                    THISPREC                              #  ENCKE ROUTINE FOR 
027903,000265: 
027904,000266: 31,3107           67175                           VLOAD    SXA,2                                 
027905,000267: 31,3110           00007                                    VATT                                  
027906,000268: 31,3111           03746                                    RTX2                                  
027907,000269: 31,3112           27640                           STOVL    VTIG                                  

Page 635

027909,000271: 31,3113           00001                                    RATT                                  
027910,000272: 31,3114           03632                           STORE    RTIG                                  
027911,000273: 31,3115           03540                           STORE    RACT3                                 
027912,000274: 31,3116           53435                           VXV      UNIT                                  
027913,000275: 31,3117           03640                                    VTIG                                  
027914,000276: 31,3120           36617                           STCALL   UNRM                                  
027915,000277: 31,3121           72667                                    LOMAT                                 
027916,000278: 31,3122           61375                           VLOAD    VXM                                   
027917,000279: 31,3123           03405                                    DELVSLV                               
027918,000280: 31,3124           00001                                    0                                     
027919,000281: 31,3125           66172                           VSL1     SXA,1                                 
027920,000282: 31,3126           03745                                    RTX1                                  
027921,000283: 31,3127           03646                           STORE    DELVSIN                               
027922,000284: 31,3130           77646                           ABVAL                                          
027923,000285: 31,3131           27654                           STOVL    VGDISP                                #  MAG DELV
027924,000286: 31,3132           03632                                    RTIG                                  
027925,000287: 31,3133           53315                           PDVL     VAD                                   
027926,000288: 31,3134           03646                                    DELVSIN                               
027927,000289: 31,3135           03640                                    VTIG                                  
027928,000290: 31,3136           77624                           CALL                                           
027929,000291: 31,3137           45312                                    PERIAPO1                              
027930,000292: 31,3140           77624                           CALL                                           
027931,000293: 31,3141           45422                                    SHIFTR1                               
027932,000294: 31,3142           77624                           CALL                                           
027933,000295: 31,3143           46754                                    MAXCHK                                
027934,000296: 31,3144           16366                           STODL    HPER                                  #  PERIGEE ALT B+29
027935,000297: 31,3145           00005                                    4D                                    
027936,000298: 31,3146           77624                           CALL                                           
027937,000299: 31,3147           45422                                    SHIFTR1                               
027938,000300: 31,3150           77624                           CALL                                           
027939,000301: 31,3151           46754                                    MAXCHK                                
027940,000302: 31,3152           36364                           STCALL   HAPO                                  #  APOGEE ALT B+29
027941,000303: 31,3153           03657                                    QTEMP                                 
027942,000304: 

Page 636

027944,000306:                                                                                                  #  S31.1 PROGRAM DESCRIPTION             26DEC67
027945,000307:                                                                                                  #  MOD.1 BY S.ZELDIN
027946,000308: 
027947,000309:                                                                                                  #  S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
027948,000310:                                                                                                  #  APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
027949,000311: 
027950,000312:                                                                                                  #  CALLING SEQUENCE
027951,000313:                                                                                                  #        L       CALL
027952,000314:                                                                                                  #        L+1             S31.1
027953,000315: 
027954,000316:                                                                                                  #  NORMAL EXIT MODE
027955,000317:                                                                                                  #        AT L +2 OF CALLING SEQUENCE (GOTO L+2)
027956,000318: 
027957,000319:                                                                                                  #  SUBROUTINES CALLED
027958,000320:                                                                                                  #        AGAIN
027959,000321:                                                                                                  #        PERIAPO1
027960,000322:                                                                                                  #        SHIFTR1
027961,000323:                                                                                                  #        MIDGIM
027962,000324: 
027963,000325:                                                                                                  #  NO ALARM OR ABORT MODES
027964,000326: 
027965,000327:                                                                                                  #  INPUT
027966,000328:                                                                                                  #        DELLT4          DP      +28
027967,000329:                                                                                                  #        TIG             DP      +28
027968,000330:                                                                                                  #        RTARG           VCT     +29
027969,000331: 
027970,000332:                                                                                                  #  OUTPUT
027971,000333:                                                                                                  #        DELVLVC         VCT     +7
027972,000334:                                                                                                  #        VGDISP          DP      +7
027973,000335:                                                                                                  #        HAPO            DP      +29
027974,000336:                                                                                                  #        HPER            DP      +29
027975,000337:                                                                                                  #        TPASS4          DP      +28
027976,000338: 
027977,000339:                                                                                                  #  DEBRIS -- QTEMP
027978,000340: 
027979,000341: 31,3154           71220        S31.1              STQ      DLOAD                                 
027980,000342: 31,3155           03657                                    QTEMP                                 
027981,000343: 31,3156           03413                                    TIG                                   
027982,000344: 31,3157           34041                           STCALL   TDEC1                                 
027983,000345: 31,3160           61663                                    AGAIN                                 #  RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
027984,000346: 31,3161           63375                           VLOAD    PDVL                                  #  DELUEET3
027985,000347: 31,3162           03632                                    RTIG                                  
027986,000348: 31,3163           03612                                    VIPRIME                               
027987,000349: 31,3164           77624                           CALL                                           
027988,000350: 31,3165           45312                                    PERIAPO1                              
027989,000351: 31,3166           77624                           CALL                                           
027990,000352: 31,3167           45422                                    SHIFTR1                               
027991,000353: 31,3170           77624                           CALL                                           
027992,000354: 31,3171           46754                                    MAXCHK                                
027993,000355: 31,3172           16366                           STODL    HPER                                  #  B29
027994,000356: 31,3173           00005                                    4D                                    
027995,000357: 31,3174           77624                           CALL                                           
027996,000358: 31,3175           45422                                    SHIFTR1                               
027997,000359: 31,3176           77624                           CALL                                           
027998,000360: 31,3177           46754                                    MAXCHK                                
027999,000361: 31,3200           26364                           STOVL    HAPO                                  #  B29

Page 637

028001,000363: 31,3201           03646                                    DELVEET3                              
028002,000364: 31,3202           00001                           STORE    0                                     
028003,000365: 31,3203           45014                           SET      CALL                                  
028004,000366: 31,3204           01072                                    AVFLAG                                
028005,000367: 31,3205           10653                                    MIDGIM                                #  GET DELVLVC B7 FOR DISPLAY
028006,000368: 31,3206           77646                           ABVAL                                          
028007,000369: 31,3207           17654                           STODL    VGDISP                                #  B+7 FOR DISPLAY
028008,000370: 31,3210           03423                                    DELLT4                                
028009,000371: 31,3211           77615                           DAD                                            
028010,000372: 31,3212           03413                                    TIG                                   
028011,000373: 31,3213           37656                           STCALL   TPASS4                                #  FOR S40.1
028012,000374: 31,3214           03657                                    QTEMP                                 
028013,000375: 

Page 638

028015,000377:                                                                                                  #  SUBROUTINE NAME:      DELRSPL         (CONTINUATION OF V 62 IN CSM IF P11 ACTIVE)
028016,000378:                                                                                                  #  TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33.  9 SEPT 67.
028017,000379:                                                                                                  #  MOD NO: 0     MOD BY: ZELDIN          DATE:
028018,000380:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
028019,000381:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67         ADD UR.RT CALC WHEN BELOW 300K FT
028020,000382:                                                                                                  #  MOD NO: 2.1   MOD BY: RR BAIRNSFATHER DATE: 6 JULY 67         FIX ERROR ON MOD. 2
028021,000383:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67         CHANGE SIGN OF DISPLAYED ERROR.
028022,000384:                                                                                                  #  MOD 4         MOD BY  S.ZELDIN        DATE: 3 APRIL 68        CHANGE EQUATIONS FOR L/D=.16 WHICH REPLA
028023,000385: 
028024,000386:                                                                                                  #  FUNCTION:     CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
028025,000387:                                                                                                  #                ERROR.  IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
028026,000388:                                                                                                  #                SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGEL + ESTIMATED ENTRY ANGLE.
028027,000389:                                                                                                  #                THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED.  IF THE FREE-FALL TRANSFER
028028,000390:                                                                                                  #                ANGLE IS NEGATIVE:  SPASH ERROR= -RANGE TO TARGET.
028029,000391:                                                                                                  #                THE PRESENT TARGET LOCATION IS USED.
028030,000392: 
028031,000393:                                                                                                  #  CALLING SEQUENCE: CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V62)
028032,000394: 
028033,000395:                                                                                                  #  SUBROUTINES CALLED:  VGAMCALC, TFF/TRIG, LALOTORV.
028034,000396: 
028035,000397:                                                                                                  #  EXIT:         RETURN DIRECTLY TO V 62 PROG. AT SPLRET
028036,000398: 
028037,000399:                                                                                                  #  ERASABLE INITIALIZATION:  LEFT BY SR30.1 AND V62GON1
028038,000400: 
028039,000401:                                                                                                  #  OUTPUT:       RSP-RREC RANGE IN REVOLUTIONS.  DSKY DISPLAY IN N. MI.
028040,000402: 
028041,000403:                                                                                                  #  DEBRIS:       QPRET, PDL0 ... PDL7, PDL10.
028042,000404: 
028043,000405:                                                                                                  #  THETA(1)
028044,000406: 
028045,000407: 32,2017                                           BANK     32                                    
028046,000408: 32,2000                                           SETLOC   DELRSPL1                              
028047,000409: 32,2000                                           BANK                                           
028048,000410: 32,2017                                           COUNT*   $$/P30                                #  PROGRAMS: P30 EXTERNAL DELTA V
028049,000411: 
028050,000412: 32,2017           00011        DELRSPL            STORE    8D                                    
028051,000413: 32,2020           45244                           BPL      DSU                                   
028052,000414: 32,2021           64067                                    CANTDO                                #  GONE PAST 300K FT ALT
028053,000415: 32,2022           16326                                    1BITDP                                
028054,000416: 32,2023           45000                           BOV      CALL                                  
028055,000417: 32,2024           64067                                    CANTDO                                #  POSMAX INDICATES NO 300K FT SOLUTION.
028056,000418: 32,2025           55050                                    VGAMCALC                              #  +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
028057,000419: 32,2026           45006                           PUSH     CALL                                  
028058,000420: 32,2027           56573                                    TFF/TRIG                              
028059,000421: 32,2030           77624                           CALL                                           
028060,000422: 32,2031           64075                                    AUGEKUGL                              
028061,000423: 32,2032           65525                           PDDL     ACOS                                  #  T ENTRY PDL 6
028062,000424: 32,2033           00017                                    CDELF/2                               
028063,000425: 32,2034           77615                           DAD                                            
028064,000426: 32,2035           00005                                    4                                     
028065,000427: 32,2036           26350        GETARG             STOVL    THETA(1)                              
028066,000428: 32,2037           03401                                    LAT(SPL)                              
028067,000429: 32,2040           15104                           STODL    LAT                                   
028068,000430: 32,2041           15332                                    HI6ZEROS                              
028069,000431: 32,2042           15110                           STODL    ALT                                   #  ALT=0 = LAT +4
028070,000432: 32,2043           01205                                    PIPTIME                               

Page 639

028072,000434: 32,2044           71214                           BON      DLOAD                                 
028073,000435: 32,2045           03711                                    V37FLAG                               
028074,000436: 32,2046           64050                                    +2                                    
028075,000437: 32,2047           02325                                    TSTART82                              
028076,000438: 32,2050           43225                           DSU      DAD                                   
028077,000439: 32,2051           00011                                    8D                                    
028078,000440: 32,2052           45014                           CLEAR    CALL                                  
028079,000441: 32,2053           00662                                    ERADFLAG                              
028080,000442: 32,2054           26373                                    LALOTORV                              #  R RECOV. IN ALPHAV AND MPAC
028081,000443: 
028082,000444: 32,2055           63256                           UNIT     PDVL                                  
028083,000445: 32,2056           02327                                    RONE                                  
028084,000446: 32,2057           50256                           UNIT     DOT                                   
028085,000447: 32,2060           65552                           SL1      ARCCOS                                
028086,000448: 32,2061           77621                           BDSU                                           #  ERROR = THETA EST - THETA TARG
028087,000449:                                                                                                  #  NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
028088,000450:                                                                                                  #  POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
028089,000451: 32,2062           02350                                    THETA(1)                              
028090,000452: 32,2063           36356        DELRDONE           STCALL   RSP-RREC                              #  DOWNRANGE RECOVERY RANGE ERROR        /360
028091,000453: 32,2064           27404                                    INTWAKE0                              
028092,000454: 32,2065           77624                           CALL                                           
028093,000455: 32,2066           46653                                    SPLRET                                
028094,000456: 32,2067           65345        CANTDO             DLOAD    PDDL                                  #  INITIALIZE ERASE TO DOT TARGET AND UR
028095,000457:                                                                                                  #  FOR RANGE ANGLE.
028096,000458: 32,2070           15330                                    HIDPHALF                              #  TO PDL 0 FOR DEN INDDV.
028097,000459: 32,2071           15332                                    HI6ZEROS                              
028098,000460: 32,2072           77606                           PUSH                                           #  ZERO TO PDL 2 FOR PHI ENTRY
028099,000461: 32,2073           34011                           STCALL   8D                                    
028100,000462: 32,2074           64036                                    GETARG                                #  GO SET RSP-RREC =0
028101,000463: 
028102,000464: 32,2075           77775        AUGEKUGL           VLOAD                                          
028103,000465: 32,2076           24251                                    X1CON      -2                         
028104,000466: 32,2077           14045                           STODL    X1         -2                         
028105,000467: 32,2100           00001                                    0                                     
028106,000468: 32,2101           50025                           DSU      BMN                                   
028107,000469: 32,2102           24243                                    V(21K)                                
028108,000470: 32,2103           64130                                    LOOPSET                               
028109,000471: 32,2104           65060                           XSU,1    XCHX,2                                
028110,000472: 32,2105           00050                                    S1                                    
028111,000473: 32,2106           00046                                    X1                                    
028112,000474: 32,2107           45324                           XCHX,2   DSU                                   
028113,000475: 32,2110           00050                                    S1                                    
028114,000476: 32,2111           24231                                    V(3K)                                 
028115,000477: 32,2112           65040                           BMN      XCHX,2                                
028116,000478: 32,2113           64130                                    LOOPSET                               
028117,000479: 32,2114           00050                                    S1                                    
028118,000480: 32,2115           50025                           DSU      BMN                                   
028119,000481: 32,2116           24241                                    V(4K)                                 
028120,000482: 32,2117           64130                                    LOOPSET                               
028121,000483: 32,2120           65124                           XCHX,2   XCHX,2                                

Page 640

028123,000485: 32,2121           00050                                    S1                                    
028124,000486: 32,2122           00046                                    X1                                    
028125,000487: 32,2123           50025                           DSU      BMN                                   
028126,000488: 32,2124           24225                                    V(400)                                
028127,000489: 32,2125           64130                                    LOOPSET                               
028128,000490: 32,2126           77730                           SXA,1                                          
028129,000491: 32,2127           00050                                    S1                                    
028130,000492: 32,2130           52110        LOOPSET            INCR,1   GOTO                                  
028131,000493: 32,2131           00001                           DEC      1          B-14                       
028132,000494: 32,2132           64135                                    K1K2LOOP                              
028133,000495: 32,2133           77730        K2CALC             SXA,1                                          
028134,000496: 32,2134           00050                                    S1                                    
028135,000497: 32,2135           44745        K1K2LOOP           DLOAD    DSU*                                  
028136,000498: 32,2136           00001                                    0                                     
028137,000499: 32,2137           24240                                    V(32K)     +1,1                       
028138,000500: 32,2140           42603                           DMP*     DAD*                                  
028139,000501: 32,2141           24224                                    YK1K2      +1,1                       
028140,000502: 32,2142           24210                                    CK1K2      +1,1                       
028141,000503: 32,2143           60125                           PDDL     TIX,1                                 
028142,000504: 32,2144           00003                                    2                                     
028143,000505: 32,2145           64133                                    K2CALC                                
028144,000506: 32,2146           55225                           DSU      BDDV                                  
028145,000507: 32,2147           50000                           BOV      BMN                                   
028146,000508: 32,2150           64167                                    MAXPHI                                
028147,000509: 32,2151           64167                                    MAXPHI                                
028148,000510: 32,2152           45325        PHICALC            PDDL     DSU                                   #  PHI ENTRY PDL 4D
028149,000511: 32,2153           00001                                    0                                     
028150,000512: 32,2154           24251                                    V(26K)                                
028151,000513: 32,2155           71244                           BPL      DLOAD                                 
028152,000514: 32,2156           64164                                    TGR26                                 
028153,000515: 32,2157           24245                                    TLESS26                               
028154,000516: 32,2160           77671                           DDV                                            
028155,000517: 32,2161           00001                                    0                                     
028156,000518: 32,2162           43405        TENT               DMP      RVQ                                   
028157,000519: 32,2163           00005                                    4D                                    
028158,000520: 32,2164           52145        TGR26              DLOAD    GOTO                                  
028159,000521: 32,2165           24247                                    TGR26CON                              
028160,000522: 32,2166           64162                                    TENT                                  
028161,000523: 32,2167           52145        MAXPHI             DLOAD    GOTO                                  
028162,000524: 32,2170           24173                                    MAXPHIC                               
028163,000525: 32,2171           64152                                    PHICALC                               
028164,000526: 32,2172           02755 01307  MAXPHIC            2DEC     .09259298                             #  2000 NM FOR MAXIMUM PHI ENTRY
028165,000527: 
028166,000528: 32,2174                                           COUNT*   $$/P30                                
028167,000529: 
028168,000530:                                                                                                  #                BELOW
028169,000531:                                                                                                  #  **** TABLE IS INDEXED. KEEP IN ORDER ***

Page 641

028171,000533: 32,2174           00013 22652                     2DEC     7.07304526 E-4                        #  5500
028172,000534: 32,2176           00005 01642                     2DEC     3.08641975 E-4                        #  2400
028173,000535: 32,2200           00005 01642                     2DEC     3.08641975 E-4                        #  2400
028174,000536: 32,2202           77556 53522                     2DEC     -8.8888888 E-3                        #  -3.2
028175,000537: 32,2204           00055 20266                     2DEC     2.7777777  E-3                        #  1
028176,000538: 32,2206           00155 07202  CK1K2              2DEC     6.6666666  E-3                        #  2.4
028177,000539: 32,2210           00000 00000                     2DEC     0          B-28                       #  0
028178,000540: 32,2212           77730 71525                     2DEC*    -1.86909989 E-5        B7*             #  -.443
028179,000541: 32,2214           00000 00000                     2DEC     0          B-28                       
028180,000542: 32,2216           04445 10102                     2DEC*    1.11639691 E-3        B7*             #  .001225
028181,000543: 32,2220           03726 31201                     2DEC*    9.56911636 E-4        B7*             #  .00105
028182,000544: 32,2222           01040 26313  YK1K2              2DEC*    2.59733157 E-4        B7*             #  .000285
028183,000545: 32,2224           00234 01660  V(400)             2DEC     1.2192     B-7                        
028184,000546: 32,2226           25254 01014  V(28K)             2DEC     85.344     B-7                        
028185,000547: 32,2230           02222 15646  V(3K)              2DEC     9.144      B-7                        
028186,000548: 32,2232           22223 16457  V(24K)             2DEC     73.152     B-7                        
028187,000549: 32,2234           25254 01014                     2DEC     85.344     B-7                        
028188,000550: 32,2236           30304 23351  V(32K)             2DEC     97.536     B-7                        
028189,000551: 32,2240           03030 22335  V(4K)              2DEC     12.192     B-7                        
028190,000552: 32,2242           20000 00000  V(21K)             2DEC     64.000     B-7                        
028191,000553: 32,2244           00033 05763  TLESS26            2DEC*    5.70146688 E7         B-35*           #  8660PHI/V
028192,000554: 32,2246           00053 36200  TGR26CON           2DEC     7.2        E5         B-28            #  PHI/3
028193,000555: 32,2250           23637 27636  V(26K)             2DEC     79.248     B-7                        #  26000
028194,000556: 32,2252           00012        X1CON              DEC      10         B-14                       
028195,000557: 32,2253           00010                           DEC      8          B-14                       
028196,000558: 32,2254           00006                           DEC      6          B-14                       
028197,000559:                                                                                                  #  **** TABLE IS INDEXED.  KEEP IN ORDER ***

Page 642

028199,000561:                                                                                                  #                ABOVE

Page 643

028201,000563:                                                                                                  #  ***** AVFLAG/P *****
028202,000564: 
028203,000565:                                                                                                  #  SUBROUTINES USED
028204,000566: 
028205,000567:                                                                                                  #        UPFLAG
028206,000568:                                                                                                  #        DOWNFLAG
028207,000569: 
028208,000570: 35,2000                                           SETLOC   P30S1                                 
028209,000571: 35,2000                                           BANK                                           
028210,000572: 35,3726  E4,1770                                  EBANK=   SUBEXIT                               
028211,000573: 
028212,000574: 
028213,000575: 35,3726           00006        AVFLAGA            EXTEND                                         #  AVFLAG = CSM
028214,000576: 35,3727           23770                           QXCH     SUBEXIT                               
028215,000577: 35,3730           05447                           TC       DOWNFLAG                              
028216,000578: 35,3731           00050                           ADRES    AVFLAG                                
028217,000579: 35,3732           34753                           CAF      EBANK7                                
028218,000580: 35,3733           54003                           TS       EBANK                                 
028219,000581: 35,3734  E7,1424                                  EBANK=   ECSTEER                               
028220,000582: 35,3734           34676                           CAF      BIT13                                 
028221,000583: 35,3735           55424                           TS       ECSTEER                               #  SET ECSTEER = 1
028222,000584: 35,3736           34700                           CAF      EBANK4                                
028223,000585: 35,3737           54003                           TS       EBANK                                 
028224,000586: 35,3740  E4,1770                                  EBANK=   SUBEXIT                               
028225,000587: 35,3740           01770                           TC       SUBEXIT                               
028226,000588: 35,3741           00006        AVFLAGP            EXTEND                                         #  AVFLAG = LEM
028227,000589: 35,3742           23770                           QXCH     SUBEXIT                               
028228,000590: 35,3743           05435                           TC       UPFLAG                                
028229,000591: 35,3744           00050                           ADRES    AVFLAG                                
028230,000592: 35,3745           01770                           TC       SUBEXIT                               
028231,000593: 35,3746           00006        P20FLGON           EXTEND                                         
028232,000594: 35,3747           23770                           QXCH     SUBEXIT                               
028233,000595: 35,3750           05435                           TC       UPFLAG                                
028234,000596: 35,3751           00031                           ADRES    TRACKFLG                              
028235,000597: 35,3752           05435                           TC       UPFLAG                                
028236,000598: 35,3753           00027                           ADRES    UPDATFLG                              
028237,000599: 35,3754           01770                           TC       SUBEXIT                               
028238,000600: 
028239,000601: 

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