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