Source Code
|
These source-code files are part of a reconstructed copy of Sunrise 69, the
final release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope
memory modules, part numbers 1003133-18, 1003133-19, 1003133-20, and 1003733-071.
Corresponding portions of code have been copied from Solarium 55 where applicable.
Extensive use was also made of the AGC Information Series documents, which were specifically
written about the Sunrise software.
Since only binary dumps (rather than listings) of Sunrise 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.
|
000018,000002: ## Copyright: Public domain.
000019,000003: ## Filename: VERB_AND_NOUN_INFORMATION.agc
000020,000004: ## Purpose: A section of Sunrise 69.
000021,000005: ## It is part of the reconstructed source code for the final
000022,000006: ## release of the Block I Command Module system test software. No
000023,000007: ## original listings of this program are available; instead, this
000024,000008: ## file was created via disassembly of dumps of Sunrise core rope
000025,000009: ## memory modules and comparison with the later Block I program
000026,000010: ## Solarium 55.
000027,000011: ## Assembler: yaYUL --block1
000028,000012: ## Contact: Ron Burkey <info@sandroid.org>.
000029,000013: ## Website: www.ibiblio.org/apollo/index.html
000030,000014: ## Mod history: 2023-06-19 MAS Created from Sunrise 45.
000031,000015:
000032,000016: # VERB DEFINITIONS
000033,000017:
000034,000018:
000035,000019:
000036,000020: # REGULAR VERBS
000037,000021: # 01 DISPLAY OCTAL COMP 1 (R1)
000038,000022: # 02 DISPLAY OCTAL COMP 2 (R1)
000039,000023: # 03 DISPLAY OCTAL COMP 3 (R1)
000040,000024: # 04 DISPLAY OCTAL COMP 1,2 (R1,R2)
000041,000025: # 05 DISPLAY OCTAL COMP 1,2,3 (R1,R2,R3)
000042,000026: # 06 DECIMAL DISPLAY
000043,000027: # 07 DP DECIMAL DISPLAY (R1,R2)
000044,000028: # 10 REQUEST WAITLIST
000045,000029: # 11 MONITOR OCT COMP 1 (R1)
000046,000030: # 12 MONITOR OCT COMP 2 (R1)
000047,000031: # 13 MONITOR OCT COMP 3 (R1)
000048,000032: # 14 MONITOR OCT COMP 1,2 (R1)
000049,000033: # 15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
000050,000034: # 16 MONITOR DECIMAL
000051,000035: # 17 MONITOR DP DECIMAL (R1,R2)
000052,000036: # 20 REQUEST EXECUTIVE
000053,000037: # 21 LOAD COMP 1 (R1)
000054,000038: # 22 LOAD COMP 2 (R2)
000055,000039: # 23 LOAD COMP 3 (R3)
000056,000040: # 24 LOAD COMP 1,2 (R1,R2)
000057,000041: # 25 LOAD COMP 1,2,3 (R1,R2,R3)
000058,000042: # 26 SPARE
000059,000043: # 27 SPARE
000060,000044: # 30 SPARE
000061,000045: # 31 BANK DISPLAY
000062,000046: # 32 C(R2) INTO R3, C(R1) INTO R2
000063,000047: # 33 PROCEED WITHOUT DATA
000064,000048: # 34 TERMINATE CURRENT TEST OR LOAD REQUEST
000065,000049: # 35 RELEASE DISPLAY SYSTEM
000066,000050: # 36 FRESH START
000067,000051: # 37 CHANGE MAJOR MODE
000068,000052: # END OF REGULAR VERBS
000069,000053:
000070,000054:
000071,000055:
000072,000056: # EXTENDED VERBS
000073,000057: # 40 ZERO (USED WITH NOUN ICDU OR OCDU)
000074,000058: # 41 COARSE ALIGN (USED WITH NOUN ICDU OR OCDU)
000075,000059: # 42 FINE ALIGN IMU
000076,000060: # 43 LOCK IMU
000077,000061: # 44 SET IMU TO ATTITUDE CONTROL
000078,000062: # 45 SET IMU TO RE-ENTRY CONTROL
000079,000063: # 46 RETURN IMU TO COARSE ALIGN
000080,000064: # 47 OPTICAL TRACKER ON (NOT IN USE YET)
000081,000065: # 50 PLEASE PERFORM
000082,000066: # 51 PLEASE MARK
000083,000067: # 52 MARK ACCEPT
000084,000068: # 53 FREE (USED WITH NOUN ICDU OR OCDU)
000085,000069: # 54 PULSE TORQUE GYROS
000086,000070: # 55 ILLEGAL VERB
000087,000071: # 56 ILLEGAL VERB
000088,000072: # 57 ILLEGAL VERB
000089,000073: # 60 ILLEGAL VERB
000090,000074: # 61 ILLEGAL VERB
000091,000075: # 62 ILLEGAL VERB
000092,000076: # 63 ILLEGAL VERB
000093,000077: # 64 ILLEGAL VERB
000094,000078: # 65 ILLEGAL VERB
000095,000079: # 66 ILLEGAL VERB
000096,000080: # 67 ILLEGAL VERB
000097,000081: # 70 ILLEGAL VERB
000098,000082: # 71 PERFORM GYRO DRIFT TEST
000099,000083: # 72 PERFORM PIP SF TEST
000100,000084: # 73 ILLEGAL VERB
000101,000085: # 74 ILLEGAL VERB
000102,000086: # 75 ILLEGAL VERB
000103,000087: # 76 ILLEGAL VERB
000104,000088: # 77 ILLEGAL VERB
000105,000089:
000106,000090:
000107,000091: # NORMAL NOUNS SCALE AND DECIMAL POINT
000108,000092: # 00 NOT IN USE
000109,000093: # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL) (.XXXXX)
000110,000094: # 02 SPECIFY MACHINE ADDRESS (WHOLE) (XXXXX.)
000111,000095: # 03 SPECIFY MACHINE ADDRESS (DEGREES) (XXX.XXDEGREES)
000112,000096: # 04 SPECIFY MACHINE ADDRESS (HOURS) (XXX.XXHOURS)
000113,000097: # 05 SPECIFY MACHINE ADDRESS (SECONDS) (XXX.XXSECONDS)
000114,000098: # 06 SPECIFY MACHINE ADDRESS (GYRO DEGREES) (XX.XXXDEGREES)
000115,000099: # 07 SPECIFY MACHINE ADDRESS (Y OPT DEGREES) (XXX.XXDEG OR XX.XXXDEG)
000116,000100: # 10 SPARE
000117,000101: # 11 SPARE
000118,000102: # 12 SPARE
000119,000103: # 13 SPARE
000120,000104: # 14 SPARE
000121,000105: # 15 INCREMENT MACHINE ADDRESS (OCTAL ONLY)
000122,000106: # 16 TIME SECONDS (XXX.XXSECONDS)
000123,000107: # 17 TIME HOURS (XXX.XXHOURS)
000124,000108: # 20 ICDU (XXX.XXDEGREES)
000125,000109: # 21 PIPAS (XXXXX.PULSES)
000126,000110: # 22 NEW ANGLES I (XXX.XXDEGREES)
000127,000111: # 23 DELTA ANGLES I (XXX.XXDEGREES)
000128,000112: # 24 DELTA TIME (SECONDS) (XXX.XXSECONDS)
000129,000113: # 25 CHECKLIST (XXXXX.)
000130,000114: # 26 PRIO/DELAY (XXXXX.)
000131,000115: # 27 SELF TEST ON/OFF SWITCH (XXXXX.)
000132,000116: # 30 STAR NUMBERS (XXXXX.)
000133,000117: # 31 FAILREG (OCTAL ONLY)
000134,000118: # 32 SPARE
000135,000119: # 33 SPARE
000136,000120: # 34 SPARE
000137,000121: # 35 SPARE
000138,000122: # 36 SPARE
000139,000123: # 37 SPARE
000140,000124: # 40 SPARE
000141,000125: # 41 SPARE
000142,000126: # 42 SPARE
000143,000127: # 43 SPARE
000144,000128: # 44 SPARE
000145,000129: # 45 SPARE
000146,000130: # 46 SPARE
000147,000131: # 47 SPARE
000148,000132: # 50 SPARE
000149,000133: # 51 SPARE
000150,000134: # 52 SPARE
000151,000135: # 53 SPARE
000152,000136: # 54 SPARE
000153,000137: # END OF NORMAL NOUNS
000154,000138:
000155,000139:
000156,000140: # MIXED NOUNS SCALE AND DECIMAL POINT
000157,000141: # 55 OCDU (XXX.XXDEG, XXX.XXDEG OR XX.XXXDEG)
000158,000142: # 56 UNCALLED MARK DATA (OCDU & TIME(SECONDS)) (XXX.XXDEG, XXX.XXDEG OR XX.XXXDEG, XXX.XXSEC)
000159,000143: # 57 NEW ANGLES OCDU (XXX.XXDEG, XXX.XXDEG OR XX.XXXDEG)
000160,000144: # 60 ICDUX AND TIME (XXX.XXDEG, XXX.XXSEC)
000161,000145: # 61 ICDUY AND TIME (XXX.XXDEG, XXX.XXSEC)
000162,000146: # 62 ICDUZ AND TIME (XXX.XXDEG, XXX.XXSEC)
000163,000147: # 63 OCDUX AND TIME (XXX.XXDEG, XXX.XXSEC)
000164,000148: # 64 OCDUY AND TIME (XXX.XXDEG OR XX.XXXDEG, XXX.XXSEC)
000165,000149: # 65 SAMPLED TIME (HOURS AND SECONDS) (XXX.XXHOURS, XXX.XXSEC)
000166,000150: # (FETCHED IN INTERRUPT)
000167,000151: # 66 SYSTEM TEST RESULTS (XXXXX., .XXXXX, XXXXX.)
000168,000152: # 67 DELTA GYRO ANGLES (XX.XXXDEG FOR EACH)
000169,000153: # 70 SPARE
000170,000154: # 71 SPARE
000171,000155: # 72 SPARE
000172,000156: # 73 SPARE
000173,000157: # 74 SPARE
000174,000158: # 75 SPARE
000175,000159: # 76 SPARE
000176,000160: # 77 SPARE
End of include-file VERB_AND_NOUN_INFORMATION.agc. Parent file is MAIN.agc