Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

009232,000002:                                                                                                  ## Copyright:   Public domain.
009233,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
009234,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
009235,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
009236,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
009237,000007:                                                                                                  ## Assembler:   yaYUL
009238,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009239,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009240,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
009241,000011:                                                                                                  ##              2016-10-08 RSB  Finished transcription.
009242,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
009243,000013:                                                                                                  ##              2016-11-01 RSB  More typos.
009244,000014:                                                                                                  ##              2016-11-02 RSB  More typos.
009245,000015:                                                                                                  ##              2016-12-04 RSB  Proofed with octopus/ProoferComments and fixed various
009246,000016:                                                                                                  ##                              comments, but the proofing process is not completed.
009247,000017:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
009248,000018:                                                                                                  ##                              changes made.
009249,000019:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
009250,000020:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
009251,000021:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted while proofing Luminary 116.
009252,000022:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
009253,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
009254,000024:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
009255,000025:                                                                                                  ##                              Luminary 99 vs Comanche 55.
009256,000026:                                                                                                  ##              2017-06-06 RSB  Comment-text fixes (mostly whitespace) identified 
009257,000027:                                                                                                  ##                              in transcribing Sunburst 37.  Curiously, the label
009258,000028:                                                                                                  ##                              ENDVBFAN on p. 253 was missing, and I've added it, but
009259,000029:                                                                                                  ##                              it turns out not to have be referenced anywhere else
009260,000030:                                                                                                  ##                              in the code, and therefore its absence had no effect
009261,000031:                                                                                                  ##                              on the generated octals.
009262,000032:                                                                                                  ##              2017-06-07 RSB  More of the same.
009263,000033: 

Page 232

009265,000035:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM           DATE - 22 NOV 1966
009266,000036:                                                                                                  #  MOD NO - 0                                            LOG SECTION - PINBALL GAME
009267,000037:                                                                                                  #  MOD BY - FILENE                                                     BUTTONS AND LIGHTS
009268,000038:                                                                                                  #                                                        ASSEMBLY - SUNBURST REV 18
009269,000039: 
009270,000040:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009271,000041: 
009272,000042:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
009273,000043:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
009274,000044:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
009275,000045:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
009276,000046:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
009277,000047:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
009278,000048:                                                                                                  #  OCTAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, 
009279,000049:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
009280,000050:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
009281,000051: 
009282,000052:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
009283,000053:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
009284,000054:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
009285,000055:                                                                                                  #  :EXTENDED VERBS:).
009286,000056:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
009287,000057:                                                                                                  #  OPERATION INFORMATION:.
009288,000058: 
009289,000059: 
009290,000060:                                                                                                  #  CALLING SEQUENCES -
009291,000061: 
009292,000062:                                                                                                  #  KEYBOARD:
009293,000063:                                                                                                  #     EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
009294,000064:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
009295,000065:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
009296,000066:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
009297,000067: 
009298,000068:                                                                                                  #  UPLINK:
009299,000069:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
009300,000070:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
009301,000071:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
009302,000072: 
009303,000073:                                                                                                  #  INTERNAL PROGRAMS:
009304,000074:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
009305,000075:                                                                                                  #  CODE IN A (LOW 6 BITS FOR NOUN, NEXT 6 BITS FOR VERB).  DETAILS
009306,000076:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSUBWAIT: (SEE
009307,000077:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
009308,000078:                                                                                                  #     THERE IS AN INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009309,000079:                                                                                                  #  IN CONJUNCTION WITH :NVSUB:.  THIS IS CALLED GRAB/FREE.  DETAILS
009310,000080:                                                                                                  #  DESCRIBED ON REMARKS JUST BEFORE :GRABDSP:, :GRABWAIT: (SEE SYMBOL TABLE
009311,000081:                                                                                                  #  FOR PAGE NUMBERS).
009312,000082: 

Page 233

009314,000084:                                                                                                  #  NORMAL EXIT MODES-
009315,000085: 
009316,000086:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, EXIT IS TO :ENDOFJOB:.
009317,000087: 
009318,000088:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
009319,000089:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
009320,000090:                                                                                                  #  :NVSUB: AND :NVSUBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
009321,000091: 
009322,000092: 
009323,000093:                                                                                                  #  ALARM OR ABORT EXIT MODES-
009324,000094: 
009325,000095:                                                                                                  #  EXTERNAL INITIATION:
009326,000096:                                                                                                  #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
009327,000097:                                                                                                  #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
009328,000098: 
009329,000099:                                                                                                  #  INTERNAL PROGRAM INITIATION:
009330,000100:                                                                                                  #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
009331,000101:                                                                                                  #  (WITH OCTAL 01501) AND EXIT TO :ENDOFJOB:.
009332,000102: 
009333,000103:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN DIGITAL DEVELOPMENT
009334,000104:                                                                                                  #  REPORT NO. 11.
009335,000105: 
009336,000106: 
009337,000107:                                                                                                  #  OUTPUT-
009338,000108: 
009339,000109:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
009340,000110:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
009341,000111:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
009342,000112:                                                                                                  #  IN INTERRUPT.
009343,000113: 
009344,000114: 
009345,000115:                                                                                                  #  ERASABLE INITIALIZATION-
009346,000116: 
009347,000117:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
009348,000118:                                                                                                  #  PINBALL IN :STARTSUB:.   REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
009349,000119:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, GRABLOCK, VERBREG, NOUNREG, 
009350,000120:                                                                                                  #  DSPLIST, +1, +2, DSPCOUNT.
009351,000121: 
009352,000122:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
009353,000123:                                                                                                  #  PINBALL IS GIVEN BELOW.
009354,000124: 
009355,000125: 
009356,000126:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
009357,000127: 
009358,000128:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
009359,000129:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.

Page 234

009361,000131: 
009362,000132:                                                                                                  #    NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
009363,000133:                                                                                                  #              OF RELATED INTEREST   NVSUBWAIT
009364,000134:                                                                                                  #                                    NVSUBSY
009365,000135:                                                                                                  #                                    PRENVBSY
009366,000136: 
009367,000137:                                                                                                  #    GRABDSP   INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009368,000138:                                                                                                  #    FREEDSP   IN CONJUNCTION WITH :NVSUB:.
009369,000139:                                                                                                  #                OF RELATED INTEREST   GRABWAIT
009370,000140:                                                                                                  #                                      GRABUSY
009371,000141:                                                                                                  #                                      PREGBSY
009372,000142: 
009373,000143:                                                                                                  #    ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
009374,000144:                                                                                                  #              AWAITING OPERATORS RESPONSE.
009375,000145:                                                                                                  #                OF RELATED INTEREST   DATAWAIT
009376,000146: 
009377,000147:                                                                                                  #    MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
009378,000148: 
009379,000149:                                                                                                  #    THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
009380,000150:                                                                                                  #    BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
009381,000151: 
009382,000152:                                                                                                  #    THE NOUN TABLES THEMSELVES ARE FOUND ON 7 PAGES STARTING AT :NNADTAB:
009383,000153: 
009384,000154: 
009385,000155:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
009386,000156:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR DIGITAL DEVELOPMENT REPORT NO. 11.
009387,000157: 

Page 235

009389,000159:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
009390,000160: 
009391,000161:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
009392,000162: 
009393,000163:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
009394,000164:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
009395,000165:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
009396,000166: 
009397,000167:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4
009398,000168: 

Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 10/2016

009401,000171: 
009402,000172: 
009403,000173:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
009404,000174: 
009405,000175: 
009406,000176:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
009407,000177: 
009408,000178:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
009409,000179:                                                                                                  #  DECBRNCH      ERASE                   +DEC, -DEC, OCT INDICATOR
009410,000180:                                                                                                  #  VERBREG       ERASE                   VERB CODE
009411,000181:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
009412,000182:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
009413,000183:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
009414,000184:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
009415,000185:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
009416,000186:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
009417,000187:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
009418,000188:                                                                                                  #  MODREG        ERASE                   MODE CODE
009419,000189:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
009420,000190:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
009421,000191:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
009422,000192:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
009423,000193:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
009424,000194:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
009425,000195:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
009426,000196:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
009427,000197:                                                                                                  #  DSPTAB        ERASE           +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
009428,000198:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
009429,000199:                                                                                                  #  GRABLOCK      ERASE                   INTERNAL INTERLOCK FOR DISPLAY SYSTEM
009430,000200:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
009431,000201:                                                                                                  #                                        MUST = NVBNKTEM-1
009432,000202:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
009433,000203:                                                                                                  #                                        MUST = NVQTEM+1
009434,000204:                                                                                                  #  DSPLIST       ERASE           +2      WAITING LIST FOR DSP SYST INTERNAL USE
009435,000205:                                                                                                  #  EXTVBACT      ERASE                   EXTENDED VERB ACTIVITY INTERLOCK
009436,000206:                                                                                                  #  DSPTEM1       ERASE           +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
009437,000207:                                                                                                  #  DSPTEM2       ERASE           +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
009438,000208: 

Page 236

009440,000210:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
009441,000211: 
009442,000212: 
009443,000213:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009444,000214: 
009445,000215:                                                                                                  #  DSEXIT        =       INTB15+         RETURN FOR DSPIN
009446,000216:                                                                                                  #  EXITEM        =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
009447,000217:                                                                                                  #  BLANKRET      =       INTB15+         RETURN FOR 2BLANK
009448,000218: 
009449,000219:                                                                                                  #  WRDRET        =       INTBIT15        RETURN FOR 5BLANK
009450,000220:                                                                                                  #  WDRET         =       INTBIT15        RETURN FOR DSPWD
009451,000221:                                                                                                  #  DECRET        =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
009452,000222:                                                                                                  #  21/22REG      =       INTBIT15        TEMP FOR CHARIN
009453,000223: 
009454,000224:                                                                                                  #  UPDATRET      =       POLISH          RETURN FOR UPDATNN, UPDATVB
009455,000225:                                                                                                  #  CHAR          =       POLISH          TEMP FOR CHARIN
009456,000226:                                                                                                  #  ERCNT         =       POLISH          COUNTER FOR ERROR LIGHT RESET
009457,000227:                                                                                                  #  DECOUNT       =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
009458,000228: 
009459,000229:                                                                                                  #  SGNON         =       VBUF            TEMP FOR +,- ON
009460,000230:                                                                                                  #  NOUNTEM       =       VBUF            COUNTER FOR MIXNOUN FETCH
009461,000231:                                                                                                  #  DISTEM        =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
009462,000232:                                                                                                  #  DECTEM        =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
009463,000233: 
009464,000234:                                                                                                  #  SGNOFF        =       VBUF    +1      TEMP FOR +,- ON
009465,000235:                                                                                                  #  NVTEMP        =       VBUF    +1      TEMP FOR NVSUB
009466,000236:                                                                                                  #  SFTEMP1       =       VBUF    +1      STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
009467,000237: 
009468,000238:                                                                                                  #  CODE          =       VBUF    +2      FOR DSPIN
009469,000239:                                                                                                  #  SFTEMP2       =       VBUF    +2      STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
009470,000240: 
009471,000241:                                                                                                  #  MIXTEMP       =       VBUF    +3      FOR MIXNOUN DATA
009472,000242:                                                                                                  #  SIGNRET       =       VBUF    +3      RETURN FOR +,- ON
009473,000243: 
009474,000244:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
009475,000245: 
009476,000246:                                                                                                  #  ENTRET        =       DOTINC          EXIT FROM ENTER
009477,000247: 
009478,000248:                                                                                                  #  WDCNT         =       DOTRET          CHAR COUNTER FOR DSPWD
009479,000249:                                                                                                  #  INREL         =       DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
009480,000250: 
009481,000251:                                                                                                  #  DSPMMTEM      =       MATINC          DSPCOUNT SAVE FOR DSPMM
009482,000252:                                                                                                  #  MIXBR         =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
009483,000253: 
009484,000254:                                                                                                  #  TEM1          ERASE                   EXEC TEMP
009485,000255:                                                                                                  #  DSREL         =       TEM1            REL ADDRESS FOR DSPIN
009486,000256: 
009487,000257:                                                                                                  #  TEM2          ERASE                   EXEC TEMP
009488,000258:                                                                                                  #  DSMAG         =       TEM2            MAGNITUDE STORE FOR DSPIN

Page 237

009490,000260:                                                                                                  #  IDADDTEM      =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
009491,000261: 
009492,000262:                                                                                                  #  TEM3          ERASE                   EXEC TEMP
009493,000263:                                                                                                  #  COUNT         =       TEM3            FOR DSPIN
009494,000264: 
009495,000265:                                                                                                  #  TEM4          ERASE                   EXEC TEMP
009496,000266:                                                                                                  #  LSTPTR        =       TEM4            LIST POINTER FOR GRABUSY
009497,000267:                                                                                                  #  RELRET        =       TEM4            RETURN FOR RELDSP
009498,000268:                                                                                                  #  FREERET       =       TEM4            RETURN FOR FREEDSP
009499,000269: 
009500,000270:                                                                                                  #  TEM5          ERASE                   EXEC TEMP
009501,000271:                                                                                                  #  NOUNADD       =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
009502,000272: 
009503,000273:                                                                                                  #  NNADTEM       ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
009504,000274:                                                                                                  #  NNTYPTEM      ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
009505,000275:                                                                                                  #  IDAD1TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009506,000276:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
009507,000277:                                                                                                  #  IDAD2TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009508,000278:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
009509,000279:                                                                                                  #  IDAD3TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009510,000280:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
009511,000281:                                                                                                  #  RUTMXTEM      ERASE                   TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
009512,000282:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009513,000283: 
009514,000284: 
009515,000285:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
009516,000286: 
009517,000287:                                                                                                  #  DSPCNT        ERASE                   COUNTER FOR DSPOUT
009518,000288:                                                                                                  #  UPLOCK        ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
009519,000289:                                                                                                  #                                                                                RECEPTION OF A BAD MESSAGE IN UPLINK)
009520,000290:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
009521,000291: 
009522,000292: 
009523,000293: 
009524,000294:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
009525,000295: 
009526,000296:                                                                                                  #  KEYTEMP1      =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
009527,000297:                                                                                                  #  DSRUPTEM      =       WAITEXIT        TEMP FOR DSPOUT
009528,000298:                                                                                                  #  KEYTEMP2      =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
009529,000299:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
009530,000300: 

Page 238

009532,000302:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
009533,000303:                                                                                                  #  0        10000
009534,000304:                                                                                                  #  1        00001
009535,000305:                                                                                                  #  9        01001
009536,000306:                                                                                                  #  VERB     10001
009537,000307:                                                                                                  #  ERROR RES10010
009538,000308:                                                                                                  #  KEY RLSE 11001
009539,000309:                                                                                                  #  +        11010
009540,000310:                                                                                                  #  -        11011
009541,000311:                                                                                                  #  ENTER    11100
009542,000312:                                                                                                  #  CLEAR    11110
009543,000313:                                                                                                  #  NOUN     11111
009544,000314: 
009545,000315: 
009546,000316:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
009547,000317:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
009548,000318:                                                                                                  #  ENERGIZED.
009549,000319:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
009550,000320:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
009551,000321:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
009552,000322: 
009553,000323:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
009554,000324:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
009555,000325:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
009556,000326:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
009557,000327:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
009558,000328:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
009559,000329: 
009560,000330:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
009561,000331:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
009562,000332:                                                                                                  #  MD2   24     R2D2  10
009563,000333:                                                                                                  #  VD1   23     R2D3   7
009564,000334:                                                                                                  #  VD2   22     R2D4   6
009565,000335:                                                                                                  #  ND1   21     R2D5   5
009566,000336:                                                                                                  #  ND2   20     R3D1   4
009567,000337:                                                                                                  #  R1D1  16     R3D2   3
009568,000338:                                                                                                  #  R1D2  15     R3D3   2
009569,000339:                                                                                                  #  R1D3  14     R3D4   1
009570,000340:                                                                                                  #  R1D4  13     R3D5   0
009571,000341:                                                                                                  #  R1D5  12
009572,000342: 
009573,000343: 
009574,000344:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
009575,000345: 
009576,000346:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
009577,000347:                                                                                                  #  RELADD
009578,000348:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
009579,000349:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)

Page 239

009581,000351:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
009582,000352:                                                                                                  #  7      1000                                  R1D1 (16)
009583,000353:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
009584,000354:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
009585,000355:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
009586,000356:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
009587,000357:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
009588,000358:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
009589,000359:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
009590,000360:                                                                                                  #         0000   NO RELAYWORD
009591,000361: 
009592,000362: 
009593,000363:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
009594,000364:                                                                                                  #  BLANK      00000
009595,000365:                                                                                                  #  0          10101
009596,000366:                                                                                                  #  1          00011
009597,000367:                                                                                                  #  2          11001
009598,000368:                                                                                                  #  3          11011
009599,000369:                                                                                                  #  4          01111
009600,000370:                                                                                                  #  5          11110
009601,000371:                                                                                                  #  6          11100
009602,000372:                                                                                                  #  7          10011
009603,000373:                                                                                                  #  8          11101
009604,000374:                                                                                                  #  9          11111
009605,000375: 

Page 240

009607,000377:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
009608,000378: 
009609,000379: 04,2000                                           SETLOC   20000                                 
009610,000380: 
009611,000381: 04,2000           03472        GRABUSYB           TC       GRABUSY1                              #  STANDARD LEAD INS. DONT MOVE.
009612,000382: 04,2001           03514        NVSUBSYB           TC       NVSUBSY1                              
009613,000383: 
009614,000384: 04,2002           37763        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
009615,000385: 04,2003           56303                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
009616,000386: 04,2004           54105                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
009617,000387: 04,2005           56144                           XCH      MPAC                                  
009618,000388: 04,2006           54107                           TS       CHAR                                  
009619,000389: 04,2007           50000                           INDEX    A                                     
009620,000390: 04,2010           02011                           TC       +1                                    #  INPUT CODE    FUNCTION
009621,000391: 04,2011           03313                           TC       CHARALRM                              #  0
009622,000392: 04,2012           02070                           TC       NUM                                   #  1
009623,000393: 04,2013           02070                           TC       NUM                                   #  2
009624,000394: 04,2014           02070                           TC       NUM                                   #  3
009625,000395: 04,2015           02070                           TC       NUM                                   #  4
009626,000396: 04,2016           02070                           TC       NUM                                   #  5
009627,000397: 04,2017           02070                           TC       NUM                                   #  6
009628,000398: 04,2020           02070                           TC       NUM                                   #  7
009629,000399: 04,2021           02061                           TC       89TEST                                #  10            8
009630,000400: 04,2022           02061                           TC       89TEST                                #  11            9
009631,000401: 04,2023           03313                           TC       CHARALRM                              #  12
009632,000402: 04,2024           03313                           TC       CHARALRM                              #  13
009633,000403: 04,2025           03313                           TC       CHARALRM                              #  14
009634,000404: 04,2026           03313                           TC       CHARALRM                              #  15
009635,000405: 04,2027           03313                           TC       CHARALRM                              #  16
009636,000406: 04,2030           03313                           TC       CHARALRM                              #  17
009637,000407: 04,2031           02066                           TC       NUM        -2                         #  20            0
009638,000408: 04,2032           02243                           TC       VERB                                  #  21            VERB
009639,000409: 04,2033           02355                           TC       ERROR                                 #  22            ERROR LIGHT RESET
009640,000410: 04,2034           02053                           TC       ABRT23GO                              #  23            SUBORBIT ABORT
009641,000411: 04,2035           02056                           TC       ABRT24GO                              #  24            CONORBIT ABORT
009642,000412: 04,2036           03313                           TC       CHARALRM                              #  25
009643,000413: 04,2037           03313                           TC       CHARALRM                              #  26
009644,000414: 04,2040           03313                           TC       CHARALRM                              #  27
009645,000415: 04,2041           03313                           TC       CHARALRM                              #  30
009646,000416: 04,2042           03336                           TC       VBRELDSP                              #  31            KEY RELEASE
009647,000417: 04,2043           02275                           TC       POSGN                                 #  32            +
009648,000418: 04,2044           02262                           TC       NEGSGN                                #  33            -
009649,000419: 04,2045           02051                           TC       ENTERJMP                              #  34            ENTER
009650,000420: 04,2046           03313                           TC       CHARALRM                              #  35
009651,000421: 04,2047           02446                           TC       CLEAR                                 #  36            CLEAR
009652,000422: 04,2050           02256                           TC       NOUN                                  #  37            NOUN
009653,000423: 

Page 241

009655,000425: 04,2051           05225        ENTERJMP           TC       POSTJUMP                              
009656,000426: 04,2052           12003                           CADR     ENTER                                 
009657,000427: 
009658,000428: 04,2053           04666        ABRT23GO           TC       RELDSP                                
009659,000429: 04,2054           05225                           TC       POSTJUMP                              
009660,000430: 04,2055           56350                           CADR     SUBABORT                              
009661,000431: 04,2056           04666        ABRT24GO           TC       RELDSP                                
009662,000432: 04,2057           05225                           TC       POSTJUMP                              
009663,000433: 04,2060           56353                           CADR     CONORBIT                              
009664,000434: 
009665,000435: 04,2061           36311        89TEST             CAF      THREE                                 
009666,000436: 04,2062           70271                           MASK     DECBRNCH                              
009667,000437: 04,2063           10000                           CCS      A                                     
009668,000438: 04,2064           02070                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
009669,000439: 04,2065           03313                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
009670,000440: 
009671,000441: 
009672,000442:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
009673,000443:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
009674,000444:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
009675,000445:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
009676,000446:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
009677,000447:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
009678,000448: 
009679,000449: 04,2066           37767                           CAF      ZERO                                  
009680,000450: 04,2067           54107                           TS       CHAR                                  
009681,000451: 04,2070           10270        NUM                CCS      DSPCOUNT                              
009682,000452: 04,2071           02075                           TC       +4                                    #  +
009683,000453: 04,2072           02075                           TC       +3                                    #  +0
009684,000454: 04,2073           02074                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
009685,000455: 04,2074           05567                           TC       ENDOFJOB                              #  -0
009686,000456: 04,2075           02213                           TC       GETINREL                              
009687,000457: 04,2076           10306                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
009688,000458: 04,2077           37767                           CAF      ZERO                                  
009689,000459: 04,2100           54306                           TS       CLPASS                                
009690,000460: 04,2101           02102                           TC       +1                                    
009691,000461: 04,2102           50107                           INDEX    CHAR                                  
009692,000462: 04,2103           34300                           CAF      RELTAB                                
009693,000463: 04,2104           74556                           MASK     LOW5                                  
009694,000464: 04,2105           54114                           TS       CODE                                  
009695,000465: 04,2106           30270                           CA       DSPCOUNT                              
009696,000466: 04,2107           54133                           TS       COUNT                                 
009697,000467: 04,2110           03217                           TC       DSPIN                                 
009698,000468: 04,2111           36311                           CAF      THREE                                 
009699,000469: 04,2112           70271                           MASK     DECBRNCH                              
009700,000470: 04,2113           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
009701,000471: 04,2114           02125                           TC       DECTOBIN                              #  +
009702,000472: 04,2115           50127                           INDEX    INREL                                 #  +0 OCTAL
009703,000473: 04,2116           56272                           XCH      VERBREG                               

Page 242

