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, 1965
Note 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