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 Peter McDermott.
A team of volunteers performed the transcription and proof-reading. 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 collection in the Internet Archive. 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 AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
000031,000002: ## Copyright: Public domain.
000032,000003: ## Filename: ASSEMBLY_AND_OPERATION_INFORMATION.agc
000033,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
000034,000005: ## It is part of an early development version of the software
000035,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
000036,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
000037,000008: ## upon which Don Eyles's offline development program Shepatin
000038,000009: ## was based; the listing herein transcribed was actually for
000039,000010: ## the equivalent revision 0 of Shepatin.
000040,000011: ## This file is intended to be a faithful transcription, except
000041,000012: ## that the code format has been changed to conform to the
000042,000013: ## requirements of the yaYUL assembler rather than the
000043,000014: ## original YUL assembler.
000044,000015: ## Reference: pp. 1-9
000045,000016: ## Assembler: yaYUL
000046,000017: ## Contact: Ron Burkey <info@sandroid.org>.
000047,000018: ## Website: www.ibiblio.org/apollo/index.html
000048,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
000049,000020: ## 2017-05-27 HG Transcribed
000050,000021: ## 2017-06-21 RSB A few errors corrected using
000051,000022: ## octopus/ProoferComments.
000052,000023:
|
|
Page 1 |
000054,000025: # TABLE OF LOG CARDS
000055,000026:
000056,000027: # ASSEMBLY AND OPERATION INFORMATION
000057,000028: # ERASABLE ASSIGNMENTS
000058,000029: # INPUT/OUTPUT CHANNELS
000059,000030: # INTERRUPT LEAD INS
000060,000031: # RESTART TABLES AND RESTARTS ROUTINE
000061,000032: # PHASE TABLE MAINTENANCE
000062,000033: # FRESH STRART AND RESTART
000063,000034: # T4RUPT PROGRAM
000064,000035: # IMU MODE SWITCHING ROUTINES
000065,000036: # AOTMARK
000066,000037: # RADAR LEAD-IN ROUTINES
000067,000038: # RADAR TEST PROGRAMS
000068,000039: # EXTENDED VERBS
000069,000040: # KEYRUPT, UPRUPT
000070,000041: # PINBALL GAME BUTTONS AND LIGHTS
000071,000042: # ALARM AND ABORT
000072,000043: # UPDATE PROGRAM PART 1 OF 2
000073,000044: # UPDATE PROGRAM PART 2 OF 2
000074,000045: # DOWN-TELEMETRY PROGRAM
000075,000046: # INFLIGHT ALIGNMENT ROUTINES
000076,000047: # RTB OP CODES
000077,000048: # LEM FLIGHT CONTROL SYSTEM TEST
000078,000049: # IMU PERFORMANCE TESTS 1
000079,000050: # IMU PERFORMANCE TESTS 2
000080,000051: # IMU PERFORMANCE TESTS 3
000081,000052: # OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
000082,000053: # DAP INTERFACE SUBROUTINES
000083,000054: # T6-RUPT PROGRAMS
000084,000055: # DAPIDLER PROGRAM
000085,000056: # P-AXIS REACTION CONTROL SYSTEM AUTOPILOT
000086,000057: # Q,R-AXES REACTION CONTROL SYSTEM AUTOPILOT
000087,000058: # Q,R-AXES JET SELECT AND FAILURE CONTROL LOGIC
000088,000059: # RCS FAILURE MONITOR
000089,000060: # ASCENT INERTIA UPDATER
000090,000061: # KALMAN FILTER FOR LM DAP
000091,000062: # TRIM GIMBAL CONTROL SYSTEM
000092,000063: # AOSTASK AND AOSJOB
000093,000064: # SPS BACK-UP RCS CONTROL
000094,000065: # ATTITUDE MANEUVER ROUTINE
000095,000066: # GIMBAL LOCK AVOIDANCE
000096,000067: # KALCMANU STEERING
000097,000068: # MISSION PHASE 2 GUIDANCE REFERENCE RELEASE + BOOST MONITOR
000098,000069: # MP 3 - SUBORBITAL ABORT
000099,000070: # MP4-CONTINGENCY ORBIT INSERTION
000100,000071: # MISSION PHASE 6 COAST SIVB ATTACHED
000101,000072: # MP 7 - SIVB/LEM SEPARATION
000102,000073: # MISSION PHASE 8 - DPS COLD SOAK
000103,000074: # MP9-DPS 1 BURN
000104,000075:
|
|
Page 2 |
000106,000077: # MISSION PHASE 11 - DPS2/FITH/APS1
000107,000078: # MISSION PHASE 13 - APS2
000108,000079: # MISSION PHASE 16 - RCS COLD SOAK
000109,000080: # INTEGRATION INITIALIZATION
000110,000081: # ORBITAL INTEGRATION PROGRAM
000111,000082: # LMP COMMAND ROUTINES
000112,000083: # AS206 MISSION SCHEDULING PACKAGE
000113,000084: # THRUST MISSION CONTROL PROGRAM TJS
000114,000085: # TUMBLE MONITOR
000115,000086: # PIPA READER
000116,000087: # FIND CDU DESIRED
000117,000088: # AVERAGE G INTEGRATOR
000118,000089: # THROTTLE CONTROL
000119,000090: # IMU COMPENSATION PACKAGE
000120,000091: # DUMMY 206 INITIALIZATION
000121,000092: # SECOND DPS GUIDANCE
000122,000093: # PREBURN FOR APS2
000123,000094: # ASCENT STEERING
000124,000095: # THRUST MAGNITUDE FILTER
000125,000096: # LOGSUB ROUTINE
000126,000097: # LAMB
000127,000098: # SUM CHECK END OF BANK MARKERS
000128,000099: # SUBROUTINES
000129,000100: # MASTER
000130,000101: # SELFCHEC
000131,000102:
|
|
Page 3 |
000133,000104: # VERB AND NOUN INFORMATION
000134,000105:
000135,000106:
000136,000107:
000137,000108: # REGULAR VERBS
000138,000109: # 01 DISPLAY OCTAL COMP 1 (R1)
000139,000110: # 02 DISPLAY OCTAL COMP 2 (R1)
000140,000111: # 03 DISPLAY OCTAL COMP 3 (R1)
000141,000112: # 04 DISPLAY OCTAL COMP 1,2 (R1,R2)
000142,000113: # 05 DISPLAY OCTAL COMP 1,2,3 (R1,R2,R3)
000143,000114: # 06 DECIMAL DISPLAY
000144,000115: # 07 DP DECIMAL DISPLAY (R1,R2)
000145,000116: # 10 SPARE
000146,000117: # 11 MONITOR OCT COMP 1 (R1)
000147,000118: # 12 MONITOR OCT COMP 2 (R1)
000148,000119: # 13 MONITOR OCT COMP 3 (R1)
000149,000120: # 14 MONITOR OCT COMP 1,2 (R1)
000150,000121: # 15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
000151,000122: # 16 MONITOR DECIMAL
000152,000123: # 17 MONITOR DP DECIMAL (R1,R2)
000153,000124: # 20 SPARE
000154,000125: # 21 LOAD COMP 1 (R1)
000155,000126: # 22 LOAD COMP 2 (R2)
000156,000127: # 23 LOAD COMP 3 (R3)
000157,000128: # 24 LOAD COMP 1,2 (R1,R2)
000158,000129: # 25 LOAD COMP 1,2,3 (R1,R2,R3)
000159,000130: # 26 SPARE
000160,000131: # 27 FIXED MEMORY DISPLAY
000161,000132: # 30 REQUEST EXECUTIVE
000162,000133: # 31 REQUEST WAITLIST
000163,000134: # 32 C(R2) INTO R3, C(R1) INTO R2
000164,000135: # 33 PROCEED WITHOUT DATA
000165,000136: # 34 TERMINATE CURRENT TEST OR LOAD REQUEST
000166,000137: # 35 TEST LIGHTS
000167,000138: # 36 FRESH START
000168,000139: # 37 CHANGE MAJOR MODE
000169,000140: # END OF REGULAR VERBS
000170,000141:
000171,000142:
000172,000143:
000173,000144: # EXTENDED VERBS
000174,000145: # 40 ZERO(USED WITH NOUN 20) (N 40 UNUSED IN 206)
000175,000146: # 41 COARSE ALIGN (USED WITH NOUN 20) (N 40 UNUSED IN 206)
000176,000147: # 42 FINE ALIGN IMU
000177,000148: # 43 LOAD IMU ATTITUDE ERROR METERS
000178,000149: # 44 ILLEGAL VERB
000179,000150: # 45 COMMAND LR TO POSITION 2 (UNUSED IN 206)
000180,000151: # 46 SAMPLE RADAR ONCE PER SECOND (UNUSED IN 206)
000181,000152: # 47 PERFORM LEM FCS TEST
000182,000153: # 50 PLEASE PERFORM
000183,000154:
|
|
Page 4 |
000185,000156: # 51 PLEASE MARK
000186,000157: # 52 PLEASE MARK Y
000187,000158: # 53 PLEASE MARK X OR Y
000188,000159: # 54 PULSE TORQUE GYROS
000189,000160: # 55 ALIGN TIME
000190,000161: # 56 PERFORM BANKSUM
000191,000162: # 57 PERFORM SYSTEM TEST
000192,000163: # 60 ILLEGAL VERB
000193,000164: # 61 ILLEGAL VERB
000194,000165: # 62 SCAN LEM INBITS
000195,000166: # 63 INITIALIZE AGS (UNUSED IN 206)
000196,000167: # 64 SET TIMER TO GROUND ELAPSED TIME
000197,000168: # 65 SET GUIDANCE REFERENCE RELEASE DISCRETE
000198,000169: # 66 INITIATE LGC DFI TLM CALIBRATE ROUTINE
000199,000170: # 67 SEND COMMAND TO LMP
000200,000171: # 70 SET MISSION TIMER
000201,000172: # 71 SET MISSION PHASE REGISTER
000202,000173: # 72 SET MISSION PHASE REGISTER + TIMER
000203,000174: # 73 RESET DPS OR RPS COLD SOAK DISCRETE
000204,000175: # 74 STOP MISSION TIMERS
000205,000176: # 75 TARGET PARAMETER UPDATE
000206,000177: # 76 STATE VECTOR UPDATE
000207,000178: # 77 ILLEGAL VERB
000208,000179:
000209,000180:
|
|
Page 5 |
000211,000182: # NORMAL NOUNS SCALE AND DECIMAL POINT
000212,000183: # 00 NOT IN USE
000213,000184: # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL) (.XXXXX)
000214,000185: # 02 SPECIFY MACHINE ADDRESS (WHOLE) (XXXXX.)
000215,000186: # 03 SPECIFY MACHINE ADDRESS (DEGREES) (XXX.XXDEGREES)
000216,000187: # 04 SPECIFY MACHINE ADDRESS (HOURS) (XXX.XXHOURS)
000217,000188: # 05 SPECIFY MACHINE ADDRESS (SECONDS) (XXX.XXSECONDS)
000218,000189: # 06 SPECIFY MACHINE ADDRESS (GYRO DEGREES) (XX.XXXDEGREES)
000219,000190: # 07 SPARE
000220,000191: # 10 CHANNEL TO BE SPECIFIED
000221,000192: # 11 SPARE
000222,000193: # 12 SPARE
000223,000194: # 13 SPARE
000224,000195: # 14 SPARE
000225,000196: # 15 INCREMENT MACHINE ADDRESS (OCTAL ONLY)
000226,000197: # 16 TIME SECONDS (XXX.XXSECONDS)
000227,000198: # 17 TIME HOURS (XXX.XXHOURS)
000228,000199: # 20 ICDU (XXX.XXDEGREES)
000229,000200: # 21 PIPAS (XXXXX.PULSES)
000230,000201: # 22 NEW ANGLES I (XXX.XXDEGREES)
000231,000202: # 23 DELTA ANGLES I (XXX.XXDEGREES)
000232,000203: # 24 DELTA TIME (SECONDS) (XXX.XXSECONDS)
000233,000204: # 25 CHECKLIST (XXXXX.)
000234,000205: # 26 PRIO/DELAY, ADRES, BBCON (OCTAL ONLY)
000235,000206: # 27 SELF TEST ON/OFF SWITCH (XXXXX.)
000236,000207: # 30 STAR NUMBERS (XXXXX.)
000237,000208: # 31 SFAIL, ERCOUNT, FAILREG (OCTAL ONLY)
000238,000209: # 32 DECISION TIME (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS = WEEKS))
000239,000210: # 33 EPHEMERIS TIME (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS = WEEKS))
000240,000211: # 34 MEASURED QUANTITY (MIDCOURSE) (XXXX.XKILOMETERS)
000241,000212: # 35 INBIT MESSAGE (OCTAL ONLY)
000242,000213: # 36 LANDMARK DATA 1 (OCTAL ONLY)
000243,000214: # 37 LANDMARK DATA 2 (OCTAL ONLY)
000244,000215: # 40 RENDEZVOUS RADAR ANGLES (TRUNION,SHAFT) (XXX.XXDEGREES) (UNUSED IN 206)
000245,000216: # 41 NEW RENDEZVOUS RADAR ANGLES (TRUNION,SHAFT) (XXX.XXDEGREES) (UNUSED IN 206)
000246,000217: # 42 AOT ROTATION ANGLES (XXX.XXDEGREES)
000247,000218: # 43 AOT DETENT CODE (XXXXX.)
000248,000219: # 44 FORWARD VELOCITY, LATERAL VELOCITY (XXXXX.FEET/SEC)
000249,000220: # 45 ROTATIONAL HAND CONTROLLER ANGLE RATES (XXXXX.DEG/SEC) (NOT USED IN 206)
000250,000221: # 46 SPARE
000251,000222: # 47 SPARE
000252,000223: # 50 FAILREG, FAILREG +1, FAILREG +2 (OCTAL ONLY)
000253,000224: # 51 ALMCADR, ALMCADR +1 (OCTAL ONLY)
000254,000225: # 52 GYRO BIAS DRIFT (.BBXXXXXMILLIRAD/SEC)
000255,000226: # 53 GYRO INPUT AXIS ACCELERATION DRIFT (.BBXXXXX(MILLIRAD/SEC)/(CM/SEC SEC))
000256,000227: # 54 GYRO SPIN AXIS ACCELERATION DRIFT (.BBXXXXX(MILLIRAD/SEC)/(CM/SEC SEC))
000257,000228: # END OF NORMAL NOUNS
000258,000229:
000259,000230:
|
|
Page 6 |
000261,000232: # MIXED NOUNS SCALE AND DECIMAL POINT
000262,000233: # 55 LANDING RADAR ALTITUDE, TIME (SECONDS) (XXXXX.FEET, XXX.XXSEC) (UNUSED IN 206)
000263,000234: # 56 LANDING RADAR VELX, TIME (SECONDS) (XXXXX.FEET/SEC, XXX.XXSEC) (UNUSED IN 206)
000264,000235: # 57 LANDING RADAR VELY, TIME (SECONDS) (XXXXX.FEET/SEC, XXX.XXSEC) (UNUSED IN 206)
000265,000236: # 60 LANDING RADAR VELZ, TIME (SECONDS) (XXXXX.FEET/SEC, XXX.XXSEC) (UNUSED IN 206)
000266,000237: # 61 TARGET AZIMUTH AND ELEVATION (XXX.XXDEG, XX.XXXDEG)
000267,000238: # 62 RENDEZVOUS RADAR RANGE, TRUNION, SHAFT (XXXXXB.FEET, XXX.XXDEG, XXX.XXDEG) (UNUSED IN 206)
000268,000239: # 63 RENDEZVOUS RADAR RANGE RATE, TRUNION, SHAFT (XXXXX.FEET/SEC, XXX.XXDEG, XXX.XXDEG) (UNUSED IN 206)
000269,000240: # 64 INITIAL ALTITUDE, FINAL ALTITUDE, ALT. RATE (XXXXX.FEET, XXXXX.FEET, XXXXX.FEET/SEC)
000270,000241: # 65 SAMPLED TIME (HOURS AND SECONDS) (XXX.XXHOURS, XXX.XXSEC)
000271,000242: # (FETCHED IN INTERRUPT)
000272,000243: # 66 SYSTEM TEST RESULTS (XXXXX., .XXXXX, XXXXX.)
000273,000244: # 67 DELTA GYRO ANGLES (XX.XXXDEG FOR EACH)
000274,000245: # 70 SPARE
000275,000246: # 71 SPARE
000276,000247: # 72 DELTA POSITION (XXXX.XKILOMETERS FOR EACH)
000277,000248: # 73 DELTA VELOCITY (XXXX.XMETERS/SEC FOR EACH)
000278,000249: # 74 MEASUREMENT DATA (MIDCOURSE) (XXX.XXHOURS (INTERNAL UNITS=WEEKS), XXXX.XKILOMETERS, XXXXX.
000279,000250: # 75 MEASUREMENT DEVIATIONS (MIDCOURSE) (XXXX.XKILOMETERS, XXXX.XMETERS/SEC, XXXX.XKILOMETERS)
000280,000251: # 76 POSITION VECTOR (XXXX.XKILOMETERS FOR EACH)
000281,000252: # 77 VELOCITY VECTOR (XXXX.XMETERS/SEC FOR EACH)
000282,000253:
000283,000254:
|
|
Page 7 |
000285,000256: # TABLE OF ERROR CODES
000286,000257:
000287,000258:
000288,000259:
000289,000260: # OPTICS SUB-SYSTEM
000290,000261:
000291,000262: # 00105 MARK BUTTONS NOT AVAILABLE
000292,000263: # 00111 MARK IS MISSING AFTER ENTER
000293,000264: # 00112 MARK NOT BEING ACCEPTED
000294,000265: # 00113 NO INBITS
000295,000266: # 00114 MARK MADE BUT NOT DESIRED
000296,000267: # 00115 X MARK NOT MADE
000297,000268:
000298,000269: # IMU SUB-SYSTEM
000299,000270:
000300,000271: # 00206 ZERO CDU NOT ALLOWED WITH COARSE ALIGN + GIMBAL LOCK.
000301,000272: # 00207 ISS TURN-ON REQUEST NOT PRESENT FOR 90 SEC.
000302,000273: # 00210 IMU NOT OPERATING
000303,000274: # 00211 COARSE ALIGN ERROR
000304,000275: # 00212 PIPA FAIL BUT PIPA IS NOT BEING USED
000305,000276: # 00213 IMU NOT OPERATING WITH TURN-ON REQUEST
000306,000277: # 00214 PROGRAM USING IMU WHEN TURNED OFF
000307,000278:
000308,000279: # PROCEDURAL DIFFICULTY
000309,000280:
000310,000281: # 00401 DESIRED GIMBAL ANGLES YIELD GIMBAL LOCK
000311,000282: # 00402 STAR OUT OF FIELD OF VIEW
000312,000283: # 00403 STAR OUT OF FIELD OF VIEW
000313,000284: # 00404 COMPUTATION FOR WAITLIST SET-UP RAN AFOUL
000314,000285:
000315,000286: # RADAR ERRORS
000316,000287:
000317,000288: # 00501 RADAR ANTENNA OUT OF LIMITS
000318,000289: # 00502 BAD RADAR GIMBAL ANGLE INPUTS
000319,000290: # 00503 RADAR ANTENNA DESIGNATE FAIL
000320,000291: # 00510 RADAR AUTO DESCRETE NOT PRESENT
000321,000292: # 00514 RADAR GOES OUT OF AUTO MODE WHILE BEING USED
000322,000293: # 00520 NO RADAR RUPT EXPECTED
000323,000294: # 00521 RADAR DATA COULD NOT BE READ
000324,000295: # 00522 WRONG LR POSITION
000325,000296: # 00523 LR ANTENNA DID NOT MAKE IT
000326,000297: # 00524 BAD RADAR TARGET
000327,000298:
000328,000299: # MISSION SCHEDULER ERRORS:
000329,000300:
000330,000301: # 00601 MISSION PHASE DUE BUT MPHASE REGISTER = 0
000331,000302:
000332,000303: # COMPUTER HARDWARE MALFUNCTIONS
000333,000304:
000334,000305: # 01102 AGC SELF TEST ERROR
000335,000306:
|
|
Page 8 |
000337,000308:
000338,000309: # 01103 UNUSED CCS BRANCH EXECUTED . ABORT
000339,000310: # 01105 DOWNLINK TOO FAST
000340,000311: # 01106 UPLINK TOO FAST
000341,000312:
000342,000313: # LIST OVERFLOWS ( ALL ABORTS )
000343,000314:
000344,000315: # 01201 EXECUTIVE OVERFLOW-NO VAC AREAS
000345,000316: # 01202 EXECUTIVE OVERFLOW-NO CORE SETS
000346,000317: # 01203 WAITLIST OVERFLOW-TOO MANY TASKS
000347,000318: # 01206 KEYBOARD AND DISPLAY WAITING LINE OVERFLOW
000348,000319: # 01207 NO VAC AREA FOR MARKS
000349,000320: # 01210 TWO PROGRAMS USING DEVICE AT SAME TIME
000350,000321:
000351,000322: # INTERPRETER ERRORS
000352,000323:
000353,000324: # 01301 ARCSIN-ARCCOS INPUT ANGLE TOO LARGE. ABORT
000354,000325: # 01302 SQRT CALLED WITH NEGATIVE ARGUMENT . ABORT
000355,000326:
000356,000327: # DISPLAY ALARMS
000357,000328:
000358,000329: # 00310 CURTAINS
000359,000330: # 00312 JETABORT
000360,000331: # 00316 FAKESTRT
000361,000332: # 01400 PITCH AND/OR ROLL TRIM FAIL IS ON (SHOWN WITH V50N25). (FCS TEST ALARM)
000362,000333: # 01410 JET FAIL DURING FCS TEST.
000363,000334: # 01411 CDU DOES NOT AGREE WITH COMMAND TO 1 DEGREE
000364,000335:
000365,000336: # KEYBOARD AND DISPLAY PROGRAM
000366,000337:
000367,000338: # 01501 KEYBOARD AND DISPLAY ALARM DURING INTERNAL USE(NVSUB). ABORT
000368,000339:
000369,000340: # SYSTEM TEST ALARMS
000370,000341:
000371,000342: # 01600 DRIFT TEST OVERFLOW
000372,000343: # 01601 BAD IMU TORQUE IN DRIFT,IN COMPASS
000373,000344:
000374,000345:
|
|
Page 9 |
000376,000347:
000377,000348: # INSTRUCTION CODES:
000378,000349:
000379,000350: # NORMAL (NON-EXTENDED) CODES:
000380,000351:
000381,000352: # TC 000 TRANSFER CONTROL
000382,000353: # CCS 001 00 COUNT, COMPARE, AND SKIP
000383,000354: # TCF 001 01 TRANSFER CONTROL TO FIXED
000384,000355: # TCF 001 10 DITTO
000385,000356: # TCF 001 11 DITTO
000386,000357: # DAS 010 00 DP ADD TO STORAGE
000387,000358: # LXCH 010 01 EXCHANGE L WITH STORAGE
000388,000359: # INCR 010 10 INCREMENT STORAGE
000389,000360: # ADS 010 11 ADD TO STORAGE
000390,000361: # CA 011 CLEAR AND ADD
000391,000362: # CS 100 CLEAR AND SUBTRACT
000392,000363: # INDEX 101 00 INDEX NEXT INSTRUCTION
000393,000364: # DXCH 101 01 DP EXCHANGE WITH STORAGE
000394,000365: # TS 101 10 TRANSFER TO STORAGE
000395,000366: # XCH 101 11 EXCHANGE A WITH STORAGE
000396,000367: # AD 110 ADD
000397,000368: # MASK 111 MASK ("AND" TO A)
000398,000369:
000399,000370:
000400,000371: # EXTENDED CODES:
000401,000372:
000402,000373: # READ 000 00 0 READ FROM CHANNEL
000403,000374: # WRITE 000 00 1 WRITE CHANNEL
000404,000375: # RAND 000 01 0 READ, "AND" TO A
000405,000376: # WAND 000 01 1 WRITE, "AND" TO A
000406,000377: # ROR 000 10 0 READ, "OR" TO A
000407,000378: # WOR 000 10 1 WRITE, "OR" TO A
000408,000379: # RXOR 000 11 0 READ, EXCLUSIVE "OR" TO A
000409,000380: # EDRUPT 000 11 1 INTERRUPT
000410,000381:
000411,000382: # DV 001 00 DIVIDE
000412,000383: # BZF 001 01 BRANCH ON ZERO TO FIXED
000413,000384: # BZF 001 10 DITTO
000414,000385: # BZF 001 11 DITTO
000415,000386: # MSU 010 00 MODULAR SUBTRACT
000416,000387: # QXCH 010 01 EXCHANGE Q WITH STORAGE
000417,000388: # AUG 010 10 AUGMENT STORAGE
000418,000389: # DIM 010 11 DIMINISH STORAGE
000419,000390: # DCA 011 DP CLEAR AND ADD
000420,000391: # DCS 100 DP CLEAR AND SUBTRACT
000421,000392: # INDEX 101 INDEX NEXT EXTENDED INSTR.
000422,000393: # SU 110 00 SUBTRACT
000423,000394: # BZMF 110 01 BRANCH ON 0 OR - TO FIXED
000424,000395: # BZMF 110 10 DITTO
000425,000396: # BZMF 110 11 DITTO
000426,000397: # MP 111 MULTIPLY
End of include-file ASSEMBLY_AND_OPERATION_INFORMATION.agc. Parent file is MAIN.agc