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. New sections of the software (appearing in EXTENDED_VERBS_FOR_MODING.agc) have been disassembled; labels and comments have been either taken from similar code in later programs or, in cases where this was not possible, added by VirtualAGC for clarity. |
000026,000002: ## Copyright: Public domain.
000027,000003: ## Filename: VERB_AND_NOUN_INFORMATION.agc
000028,000004: ## Purpose: Part of the source code for AGC program Retread 50.
000029,000005: ## Assembler: yaYUL
000030,000006: ## Contact: Ron Burkey <info@sandroid.org>.
000031,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
000032,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
000033,000009: ## physical core-rope modules.
000034,000010: ## 2019-10-01 MAS Added Retread 50's new extended verbs.
000035,000011:
|
|
Page 1 |
000037,000013:
|
|
Page 2 |
000039,000015: # VERB DEFINITIONS
000040,000016:
000041,000017:
000042,000018:
000043,000019: # REGULAR VERBS
000044,000020: # 01 DISPLAY OCTAL COMP 1 (R1)
000045,000021: # 02 DISPLAY OCTAL COMP 2 (R1)
000046,000022: # 03 DISPLAY OCTAL COMP 3 (R1)
000047,000023: # 04 DISPLAY OCTAL COMP 1,2 (R1,R2)
000048,000024: # 05 DISPLAY OCTAL COMP 1,2,3 (R1,R2,R3)
000049,000025: # 06 DECIMAL DISPLAY
000050,000026: # 07 DP DECIMAL DISPLAY (R1,R2)
000051,000027: # 10 SPARE
000052,000028: # 11 MONITOR OCT COMP 1 (R1)
000053,000029: # 12 MONITOR OCT COMP 2 (R1)
000054,000030: # 13 MONITOR OCT COMP 3 (R1)
000055,000031: # 14 MONITOR OCT COMP 1,2 (R1)
000056,000032: # 15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
000057,000033: # 16 MONITOR DECIMAL
000058,000034: # 17 MONITOR DP DECIMAL (R1,R2)
000059,000035: # 20 SPARE
000060,000036: # 21 LOAD COMP 1 (R1)
000061,000037: # 22 LOAD COMP 2 (R2)
000062,000038: # 23 LOAD COMP 3 (R3)
000063,000039: # 24 LOAD COMP 1,2 (R1,R2)
000064,000040: # 25 LOAD COMP 1,2,3 (R1,R2,R3)
000065,000041: # 26 SPARE
000066,000042: # 27 FIXED MEMORY DISPLAY
000067,000043: # 30 REQUEST EXECUTIVE
000068,000044: # 31 REQUEST WAITLIST
000069,000045: # 32 C(R2) INTO R3, C(R1) INTO R2
000070,000046: # 33 PROCEED WITHOUT DATA
000071,000047: # 34 TERMINATE CURRENT TEST OR LOAD REQUEST
000072,000048: # 35 TEST LIGHTS
000073,000049: # 36 FRESH START
000074,000050: # 37 CHANGE MAJOR MODE
000075,000051: # END OF REGULAR VERBS
000076,000052:
|
|
!! START CHANGE FOR RETREAD 50 !! |
000078,000054:
000079,000055: # EXTENDED VERBS
000080,000056: # 40 ZERO ISS CDU
000081,000057: # 41 COARSE ALIGN IMU
000082,000058: # 42 FINE ALIGN IMU
000083,000059: # 43 PULSE TORQUE GYROS
000084,000060: # 44 ISS TURN-ON
000085,000061:
|
|
!! END CHANGE FOR RETREAD 50 !! |
000087,000063:
|
|
Page 3 |
000089,000065: # NORMAL NOUNS SCALE AND DECIMAL POINT
000090,000066: # 00 NOT IN USE
000091,000067: # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL) (.XXXXX)
000092,000068: # 02 SPECIFY MACHINE ADDRESS (WHOLE) (XXXXX.)
000093,000069: # 03 SPECIFY MACHINE ADDRESS (DEGREES) (XXX.XXDEGREES)
000094,000070: # 04 SPECIFY MACHINE ADDRESS (HOURS) (XXX.XXHOURS)
000095,000071: # 05 SPECIFY MACHINE ADDRESS (SECONDS) (XXX.XXSECONDS)
000096,000072: # 06 SPECIFY MACHINE ADDRESS (GYRO DEGREES) (XX.XXXDEGREES)
000097,000073: # 07 SPECIFY MACHINE ADDRESS (Y OPT DEGREES) (XX.XXXDEGREES)
000098,000074: # 10 CHANNEL TO BE SPECIFIED
000099,000075: # 11 SPARE
000100,000076: # 12 SPARE
000101,000077: # 13 SPARE
000102,000078: # 14 SPARE
000103,000079: # 15 INCREMENT MACHINE ADDRESS (OCTAL ONLY)
000104,000080: # 16 TIME SECONDS (XXX.XXSECONDS)
000105,000081: # 17 TIME HOURS (XXX.XXHOURS)
000106,000082: # 20 ICDU (XXX.XXDEGREES)
000107,000083: # 21 PIPAS (XXXXX.PULSES)
000108,000084: # 22 NEW ANGLES I (XXX.XXDEGREES)
000109,000085: # 23 DELTA ANGLES I (XXX.XXDEGREES)
000110,000086: # 24 DELTA TIME (SECONDS) (XXX.XXSECONDS)
000111,000087: # 25 CHECKLIST (XXXXX.)
000112,000088: # 26 PRIO/DELAY, ADRES, BBCON (OCTAL ONLY)
000113,000089: # 27 SELF TEST ON/OFF SWITCH (XXXXX.)
000114,000090: # 30 STAR NUMBERS (XXXXX.)
000115,000091: # 31 FAILREG (OCTAL ONLY)
000116,000092: # 32 DECISION TIME (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS = WEEKS))
000117,000093: # 33 EPHEMERIS TIME (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS = WEEKS))
000118,000094: # 34 MEASURED QUANTITY (MIDCOURSE) (XXXX.XKILOMETERS)
000119,000095: # 35 ROLL, PITCH, YAW (XXX.XXDEGREES)
000120,000096: # 36 LANDMARK DATA 1 (OCTAL ONLY)
000121,000097: # 37 LANDMARK DATA 2 (OCTAL ONLY)
000122,000098: # 40 SPARE
000123,000099: # 41 SPARE
000124,000100: # 42 SPARE
000125,000101: # 43 SPARE
000126,000102: # 44 SPARE
000127,000103: # 45 SPARE
000128,000104: # 46 SPARE
000129,000105: # 47 SPARE
000130,000106: # 50 SPARE
000131,000107: # 51 SPARE
000132,000108: # 52 GYRO BIAS DRIFT (.BBXXXXXMILLIRAD/SEC)
000133,000109: # 53 GYRO INPUT AXIS ACCELERATION DRIFT (.BBXXXXX(MILLIRAD/SEC)/(CM/SEC SEC))
000134,000110: # 54 GYRO SPIN AXIS ACCELERATION DRIFT (.BBXXXXX(MILLIRAD/SEC)/(CM/SEC SEC))
000135,000111: # END OF NORMAL NOUNS
000136,000112:
|
|
Page 4 |
000138,000114: # MIXED NOUNS SCALE AND DECIMAL POINT
000139,000115: # 55 OCDU (XXX.XXDEG, XX.XXXDEG)
000140,000116: # 56 UNCALLED MARK DATA (OCDU & TIME(SECONDS)) (XXX.XXDEG, XX.XXXDEG, XXX.XXSEC)
000141,000117: # 57 NEW ANGLES OCDU (XXX.XXDEG, XX.XXXDEG)
000142,000118: # 60 IMU MODE STATUS (IN3, WASKSET, OLDERR) (OCTAL ONLY)
000143,000119: # 61 TARGET AZIMUTH AND ELEVATION (XXX.XXDEG, XX.XXXDEG)
000144,000120: # 62 ICDUZ AND TIME (XXX.XXDEG, XXX.XXSEC)
000145,000121: # 63 OCDUX AND TIME (XXX.XXDEG, XXX.XXSEC)
000146,000122: # 64 OCDUY AND TIME (XX.XXXDEG, XXX.XXSEC)
000147,000123: # 65 SAMPLED TIME (HOURS AND SECONDS) (XXX.XXHOURS, XXX.XXSEC)
000148,000124: # (FETCHED IN INTERRUPT)
000149,000125: # 66 SYSTEM TEST RESULTS (XXXXX., .XXXXX, XXXXX.)
000150,000126: # 67 DELTA GYRO ANGLES (XX.XXXDEG FOR EACH)
000151,000127: # 70 PIPA BIAS (X.XXXXCM/SEC SEC FOR EACH)
000152,000128: # 71 PIPA SCALE FACTOR ERROR (XXXXX.PARTS/MILLION FOR EACH)
000153,000129: # 72 DELTA POSITION (XXXX.XKILOMETERS FOR EACH)
000154,000130: # 73 DELTA VELOCITY (XXXX.XMETERS/SEC FOR EACH)
000155,000131: # 74 MEASUREMENT DATA (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS=WEEKS), XXXX.XKILOMETERS, XXXXX.
000156,000132: # 75 MEASUREMENT DEVIATIONS (MIDCOURSE) (XXXX.XKILOMETERS, XXXX.XMETERS/SEC, XXXX.XKILOMETERS)
000157,000133: # 76 POSITION VECTOR (XXXX.XKILOMETERS FOR EACH)
000158,000134: # 77 VELOCITY VECTOR (XXXX.XMETERS/SEC FOR EACH)
End of include-file VERB_AND_NOUN_INFORMATION.agc. Parent file is MAIN.agc