009705,000475: 04,2117           54022                           TS       CYL                                   
009706,000476: 04,2120           40022                           CS       CYL                                   
009707,000477: 04,2121           40022                           CS       CYL                                   
009708,000478: 04,2122           56022                           XCH      CYL                                   
009709,000479: 04,2123           60107                           AD       CHAR                                  
009710,000480: 04,2124           02142                           TC       ENDNMTST                              
009711,000481: 04,2125           50127        DECTOBIN           INDEX    INREL                                 
009712,000482: 04,2126           56272                           XCH      VERBREG                               
009713,000483: 04,2127           54144                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
009714,000484: 04,2130           37767                           CAF      ZERO                                  
009715,000485: 04,2131           54145                           TS       MPAC       +1                         
009716,000486: 04,2132           34570                           CAF      TEN                                   #  10 X 2EXP-14
009717,000487: 04,2133           07357                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
009718,000488: 04,2134           56145                           XCH      MPAC       +1                         
009719,000489: 04,2135           60107                           AD       CHAR                                  
009720,000490: 04,2136           54145                           TS       MPAC       +1                         
009721,000491: 04,2137           02142                           TC       ENDNMTST                              #  NO OF
009722,000492: 04,2140           26144                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
009723,000493: 04,2141           02160                           TC       DECEND                                
009724,000494: 04,2142           50127        ENDNMTST           INDEX    INREL                                 
009725,000495: 04,2143           54272                           TS       VERBREG                               
009726,000496: 04,2144           40270                           CS       DSPCOUNT                              
009727,000497: 04,2145           50127                           INDEX    INREL                                 
009728,000498: 04,2146           62204                           AD       CRITCON                               
009729,000499: 04,2147           00006                           EXTEND                                         
009730,000500: 04,2150           12152                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
009731,000501: 04,2151           02201                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
009732,000502: 04,2152           36311        ENDNUM             CAF      THREE                                 
009733,000503: 04,2153           70271                           MASK     DECBRNCH                              
009734,000504: 04,2154           10000                           CCS      A                                     
009735,000505: 04,2155           02160                           TC       DECEND                                
009736,000506: 04,2156           40270        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
009737,000507: 04,2157           02202                           TC       MORNUM     +1                         #  NEGATIVELY
009738,000508: 04,2160           07155        DECEND             TC       DMP                                   #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
009739,000509: 04,2161           02211                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
009740,000510: 04,2162           36311                           CAF      THREE                                 #  IN MPAC, +1, +2.
009741,000511: 04,2163           70271                           MASK     DECBRNCH                              
009742,000512: 04,2164           50000                           INDEX    A                                     
009743,000513: 04,2165           02165                           TC       +0                                    
009744,000514: 04,2166           02172                           TC       +DECSGN                               
009745,000515: 04,2167           00006                           EXTEND                                         #  - CASE
009746,000516: 04,2170           40146                           DCS      MPAC       +1                         
009747,000517: 04,2171           52146                           DXCH     MPAC       +1                         
009748,000518: 04,2172           56146        +DECSGN            XCH      MPAC       +2                         
009749,000519: 04,2173           50127                           INDEX    INREL                                 
009750,000520: 04,2174           54275                           TS       XREGLP     -2                         
009751,000521: 04,2175           56145                           XCH      MPAC       +1                         
009752,000522: 04,2176           50127                           INDEX    INREL                                 
009753,000523: 04,2177           54272                           TS       VERBREG                               
009754,000524: 04,2200           02156                           TC       ENDALL                                

Page 243

009756,000526: 04,2201           10270        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
009757,000527: 04,2202           54270                           TS       DSPCOUNT                              
009758,000528: 04,2203           05567                           TC       ENDOFJOB                              
009759,000529: 
009760,000530: 04,2204           00022        CRITCON            OCT      22                                    #  (DEC 18)
009761,000531: 04,2205           00020                           OCT      20                                    #  (DEC 16)
009762,000532: 04,2206           00012                           OCT      12                                    #  (DEC 10)
009763,000533: 04,2207           00005                           OCT      5                                     
009764,000534: 04,2210           00000                           OCT      0                                     
009765,000535: 

The operand in the following line reads simply "E-5 B14" in the program listing, but has been changed to the (numerically identical) "1 E-5 B14" to conformed to syntax rules of the "modern" assembler, yaYUL. — RSB

009769,000539: 04,2211           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
009770,000540: 
009771,000541:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
009772,000542:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
009773,000543: 
009774,000544: 04,2213           50270        GETINREL           INDEX    DSPCOUNT                              
009775,000545: 04,2214           32217                           CAF      INRELTAB                              
009776,000546: 04,2215           54127                           TS       INREL                                 #  (A TEMP, REG)
009777,000547: 04,2216           00002                           TC       Q                                     
009778,000548: 
009779,000549: 04,2217           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
009780,000550: 04,2220           00004                           OCT      4                                     #  R3D4           =(1)
009781,000551: 04,2221           00004                           OCT      4                                     #  R3D3           =(2)
009782,000552: 04,2222           00004                           OCT      4                                     #  R3D2           =(3)
009783,000553: 04,2223           00004                           OCT      4                                     #  R3D1           =(4)
009784,000554: 04,2224           00003                           OCT      3                                     #  R2D5           =(5)
009785,000555: 04,2225           00003                           OCT      3                                     #  R2D4           =(6)
009786,000556: 04,2226           00003                           OCT      3                                     #  R2D3           =(7)
009787,000557: 04,2227           00003                           OCT      3                                     #  R2D2           =(8D)
009788,000558: 04,2230           00003                           OCT      3                                     #  R2D1           =(9D)
009789,000559: 04,2231           00002                           OCT      2                                     #  R1D5           =(10D)
009790,000560: 04,2232           00002                           OCT      2                                     #  R1D4           =(11D)
009791,000561: 04,2233           00002                           OCT      2                                     #  R1D3           =(12D)
009792,000562: 04,2234           00002                           OCT      2                                     #  R1D2           =(13D)
009793,000563: 04,2235           00002                           OCT      2                                     #  R1D1           =(14D)
009794,000564: 04,2236           04736                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
009795,000565: 04,2237           00001                           OCT      1                                     #  ND2            =(16D)
009796,000566: 04,2240           00001                           OCT      1                                     #  ND1            =(17D)
009797,000567: 04,2241           00000                           OCT      0                                     #  VD2            =(18D)
009798,000568: 04,2242           00000                           OCT      0                                     #  VD1            =(19D)
009799,000569: 
009800,000570: 04,2243           37767        VERB               CAF      ZERO                                  
009801,000571: 04,2244           54272                           TS       VERBREG                               
009802,000572: 04,2245           34565                           CAF      VD1                                   
009803,000573: 04,2246           54270        NVCOM              TS       DSPCOUNT                              
009804,000574: 04,2247           02557                           TC       2BLANK                                

Page 244

009806,000576: 04,2250           37767                           CAF      ZERO                                  
009807,000577: 04,2251           54271                           TS       DECBRNCH                              
009808,000578: 04,2252           54304                           TS       REQRET                                #  SET FOR ENTPAS0
009809,000579: 04,2253           34505                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
009810,000580: 04,2254           54126                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
009811,000581:                                                                                                  #  TO TC ENDOFJOB
009812,000582: 04,2255           05567                           TC       ENDOFJOB                              
009813,000583: 04,2256           37767        NOUN               CAF      ZERO                                  
009814,000584: 04,2257           54273                           TS       NOUNREG                               
009815,000585: 04,2260           34566                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
009816,000586: 04,2261           02246                           TC       NVCOM                                 
009817,000587: 
009818,000588: 
009819,000589: 04,2262           02334        NEGSGN             TC       SIGNTEST                              
009820,000590: 04,2263           02321                           TC       -ON                                   
009821,000591: 04,2264           37762                           CAF      TWO                                   
009822,000592: 04,2265           50127        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
009823,000593: 04,2266           67755                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
009824,000594: 04,2267           26271                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
009825,000595: 04,2270           10306        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
009826,000596: 04,2271           37767                           CAF      ZERO                                  
009827,000597: 04,2272           54306                           TS       CLPASS                                
009828,000598: 04,2273           02274                           TC       +1                                    
009829,000599: 04,2274           05567                           TC       ENDOFJOB                              
009830,000600: 
009831,000601: 04,2275           02334        POSGN              TC       SIGNTEST                              
009832,000602: 04,2276           02301                           TC       +ON                                   
009833,000603: 04,2277           37763                           CAF      ONE                                   
009834,000604: 04,2300           02265                           TC       BOTHSGN                               
009835,000605: 
009836,000606: 04,2301           22002        +ON                LXCH     Q                                     
009837,000607: 04,2302           02213                           TC       GETINREL                              
009838,000608: 04,2303           50127                           INDEX    INREL                                 
009839,000609: 04,2304           32327                           CAF      SGNTAB     -2                         
009840,000610: 04,2305           54113                           TS       SGNOFF                                
009841,000611: 04,2306           67763                           AD       ONE                                   
009842,000612: 04,2307           54112                           TS       SGNON                                 
009843,000613: 04,2310           37767        SGNCOM             CAF      ZERO                                  
009844,000614: 04,2311           54114                           TS       CODE                                  
009845,000615: 04,2312           56113                           XCH      SGNOFF                                
009846,000616: 04,2313           03301                           TC       11DSPIN                               
009847,000617: 04,2314           37751                           CAF      BIT11                                 
009848,000618: 04,2315           54114                           TS       CODE                                  
009849,000619: 04,2316           56112                           XCH      SGNON                                 
009850,000620: 04,2317           03301                           TC       11DSPIN                               
009851,000621: 04,2320           00001                           TC       L                                     
009852,000622: 04,2321           22002        -ON                LXCH     Q                                     
009853,000623: 04,2322           02213                           TC       GETINREL                              
009854,000624: 04,2323           50127                           INDEX    INREL                                 

Page 245

009856,000626: 04,2324           32327                           CAF      SGNTAB     -2                         
009857,000627: 04,2325           54112                           TS       SGNON                                 
009858,000628: 04,2326           67763                           AD       ONE                                   
009859,000629: 04,2327           54113                           TS       SGNOFF                                
009860,000630: 04,2330           02310                           TC       SGNCOM                                
009861,000631: 
009862,000632: 04,2331           00005        SGNTAB             OCT      5                                     #  -R1
009863,000633: 04,2332           00003                           OCT      3                                     #  -R2
009864,000634: 04,2333           00000                           OCT      0                                     #  -R3
009865,000635: 
009866,000636: 04,2334           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
009867,000637: 04,2335           36311                           CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
009868,000638: 04,2336           70271                           MASK     DECBRNCH                              #  CONSEQUTIVE +/- CHARACTERS.
009869,000639: 04,2337           10000                           CCS      A                                     #  IF LOW 2 BITS OF DECBRNCH NOT = 0, SIGN
009870,000640: 04,2340           05567                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
009871,000641: 04,2341           44527                           CS       R1D1                                  
009872,000642: 04,2342           02350                           TC       SGNTST1                               
009873,000643: 04,2343           44530                           CS       R2D1                                  
009874,000644: 04,2344           02350                           TC       SGNTST1                               
009875,000645: 04,2345           44531                           CS       R3D1                                  
009876,000646: 04,2346           02350                           TC       SGNTST1                               
009877,000647: 04,2347           05567                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
009878,000648: 04,2350           60270        SGNTST1            AD       DSPCOUNT                              
009879,000649: 04,2351           00006                           EXTEND                                         
009880,000650: 04,2352           12354                           BZF      +2                                    #  MATCH FOUND
009881,000651: 04,2353           00002                           TC       Q                                     
009882,000652: 04,2354           00001                           TC       L                                     #  SIGN LEGAL
009883,000653: 
009884,000654:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
009885,000655:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
009886,000656:                                                                                                  #  PROG ALM, TRACKER FAIL.
009887,000657:                                                                                                  #  LEAVES GIMBAL LOCK ALONE.
009888,000658:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
009889,000659:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
009890,000660:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
009891,000661: 
009892,000662: 04,2355           56105        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
009893,000663: 04,2356           54303                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
009894,000664: 04,2357           00004                           INHINT                                         
009895,000665: 04,2360           37752                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
009896,000666: 04,2361           00006                           EXTEND                                         
009897,000667: 04,2362           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
009898,000668: 04,2363           32444                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
009899,000669: 04,2364           70326                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
009900,000670: 04,2365           67745                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
009901,000671: 04,2366           54326                           TS       DSPTAB     +11D                       

Page 246

009903,000673: 04,2367           45642                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
009904,000674: 04,2370           70366                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
009905,000675: 04,2371           65642                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
009906,000676: 04,2372           54366                           TS       IMODES33                              
009907,000677: 04,2373           47752                           CS       BIT10                                 
009908,000678: 04,2374           70365                           MASK     IMODES30                              
009909,000679: 04,2375           67752                           AD       BIT10                                 
009910,000680: 04,2376           54365                           TS       IMODES30                              
009911,000681: 
009912,000682: 04,2377           42443                           CS       RFAILS                                
009913,000683: 04,2400           70412                           MASK     RADMODES                              
009914,000684: 04,2401           67755                           AD       BIT7                                  
009915,000685: 04,2402           54412                           TS       RADMODES                              
009916,000686: 
009917,000687: 04,2403           47752                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
009918,000688: 04,2404           00006                           EXTEND                                         
009919,000689: 04,2405           03013                           WAND     CHAN13                                
009920,000690: 04,2406           42442                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
009921,000691: 04,2407           00006                           EXTEND                                         #  OPERATOR ERROR.
009922,000692: 04,2410           03011                           WAND     DSALMOUT                              
009923,000693: 04,2411           34570        TSTAB              CAF      BINCON                                #  (DEC 10)
009924,000694: 04,2412           54107                           TS       ERCNT                                 #  ERCNT = COUNT
009925,000695: 04,2413           00004                           INHINT                                         
009926,000696: 04,2414           50107                           INDEX    ERCNT                                 
009927,000697: 04,2415           10313                           CCS      DSPTAB                                
009928,000698: 04,2416           67763                           AD       ONE                                   
009929,000699: 04,2417           02424                           TC       ERPLUS                                
009930,000700: 04,2420           67763                           AD       ONE                                   
009931,000701: 04,2421           40000        ERMINUS            CS       A                                     
009932,000702: 04,2422           72445                           MASK     NOTBIT12                              
009933,000703: 04,2423           02427                           TC       ERCOM                                 
009934,000704: 04,2424           40000        ERPLUS             CS       A                                     
009935,000705: 04,2425           72445                           MASK     NOTBIT12                              
009936,000706: 04,2426           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
009937,000707: 04,2427           50107        ERCOM              INDEX    ERCNT                                 #  ETC.
009938,000708: 04,2430           54313                           TS       DSPTAB                                
009939,000709: 04,2431           00003                           RELINT                                         
009940,000710: 04,2432           10107                           CCS      ERCNT                                 
009941,000711: 04,2433           02412                           TC       TSTAB      +1                         
009942,000712: 04,2434           37767                           CAF      ZERO                                  
009943,000713: 04,2435           55360                           TS       FAILREG                               
009944,000714: 04,2436           55361                           TS       FAILREG    +1                         
009945,000715: 04,2437           55362                           TS       FAILREG    +2                         
009946,000716: 04,2440           55357                           TS       SFAIL                                 
009947,000717: 04,2441           05567                           TC       ENDOFJOB                              
009948,000718: 
009949,000719: 04,2442           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
009950,000720:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
009951,000721: 04,2443           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
009952,000722: 04,2444           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS

Page 247

009954,000724: 04,2445           73777        NOTBIT12           OCT      73777                                 
009955,000725: 
009956,000726: 
009957,000727:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
009958,000728:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
009959,000729:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
009960,000730: 
009961,000731:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
009962,000732:                                                                                                  #  APPROPRIATE TO BE CLEARED.
009963,000733: 
009964,000734:                                                                                                  #  CLPASS   +0  PASS0, CAN BE BACKED UP
009965,000735:                                                                                                  #           +NZ  HIPASS, CAN BE BACKED UP
009966,000736:                                                                                                  #           -NZ  PASS0, CANNOT BE BACKED UP
009967,000737: 
009968,000738: 04,2446           10270        CLEAR              CCS      DSPCOUNT                              
009969,000739: 04,2447           67763                           AD       ONE                                   
009970,000740: 04,2450           02452                           TC       +2                                    
009971,000741: 04,2451           67763                           AD       ONE                                   
009972,000742: 04,2452           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
009973,000743: 04,2453           32217                           CAF      INRELTAB                              #  FAIL LEGALTST.
009974,000744: 04,2454           54127                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
009975,000745: 04,2455           10306                           CCS      CLPASS                                
009976,000746: 04,2456           02464                           TC       CLPASHI                               #  +
009977,000747: 04,2457           02461                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
009978,000748: 04,2460           02461                           TC       +1                                    #  -
009979,000749: 04,2461           30127                           CA       INREL                                 
009980,000750: 04,2462           02506                           TC       LEGALTST                              
009981,000751: 04,2463           02501                           TC       CLEAR1                                
009982,000752: 04,2464           10127        CLPASHI            CCS      INREL                                 
009983,000753: 04,2465           54127                           TS       INREL                                 
009984,000754: 04,2466           02506                           TC       LEGALTST                              
009985,000755: 04,2467           32555                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
009986,000756: 04,2470           26304                           ADS      REQRET                                
009987,000757: 04,2471           30127                           CA       INREL                                 
009988,000758: 04,2472           54115                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
009989,000759: 04,2473           00006                           EXTEND                                         
009990,000760: 04,2474           26272                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
009991,000761: 04,2475           05206                           TC       BANKCALL                              
009992,000762: 04,2476           12315                           CADR     UPDATVB                               
009993,000763: 04,2477           30115                           CA       MIXTEMP                               
009994,000764: 04,2500           54127                           TS       INREL                                 #  RESTORE INREL
009995,000765: 04,2501           02504        CLEAR1             TC       CLR5                                  
009996,000766: 04,2502           24306                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
009997,000767: 04,2503           05567                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
009998,000768: 04,2504           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
009999,000769: 04,2505           02516                           TC       5BLANK     +2                         
010000,000770: 04,2506           65336        LEGALTST           AD       NEG2                                  
010001,000771: 04,2507           10000                           CCS      A                                     
010002,000772: 04,2510           00002                           TC       Q                                     #  LEGAL  INREL G/ 2

Page 248

010004,000774: 04,2511           04736                           TC       CCSHOLE                               
010005,000775: 04,2512           05567                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
010006,000776: 04,2513           00002                           TC       Q                                     #  LEGAL    INREL = 2
010007,000777: 
010008,000778:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
010009,000779:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
010010,000780:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
010011,000781: 
010012,000782: 04,2514           22002        5BLANK             LXCH     Q                                     
010013,000783: 04,2515           02213                           TC       GETINREL                              
010014,000784: 04,2516           37767                           CAF      ZERO                                  
010015,000785: 04,2517           50127                           INDEX    INREL                                 
010016,000786: 04,2520           54272                           TS       VERBREG                               #  ZERO X, Y, Z REG.
010017,000787: 04,2521           50127                           INDEX    INREL                                 
010018,000788: 04,2522           54275                           TS       XREGLP     -2                         
010019,000789: 04,2523           54114                           TS       CODE                                  
010020,000790: 04,2524           50127                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
010021,000791: 04,2525           47755                           CS       BIT7                                  #  PROTECT OTHERS
010022,000792: 04,2526           70271                           MASK     DECBRNCH                              
010023,000793: 04,2527           72556                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
010024,000794: 04,2530           54271                           TS       DECBRNCH                              
010025,000795: 04,2531           50127                           INDEX    INREL                                 
010026,000796: 04,2532           32546                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
010027,000797: 04,2533           54133                           TS       COUNT                                 
010028,000798: 04,2534           03217                           TC       DSPIN                                 
010029,000799: 04,2535           50127        5BLANK1            INDEX    INREL                                 
010030,000800: 04,2536           32551                           CAF      DOUBLK     -2                         
010031,000801: 04,2537           54270                           TS       DSPCOUNT                              
010032,000802: 04,2540           02557                           TC       2BLANK                                
010033,000803: 04,2541           47762                           CS       TWO                                   
010034,000804: 04,2542           26270                           ADS      DSPCOUNT                              
010035,000805: 04,2543           02557                           TC       2BLANK                                
010036,000806: 04,2544           50127                           INDEX    INREL                                 
010037,000807: 04,2545           34525                           CAF      R1D1       -2                         
010038,000808: 04,2546           54270                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
010039,000809: 04,2547           00001                           TC       L                                     #  OF REG. JUST BLANKED
010040,000810: 
010041,000811: 04,2550           00016        SINBLANK           OCT      16                                    #  DEC 14
010042,000812: 04,2551           00005                           OCT      5                                     
010043,000813: 04,2552           00004                           OCT      4                                     
010044,000814: 04,2553           00015        DOUBLK             OCT      15                                    #  DEC 13
010045,000815: 04,2554           00011                           OCT      11                                    #  DEC 9
010046,000816: 04,2555           00003                           OCT      3                                     
010047,000817: 
010048,000818: 04,2556           77774        BRNCHCON           OCT      77774                                 
010049,000819: 
010050,000820:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
010051,000821:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT

Page 249

010053,000823: 
010054,000824: 04,2557           30270        2BLANK             CA       DSPCOUNT                              
010055,000825: 04,2560           54021                           TS       SR                                    
010056,000826: 04,2561           42572                           CS       BLANKCON                              
010057,000827: 04,2562           00004                           INHINT                                         
010058,000828: 04,2563           50021                           INDEX    SR                                    
010059,000829: 04,2564           56313                           XCH      DSPTAB                                
010060,000830: 04,2565           00006                           EXTEND                                         
010061,000831: 04,2566           62570                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
010062,000832: 04,2567           24307                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
010063,000833: 04,2570           00003                           RELINT                                         #  IF -,NOUT OK
010064,000834: 04,2571           00002                           TC       Q                                     
010065,000835: 04,2572           04000        BLANKCON           OCT      4000                                  
010066,000836: 

Page 250

010068,000838:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
010069,000839:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
010070,000840:                                                                                                  #  PASSES.
010071,000841: 
010072,000842: 
010073,000843:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
010074,000844:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
010075,000845:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
010076,000846: 
010077,000847: 05,2000                                           SETLOC   22000                                 
010078,000848: 
010079,000849: 05,2000           03344        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
010080,000850: 05,2001           13403        DSPMM              TCF      DSPMM1                                
010081,000851: 05,2002           02663        LOADLV1            TC       LOADLV                                
010082,000852:                                                                                                  #  END OF STANDARD LEAD INS.
010083,000853: 
010084,000854: 
010085,000855: 05,2003           37767        ENTER              CAF      ZERO                                  
010086,000856: 05,2004           54306                           TS       CLPASS                                
010087,000857: 05,2005           34505                           CAF      ENDINST                               
010088,000858: 05,2006           54126                           TS       ENTRET                                
010089,000859: 05,2007           10304                           CCS      REQRET                                
010090,000860: 05,2010           02031                           TC       ENTPAS0                               #  IF +, PASS 0
010091,000861: 05,2011           02031                           TC       ENTPAS0                               #  IF +, PASS 0
010092,000862: 05,2012           02013                           TC       +1                                    #  IF -, NOT PASS 0
010093,000863: 05,2013           36311                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN,
010094,000864: 05,2014           70271                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
010095,000865: 05,2015           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
010096,000866: 05,2016           02020                           TC       +2                                    #  CHARACTERS AND CONTINUE.
010097,000867: 05,2017           02024                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
010098,000868: 05,2020           10270                           CCS      DSPCOUNT                              
010099,000869: 05,2021           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
010100,000870: 05,2022           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
010101,000871: 05,2023           02024                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
010102,000872: 05,2024           40304        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
010103,000873: 05,2025           54304                           TS       REQRET                                #  SET REQRET +.
010104,000874: 05,2026           04626                           TC       FLASHOFF                              
010105,000875: 05,2027           00304                           TC       REQRET                                
010106,000876: 
010107,000877: 05,2030     0126               ENTEXIT            =        ENTRET                                
010108,000878: 
010109,000879: 05,2030           00030        LOWVERB            OCT      30                                    #  LOWER VERB THAT AVOIDS NOUN TEST
010110,000880: 
010111,000881: 05,2031           37767        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
010112,000882: 05,2032           54271                           TS       DECBRNCH                              
010113,000883: 05,2033           40272        TESTVB             CS       VERBREG                               #  IF VERB IS 30-77, SKIP NOUN TEST

Page 251

