Source Code
|
|
These source-code files were reconstructed by Mike Stewart from dumps of the RETREAD 50 program stored in physical AGC core-rope modules (B1 and B2) belonging to the Computer History Museum, Mountain View, California. The reconstruction was aided by pre-existing source code for the AGC programs RETREAD 44 and AURORA 12. Read about the process here. Assembling this source code with yaYUL produces core ropes identical to those of the physical modules. Page-number references refer to corresponding sections of RETREAD 44 source code. No printouts of RETREAD 50 program listings are available. Names of variables and program constants of the form "UNKnnnn" appear in areas not yet correlated with other pre-existing source code, and which are therefore unknown. |
000025,000002: ## Copyright: Public domain.
000026,000003: ## Filename: VERB_AND_NOUN_INFORMATION.agc
000027,000004: ## Purpose: Part of the source code for AGC program Retread 50.
000028,000005: ## Assembler: yaYUL
000029,000006: ## Contact: Ron Burkey <info@sandroid.org>.
000030,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
000031,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
000032,000009: ## physical core-rope modules.
000033,000010:
|
|
Page 1 |
000035,000012:
|
|
Page 2 |
000037,000014: # VERB DEFINITIONS
000038,000015:
000039,000016:
000040,000017:
000041,000018: # REGULAR VERBS
000042,000019: # 01 DISPLAY OCTAL COMP 1 (R1)
000043,000020: # 02 DISPLAY OCTAL COMP 2 (R1)
000044,000021: # 03 DISPLAY OCTAL COMP 3 (R1)
000045,000022: # 04 DISPLAY OCTAL COMP 1,2 (R1,R2)
000046,000023: # 05 DISPLAY OCTAL COMP 1,2,3 (R1,R2,R3)
000047,000024: # 06 DECIMAL DISPLAY
000048,000025: # 07 DP DECIMAL DISPLAY (R1,R2)
000049,000026: # 10 SPARE
000050,000027: # 11 MONITOR OCT COMP 1 (R1)
000051,000028: # 12 MONITOR OCT COMP 2 (R1)
000052,000029: # 13 MONITOR OCT COMP 3 (R1)
000053,000030: # 14 MONITOR OCT COMP 1,2 (R1)
000054,000031: # 15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
000055,000032: # 16 MONITOR DECIMAL
000056,000033: # 17 MONITOR DP DECIMAL (R1,R2)
000057,000034: # 20 SPARE
000058,000035: # 21 LOAD COMP 1 (R1)
000059,000036: # 22 LOAD COMP 2 (R2)
000060,000037: # 23 LOAD COMP 3 (R3)
000061,000038: # 24 LOAD COMP 1,2 (R1,R2)
000062,000039: # 25 LOAD COMP 1,2,3 (R1,R2,R3)
000063,000040: # 26 SPARE
000064,000041: # 27 FIXED MEMORY DISPLAY
000065,000042: # 30 REQUEST EXECUTIVE
000066,000043: # 31 REQUEST WAITLIST
000067,000044: # 32 C(R2) INTO R3, C(R1) INTO R2
000068,000045: # 33 PROCEED WITHOUT DATA
000069,000046: # 34 TERMINATE CURRENT TEST OR LOAD REQUEST
000070,000047: # 35 TEST LIGHTS
000071,000048: # 36 FRESH START
000072,000049: # 37 CHANGE MAJOR MODE
000073,000050: # END OF REGULAR VERBS
000074,000051:
|
|
Page 3 |
000076,000053: # NORMAL NOUNS SCALE AND DECIMAL POINT
000077,000054: # 00 NOT IN USE
000078,000055: # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL) (.XXXXX)
000079,000056: # 02 SPECIFY MACHINE ADDRESS (WHOLE) (XXXXX.)
000080,000057: # 03 SPECIFY MACHINE ADDRESS (DEGREES) (XXX.XXDEGREES)
000081,000058: # 04 SPECIFY MACHINE ADDRESS (HOURS) (XXX.XXHOURS)
000082,000059: # 05 SPECIFY MACHINE ADDRESS (SECONDS) (XXX.XXSECONDS)
000083,000060: # 06 SPECIFY MACHINE ADDRESS (GYRO DEGREES) (XX.XXXDEGREES)
000084,000061: # 07 SPECIFY MACHINE ADDRESS (Y OPT DEGREES) (XX.XXXDEGREES)
000085,000062: # 10 CHANNEL TO BE SPECIFIED
000086,000063: # 11 SPARE
000087,000064: # 12 SPARE
000088,000065: # 13 SPARE
000089,000066: # 14 SPARE
000090,000067: # 15 INCREMENT MACHINE ADDRESS (OCTAL ONLY)
000091,000068: # 16 TIME SECONDS (XXX.XXSECONDS)
000092,000069: # 17 TIME HOURS (XXX.XXHOURS)
000093,000070: # 20 ICDU (XXX.XXDEGREES)
000094,000071: # 21 PIPAS (XXXXX.PULSES)
000095,000072: # 22 NEW ANGLES I (XXX.XXDEGREES)
000096,000073: # 23 DELTA ANGLES I (XXX.XXDEGREES)
000097,000074: # 24 DELTA TIME (SECONDS) (XXX.XXSECONDS)
000098,000075: # 25 CHECKLIST (XXXXX.)
000099,000076: # 26 PRIO/DELAY, ADRES, BBCON (OCTAL ONLY)
000100,000077: # 27 SELF TEST ON/OFF SWITCH (XXXXX.)
000101,000078: # 30 STAR NUMBERS (XXXXX.)
000102,000079: # 31 FAILREG (OCTAL ONLY)
000103,000080: # 32 DECISION TIME (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS = WEEKS))
000104,000081: # 33 EPHEMERIS TIME (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS = WEEKS))
000105,000082: # 34 MEASURED QUANTITY (MIDCOURSE) (XXXX.XKILOMETERS)
000106,000083: # 35 ROLL, PITCH, YAW (XXX.XXDEGREES)
000107,000084: # 36 LANDMARK DATA 1 (OCTAL ONLY)
000108,000085: # 37 LANDMARK DATA 2 (OCTAL ONLY)
000109,000086: # 40 SPARE
000110,000087: # 41 SPARE
000111,000088: # 42 SPARE
000112,000089: # 43 SPARE
000113,000090: # 44 SPARE
000114,000091: # 45 SPARE
000115,000092: # 46 SPARE
000116,000093: # 47 SPARE
000117,000094: # 50 SPARE
000118,000095: # 51 SPARE
000119,000096: # 52 GYRO BIAS DRIFT (.BBXXXXXMILLIRAD/SEC)
000120,000097: # 53 GYRO INPUT AXIS ACCELERATION DRIFT (.BBXXXXX(MILLIRAD/SEC)/(CM/SEC SEC))
000121,000098: # 54 GYRO SPIN AXIS ACCELERATION DRIFT (.BBXXXXX(MILLIRAD/SEC)/(CM/SEC SEC))
000122,000099: # END OF NORMAL NOUNS
000123,000100:
|
|
Page 4 |
000125,000102: # MIXED NOUNS SCALE AND DECIMAL POINT
000126,000103: # 55 OCDU (XXX.XXDEG, XX.XXXDEG)
000127,000104: # 56 UNCALLED MARK DATA (OCDU & TIME(SECONDS)) (XXX.XXDEG, XX.XXXDEG, XXX.XXSEC)
000128,000105: # 57 NEW ANGLES OCDU (XXX.XXDEG, XX.XXXDEG)
000129,000106: # 60 IMU MODE STATUS (IN3, WASKSET, OLDERR) (OCTAL ONLY)
000130,000107: # 61 TARGET AZIMUTH AND ELEVATION (XXX.XXDEG, XX.XXXDEG)
000131,000108: # 62 ICDUZ AND TIME (XXX.XXDEG, XXX.XXSEC)
000132,000109: # 63 OCDUX AND TIME (XXX.XXDEG, XXX.XXSEC)
000133,000110: # 64 OCDUY AND TIME (XX.XXXDEG, XXX.XXSEC)
000134,000111: # 65 SAMPLED TIME (HOURS AND SECONDS) (XXX.XXHOURS, XXX.XXSEC)
000135,000112: # (FETCHED IN INTERRUPT)
000136,000113: # 66 SYSTEM TEST RESULTS (XXXXX., .XXXXX, XXXXX.)
000137,000114: # 67 DELTA GYRO ANGLES (XX.XXXDEG FOR EACH)
000138,000115: # 70 PIPA BIAS (X.XXXXCM/SEC SEC FOR EACH)
000139,000116: # 71 PIPA SCALE FACTOR ERROR (XXXXX.PARTS/MILLION FOR EACH)
000140,000117: # 72 DELTA POSITION (XXXX.XKILOMETERS FOR EACH)
000141,000118: # 73 DELTA VELOCITY (XXXX.XMETERS/SEC FOR EACH)
000142,000119: # 74 MEASUREMENT DATA (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS=WEEKS), XXXX.XKILOMETERS, XXXXX.
000143,000120: # 75 MEASUREMENT DEVIATIONS (MIDCOURSE) (XXXX.XKILOMETERS, XXXX.XMETERS/SEC, XXXX.XKILOMETERS)
000144,000121: # 76 POSITION VECTOR (XXXX.XKILOMETERS FOR EACH)
000145,000122: # 77 VELOCITY VECTOR (XXXX.XMETERS/SEC FOR EACH)
End of include-file VERB_AND_NOUN_INFORMATION.agc. Parent file is MAIN.agc