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. |
048052,000002: # Copyright: Public domain.
048053,000003: # Filename: INTER-BANK_COMMUNICATION.agc
048054,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
048055,000005: # build 072. This is for the Command Module's (CM)
048056,000006: # Apollo Guidance Computer (AGC), we believe for
048057,000007: # Apollo 15-17.
048058,000008: # Assembler: yaYUL
048059,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
048060,000010: # Website: www.ibiblio.org/apollo/index.html
048061,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
048062,000012: # Mod history: 2009-08-22 JL Adapted from corresponding Comanche 055 file.
048063,000013: # 2009-08-29 JL Merged changes from Sergio Navarro.
048064,000014: # 2010-02-20 RSB Un-##'d this header.
048065,000015:
|
|
Page 1104 |
048067,000017:
048068,000018: # THE FOLLOWING ROUTINE CAN BE USED TO CALL A SUBROUTINE IN ANOTHER BANK. IN THE BANKCALL VERSION, THE
048069,000019: # CADR OF THE SUBROUTINE IMMEDIATELY FOLLOWS THE TC BANKCALL INSTRUCTION, WITH C(A) AND C(L) PRESERVED.
048070,000020:
048071,000021: 4000 SETLOC FFTAG1
048072,000022: 4000 BANK
048073,000023:
048074,000024: 4636 COUNT* $$/BANK
048075,000025: 4636 52134 BANKCALL DXCH BUF2 # SAVE INCOMING A,L.
048076,000026: 4637 50002 INDEX Q # PICK UP CADR.
048077,000027: 4640 30000 CA 0
048078,000028: 4641 24002 -1 INCR Q # SO WE RETURN TO THE LOC. AFTER THE CADR.
048079,000029:
048080,000030: # SWCALL IS IDENTICAL TO BANKCALL, EXCEPT THAT THE CADR ARRIVES IN A.
048081,000031:
048082,000032: 4642 54001 SWCALL TS L
048083,000033: 4643 22004 LXCH FBANK # SWITCH BANKS, SAVING RETURN.
048084,000034: 4644 75041 MASK LOW10 # GET SUB-ADDRESS OF CADR.
048085,000035: 4645 56002 XCH Q # A,L NOW CONTAINS DP RETURN.
048086,000036: 4646 52134 DXCH BUF2 # RESTORING INPUTS IF THIS IS A BANKCALL.
048087,000037: 4647 50002 INDEX Q
048088,000038: 4650 02000 TC 10000 # SETTING Q TO SWRETURN.
048089,000039:
048090,000040: 4651 56134 SWRETURN XCH BUF2 +1 # COMES HERE TO RETURN TO CALLER. C(A,L)
048091,000041: 4652 56004 XCH FBANK # ARE PRESERVED FOR RETURN.
048092,000042: 4653 56134 XCH BUF2 +1
048093,000043: 4654 00133 TC BUF2
048094,000044:
048095,000045: # THE FOLLOWING ROUTINE CAN BE USED AS A UNILATERAL JUMP WITH C(A,L) PRESERVED AND THE CADR IMMEDIATELY
048096,000046: # FOLLOWING THE TC POSTJUMP INSTRUCTION.
048097,000047:
048098,000048: 4655 56002 POSTJUMP XCH Q # SAVE INCOMING C(A).
048099,000049: 4656 50000 INDEX A # GET CADR.
048100,000050: 4657 30000 CA 0
048101,000051:
048102,000052: # BANKJUMP IS THE SAME AS POSTJUMP, EXCEPT THAT THE CADR ARRIVES IN A.
048103,000053:
048104,000054: 4660 54004 BANKJUMP TS FBANK
048105,000055: 4661 75041 MASK LOW10
048106,000056: 4662 56002 XCH Q # RESTORING INPUT C(A) IF THIS WAS A
048107,000057: 4663 50002 Q+10000 INDEX Q # POSTJUMP.
048108,000058: 4664 12000 PRIO12 TCF 10000 # PRIO12 = TCF 10000 = 12000
048109,000059:
|
|
Page 1105 |
048111,000061:
048112,000062: # THE FOLLOWING ROUTINE GETS THE RETURN CADR SAVED BY SWCALL OR BANKCALL AND LEAVES IT IN A.
048113,000063:
048114,000064: 4665 35041 MAKECADR CAF LOW10
048115,000065: 4666 70133 MASK BUF2
048116,000066: 4667 60134 AD BUF2 +1
048117,000067: 4670 00002 TC Q
048118,000068:
048119,000069: 4671 54135 SUPDACAL TS MPTEMP
048120,000070: 4672 56004 XCH FBANK # SET FBANK FOR DATA.
048121,000071: 4673 00006 EXTEND
048122,000072: 4674 04007 ROR SUPERBNK # SAVE FBANK IN BITS 15-11, AND
048123,000073: 4675 56135 XCH MPTEMP # SUPERBANK IN BITS 7-5.
048124,000074: 4676 75041 MASK LOW10
048125,000075: 4677 56001 XCH L # SAVE REL. ADR. IN BANK, FETCH SUPERBITS
048126,000076: 4700 00004 INHINT # BECAUSE RUPT DOES NOT SAVE SUPERBANK.
048127,000077: 4701 00006 EXTEND
048128,000078: 4702 01007 WRITE SUPERBNK # SET SUPERBANK FOR DATA.
048129,000079: 4703 50001 INDEX L
048130,000080: 4704 32000 CA 10000 # PINBALL (FIX MEM DISP) PREVENTS DCA HERE
048131,000081: 4705 56135 XCH MPTEMP # SAVE 1ST WD, FETCH OLD FBANK AND SBANK.
048132,000082: 4706 00006 EXTEND
048133,000083: 4707 01007 WRITE SUPERBNK # RESTORE SUPERBANK.
048134,000084: 4710 00003 RELINT
048135,000085: 4711 54004 TS FBANK # RESTORE FBANK.
048136,000086: 4712 30135 CA MPTEMP # RECOVER FIRST WORD OF DATA.
048137,000087: 4713 00002 RETURN # 24 WDS. DATACALL 516 MU, SUPDACAL 432 MU
048138,000088:
|
|
Page 1106 |
048140,000090:
048141,000091: # THE FOLLOWING ROUTINES ARE IDENTICAL TO BANKCALL AND SWCALL EXCEPT THAT THEY ARE USED IN INTERRUPT.
048142,000092:
048143,000093: 4714 52073 IBNKCALL DXCH RUPTREG3 # USES RUPTREG3,4 FOR DP RETURN ADDRESS.
048144,000094: 4715 50002 INDEX Q
|
|
Was CAF --- RSB 2009 (JL 2009-08-22) Artemis072 has CAF also. |
048147,000097: 4716 30000 CA 0
048148,000098: 4717 24002 INCR Q
048149,000099:
048150,000100: 4720 54001 ISWCALL TS L
048151,000101: 4721 22004 LXCH FBANK
048152,000102: 4722 75041 MASK LOW10
048153,000103: 4723 56002 XCH Q
048154,000104: 4724 52073 DXCH RUPTREG3
048155,000105: 4725 50002 INDEX Q
048156,000106: 4726 02000 TC 10000
048157,000107:
048158,000108: 4727 56073 ISWRETRN XCH RUPTREG4
048159,000109: 4730 56004 XCH FBANK
048160,000110: 4731 56073 XCH RUPTREG4
048161,000111: 4732 00072 TC RUPTREG3
048162,000112:
048163,000113: # 2. USPRCADR ACCESSES INTERPRETIVE CODING IN OTHER THAN THE USER'S FBANK. THE CALLING SEQUENCE IS AS FOLLOWS:
048164,000114:
048165,000115: # L TC USPRCADR
048166,000116: # L+1 CADR INTPRETX # INTPRETX IS THE INTERPRETIVE CODING
048167,000117: # # RETURN IS TO L+2
048168,000118:
048169,000119: 4733 54164 USPRCADR TS LOC # SAVE A
048170,000120: 4734 34761 CA BIT8
048171,000121: 4735 54023 TS EDOP # EXIT INSTRUCTION TO EDOP
048172,000122: 4736 30006 CA BBANK
048173,000123: 4737 54165 TS BANKSET # USER'S BBANK TO BANKSET
048174,000124: 4740 50002 INDEX Q
048175,000125: 4741 30000 CA 0
048176,000126: 4742 54004 TS FBANK # INTERPRETIVE BANK TO FBANK
048177,000127: 4743 75041 MASK LOW10 # YIELDS INTERPRETIVE RELATIVE ADDRESS
048178,000128: 4744 56002 XCH Q # INTERPRETIVE ADDRESS TO Q, FETCHING L+1
048179,000129: 4745 56164 XCH LOC # L+1 TO LOC, RETRIEVING ORIGINAL A
048180,000130: 4746 14663 TCF Q+10000
048181,000131:
|
|
Page 1107 |
048183,000133:
048184,000134: # THERE ARE FOUR POSSIBLE SETTINGS FOR CHANNEL 07. (CHANNEL 07 CONTAINS SUPERBANK SETTING.)
048185,000135:
048186,000136: # PSEUDO-FIXED OCTAL PSEUDO
048187,000137: # SUPERBANK SETTING S-REG. VALUE BANK NUMBERS ADDRESSES
048188,000138: # --------- ------- ------------ ------------ ---------
048189,000139: # SUPERBANK 3 OXX 2000 - 3777 30 - 37 70000 - 107777 (WHERE XX CAN BE ANYTHING AND
048190,000140: # WILL USUALLY BE SEEN AS 11)
048191,000141: # SUPERBANK 4 100 2000 - 3777 40 - 47 110000 - 127777 (AS FAR AS IT CAN BE SEEN,
048192,000142: # ONLY BANKS 40-43 WILL EVER BE
048193,000143: # AND ARE PRESENTLY AVAILABLE)
048194,000144: # SUPERBANK 5 101 2000 - 3777 50 - 57 130000 - 147777 (PRESENTLY NOT AVAILABLE TO
048195,000145: # THE USER)
048196,000146: # SUPERBANK 6 110 2000 - 3777 60 - 67 150000 - 167777 (PRESENTLY NOT AVAILABLE TO
048197,000147: # THE USER)
048198,000148:
End of include-file INTER-BANK_COMMUNICATION.agc. Parent file is MAIN.agc