010115,000885: 05,2034           62030                           AD       LOWVERB                               #  30-VB
010116,000886: 05,2035           00006                           EXTEND                                         
010117,000887: 05,2036           62116                           BZMF     VERBFAN                               #  VERB G/E 30
010118,000888: 05,2037           00006        TESTNN             EXTEND                                         #  VERB L/ 30
010119,000889: 05,2040           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010120,000890: 05,2041           52006                           DXCH     Z                                     #  ROUTINE.
010121,000891: 05,2042           50130                           INDEX    MIXBR                                 
010122,000892: 05,2043           02043                           TC       +0                                    
010123,000893: 05,2044           02046                           TC       +2                                    #  NORMAL
010124,000894: 05,2045           02176                           TC       MIXNOUN                               #  MIXED
010125,000895: 05,2046           10136                           CCS      NNADTEM                               #  NORMAL
010126,000896: 05,2047           02114                           TC       VERBFAN    -2                         #       NORMAL IF +
010127,000897: 05,2050           02324                           TC       GODSPALM                              #  NOT IN USE   IF +0
010128,000898: 05,2051           02055                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
010129,000899: 05,2052           24310                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
010130,000900: 05,2053           04521                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010131,000901: 05,2054           02102                           TC       INTMCTBS   +2                         
010132,000902: 05,2055           37745        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
010133,000903: 05,2056           54306                           TS       CLPASS                                
010134,000904: 05,2057           44505                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
010135,000905: 05,2060           60126                           AD       ENTEXIT                               #              FROM EXTERNAL
010136,000906: 05,2061           00006                           EXTEND                                         
010137,000907: 05,2062           12064                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
010138,000908: 05,2063           02100                           TC       INTMCTBS                              
010139,000909: 05,2064           02256                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
010140,000910: 05,2065           10271                           CCS      DECBRNCH                              
010141,000911: 05,2066           02324                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MCTBS
010142,000912: 05,2067           56276                           XCH      ZREG                                  #  OCTAL USED    OK
010143,000913: 05,2070           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
010144,000914: 05,2071           00006                           EXTEND                                         
010145,000915: 05,2072           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010146,000916: 05,2073           52006                           DXCH     Z                                     #  ROUTINE.
010147,000917: 05,2074           02116                           TC       VERBFAN                               
010148,000918: 
010149,000919: 05,2075     0270                                  EBANK=   DSPCOUNT                              
010150,000920: 05,2075           02000 46060  LODNNLOC           2CADR    LODNNTAB                              
010151,000921: 
010152,000922: 05,2077           77772        NEG5               OCT      77772                                 
010153,000923: 
010154,000924: 05,2100           30146        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
010155,000925: 05,2101           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
010156,000926: 05,2102           47760                           CS       BIT4                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
010157,000927: 05,2103           70272                           MASK     VERBREG                               #  CADR TO BE SPECIFIED.
010158,000928: 05,2104           62077                           AD       NEG5                                  #  MASKING MAKES VB15 LOOK LIKE VB05.
010159,000929: 05,2105           00006                           EXTEND                                         
010160,000930: 05,2106           12116                           BZF      VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY CADR.
010161,000931: 05,2107           34531                           CAF      R3D1                                  #  VB NOT = 05 OR 15, DISPLAY CADR.
010162,000932: 05,2110           54270                           TS       DSPCOUNT                              
010163,000933: 05,2111           30310                           CA       NOUNCADR                              
010164,000934: 05,2112           03222                           TC       DSPOCTWD                              

Page 252

010166,000936: 05,2113           02116                           TC       VERBFAN                               
010167,000937: 
010168,000938: 05,2114           67763                           AD       ONE                                   
010169,000939: 05,2115           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010170,000940: 05,2116           42131        VERBFAN            CS       LST2CON                               
010171,000941: 05,2117           60272                           AD       VERBREG                               #  VERB-LST2CON
010172,000942: 05,2120           10000                           CCS      A                                     
010173,000943: 05,2121           67763                           AD       ONE                                   #  VERB G/ LST2CON
010174,000944: 05,2122           02124                           TC       +2                                    
010175,000945: 05,2123           02133                           TC       VBFANDIR                              #  VERB L/ LST2CON
010176,000946: 05,2124           54144                           TS       MPAC                                  
010177,000947: 05,2125           04666                           TC       RELDSP                                #  RELEASE DISPLAY SYST
010178,000948: 05,2126           56144                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
010179,000949: 05,2127           62132                           AD       LST2CADR                              
010180,000950: 05,2130           05230                           TC       BANKJUMP                              
010181,000951: 05,2131           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
010182,000952: 05,2132           22000        LST2CADR           CADR     LST2FAN                               
010183,000953: 
010184,000954: 05,2133           50272        VBFANDIR           INDEX    VERBREG                               
010185,000955: 05,2134           32136                           CAF      VERBTAB                               
010186,000956: 05,2135           05230                           TC       BANKJUMP                              
010187,000957: 
010188,000958: 05,2136           12324        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
010189,000959: 05,2137           12340                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
010190,000960: 05,2140           12345                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
010191,000961: 05,2141           12352                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
010192,000962: 05,2142           12333                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
010193,000963: 05,2143           12326                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
010194,000964: 05,2144           12445                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
010195,000965: 05,2145           10722                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
010196,000966: 05,2146           11315                           CADR     DSPALARM                              #  VB10 SPARE
010197,000967: 05,2147           13077                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
010198,000968: 05,2150           13077                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
010199,000969: 05,2151           13077                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
010200,000970: 05,2152           13077                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
010201,000971: 05,2153           13077                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
010202,000972: 05,2154           13077                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
010203,000973: 05,2155           13077                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
010204,000974: 05,2156           12324                           CADR     GODSPALM                              #  VB20 SPARE
010205,000975: 05,2157           12620                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
010206,000976: 05,2160           12631                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
010207,000977: 05,2161           12646                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
010208,000978: 05,2162           12572                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
010209,000979: 05,2163           12535                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
010210,000980: 05,2164           12324                           CADR     GODSPALM                              #  VB26 SPARE
010211,000981: 05,2165           13214                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
010212,000982:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
010213,000983: 05,2166           13314        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
010214,000984: 05,2167           13340                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
010215,000985: 05,2170           11343                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2

Page 253

010217,000987: 05,2171           11326                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
010218,000988: 05,2172           11333                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
010219,000989: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
010220,000990: 05,2174           02000                           CADR     SLAP1                                 #  VB36 FRESH START
010221,000991: 05,2175           13267        ENDVBFAN           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
010222,000992: 
010223,000993:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
010224,000994: 

Page 254

010226,000996:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
010227,000997:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
010228,000998:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
010229,000999:                                                                                                  #   MIXTEMP.
010230,001000: 
010231,001001: 05,2176           10136        MIXNOUN            CCS      NNADTEM                               
010232,001002: 05,2177           02203                           TC       +4                                    #  +  IN USE
010233,001003: 05,2200           02324                           TC       GODSPALM                              #  +0  NOT IN USE
010234,001004: 05,2201           02203                           TC       +2                                    #  -  IN USE
010235,001005: 05,2202           02203                           TC       +1                                    #  -0  IN USE
010236,001006: 05,2203           46306                           CS       SIX                                   
010237,001007: 05,2204           60272                           AD       VERBREG                               
010238,001008: 05,2205           00006                           EXTEND                                         
010239,001009: 05,2206           62210                           BZMF     +2                                    #  VERB L/E 6
010240,001010: 05,2207           02116                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
010241,001011: 05,2210           37762                           CAF      TWO                                   
010242,001012: 05,2211           54107        MIXNN1             TS       DECOUNT                               
010243,001013: 05,2212           62235                           AD       MIXAD                                 
010244,001014: 05,2213           54135                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
010245,001015: 05,2214           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010246,001016: 05,2215           30140                           CA       IDAD1TEM                              #  OF NOUN.
010247,001017: 05,2216           54112                           TS       NOUNTEM                               
010248,001018:                                                                                                  #  TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
010249,001019:                                                                                                  #    MINOR PART ONLY.
010250,001020: 05,2217           02721                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
010251,001021: 05,2220           02236                           TC       DPTEST                                
010252,001022: 05,2221           02223                           TC       MIXNN2                                #  NO DP
010253,001023: 05,2222           24112                           INCR     NOUNTEM                               #  DP GET MINOR PART
010254,001024: 05,2223           30112        MIXNN2             CA       NOUNTEM                               
010255,001025: 05,2224           74563                           MASK     LOW11                                 #  ESUBK (NO DP)  OR (ESUBK)+1    FOR DP
010256,001026: 05,2225           04523                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
010257,001027: 05,2226           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
010258,001028: 05,2227           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
010259,001029: 05,2230           50135                           INDEX    NOUNADD                               
010260,001030: 05,2231           56000                           XCH      0                                     #  STORE IN MIXTEM + K
010261,001031: 05,2232           10107                           CCS      DECOUNT                               
010262,001032: 05,2233           02211                           TC       MIXNN1                                
010263,001033: 05,2234           02116                           TC       VERBFAN                               
010264,001034: 
010265,001035: 05,2235           00115        MIXAD              TC       MIXTEMP                               
010266,001036: 
010267,001037:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
010268,001038:                                                                                                  #           RETURNS TO L+1 IF NO DP.
010269,001039:                                                                                                  #           RETURNS TO L+2 IF DP.
010270,001040: 
010271,001041: 05,2236           50000        DPTEST             INDEX    A                                     
010272,001042: 05,2237           12240                           TCF      +1                                    
010273,001043: 05,2240           00002                           TC       Q                                     #  OCTAL ONLY  NO DP

Page 255

010275,001045: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
010276,001046: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
010277,001047: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
010278,001048: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
010279,001049: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
010280,001050: 05,2246           00002                           TC       Q                                     #  OPDEG  NO DP
010281,001051: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
010282,001052: 05,2250           50002        DPTEST1            INDEX    Q                                     
010283,001053: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
010284,001054: 
010285,001055: 05,2252           34527        REQDATX            CAF      R1D1                                  
010286,001056: 05,2253           12257                           TCF      REQCOM                                
010287,001057: 05,2254           34530        REQDATY            CAF      R2D1                                  
010288,001058: 05,2255           12257                           TCF      REQCOM                                
010289,001059: 05,2256           34531        REQDATZ            CAF      R3D1                                  
010290,001060: 05,2257           54270        REQCOM             TS       DSPCOUNT                              
010291,001061: 05,2260           40002                           CS       Q                                     
010292,001062: 05,2261           54304                           TS       REQRET                                
010293,001063: 05,2262           05206                           TC       BANKCALL                              
010294,001064: 05,2263           10514                           CADR     5BLANK                                
010295,001065: 05,2264           04622                           TC       FLASHON                               
010296,001066: 05,2265           44505                           CS       ENDINST                               
010297,001067: 05,2266           60126                           AD       ENTEXIT                               
010298,001068: 05,2267           00006                           EXTEND                                         
010299,001069: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
010300,001070: 05,2271           47767                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
010301,001071: 05,2272           54327                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
010302,001072: 05,2273           00126        ENDRQDAT           TC       ENTEXIT                               
010303,001073: 
010304,001074:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
010305,001075:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
010306,001076: 
010307,001077: 05,2274           54273                           TS       NOUNREG                               
010308,001078: 05,2275           56002        UPDATNN            XCH      Q                                     
010309,001079: 05,2276           54107                           TS       UPDATRET                              
010310,001080: 05,2277           00006                           EXTEND                                         
010311,001081: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010312,001082: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
010313,001083: 05,2302           10136                           CCS      NNADTEM                               
010314,001084: 05,2303           67763                           AD       ONE                                   #  NORMAL
010315,001085: 05,2304           12307                           TCF      PUTADD                                
010316,001086: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
010317,001087: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
010318,001088: 05,2307           04513        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010319,001089: 05,2310           34566                           CAF      ND1                                   
010320,001090: 05,2311           54270                           TS       DSPCOUNT                              

Page 256

010322,001092: 05,2312           30273                           CA       NOUNREG                               
010323,001093: 05,2313           12322                           TCF      UPDAT1                                
010324,001094: 
010325,001095: 05,2314           54272                           TS       VERBREG                               
010326,001096: 05,2315           56002        UPDATVB            XCH      Q                                     
010327,001097: 05,2316           54107                           TS       UPDATRET                              
010328,001098: 05,2317           34565                           CAF      VD1                                   
010329,001099: 05,2320           54270                           TS       DSPCOUNT                              
010330,001100: 05,2321           30272                           CA       VERBREG                               
010331,001101: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
010332,001102: 05,2323           00107                           TC       UPDATRET                              
010333,001103: 
010334,001104: 05,2324           05225        GODSPALM           TC       POSTJUMP                              
010335,001105: 05,2325           11315                           CADR     DSPALARM                              
010336,001106: 

Page 257

010338,001108:                                                                                                  #           NOUN TABLES
010339,001109:                                                                                                  #  NOUN CODE L/ 55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
010340,001110:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
010341,001111:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
010342,001112:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
010343,001113:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
010344,001114: 
010345,001115:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
010346,001116:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
010347,001117: 
010348,001118:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
010349,001119: 
010350,001120:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
010351,001121:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
010352,001122:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
010353,001123: 
010354,001124:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
010355,001125:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
010356,001126:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
010357,001127:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
010358,001128:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
010359,001129:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
010360,001130: 
010361,001131:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
010362,001132:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
010363,001133:                                                                                                  #  THE FIRST OF THESE ENTRIES.
010364,001134:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
010365,001135:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
010366,001136: 
010367,001137:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
010368,001138:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
010369,001139:                                                                                                  #        QQQQQRRRRRSSSSS
010370,001140:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
010371,001141:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
010372,001142:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
010373,001143:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
010374,001144:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
010375,001145: 
010376,001146: 
010377,001147:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
010378,001148:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
010379,001149:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
010380,001150:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
010381,001151:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
010382,001152: 
010383,001153: 
010384,001154:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
010385,001155:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.

Page 258

010387,001157: 
010388,001158:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
010389,001159:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
010390,001160: 

Page 259

010392,001162:                                                                                                  #           DISPLAY VERBS
010393,001163: 
010394,001164: 05,2326           47762        DSPABC             CS       TWO                                   
010395,001165: 05,2327           02376                           TC       COMPTEST                              
010396,001166: 05,2330           50135                           INDEX    NOUNADD                               
010397,001167: 05,2331           40002                           CS       2                                     
010398,001168: 05,2332           56122                           XCH      BUF        +2                         
010399,001169: 05,2333           47763        DSPAB              CS       ONE                                   
010400,001170: 05,2334           02376                           TC       COMPTEST                              
010401,001171: 05,2335           50135                           INDEX    NOUNADD                               
010402,001172: 05,2336           40001                           CS       1                                     
010403,001173: 05,2337           56121                           XCH      BUF        +1                         
010404,001174: 05,2340           02420        DSPA               TC       TSTFORDP                              
010405,001175: 05,2341           50135                           INDEX    NOUNADD                               
010406,001176: 05,2342           40000                           CS       0                                     
010407,001177: 05,2343           56120        DSPCOM1            XCH      BUF                                   
010408,001178: 05,2344           02357                           TC       DSPCOM2                               
010409,001179: 05,2345           47763        DSPB               CS       ONE                                   
010410,001180: 05,2346           02376                           TC       COMPTEST                              
010411,001181: 05,2347           50135                           INDEX    NOUNADD                               
010412,001182: 05,2350           40001                           CS       1                                     
010413,001183: 05,2351           02343                           TC       DSPCOM1                               
010414,001184: 05,2352           47762        DSPC               CS       TWO                                   
010415,001185: 05,2353           02376                           TC       COMPTEST                              
010416,001186: 05,2354           50135                           INDEX    NOUNADD                               
010417,001187: 05,2355           40002                           CS       2                                     
010418,001188: 05,2356           02343                           TC       DSPCOM1                               
010419,001189: 05,2357           47762        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
010420,001190: 05,2360           60272                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
010421,001191: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
010422,001192: 05,2362           02365                           TC       DSPCOM3                               
010423,001193: 05,2363           00126                           TC       ENTEXIT                               
010424,001194: 05,2364           02365                           TC       +1                                    
010425,001195: 05,2365           54112        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
010426,001196: 05,2366           50000                           INDEX    A                                     
010427,001197: 05,2367           34527                           CAF      R1D1                                  
010428,001198: 05,2370           54270                           TS       DSPCOUNT                              
010429,001199: 05,2371           50112                           INDEX    DISTEM                                
010430,001200: 05,2372           40120                           CS       BUF                                   
010431,001201: 05,2373           03222                           TC       DSPOCTWD                              
010432,001202: 05,2374           56112                           XCH      DISTEM                                
010433,001203: 05,2375           02361                           TC       DSPCOM2    +2                         
010434,001204: 
010435,001205:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
010436,001206:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
010437,001207:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
010438,001208: 05,2376           54113        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
010439,001209: 05,2377           22002                           LXCH     Q                                     
010440,001210: 05,2400           47763        COMPTST1           CS       ONE                                   
010441,001211: 05,2401           60273                           AD       NOUNREG                               
010442,001212: 05,2402           00006                           EXTEND                                         

Page 260

010444,001214: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
010445,001215: 05,2404           50130                           INDEX    MIXBR                                 #  NOUN NOT = 01.
010446,001216: 05,2405           32442                           CAF      COMPICK    -1                         
010447,001217: 05,2406           50000                           INDEX    A                                     
010448,001218: 05,2407           30000                           CA       0                                     
010449,001219: 05,2410           74560                           MASK     HI5                                   
010450,001220: 05,2411           04541                           TC       LEFT5                                 #  NOUN COMP
010451,001221: 05,2412           60113                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
010452,001222: 05,2413           10000                           CCS      A                                     
010453,001223: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
010454,001224: 05,2415           04736                           TC       CCSHOLE                               
010455,001225: 05,2416           02324                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
010456,001226: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
010457,001227: 
010458,001228: 
010459,001229: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
010460,001230: 05,2421           30136                           CA       NNADTEM                               
010461,001231: 05,2422           67763                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010462,001232: 05,2423           00006                           EXTEND                                         
010463,001233: 05,2424           12436                           BZF      CHANDSP                               
010464,001234: 05,2425           50130                           INDEX    MIXBR                                 
010465,001235: 05,2426           02426                           TC       +0                                    
010466,001236: 05,2427           02431                           TC       +2                                    #  NORMAL
010467,001237: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
010468,001238: 05,2431           02713                           TC       SFRUTNOR                              
010469,001239: 05,2432           02236                           TC       DPTEST                                
010470,001240: 05,2433           00001                           TC       L                                     #  NO DP
010471,001241: 05,2434           24135                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
010472,001242: 05,2435           00001                           TC       L                                     
010473,001243: 
010474,001244: 05,2436           00006        CHANDSP            EXTEND                                         
010475,001245: 05,2437           50310                           INDEX    NOUNCADR                              
010476,001246: 05,2440           00000                           READ     0                                     
010477,001247: 05,2441           40000                           CS       A                                     
010478,001248: 05,2442           12343                           TCF      DSPCOM1                               
010479,001249: 
010480,001250: 
010481,001251: 05,2443           00137        COMPICK            ADRES    NNTYPTEM                              
010482,001252: 05,2444           00136                           ADRES    NNADTEM                               
010483,001253: 
010484,001254: 05,2445           50130        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
010485,001255: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
010486,001256: 05,2447           50000                           INDEX    A                                     
010487,001257: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
010488,001258: 05,2451           74560                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB (MIX)
010489,001259: 05,2452           04541                           TC       LEFT5                                 

Page 261

010491,001261: 
010492,001262: 05,2453           54107                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
010493,001263: 05,2454           54112        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
010494,001264: 05,2455           60135                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
010495,001265: 05,2456           50000                           INDEX    A                                     
010496,001266: 05,2457           40000                           CS       0                                     
010497,001267: 05,2460           50112                           INDEX    DECTEM                                
010498,001268: 05,2461           56274                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
010499,001269: 05,2462           10112                           CCS      DECTEM                                
010500,001270: 05,2463           02454                           TC       DSPDCGET                              #  MORE TO GET
010501,001271: 05,2464           37767        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
010502,001272: 05,2465           54145                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
010503,001273: 05,2466           54146                           TS       MPAC       +2                         
010504,001274: 05,2467           50107                           INDEX    DECOUNT                               
010505,001275: 05,2470           34527                           CAF      R1D1                                  
010506,001276: 05,2471           54270                           TS       DSPCOUNT                              
010507,001277: 05,2472           50107                           INDEX    DECOUNT                               
010508,001278: 05,2473           40274                           CS       XREG                                  
010509,001279: 05,2474           54144                           TS       MPAC                                  
010510,001280: 05,2475           02734                           TC       SFCONUM                               #  2X( SF CON NUMB ) IN A
010511,001281: 05,2476           54113                           TS       SFTEMP1                               
010512,001282: 05,2477           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
010513,001283: 05,2500           32512                           DCA      GTSFOUTL                              #     READING ROUTINE.
010514,001284: 05,2501           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
010515,001285: 05,2502           50130                           INDEX    MIXBR                                 
010516,001286: 05,2503           02503                           TC       +0                                    
010517,001287: 05,2504           02507                           TC       DSPSFNOR                              
010518,001288: 05,2505           02721                           TC       SFRUTMIX                              
010519,001289: 05,2506           02522                           TC       DECDSP3                               
010520,001290: 
010521,001291: 05,2507           02713        DSPSFNOR           TC       SFRUTNOR                              
010522,001292: 05,2510           02522                           TC       DECDSP3                               
010523,001293: 
010524,001294: 05,2511     0270                                  EBANK=   DSPCOUNT                              
010525,001295: 05,2511           02037 46060  GTSFOUTL           2CADR    GTSFOUT                               
010526,001296: 
010527,001297: 
010528,001298: 05,2513           05206        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
010529,001299: 05,2514           11117                           CADR     DSPDECWD                              
010530,001300: 05,2515           10107                           CCS      DECOUNT                               
010531,001301: 05,2516           02520                           TC       +2                                    
010532,001302: 05,2517           00126                           TC       ENTEXIT                               
010533,001303: 05,2520           54107                           TS       DECOUNT                               
010534,001304: 05,2521           02464                           TC       DSPDCPUT                              #  MORE TO DISPLAY
010535,001305: 
010536,001306: 05,2522           50000        DECDSP3            INDEX    A                                     
010537,001307: 05,2523           32525                           CAF      SFOUTABR                              
010538,001308: 05,2524           05230                           TC       BANKJUMP                              
010539,001309: 

Page 262

010541,001311: 05,2525           11315        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
010542,001312: 05,2526           12513                           CADR     DSPDCEND                              
010543,001313: 05,2527           10573                           CADR     DEGOUTSF                              
010544,001314: 05,2530           10660                           CADR     ARTOUTSF                              
010545,001315: 05,2531           10665                           CADR     DP1OUTSF                              
010546,001316: 05,2532           10672                           CADR     DP2OUTSF                              
010547,001317: 05,2533           10601                           CADR     OPDEGOUT                              
010548,001318: 05,2534           10674                           CADR     DP3OUTSF                              
010549,001319: 05,2535                        ENDRTOUT           EQUALS                                         
010550,001320: 
010551,001321:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
010552,001322:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
010553,001323: 
010554,001324: 04,2573                                           SETLOC   BLANKCON   +1                         
010555,001325: 
010556,001326:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
010557,001327:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
010558,001328: 
010559,001329: 04,2573           37767        DEGOUTSF           CAF      ZERO                                  
010560,001330: 04,2574           54146                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
010561,001331: 04,2575           02632                           TC       FIXRANGE                              
010562,001332: 04,2576           02600                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
010563,001333: 04,2577           02625                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
010564,001334: 04,2600           02643                           TC       DEGCOM                                
010565,001335: 
010566,001336:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
010567,001337: 
010568,001338: 04,2601           10144        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
010569,001339: 04,2602           56144                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
010570,001340: 04,2603           02606                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
010571,001341: 04,2604           02615                           TC       NEGOPT                                #  IF NEG NON ZERO
010572,001342: 04,2605           67771                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
010573,001343: 04,2606           62657                           AD       20BIAS                                
010574,001344: 04,2607           54144        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
010575,001345: 04,2610           02613                           TC       +3                                    #  NO OVFLOW
010576,001346: 04,2611           37745                           CAF      BIT15                                 #  IF OVFLOW
010577,001347: 04,2612           26144                           ADS      MPAC                                  
010578,001348: 04,2613           37762                           CAF      TWO                                   #  SET MULTIPLIER TO .45
010579,001349: 04,2614           02574                           TC       DEGOUTSF   +1                         
010580,001350: 
010581,001351: 04,2615           56144        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
010582,001352: 04,2616           62657                           AD       20BIAS                                
010583,001353: 04,2617           10000                           CCS      A                                     
010584,001354: 04,2620           02607                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
010585,001355: 04,2621           04736                           TC       CCSHOLE                               
010586,001356: 04,2622           67763                           AD       ONE                                   #  IF NEG RESTORE SUM
010587,001357: 

Page 263

