Notations on the program listing read, in part:
YUL SYSTEM FOR BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100 JUL 9, 1965Note that the date is the date of the printout, not the date of the program revision.
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 Mike Higgins.
A team of volunteers performed the transcription and proof-reading. Note
that 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 section on archive.org. 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 BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100 JUL 9, 1965Note that the date is the date of the printout, not the date of the program revision. |
000028,000002: ## Copyright: Public domain.
000029,000003: ## Filename: VERB_AND_NOUN_INFORMATION.agc
000030,000004: ## Purpose: Part of the source code for Retread 44 (revision 0). It was
000031,000005: ## the very first program for the Block II AGC, created as an
000032,000006: ## extensive rewrite of the Block I program Sunrise.
000033,000007: ## This file is intended to be a faithful transcription, except
000034,000008: ## that the code format has been changed to conform to the
000035,000009: ## requirements of the yaYUL assembler rather than the
000036,000010: ## original YUL assembler.
000037,000011: ## Reference: pp. 1-4
000038,000012: ## Assembler: yaYUL
000039,000013: ## Contact: Ron Burkey <info@sandroid.org>.
000040,000014: ## Website: www.ibiblio.org/apollo/index.html
000041,000015: ## Mod history: 2016-12-13 MAS Created from Aurora 12 version.
000042,000016: ## Mod history: 2016-12-16 MAS Transcribed.
000043,000017: ## 2016-12-26 RSB Proofed comment text using octopus/ProoferComments,
000044,000018: ## and fixed errors found.
000045,000019:
|
|
Page 1 This Page is empty. |
000048,000022:
|
|
Page 2 |
000050,000024: # VERB DEFINITIONS
000051,000025:
000052,000026:
000053,000027:
000054,000028: # REGULAR VERBS
000055,000029: # 01 DISPLAY OCTAL COMP 1 (R1)
000056,000030: # 02 DISPLAY OCTAL COMP 2 (R1)
000057,000031: # 03 DISPLAY OCTAL COMP 3 (R1)
000058,000032: # 04 DISPLAY OCTAL COMP 1,2 (R1,R2)
000059,000033: # 05 DISPLAY OCTAL COMP 1,2,3 (R1,R2,R3)
000060,000034: # 06 DECIMAL DISPLAY
000061,000035: # 07 DP DECIMAL DISPLAY (R1,R2)
000062,000036: # 10 SPARE
000063,000037: # 11 MONITOR OCT COMP 1 (R1)
000064,000038: # 12 MONITOR OCT COMP 2 (R1)
000065,000039: # 13 MONITOR OCT COMP 3 (R1)
000066,000040: # 14 MONITOR OCT COMP 1,2 (R1)
000067,000041: # 15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
000068,000042: # 16 MONITOR DECIMAL
000069,000043: # 17 MONITOR DP DECIMAL (R1,R2)
000070,000044: # 20 SPARE
000071,000045: # 21 LOAD COMP 1 (R1)
000072,000046: # 22 LOAD COMP 2 (R2)
000073,000047: # 23 LOAD COMP 3 (R3)
000074,000048: # 24 LOAD COMP 1,2 (R1,R2)
000075,000049: # 25 LOAD COMP 1,2,3 (R1,R2,R3)
000076,000050: # 26 SPARE
000077,000051: # 27 FIXED MEMORY DISPLAY
000078,000052: # 30 REQUEST EXECUTIVE
000079,000053: # 31 REQUEST WAITLIST
000080,000054: # 32 C(R2) INTO R3, C(R1) INTO R2
000081,000055: # 33 PROCEED WITHOUT DATA
000082,000056: # 34 TERMINATE CURRENT TEST OR LOAD REQUEST
000083,000057: # 35 TEST LIGHTS
000084,000058: # 36 FRESH START
000085,000059: # 37 CHANGE MAJOR MODE
000086,000060: # END OF REGULAR VERBS
000087,000061:
|
|
In big red letters, on the bottom right, is written: G. SILVER IL7-146 (OFFICE) (LAB) EXT 269 - 205 |
000092,000066:
|
|
Page 3 |
000094,000068: # NORMAL NOUNS SCALE AND DECIMAL POINT
000095,000069: # 00 NOT IN USE
000096,000070: # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL) (.XXXXX)
000097,000071: # 02 SPECIFY MACHINE ADDRESS (WHOLE) (XXXXX.)
000098,000072: # 03 SPECIFY MACHINE ADDRESS (DEGREES) (XXX.XXDEGREES)
000099,000073: # 04 SPECIFY MACHINE ADDRESS (HOURS) (XXX.XXHOURS)
000100,000074: # 05 SPECIFY MACHINE ADDRESS (SECONDS) (XXX.XXSECONDS)
000101,000075: # 06 SPECIFY MACHINE ADDRESS (GYRO DEGREES) (XX.XXXDEGREES)
000102,000076: # 07 SPECIFY MACHINE ADDRESS (Y OPT DEGREES) (XX.XXXDEGREES)
000103,000077: # 10 CHANNEL TO BE SPECIFIED
000104,000078: # 11 SPARE
000105,000079: # 12 SPARE
000106,000080: # 13 SPARE
000107,000081: # 14 SPARE
000108,000082: # 15 INCREMENT MACHINE ADDRESS (OCTAL ONLY)
000109,000083: # 16 TIME SECONDS (XXX.XXSECONDS)
000110,000084: # 17 TIME HOURS (XXX.XXHOURS)
000111,000085: # 20 ICDU (XXX.XXDEGREES)
000112,000086: # 21 PIPAS (XXXXX.PULSES)
000113,000087: # 22 NEW ANGLES I (XXX.XXDEGREES)
000114,000088: # 23 DELTA ANGLES I (XXX.XXDEGREES)
000115,000089: # 24 DELTA TIME (SECONDS) (XXX.XXSECONDS)
000116,000090: # 25 CHECKLIST (XXXXX.)
000117,000091: # 26 PRIO/DELAY, ADRES, BBCON (OCTAL ONLY)
000118,000092: # 27 SELF TEST ON/OFF SWITCH (XXXXX.)
000119,000093: # 30 STAR NUMBERS (XXXXX.)
000120,000094: # 31 FAILREG (OCTAL ONLY)
000121,000095: # 32 DECISION TIME (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS = WEEKS))
000122,000096: # 33 EPHEMERIS TIME (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS = WEEKS))
000123,000097: # 34 MEASURED QUANTITY (MIDCOURSE) (XXXX.XKILOMETERS)
000124,000098: # 35 ROLL, PITCH, YAW (XXX.XXDEGREES)
000125,000099: # 36 LANDMARK DATA 1 (OCTAL ONLY)
000126,000100: # 37 LANDMARK DATA 2 (OCTAL ONLY)
000127,000101: # 40 SPARE
000128,000102: # 41 SPARE
000129,000103: # 42 SPARE
000130,000104: # 43 SPARE
000131,000105: # 44 SPARE
000132,000106: # 45 SPARE
000133,000107: # 46 SPARE
000134,000108: # 47 SPARE
000135,000109: # 50 SPARE
000136,000110: # 51 SPARE
000137,000111: # 52 GYRO BIAS DRIFT (.BBXXXXXMILLIRAD/SEC)
000138,000112: # 53 GYRO INPUT AXIS ACCELERATION DRIFT (.BBXXXXX(MILLIRAD/SEC)/(CM/SEC SEC))
000139,000113: # 54 GYRO SPIN AXIS ACCELERATION DRIFT (.BBXXXXX(MILLIRAD/SEC)/(CM/SEC SEC))
000140,000114: # END OF NORMAL NOUNS
000141,000115:
|
|
Page 4 |
000143,000117: # MIXED NOUNS SCALE AND DECIMAL POINT
000144,000118: # 55 OCDU (XXX.XXDEG, XX.XXXDEG)
000145,000119: # 56 UNCALLED MARK DATA (OCDU & TIME(SECONDS)) (XXX.XXDEG, XX.XXXDEG, XXX.XXSEC)
000146,000120: # 57 NEW ANGLES OCDU (XXX.XXDEG, XX.XXXDEG)
000147,000121: # 60 IMU MODE STATUS (IN3, WASKSET, OLDERR) (OCTAL ONLY)
000148,000122: # 61 TARGET AZIMUTH AND ELEVATION (XXX.XXDEG, XX.XXXDEG)
000149,000123: # 62 ICDUZ AND TIME (XXX.XXDEG, XXX.XXSEC)
000150,000124: # 63 OCDUX AND TIME (XXX.XXDEG, XXX.XXSEC)
000151,000125: # 64 OCDUY AND TIME (XX.XXXDEG, XXX.XXSEC)
000152,000126: # 65 SAMPLED TIME (HOURS AND SECONDS) (XXX.XXHOURS, XXX.XXSEC)
000153,000127: # (FETCHED IN INTERRUPT)
000154,000128: # 66 SYSTEM TEST RESULTS (XXXXX., .XXXXX, XXXXX.)
000155,000129: # 67 DELTA GYRO ANGLES (XX.XXXDEG FOR EACH)
000156,000130: # 70 PIPA BIAS (X.XXXXCM/SEC SEC FOR EACH)
000157,000131: # 71 PIPA SCALE FACTOR ERROR (XXXXX.PARTS/MILLION FOR EACH)
000158,000132: # 72 DELTA POSITION (XXXX.XKILOMETERS FOR EACH)
000159,000133: # 73 DELTA VELOCITY (XXXX.XMETERS/SEC FOR EACH)
000160,000134: # 74 MEASUREMENT DATA (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS=WEEKS), XXXX.XKILOMETERS, XXXXX.
000161,000135: # 75 MEASUREMENT DEVIATIONS (MIDCOURSE) (XXXX.XKILOMETERS, XXXX.XMETERS/SEC, XXXX.XKILOMETERS)
000162,000136: # 76 POSITION VECTOR (XXXX.XKILOMETERS FOR EACH)
000163,000137: # 77 VELOCITY VECTOR (XXXX.XMETERS/SEC FOR EACH)
End of include-file VERB_AND_NOUN_INFORMATION.agc. Parent file is MAIN.agc