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.

018792,000002:                                                                                                 #  Copyright:     Public domain.
018793,000003:                                                                                                 #  Filename:      SYSTEM_TEST_STANDARD_LEAD_INS.agc
018794,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
018795,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
018796,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
018797,000007:                                                                                                 #                 Apollo 15-17.
018798,000008:                                                                                                 #  Assembler:     yaYUL
018799,000009:                                                                                                 #  Contact:       Sergio Navarro <sergionavarrog@gmail.com>
018800,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
018801,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
018802,000012:                                                                                                 #  Mod history:   2009-08-19 SN   Adapted from corresponding Comanche 055 file.
018803,000013:                                                                                                 #                 2009-09-04 JL   Fix typos.
018804,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
018805,000015: 

Page 424

018807,000017: 
018808,000018: ???????  E5,1671                                 EBANK=   XSM                                   
018809,000019: 
018810,000020: 13,2000                                          SETLOC   E/PROG1                               
018811,000021: 13,2000                                          BANK                                           
018812,000022: 
018813,000023: 13,2036                                          COUNT*   $$/P07                                
018814,000024: 
018815,000025:                                                                                                 #  SPECIAL PROGRAMS TO EASE THE PANGS OF ERASABLE MEMORY PROGRAMS.
018816,000026: 
018817,000027:                                                                                                 #  E/BKCALL       FOR DOING BANKCALLS FROM AND RETURNING TO ERASABLE.
018818,000028: 
018819,000029:                                                                                                 #  THIS ROUTINE IS CALLABLE FROM ERASABLE OR FIXED.  LIKE BANKCALL, HOWEVER, SWITCHING BETWEEN S3 AND S4
018820,000030:                                                                                                 #  IS NOT POSSIBLE.
018821,000031: 
018822,000032:                                                                                                 #  THE CALLING SEQUENCE IS:
018823,000033: 
018824,000034:                                                                                                 #                 TC      BANKCALL
018825,000035:                                                                                                 #                 CADR    E/BKCALL
018826,000036:                                                                                                 #                 CADR    ROUTINE         # WHERE TO WANT TO GO IN FIXED.
018827,000037:                                                                                                 #                 RETURN HERE FROM DISPLAY TERMINATE, BAD STALL OR TC Q.
018828,000038:                                                                                                 #                 RETURN HERE FROM DISPLAY PROCEED OR GOOD RETURN FROM STALL.
018829,000039:                                                                                                 #                 RETURN HERE FROM DISPLAY ENTER OR RECYCLE.
018830,000040: 
018831,000041:                                                                                                 #  THIS ROUTINE REQUIRES TWO ERASABLES (EBUF2, +1) IN UNSWITCHED WHICH ARE UNSHARED BY INTERRUPTS AND
018832,000042:                                                                                                 #  OTHER EMEMORY PROGRAMS.
018833,000043: 
018834,000044:                                                                                                 #  A + L ARE PRESERVED THROUGH BANKCALL AND E/BKCALL.
018835,000045: 
018836,000046: 13,2036           52134        E/BKCALL          DXCH     BUF2                                  #  SAVE A,L AND GET DP RETURN.
018837,000047: 13,2037           53115                          DXCH     EBUF2                                 #  SAVE DP RETURN.
018838,000048: 13,2040           25114                          INCR     EBUF2                                 #  RETURN +1 BECAUSE DOUBLE CADR.
018839,000049: 13,2041           30006                          CA       BBANK                                 
018840,000050: 13,2042           75041                          MASK     LOW10                                 #  GET CURRENT EBANK.  (SBANK SOMEDAY)
018841,000051: 13,2043           27115                          ADS      EBUF2      +1                         #  FORM BBCON.  (WAS FBANK)
018842,000052: 13,2044           51114                          NDX      EBUF2                                 
018843,000053: 13,2045           27777                          CA       0          -1                         #  GET CADR OF ROUTINE.
018844,000054: 13,2046           04642                          TC       SWCALL                                #  GO TO ROUTINE, SETTING Q TO SWRETURN
018845,000055:                                                                                                 #  AND RESTORING A + L.
018846,000056: 13,2047           02053                          TC       +4                                    #  TX Q, V34, OR BAD STALL RETURN.
018847,000057: 13,2050           02052                          TC       +2                                    #  PROCEED OR GOOD STALL RETURN.
018848,000058: 13,2051           25114                          INCR     EBUF2                                 #  ENTER OR RECYCLE RETURN.
018849,000059: 13,2052           25114                          INCR     EBUF2                                 
018850,000060: 13,2053           53115        E/SWITCH          DXCH     EBUF2                                 
018851,000061: 13,2054           52006                          DTCB                                           
018852,000062: 

Page 425