010589,001359: 04,2623           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
010590,001360: 04,2624           02607                           TC       BIASCOM                               
010591,001361: 
010592,001362: 04,2625           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
010593,001363: 04,2626           50146                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
010594,001364: 04,2627           32654                           DCA      DEGTAB                                
010595,001365: 04,2630           52114                           DXCH     SFTEMP1                               
010596,001366: 04,2631           00002                           TC       Q                                     
010597,001367: 
010598,001368: 04,2632           10144        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
010599,001369: 04,2633           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
010600,001370: 04,2634           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
010601,001371: 04,2635           12636                           TCF      +1                                    
010602,001372: 04,2636           47745                           CS       BIT15                                 
010603,001373: 04,2637           70144                           MASK     MPAC                                  
010604,001374: 04,2640           54144                           TS       MPAC                                  
010605,001375: 04,2641           50002                           INDEX    Q                                     
010606,001376: 04,2642           00001                           TC       1                                     
010607,001377: 
010608,001378: 04,2643           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER , DOES SHORTMP, AND
010609,001379: 04,2644           50146                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
010610,001380: 04,2645           32654                           DCA      DEGTAB                                
010611,001381: 04,2646           52145                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
010612,001382: 04,2647           07357                           TC       SHORTMP                               
010613,001383: 04,2650           52114                           DXCH     SFTEMP1                               
010614,001384: 04,2651           20145                           DAS      MPAC                                  
010615,001385: 04,2652           02663                           TC       SCOUTEND                              
010616,001386: 
010617,001387: 
010618,001388: 04,2653           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
010619,001389: 04,2654           03656                           OCT      03656                                 #  LOW PART OF    .18
010620,001390: 04,2655           16314                           OCT      16314                                 #  HI PART OF     .45
010621,001391: 04,2656           31463                           OCT      31463                                 #  LO PART OF     .45
010622,001392: 
010623,001393: 04,2657           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
010624,001394: 
010625,001395: 04,2660           52114        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
010626,001396: 04,2661           52145                           DXCH     MPAC                                  
010627,001397: 04,2662           07357                           TC       SHORTMP                               
010628,001398: 04,2663           05225        SCOUTEND           TC       POSTJUMP                              
010629,001399: 04,2664           12513                           CADR     DSPDCEND                              
010630,001400: 
010631,001401: 04,2665           02677        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010632,001402: 04,2666           56146                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
010633,001403: 04,2667           56145                           XCH      MPAC       +1                         #  BY B14.
010634,001404: 04,2670           54144                           TS       MPAC                                  
010635,001405: 04,2671           02663                           TC       SCOUTEND                              

Page 264

010637,001407: 
010638,001408: 04,2672           02677        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010639,001409: 04,2673           02663                           TC       SCOUTEND                              
010640,001410: 
010641,001411: 
010642,001412: 04,2674           02677        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010643,001413: 04,2675           03072                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
010644,001414: 04,2676           02663                           TC       SCOUTEND                              
010645,001415: 
010646,001416:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
010647,001417:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
010648,001418: 
010649,001419: 04,2677           56002        DPOUT              XCH      Q                                     
010650,001420: 04,2700           54111                           TS       OVFIND                                
010651,001421: 04,2701           50130                           INDEX    MIXBR                                 
010652,001422: 04,2702           02702                           TC       +0                                    
010653,001423: 04,2703           02720                           TC       DPOUTNOR                              
010654,001424: 04,2704           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010655,001425: 04,2705           30140                           CA       IDAD1TEM                              #      OF NOUN.
010656,001426: 04,2706           74563                           MASK     LOW11                                 #  E SUBK
010657,001427: 04,2707           04523                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
010658,001428: 04,2710           00006        DPOUTCOM           EXTEND                                         
010659,001429: 04,2711           50000                           INDEX    A                                     #  MIXED         NORMAL
010660,001430: 04,2712           30001                           DCA      0                                     #  C(ESUBK)      C(E)
010661,001431: 04,2713           52145                           DXCH     MPAC                                  #  C((E SUBK)+1)      C(E+1)
010662,001432: 04,2714           07327                           TC       TPAGREE                               
010663,001433: 04,2715           07155                           TC       DMP                                   
010664,001434: 04,2716           00113                           ADRES    SFTEMP1                               
010665,001435: 04,2717           00111                           TC       OVFIND                                
010666,001436: 
010667,001437: 04,2720           30135        DPOUTNOR           CA       NOUNADD                               #  E
010668,001438: 04,2721           02710                           TC       DPOUTCOM                              
010669,001439: 
010670,001440: 
010671,001441:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
010672,001442:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
010673,001443:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
010674,001444:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
010675,001445:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
010676,001446:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
010677,001447: 
010678,001448: 
010679,001449: 04,2722           50130        DSPDPDEC           INDEX    MIXBR                                 
010680,001450: 04,2723           02723                           TC       +0                                    
010681,001451: 04,2724           02726                           TC       +2                                    #  NORMAL NOUN
010682,001452: 04,2725           03315                           TC       DSPALARM                              
010683,001453: 

Page 265

010685,001455: 04,2726           00006                           EXTEND                                         
010686,001456: 04,2727           50135                           INDEX    NOUNADD                               
010687,001457: 04,2730           30001                           DCA      0                                     
010688,001458: 04,2731           52145                           DXCH     MPAC                                  
010689,001459: 04,2732           34527                           CAF      R1D1                                  
010690,001460: 04,2733           54270                           TS       DSPCOUNT                              
010691,001461: 04,2734           37767                           CAF      ZERO                                  
010692,001462: 04,2735           54146                           TS       MPAC       +2                         
010693,001463: 04,2736           07327                           TC       TPAGREE                               
010694,001464: 04,2737           03173                           TC       DSP2DEC                               
010695,001465: 04,2740           00126        ENDDPDEC           TC       ENTEXIT                               
010696,001466: 

Page 266

010698,001468:                                                                                                  #           LOAD VERBS
010699,001469: 
010700,001470: 
010701,001471: 05,2535                                           SETLOC   ENDRTOUT                              
010702,001472: 
010703,001473: 05,2535           47762        ABCLOAD            CS       TWO                                   
010704,001474: 05,2536           02376                           TC       COMPTEST                              
010705,001475: 05,2537           32673                           CAF      VBSP1LD                               
010706,001476: 05,2540           02314                           TC       UPDATVB    -1                         
010707,001477: 05,2541           02252                           TC       REQDATX                               
010708,001478: 05,2542           32674                           CAF      VBSP2LD                               
010709,001479: 05,2543           02314                           TC       UPDATVB    -1                         
010710,001480: 05,2544           02254                           TC       REQDATY                               
010711,001481: 05,2545           32675                           CAF      VBSP3LD                               
010712,001482: 05,2546           02314                           TC       UPDATVB    -1                         
010713,001483: 05,2547           02256                           TC       REQDATZ                               
010714,001484: 
010715,001485: 
010716,001486: 05,2550           46306        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
010717,001487: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010718,001488: 05,2552           00006                           EXTEND                                         
010719,001489: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010720,001490: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
010721,001491: 05,2555           37767                           CAF      ZERO                                  #  X COMP
010722,001492: 05,2556           02762                           TC       PUTCOM                                
010723,001493: 05,2557           50135                           INDEX    NOUNADD                               
010724,001494: 05,2560           54000                           TS       0                                     
010725,001495: 05,2561           37763                           CAF      ONE                                   #  Y COMP
010726,001496: 05,2562           02762                           TC       PUTCOM                                
010727,001497: 05,2563           50135                           INDEX    NOUNADD                               
010728,001498: 05,2564           54001                           TS       1                                     
010729,001499: 05,2565           37762                           CAF      TWO                                   #  Z COMP
010730,001500: 05,2566           02762                           TC       PUTCOM                                
010731,001501: 05,2567           50135                           INDEX    NOUNADD                               
010732,001502: 05,2570           54002                           TS       2                                     
010733,001503: 05,2571           02663                           TC       LOADLV                                
010734,001504: 
010735,001505: 05,2572           47763        ABLOAD             CS       ONE                                   
010736,001506: 05,2573           02376                           TC       COMPTEST                              
010737,001507: 05,2574           32673                           CAF      VBSP1LD                               
010738,001508: 05,2575           02314                           TC       UPDATVB    -1                         
010739,001509: 05,2576           02252                           TC       REQDATX                               
010740,001510: 05,2577           32674                           CAF      VBSP2LD                               
010741,001511: 05,2600           02314                           TC       UPDATVB    -1                         
010742,001512: 05,2601           02254                           TC       REQDATY                               
010743,001513: 05,2602           47766        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
010744,001514: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010745,001515: 05,2604           00006                           EXTEND                                         

Page 267

010747,001517: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010748,001518: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
010749,001519: 05,2607           37767                           CAF      ZERO                                  #  X COMP
010750,001520: 05,2610           02762                           TC       PUTCOM                                
010751,001521: 05,2611           50135                           INDEX    NOUNADD                               
010752,001522: 05,2612           54000                           TS       0                                     
010753,001523: 05,2613           37763                           CAF      ONE                                   #  Y COMP
010754,001524: 05,2614           02762                           TC       PUTCOM                                
010755,001525: 05,2615           50135                           INDEX    NOUNADD                               
010756,001526: 05,2616           54001                           TS       1                                     
010757,001527: 05,2617           02663                           TC       LOADLV                                
010758,001528: 
010759,001529: 05,2620           02252        ALOAD              TC       REQDATX                               
010760,001530: 05,2621           00006                           EXTEND                                         
010761,001531: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010762,001532: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
010763,001533: 05,2624           37767                           CAF      ZERO                                  #  X COMP
010764,001534: 05,2625           02762                           TC       PUTCOM                                
010765,001535: 05,2626           50135                           INDEX    NOUNADD                               
010766,001536: 05,2627           54000                           TS       0                                     
010767,001537: 05,2630           02663                           TC       LOADLV                                
010768,001538: 
010769,001539: 05,2631           47763        BLOAD              CS       ONE                                   
010770,001540: 05,2632           02376                           TC       COMPTEST                              
010771,001541: 05,2633           37745                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010772,001542: 05,2634           54306                           TS       CLPASS                                
010773,001543: 05,2635           02254                           TC       REQDATY                               
010774,001544: 05,2636           00006                           EXTEND                                         
010775,001545: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010776,001546: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
010777,001547: 05,2641           37763                           CAF      ONE                                   
010778,001548: 05,2642           02762                           TC       PUTCOM                                
010779,001549: 05,2643           50135                           INDEX    NOUNADD                               
010780,001550: 05,2644           54001                           TS       1                                     
010781,001551: 05,2645           02663                           TC       LOADLV                                
010782,001552: 
010783,001553: 05,2646           47762        CLOAD              CS       TWO                                   
010784,001554: 05,2647           02376                           TC       COMPTEST                              
010785,001555: 05,2650           37745                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010786,001556: 05,2651           54306                           TS       CLPASS                                
010787,001557: 05,2652           02256                           TC       REQDATZ                               
010788,001558: 05,2653           00006                           EXTEND                                         
010789,001559: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010790,001560: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
010791,001561: 05,2656           37762                           CAF      TWO                                   
010792,001562: 05,2657           02762                           TC       PUTCOM                                
010793,001563: 05,2660           50135                           INDEX    NOUNADD                               
010794,001564: 05,2661           54002                           TS       2                                     
010795,001565: 05,2662           02663                           TC       LOADLV                                
010796,001566: 

Page 268

010798,001568: 05,2663           37767        LOADLV             CAF      ZERO                                  
010799,001569: 05,2664           54271                           TS       DECBRNCH                              
010800,001570: 05,2665           47767                           CS       ZERO                                  
010801,001571: 05,2666           54305                           TS       LOADSTAT                              
010802,001572: 05,2667           44565                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
010803,001573: 05,2670           54270                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
010804,001574: 05,2671           05225                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
010805,001575: 05,2672           11440                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
010806,001576: 
010807,001577: 05,2673           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
010808,001578: 05,2674           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
010809,001579: 05,2675           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
010810,001580: 
010811,001581: 05,2676           54107        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
010812,001582: 05,2677           40271                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
010813,001583: 05,2700           54021                           TS       SR                                    
010814,001584: 05,2701           40021                           CS       SR                                    
010815,001585: 05,2702           40021                           CS       SR                                    #  SHIFTED RIGHT 2
010816,001586: 05,2703           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
010817,001587: 05,2704           12706                           TCF      +2                                    #  SOME ONES IN LOW 3
010818,001588: 05,2705           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
010819,001589: 05,2706           60107                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
010820,001590: 05,2707           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
010821,001591: 05,2710           12712                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
010822,001592: 05,2711           02324                           TC       GODSPALM                              
010823,001593: 05,2712           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC.  OK
010824,001594: 
010825,001595: 05,2713           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
010826,001596: 05,2714           54104                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
010827,001597: 05,2715           34557                           CAF      MID5                                  
010828,001598: 05,2716           70137                           MASK     NNTYPTEM                              
010829,001599: 05,2717           04532                           TC       RIGHT5                                
010830,001600: 05,2720           00104                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
010831,001601: 
010832,001602: 05,2721           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
010833,001603: 05,2722           54104                           TS       EXITEM                                
010834,001604: 05,2723           50107                           INDEX    DECOUNT                               
010835,001605: 05,2724           32753                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010836,001606: 05,2725           54001                           TS       L                                     
010837,001607: 05,2726           50107                           INDEX    DECOUNT                               
010838,001608: 05,2727           34556                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
010839,001609: 05,2730           70143                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
010840,001610: 05,2731           50001                           INDEX    L                                     
010841,001611: 05,2732           00000                           TC       0                                     
010842,001612:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010843,001613: 05,2733           00104        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
010844,001614: 

Page 269

010846,001616: 05,2734           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
010847,001617: 05,2735           54104                           TS       EXITEM                                
010848,001618: 05,2736           50130                           INDEX    MIXBR                                 
010849,001619: 05,2737           02737                           TC       +0                                    
010850,001620: 05,2740           02756                           TC       CONUMNOR                              #  NORMAL NOUN
010851,001621: 05,2741           50107                           INDEX    DECOUNT                               #  MIXED NOUN
010852,001622: 05,2742           32753                           CAF      DISPLACE                              
010853,001623: 05,2743           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010854,001624: 05,2744           50107                           INDEX    DECOUNT                               
010855,001625: 05,2745           34556                           CAF      LOW5                                  
010856,001626: 05,2746           70137                           MASK     NNTYPTEM                              
010857,001627: 05,2747           50001                           INDEX    L                                     
010858,001628: 05,2750           00000                           TC       0                                     
010859,001629:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010860,001630: 05,2751           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
010861,001631: 05,2752           00104                           TC       EXITEM                                
010862,001632: 
010863,001633: 05,2753           02712        DISPLACE           TC       GOQ                                   
010864,001634: 05,2754           04532                           TC       RIGHT5                                
010865,001635: 05,2755           04541                           TC       LEFT5                                 
010866,001636: 
010867,001637: 05,2756           34556        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
010868,001638: 05,2757           70137                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
010869,001639: 05,2760           60000                           DOUBLE                                         
010870,001640: 05,2761           00104                           TC       EXITEM                                #  2X(SF CONSTANT NUMBER) IN A
010871,001641: 
010872,001642: 
010873,001643: 05,2762           54107        PUTCOM             TS       DECOUNT                               
010874,001644: 05,2763           56002                           XCH      Q                                     
010875,001645: 05,2764           54105                           TS       DECRET                                
010876,001646: 05,2765           37767                           CAF      ZERO                                  
010877,001647: 05,2766           54111                           TS       OVFIND                                
010878,001648: 05,2767           50107                           INDEX    DECOUNT                               
010879,001649: 05,2770           56277                           XCH      XREGLP                                
010880,001650: 05,2771           54145                           TS       MPAC       +1                         
010881,001651: 05,2772           50107                           INDEX    DECOUNT                               
010882,001652: 05,2773           56274                           XCH      XREG                                  
010883,001653: 05,2774           54144                           TS       MPAC                                  
010884,001654: 05,2775           50130                           INDEX    MIXBR                                 
010885,001655: 05,2776           02776                           TC       +0                                    
010886,001656: 05,2777           03023                           TC       PUTNORM                               #  NORMAL NOUN
010887,001657:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
010888,001658: 05,3000           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010889,001659: 05,3001           30140                           CA       IDAD1TEM                              #          OF NOUN.
010890,001660: 05,3002           74563                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
010891,001661: 05,3003           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010892,001662: 05,3004           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
010893,001663: 05,3005           60107                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
010894,001664: 05,3006           54135                           TS       NOUNADD                               

Page 270

010896,001666: 05,3007           10271                           CCS      DECBRNCH                              
010897,001667: 05,3010           03051                           TC       PUTDECSF                              #  +  DEC
010898,001668: 05,3011           02721                           TC       SFRUTMIX                              #  +0  OCTAL
010899,001669: 05,3012           02236                           TC       DPTEST                                
010900,001670: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
010901,001671:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
010902,001672:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
010903,001673:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
010904,001674: 05,3014           24135        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
010905,001675: 05,3015           30135                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
010906,001676: 05,3016           26107                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
010907,001677: 05,3017           37767                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
010908,001678: 05,3020           50107                           INDEX    DECOUNT                               
010909,001679: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
010910,001680: 05,3022           03040                           TC       PUTCOM2                               
010911,001681: 
010912,001682: 05,3023           04521        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010913,001683: 05,3024           10271                           CCS      DECBRNCH                              
010914,001684: 05,3025           03051                           TC       PUTDECSF                              #  +  DEC
010915,001685: 05,3026           02713                           TC       SFRUTNOR                              #  +0  OCTAL
010916,001686: 05,3027           02236                           TC       DPTEST                                
010917,001687: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
010918,001688: 05,3031           37767                           CAF      ZERO                                  #  DP
010919,001689: 05,3032           54107                           TS       DECOUNT                               
010920,001690: 05,3033           03014                           TC       PUTDPCOM                              
010921,001691: 
010922,001692: 05,3034           30136                           CA       NNADTEM                               
010923,001693: 05,3035           67763                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010924,001694: 05,3036           00006                           EXTEND                                         
010925,001695: 05,3037           13044                           BZF      CHANLOAD                              
010926,001696: 05,3040           56144        PUTCOM2            XCH      MPAC                                  
010927,001697: 05,3041           00105                           TC       DECRET                                
010928,001698: 
010929,001699: 05,3042     0270                                  EBANK=   DSPCOUNT                              
010930,001700: 05,3042           02045 46060  GTSFINLC           2CADR    GTSFIN                                
010931,001701: 
010932,001702: 
010933,001703: 05,3044           56144        CHANLOAD           XCH      MPAC                                  
010934,001704: 05,3045           00006                           EXTEND                                         
010935,001705: 05,3046           50310                           INDEX    NOUNCADR                              
010936,001706: 05,3047           01000                           WRITE    0                                     
010937,001707: 05,3050           02663                           TC       LOADLV                                
010938,001708: 
010939,001709:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
010940,001710: 
010941,001711: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
010942,001712: 05,3052           54113                           TS       SFTEMP1                               

Page 271

010944,001714: 05,3053           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
010945,001715: 05,3054           33043                           DCA      GTSFINLC                              #  READING ROUTINE.
010946,001716: 05,3055           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
010947,001717: 05,3056           50130                           INDEX    MIXBR                                 
010948,001718: 05,3057           03057                           TC       +0                                    
010949,001719: 05,3060           03063                           TC       PUTSFNOR                              
010950,001720: 05,3061           02721                           TC       SFRUTMIX                              
010951,001721: 05,3062           03064                           TC       PUTDCSF2                              
010952,001722: 05,3063           02713        PUTSFNOR           TC       SFRUTNOR                              
010953,001723: 
010954,001724: 05,3064           50000        PUTDCSF2           INDEX    A                                     
010955,001725: 05,3065           33067                           CAF      SFINTABR                              
010956,001726: 05,3066           05230                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
010957,001727: 05,3067           11315        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
010958,001728: 05,3070           11021                           CADR     BINROUND                              
010959,001729: 05,3071           10741                           CADR     DEGINSF                               
010960,001730: 05,3072           11011                           CADR     ARTHINSF                              
010961,001731: 05,3073           11041                           CADR     DPINSF                                
010962,001732: 05,3074           11066                           CADR     DPINSF2                               
010963,001733: 05,3075           11024                           CADR     OPTDEGIN                              
010964,001734: 05,3076           11041                           CADR     DPINSF                                #  SAME AS ARITHDP1
010965,001735: 05,3077                        ENDRUTIN           EQUALS                                         
010966,001736: 
010967,001737: 
010968,001738:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
010969,001739:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
010970,001740: 
010971,001741: 04,2741                                           SETLOC   ENDDPDEC   +1                         
010972,001742: 
010973,001743:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
010974,001744: 
010975,001745: 04,2741           07155        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
010976,001746: 04,2742           03004                           ADRES    DEGCON1                               #  MULT BY 5.5  5(10)X2EXP-3
010977,001747: 04,2743           10145                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
010978,001748: 04,2744           37751                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
010979,001749: 04,2745           02747                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
010980,001750: 04,2746           47751                           CS       BIT11                                 
010981,001751: 04,2747           60145                           AD       MPAC       +1                         
010982,001752: 04,2750           03104                           TC       2ROUND     +2                         
010983,001753: 04,2751           04611                           TC       TPSL1                                 #  LEFT 1
010984,001754: 04,2752           04611        DEGINSF2           TC       TPSL1                                 #  LEFT 2
010985,001755: 04,2753           03113                           TC       TESTOFUF                              
010986,001756: 04,2754           04611                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
010987,001757: 04,2755           10144                           CCS      MPAC                                  
010988,001758: 04,2756           02762                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
010989,001759: 04,2757           02762                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
010990,001760: 04,2760           40000                           COM                                            #  IF - , USE -MAGNITUDE +1

Page 272

010992,001762: 04,2761           54144                           TS       MPAC                                  #  IF -0, USE +0
010993,001763: 04,2762           10111        SIGNFIX            CCS      OVFIND                                
010994,001764: 04,2763           03000                           TC       SGNTO1                                #  IF OVERFLOW
010995,001765: 04,2764           02774                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
010996,001766: 04,2765           10144                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
010997,001767: 04,2766           04736                           TC       CCSHOLE                               
010998,001768: 04,2767           02776                           TC       NEG180                                
010999,001769: 04,2770           02771                           TC       +1                                    
011000,001770: 04,2771           56144                           XCH      MPAC                                  
011001,001771: 04,2772           77743                           MASK     POSMAX                                
011002,001772: 04,2773           54144                           TS       MPAC                                  
011003,001773: 04,2774           05225        ENDSCALE           TC       POSTJUMP                              
011004,001774: 04,2775           13040                           CADR     PUTCOM2                               
011005,001775: 
011006,001776: 04,2776           47743        NEG180             CS       POSMAX                                
011007,001777: 04,2777           02773                           TC       ENDSCALE   -1                         
011008,001778: 
011009,001779: 04,3000           40144        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
011010,001780: 04,3001           77743                           MASK     POSMAX                                
011011,001781: 04,3002           40000                           CS       A                                     
011012,001782: 04,3003           02773                           TC       ENDSCALE   -1                         
011013,001783: 
011014,001784: 04,3004           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
011015,001785: 
011016,001786: 04,3006           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
011017,001787: 
011018,001788: 04,3010           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
011019,001789: 
011020,001790: 04,3011           07155        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
011021,001791: 04,3012           00113                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
011022,001792: 04,3013           56146                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
011023,001793: 04,3014           56145                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
011024,001794: 04,3015           56144                           XCH      MPAC                                  
011025,001795: 04,3016           00006                           EXTEND                                         
011026,001796: 04,3017           13021                           BZF      BINROUND                              
011027,001797: 04,3020           03315                           TC       DSPALARM                              #  TOO LARGE A LOAD
011028,001798: 04,3021           03102        BINROUND           TC       2ROUND                                
011029,001799: 04,3022           03113                           TC       TESTOFUF                              
011030,001800: 04,3023           02774                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
011031,001801: 
011032,001802: 
011033,001803: 04,3024           10144        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
011034,001804: 04,3025           03031                           TC       +4                                    
011035,001805: 04,3026           03031                           TC       +3                                    
011036,001806: 04,3027           03315                           TC       DSPALARM                              #  REJECT NEGATIVE INPUT
011037,001807: 04,3030           03315                           TC       DSPALARM                              #         DITTO
011038,001808: 04,3031           33010        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
011039,001809: 04,3032           26144                           ADS      MPAC                                  #  SUBTRACT BIAS
011040,001810: 04,3033           07155                           TC       DMP                                   #  MULT BY 100 / 45 B-2
011041,001811: 

Page 273

