Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

023070,000002:                                                                                                 #  Copyright:     Public domain.
023071,000003:                                                                                                 #  Filename:      P15.agc
023072,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
023073,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
023074,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
023075,000007:                                                                                                 #                 Apollo 15-17.
023076,000008:                                                                                                 #  Assembler:     yaYUL
023077,000009:                                                                                                 #  Contact:       Hartmuth Gutsche <hgutsche@xplornet.com>
023078,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
023079,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
023080,000012:                                                                                                 #  Mod history:   2009-12-17 HG   Initial version
023081,000013:                                                                                                 #                 2010-01-26 JL   Updated header comments.
023082,000014:                                                                                                 #                 2010-01-26 JL   Minor updates.
023083,000015:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
023084,000016:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
023085,000017: 
023086,000018:                                                                                                 # # Page 527
023087,000019: 
023088,000020:                                                                                                 #  P15 TLI INITIATE/CUTOFF
023089,000021:                                                                                                 #         
023090,000022:                                                                                                 #         DISPLAYS N33 : TIME OF SIVB INJECTION SEQUENCE START (TB6)
023091,000023:                                                                                                 #         ESTABLISHES T6SET TO BE EXECUTED AT TB6 TIME
023092,000024:                                                                                                 #         SETS TLITIG = TB6 + 9:37.6
023093,000025:                                                                                                 #         DISPLAYS N14 : INERTIAL VELOCITY MAGNITUDE AT TLI C/O
023094,000026:                                                                                                 #         DISPLAYS N95 : TFI - TIME FROM TLITIG (DECREASING)
023095,000027:                                                                                                 #                        VG  - VELOCITY-TO-BE-GAINED
023096,000028:                                                                                                 #                        V   - INERTIAL VELOCITY MAGNITUDE
023097,000029:                                                                                                 #         T6SET : SETS THE SIVB INJECTION SEQUENCE START BIT,
023098,000030:                                                                                                 #         ESTABLISHES T6RESET (DT = 10 SECS), AND
023099,000031:                                                                                                 #         TURNS ON THE UPLINK ACTIVITY LIGHT
023100,000032:                                                                                                 #         T6RESET : CLEARS THE SIVB I.S.S. BIT AND
023101,000033:                                                                                                 #         TURNS OFF THE UPLINK ACTIVITY LIGHT
023102,000034:                                                                                                 #         P40S/SV : CALLS MIDTOAV1 TO INTEGRATE THE CSM
023103,000035:                                                                                                 #         STATE VECTOR TO TLITLIG - 100 AND
023104,000036:                                                                                                 #         ESTABLISHES TIGBLNK AT TLITIG - 105
023105,000037:                                                                                                 #         TIGBLNK : BLANKS THE DSKY FOR 5 SECS AND
023106,000038:                                                                                                 #         ESTABLISHES TIGAVEG FOR TLITIG - 100 
023107,000039:                                                                                                 #         TIGAVEG : STARTS READACCS AND REDISPLAYS
023108,000040:                                                                                                 #         N95 (VG AND V NOW DYNAMIC)
023109,000041:                                                                                                 #         SIVBCOMP : UPDATES VG AND V AND
023110,000042:                                                                                                 #         AFTER TLITIG + 10 CALCULATES TGO AND
023111,000043:                                                                                                 #         CHANGES THE N95 R1 DISPLAY TO TFC
023112,000044:                                                                                                 #         WHEN TGO < 4 SECS, SIVBCOMP ESTABLISHES SIVBOFF (DT = TGO)
023113,000045:                                                                                                 #         SIVBOFF : SHUTS DOWN THE SIVB AND CALLS POSTTLI
023114,000046:                                                                                                 #         POSTTLI : FLASHES N95 TO INDICATE TLI IS COMPLETED
023115,000047:                                                                                                 #         P15 EXITS VIA GOTOPOOH
023116,000048: 33,2000                                          SETLOC   P15LOC1                               
023117,000049: 33,2000                                          BANK                                           
023118,000050: 33,3455                                          COUNT*   $$/P15                                
023119,000051: 33,3455  E7,1412                                 EBANK=   TIG                                   
023120,000052: 33,3455           35026        P15JOB            CAF      V06N33                                #  DISPLAY TB6 TIME
023121,000053: 33,3456           05535                          TC       VNFLASH                               
023122,000054: 33,3457           06006                          TC       INTPRET                               
023123,000055: 33,3460           43345                          DLOAD    DAD                                   
023124,000056: 33,3461           03413                                   TIG                                   
023125,000057: 33,3462           27533                                   TLIDT                                 
023126,000058: 33,3463           03464                          STORE    TLITMP                                
023127,000059: 33,3464           44234                          RTB      BDSU                                  
023128,000060: 33,3465           51751                                   LOADTIME                              
023129,000061: 33,3466           03413                                   TIG                                   
023130,000062: 33,3467           03673                          STORE    P40TMP                                #  TIG-TIME2
023131,000063: 33,3470           77776                          EXIT                                           #  .TO P40TMP
023132,000064: 33,3471           52155                          DXCH     MPAC                                  #  ..AND A,L
023133,000065: 33,3472           05332                          TC       LONGCALL                              
023134,000066: 33,3473  E7,1672                                 EBANK=   P40TMP                                
023135,000067: 33,3473           02311 40067                    2CADR    T6SET                                 
023136,000068: 33,3475           05362                          TC       2PHSCHNG                              
023137,000069:                                                                                                 # # Page 528
023138,000070: 33,3476           00153                          OCT      00153                                 #  A,3.15=T6SET IN P40TMP CSEC
023139,000071: 33,3477           24024                          OCT      24024                                 #  C,JOB BELOW,LONGBASE FOR A ABOVE
023140,000072: 33,3500  01,2077               3P15SPT1          =        3.15SPOT                              
023141,000073: 33,3500           00006                          EXTEND                                         
023142,000074: 33,3501           31464                          DCA      TLITMP                                
023143,000075: 33,3502           53413                          DXCH     TIG                                   #  TLITIG = TB6 + 9:37.6
023144,000076: 33,3503           33536        DISP14            CAF      V06N14                                #  DISPLAY V AT TLI C/O
023145,000077: 33,3504           05535                          TC       VNFLASH                               
023146,000078: 33,3505           06006                          TC       INTPRET                               
023147,000079: 33,3506           51575                          VLOAD    ABVAL                                 
023148,000080: 33,3507           01563                                   VRECTCSM                              #  M/CS B+7
023149,000081: 33,3510           03723                          STORE    VNOW                                  
023150,000082: 33,3511           43021                          BDSU     SET                                   
023151,000083: 33,3512           02356                                   VC/O                                  #       B+7
023152,000084: 33,3513           03464                                   TIMRFLAG                              #  ENABLE CLOKTASK
023153,000085: 33,3514           17725                          STODL    VGTLI                                 #  VGTLI = VC/O - |VRECTCSM| B+7
023154,000086: 33,3515           27535                                   S4BCOMP                               
023155,000087: 33,3516           01062                          STORE    AVEGEXIT                              #  SET AVERAGE EXIT TO SIVBCOMP
023156,000088: 33,3517           77776                          EXIT                                           
023157,000089: 33,3520           33537                          CAF      V06N95                                
023158,000090: 33,3521           54777                          TS       NVWORD1                               #  ENABLE CLOCKJOB
023159,000091: 33,3522           34770        CLOKNOW           CAF      ONE                                   
023160,000092: 33,3523           05233                          TC       WAITLIST                              
023161,000093: 33,3524  E7,1412                                 EBANK=   TIG                                   
023162,000094: 33,3524           03225 50067                    2CADR    CLOKTASK                              
023163,000095: 
023164,000096: 33,3526           05362                          TC       2PHSCHNG                              
023165,000097: 33,3527           40036                          OCT      40036                                 #  6.3SPOT FOR CLOKTASK
023166,000098: 33,3530           00004                          OCT      00004                                 #  KILL GROUP 4
023167,000099: 33,3531  01,2325               6P3SPT4           =        6.3SPOT                               
023168,000100: 33,3531           15205                          TCF      ENDOFJOB                              
023169,000101: 
023170,000102: 33,3532           00003 20640  TLIDT             2DEC     57760      B-28                       #  9 MIN 37.6 SEC (TB6 + TLIDT = TLITIG)
023171,000103: 
023172,000104: 33,3534  E7,1412                                 EBANK=   TIG                                   
023173,000105: 33,3534           03540 66067  S4BCOMP           2CADR    SIVBCOMP                              
023174,000106: 
023175,000107: 33,3536           01416        V06N14            VN       0614                                  
023176,000108: 33,3537           01537        V06N95            VN       0695                                  
023177,000109: 
023178,000110: 
023179,000111: 20,2000                                          SETLOC   P15LOC                                
023180,000112: 20,2000                                          BANK                                           
023181,000113: 20,2311  E7,1412                                 EBANK=   TIG                                   
023182,000114: 20,2311                                          COUNT*   $$/P15                                
023183,000115: 20,2311           00006        T6SET             EXTEND                                         
023184,000116: 20,2312           30025                          DCA      TIME2                                 
023185,000117: 20,2313           53022                          DXCH     TEVENT                                
023186,000118: 20,2314           32330                          CAF      10SEC                                 #  T6RESET IN 10 SEC
023187,000119: 20,2315           05223                          TC       TWIDDLE                               
023188,000120:                                                                                                 # # Page 529
023189,000121: 20,2316           02331                          ADRES    T6RESET                               
023190,000122: 20,2317           05402                          TC       PHASCHNG                              
023191,000123: 20,2320           40023                          OCT      40023                                 #  A,3.2=T6CHNSET IMMED.,
023192,000124:                                                                                                 #        T6RESET IN 10 SEC,TBASE NOW
023193,000125: 
023194,000126: 20,2321  01,2052               3P2SPT1           =        3.2SPOT                               
023195,000127: 20,2321           34754        T6CHNSET          CAF      BIT13                                 
023196,000128: 20,2322           00006                          EXTEND                                         #  SIVB INJECTION
023197,000129: 20,2323           05012                          WOR      CHAN12                                #   SEQUENCE START
023198,000130: 20,2324           34766                          CAF      BIT3                                  
023199,000131: 20,2325           00006                          EXTEND                                         
023200,000132: 20,2326           05011                          WOR      DSALMOUT                              #  UPLINK ACTIV. ON
023201,000133: 20,2327           05314                          TC       TASKOVER                              
023202,000134: 
023203,000135: 20,2330           01750        10SEC             DEC      1000       B-14                       
023204,000136: 
023205,000137: 20,2331           44754        T6RESET           CS       BIT13                                 #  PROTECEED BY GROUP 3
023206,000138: 20,2332           00006                          EXTEND                                         #  CLEAR SIVB ISS
023207,000139: 20,2333           03012                          WAND     CHAN12                                
023208,000140: 20,2334           44766                          CS       BIT3                                  #  TURN OFF UPLINK ACTIVITY
023209,000141: 20,2335           00006                          EXTEND                                         
023210,000142: 20,2336           03011                          WAND     DSALMOUT                              
023211,000143: 20,2337           05362                          TC       2PHSCHNG                              
023212,000144: 20,2340           00003                          OCT      00003                                 #  KILL GROUP 3
023213,000145: 20,2341           05014                          OCT      05014                                 
023214,000146: 20,2342           77777                          DEC      -0         B-14                       #  GROUP 4 CONTINUES BELOW
023215,000147: 20,2343           00006        P15INTEG          EXTEND                                         
023216,000148: 20,2344           32354                          DCA      100SEC                                
023217,000149: 20,2345           53460                          DXCH     AVEGDT                                #  START AVERAGED AT TIG - 100.00
023218,000150: 20,2346           34664                          CAF      PRIO12                                
023219,000151: 20,2347           05135                          TC       FINDVAC                               
023220,000152: 20,2350  E7,1412                                 EBANK=   TIG                                   
023221,000153: 20,2350           02523 50067                    2CADR    P40S/SV                               #  COMMON CODE IN P40
023222,000154: 20,2352           15314                          TCF      TASKOVER                              
023223,000155: 
023224,000156: 20,2353           00000 23420  100SEC            2DEC     10000      B-28                       
023225,000157: 
023226,000158:                                                                                                 # # Page 530
023227,000159: 
023228,000160:                                                                                                 #  SIVB SHUTDOWN COMPUTATIONS
023229,000161: 
023230,000162:                                                                                                 #  CALLED VIA AVEGEXIT EVERY 2 SECS STARTING AT TLITIG - 100
023231,000163:                                                                                                 #            VG AND V (N95) ARE ALWAYS UPDATED
023232,000164:                                                                                                 #            TGO CALCULATONS FOR TLI SHUTDOWN AND TTOGO (N95)
023233,000165:                                                                                                 #            ARE ENABLED (STEERSW = 1) AT TLITIG + 10
023234,000166: 33,2000                                          SETLOC   P15LOC1                               
023235,000167: 33,2000                                          BANK                                           
023236,000168: 33,3540  E7,1412                                 EBANK=   TIG                                   
023237,000169: 33,3540                                          COUNT*   $$/P15                                
023238,000170: 33,3540           06006        SIVBCOMP          TC       INTPRET                               
023239,000171: 33,3541           45345                          DLOAD    DSU                                   
023240,000172: 33,3542           03661                                   TTOGO                                 
023241,000173: 33,3543           27667                                   TENSEC                                #  TFI > +10 ? (TFC CAN NEVER EXCEED +2)
023242,000174: 33,3544           43040                          BMN      SET                                   #  YES, SET STERSW TO ENABLE TGO CALC
023243,000175: 33,3545           67547                                   +2                                    #  NO
023244,000176: 33,3546           01064                                   STEERSW                               
023245,000177: 33,3547           77624                          CALL                                           
023246,000178: 33,3550           70537                                   S11.1                                 #  VMAG, HDOT, AND H FOR N62
023247,000179: 33,3551           44345                          DLOAD    BDSU                                  
023248,000180: 33,3552           03723                                   VNOW                                  #  VMAG      M/CS B+7 FOR N95
023249,000181: 33,3553           02356                                   VC/O                                  #  VMAG(C/O) M/CS B+7
023250,000182: 33,3554           17725                          STODL    VGTLI                                 #  VG = VC/O - VNOW FOR N95
023251,000183: 33,3555           03723                                   VNOW                                  
023252,000184: 33,3556           45214                          BOFF     DSU                                   
023253,000185: 33,3557           01344                                   STEERSW                               
023254,000186: 33,3560           67605                                   SETVPAST                              #  STEERSW = 0, EXIT
023255,000187: 33,3561           03462                                   VPAST                                 #  MPAC = VNOW - VPAST (DV FOR LAST 2 SECS)
023256,000188: 33,3562           41440                          BMN      PUSH                                  #  00D = DV FOR LAST 2 SECS
023257,000189: 33,3563           67605                                   SETVPAST                              #  DV NEGATIVE, EXIT
023258,000190: 33,3564           54345                          DLOAD    SR                                    
023259,000191: 33,3565           03725                                   VGTLI                                 #  B+7
023260,000192: 33,3566           20612                                   09D                                   #  SR9 NOW B+16
023261,000193: 33,3567           77671                          DDV                                            #  B+16 / B+7 NOW B+9
023262,000194: 33,3570           41200                          BOV      DMP                                   
023263,000195: 33,3571           67605                                   SETVPAST                              #  OVERFLOW, EXIT
023264,000196: 33,3572           27671                                   200B+19                               #  B+9 X B+19 NOW B+28
023265,000197: 33,3573           67206                          PUSH     SLOAD                                 #  00D = TGO WITHOUT TAILOFF EFFECTS
023266,000198: 33,3574           02355                                   DTF                                   #  TLI TAILOFF CONSTANT B+14
023267,000199: 33,3575           44261                          SR       BDSU                                  #  COMPENSATE FOR TAILOFF
023268,000200: 33,3576           20617                                   14D                                   #  B+28
023269,000201: 33,3577           43206                          PUSH     DAD                                   #  00D = COMPENSATED TGO
023270,000202: 33,3600           01044                                   PIPTIME                               
023271,000203: 33,3601           17413                          STODL    TIG                                   #  FOR CLOKTASK (N95)
023272,000204: 33,3602           50025                          DSU      BMN                                   #  TGO FROM 00D
023273,000205: 33,3603           27665                                   4SEC                                  #  TGO < 4 SECS ?
023274,000206: 33,3604           67611                                   KILLSIVB                              #  YES : SET UP SIVB SHUTDOWN
023275,000207: 33,3605           77745        SETVPAST          DLOAD                                          
023276,000208: 33,3606           03723                                   VNOW                                  
023277,000209: 33,3607           37462                          STCALL   VPAST                                 #  VPAST = VNOW
023278,000210:                                                                                                 # # Page 531
023279,000211: 33,3610           51603                                   SERVXT1                               #  ** NO RETURN ** SAME AS GOTO SERVXT1
023280,000212: 
023281,000213: 
023282,000214: 33,3611  E7,1412                                 EBANK=   TIG                                   
023283,000215: 33,3611           77776        KILLSIVB          EXIT                                           
023284,000216: 33,3612           00004                          INHINT                                         
023285,000217: 33,3613           00006                          EXTEND                                         
023286,000218: 33,3614           31413                          DCA      TIG                                   
023287,000219: 33,3615           52155                          DXCH     MPAC                                  
023288,000220: 33,3616           00006                          EXTEND                                         
023289,000221: 33,3617           40025                          DCS      TIME2                                 
023290,000222: 33,3620           20155                          DAS      MPAC                                  
023291,000223: 33,3621           07224                          TCR      DPAGREE                               
023292,000224: 33,3622           30155                          CAE      MPAC       +1                         #  DT TO C/O = TIG - TIME2 (< 4 SECS TO GO)
023293,000225:                                                                                                 #               PIPTIME + TGO - TIME2     
023294,000226: 33,3623           00006                          EXTEND                                         #  DT <= 0 ?
023295,000227: 33,3624           63626                          BZMF     +2                                    #  YES
023296,000228: 33,3625           13627                          TCF      +2                                    #  NO
023297,000229: 33,3626           34770                          CAF      ONE                                   
023298,000230: 33,3627           55460                          TS       AVEGDT     +1                         
023299,000231: 33,3630           05223                          TC       TWIDDLE                               
023300,000232: 33,3631           03637                          ADRES    SIVBOFF                               
023301,000233: 33,3632           05362                          TC       2PHSCHNG                              
023302,000234: 33,3633           40614                          OCT      40614                                 #  4.61 SIVBOFF IN (AVEGDT+1) CS
023303,000235: 33,3634           10035                          OCT      10035                                 
023304,000236: 
023305,000237: 33,3635  01,2231               4P61SPT1          =        4.61SPOT                              
023306,000238: 33,3635  01,2250               5P3SPT16          =        5.3SPOT                               
023307,000239: 33,3635           04655                          TC       POSTJUMP                              
023308,000240: 33,3636           51134                          CADR     CLEARSTR                              
023309,000241: 
023310,000242: 33,3637  0003777                                 EBANK=   WHOCARES                              
023311,000243: 33,3637           34753        SIVBOFF           CAF      BIT14                                 
023312,000244: 33,3640           00006                          EXTEND                                         
023313,000245: 33,3641           05012                          WOR      CHAN12                                #  SHUTDOWN THE SIVB
023314,000246: 33,3642           00006                          EXTEND                                         
023315,000247: 33,3643           30025                          DCA      TIME2                                 
023316,000248: 33,3644           53022                          DXCH     TEVENT                                #  SET TEVENT
023317,000249: 33,3645           05255                          TC       FIXDELAY                              
023318,000250: 33,3646           00372                          DEC      250        B-14                       #  DELAY 2.5 SECS
023319,000251: 33,3647           34772                          CAF      ZERO                                  
023320,000252: 33,3650           54777                          TS       NVWORD1                               #  ZERO NVWORD1 IN CASE CLOCKJOB WAITING
023321,000253: 33,3651           44756                          CS       TIMRBIT                               
023322,000254: 33,3652           70103                          MASK     FLAGWRD7                              
023323,000255: 33,3653           54103                          TS       FLAGWRD7                              #  DISABLE CLOKTASK
023324,000256: 33,3654           05402                          TC       PHASCHNG                              
023325,000257: 33,3655           05014                          OCT      05014                                 
023326,000258: 33,3656           77777                          DEC      -0         B-14                       #  START BELOW
023327,000259: 33,3657           34664                          CAF      PRIO12                                
023328,000260: 33,3660           05121                          TC       NOVAC                                 
023329,000261:                                                                                                 # # Page 532
023330,000262: 33,3661  0003777                                 EBANK=   WHOCARES                              
023331,000263: 33,3661           02012 74067                    2CADR    POSTTLI                               
023332,000264: 
023333,000265: 33,3663           05314                          TC       TASKOVER                              
023334,000266: 
023335,000267: 33,3664           00000 00620  4SEC              2DEC     400        B-28                       
023336,000268: 33,3666           00000 01750  TENSEC            2DEC     1000       B-28                       
023337,000269: 33,3670           00006 10000  200B+19           2DEC     200        B-19                       
023338,000270: 
023339,000271: 
023340,000272: 36,2000                                          SETLOC   P15LOC2                               
023341,000273: 36,2000                                          BANK                                           
023342,000274: 36,2012  0003777                                 EBANK=   WHOCARES                              
023343,000275: 
023344,000276: 36,2012                                          COUNT*   $$/P15                                
023345,000277: 36,2012           32015        POSTTLI           CAF      V16N95                                
023346,000278: 36,2013           05535                          TC       VNFLASH                               
023347,000279: 36,2014           14103                          TCF      GOTOPOOH                              
023348,000280: 
023349,000281: 
023350,000282: 36,2015           04137        V16N95            VN       1695                                  
023351,000283: 
023352,000284:                                                                                                 # # Page 533
023353,000285: 

This page empty.

023355,000287: 

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