018854,000064:                                                                                                 #  E/CALL FOR CALLING A FIXED MEMORY INTERPRETIVE SUBROUTINE FROM ERASABLE AND RETURNING TO ERASABLE.
018855,000065: 
018856,000066:                                                                                                 #  THE CALLING SEQUENCE IS...
018857,000067: 
018858,000068:                                                                                                 #                 RTB
018859,000069:                                                                                                 #                         E/CALL
018860,000070:                                                                                                 #                 CADR    ROUTINE         # THE INTERPRETIVE SUBROUTINE YOU WANT.
018861,000071:                                                                                                 #                                         # RETURNS HERE IN INTERPRETIVE.
018862,000072: 
018863,000073: 13,2055           22164        E/CALL            LXCH     LOC                                   #  ADRES -1 OF CADR.
018864,000074: 13,2056           50001                          INDEX    L                                     
018865,000075: 13,2057           30001                          CA       L                                     #  CADR IN A.
018866,000076: 13,2060           24001                          INCR     L                                     
018867,000077: 13,2061           24001                          INCR     L                                     #  RETURN ADRES IN L.
018868,000078: 13,2062           53115                          DXCH     EBUF2                                 #  STORE CADR AND RETURN.
018869,000079: 13,2063           06006                          TC       INTPRET                               
018870,000080: 13,2064           77624                          CALL                                           
018871,000081: 13,2065           01114                                   EBUF2                                 #  INDIRECTLY EXECUTE ROUTINE.  IT MUST
018872,000082: 13,2066           77776                          EXIT                                           #  LEAVE VIA RVQ OR EQUIVALENT.
018873,000083: 13,2067           23115                          LXCH     EBUF2      +1                         #  PICK UP RETURN.
018874,000084: 13,2070           16010                          TCF      INTPRET    +2                         #  SET LOC AND RETURN TO CALLER
018875,000085: 

Page 426

018877,000087:                                                                                                 #  E/JOBWAK       FOR WAKING UP ERASABLE MEMORY JOBS.
018878,000088: 
018879,000089:                                                                                                 #  THIS ROUTINE MUST BE CALLED IN INTERRUPT OR WITH INTERRUPTS INHIBITED.
018880,000090: 
018881,000091:                                                                                                 #  THE CALLING SEQUENCE IS:
018882,000092: 
018883,000093:                                                                                                 #                 INHINT
018884,000094:                                                                                                 #                   .
018885,000095:                                                                                                 #                   .
018886,000096:                                                                                                 #                 CA      WAKEADR         # ADDRESS OF SLEEPING JOB
018887,000097:                                                                                                 #                 TC      IBNKCALL
018888,000098:                                                                                                 #                 CADR    E/JOBWAK
018889,000099:                                                                                                 #                   .                     # RETURNS HERE
018890,000100:                                                                                                 #                   .
018891,000101:                                                                                                 #                   .
018892,000102:                                                                                                 #                 RELINT                  # IF YOU DID AND INHINT.
018893,000103: 
018894,000104: 12,2000                                          SETLOC   E/PROG                                
018895,000105: 12,2000                                          BANK                                           
018896,000106: 
018897,000107: 12,2000                                          COUNT*   $$/P07                                
018898,000108: 
018899,000109: 12,2000           05167        E/JOBWAK          TC       JOBWAKE                               #  ARRIVE WITH ADRES IN A.
018900,000110: 12,2001           44756                          CS       BIT11                                 
018901,000111: 12,2002           50064                          NDX      LOCCTR                                
018902,000112: 12,2003           26164                          ADS      LOC                                   #  KNOCK FIXED MEMORY BIT OUT OF ADRES
018903,000113: 12,2004           00072                          TC       RUPTREG3                              #  RETURN
018904,000114: 
018905,000115: 
018906,000116:                                                                                                 #  THESE PROGRAMS ARE PROVIDED TO ALLOW OVERLAY OF BANKS 30 THRU 33 OF THE 205 VERSIONS OF SYSTEM TESTS AND
018907,000117:                                                                                                 #  PRELAUNCH ALIGN.  THE INTENT IS TO ALLOW THE STG AND HYBRID LABS TO RUN ALL THE TESTS WITH COLOSSUS.
018908,000118: 
018909,000119: 
018910,000120: 33,2000                                          SETLOC   TESTLEAD                              
018911,000121: 33,2000                                          BANK                                           
018912,000122: 
018913,000123: 33,2000                                          COUNT*   $$/COMST                              
018914,000124: 33,2000  E5,1425                                 EBANK=   QPLACE                                
018915,000125: 
018916,000126: 33,2000           03212        COMPVER           TC       GCOMPVER                              #  MUST BE 33,2000.
018917,000127: 
018918,000128: 33,2001           02703        GTSCPSS1          TC       GTSCPSS                               #  MUST BE AT 33,2001

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