011043,001813: 04,3034           03006                           ADRES    DEGCON2                               
011044,001814: 04,3035           37750                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
011045,001815: 04,3036           60145                           AD       MPAC       +1                         
011046,001816: 04,3037           03104                           TC       2ROUND     +2                         
011047,001817: 04,3040           02752                           TC       DEGINSF2                              
011048,001818: 
011049,001819: 04,3041           07155        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
011050,001820: 04,3042           00113                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
011051,001821: 04,3043           56146                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
011052,001822: 04,3044           60000                           DOUBLE                                         
011053,001823: 04,3045           54146                           TS       MPAC       +2                         
011054,001824: 04,3046           37767                           CAF      ZERO                                  
011055,001825: 04,3047           60145                           AD       MPAC       +1                         
011056,001826: 04,3050           03104                           TC       2ROUND     +2                         
011057,001827: 04,3051           03113                           TC       TESTOFUF                              
011058,001828: 04,3052           50130                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
011059,001829: 04,3053           03053                           TC       +0                                    
011060,001830: 04,3054           03064                           TC       DPINORM                               
011061,001831: 04,3055           30107                           CA       DECOUNT                               #  MIXEDNOUN
011062,001832: 04,3056           60135        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
011063,001833: 04,3057           54002                           TS       Q                                     #    E SUBK            E
011064,001834: 04,3060           56145                           XCH      MPAC       +1                         
011065,001835: 04,3061           50002                           INDEX    Q                                     
011066,001836: 04,3062           54001                           TS       1                                     #  PLACE LOW PART IN
011067,001837: 04,3063           02774                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
011068,001838: 04,3064           37767        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
011069,001839: 04,3065           03056                           TC       DPINCOM                               
011070,001840: 
011071,001841: 
011072,001842: 04,3066           07155        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
011073,001843: 04,3067           00113                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
011074,001844: 04,3070           03072                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
011075,001845: 04,3071           03043                           TC       DPINSF     +2                         
011076,001846: 
011077,001847: 
011078,001848: 04,3072           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
011079,001849: 04,3073           54114                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
011080,001850: 04,3074           36306                           CAF      SIX                                   #  LEFT BY 7
011081,001851: 04,3075           54113        LEFT7COM           TS       SFTEMP1                               
011082,001852: 04,3076           04611                           TC       TPSL1                                 
011083,001853: 04,3077           10113                           CCS      SFTEMP1                               
011084,001854: 04,3100           03075                           TC       LEFT7COM                              
011085,001855: 04,3101           00114                           TC       SFTEMP2                               
011086,001856: 
011087,001857: 04,3102           56145        2ROUND             XCH      MPAC       +1                         
011088,001858: 04,3103           60000                           DOUBLE                                         

Page 274

011090,001860: 04,3104           54145                           TS       MPAC       +1                         
011091,001861: 04,3105           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
011092,001862: 04,3106           60144                           AD       MPAC                                  
011093,001863: 04,3107           54144                           TS       MPAC                                  
011094,001864: 04,3110           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
011095,001865: 04,3111           54111                           TS       OVFIND                                
011096,001866: 04,3112           00002        2RNDEND            TC       Q                                     
011097,001867: 
011098,001868: 04,3113           10111        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
011099,001869: 04,3114           03315                           TC       DSPALARM                              #  OF
011100,001870: 04,3115           00002                           TC       Q                                     
011101,001871: 04,3116           03315                           TC       DSPALARM                              #  UF
011102,001872: 

Page 275

011104,001874:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
011105,001875:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
011106,001876: 
011107,001877:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
011108,001878:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
011109,001879:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
011110,001880:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
011111,001881:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). 
011112,001882: 
011113,001883:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON(+=ON, +0=OFF)
011114,001884:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
011115,001885:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
011116,001886: 
011117,001887:                                                                                                  #  NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
011118,001888: 
011119,001889:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
011120,001890:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
011121,001891: 
011122,001892:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
011123,001893: 05,3077                                           SETLOC   ENDRUTIN                              
011124,001894: 
011125,001895: 05,3077           47745        MONITOR            CS       BIT15                                 
011126,001896: 05,3100           70310                           MASK     NOUNCADR                              
011127,001897: 05,3101           54145        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
011128,001898: 05,3102           33401                           CAF      LOW6                                  
011129,001899: 05,3103           70272                           MASK     VERBREG                               
011130,001900: 05,3104           04541                           TC       LEFT5                                 
011131,001901: 05,3105           54022                           TS       CYL                                   
011132,001902: 05,3106           56022                           XCH      CYL                                   
011133,001903: 05,3107           60273                           AD       NOUNREG                               
011134,001904: 05,3110           54144                           TS       MPAC                                  #  TEMP STORAGE
011135,001905: 05,3111           40330                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
011136,001906: 05,3112           67762                           AD       TWO                                   
011137,001907: 05,3113           10000                           CCS      A                                     
011138,001908: 05,3114           04711                           TC       RELDSP1                               #  GRABLOCK=0,1. +0 INTO DSPLOCK AND
011139,001909: 05,3115           03121                           TC       +4                                    #  TURN OFF KEY RLSE LIGHT.
011140,001910: 05,3116           04736                           TC       CCSHOLE                               
011141,001911: 05,3117           37767                           CAF      ZERO                                  #  GRABLOCK=2. +0 INTO DSPLOCK AND
011142,001912: 05,3120           54303                           TS       DSPLOCK                               #  LEAVE KEY RLSE LIGHT ALONE
011143,001913: 05,3121           00004                           INHINT                                         
011144,001914: 05,3122           10311                           CCS      MONSAVE                               
011145,001915: 05,3123           03130                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
011146,001916: 05,3124           37763                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
011147,001917: 05,3125           05663                           TC       WAITLIST                              
011148,001918: 05,3126     0270                                  EBANK=   DSPCOUNT                              
011149,001919: 05,3126           03134 12060                     2CADR    MONREQ                                
011150,001920: 
011151,001921: 05,3130           52145                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE

Page 276

011153,001923: 05,3131           52312                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
011154,001924: 05,3132           00003                           RELINT                                         
011155,001925: 05,3133           00126                           TC       ENTRET                                
011156,001926: 
011157,001927: 
011158,001928: 05,3134           04605        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
011159,001929: 05,3135           10312                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
011160,001930: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
011161,001931: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
011162,001932: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
011163,001933: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
011164,001934: 05,3142           33157                           CAF      MONDEL                                
011165,001935: 05,3143           05663                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
011166,001936: 05,3144     0270                                  EBANK=   DSPCOUNT                              
011167,001937: 05,3144           03134 12060                     2CADR    MONREQ                                
011168,001938: 
011169,001939: 05,3146           35210                           CAF      CHRPRIO                               
011170,001940: 05,3147           05505                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
011171,001941: 05,3150     0270                                  EBANK=   DSPCOUNT                              
011172,001942: 05,3150           03160 12060                     2CADR    MONDO                                 
011173,001943: 
011174,001944: 05,3152           05727                           TC       TASKOVER                              
011175,001945: 
011176,001946: 05,3153           37767        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
011177,001947: 05,3154           54311                           TS       MONSAVE                               
011178,001948: 05,3155           54312                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
011179,001949: 05,3156           05727                           TC       TASKOVER                              
011180,001950: 
011181,001951: 
011182,001952: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
011183,001953: 
011184,001954: 
011185,001955: 05,3160           10312        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
011186,001956: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
011187,001957: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
011188,001958: 05,3163           05567                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011189,001959: 05,3164           05567                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011190,001960: 05,3165           10303                           CCS      DSPLOCK                               
011191,001961: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
011192,001962: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
011193,001963: 05,3170           70311                           MASK     MONSAVE                               
011194,001964: 05,3171           54113                           TS       NVTEMP                                
011195,001965: 05,3172           04460                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
011196,001966: 05,3173           05567                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
011197,001967: 05,3174           33210                           CAF      MONMASK                               
011198,001968: 05,3175           70311                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
011199,001969: 05,3176           04532                           TC       RIGHT5                                

Page 277

011201,001971: 05,3177           54020                           TS       CYR                                   
011202,001972: 05,3200           56020                           XCH      CYR                                   
011203,001973: 05,3201           54272                           TS       VERBREG                               
011204,001974: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
011205,001975: 05,3203           54126                           TS       ENTRET                                
011206,001976: 05,3204           47745                           CS       BIT15                                 
011207,001977: 05,3205           70312                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
011208,001978: 05,3206           54146                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
011209,001979: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
011210,001980: 
011211,001981:    4435                                           SETLOC   ENDRMODF                              
011212,001982: 
011213,001983:    4435           34443        PASTEVB            CAF      MIDSIX                                
011214,001984:    4436           70311                           MASK     MONSAVE                               
011215,001985:    4437           54113                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
011216,001986:    4440           04460                           TC       NVSUBMON                              #       DISPLAY IT.
011217,001987:    4441           04442                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
011218,001988:    4442           05567        ENDPASTE           TC       ENDOFJOB                              
011219,001989: 
011220,001990:    4443           07700        MIDSIX             OCT      07700                                 
011221,001991: 
011222,001992: 05,3210                                           SETLOC   ENDMONDO   +1                         
011223,001993: 05,3210           00700        MONMASK            OCT      700                                   
011224,001994: 05,3211           04435        MONBACK            ADRES    PASTEVB                               
011225,001995: 
011226,001996: 05,3212           04601        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
011227,001997: 05,3213           05567                           TC       ENDOFJOB                              
011228,001998: 
011229,001999: 
011230,002000:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
011231,002001:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
011232,002002:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
011233,002003: 
011234,002004: 05,3214           34527        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
011235,002005: 05,3215           54270                           TS       DSPCOUNT                              
011236,002006: 05,3216           30310                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
011237,002007: 05,3217           05241                           TC       DATACALL                              
011238,002008: 05,3220           03222                           TC       DSPOCTWD                              
011239,002009: 05,3221           05567                           TC       ENDOFJOB                              
011240,002010: 

Page 278

011242,002012:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC +1)TO A SIGN AND 5 CHAR DECIMAL
011243,002013:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
011244,002014: 
011245,002015: 04,3117                                           SETLOC   TESTOFUF   +4                         
011246,002016: 
011247,002017: 04,3117           56002        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
011248,002018: 04,3120           54105                           TS       WDRET                                 #  CANT USE L FOR RETURN.+ON USES L.
011249,002019: 04,3121           10144                           CCS      MPAC                                  
011250,002020: 04,3122           03131                           TC       +7                                    
011251,002021: 04,3123           03131                           TC       +6                                    
011252,002022: 04,3124           67763                           AD       ONE                                   
011253,002023: 04,3125           54144                           TS       MPAC                                  
011254,002024: 04,3126           02321                           TC       -ON                                   
011255,002025: 04,3127           40145                           CS       MPAC       +1                         
011256,002026: 04,3130           03133                           TC       +3                                    
011257,002027: 04,3131           02301                           TC       +ON                                   
011258,002028: 04,3132           56145                           XCH      MPAC       +1                         
011259,002029: 04,3133           63172                           AD       DECROUND                              
011260,002030: 04,3134           54145                           TS       MPAC       +1                         
011261,002031: 04,3135           37767                           CAF      ZERO                                  
011262,002032: 04,3136           60144                           AD       MPAC                                  
011263,002033: 04,3137           54144                           TS       MPAC                                  
011264,002034: 04,3140           03144                           TC       +4                                    
011265,002035: 04,3141           37743                           CAF      POSMAX                                
011266,002036: 04,3142           54144                           TS       MPAC                                  
011267,002037: 04,3143           54145                           TS       MPAC       +1                         
011268,002038: 04,3144           37761                           CAF      FOUR                                  
011269,002039: 04,3145           54127        DSPDCWD1           TS       WDCNT                                 
011270,002040: 04,3146           34570                           CAF      BINCON                                
011271,002041: 04,3147           07357                           TC       SHORTMP                               
011272,002042: 04,3150           50144        TRACE1             INDEX    MPAC                                  
011273,002043: 04,3151           34300                           CAF      RELTAB                                
011274,002044: 04,3152           74556                           MASK     LOW5                                  
011275,002045: 04,3153           54114                           TS       CODE                                  
011276,002046: 04,3154           37767                           CAF      ZERO                                  
011277,002047: 04,3155           56146                           XCH      MPAC       +2                         
011278,002048: 04,3156           56145                           XCH      MPAC       +1                         
011279,002049: 04,3157           54144                           TS       MPAC                                  
011280,002050: 04,3160           56270                           XCH      DSPCOUNT                              
011281,002051: 04,3161           54133        TRACE1S            TS       COUNT                                 
011282,002052: 04,3162           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011283,002053: 04,3163           54270                           TS       DSPCOUNT                              
011284,002054: 04,3164           03217                           TC       DSPIN                                 
011285,002055: 04,3165           10127                           CCS      WDCNT                                 
011286,002056: 04,3166           03145                           TC       DSPDCWD1                              
011287,002057: 04,3167           44565                           CS       VD1                                   
011288,002058: 04,3170           54270                           TS       DSPCOUNT                              
011289,002059: 04,3171           00105                           TC       WDRET                                 
011290,002060: 
011291,002061: 04,3172           02476        DECROUND           OCT      02476                                 
011292,002062: 

Page 279

011294,002064:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
011295,002065:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
011296,002066: 
011297,002067: 04,3173           56002        DSP2DEC            XCH      Q                                     
011298,002068: 04,3174           54105                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSPDECWD
011299,002069: 04,3175           37767                           CAF      ZERO                                  
011300,002070: 04,3176           54114                           TS       CODE                                  
011301,002071: 04,3177           36311                           CAF      THREE                                 
011302,002072: 04,3200           03301                           TC       11DSPIN                               #  -R2 OFF
011303,002073: 04,3201           37761                           CAF      FOUR                                  
011304,002074: 04,3202           03301                           TC       11DSPIN                               #  +R2 OFF
011305,002075: 04,3203           10144                           CCS      MPAC                                  
011306,002076: 04,3204           03214                           TC       +8D                                   
011307,002077: 04,3205           03214                           TC       +7                                    
011308,002078: 04,3206           67763                           AD       ONE                                   
011309,002079: 04,3207           54144                           TS       MPAC                                  
011310,002080: 04,3210           02321                           TC       -ON                                   
011311,002081: 04,3211           40145                           CS       MPAC       +1                         
011312,002082: 04,3212           54145                           TS       MPAC       +1                         
011313,002083: 04,3213           03215                           TC       +2                                    
011314,002084: 04,3214           02301                           TC       +ON                                   
011315,002085: 04,3215           34530                           CAF      R2D1                                  
011316,002086: 04,3216           03145        END2DEC            TC       DSPDCWD1                              
011317,002087: 
011318,002088: 
011319,002089: 05,3222                                           SETLOC   DSPFMEM    +6                         
011320,002090:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
011321,002091:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
011322,002092: 
011323,002093: 05,3222           54022        DSPOCTWD           TS       CYL                                   
011324,002094: 05,3223           56002                           XCH      Q                                     
011325,002095: 05,3224           54105                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
011326,002096: 05,3225           37746                           CAF      BIT14                                 #  TO BLANK SIGNS
011327,002097: 05,3226           26270                           ADS      DSPCOUNT                              
011328,002098: 05,3227           37761                           CAF      FOUR                                  
011329,002099: 05,3230           54127        WDAGAIN            TS       WDCNT                                 
011330,002100: 05,3231           40022                           CS       CYL                                   
011331,002101: 05,3232           40022                           CS       CYL                                   
011332,002102: 05,3233           40022                           CS       CYL                                   
011333,002103: 05,3234           40000                           CS       A                                     
011334,002104: 05,3235           77765                           MASK     DSPMSK                                
011335,002105: 05,3236           50000                           INDEX    A                                     
011336,002106: 05,3237           34300                           CAF      RELTAB                                
011337,002107: 05,3240           74556                           MASK     LOW5                                  
011338,002108: 05,3241           54114                           TS       CODE                                  
011339,002109: 05,3242           56270                           XCH      DSPCOUNT                              
011340,002110: 05,3243           54133                           TS       COUNT                                 
011341,002111: 05,3244           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011342,002112: 05,3245           54270                           TS       DSPCOUNT                              

Page 280

011344,002114: 05,3246           05225                           TC       POSTJUMP                              
011345,002115: 05,3247           11307                           CADR     DSPOCTIN                              
011346,002116: 05,3250           10127        OCTBACK            CCS      WDCNT                                 
011347,002117: 05,3251           03230                           TC       WDAGAIN                               #  +
011348,002118: 05,3252           44565        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
011349,002119: 05,3253           54270                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
011350,002120: 05,3254           00105                           TC       WDRET                                 
011351,002121: 
011352,002122: 05,3255     7765               DSPMSK             =        SEVEN                                 
011353,002123: 
011354,002124: 
011355,002125:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
011356,002126:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
011357,002127:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
011358,002128: 
011359,002129: 05,3255           54020        DSP2BIT            TS       CYR                                   
011360,002130: 05,3256           56002                           XCH      Q                                     
011361,002131: 05,3257           54105                           TS       WDRET                                 #  CANT USE L AS RETURN. UPDATNN USES L.
011362,002132: 05,3260           37763                           CAF      ONE                                   
011363,002133: 05,3261           54127                           TS       WDCNT                                 
011364,002134: 05,3262           40020                           CS       CYR                                   
011365,002135: 05,3263           40020                           CS       CYR                                   
011366,002136: 05,3264           56020                           XCH      CYR                                   
011367,002137: 05,3265           54022                           TS       CYL                                   
011368,002138: 05,3266           03235                           TC       WDAGAIN    +5                         
011369,002139: 
011370,002140: 
011371,002141:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
011372,002142:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
011373,002143:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
011374,002144:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
011375,002145: 
011376,002146: 04,3217                                           SETLOC   END2DEC    +1                         
011377,002147: 
011378,002148: 04,3217           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
011379,002149: 04,3220           54104                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
011380,002150: 04,3221           34556                           CAF      LOW5                                  
011381,002151: 04,3222           70133                           MASK     COUNT                                 
011382,002152: 04,3223           54021                           TS       SR                                    
011383,002153: 04,3224           56021                           XCH      SR                                    
011384,002154: 04,3225           54131                           TS       DSREL                                 
011385,002155: 04,3226           37763                           CAF      BIT1                                  
011386,002156: 04,3227           70133                           MASK     COUNT                                 
011387,002157: 04,3230           10000                           CCS      A                                     
011388,002158: 04,3231           03233                           TC       +2                                    #  LEFT IF COUNT IS ODD
011389,002159: 04,3232           03243                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
011390,002160: 04,3233           56114                           XCH      CODE                                  
011391,002161: 04,3234           04550                           TC       SLEFT5                                #  DOES NOT USE CYL

Page 281

011393,002163: 04,3235           54114                           TS       CODE                                  
011394,002164: 04,3236           37746                           CAF      BIT14                                 
011395,002165: 04,3237           70133                           MASK     COUNT                                 
011396,002166: 04,3240           10000                           CCS      A                                     
011397,002167: 04,3241           37762                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
011398,002168: 04,3242           67763                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
011399,002169: 04,3243           54133                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
011400,002170:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
011401,002171:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
011402,002172: 04,3244           00004        DSPIN1             INHINT                                         
011403,002173: 04,3245           50131                           INDEX    DSREL                                 
011404,002174: 04,3246           10313                           CCS      DSPTAB                                
011405,002175: 04,3247           03251                           TC       +2                                    #  IF +
011406,002176: 04,3250           04736                           TC       CCSHOLE                               
011407,002177: 04,3251           67763                           AD       ONE                                   #  IF -
011408,002178: 04,3252           54132                           TS       DSMAG                                 
011409,002179: 04,3253           50133                           INDEX    COUNT                                 
011410,002180: 04,3254           73275                           MASK     DSMSK                                 
011411,002181: 04,3255           00006                           EXTEND                                         
011412,002182: 04,3256           60114                           SU       CODE                                  
011413,002183: 04,3257           00006                           EXTEND                                         
011414,002184: 04,3260           13273                           BZF      DSLV                                  #  SAME
011415,002185: 04,3261           50133        DFRNT              INDEX    COUNT                                 
011416,002186: 04,3262           43275                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
011417,002187: 04,3263           70132                           MASK     DSMAG                                 
011418,002188: 04,3264           60114                           AD       CODE                                  
011419,002189: 04,3265           40000                           CS       A                                     
011420,002190: 04,3266           50131                           INDEX    DSREL                                 
011421,002191: 04,3267           56313                           XCH      DSPTAB                                
011422,002192: 04,3270           00006                           EXTEND                                         
011423,002193: 04,3271           63273                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
011424,002194: 04,3272           24307                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
011425,002195: 04,3273           00003        DSLV               RELINT                                         
011426,002196: 04,3274           00104                           TC       DSEXIT                                
011427,002197: 
011428,002198: 04,3275           00037        DSMSK              OCT      37                                    
011429,002199: 04,3276           01740                           OCT      1740                                  
011430,002200: 04,3277           02000                           OCT      2000                                  
011431,002201: 04,3300           03740                           OCT      3740                                  
011432,002202: 
011433,002203: 
011434,002204:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
011435,002205:                                                                                                  #  BIT11 OF CODE.
011436,002206: 
011437,002207: 04,3301           54131        11DSPIN            TS       DSREL                                 
011438,002208: 04,3302           37762                           CAF      TWO                                   
011439,002209: 04,3303           54133                           TS       COUNT                                 
011440,002210: 04,3304           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
011441,002211: 04,3305           54104                           TS       DSEXIT                                

Page 282

011443,002213: 04,3306           03244                           TC       DSPIN1                                
011444,002214: 
011445,002215: 
011446,002216: 04,3307           03217        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
011447,002217: 04,3310           33312                           CAF      +2                                    
011448,002218: 04,3311           05230                           TC       BANKJUMP                              
011449,002219: 04,3312           13250        ENDSPOCT           CADR     OCTBACK                               
011450,002220: 
011451,002221: 
011452,002222:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
011453,002223:                                                                                                  #  ABORT WITH 01501.
011454,002224:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
011455,002225:                                                                                                  #  DO TC ENTRET.
011456,002226: 
011457,002227: 04,3313           34505        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
011458,002228: 04,3314           54126                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
011459,002229: 
011460,002230: 04,3315           04571        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
011461,002231: 04,3316           43325                           CS       NVSBENDL                              
011462,002232: 04,3317           60126                           AD       ENTEXIT                               
011463,002233: 04,3320           00006                           EXTEND                                         
011464,002234: 04,3321           13323                           BZF      +2                                    #  NVSUB INITIATED. ABORT
011465,002235: 04,3322           00126                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
011466,002236: 04,3323           06000                           TC       ABORT                                 
011467,002237: 04,3324           01501                           OCT      01501                                 
011468,002238: 04,3325           04464        NVSBENDL           TC       NVSUBEND                              
011469,002239: 
011470,002240: 
011471,002241:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
011472,002242:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
011473,002243:                                                                                                  #  M M LIGHTS.
011474,002244: 
011475,002245: 05,3267                                           SETLOC   DSP2BIT    +10D                       
011476,002246: 
011477,002247: 05,3267           03302        MMCHANG            TC       REQMM                                 
011478,002248: 05,3270           37767                           CAF      ZERO                                  
011479,002249: 05,3271           56273                           XCH      NOUNREG                               
011480,002250: 05,3272           54144                           TS       MPAC                                  
011481,002251: 05,3273           34566                           CAF      ND1                                   
011482,002252: 05,3274           54270                           TS       DSPCOUNT                              
011483,002253: 05,3275           05206                           TC       BANKCALL                              
011484,002254: 05,3276           10557                           CADR     2BLANK                                
011485,002255: 05,3277           30144                           CA       MPAC                                  
011486,002256: 05,3300           05225                           TC       POSTJUMP                              
011487,002257: 05,3301           11315                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
011488,002258: 

Page 283

011490,002260: 05,3302  04,3315               MODROUTB           =        DSPALARM                              #  **FIX LATER**
011491,002261: 05,3302           40002        REQMM              CS       Q                                     
011492,002262: 05,3303           54304                           TS       REQRET                                
011493,002263: 05,3304           34566                           CAF      ND1                                   
011494,002264: 05,3305           54270                           TS       DSPCOUNT                              
011495,002265: 05,3306           37767                           CAF      ZERO                                  
011496,002266: 05,3307           54273                           TS       NOUNREG                               
011497,002267: 05,3310           05206                           TC       BANKCALL                              
011498,002268: 05,3311           10557                           CADR     2BLANK                                
011499,002269: 05,3312           04622                           TC       FLASHON                               
011500,002270: 05,3313           00126                           TC       ENTEXIT                               
011501,002271: 
011502,002272: 
011503,002273:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
011504,002274:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
011505,002275:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011506,002276:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
011507,002277:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
011508,002278:                                                                                                  #  COMPONENT 3  BBCON
011509,002279: 
011510,002280: 05,3314           37763        VBRQEXEC           CAF      BIT1                                  
011511,002281: 05,3315           70337                           MASK     DSPTEM1                               
011512,002282: 05,3316           10000                           CCS      A                                     
011513,002283: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
011514,002284: 05,3320           35723                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
011515,002285: 05,3321           54144        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
011516,002286: 05,3322           47763                           CS       BIT1                                  
011517,002287: 05,3323           70337                           MASK     DSPTEM1                               
011518,002288: 05,3324           54150                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
011519,002289: 05,3325           04666        REQUESTC           TC       RELDSP                                
011520,002290: 05,3326           34505                           CA       ENDINST                               
011521,002291: 05,3327           54147                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
011522,002292: 05,3330           00006                           EXTEND                                         
011523,002293: 05,3331           30341                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
011524,002294: 05,3332           52146                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
011525,002295: 05,3333           30150                           CA       MPAC       +4                         #  PRIO IN A
011526,002296: 05,3334           00004                           INHINT                                         
011527,002297: 05,3335           00144                           TC       MPAC                                  
011528,002298: 
011529,002299: 05,3336           34562        SETVAC             CAF      TCFINDVC                              
011530,002300: 05,3337           03321                           TC       REQEX1                                
011531,002301: 
011532,002302:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
011533,002303:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
011534,002304:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011535,002305:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
011536,002306:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
011537,002307:                                                                                                  #  COMPONENT 3  BBCON

