Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
033591,000002: ## Copyright: Public domain.
033592,000003: ## Filename: LMP_COMMAND_ROUTINES.agc
033593,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
033594,000005: ## It is part of an early development version of the software
033595,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
033596,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
033597,000008: ## upon which Don Eyles's offline development program Shepatin
033598,000009: ## was based; the listing herein transcribed was actually for
033599,000010: ## the equivalent revision 0 of Shepatin.
033600,000011: ## This file is intended to be a faithful transcription, except
033601,000012: ## that the code format has been changed to conform to the
033602,000013: ## requirements of the yaYUL assembler rather than the
033603,000014: ## original YUL assembler.
033604,000015: ## Reference: pp. 746-747
033605,000016: ## Assembler: yaYUL
033606,000017: ## Contact: Ron Burkey <info@sandroid.org>.
033607,000018: ## Website: www.ibiblio.org/apollo/index.html
033608,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
033609,000020: ## 2017-06-08 HG Transcribed
033610,000021: ## 2017-06-23 RSB Proofed comment text with
033611,000022: ## octopus/ProoferComments.
033612,000023:
|
|
Page 746 |
033614,000025: # THE FOLLOWING SUBROUTINES ALLOW MISSION PROGRAMS TO REQUEST LMP (LEM MISSION PROGRAMMER) OUTPUTS.
033615,000026:
033616,000027: # THE PROPER DECIMAL CODE IS ENTERED INTO A TABLE AND FROM THENCE TO CHANNEL 10 VIA T4RUPT AND ARE INCLUDED IN
033617,000028: # THE DOWNLINK.
033618,000029:
033619,000030: # FOUR ROUTINES ARE PROVIDED:
033620,000031:
033621,000032: # TC 1LMP CALLED UNDER EXEC OR RUPT. DELIVERS CODE
033622,000033: # DEC LMPCODE AND RETURNS IMMEDIATELY.
033623,000034:
033624,000035: # TC 2LMP SAME AS 1LMP BUT TWO CODES ARE
033625,000036: # DEC LMPCODE1 SENT.
033626,000037: # DEC LMPCODE2
033627,000038:
033628,000039: # TC 1LMP+DT ASSUMES CALLED AS PART OF WAITLIST TASK.
033629,000040: # DEC LMPCODE DELIVERS LMP CODE, DOES A VARDELAY FOR
033630,000041: # DEC DT DT, AND THEN RETURNS UNDER WL CONTROL.
033631,000042:
033632,000043: # TC 2LMP+DT SAME AS 1LMP+DT BUT TWO CODES SENT.
033633,000044: # DEC LMPCODE1
033634,000045: # DEC LMPCODE2
033635,000046: # DEC DT
033636,000047:
033637,000048: # WARNING ***** PROGRAMS UNDER EXEC WHICH CALL 1LMP + 2LMP MUST FIRST
033638,000049:
033639,000050: # INHIBIT INTERRUPT....RETURNS STILL INHIBITED.
033640,000051:
033641,000052:
033642,000053:
033643,000054: 5065 BLOCK 02
033644,000055: 5065 50002 2LMP INDEX Q # PICK UP 1ST CODE
033645,000056: 5066 30000 CA 0
033646,000057: 5067 24002 INCR Q
033647,000058: 5070 22002 LXCH Q # SAVE 2ND CODE ADDRESS IN L
033648,000059:
033649,000060: 5071 LMPGROUP EQUALS 2
033650,000061: 5071 1115 LMPTBASE EQUALS TBASE2
033651,000062:
033652,000063: 5071 1102 LMPPHASE EQUALS PHASE2
033653,000064:
033654,000065: 5071 05076 TC STORCOM -1 # TO STORE IN BUFFER AND UPDATE POINTER
033655,000066:
033656,000067: 5072 22002 LXCH Q # RETREIVE 2ND CODE ADDRESS FROM L.
033657,000068:
033658,000069: 5073 50002 1LMP INDEX Q
033659,000070: 5074 30000 CA 0 # GET LMP CODE
033660,000071: 5075 24002 INCR Q # SET RETURN.
033661,000072: 5076 67737 AD BIT15 # SET SIGN TO SHOW NEW COMMAND IN BUFFER
033662,000073:
033663,000074: 5077 51142 STORCOM INDEX LMPIN
033664,000075: 5100 55132 TS LMPCMD # INSERT IN NEXT SLOT IN BUFFER
033665,000076:
033666,000077: 5101 11142 UPLMPIN CCS LMPIN # UPDATE POINTER
033667,000078:
|
|
Page 747 |
033669,000080: 5102 15104 TCF +2
033670,000081: 5103 37757 CAF SEVEN
033671,000082: 5104 55142 TS LMPIN
033672,000083: 5105 00002 TC Q
033673,000084:
033674,000085: 5106 50002 2LMP+DT INDEX Q
033675,000086: 5107 30000 CA 0 # PICK UP 1ST CODE
033676,000087: 5110 24002 INCR Q
033677,000088: 5111 22002 LXCH Q # 2ND CODE ADDRESS IN L.
033678,000089:
033679,000090: 5112 05076 TC STORCOM -1 # STORE IN BUFFER AND UPDATE POINTER
033680,000091:
033681,000092: 5113 15115 TCF +2
033682,000093:
033683,000094: 5114 00006 1LMP+DT EXTEND # SAVE RETURN FOR RESTARTS
033684,000095: 5115 23145 QXCH LMPRET # IS LXCH IF FROM ABOVE
033685,000096: 5116 30006 CA BBANK
033686,000097: 5117 55146 TS LMPBBANK
033687,000098:
033688,000099: 5120 00006 EXTEND
033689,000100: 5121 51145 INDEX LMPRET
033690,000101: 5122 30001 DCA 0 # PICK UP CODE AND DT
033691,000102: 5123 05076 TC STORCOM -1 # GO TO STORE CODE AND UPDATE POINTER
033692,000103:
033693,000104: 5124 23147 LXCH SAVDT # SAVE FOR RESTART
033694,000105: 5125 04147 TC PHASCHNG # RESTART PROTECT DELAY
033695,000106: 5126 47012 OCT 47012
033696,000107: 5127 76630 -GENADR SAVDT
033697,000108: 5130 1115 EBANK= TBASE2
033698,000109: 5130 05136 04002 2CADR LMPRST
033699,000110:
033700,000111: 5132 31147 CA SAVDT # WAIT DT SECONDS
033701,000112: 5133 05722 TC VARDELAY
033702,000113:
033703,000114: 5134 51145 LMPEXIT INDEX LMPRET
033704,000115: 5135 00002 TC 2
033705,000116:
033706,000117: 5136 31146 LMPRST CA LMPBBANK # LMP+DT RESTARTS COME HERE
033707,000118: 5137 54006 TS BBANK # AFTER DELAY.
033708,000119: 5140 05134 TC LMPEXIT
End of include-file LMP_COMMAND_ROUTINES.agc. Parent file is MAIN.agc