Source Code

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

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

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

061988,000002:                                                                                                  ## Copyright:   Public domain.
061989,000003:                                                                                                  ## Filename:    SERVICE_ROUTINES.agc
061990,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
061991,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
061992,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
061993,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
061994,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
061995,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
061996,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
061997,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
061998,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
061999,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
062000,000014:                                                                                                  ##              reconstruction is correct.
062001,000015:                                                                                                  ## Assembler:   yaYUL
062002,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
062003,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
062004,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
062005,000019: 
062006,000020:    7722                                           BLOCK    3                                     
062007,000021:    6000                                           SETLOC   FFTAG6                                
062008,000022:    6000                                           BANK                                           
062009,000023:    7722                                           COUNT    03/FLAG                               
062010,000024: 
062011,000025:    7722           54001        UPENT2             TS       L                                     #  WHICH FLAGWORD IS IT
062012,000026:    7723           75037                           MASK     OCT7                                  
062013,000027:    7724           56001                           XCH      L                                     #  SAVE IN L FOR INDEXING
062014,000028: 
062015,000029:    7725           75735                           MASK     OCT77770                              #  OBTAIN THE BIT INFORMATION
062016,000030:    7726           00004                           INHINT                                         #  PREVENT INTERUPTS
062017,000031:    7727           54061                           TS       ITEMP1                                #  STORE THE BIT INFORMATION TEMPORARIALY
062018,000032: 
062019,000033:    7730           50001                           NDX      L                                     
062020,000034:    7731           40074                           CS       FLAGWRD0                              
062021,000035:    7732           70061                           MASK     ITEMP1                                
062022,000036:    7733           50001                           NDX      L                                     
062023,000037:    7734           26074                           ADS      FLAGWRD0                              
062024,000038:    7735           00003                           RELINT                                         #  RELEASE INTERUPT INHIBIT
062025,000039: 
062026,000040:    7736           24002                           INCR     Q                                     #  OBTAIN THE CORRECT RETURN ADDRESS
062027,000041:    7737           00002                           TC       Q                                     #  RETURN
062028,000042: 
062029,000043:    7740           54001        DOWNENT2           TS       L                                     #  WHICH FLAGWORD IS IT
062030,000044:    7741           75037                           MASK     OCT7                                  
062031,000045:    7742           56001                           XCH      L                                     #  SAVE IN L FOR INDEXING
062032,000046: 
062033,000047:    7743           75735                           MASK     OCT77770                              #  OBTAIN THE BIT INFORMATION
062034,000048:    7744           40000                           COM                                            #  START TO PROCESS THE INFORMATION
062035,000049: 
062036,000050:    7745           00004                           INHINT                                         #  PREVENT INTERUPTS
062037,000051:    7746           50001                           NDX      L                                     
062038,000052:    7747           70074                           MASK     FLAGWRD0                              
062039,000053:    7750           50001                           NDX      L                                     
062040,000054:    7751           54074                           TS       FLAGWRD0                              
062041,000055:    7752           00003                           RELINT                                         #  RELEASE INTERUPT INHIBIT
062042,000056: 
062043,000057:    7753           24002                           INCR     Q                                     #  OBTAIN THE CORRECT RETURN ADDRESS
062044,000058:    7754           00002                           TC       Q                                     #  RETURN
062045,000059: 
062046,000060:    7755     5037               OCT7               EQUALS   SEVEN                                 
062047,000061: 10,3766                                           BANK     10                                    
062048,000062: 
062049,000063:                                                                                                  #  UPFLAG AND DOWNFLAG ARE ENTIRELY GENERAL FLAG SETTING AND CLEARING SUBROUTINES.  USING THEM, WHETHER OR
062050,000064:                                                                                                  #  NOT IN INTERRUPT, ONE MAY SET OR CLEAR ANY SINGLE, NAMED BIT IN ANY ERASABLE REGISTER, SUBJECT OF COURSE TO
062051,000065:                                                                                                  #  EBANK SETTING.  A "NAMED" BIT, AS THE WORD IS USED HERE, IS ANY BIT WITH A NAME FORMALLY ASSIGNED BY THE YUL
062052,000066:                                                                                                  #  ASSEMBLER.
062053,000067: 
062054,000068:                                                                                                  #  AT PRESENT THE ONLY NAMED BITS ARE THOSE IN THE FLAGWORDS.  ASSEMBLER CHANGES WILL MAKE IT POSSIBLE TO
062055,000069:                                                                                                  #  NAME ANY BIT IN ERASABLE MEMORY.
062056,000070: 
062057,000071:                                                                                                  #  CALLING SEQUENCES ARE AS FOLLOWS:-
062058,000072:                                                                                                  #                TC      UPFLAG                  TC      DOWNFLAG
062059,000073:                                                                                                  #                ADRES   NAME OF FLAG            ADRES   NAME OF FLAG
062060,000074: 
062061,000075:                                                                                                  #  RETURN IS TO THE LOCATION FOLLOWING THE "ADRES" ABOUT .58 MS AFTER THE "TC".
062062,000076:                                                                                                  #  UPON RETURN A CONTAINS THE CURRENT FLAGWRD SETTING.
062063,000077: 
062064,000078:    5562                                           BLOCK    02                                    
062065,000079:    4000                                           SETLOC   FFTAG1                                
062066,000080:    4000                                           BANK                                           
062067,000081:    5562                                           COUNT*   $$/FLAG                               
062068,000082: 
062069,000083:    5562           30002        UPFLAG             CA       Q                                     
062070,000084:    5563           05600                           TC       DEBIT                                 
062071,000085:    5564           40000                           COM                                            #  +(15 - BIT)
062072,000086:    5565           00006                           EXTEND                                         
062073,000087:    5566           04001                           ROR      LCHAN                                 #  SET BIT
062074,000088:    5567           50061        COMFLAG            INDEX    ITEMP1                                
062075,000089:    5570           54074                           TS       FLAGWRD0                              
062076,000090:    5571           22063                           LXCH     ITEMP3                                
062077,000091:    5572           00003                           RELINT                                         
062078,000092:    5573           00001                           TC       L                                     
062079,000093: 
062080,000094:    5574           30002        DOWNFLAG           CA       Q                                     
062081,000095:    5575           05600                           TC       DEBIT                                 
062082,000096:    5576           70001                           MASK     L                                     #  RESET BIT
062083,000097:    5577           15567                           TCF      COMFLAG                               
062084,000098: 
062085,000099:    5600           65033        DEBIT              AD       ONE                                   #  GET DE BITS
062086,000100:    5601           00004                           INHINT                                         
062087,000101:    5602           54063                           TS       ITEMP3                                
062088,000102:    5603           35042                           CA       LOW4                                  #  DEC15
062089,000103:    5604           54061                           TS       ITEMP1                                
062090,000104:    5605           50063                           INDEX    ITEMP3                                
062091,000105:    5606           27777                           CA       0          -1                         #  ADRES
062092,000106:    5607           54001                           TS       L                                     
062093,000107:    5610           35035                           CA       ZERO                                  
062094,000108:    5611           00006                           EXTEND                                         
062095,000109:    5612           10061                           DV       ITEMP1                                #  A = FLAGWRD, L = (15 - BIT)
062096,000110:    5613           52062                           DXCH     ITEMP1                                
062097,000111:    5614           50061                           INDEX    ITEMP1                                
062098,000112:    5615           30074                           CA       FLAGWRD0                              
062099,000113:    5616           54001                           TS       L                                     #  CURRENT STATE
062100,000114:    5617           50062                           INDEX    ITEMP2                                
062101,000115:    5620           45015                           CS       BIT15                                 #  -(15 - BIT)
062102,000116:    5621           00002                           TC       Q                                     
062103,000117: 
062104,000118:                                                                                                  #  DELAYJOB- A GENERAL ROUTINE TO DELAY A JOB A SPECIFIC AMOUNT OF TIME BEFORE PICKING UP AGAIN.
062105,000119: 
062106,000120:                                                                                                  #  ENTRANCE REQUIREMENTS...
062107,000121:                                                                                                  #                CAF     DT              DELAY JOB FOR DT CENTISECS
062108,000122:                                                                                                  #                TC      BANKCALL
062109,000123:                                                                                                  #                CADR    DELAYJOB
062110,000124: 
062111,000125: 06,3770                                           BANK     06                                    
062112,000126: 00,2000                                           SETLOC   DLAYJOB                               
062113,000127: 00,2000                                           BANK                                           
062114,000128: 
062115,000129:                                                                                                  #  THIS MUST REMAIN IN BANK 0 *****************************************
062116,000130: 
062117,000131: 00,3732                                           COUNT    00/DELAY                              
062118,000132: 
062119,000133: 00,3732           00004        DELAYJOB           INHINT                                         
062120,000134: 00,3733           54002                           TS       Q                                     #  STORE DELAY DT IN Q FOR DLY -1 IN
062121,000135: 00,3734           36214                           CAF      DELAYNUM                              #  WAITLIST
062122,000136: 00,3735           54070        DELLOOP            TS       RUPTREG1                              
062123,000137: 00,3736           50000                           INDEX    A                                     
062124,000138: 00,3737           31141                           CA       DELAYLOC                              #  IS THIS DELAYLOC AVAILABLE
062125,000139: 00,3740           00006                           EXTEND                                         
062126,000140: 00,3741           13746                           BZF      OK2DELAY                              #  YES
062127,000141: 
062128,000142: 00,3742           10070                           CCS      RUPTREG1                              #  NO, TRY NEXT DELAYLOC
062129,000143: 00,3743           13735                           TCF      DELLOOP                               
062130,000144: 
062131,000145: 00,3744           07755                           TC       BAILOUT                               #  NO AVAILABLE LOCS AVAILABLE.
062132,000146: 00,3745           31104                           OCT      31104                                 
062133,000147: 
062134,000148: 00,3746           33766        OK2DELAY           CA       TCSLEEP                               #  SET WAITLIST IMMEDIATE RETURN
062135,000149: 00,3747           54061                           TS       WAITEXIT                              
062136,000150: 
062137,000151: 00,3750           30004                           CA       FBANK                                 
062138,000152: 00,3751           60070                           AD       RUPTREG1                              #  STORE BBANK FOR TASK CALL
062139,000153: 00,3752           54001                           TS       L                                     
062140,000154: 
062141,000155: 00,3753           33767                           CAF      WAKECAD                               #  STORE CADR FOR TASK CALL
062142,000156: 00,3754           15271                           TCF      DLY2       -1                         #  DLY IS IN WAITLIST ROUTINE
062143,000157: 
062144,000158: 00,3755           04725        TCGETCAD           TC       MAKECADR                              #  GET CALLERS FCADR
062145,000159: 
062146,000160: 00,3756           50070                           INDEX    RUPTREG1                              
062147,000161: 00,3757           55141                           TS       DELAYLOC                              #  SAVE DELAY CADRS
062148,000162: 
062149,000163: 00,3760           05211                           TC       JOBSLEEP                              
062150,000164: 
062151,000165: 00,3761           35035        WAKER              CAF      ZERO                                  
062152,000166: 00,3762           50006                           INDEX    BBANK                                 
062153,000167: 00,3763           57141                           XCH      DELAYLOC                              #  MAKE DELAYLOC AVAILABLE
062154,000168: 00,3764           05215                           TC       JOBWAKE                               
062155,000169: 
062156,000170: 00,3765           05340                           TC       TASKOVER                              
062157,000171: 
062158,000172: 00,3766           03753        TCSLEEP            GENADR   TCGETCAD   -2                         
062159,000173: 00,3767           03761        WAKECAD            GENADR   WAKER                                 
062160,000174: 
062161,000175:                                                                                                  #  GENTRAN, A BLOCK TRANSFER ROUTINE.
062162,000176:                                                                                                  #  WRITTEN BY D. EYLES
062163,000177:                                                                                                  #  MOD 1 BY KERNAN                               UTILITYM REV 17 11/18/67
062164,000178:                                                                                                  #  MOD 2 BY SCHULENBERG  (REMOVE RELINT)  SKIPPER REV 4 2/28/68
062165,000179: 
062166,000180:                                                                                                  #  THIS ROUTINE IS USEFULL FOR TRANSFERING N CONSECUTIVE ERASABLE OR FIXED QUANTITIES TO SOME OTHER N
062167,000181:                                                                                                  #  CONSECUTIVE ERASABLE LOCATIONS.  IF BOTH BLOCKS OF DATA ARE IN SWITCHABLE EBANKS, THEY MUST BE IN THE SAME ONE.
062168,000182: 
062169,000183:                                                                                                  #  GENTRAN IS CALLABLE IN A JOB AS WELL AS A RUPT.  THE CALLING SEQUENCE IS:
062170,000184:                                                                                                  #        I       CA      N-1             # OF QUANTITIES MINUS ONE.
062171,000185:                                                                                                  #        I +1    TC      GENTRAN         IN FIXED-FIXED.
062172,000186:                                                                                                  #        I +2    ADRES   L               STARTING ADRES OF DATA TO BE MOVED.
062173,000187:                                                                                                  #        I +3    ADRES   M               STARTING ADRES OF DUPLICATION BLOCK.
062174,000188:                                                                                                  #        I +4                            RETURNS HERE.
062175,000189: 
062176,000190:                                                                                                  #  GENTRAN TAKES 25 MCT'S (300 MICROSECONDS) PER ITEM + 5 MCT'S (60 MICS) FOR ENTERING AND EXITING.
062177,000191:                                                                                                  #  A, L AND ITEMP1 ARE NOT PRESERVED.
062178,000192: 
062179,000193:    5622                                           BLOCK    02                                    
062180,000194:    4000                                           SETLOC   FFTAG4                                
062181,000195:    4000                                           BANK                                           
062182,000196: 
062183,000197:    5622     0061                                  EBANK=   ITEMP1                                
062184,000198: 
062185,000199:    5622                                           COUNT*   $$/TRAN                               
062186,000200: 
062187,000201:    5622           00004        GENTRAN            INHINT                                         
062188,000202:    5623           54061                           TS       ITEMP1                                #  SAVE N-1.
062189,000203:    5624           50002                           INDEX    Q                                     #  C(Q) = ADRES L.
062190,000204:    5625           60000                           AD       0                                     #  ADRES (L + N - 1).
062191,000205:    5626           50000                           INDEX    A                                     
062192,000206:    5627           30000                           CA       0                                     #  C(ABOVE).
062193,000207:    5630           54001                           TS       L                                     #  SAVE DATA.
062194,000208:    5631           30061                           CA       ITEMP1                                
062195,000209:    5632           50002                           INDEX    Q                                     
062196,000210:    5633           60001                           AD       1                                     #  ADRES (M + N - 1).
062197,000211:    5634           50000                           INDEX    A                                     
062198,000212:    5635           22000                           LXCH     0                                     #  STUFF IT.
062199,000213:    5636           10061                           CCS      ITEMP1                                #  LOOP UNTIL N-1 = 0.
062200,000214:    5637           15623                           TCF      GENTRAN    +1                         
062201,000215:    5640           16710                           TCF      Q+2                                   #  RETURN TO CALLER.
062202,000216: 
062203,000217:                                                                                                  #  B5OFF         ZERO BIT 5 OF EXTVBACT, WHICH IS SET BY TESTXACT.
062204,000218:                                                                                                  #  MAY BE USED AS NEEDED BY ANY EXTENDED VERB WHICH HAS DONE TESTXACT
062205,000219: 
062206,000220:    5641                                           COUNT*   $$/EXTVB                              
062207,000221: 
062208,000222:    5641           45027        B5OFF              CS       BIT5                                  
062209,000223:    5642           71044                           MASK     EXTVBACT                              
062210,000224:    5643           55044                           TS       EXTVBACT                              
062211,000225:    5644           05233                           TC       ENDOFJOB                              
062212,000226: 
062213,000227:                                                                                                  #  SUBROUTINES TO TURN OFF AND TURN ON TRACKER FAIL LIGHT.
062214,000228: 
062215,000229:    5645           00004        TRFAILOF           INHINT                                         
062216,000230:    5646           47704                           CS       OCT40200                              #  TURN OFF TRACKER LIGHT
062217,000231:    5647           71036                           MASK     DSPTAB     +11D                       
062218,000232:    5650           65015                           AD       BIT15                                 
062219,000233:    5651           55036                           TS       DSPTAB     +11D                       
062220,000234:    5652           41331                           CS       OPTMODES                              #  TO INSURE THAT OCDU FAIL WILL GO ON
062221,000235:    5653           75025                           MASK     BIT7                                  #  AGAIN IF IT WAS ON IN ADDITION TO
062222,000236:    5654           27331                           ADS      OPTMODES                              #  TRACKER FAIL.
062223,000237: 
062224,000238:    5655           00003        REQ                RELINT                                         
062225,000239:    5656           00002                           TC       Q                                     
062226,000240: 
062227,000241:    5657           00004        TRFAILON           INHINT                                         
062228,000242:    5660           41036                           CS       DSPTAB     +11D                       #  TURN ON
062229,000243:    5661           77704                           MASK     OCT40200                              
062230,000244:    5662           27036                           ADS      DSPTAB     +11D                       
062231,000245:    5663           15655                           TCF      REQ                                   
062232,000246: 
062233,000247: 
062234,000248: 
062235,000249: 

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