Page 284

011539,002309: 05,3340           34561        VBRQWAIT           CAF      TCWAIT                                
011540,002310: 05,3341           54144                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
011541,002311: 05,3342           30337                           CA       DSPTEM1                               #  TIME DELAY
011542,002312: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
011543,002313: 
011544,002314:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
011545,002315:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
011546,002316:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
011547,002317: 
011548,002318: 
011549,002319: 04,3326                                           SETLOC   NVSBENDL   +1                         
011550,002320: 04,3326           37763        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
011551,002321: 04,3327           54305                           TS       LOADSTAT                              
011552,002322: 04,3330           04666                           TC       RELDSP                                
011553,002323: 04,3331           04626                           TC       FLASHOFF                              
011554,002324: 04,3332           03440                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
011555,002325: 
011556,002326: 
011557,002327: 04,3333           04466        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011558,002328: 04,3334           47763                           CS       ONE                                   
011559,002329: 04,3335           03327                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
011560,002330: 
011561,002331: 
011562,002332:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
011563,002333: 
011564,002334:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
011565,002335:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
011566,002336: 
011567,002337: 04,3336           47761        VBRELDSP           CS       BIT3                                  
011568,002338: 04,3337           00006                           EXTEND                                         
011569,002339: 04,3340           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LIGHT
011570,002340: 04,3341           04666                           TC       RELDSP                                #  SEARCHES LIST
011571,002341: 04,3342           05567                           TC       ENDOFJOB                              
011572,002342: 
011573,002343: 
011574,002344:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
011575,002345: 
011576,002346: 04,3343           37766        BUMP               CAF      FIVE                                  #  R2D5
011577,002347: 04,3344           54270                           TS       DSPCOUNT                              
011578,002348: 04,3345           54133                           TS       COUNT                                 
011579,002349: 04,3346           37763                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
011580,002350: 04,3347           70133                           MASK     COUNT                                 
011581,002351: 04,3350           56133                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
011582,002352: 04,3351           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)

Page 285

011584,002354: 04,3352           56021                           XCH      SR                                    #  DSREL IN A
011585,002355: 04,3353           50000                           INDEX    A                                     
011586,002356: 04,3354           10313                           CCS      DSPTAB                                
011587,002357: 04,3355           03357                           TC       +2                                    
011588,002358: 04,3356           04736                           TC       CCSHOLE                               
011589,002359: 04,3357           67763                           AD       ONE                                   #  DSMAG IN A
011590,002360: 04,3360           50133                           INDEX    COUNT                                 
011591,002361: 04,3361           73275                           MASK     DSMSK                                 
011592,002362: 04,3362           50133                           INDEX    COUNT                                 
011593,002363: 04,3363           03364                           TC       +1                                    
011594,002364: 04,3364           03366                           TC       +2                                    #  EVEN(RIGHT)  OK
011595,002365: 04,3365           04532                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
011596,002366: 04,3366           54114                           TS       CODE                                  
011597,002367: 04,3367           47766                           CS       FIVE                                  
011598,002368: 04,3370           60270                           AD       DSPCOUNT                              #  DSPCOUNT-5
011599,002369: 04,3371           10000                           CCS      A                                     #  TO PREVENT -0
011600,002370: 04,3372           67763                           AD       ONE                                   
011601,002371: 04,3373           03375                           TC       +2                                    
011602,002372: 04,3374           04736                           TC       CCSHOLE                               
011603,002373: 04,3375           54133                           TS       COUNT                                 
011604,002374: 04,3376           03217                           TC       DSPIN                                 #  CODE ALREADY IN CODE
011605,002375: 04,3377           40270                           CS       DSPCOUNT                              
011606,002376: 04,3400           64527                           AD       R1D1                                  #  OCT 16
011607,002377: 04,3401           10000                           CCS      A                                     
011608,002378: 04,3402           56270                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
011609,002379: 04,3403           67763                           AD       ONE                                   #  INCREMENT DSPCOUNT
011610,002380: 04,3404           03344                           TC       BUMP       +1                         
011611,002381: 
011612,002382: 04,3405           37767        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
011613,002383: 04,3406           54270                           TS       DSPCOUNT                              
011614,002384: 04,3407           63436                           AD       SWTAB      +2                         #  OCT 3
011615,002385: 04,3410           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
011616,002386: 04,3411           10313                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
011617,002387: 04,3412           03414                           TC       +2                                    
011618,002388: 04,3413           04736                           TC       CCSHOLE                               
011619,002389: 04,3414           67763                           AD       ONE                                   
011620,002390: 04,3415           77751                           MASK     BIT11                                 
011621,002391: 04,3416           54114                           TS       CODE                                  
011622,002392: 04,3417           50270                           INDEX    DSPCOUNT                              
011623,002393: 04,3420           33434                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
011624,002394: 04,3421           03301                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
011625,002395: 04,3422           40270                           CS       DSPCOUNT                              
011626,002396: 04,3423           63436                           AD       SWTAB      +2                         #  OCT 3
011627,002397: 04,3424           10000                           CCS      A                                     
011628,002398: 04,3425           56270                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
011629,002399: 04,3426           67763                           AD       ONE                                   #  INCREMENT DSPCOUNT
011630,002400: 04,3427           03406                           TC       SWSGN      +1                         
011631,002401: 04,3430           34527                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
011632,002402: 04,3431           54270                           TS       DSPCOUNT                              
011633,002403: 04,3432           02514                           TC       5BLANK                                #  BLANKS R1

Page 286

011635,002405: 04,3433           00126                           TC       ENTEXIT                               
011636,002406: 
011637,002407: 04,3434           00000        SWTAB              OCT      0                                     #  -R3
011638,002408: 04,3435           00001                           OCT      1                                     #  +R3
011639,002409: 04,3436           00003                           OCT      3                                     #  -R2
011640,002410: 04,3437           00004                           OCT      4                                     #  +R2
011641,002411: 

Page 287

011643,002413:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
011644,002414:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE  ...VVVVVVNNNNNN
011645,002415:                                                                                                  #  INTO A.      V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
011646,002416: 
011647,002417:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
011648,002418:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
011649,002419: 
011650,002420:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
011651,002421:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
011652,002422:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
011653,002423:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
011654,002424:                                                                                                  #  FURTHER ACTION).
011655,002425: 
011656,002426:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
011657,002427:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
011658,002428:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
011659,002429:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
011660,002430: 
011661,002431:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
011662,002432:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
011663,002433:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
011664,002434:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
011665,002435:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,

The following line is visibly terminated by a period ('.') in the scanned program listing, but in all other currently available AGC program versions containing this line (namely, RETREAD, AURORA, and SUNBURST 37) it is terminated by a comma (','). My belief is that the comma's tail has simply been cut off due to poor print quality, making it look like a period. — RSB

011672,002442:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
011673,002443:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
011674,002444:                                                                                                  #  MONITOR SET UP.
011675,002445: 
011676,002446:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
011677,002447: 
011678,002448:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
011679,002449:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
011680,002450: 
011681,002451:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
011682,002452:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
011683,002453: 
011684,002454:    4444                                           SETLOC   MIDSIX     +1                         
011685,002455:    4444           54113        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
011686,002456:    4445           10303                           CCS      DSPLOCK                               
011687,002457:    4446           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
011688,002458:    4447           30002                           CA       Q                                     #  DSP SYST AVAILABLE
011689,002459:    4450           67763                           AD       ONE                                   
011690,002460:    4451           54331                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
011691,002461:    4452           04466                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011692,002462:    4453           34457        NVSUBCOM           CAF      NVSBBBNK                              
011693,002463: 
011694,002464:    4454           56006                           XCH      BBANK                                 
011695,002465:    4455           54332                           TS       NVBNKTEM                              
011696,002466:    4456           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
011697,002467:    4457     0270                                  EBANK=   DSPCOUNT                              
011698,002468:    4457           12060        NVSBBBNK           BBCON    NVSUB1                                
011699,002469: 

Page 288

011701,002471:    4460           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
011702,002472:    4461           67763                           AD       ONE                                   
011703,002473:    4462           54331                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
011704,002474:    4463           04453                           TC       NVSUBCOM                              
011705,002475: 
011706,002476:    4464           52332        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
011707,002477:    4465           52006                           DXCH     Z                                     #  DTCB
011708,002478: 
011709,002479: 05,3344                                           SETLOC   ENDRQWT    +1                         
011710,002480: 
011711,002481: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
011712,002482: 05,3345           54126                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
011713,002483: 05,3346           33401                           CAF      LOW6                                  
011714,002484: 05,3347           70113                           MASK     NVTEMP                                
011715,002485: 05,3350           54144                           TS       MPAC                                  #  TEMP STORAGE
011716,002486: 05,3351           33402                           CAF      MID6                                  
011717,002487: 05,3352           70113                           MASK     NVTEMP                                
011718,002488: 05,3353           04532                           TC       RIGHT5                                
011719,002489: 05,3354           54020                           TS       CYR                                   
011720,002490: 05,3355           56020                           XCH      CYR                                   
011721,002491: 05,3356           54145                           TS       MPAC       +1                         #  TEMP STORAGE
011722,002492: 05,3357           10144                           CCS      MPAC                                  #  TEST NOUN
011723,002493: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
011724,002494: 05,3361           56145                           XCH      MPAC       +1                         
011725,002495: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
011726,002496: 05,3363           04464        ENTSET             TC       NVSUBEND                              
011727,002497: 05,3364           10145                           CCS      MPAC       +1                         #  TEST VERB
011728,002498: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
011729,002499: 05,3366           56144                           XCH      MPAC                                  
011730,002500: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
011731,002501: 05,3370           04464                           TC       NVSUBEND                              
011732,002502: 05,3371           56145                           XCH      MPAC       +1                         
011733,002503: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
011734,002504: 05,3373           56144                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
011735,002505: 05,3374           02274                           TC       UPDATNN    -1                         
011736,002506: 05,3375           37767                           CAF      ZERO                                  
011737,002507: 05,3376           54305                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
011738,002508: 05,3377           54306                           TS       CLPASS                                
011739,002509: 05,3400           02031                           TC       ENTPAS0                               
011740,002510: 
011741,002511:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
011742,002512:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
011743,002513: 
011744,002514: 
011745,002515: 05,3401           00077        LOW6               OCT      77                                    
011746,002516: 05,3402           07700        MID6               OCT      7700                                  
011747,002517: 

Page 289

011749,002519:    4466                                           SETLOC   NVSUBEND   +2                         
011750,002520:    4466           47745        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
011751,002521:    4467           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
011752,002522:    4470           70312                           MASK     MONSAVE1                              
011753,002523:    4471           67745                           AD       BIT15                                 
011754,002524:    4472           54312                           TS       MONSAVE1                              
011755,002525:    4473           00003                           RELINT                                         
011756,002526:    4474           00002                           TC       Q                                     
011757,002527: 
011758,002528: 
011759,002529:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
011760,002530:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
011761,002531:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
011762,002532:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
011763,002533: 
011764,002534: 
011765,002535:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
011766,002536:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
011767,002537:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
011768,002538:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND 
011769,002539:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011770,002540:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
011771,002541:                                                                                                  #  L+1      FOR TERMINATE
011772,002542:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
011773,002543:                                                                                                  #  L+3      FOR DATA IN
011774,002544:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
011775,002545: 
011776,002546:    4475           37763        ENDIDLE            CAF      ONE                                   
011777,002547:    4476           54303                           TS       DSPLOCK                               
011778,002548:    4477           22004                           LXCH     FBANK                                 
011779,002549:    4500           56002                           XCH      Q                                     
011780,002550:    4501           52124                           DXCH     BUF2                                  
011781,002551:    4502           05235                           TC       MAKECADR                              
011782,002552:    4503           54327                           TS       CADRSTOR                              
011783,002553:    4504           05545                           TC       JOBSLEEP                              
011784,002554: 
011785,002555:    4505           05567        ENDINST            TC       ENDOFJOB                              
011786,002556: 
011787,002557:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
011788,002558:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
011789,002559:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
011790,002560:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
011791,002561:                                                                                                  #  AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011792,002562:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
011793,002563: 
011794,002564:    4506           10305        DATAWAIT           CCS      LOADSTAT                              

Page 290

011796,002566:    4507           17015                           TCF      DATWAIT1                              #  PROCEED. RETURN TO L+2.
011797,002567:    4510           14475                           TCF      ENDIDLE                               #  STILL WAITING. GO TO SLEEP.
011798,002568:    4511           00002                           TC       Q                                     #  TERMINATE. RETURN TO L+1.
011799,002569:    4512           17017                           TCF      Q+2                                   #  DATA IN. RETURN TO L+3
011800,002570:    4513     7015               DATWAIT1           =        Q+1                                   #  RETURN TO L+2
011801,002571: 
011802,002572:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
011803,002573:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
011804,002574: 
011805,002575: 
011806,002576: 05,3403                                           SETLOC   MID6       +1                         
011807,002577:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
011808,002578: 
011809,002579: 05,3403           34567        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
011810,002580: 05,3404           56270                           XCH      DSPCOUNT                              
011811,002581: 05,3405           54130                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
011812,002582: 05,3406           30302                           CA       MODREG                                
011813,002583: 05,3407           22002                           LXCH     Q                                     
011814,002584: 05,3410           03255                           TC       DSP2BIT                               
011815,002585: 05,3411           56130                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
011816,002586: 05,3412           54270                           TS       DSPCOUNT                              
011817,002587: 05,3413           00001        DSPMMEND           TC       L                                     
011818,002588: 
011819,002589: 
011820,002590:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS
011821,002591:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
011822,002592:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
011823,002593: 
011824,002594:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
011825,002595:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
011826,002596: 
011827,002597: 04,3440                                           SETLOC   SWTAB      +4                         
011828,002598: 
011829,002599: 04,3440           10327        RECALTST           CCS      CADRSTOR                              
011830,002600: 04,3441           03446                           TC       RECAL1                                
011831,002601: 04,3442           05567                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
011832,002602: 04,3443           03446                           TC       RECAL1                                
011833,002603: 04,3444           54327                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
011834,002604: 04,3445           03464                           TC       RECAL3                                #  +0 INTO CADRSTOR, RELEASE DISPLAY,
011835,002605:                                                                                                  #     AND ENDOFJOB. NEEDED FOR DATAWAIT. 
011836,002606: 04,3446           37767        RECAL1             CAF      ZERO                                  
011837,002607: 04,3447           56327                           XCH      CADRSTOR                              
011838,002608: 04,3450           00004                           INHINT                                         
011839,002609: 04,3451           05551                           TC       JOBWAKE                               
011840,002610: 04,3452           10305                           CCS      LOADSTAT                              
011841,002611: 04,3453           03470                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
011842,002612: 04,3454           05567                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
011843,002613: 04,3455           03466                           TC       DOTERM                                #  - TERMINATE

Page 291

011845,002615: 04,3456           37762                           CAF      TWO                                   
011846,002616: 04,3457           50064        RECAL2             INDEX    LOCCTR                                
011847,002617: 04,3460           60154                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
011848,002618: 04,3461           50064                           INDEX    LOCCTR                                
011849,002619: 04,3462           54154                           TS       LOC                                   
011850,002620: 04,3463           00003                           RELINT                                         
011851,002621: 04,3464           04711        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
011852,002622: 04,3465           05567                           TC       ENDOFJOB                              
011853,002623: 
011854,002624: 04,3466           37767        DOTERM             CAF      ZERO                                  
011855,002625: 04,3467           03457                           TC       RECAL2                                
011856,002626: 
011857,002627: 04,3470           37763        DOPROC             CAF      ONE                                   
011858,002628: 04,3471           03457                           TC       RECAL2                                
011859,002629: 

Page 292

011861,002631:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
011862,002632: 
011863,002633: 
011864,002634:                                                                                                  #  COMPONENT CODE NUMBER           INTERPRETATION
011865,002635: 
011866,002636:                                                                                                  #  00000                           1 COMPONENT
011867,002637:                                                                                                  #  00001                           2 COMPONENT (EACH S P)
011868,002638:                                                                                                  #  00010                           3 COMPONENT (EACH SP)
011869,002639: 
011870,002640: 
011871,002641:                                                                                                  #  SF ROUTINE CODE NUMBER          INTERPRETATION
011872,002642: 
011873,002643:                                                                                                  #  00000    OCTAL ONLY
011874,002644:                                                                                                  #  00001    STRAIGHT FRACTIONAL
011875,002645:                                                                                                  #  00010    DEGREES (XXX.XX)
011876,002646:                                                                                                  #  00011    ARITHMETIC SF
011877,002647:                                                                                                  #  00100    ARITH DP1   OUT(MULT BY 2/14 AT END)      IN(STRAIGHT)
011878,002648:                                                                                                  #  00101    ARITH DP2   OUT(STRAIGHT)                 IN(SL 7 AT END)
011879,002649:                                                                                                  #  00110    OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
011880,002650:                                                                                                  #  00111    ARITH DP3   OUT ( SL 7 AT END)       IN ( STRAIGHT)
011881,002651:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
011882,002652: 
011883,002653: 
011884,002654:                                                                                                  #  SF CONSTANT CODE NUMBER         INTERPRETATION
011885,002655: 
011886,002656:                                                                                                  #  00000                           WHOLE
011887,002657:                                                                                                  #  00000                           TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
011888,002658:                                                                                                  #  00001                           TIME HOURS(XXX.XX) USE ARITH DP2
011889,002659:                                                                                                  #  00010                           DEGREES
011890,002660:                                                                                                  #  00010                           OPTICS DEGREES
011891,002661:                                                                                                  #  00011                           GYRO DEGREES (XX.XXX)  USE ARITHDP3
011892,002662:                                                                                                  #  00100                           GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
011893,002663:                                                                                                  #  00101                           GYRO AXIS ACCEL. DRIFT
011894,002664:                                                                                                  #                                  .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
011895,002665:                                                                                                  #  00110                           PIPA BIAS X.XXXX CM/SEC SEC
011896,002666:                                                                                                  #  00111                           PIPA SCALE FACTOR ERROR
011897,002667:                                                                                                  #                                      XXXXX. PARTS/MILLION
011898,002668:                                                                                                  #  01000                           POSITION(XXXX.X KILOMETERS) USE ARITHDP3
011899,002669:                                                                                                  #  01001                           VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
011900,002670:                                                                                                  #  01010                           TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
011901,002671:                                                                                                  #  01011                           ELEVATION DEGREES(89.999MAX) USE ARITH
011902,002672:                                                                                                  #  01100                           RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
011903,002673:                                                                                                  #                                                              USE ARITHDP1
011904,002674:                                                                                                  #  01101                           RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
011905,002675:                                                                                                  #                                                              USE ARITHDP1
011906,002676:                                                                                                  #  01110                           LANDING RADAR ALTITUDE(XXXXX.FEET)
011907,002677:                                                                                                  #                                                              USE ARITHDP1

Page 293

011909,002679:                                                                                                  #  01111                           INITIAL/FINAL ALTITUDE(XXXXX.FEET)
011910,002680:                                                                                                  #                                                              USE ARITHDP1
011911,002681:                                                                                                  #  10000                           ALTITUDE RATE(XXXXX.FEET)      USE ARITH
011912,002682:                                                                                                  #  10001                           FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
011913,002683:                                                                                                  #                                                                 USE ARITH
011914,002684:                                                                                                  #  10010                           ROTATIONAL HAND CONTROLLER ANGLE RATES
011915,002685:                                                                                                  #                                        XXXXX.DEG/SEC            USE ARITH
011916,002686:                                                                                                  #  10011                           LANDING RADAR VELX(XXXXX.FEET/SEC)
011917,002687:                                                                                                  #                                                              USE ARITHDP1
011918,002688:                                                                                                  #  10100                           LANDING RADAR VELY(XXXXX.FEET/SEC)
011919,002689:                                                                                                  #                                                              USE ARITHDP1
011920,002690:                                                                                                  #  10101                           LANDING RADAR VELZ(XXXXX.FEET/SEC)
011921,002691:                                                                                                  #                                                              USE ARITHDP1
011922,002692:                                                                                                  #  10110                           OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
011923,002693:                                                                                                  #                                                              USE ARITHDP1
011924,002694:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
011925,002695: 
011926,002696:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
011927,002697:                                                                                                  #  NOUN TABLES.
011928,002698:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
011929,002699:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
011930,002700:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
011931,002701: 

Page 294

011933,002703:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
011934,002704:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
011935,002705:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
011936,002706: 
011937,002707: 
011938,002708:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
011939,002709:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
011940,002710:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
011941,002711:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY, MIXBR IS SET FOR
011942,002712:                                                                                                  #  MIXED OR NORMAL NOUN.
011943,002713: 
011944,002714: 23,2000                                           BANK     23                                    
011945,002715: 23,2000           52142        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
011946,002716: 23,2001           50273                           INDEX    NOUNREG                               
011947,002717: 23,2002           32052                           CAF      NNADTAB                               
011948,002718: 23,2003           54136                           TS       NNADTEM                               
011949,002719: 23,2004           50273                           INDEX    NOUNREG                               
011950,002720: 23,2005           32152                           CAF      NNTYPTAB                              
011951,002721: 23,2006           54137                           TS       NNTYPTEM                              
011952,002722: 23,2007           40273                           CS       NOUNREG                               
011953,002723: 23,2010           62036                           AD       MIXCON                                
011954,002724: 23,2011           00006                           EXTEND                                         
011955,002725: 23,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
011956,002726: 23,2013           37763                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
011957,002727: 23,2014           54130                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
011958,002728: 23,2015           02034                           TC       LODNLV                                
011959,002729: 23,2016           37762        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
011960,002730: 23,2017           54130                           TS       MIXBR                                 
011961,002731: 23,2020           50273                           INDEX    NOUNREG                               
011962,002732: 23,2021           32420                           CAF      RUTMXTAB   -55                        
011963,002733: 23,2022           54143                           TS       RUTMXTEM                              
011964,002734: 23,2023           35337                           CAF      LOW10                                 
011965,002735: 23,2024           70136                           MASK     NNADTEM                               
011966,002736: 23,2025           54002                           TS       Q                                     #  TEMP
011967,002737: 23,2026           50000                           INDEX    A                                     
011968,002738: 23,2027           32406                           CAF      IDADDTAB                              
011969,002739: 23,2030           54140                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
011970,002740: 23,2031           00006                           EXTEND                                         
011971,002741: 23,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
011972,002742: 23,2033           32410                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
011973,002743: 23,2034           52142        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN INFO INTO A, L.
011974,002744: 23,2035           52006                           DXCH     Z                                     
011975,002745: 
011976,002746: 23,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
011977,002747: 
011978,002748: 
011979,002749:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.

Page 295

