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

059604,000002:                                                                                                 #  Copyright:    Public domain.
059605,000003:                                                                                                 #  Filename:      KEYRUPT_UPRUPT.agc
059606,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
059607,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
059608,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
059609,000007:                                                                                                 #  Assembler:    yaYUL
059610,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
059611,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
059612,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
059613,000011:                                                                                                 #  Mod history:  2011-04-17 JL    Adapted from corresponding Colossus 249 file.
059614,000012: 
059615,000013:                                                                                                 # # Page 1413
059616,000014: 14,3751                                          BANK     14                                    
059617,000015: 07,2000                                          SETLOC   KEYRUPT                               
059618,000016: 07,2000                                          BANK                                           
059619,000017: 07,3613                                          COUNT*   $$/KEYUP                              
059620,000018: 
059621,000019: 07,3613           54016        KEYRUPT1          TS       BANKRUPT                              
059622,000020: 07,3614           56002                          XCH      Q                                     
059623,000021: 07,3615           54012                          TS       QRUPT                                 
059624,000022: 07,3616           04414                          TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
059625,000023: 07,3617           34362                          CAF      LOW5                                  
059626,000024: 07,3620           00006                          EXTEND                                         
059627,000025: 07,3621           02015                          RAND     MNKEYIN                               #  CHECK IF KEYS 5M-IM ON
059628,000026: 07,3622           54073        KEYCOM            TS       RUPTREG4                              
059629,000027: 07,3623           40101                          CS       FLAGWRD5                              
059630,000028: 07,3624           74674                          MASK     BIT15                                 
059631,000029: 07,3625           26101                          ADS      FLAGWRD5                              
059632,000030: 
059633,000031: 07,3626           34371        ACCEPTUP          CAF      CHRPRIO                               #  (NOTE: RUPTREG4 = KEYTEMP1)
059634,000032: 07,3627           05027                          TC       NOVAC                                 
059635,000033: 07,3630     0777                                 EBANK=   DSPCOUNT                              
059636,000034: 07,3630           02000 60101                    2CADR    CHARIN                                
059637,000035: 07,3632           30073                          CA       RUPTREG4                              
059638,000036: 07,3633           50064                          INDEX    LOCCTR                                
059639,000037: 07,3634           54154                          TS       MPAC                                  #  LEAVE 5 BIT KEY CODE IN MPAC FOR CHARIN
059640,000038: 07,3635           05222                          TC       RESUME                                
059641,000039: 
059642,000040:                                                                                                 # # Page 1414
059643,000041:                                                                                                 #  UPRUPT PROGRAM
059644,000042: 
059645,000043: 07,3636           54016        UPRUPT            TS       BANKRUPT                              
059646,000044: 07,3637           56002                          XCH      Q                                     
059647,000045: 07,3640           54012                          TS       QRUPT                                 
059648,000046: 07,3641           04414                          TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
059649,000047: 07,3642           34714                          CAF      ZERO                                  
059650,000048: 07,3643           56045                          XCH      INLINK                                
059651,000049: 07,3644           54073                          TS       KEYTEMP1                              
059652,000050: 07,3645           34710                          CAF      BIT3                                  #  TURN ON UPACT LIGHT
059653,000051: 07,3646           00006                          EXTEND                                         #  (BIT 3 OF CHANNEL 11)
059654,000052: 07,3647           05011                          WOR      DSALMOUT                              
059655,000053: 07,3650           34362        UPRPT1            CAF      LOW5                                  #  TEST FOR TRIPLE CHAR REDUNDANCY
059656,000054: 07,3651           70073                          MASK     KEYTEMP1                              #  LOW5 OF WORD
059657,000055: 07,3652           56073                          XCH      KEYTEMP1                              #  LOW5 INTO KEYTEMP1
059658,000056: 07,3653           00006                          EXTEND                                         
059659,000057: 07,3654           74701                          MP       BIT10                                 #  SHIFT RIGHT 5
059660,000058: 07,3655           54734                          TS       KEYTEMP2                              
059661,000059: 07,3656           74362                          MASK     LOW5                                  #  MID 5
059662,000060: 07,3657           63713                          AD       HI10                                  
059663,000061: 07,3660           03710                          TC       UPTEST                                
059664,000062: 07,3661           34701                          CAF      BIT10                                 
059665,000063: 07,3662           00006                          EXTEND                                         
059666,000064: 07,3663           70734                          MP       KEYTEMP2                              #  SHIFT RIGHT 5
059667,000065: 07,3664           74362                          MASK     LOW5                                  #  HIGH 5
059668,000066: 07,3665           40000                          COM                                            
059669,000067: 07,3666           03710                          TC       UPTEST                                
059670,000068: 
059671,000069: 07,3667           43716        UPCK              CS       ELRCODE                               #  CODE IS GOOD. IF CODE = 'ERROR RESET',
059672,000070: 07,3670           60073                          AD       KEYTEMP1                              #  CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
059673,000071: 07,3671           00006                          EXTEND                                         #  IF CODE DOES NOT = 'ERROR RESET', ACCEPT
059674,000072: 07,3672           13700                          BZF      CLUPLOCK                              #  CODE ONLY IF UPLOCKFL IS CLEAR (=0).
059675,000073: 
059676,000074: 07,3673           34707                          CAF      BIT4                                  #  TEST UPLOCKFL FOR 0 OR 1
059677,000075: 07,3674           70103                          MASK     FLAGWRD7                              
059678,000076: 07,3675           10000                          CCS      A                                     
059679,000077: 07,3676           05222                          TC       RESUME                                #  UPLOCKFL = 1
059680,000078: 07,3677           03626                          TC       ACCEPTUP                              #  UPLOCKFL = 0
059681,000079: 
059682,000080: 07,3700           44707        CLUPLOCK          CS       BIT4                                  #  CLEAR UPLOCKFL (I.E., SET BIT 4 OF
059683,000081: 07,3701           70103                          MASK     FLAGWRD7                              #  FLAGWRD7 = 0)
059684,000082: 07,3702           54103                          TS       FLAGWRD7                              
059685,000083: 07,3703           03626                          TC       ACCEPTUP                              
059686,000084: 
059687,000085:                                                                                                 #                                           CODE IS BAD
059688,000086: 07,3704           40103        TMFAIL2           CS       FLAGWRD7                              #  LOCK OUT FURTHER UPLINK ACTIVITY
059689,000087: 07,3705           74707                          MASK     BIT4                                  #  (BY SETTING UPLOCKFL = 1) UNTIL
059690,000088: 07,3706           26103                          ADS      FLAGWRD7                              #  'ERROR RESET' IS SENT VIA UPLINK.
059691,000089: 07,3707           05222                          TC       RESUME                                
059692,000090: 07,3710           60073        UPTEST            AD       KEYTEMP1                              
059693,000091:                                                                                                 # # Page 1415
059694,000092: 07,3711           10000                          CCS      A                                     
059695,000093: 07,3712           03704                          TC       TMFAIL2                               
059696,000094: 07,3713           77740        HI10              OCT      77740                                 
059697,000095: 07,3714           03704                          TC       TMFAIL2                               
059698,000096: 07,3715           00002                          TC       Q                                     
059699,000097: 
059700,000098: 07,3716           00022        ELRCODE           OCT      22                                    
059701,000099: 
059702,000100:                                                                                                 #  'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
059703,000101:                                                                                                 #           1.     VBRELDSP
059704,000102:                                                                                                 #           2.     ERROR RESET
059705,000103:                                                                                                 #           3.     UPDATE PROGRAM(P27) ENTERED BY V70,V71,V72,AND V73.
059706,000104: 
059707,000105: 
059708,000106: 
059709,000107:                                                                                                 #  THE RECEPTION OF A BAD CODE(I.E  CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
059710,000108:                                                                                                 #  THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
059711,000109:                                                                                                 #  WHEN UPLINK ACTIVITY IS LOCKED OUT ,IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE.
059712,000110:                                                                                                 #  (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
059713,000111:                                                                                                 #  BY 15 ZEROES. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
059714,000112:                                                                                                 #  FAILURE)
059715,000113:                                                                                                 #  UPLINK ACTIVITY IS ALSO ALLOWED(UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.

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