Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

021581,000002:                                                                                                 #  Copyright:    Public domain.
021582,000003:                                                                                                 #  Filename:      P76.agc
021583,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
021584,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
021585,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
021586,000007:                                                                                                 #  Assembler:    yaYUL
021587,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
021588,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
021589,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
021590,000011:                                                                                                 #  Mod history:  2011-02-05 JL   Adapted from corresponding Colossus 249 file.
021591,000012: 
021592,000013:                                                                                                 # # Page 500
021593,000014:                                                                                                 #  1) PROGRAM NAME - TARGET DELTA V PROGRAM (P76).
021594,000015:                                                                                                 #  2) FUNCTIONAL DESCRIPTION - UPON ENTRY BY ASTRONAUT ACTION, P76 FLASHES DSKY REQUESTS TO THE ASTRONAUT
021595,000016:                                                                                                 #            TO PROVIDE VIA DSKY (1) THE DELTA V TO BE APPLIED TO THE OTHER VEHICLE STATE VECTOR AND (2) THE
021596,000017:                                                                                                 #            TIME (TIG) AT WHICH THE OTHER VEHICLE VELOCITY WAS CHANGED BY  EXECUTION OF A THRUSTING MANEUVER. THE
021597,000018:                                                                                                 #            OTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIG AND UPDATED BY THE ADDITION OF DELTA V (DELTA V HAVING
021598,000019:                                                                                                 #            BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE    PROGRAM THEN INTEGRATES THE OTHER
021599,000020:                                                                                                 #  VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE
021600,000021:                                                                                                 #  STATES CORRESPOND TO THE SAME TIME.
021601,000022:                                                                                                 #  3) ERASABLE INIITIALIZATION REQUIRED - NONE.
021602,000023:                                                                                                 #  4) CALLING SEQUENCES AND EXIT MODES - CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76 E.
021603,000024:                                                                                                 #            EXITS BY TCF ENDOFJOB.
021604,000025:                                                                                                 #  5) OUTPUT - OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS.
021605,000026:                                                                                                 #            THE PUSHLIST CONTAINS THE MATRIX BY WHICH THE INPUT DELTA V MUST BE POST-MULTIPLIED TO CONVERT FROM LV
021606,000027:                                                                                                 #            TO REF COSYS.
021607,000028:                                                                                                 #  6) DEBRIS - OTHER VEHICLE STATE VECTOR.
021608,000029:                                                                                                 #  7) SUBROUTINES CALLED - BANKCALL,GOXDSPF,CSMPREC (OR LEMPREC),ATOPCSM (OR ATOPLEM),INTSTALL,INTWAKE, PHASCHNG
021609,000030:                                                                                                 #            INTPRET, INTEGRVS, AND MINIRECT.
021610,000031: 
021611,000032:                                                                                                 #  8) FLAG USE - MOONFLAG,CMOONFLG,INTYPFLG,RASFLAG, AND MARKCTR.
021612,000033: 
021613,000034: 30,2000                                          BANK     30                                    
021614,000035: 13,2000                                          SETLOC   P76LOC                                
021615,000036: 13,2000                                          BANK                                           
021616,000037: 
021617,000038: 13,2036                                          COUNT*   $$/P76                                
021618,000039: 
021619,000040: 13,2036  E7,1412                                 EBANK=   TIG                                   
021620,000041: 
021621,000042: 13,2036           05435        P76               TC       UPFLAG                                
021622,000043: 13,2037           00031                          ADRES    TRACKFLG                              
021623,000044: 
021624,000045: 13,2040           32163                          CAF      V06N84                                #  FLASH LAST DELTA V,
021625,000046: 13,2041           04555                          TC       BANKCALL                              #  AND WAIT FOR KEYBOARD ACTION.
021626,000047: 13,2042           20624                          CADR     GOFLASH                               
021627,000048: 13,2043           12155                          TCF      ENDP76                                
021628,000049: 13,2044           02046                          TC       +2                                    #  PROCEED
021629,000050: 13,2045           02040                          TC       -5                                    #  STORE DATA AND REPEAT FLASHING
021630,000051: 13,2046           32164                          CAF      V06N84     +1                         #  FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
021631,000052: 13,2047           04555                          TC       BANKCALL                              #  AND WAIT FOR KEYBOARD ACTION.
021632,000053: 13,2050           20624                          CADR     GOFLASH                               
021633,000054: 13,2051           12155                          TCF      ENDP76                                
021634,000055: 13,2052           02054                          TC       +2                                    
021635,000056: 13,2053           02046                          TC       -5                                    
021636,000057: 13,2054           06006                          TC       INTPRET                               #  RETURN TO INTERPRETIVE CODE
021637,000058: 13,2055           77745                          DLOAD                                          #  SET D(MPAC)=TIG IN CSEC B28
021638,000059: 13,2056           03413                                   TIG                                   
021639,000060: 13,2057           34041                          STCALL   TDEC1                                 #  SET TDEC1=TIG FOR ORBITAL INTEGRATION
021640,000061: 13,2060           27036                                   OTHPREC                               
021641,000062: 13,2061           53575        COMPMAT           VLOAD    UNIT                                  
021642,000063: 13,2062           00001                                   RATT                                  
021643,000064:                                                                                                 # # Page 501
021644,000065: 13,2063           77676                          VCOMP                                          #  U(-R)
021645,000066: 13,2064           00031                          STORE    24D                                   #  U(-R) TO 24D
021646,000067: 13,2065           53435                          VXV      UNIT                                  #  U(-R)XV = U(VXR)
021647,000068: 13,2066           00007                                   VATT                                  
021648,000069: 13,2067           00023                          STORE    18D                                   
021649,000070: 13,2070           53435                          VXV      UNIT                                  #  U(VXR)XU(-R) = U((RXV)XR)
021650,000071: 13,2071           00031                                   24D                                   
021651,000072: 13,2072           24015                          STOVL    12D                                   
021652,000073: 13,2073           03540                                   DELVOV                                
021653,000074: 13,2074           76505                          VXM      VSL1                                  #  V(MPAC)=DELTA V IN REFCOSYS
021654,000075: 13,2075           00015                                   12D                                   
021655,000076: 13,2076           77655                          VAD                                            
021656,000077: 13,2077           00007                                   VATT                                  
021657,000078: 13,2100           00007                          STORE    6                                     #  V(PD6)=VATT + DELTA V
021658,000079: 13,2101           77624                          CALL                                           #  PREVENT WOULD-BE USER OF ORBITAL
021659,000080: 13,2102           27371                                   INTSTALL                              #  INTEG FROM INTERFERING WITH UPDATING
021660,000081: 13,2103           77624                          CALL                                           
021661,000082: 13,2104           26165                                   P76SUB1                               
021662,000083: 13,2105           53775                          VLOAD    VSR*                                  
021663,000084: 13,2106           00007                                   6                                     
021664,000085: 13,2107           57176                                   0,2                                   
021665,000086: 13,2110           25543                          STOVL    VCV                                   
021666,000087: 13,2111           00001                                   RATT                                  
021667,000088: 13,2112           77657                          VSR*                                           
021668,000089: 13,2113           57176                                   0,2                                   
021669,000090: 13,2114           15535                          STODL    RCV                                   
021670,000091: 13,2115           03413                                   TIG                                   
021671,000092: 13,2116           01517                          STORE    TET                                   
021672,000093: 13,2117           71214                          CLEAR    DLOAD                                 
021673,000094: 13,2120           01673                                   INTYPFLG                              
021674,000095: 13,2121           01571                                   TETTHIS                               
021675,000096: 13,2122           34041        INTOTHIS          STCALL   TDEC1                                 
021676,000097: 13,2123           27066                                   INTEGRVS                              
021677,000098: 13,2124           77624                          CALL                                           
021678,000099: 13,2125           27371                                   INTSTALL                              
021679,000100: 13,2126           77775                          VLOAD                                          
021680,000101: 13,2127           00017                                   RATT1                                 
021681,000102: 13,2130           01503                          STORE    RRECT                                 
021682,000103: 13,2131           15535                          STODL    RCV                                   
021683,000104: 13,2132           00015                                   TAT                                   
021684,000105: 13,2133           25517                          STOVL    TET                                   
021685,000106: 13,2134           00025                                   VATT1                                 
021686,000107: 13,2135           77624                          CALL                                           
021687,000108: 13,2136           23360                                   MINIRECT                              
021688,000109: 13,2137           77776                          EXIT                                           
021689,000110: 13,2140           05301                          TC       PHASCHNG                              
021690,000111: 13,2141           04024                          OCT      04024                                 
021691,000112: 
021692,000113: 13,2142           05435                          TC       UPFLAG                                
021693,000114: 13,2143           00236                          ADRES    REINTFLG                              
021694,000115: 
021695,000116:                                                                                                 # # Page 502
021696,000117: 13,2144           06006                          TC       INTPRET                               
021697,000118: 13,2145           77624                          CALL                                           
021698,000119: 13,2146           26711                                   ATOPOTH                               
021699,000120: 13,2147           77531                          SSP      EXIT                                  
021700,000121: 13,2150           00053                                   QPRET                                 
021701,000122: 13,2151           26154                                   OUT                                   
021702,000123: 13,2152           04555                          TC       BANKCALL                              #  PERMIT USE OF ORBITAL INTEGRATION
021703,000124: 13,2153           27426                          CADR     INTWAKE1                              
021704,000125: 13,2154           77776        OUT               EXIT                                           
021705,000126: 13,2155           34714        ENDP76            CAF      ZERO                                  
021706,000127: 13,2156           55126                          TS       MARKCTR                               #  CLEAR RR TRACKING MARK COUNTER
021707,000128: 13,2157           55125                          TS       VHFCNT                                
021708,000129: 
021709,000130: 13,2160           37716                          CAF      NEGONE                                
021710,000131: 13,2161           55734                          TS       MRKBUF2                               #  INVALIDATE MARK BUFFER
021711,000132: 
021712,000133: 13,2162           14106                          TCF      GOTOPOOH                              
021713,000134: 
021714,000135: 13,2163           01524        V06N84            NV       0684                                  
021715,000136: 13,2164           01441                          NV       0633                                  
021716,000137: 13,2165           43174        P76SUB1           AXT,2    SET                                   
021717,000138: 13,2166           00002                                   2                                     
021718,000139: 13,2167           00063                                   MOONFLAG                              #  SET MEANS MOON IS SPHERE OF INFLUENCE.
021719,000140: 13,2170           77014                          BON      AXT,2                                 
021720,000141: 13,2171           04303                                   CMOONFLG                              #  SET MEANS PERM CM STATE IN LUNAR SPHERE.
021721,000142: 13,2172           00052                                   QPRET                                 
021722,000143: 13,2173           00000                                   0                                     
021723,000144: 13,2174           43414                          CLEAR    RVQ                                   
021724,000145: 13,2175           00263                                   MOONFLAG                              

End of include-file P76.agc.  Parent file is MAIN.agc