011981,002751: 
011982,002752: 23,2037           52114        GTSFOUT            DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
011983,002753: 23,2040           00006                           EXTEND                                         
011984,002754: 23,2041           50000                           INDEX    A                                     
011985,002755: 23,2042           32331                           DCA      SFOUTAB                               
011986,002756: 23,2043           52114        SFCOM              DXCH     SFTEMP1                               
011987,002757: 23,2044           52006                           DXCH     Z                                     
011988,002758: 
011989,002759: 
011990,002760:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
011991,002761: 
011992,002762: 23,2045           52114        GTSFIN             DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
011993,002763: 23,2046           00006                           EXTEND                                         
011994,002764: 23,2047           50000                           INDEX    A                                     
011995,002765: 23,2050           32253                           DCA      SFINTAB                               
011996,002766: 23,2051           12043                           TCF      SFCOM                                 
011997,002767: 
011998,002768:                                                                                                  #  NN  NORMAL NOUNS
011999,002769: 23,2052           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
012000,002770: 23,2053           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
012001,002771: 23,2054           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
012002,002772: 23,2055           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
012003,002773: 23,2056           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
012004,002774: 23,2057           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
012005,002775: 23,2060           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
012006,002776: 23,2061           00000                           OCT      00000                                 #  07 SPARE
012007,002777: 23,2062           77776                           OCT      77776                                 #  10 CHANNEL TO BE SPECIFIED
012008,002778: 23,2063           00000                           OCT      00000                                 #  11 SPARE
012009,002779: 23,2064           00000                           OCT      00000                                 #  12 SPARE
012010,002780: 23,2065           00000                           OCT      00000                                 #  13 SPARE
012011,002781: 23,2066           00000                           OCT      00000                                 #  14 SPARE
012012,002782: 23,2067           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
012013,002783: 23,2070           00024                           ECADR    TIME2                                 #  16 TIME SECONDS
012014,002784: 23,2071           00024                           ECADR    TIME2                                 #  17 TIME HOURS
012015,002785: 23,2072           00032                           ECADR    CDUX                                  #  20 ICDU
012016,002786: 23,2073           00037                           ECADR    PIPAX                                 #  21 PIPAS
012017,002787: 23,2074           00400                           ECADR    THETAD                                #  22 NEW ANGLES I
012018,002788: 23,2075           00342                           ECADR    DSPTEM2                               #  23 DELTA ANGLES I
012019,002789: 23,2076           00337                           ECADR    DSPTEM1                               #  24 DELTA TIME (SEC)
012020,002790: 23,2077           00337                           ECADR    DSPTEM1                               #  25 CHECKLIST
012021,002791: 23,2100           00337                           ECADR    DSPTEM1                               #  26 PRIO/DELAY, ADRES, BBCON
012022,002792: 23,2101           01355                           ECADR    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
012023,002793: 23,2102           00337                           ECADR    DSPTEM1                               #  30 STAR NUMBERS
012024,002794: 23,2103           01363                           ECADR    ALMCADR                               #  31 ALMCADR, ALMCADR +1, ERCOUNT
012025,002795: 23,2104           02166                           ECADR    TDEC                                  #  32 DECISION TIME (MIDCOURSE)
012026,002796: 23,2105           02046                           ECADR    TET                                   #  33 EPHEMERIS TIME(MIDCOURSE)
012027,002797: 23,2106           02174                           ECADR    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
012028,002798: 23,2107           00337                           ECADR    DSPTEM1                               #  35 INBIT MESSAGE

Page 296

012030,002800: 23,2110           01500                           ECADR    LANDMARK                              #  36 LANDMARK DATA 1
012031,002801: 23,2111           01503                           ECADR    LANDMARK   +3                         #  37 LANDMARK DATA 2
012032,002802: 23,2112           00035                           ECADR    OPTY                                  #  40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
012033,002803: 23,2113           00422                           ECADR    TANG                                  #  41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
012034,002804: 23,2114           00342                           ECADR    DSPTEM2                               #  42 AOT ROTATION ANGLES
012035,002805: 23,2115           00374                           ECADR    XYMARK                                #  43 AOT DETENT CODE
012036,002806: 23,2116           00357                           ECADR    FORVEL                                #  44 FORWARD VELOCITY, LATERAL VELOCITY
012037,002807: 23,2117           03031                           ECADR    PCOM                                  #  45 ROTATIONAL HAND CONTROLLER ANGLE RATE
012038,002808: 23,2120           00000                           OCT      00000                                 #  46 SPARE
012039,002809: 23,2121           00000                           OCT      00000                                 #  47 SPARE
012040,002810: 23,2122           01360                           ECADR    FAILREG                               #  50 FAILREG, FAILREG +1, FAILREG +2.
012041,002811: 23,2123           00000                           OCT      00000                                 #  51 SPARE
012042,002812: 23,2124           01444                           ECADR    GBIASX                                #  52 GYRO BIAS DRIFT
012043,002813: 23,2125           01447                           ECADR    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
012044,002814: 23,2126           01452                           ECADR    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
012045,002815: 
012046,002816:                                                                                                  #  NN  MIXED NOUNS
012047,002817: 23,2127           02000                           OCT      02000                                 #  55 LANDING RADAR ALTITUDE, TIME(SEC)
012048,002818: 23,2130           02002                           OCT      02002                                 #  56 LANDING RADAR VELX, TIME(SEC)
012049,002819: 23,2131           02004                           OCT      02004                                 #  57 LANDING RADAR VELY, TIME(SEC)
012050,002820: 23,2132           02006                           OCT      02006                                 #  60 LANDING RADAR VELZ, TIME(SEC)
012051,002821: 23,2133           02010                           OCT      02010                                 #  61 TARGET AZIMUTH AND ELEVATION
012052,002822: 23,2134           04012                           OCT      04012                                 #  62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
012053,002823: 23,2135           04015                           OCT      04015                                 #  63 REND. RADAR RANGE RATE, TRUN, SHAFT
012054,002824: 23,2136           04020                           OCT      04020                                 #  64 INITIAL ALT, FINAL ALT, ALT RATE
012055,002825: 23,2137           02023                           OCT      02023                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
012056,002826:                                                                                                  #       (FETCHED IN INTERRUPT)
012057,002827: 23,2140           04025                           OCT      04025                                 #  66 SYSTEM TEST RESULTS
012058,002828: 23,2141           04030                           OCT      04030                                 #  67 DELTA GYRO ANGLES
012059,002829: 23,2142           02033                           OCT      02033                                 #  70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
012060,002830: 23,2143           02035                           OCT      02035                                 #  71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
012061,002831: 23,2144           04037                           OCT      04037                                 #  72 DELTA POSITION
012062,002832: 23,2145           04042                           OCT      04042                                 #  73 DELTA VELOCITY
012063,002833: 23,2146           04045                           OCT      04045                                 #  74 MEASUREMENT DATA (MIDCOURSE)
012064,002834: 23,2147           04050                           OCT      04050                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
012065,002835: 23,2150           04053                           OCT      04053                                 #  76 POSITION VECTOR
012066,002836: 23,2151           04056                           OCT      04056                                 #  77 VELOCITY VECTOR
012067,002837: 
012068,002838:                                                                                                  #  NN        NORMAL NOUNS
012069,002839: 23,2152           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
012070,002840: 23,2153           00040                           OCT      00040                                 #  01 1COMP  FRACTIONAL
012071,002841: 23,2154           00140                           OCT      00140                                 #  02 1COMP  WHOLE
012072,002842: 23,2155           00102                           OCT      00102                                 #  03 1COMP  DEGREES
012073,002843: 23,2156           00241                           OCT      00241                                 #  04 1COMP  HOURS
012074,002844: 23,2157           00200                           OCT      00200                                 #  05 1COMP  SECONDS
012075,002845: 23,2160           00343                           OCT      00343                                 #  06 1COMP  GYRO DEGREES
012076,002846: 23,2161           00000                           OCT      00000                                 #  07        SPARE
012077,002847: 23,2162           00000                           OCT      00000                                 #  10 1COMP  OCTAL ONLY

Page 297

012079,002849: 23,2163           00000                           OCT      00000                                 #  11        SPARE
012080,002850: 23,2164           00000                           OCT      00000                                 #  12        SPARE
012081,002851: 23,2165           00000                           OCT      00000                                 #  13        SPARE
012082,002852: 23,2166           00000                           OCT      00000                                 #  14        SPARE
012083,002853: 23,2167           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
012084,002854: 23,2170           00200                           OCT      00200                                 #  16 1COMP  SECONDS
012085,002855: 23,2171           00241                           OCT      00241                                 #  17 1COMP  HOURS
012086,002856: 23,2172           04102                           OCT      04102                                 #  20 3COMP  DEGREES
012087,002857: 23,2173           04140                           OCT      04140                                 #  21 3COMP  WHOLE
012088,002858: 23,2174           04102                           OCT      04102                                 #  22 3COMP  DEGREES
012089,002859: 23,2175           04102                           OCT      04102                                 #  23 3COMP  DEGREES
012090,002860: 23,2176           00200                           OCT      00200                                 #  24 1COMP  SECONDS
012091,002861: 23,2177           00140                           OCT      00140                                 #  25 1COMP  WHOLE
012092,002862: 23,2200           04000                           OCT      04000                                 #  26 3COMP  OCTAL ONLY
012093,002863: 23,2201           00140                           OCT      00140                                 #  27 1COMP  WHOLE
012094,002864: 23,2202           04140                           OCT      04140                                 #  30 3COMP  WHOLE
012095,002865: 23,2203           04000                           OCT      04000                                 #  31 3COMP  OCTAL ONLY
012096,002866: 23,2204           00252                           OCT      00252                                 #  32 1COMP  TIME WEEKS
012097,002867: 23,2205           00252                           OCT      00252                                 #  33 1COMP  TIME WEEKS
012098,002868: 23,2206           00350                           OCT      00350                                 #  34 1COMP  POSITION
012099,002869: 23,2207           04000                           OCT      04000                                 #  35 3COMP  OCTAL ONLY
012100,002870: 23,2210           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
012101,002871: 23,2211           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
012102,002872: 23,2212           02102                           OCT      02102                                 #  40 2COMP  DEGREES
012103,002873: 23,2213           02102                           OCT      02102                                 #  41 2COMP  DEGREES
012104,002874: 23,2214           02102                           OCT      02102                                 #  42 2COMP  DEGREES
012105,002875: 23,2215           00140                           OCT      00140                                 #  43 1COMP  WHOLE
012106,002876: 23,2216           02161                           OCT      02161                                 #  44 2COMP  FORWARD/LATERAL VELOCITY
012107,002877: 23,2217           04162                           OCT      04162                                 #  45 3COMP  ROT HAND CONT ANGLE RATE
012108,002878: 23,2220           00000                           OCT      00000                                 #  46        SPARE
012109,002879: 23,2221           00000                           OCT      00000                                 #  47        SPARE
012110,002880: 23,2222           04000                           OCT      04000                                 #  50 3COMP  OCTAL ONLY
012111,002881: 23,2223           00000                           OCT      00000                                 #  51        SPARE
012112,002882: 23,2224           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
012113,002883: 23,2225           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
012114,002884: 23,2226           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
012115,002885: 
012116,002886:                                                                                                  #  NN        MIXED NOUNS
012117,002887: 23,2227           00016                           OCT      00016                                 #  55 2COMP  LANDING RADAR ALT, SECONDS
012118,002888: 23,2230           00023                           OCT      00023                                 #  56 2COMP  LANDING RADAR VELX, SECONDS
012119,002889: 23,2231           00024                           OCT      00024                                 #  57 2COMP  LANDING RADAR VELY, SECONDS
012120,002890: 23,2232           00025                           OCT      00025                                 #  60 2COMP  LANDING RADAR VELZ, SECONDS
012121,002891: 23,2233           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
012122,002892: 23,2234           04114                           OCT      04114                                 #  62 3COMP  REND. RADAR RANGE, DEG, DEG
012123,002893: 23,2235           04115                           OCT      04115                                 #  63 3COMP  REND. RAD. RANGE RATE, DEG,DEG
012124,002894: 23,2236           40757                           OCT      40757                                 #  64 3COMP  IN/FN ALT, IN/FN ALT, ALT RATE
012125,002895: 23,2237           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS
012126,002896: 23,2240           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
012127,002897: 23,2241           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
012128,002898: 23,2242           00126                           OCT      00126                                 #  70 2COMP  OPT TRACK AZIMUTH, DEGREES

Page 298

012130,002900: 23,2243           00126                           OCT      00126                                 #  71 2COMP  OPT TRACK AZIMUTH, DEGREES
012131,002901: 23,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
012132,002902: 23,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
012133,002903: 23,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
012134,002904: 23,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
012135,002905: 23,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
012136,002906: 23,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
012137,002907: 
012138,002908: 
012139,002909: 23,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
012140,002910: 23,2253           03240                           OCT      03240                                 
012141,002911: 23,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
012142,002912: 23,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
012143,002913: 23,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF )
012144,002914: 23,2257           00000                           OCT      0                                     
012145,002915: 23,2260           10707                           OCT      10707                                 #  GYRO DEGREES
012146,002916: 23,2261           03435                           OCT      03435                                 #              UPPED BY 1
012147,002917: 23,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
012148,002918: 23,2263           02133                           OCT      02133                                 
012149,002919: 23,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
012150,002920: 23,2265           30322                           OCT      30322                                 
012151,002921: 23,2266           00004                           OCT      00004                                 #  PIPA BIAS
012152,002922: 23,2267           14021                           OCT      14021                                 
012153,002923: 23,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR.
012154,002924: 23,2271           31463                           OCT      31463                                 
012155,002925: 23,2272           23420                           OCT      23420                                 #  POSITION
012156,002926: 23,2273           00000                           OCT      00000                                 
012157,002927: 23,2274           00201                           OCT      00201                                 #  VELOCITY
012158,002928: 23,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
012159,002929: 23,2276           01371                           OCT      01371                                 #  TIME WEEKS
012160,002930: 23,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
012161,002931: 23,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
012162,002932: 23,2301           03434                           OCT      03434                                 
012163,002933: 23,2302           00006                           OCT      00006                                 #  RENDEZVOUS RADAR RANGE
012164,002934: 23,2303           20162                           OCT      20162                                 
012165,002935: 23,2304           00011                           OCT      00011                                 #  RENDEZVOUS RADAR RANGE RATE
012166,002936: 23,2305           27066                           OCT      27066                                 
012167,002937: 23,2306           00005                           OCT      00005                                 #  LANDING RADAR ALTITUDE
012168,002938: 23,2307           24733                           OCT      24733                                 
012169,002939: 23,2310           00002                           OCT      00002                                 #  INITIAL/FINAL ALTITUDE
012170,002940: 23,2311           23224                           OCT      23224                                 
012171,002941: 23,2312           00014                           OCT      00014                                 #  ALTITUDE RATE
012172,002942: 23,2313           06500                           OCT      06500                                 
012173,002943: 23,2314           00012                           OCT      00012                                 #  FORWARD/LATERAL VELOCITY
012174,002944: 23,2315           36455                           OCT      36455                                 
012175,002945: 23,2316           04256                           OCT      04256                                 #  ROT HAND CONT ANGLE RATE
012176,002946: 23,2317           07071                           OCT      07071                                 
012177,002947: 23,2320           00011                           OCT      00011                                 #  LANDING RADAR VELX
012178,002948: 23,2321           17410                           OCT      17410                                 

Page 299

012180,002950: 23,2322           00004                           OCT      00004                                 #  LANDING RADAR VELY
012181,002951: 23,2323           33740                           OCT      33740                                 
012182,002952: 23,2324           00007                           OCT      00007                                 #  LANDING RADAR VELZ
012183,002953: 23,2325           03701                           OCT      03701                                 
012184,002954: 23,2326           00005                           OCT      00005                                 #  OPTICAL AZIMUTH TRACKER ANGLE
012185,002955: 23,2327           21616                           OCT      21616                                 
012186,002956:                                                                                                  #  END OF SFINTAB
012187,002957: 
012188,002958: 
012189,002959: 23,2330           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
012190,002960: 23,2331           13261                           OCT      13261                                 
012191,002961: 23,2332           27670                           OCT      27670                                 #  TIME HOURS
012192,002962: 23,2333           31357                           OCT      31357                                 
012193,002963: 23,2334           00000                           OCT      0                                     #  DEGREES
012194,002964: 23,2335           00000                           OCT      0                                     
012195,002965: 23,2336           00714                           OCT      00714                                 #  GYRO DEGREES
012196,002966: 23,2337           31463                           OCT      31463                                 #  (POINT BETWEEN BITS 7-8)
012197,002967: 23,2340           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
012198,002968: 23,2341           32323                           OCT      32323                                 
012199,002969: 23,2342           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
012200,002970: 23,2343           06400                           OCT      06400                                 
012201,002971: 23,2344           07237                           OCT      07237                                 #  PIPA BIAS
012202,002972: 23,2345           37776                           OCT      37776                                 
012203,002973: 23,2346           00120                           OCT      00120                                 #  PIPA SCALE ERROR
012204,002974: 23,2347           00000                           OCT      00000                                 
012205,002975: 23,2350           00321                           OCT      00321                                 #  POSITION
012206,002976: 23,2351           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
012207,002977: 23,2352           37441                           OCT      37441                                 #  VELOCITY
012208,002978: 23,2353           14247                           OCT      14247                                 
012209,002979: 23,2354           05300                           OCT      05300                                 #  TIME WEEKS
012210,002980: 23,2355           20305                           OCT      20305                                 
012211,002981: 23,2356           34631                           OCT      34631                                 #  ELEVATION DEGREES
012212,002982: 23,2357           23146                           OCT      23146                                 
012213,002983: 23,2360           04725                           OCT      04725                                 #  RENDEZVOUS RADAR RANGE
012214,002984: 23,2361           35454                           OCT      35454                                 
012215,002985: 23,2362           03225                           OCT      03225                                 #  RENDEZVOUS RADAR RANGE RATE
012216,002986: 23,2363           07470                           OCT      07470                                 
012217,002987: 23,2364           05521                           OCT      05521                                 #  LANDING RADAR ALTITUDE
012218,002988: 23,2365           30260                           OCT      30260                                 
012219,002989: 23,2366           14226                           OCT      14226                                 #  INITIAL/FINAL ALTITUDE
012220,002990: 23,2367           31757                           OCT      31757                                 
012221,002991: 23,2370           02476                           OCT      02476                                 #  ALTITUDE RATE
012222,002992: 23,2371           05531                           OCT      05531                                 
012223,002993: 23,2372           02727                           OCT      02727                                 #  FORWARD/LATERAL VELOCITY
012224,002994: 23,2373           16415                           OCT      16415                                 
012225,002995: 23,2374           00007                           OCT      00007                                 #  ROT HAND CONT ANGLE RATE
012226,002996: 23,2375           13734                           OCT      13734                                 
012227,002997: 23,2376           03277                           OCT      03277                                 #  LANDING RADAR VELX
012228,002998: 23,2377           14165                           OCT      14165                                 

Page 300

012230,003000: 23,2400           06442                           OCT      06442                                 #  LANDING RADAR VELY
012231,003001: 23,2401           04735                           OCT      04735                                 
012232,003002: 23,2402           04374                           OCT      04374                                 #  LANDING RADAR VELZ
012233,003003: 23,2403           30251                           OCT      30251                                 
012234,003004: 23,2404           05605                           OCT      05605                                 #  OPTICAL TRACKER AZIMUTH ANGLE
012235,003005: 23,2405           03656                           OCT      03656                                 
012236,003006:                                                                                                  #  END OF SFOUTAB
012237,003007: 
012238,003008: 
012239,003009:                                                                                                  #  MIXNOUN  SF ROUT
012240,003010: 23,2406           03471        IDADDTAB           ECADR    RSTACK     +18D                       #  01       LANDING RADAR ALTITUDE
012241,003011: 23,2407           03475                           ECADR    RSTACK     +22D                       #  01       SECONDS
012242,003012: 23,2410           03447                           ECADR    RSTACK                                #  02       LANDING RADAR VELX
012243,003013: 23,2411           03453                           ECADR    RSTACK     +4                         #  02       SECONDS
012244,003014: 23,2412           03455                           ECADR    RSTACK     +6                         #  03       LANDING RADAR VELY
012245,003015: 23,2413           03461                           ECADR    RSTACK     +10D                       #  03       SECONDS
012246,003016: 23,2414           03463                           ECADR    RSTACK     +12D                       #  04       LANDING RADAR VELZ
012247,003017: 23,2415           03467                           ECADR    RSTACK     +16D                       #  04       SECONDS
012248,003018: 23,2416           00337                           ECADR    DSPTEM1                               #  05       DEGREES
012249,003019: 23,2417           00340                           ECADR    DSPTEM1    +1                         #  05       ELEVATION DEGREES
012250,003020: 23,2420           03447                           ECADR    RSTACK                                #  06       RENDEZVOUS RADAR RANGE
012251,003021: 23,2421           03451                           ECADR    RSTACK     +2                         #  06       DEGREES
012252,003022: 23,2422           03452                           ECADR    RSTACK     +3                         #  06       DEGREES
012253,003023: 23,2423           03455                           ECADR    RSTACK     +6                         #  07       RENDEZVOUS RADAR RANGE RATE
012254,003024: 23,2424           03457                           ECADR    RSTACK     +8D                        #  07       DEGREES
012255,003025: 23,2425           03460                           ECADR    RSTACK     +9D                        #  07       DEGREES
012256,003026: 23,2426           00351                           ECADR    ALT                                   #  10       INITIAL/FINAL ALTITUDE
012257,003027: 23,2427           00354                           ECADR    FINALT                                #  10       INITIAL/FINAL ALTITUDE
012258,003028: 23,2430           00353                           ECADR    ALTRATE                               #  10       ALTITUDE RATE
012259,003029: 23,2431           00013                           ECADR    SAMPTIME                              #  11       HOURS
012260,003030: 23,2432           00013                           ECADR    SAMPTIME                              #  11       SECONDS
012261,003031: 23,2433           00342                           ECADR    DSPTEM2                               #  12       WHOLE
012262,003032: 23,2434           00343                           ECADR    DSPTEM2    +1                         #  12       FRACTIONAL
012263,003033: 23,2435           00344                           ECADR    DSPTEM2    +2                         #  12       WHOLE
012264,003034: 23,2436           00403                           ECADR    DELVX                                 #  13       GYRO DEGREES
012265,003035: 23,2437           00405                           ECADR    DELVX      +2                         #  13       GYRO DEGREES
012266,003036: 23,2440           00407                           ECADR    DELVX      +4                         #  13       GYRO DEGREES
012267,003037: 23,2441           01475                           ECADR    AZANG                                 #  14       OPT TRACK AZIMUTH ANGLE
012268,003038: 23,2442           01475                           ECADR    ELANG                                 #  14       DEGREES
012269,003039: 23,2443           01475                           ECADR    DESLOTSY                              #  15       OPT TRACK AZIMUTH ANGLE
012270,003040: 23,2444           01475                           ECADR    DESLOTSX                              #  15       DEGREES
012271,003041: 23,2445           02052                           ECADR    DELR                                  #  16       POSITION
012272,003042: 23,2446           02054                           ECADR    DELR       +2                         #  16       POSITION
012273,003043: 23,2447           02056                           ECADR    DELR       +4                         #  16       POSITION
012274,003044: 23,2450           02060                           ECADR    DELVEL                                #  17       VELOCITY
012275,003045: 23,2451           02062                           ECADR    DELVEL     +2                         #  17       VELOCITY
012276,003046: 23,2452           02064                           ECADR    DELVEL     +4                         #  17       VELOCITY
012277,003047: 23,2453           02166                           ECADR    TDEC                                  #  20       TIME WEEKS
012278,003048: 23,2454           02174                           ECADR    MEASQ                                 #  20       POSITION

Page 301

012280,003050: 23,2455           02200                           ECADR    MEASMODE                              #  20       WHOLE
012281,003051: 23,2456           00337                           ECADR    DSPTEM1                               #  21       POSITION
012282,003052: 23,2457           00341                           ECADR    DSPTEM1    +2                         #  21       VELOCITY
012283,003053: 23,2460           02176                           ECADR    DELTAQ                                #  21       POSITION
012284,003054: 23,2461           00337                           ECADR    DSPTEM1                               #  22       POSITION
012285,003055: 23,2462           00341                           ECADR    DSPTEM1    +2                         #  22       POSITION
012286,003056: 23,2463           00343                           ECADR    DSPTEM1    +4                         #  22       POSITION
012287,003057: 23,2464           00337                           ECADR    DSPTEM1                               #  23       VELOCITY
012288,003058: 23,2465           00341                           ECADR    DSPTEM1    +2                         #  23       VELOCITY
012289,003059: 23,2466           00343                           ECADR    DSPTEM1    +4                         #  23       VELOCITY
012290,003060: 23,2467           00000                           OCT      00000                                 #           SPARE
012291,003061: 23,2470           00000                           OCT      00000                                 #           SPARE
012292,003062: 23,2471           00000                           OCT      00000                                 #           SPARE
012293,003063: 23,2472           00000                           OCT      00000                                 #           SPARE
012294,003064: 23,2473           00000                           OCT      00000                                 #           SPARE
012295,003065: 23,2474           00000                           OCT      00000                                 #           SPARE
012296,003066:                                                                                                  #  END OF IDADDTAB
012297,003067: 
012298,003068:                                                                                                  #  MIXNOUN  SF ROUT
012299,003069: 23,2475           00204        RUTMXTAB           OCT      00204                                 #  01  LANDING RADAR ALTITUDE, SECONDS
012300,003070: 23,2476           00204                           OCT      00204                                 #  02  LANDING RADAR VELX, SECONDS
012301,003071: 23,2477           00204                           OCT      00204                                 #  03  LANDING RADAR VELY, SECONDS
012302,003072: 23,2500           00204                           OCT      00204                                 #  04  LANDING RADAR VELZ, SECONDS
012303,003073: 23,2501           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
012304,003074: 23,2502           04104                           OCT      04104                                 #  06  RENDEZVOUS RADAR RANGE, DEG, DEG
012305,003075: 23,2503           04104                           OCT      04104                                 #  07  REND. RADAR RANGE RATE, DEG, DEG
012306,003076: 23,2504           06204                           OCT      06204                                 #  10  INIT/FIN ALT, INIT/FIN ALT, ALT RATE
012307,003077: 23,2505           00205                           OCT      00205                                 #  11  HOURS, SECONDS
012308,003078: 23,2506           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
012309,003079: 23,2507           16347                           OCT      16347                                 #  13  GYRO DEGREES (FOR EACH)
012310,003080: 23,2510           00104                           OCT      00104                                 #  14  OPT TRACK AZIMUTH ANGLE, DEGREES
012311,003081: 23,2511           00104                           OCT      00104                                 #  15  OPT TRACK AZIMUTH ANGLE, DEGREES
012312,003082: 23,2512           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
012313,003083: 23,2513           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
012314,003084: 23,2514           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
012315,003085: 23,2515           16247                           OCT      16247                                 #  21  POSITION, VELOCITY, POSITION
012316,003086: 23,2516           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
012317,003087: 23,2517           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
012318,003088:                                                                                                  #  END OF RUTMXTAB
012319,003089: 

Page 302

012321,003091:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
012322,003092: 
012323,003093:    4513                                           BLOCK    02                                    
012324,003094: 
012325,003095:                                                                                                  #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
012326,003096:                                                                                                  #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
012327,003097: 
012328,003098:    4513           54310        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
012329,003099:    4514           54003                           TS       EBANK                                 #  SET EBANK BITS
012330,003100:    4515           74564                           MASK     LOW8                                  
012331,003101:    4516           65352                           AD       OCT1400                               
012332,003102:    4517           54135                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
012333,003103:    4520           00002                           TC       Q                                     
012334,003104: 
012335,003105:                                                                                                  #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
012336,003106:                                                                                                  #                 E ADRES AND PUTS IT INTO NOUNADD.
012337,003107: 
012338,003108:    4521           30310        SETNADD            CA       NOUNCADR                              
012339,003109:    4522           14514                           TCF      SETNCADR   +1                         
012340,003110: 
012341,003111:                                                                                                  #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
012342,003112:                                                                                                  #                 DERIVED AND LEFT IN A.
012343,003113: 
012344,003114:    4523           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
012345,003115:    4524           74564                           MASK     LOW8                                  
012346,003116:    4525           65352                           AD       OCT1400                               #  E ADRES LEFT IN A
012347,003117:    4526           00002                           TC       Q                                     
012348,003118: 
012349,003119: 
012350,003120:    4527           00016        R1D1               OCT      16                                    
012351,003121:    4530           00011        R2D1               OCT      11                                    
012352,003122:    4531           00004        R3D1               OCT      4                                     
012353,003123: 
012354,003124:    4532           54020        RIGHT5             TS       CYR                                   
012355,003125:    4533           40020                           CS       CYR                                   
012356,003126:    4534           40020                           CS       CYR                                   
012357,003127:    4535           40020                           CS       CYR                                   
012358,003128:    4536           40020                           CS       CYR                                   
012359,003129:    4537           56020                           XCH      CYR                                   
012360,003130:    4540           00002                           TC       Q                                     
012361,003131: 
012362,003132:    4541           54022        LEFT5              TS       CYL                                   
012363,003133:    4542           40022                           CS       CYL                                   
012364,003134:    4543           40022                           CS       CYL                                   

Page 303

012366,003136:    4544           40022                           CS       CYL                                   
012367,003137:    4545           40022                           CS       CYL                                   
012368,003138:    4546           56022                           XCH      CYL                                   
012369,003139:    4547           00002                           TC       Q                                     
012370,003140: 
012371,003141:    4550           60000        SLEFT5             DOUBLE                                         
012372,003142:    4551           60000                           DOUBLE                                         
012373,003143:    4552           60000                           DOUBLE                                         
012374,003144:    4553           60000                           DOUBLE                                         
012375,003145:    4554           60000                           DOUBLE                                         
012376,003146:    4555           00002                           TC       Q                                     
012377,003147: 
012378,003148: 
012379,003149:    4556           00037        LOW5               OCT      37                                    
012380,003150:    4557           01740        MID5               OCT      1740                                  
012381,003151:    4560           76000        HI5                OCT      76000                                 #  MUST STAY HERE
012382,003152: 
012383,003153:    4561     5723               TCNOVAC            =        SVCT3      +5                         
012384,003154:    4561           05663        TCWAIT             TC       WAITLIST                              
012385,003155:    4562     5717               TCTSKOVR           =        SVCT3      +1                         
012386,003156:    4562           05516        TCFINDVC           TC       FINDVAC                               
012387,003157: 
012388,003158: 
012389,003159:    4563     5210               CHRPRIO            =        PRIO30                                #  EXEC PRIORITY OF CHARIN
012390,003160: 
012391,003161:    4563           03777        LOW11              OCT      3777                                  
012392,003162:    4564     4563               B12-1              EQUALS   LOW11                                 
012393,003163:    4564           00377        LOW8               OCT      377                                   
012394,003164:    4565           00023        VD1                OCT      23                                    
012395,003165:    4566           00021        ND1                OCT      21                                    
012396,003166:    4567           00025        MD1                OCT      25                                    
012397,003167: 
012398,003168:    4570           00012        BINCON             DEC      10         B-14                       
012399,003169: 
012400,003170:    4571           37755        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
012401,003171:    4572           00006                           EXTEND                                         
012402,003172:    4573           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
012403,003173:    4574           00002                           TC       Q                                     
012404,003174: 
012405,003175:    4575           47755        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
012406,003176:    4576           00006                           EXTEND                                         
012407,003177:    4577           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
012408,003178:    4600           00002                           TC       Q                                     
012409,003179: 
012410,003180:    4601           37757        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
012411,003181:    4602           00006                           EXTEND                                         
012412,003182:    4603           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
012413,003183:    4604           00002                           TC       Q                                     
012414,003184: 

Page 304

012416,003186:    4605           00006        LODSAMPT           EXTEND                                         
012417,003187:    4606           30025                           DCA      TIME2                                 
012418,003188:    4607           52014                           DXCH     SAMPTIME                              
012419,003189:    4610           00002                           TC       Q                                     
012420,003190: 
012421,003191: 
012422,003192:    4611           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
012423,003193:    4612           30146                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
012424,003194:    4613           20146                           DAS      MPAC       +1                         
012425,003195:    4614           60144                           AD       MPAC                                  
012426,003196:    4615           26144                           ADS      MPAC                                  
012427,003197:    4616           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
012428,003198:    4617           00002                           TC       Q                                     #  NO NET OF/UF
012429,003199:    4620           54111                           TS       OVFIND                                #  OVFIND SET TO +/- 1 FOR OF/UF
012430,003200:    4621           00002                           TC       Q                                     
012431,003201: 
012432,003202: 
012433,003203:    4622           37756        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
012434,003204:    4623           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
012435,003205:    4624           05011                           WOR      DSALMOUT                              
012436,003206:    4625           00002                           TC       Q                                     
012437,003207: 
012438,003208:    4626           47756        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
012439,003209:    4627           00006                           EXTEND                                         
012440,003210:    4630           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
012441,003211:    4631           00002                           TC       Q                                     
012442,003212: 

Page 305

012444,003214:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
012445,003215:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
012446,003216:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
012447,003217: 
012448,003218:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
012449,003219:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
012450,003220: 
012451,003221:                                                                                                  #        THE CALLING SEQUENCES ARE
012452,003222:                                                                                                  #  L        TC     GRABDSP
012453,003223:                                                                                                  #  L+1      RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
012454,003224:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
012455,003225: 
012456,003226:                                                                                                  #  L        TC     NVSUB
012457,003227:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
012458,003228:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
012459,003229: 
012460,003230:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
012461,003231:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT.
012462,003232:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012463,003233:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012464,003234:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
012465,003235: 
012466,003236:                                                                                                  #        THE CALLING SEQUENCE IS
012467,003237:                                                                                                  #           CAF    WAKEFCADR
012468,003238:                                                                                                  #           TC     GRABUSY
012469,003239: 
012470,003240:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
012471,003241:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
012472,003242:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012473,003243:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012474,003244:                                                                                                  #                                              YOUR CADR IS PUT
012475,003245:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO).  IT ALSO TURNS ON KEY RELEASE LIGHT.
012476,003246: 
012477,003247:                                                                                                  #         THE CALLING SEQUENCE IS
012478,003248:                                                                                                  #           CAF    WAKEFCADR
012479,003249:                                                                                                  #           TC     NVSUBUSY
012480,003250: 
012481,003251: 
012482,003252:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 1.75 SECS.
012483,003253:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
012484,003254:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
012485,003255: 
012486,003256: 
012487,003257:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD 
012488,003258:                                                                                                  #  AND DISPLAY SYSTEM.
012489,003259:                                                                                                  #  +0  FREE

Page 306

012491,003261:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
012492,003262:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
012493,003263: 
012494,003264:    4632           10330        GRABDSP            CCS      GRABLOCK                              
012495,003265:    4633           00002                           TC       Q                                     #  ALREADY GRABBED, RETURN TO L+1
012496,003266:    4634           37763                           CAF      ONE                                   #  NOT GRABBED, SET TO +1
012497,003267: 
012498,003268:    4635           54330                           TS       GRABLOCK                              #  AND RETURN TO L+2
012499,003269:    4636           17015                           TCF      Q+1                                   
012500,003270: 
012501,003271: 
012502,003272:    4637           35337        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012503,003273:    4640           70002                           MASK     Q                                     #  BANKS ONLY DESIRING THE FCADR OF
012504,003274:    4641           60004                           AD       FBANK                                 #  1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
012505,003275:    4642           05225        GRABUSY            TC       POSTJUMP                              #  TO BE ENTERED.
012506,003276:    4643           10000                           CADR     GRABUSYB                              
012507,003277: 04,3472                                           SETLOC   DOPROC     +2                         
012508,003278: 04,3472           54001        GRABUSY1           TS       L                                     
012509,003279: 04,3473           10330                           CCS      GRABLOCK                              
012510,003280: 04,3474           03477                           TC       +3                                    #  STILL GRABBED
012511,003281: 04,3475           30001                           CA       L                                     #  NOT GRABBED SO DO DIRECT CALL
012512,003282: 04,3476           05230                           TC       BANKJUMP                              
012513,003283: 04,3477           37762                           CAF      TWO                                   
012514,003284: 04,3500           54134                           TS       LSTPTR                                
012515,003285: 04,3501           50134                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
012516,003286: 04,3502           10333                           CCS      DSPLIST                               #  FROM BOTTOM.
012517,003287: 04,3503           03505                           TC       +2                                    
012518,003288: 04,3504           03510                           TC       PUTINLST                              #  SPACE FOUND
012519,003289: 04,3505           10134                           CCS      LSTPTR                                #  DECREMENT POINTER
012520,003290: 
012521,003291: 04,3506           03500                           TC       -6                                    
012522,003292: 04,3507           03554                           TC       LSTFULL                               
012523,003293: 04,3510           30001        PUTINLST           CA       L                                     
012524,003294: 04,3511           50134                           INDEX    LSTPTR                                
012525,003295: 04,3512           54333                           TS       DSPLIST                               
012526,003296: 04,3513           05545                           TC       JOBSLEEP                              
012527,003297: 
012528,003298: 
012529,003299:                                                                                                  #  GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012530,003300:                                                                                                  #  SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
012531,003301:                                                                                                  #  WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
012532,003302:                                                                                                  #  JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
012533,003303:                                                                                                  #  SYSTEM IS FREED.
012534,003304: 
012535,003305:    4644                                           SETLOC   GRABUSY    +2                         
012536,003306:    4644           10330        GRABWAIT           CCS      GRABLOCK                              
012537,003307:    4645           14637                           TCF      PREGBSY                               #  GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
012538,003308:    4646           37763                           CAF      ONE                                   #  NOT GRABBED. GRAB AND RETURN TO L+1.

Page 307

012540,003310:    4647           54330                           TS       GRABLOCK                              
012541,003311:    4650           00002                           TC       Q                                     
012542,003312: 
012543,003313: 
012544,003314:    4651           44656        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012545,003315:    4652           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
012546,003316:    4653           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
012547,003317:    4654           05225        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
012548,003318:    4655           10001                           CADR     NVSUBSYB                              
012549,003319:    4656           02003        2K+3               OCT      2003                                  
012550,003320: 
012551,003321: 04,3514                                           SETLOC   PUTINLST   +4                         
012552,003322: 04,3514           54001        NVSUBSY1           TS       L                                     
012553,003323: 04,3515           10303                           CCS      DSPLOCK                               #  TEST IF REALLY LOCKED OUT
012554,003324: 04,3516           03521                           TC       +3                                    #  STILL BUSY
012555,003325: 04,3517           30001                           CA       L                                     #  DSPLOCK = +0 SO RETURN DIRECTLY
012556,003326: 04,3520           05230                           TC       BANKJUMP                              
012557,003327: 04,3521           37762                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
012558,003328: 04,3522           54330                           TS       GRABLOCK                              
012559,003329: 04,3523           30001                           CA       L                                     
012560,003330: 04,3524           56335                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
012561,003331: 04,3525           56334                           XCH      DSPLIST    +1                         #          (BOTTOM)
012562,003332: 04,3526           56333                           XCH      DSPLIST                               
012563,003333: 04,3527           10000                           CCS      A                                     
012564,003334: 04,3530           03554                           TC       LSTFULL                               
012565,003335: 04,3531           03533                           TC       +2                                    
012566,003336: 04,3532           03554                           TC       LSTFULL                               
012567,003337: 04,3533           04601                           TC       RELDSPON                              
012568,003338: 04,3534           30001                           CA       L                                     
012569,003339: 04,3535           05545        ENDNVBSY           TC       JOBSLEEP                              
012570,003340: 
012571,003341: 
012572,003342:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012573,003343:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
012574,003344:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
012575,003345:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
012576,003346:                                                                                                  #  IS NOT BUSY.
012577,003347: 
012578,003348:    4657                                           SETLOC   NVSUBUSY   +3                         
012579,003349:    4657           54113        NVSBWAIT           TS       NVTEMP                                
012580,003350:    4660           10303                           CCS      DSPLOCK                               
012581,003351:    4661           14664                           TCF      NVSBWT1                               #  BUSY
012582,003352:    4662           30002                           CA       Q                                     #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
012583,003353:    4663           14451                           TCF      NVSUB      +5                         #  AFTER EXECUTION.
012584,003354:    4664           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
012585,003355:    4665           14651                           TCF      PRENVBSY                              #  GO TO SLEEP.
012586,003356: 

Page 308

012588,003358:    4666           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
012589,003359:    4667           54134                           TS       RELRET                                #  OFF, SEARCH DSPLIST
012590,003360:    4670           37771                           CAF      NEG1                                  
012591,003361:    4671           60330                           AD       GRABLOCK                              
012592,003362:    4672           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
012593,003363:    4673           64701                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
012594,003364:    4674           04714                           TC       WKSEARCH                              
012595,003365:    4675           04701                           TC       RELDSP2                               #  LIST EMPTY
012596,003366:    4676           05551                           TC       JOBWAKE                               #  LIST NOT EMPTY
012597,003367:    4677           37763                           CAF      ONE                                   
012598,003368:    4700           54330                           TS       GRABLOCK                              
012599,003369:    4701           00004        RELDSP2            INHINT                                         
012600,003370:    4702           47757                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
012601,003371:    4703           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
012602,003372:    4704           03011                           WAND     DSALMOUT                              
012603,003373:    4705           37767                           CAF      ZERO                                  
012604,003374:    4706           54303                           TS       DSPLOCK                               
012605,003375:    4707           00003                           RELINT                                         
012606,003376:    4710           00134                           TC       RELRET                                
012607,003377:    4711           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. RELDSP LIGHT OFF.
012608,003378:    4712           54134                           TS       RELRET                                #  NO LIST SEARCH
012609,003379:    4713           04701                           TC       RELDSP2                               
012610,003380: 
012611,003381: 
012612,003382:    4714           37767        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
012613,003383:    4715           56333                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
012614,003384:    4716           56334                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
012615,003385:    4717           56335                           XCH      DSPLIST    +2                         
012616,003386:    4720           00006                           EXTEND                                         
012617,003387:    4721           17020                           BZF      TCQ                                   #  EMPTY, RETURN TO L+1
012618,003388:    4722           00004                           INHINT                                         #  NOT EMPTY
012619,003389:    4723           17015                           TCF      Q+1                                   #  RETURN TO L+2
012620,003390: 
012621,003391:    4724           56002        FREEDSP            XCH      Q                                     
012622,003392:    4725           54134                           TS       FREERET                               
012623,003393:    4726           00004                           INHINT                                         
012624,003394:    4727           34735                           CAF      SHOTIME                               
012625,003395:    4730           05663                           TC       WAITLIST                              
012626,003396:    4731     0270                                  EBANK=   DSPCOUNT                              
012627,003397:    4731           03536 10060                     2CADR    FREEWAIT                              
012628,003398: 
012629,003399:    4733           00003                           RELINT                                         
012630,003400:    4734           00134                           TC       FREERET                               
012631,003401: 
012632,003402:    4735           00257        SHOTIME            DEC      175        B-14                       #  SET FOR 1.75 SEC.
012633,003403: 04,3536                                           SETLOC   ENDNVBSY   +1                         
012634,003404: 

Page 309

012636,003406: 04,3536           35210        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
012637,003407: 04,3537           05505                           TC       NOVAC                                 
012638,003408: 04,3540     0270                                  EBANK=   DSPCOUNT                              
012639,003409: 04,3540           03543 10060                     2CADR    FREDSPDO                              
012640,003410: 
012641,003411: 04,3542           05727                           TC       TASKOVER                              
012642,003412: 
012643,003413: 
012644,003414: 04,3543           04714        FREDSPDO           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
012645,003415: 04,3544           03552                           TC       LSTEMPTY                              #  LIST EMPTY
012646,003416: 04,3545           05551                           TC       JOBWAKE                               #  LIST NOT EMPTY
012647,003417: 04,3546           00003                           RELINT                                         
012648,003418: 04,3547           37763                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
012649,003419: 04,3550           54330                           TS       GRABLOCK                              
012650,003420: 04,3551           05567                           TC       ENDOFJOB                              
012651,003421: 04,3552           37767        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
012652,003422: 04,3553           03550                           TC       -3                                    
012653,003423: 
012654,003424: 
012655,003425: 04,3554           06000        LSTFULL            TC       ABORT                                 
012656,003426: 04,3555           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
012657,003427: 

Page 310

012659,003429:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
012660,003430:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
012661,003431: 
012662,003432: 05,3414                                           SETLOC   DSPMMEND   +1                         
012663,003433: 
012664,003434: 05,3414           00004        VBTSTLTS           INHINT                                         
012665,003435: 05,3415           47763                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
012666,003436: 05,3416           70366                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
012667,003437: 05,3417           67763                           AD       BIT1                                  
012668,003438: 05,3420           54366                           TS       IMODES33                              
012669,003439: 
012670,003440: 05,3421           33457                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
012671,003441: 05,3422           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
012672,003442: 05,3423           05011                           WOR      DSALMOUT                              
012673,003443: 05,3424           33460                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
012674,003444: 05,3425           54326                           TS       DSPTAB     +11D                       #  PROG ALM.
012675,003445: 05,3426           37752                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
012676,003446: 05,3427           00006                           EXTEND                                         
012677,003447: 05,3430           05013                           WOR      CHAN13                                
012678,003448: 05,3431           34570                           CAF      TEN                                   
012679,003449: 05,3432           54107        TSTLTS1            TS       ERCNT                                 
012680,003450: 05,3433           43455                           CS       FULLDSP                               
012681,003451: 05,3434           50107                           INDEX    ERCNT                                 
012682,003452: 05,3435           54313                           TS       DSPTAB                                
012683,003453: 05,3436           10107                           CCS      ERCNT                                 
012684,003454: 05,3437           03432                           TC       TSTLTS1                               
012685,003455: 05,3440           43456                           CS       FULLDSP1                              
012686,003456: 05,3441           54314                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
012687,003457: 05,3442           54317                           TS       DSPTAB     +4                         
012688,003458: 05,3443           54321                           TS       DSPTAB     +6                         
012689,003459: 05,3444           37764                           CAF      ELEVEN                                
012690,003460: 05,3445           54307                           TS       NOUT                                  
012691,003461: 05,3446           00003                           RELINT                                         
012692,003462: 05,3447           33462                           CAF      SHOLTS                                
012693,003463: 05,3450           00004                           INHINT                                         
012694,003464: 05,3451           05663                           TC       WAITLIST                              
012695,003465: 05,3452     0313                                  EBANK=   DSPTAB                                
012696,003466: 05,3452           03463 12060                     2CADR    TSTLTS2                               
012697,003467: 
012698,003468: 05,3454           05567                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
012699,003469:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
012700,003470:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
012701,003471: 
012702,003472: 05,3455           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
012703,003473: 05,3456           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
012704,003474: 05,3457           00175        TSTCON1            OCT      00175                                 
012705,003475:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
012706,003476:                                                                                                  #  V/N FLASH, OPERATOR ERROR.

Page 311

012708,003478: 05,3460           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D  BITS 4,6,8,9,
012709,003479:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
012710,003480: 05,3461           00115        TSTCON3            OCT      00115                                 #  CHAN 11  BITS 1, 3, 4, 7.
012711,003481:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
012712,003482: 05,3462           00764        SHOLTS             OCT      764                                   #  5 SEC
012713,003483: 
012714,003484: 05,3463           35210        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
012715,003485: 05,3464           05505                           TC       NOVAC                                 
012716,003486: 05,3465     0313                                  EBANK=   DSPTAB                                
012717,003487: 05,3465           03470 12060                     2CADR    TSTLTS3                               
012718,003488: 
012719,003489: 05,3467           05727                           TC       TASKOVER                              
012720,003490: 
012721,003491: 
012722,003492: 05,3470           43461        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
012723,003493: 05,3471           00004                           INHINT                                         
012724,003494: 05,3472           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
012725,003495: 05,3473           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
012726,003496: 05,3474           47752                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
012727,003497: 05,3475           00006                           EXTEND                                         
012728,003498: 05,3476           03013                           WAND     CHAN13                                
012729,003499: 05,3477           37745                           CAF      BIT15                                 #  TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
012730,003500: 05,3500           54326                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
012731,003501: 05,3501           43521                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
012732,003502: 05,3502           70366                           MASK     IMODES33                              #  LIGHTS COMPLETE.
012733,003503: 05,3503           65642                           AD       PRIO16                                
012734,003504: 05,3504           54366                           TS       IMODES33                              
012735,003505: 
012736,003506: 05,3505           43523                           CS       OCT55000                              
012737,003507: 05,3506           70365                           MASK     IMODES30                              
012738,003508: 05,3507           65641                           AD       PRIO15                                #  15000.
012739,003509: 05,3510           54365                           TS       IMODES30                              
012740,003510: 
012741,003511: 05,3511           43522                           CS       RFAILS2                               
012742,003512: 05,3512           70412                           MASK     RADMODES                              
012743,003513: 05,3513           67755                           AD       BIT7                                  
012744,003514: 05,3514           54412                           TS       RADMODES                              
012745,003515: 
012746,003516: 05,3515           00003                           RELINT                                         
012747,003517: 
012748,003518: 05,3516           02001                           TC       DSPMM                                 #  REDISPLAY C(MODREG)
012749,003519: 05,3517           05225                           TC       POSTJUMP                              #  TURN OFF KEY RLSE LIGHT (AND SEARCH LIST
012750,003520: 05,3520           11333                           CADR     VBTERM                                #  IF APPROPRIATE).
012751,003521:                                                                                                  #  TURN OFF V/N FLASH, SET LOADSTAT FOR
012752,003522:                                                                                                  #  FOR TERMINATE CONDITION, AND TO TO
012753,003523:                                                                                                  #  RECALTST. FINALLY DO TC ENDOFJOB.
012754,003524: 

Page 312

012756,003526: 05,3521           16001        13-11,1            OCT      16001                                 
012757,003527: 05,3522           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
012758,003528: 05,3523           55000        OCT55000           OCT      55000                                 

End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc.  Parent file is MAIN.agc