Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

008990,000002:                                                                                                  ## Copyright:   Public domain.
008991,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
008992,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
008993,000005:                                                                                                  ##              It is part of an early development version of the software
008994,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
008995,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
008996,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
008997,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
008998,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
008999,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
009000,000012:                                                                                                  ##              that the code format has been changed to conform to the
009001,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
009002,000014:                                                                                                  ##              original YUL assembler.
009003,000015:                                                                                                  ## Reference:   pp. 219-299
009004,000016:                                                                                                  ## Assembler:   yaYUL
009005,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009006,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009007,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
009008,000020:                                                                                                  ##              2017-06-06 RSB  Transcribed through page 258, with
009009,000021:                                                                                                  ##                              pp. 259-299 remaining to be done.
009010,000022:                                                                                                  ##              2017-06-07 RSB  Completed transcription.
009011,000023:                                                                                                  ##              2017-06-21 RSB  Proofed using octopus/ProoferComments.
009012,000024: 

Page 219

009014,000026:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM           DATE - 22 NOV 1966
009015,000027:                                                                                                  #  MOD NO - 0                                            LOG SECTION - PINBALL GAME
009016,000028:                                                                                                  #  MOD BY - FILENE                                                     BUTTONS AND LIGHTS
009017,000029:                                                                                                  #                                                        ASSEMBLY - SUNBURST REV 18
009018,000030: 
009019,000031:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009020,000032: 
009021,000033:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
009022,000034:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
009023,000035:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
009024,000036:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
009025,000037:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
009026,000038:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
009027,000039:                                                                                                  #  OCTAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, 
009028,000040:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
009029,000041:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
009030,000042: 
009031,000043:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
009032,000044:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
009033,000045:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
009034,000046:                                                                                                  #  :EXTENDED VERBS:).
009035,000047:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
009036,000048:                                                                                                  #  OPERATION INFORMATION:.
009037,000049: 
009038,000050: 
009039,000051:                                                                                                  #  CALLING SEQUENCES -
009040,000052: 
009041,000053:                                                                                                  #  KEYBOARD:
009042,000054:                                                                                                  #     EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
009043,000055:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
009044,000056:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
009045,000057:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
009046,000058: 
009047,000059:                                                                                                  #  UPLINK:
009048,000060:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
009049,000061:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
009050,000062:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
009051,000063: 
009052,000064:                                                                                                  #  INTERNAL PROGRAMS:
009053,000065:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
009054,000066:                                                                                                  #  CODE IN A (LOW 6 BITS FOR NOUN, NEXT 6 BITS FOR VERB).  DETAILS
009055,000067:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSUBWAIT: (SEE
009056,000068: 
009057,000069:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
009058,000070:                                                                                                  #     THERE IS AN INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009059,000071:                                                                                                  #  IN CONJUNCTION WITH :NVSUB:.  THIS IS CALLED GRAB/FREE.  DETAILS
009060,000072:                                                                                                  #  DESCRIBED ON REMARKS JUST BEFORE :GRABDSP:, :GRABWAIT: (SEE SYMBOL TABLE
009061,000073:                                                                                                  #  FOR PAGE NUMBERS).
009062,000074: 

Page 220

009064,000076:                                                                                                  #  NORMAL EXIT MODES-
009065,000077: 
009066,000078:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, EXIT IS TO :ENDOFJOB:.
009067,000079: 
009068,000080:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
009069,000081:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
009070,000082:                                                                                                  #  :NVSUB: AND :NVSUBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
009071,000083: 
009072,000084: 
009073,000085:                                                                                                  #  ALARM OR ABORT EXIT MODES-
009074,000086: 
009075,000087:                                                                                                  #  EXTERNAL INITIATION:
009076,000088:                                                                                                  #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
009077,000089:                                                                                                  #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
009078,000090: 
009079,000091:                                                                                                  #  INTERNAL PROGRAM INITIATION:
009080,000092:                                                                                                  #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
009081,000093:                                                                                                  #  (WITH OCTAL 01501) AND EXIT TO :ENDOFJOB:.
009082,000094: 
009083,000095:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN DIGITAL DEVELOPMENT
009084,000096:                                                                                                  #  REPORT NO. 11.
009085,000097: 
009086,000098: 
009087,000099:                                                                                                  #  OUTPUT-
009088,000100: 
009089,000101:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
009090,000102:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
009091,000103:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
009092,000104:                                                                                                  #  IN INTERRUPT.
009093,000105: 
009094,000106: 
009095,000107:                                                                                                  #  ERASABLE INITIALIZATION-
009096,000108: 
009097,000109:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
009098,000110:                                                                                                  #  PINBALL IN :STARTSUB:.   REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
009099,000111:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, GRABLOCK, VERBREG, NOUNREG, 
009100,000112:                                                                                                  #  DSPLIST, +1, +2, DSPCOUNT.
009101,000113: 
009102,000114:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
009103,000115:                                                                                                  #  PINBALL IS GIVEN BELOW.
009104,000116: 
009105,000117: 
009106,000118:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
009107,000119: 
009108,000120:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
009109,000121:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.

Page 221

009111,000123: 
009112,000124:                                                                                                  #     NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
009113,000125:                                                                                                  #               OF RELATED INTEREST   NVSUBWAIT
009114,000126:                                                                                                  #                                     NVSUBSY
009115,000127:                                                                                                  #                                     PRENVBSY
009116,000128: 
009117,000129:                                                                                                  #     GRABDSP   INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009118,000130:                                                                                                  #     FREEDSP   IN CONJUNCTION WITH :NVSUB:.
009119,000131:                                                                                                  #                 OF RELATED INTEREST   GRABWAIT
009120,000132: 
009121,000133:                                                                                                  #                                       GRABUSY
009122,000134:                                                                                                  #                                       PREGBSY
009123,000135: 
009124,000136:                                                                                                  #     ENDIDLE    ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
009125,000137:                                                                                                  #                AWAITING OPERATORS RESPONSE.
009126,000138:                                                                                                  #                  OF RELATED INTEREST   DATAWAIT
009127,000139: 
009128,000140:                                                                                                  #     MONITOR    VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
009129,000141: 
009130,000142:                                                                                                  #     THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
009131,000143:                                                                                                  #     BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
009132,000144: 
009133,000145:                                                                                                  #     THE NOUN TABLES THEMSELVES ARE FOUND ON 7 PAGES STARTING AT :NNADTAB:
009134,000146: 
009135,000147: 
009136,000148:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
009137,000149:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR DIGITAL DEVELOPMENT REPORT NO. 11.
009138,000150: 

Page 222

009140,000152:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
009141,000153: 
009142,000154:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
009143,000155: 
009144,000156:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
009145,000157:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
009146,000158:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
009147,000159: 
009148,000160:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4
009149,000161: 

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

009152,000164: 
009153,000165: 
009154,000166:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
009155,000167: 
009156,000168: 
009157,000169:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
009158,000170: 
009159,000171:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
009160,000172:                                                                                                  #  DECBRNCH      ERASE                   +DEC, -DEC, OCT INDICATOR
009161,000173:                                                                                                  #  VERBREG       ERASE                   VERB CODE
009162,000174:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
009163,000175:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
009164,000176:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
009165,000177:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
009166,000178:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
009167,000179:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
009168,000180:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
009169,000181:                                                                                                  #  MODREG        ERASE                   MODE CODE
009170,000182:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
009171,000183:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
009172,000184:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
009173,000185:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
009174,000186:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
009175,000187:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
009176,000188:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
009177,000189: 
009178,000190:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
009179,000191:                                                                                                  #  DSPTAB        ERASE           +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
009180,000192:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
009181,000193:                                                                                                  #  GRABLOCK      ERASE                   INTERNAL INTERLOCK FOR DISPLAY SYSTEM
009182,000194:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
009183,000195:                                                                                                  #                                        MUST = NVBNKTEM-1
009184,000196:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
009185,000197:                                                                                                  #                                        MUST = NVQTEM+1
009186,000198:                                                                                                  #  DSPLIST       ERASE           +2      WAITING LIST FOR DSP SYST INTERNAL USE
009187,000199:                                                                                                  #  EXTVBACT      ERASE                   EXTENDED VERB ACTIVITY INTERLOCK
009188,000200:                                                                                                  #  DSPTEM1       ERASE           +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
009189,000201:                                                                                                  #  DSPTEM2       ERASE           +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
009190,000202: 

Page 223

009192,000204:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
009193,000205: 
009194,000206: 
009195,000207:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009196,000208: 
009197,000209:                                                                                                  #  DSEXIT        =       INTB15+         RETURN FOR DSPIN
009198,000210:                                                                                                  #  EXITEM        =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
009199,000211:                                                                                                  #  BLANKRET      =       INTB15+         RETURN FOR 2BLANK
009200,000212: 
009201,000213:                                                                                                  #  WRDRET        =       INTBIT15        RETURN FOR 5BLANK
009202,000214:                                                                                                  #  WDRET         =       INTBIT15        RETURN FOR DSPWD
009203,000215:                                                                                                  #  DECRET        =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
009204,000216:                                                                                                  #  21/22REG      =       INTBIT15        TEMP FOR CHARIN
009205,000217: 
009206,000218:                                                                                                  #  UPDATRET      =       POLISH          RETURN FOR UPDATNN, UPDATVB
009207,000219:                                                                                                  #  CHAR          =       POLISH          TEMP FOR CHARIN
009208,000220:                                                                                                  #  ERCNT         =       POLISH          COUNTER FOR ERROR LIGHT RESET
009209,000221:                                                                                                  #  DECOUNT       =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
009210,000222: 
009211,000223:                                                                                                  #  SGNON         =       VBUF            TEMP FOR +,- ON
009212,000224:                                                                                                  #  NOUNTEM       =       VBUF            COUNTER FOR MIXNOUN FETCH
009213,000225:                                                                                                  #  DISTEM        =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
009214,000226:                                                                                                  #  DECTEM        =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
009215,000227: 
009216,000228:                                                                                                  #  SGNOFF        =       VBUF    +1      TEMP FOR +,- ON
009217,000229:                                                                                                  #  NVTEMP        =       VBUF    +1      TEMP FOR NVSUB
009218,000230:                                                                                                  #  SFTEMP1       =       VBUF    +1      STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
009219,000231: 
009220,000232:                                                                                                  #  CODE          =       VBUF    +2      FOR DSPIN
009221,000233:                                                                                                  #  SFTEMP2       =       VBUF    +2      STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
009222,000234: 
009223,000235:                                                                                                  #  MIXTEMP       =       VBUF    +3      FOR MIXNOUN DATA
009224,000236:                                                                                                  #  SIGNRET       =       VBUF    +3      RETURN FOR +,- ON
009225,000237: 
009226,000238:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
009227,000239: 
009228,000240:                                                                                                  #  ENTRET        =       DOTINC          EXIT FROM ENTER
009229,000241: 
009230,000242:                                                                                                  #  WDCNT         =       DOTRET          CHAR COUNTER FOR DSPWD
009231,000243:                                                                                                  #  INREL         =       DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
009232,000244: 
009233,000245:                                                                                                  #  DSPMMTEM      =       MATINC          DSPCOUNT SAVE FOR DSPMM
009234,000246: 
009235,000247:                                                                                                  #  MIXBR         =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
009236,000248: 
009237,000249:                                                                                                  #  TEM1          ERASE                   EXEC TEMP
009238,000250:                                                                                                  #  DSREL         =       TEM1            REL ADDRESS FOR DSPIN
009239,000251: 
009240,000252:                                                                                                  #  TEM2          ERASE                   EXEC TEMP
009241,000253:                                                                                                  #  DSMAG         =       TEM2            MAGNITUDE STORE FOR DSPIN

Page 224

009243,000255:                                                                                                  #  IDADDTEM      =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
009244,000256: 
009245,000257:                                                                                                  #  TEM3          ERASE                   EXEC TEMP
009246,000258:                                                                                                  #  COUNT         =       TEM3            FOR DSPIN
009247,000259: 
009248,000260:                                                                                                  #  TEM4          ERASE                   EXEC TEMP
009249,000261:                                                                                                  #  LSTPTR        =       TEM4            LIST POINTER FOR GRABUSY
009250,000262:                                                                                                  #  RELRET        =       TEM4            RETURN FOR RELDSP
009251,000263:                                                                                                  #  FREERET       =       TEM4            RETURN FOR FREEDSP
009252,000264: 
009253,000265:                                                                                                  #  TEM5          ERASE                   EXEC TEMP
009254,000266:                                                                                                  #  NOUNADD       =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
009255,000267: 
009256,000268:                                                                                                  #  NNADTEM       ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
009257,000269:                                                                                                  #  NNTYPTEM      ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
009258,000270:                                                                                                  #  IDAD1TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009259,000271:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
009260,000272:                                                                                                  #  IDAD2TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009261,000273:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
009262,000274:                                                                                                  #  IDAD3TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009263,000275:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
009264,000276:                                                                                                  #  RUTMXTEM      ERASE                   TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
009265,000277:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009266,000278: 
009267,000279: 
009268,000280:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
009269,000281: 
009270,000282:                                                                                                  #  DSPCNT        ERASE                   COUNTER FOR DSPOUT
009271,000283:                                                                                                  #  UPLOCK        ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
009272,000284:                                                                                                  #                                                                                RECEPTION OF A BAD MESSAGE IN UPLINK)
009273,000285:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
009274,000286: 
009275,000287: 
009276,000288: 
009277,000289:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
009278,000290: 
009279,000291:                                                                                                  #  KEYTEMP1      =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
009280,000292:                                                                                                  #  DSRUPTEM      =       WAITEXIT        TEMP FOR DSPOUT
009281,000293:                                                                                                  #  KEYTEMP2      =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
009282,000294:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
009283,000295: 

Page 225

009285,000297:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
009286,000298:                                                                                                  #  0        10000
009287,000299:                                                                                                  #  1        00001
009288,000300:                                                                                                  #  9        01001
009289,000301:                                                                                                  #  VERB     10001
009290,000302:                                                                                                  #  ERROR RES10010
009291,000303:                                                                                                  #  KEY RLSE 11001
009292,000304:                                                                                                  #  +        11010
009293,000305: 
009294,000306:                                                                                                  #  -        11011
009295,000307:                                                                                                  #  ENTER    11100
009296,000308:                                                                                                  #  CLEAR    11110
009297,000309:                                                                                                  #  NOUN     11111
009298,000310: 
009299,000311: 
009300,000312:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
009301,000313:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
009302,000314:                                                                                                  #  ENERGIZED.
009303,000315:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
009304,000316:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
009305,000317:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
009306,000318: 
009307,000319:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
009308,000320:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
009309,000321:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
009310,000322:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
009311,000323:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
009312,000324:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
009313,000325: 
009314,000326:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
009315,000327:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
009316,000328: 
009317,000329:                                                                                                  #  MD2   24     R2D2  10
009318,000330:                                                                                                  #  VD1   23     R2D3   7
009319,000331:                                                                                                  #  VD2   22     R2D4   6
009320,000332:                                                                                                  #  ND1   21     R2D5   5
009321,000333:                                                                                                  #  ND2   20     R3D1   4
009322,000334:                                                                                                  #  R1D1  16     R3D2   3
009323,000335:                                                                                                  #  R1D2  15     R3D3   2
009324,000336:                                                                                                  #  R1D3  14     R3D4   1
009325,000337:                                                                                                  #  R1D4  13     R3D5   0
009326,000338:                                                                                                  #  R1D5  12
009327,000339: 
009328,000340: 
009329,000341:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
009330,000342: 
009331,000343:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
009332,000344:                                                                                                  #  RELADD
009333,000345:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
009334,000346:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)

Page 226

009336,000348:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
009337,000349:                                                                                                  #  7      1000                                  R1D1 (16)
009338,000350:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
009339,000351:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
009340,000352:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
009341,000353:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
009342,000354:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
009343,000355:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
009344,000356:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
009345,000357:                                                                                                  #         0000   NO RELAYWORD
009346,000358: 
009347,000359: 
009348,000360:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
009349,000361:                                                                                                  #  BLANK      00000
009350,000362:                                                                                                  #  0          10101
009351,000363:                                                                                                  #  1          00011
009352,000364:                                                                                                  #  2          11001
009353,000365:                                                                                                  #  3          11011
009354,000366:                                                                                                  #  4          01111
009355,000367:                                                                                                  #  5          11110
009356,000368:                                                                                                  #  6          11100
009357,000369:                                                                                                  #  7          10011
009358,000370:                                                                                                  #  8          11101
009359,000371:                                                                                                  #  9          11111
009360,000372: 

Page 227

009362,000374:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
009363,000375: 
009364,000376: 04,2000                                           SETLOC   20000                                 
009365,000377: 
009366,000378: 04,2000           03472        GRABUSYB           TC       GRABUSY1                              #  STANDARD LEAD INS. DONT MOVE.
009367,000379: 04,2001           03514        NVSUBSYB           TC       NVSUBSY1                              
009368,000380: 
009369,000381: 04,2002           37755        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
009370,000382: 04,2003           56303                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
009371,000383: 04,2004           54105                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
009372,000384: 04,2005           56144                           XCH      MPAC                                  
009373,000385: 04,2006           54107                           TS       CHAR                                  
009374,000386: 04,2007           50000                           INDEX    A                                     
009375,000387: 04,2010           02011                           TC       +1                                    #  INPUT CODE    FUNCTION
009376,000388: 04,2011           03313                           TC       CHARALRM                              #  0
009377,000389: 04,2012           02070                           TC       NUM                                   #  1
009378,000390: 04,2013           02070                           TC       NUM                                   #  2
009379,000391: 04,2014           02070                           TC       NUM                                   #  3
009380,000392: 
009381,000393: 04,2015           02070                           TC       NUM                                   #  4
009382,000394: 04,2016           02070                           TC       NUM                                   #  5
009383,000395: 04,2017           02070                           TC       NUM                                   #  6
009384,000396: 04,2020           02070                           TC       NUM                                   #  7
009385,000397: 04,2021           02061                           TC       89TEST                                #  10            8
009386,000398: 04,2022           02061                           TC       89TEST                                #  11            9
009387,000399: 04,2023           03313                           TC       CHARALRM                              #  12
009388,000400: 04,2024           03313                           TC       CHARALRM                              #  13
009389,000401: 04,2025           03313                           TC       CHARALRM                              #  14
009390,000402: 04,2026           03313                           TC       CHARALRM                              #  15
009391,000403: 04,2027           03313                           TC       CHARALRM                              #  16
009392,000404: 04,2030           03313                           TC       CHARALRM                              #  17
009393,000405: 04,2031           02066                           TC       NUM        -2                         #  20            0
009394,000406: 04,2032           02243                           TC       VERB                                  #  21            VERB
009395,000407: 04,2033           02355                           TC       ERROR                                 #  22            ERROR LIGHT RESET
009396,000408: 04,2034           02053                           TC       ABRT23GO                              #  23            SUBORBIT ABORT
009397,000409: 04,2035           02056                           TC       ABRT24GO                              #  24            CONORBIT ABORT
009398,000410: 04,2036           03313                           TC       CHARALRM                              #  25
009399,000411: 04,2037           03313                           TC       CHARALRM                              #  26
009400,000412: 04,2040           03313                           TC       CHARALRM                              #  27
009401,000413: 04,2041           03313                           TC       CHARALRM                              #  30
009402,000414: 04,2042           03336                           TC       VBRELDSP                              #  31            KEY RELEASE
009403,000415: 04,2043           02275                           TC       POSGN                                 #  32            +
009404,000416: 
009405,000417: 04,2044           02262                           TC       NEGSGN                                #  33            -
009406,000418: 04,2045           02051                           TC       ENTERJMP                              #  34            ENTER
009407,000419: 04,2046           03313                           TC       CHARALRM                              #  35
009408,000420: 04,2047           02446                           TC       CLEAR                                 #  36            CLEAR
009409,000421: 04,2050           02256                           TC       NOUN                                  #  37            NOUN
009410,000422: 

Page 228

009412,000424: 04,2051           05243        ENTERJMP           TC       POSTJUMP                              
009413,000425: 04,2052           12003                           CADR     ENTER                                 
009414,000426: 
009415,000427: 04,2053           04655        ABRT23GO           TC       RELDSP                                
009416,000428: 04,2054           05243                           TC       POSTJUMP                              
009417,000429: 04,2055           56401                           CADR     SUBABORT                              
009418,000430: 04,2056           04655        ABRT24GO           TC       RELDSP                                
009419,000431: 04,2057           05243                           TC       POSTJUMP                              
009420,000432: 04,2060           56404                           CADR     CONORBIT                              
009421,000433: 
009422,000434: 04,2061           36301        89TEST             CAF      THREE                                 
009423,000435: 04,2062           70271                           MASK     DECBRNCH                              
009424,000436: 04,2063           10000                           CCS      A                                     
009425,000437: 04,2064           02070                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
009426,000438: 04,2065           03313                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
009427,000439: 
009428,000440: 
009429,000441:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
009430,000442:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
009431,000443:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
009432,000444:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
009433,000445:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
009434,000446:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
009435,000447: 
009436,000448: 04,2066           37761                           CAF      ZERO                                  
009437,000449: 
009438,000450: 04,2067           54107                           TS       CHAR                                  
009439,000451: 04,2070           10270        NUM                CCS      DSPCOUNT                              
009440,000452: 04,2071           02075                           TC       +4                                    #  +
009441,000453: 04,2072           02075                           TC       +3                                    #  +0
009442,000454: 04,2073           02074                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
009443,000455: 04,2074           05605                           TC       ENDOFJOB                              #  -0
009444,000456: 04,2075           02213                           TC       GETINREL                              
009445,000457: 04,2076           10306                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
009446,000458: 04,2077           37761                           CAF      ZERO                                  
009447,000459: 04,2100           54306                           TS       CLPASS                                
009448,000460: 04,2101           02102                           TC       +1                                    
009449,000461: 04,2102           50107                           INDEX    CHAR                                  
009450,000462: 04,2103           34267                           CAF      RELTAB                                
009451,000463: 04,2104           74545                           MASK     LOW5                                  
009452,000464: 04,2105           54114                           TS       CODE                                  
009453,000465: 04,2106           30270                           CA       DSPCOUNT                              
009454,000466: 04,2107           54133                           TS       COUNT                                 
009455,000467: 04,2110           03217                           TC       DSPIN                                 
009456,000468: 04,2111           36301                           CAF      THREE                                 
009457,000469: 04,2112           70271                           MASK     DECBRNCH                              
009458,000470: 04,2113           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
009459,000471: 04,2114           02125                           TC       DECTOBIN                              #  +
009460,000472: 04,2115           50127                           INDEX    INREL                                 #  +0 OCTAL
009461,000473: 
009462,000474: 04,2116           56272                           XCH      VERBREG                               

Page 229

009464,000476: 04,2117           54022                           TS       CYL                                   
009465,000477: 04,2120           40022                           CS       CYL                                   
009466,000478: 04,2121           40022                           CS       CYL                                   
009467,000479: 04,2122           56022                           XCH      CYL                                   
009468,000480: 04,2123           60107                           AD       CHAR                                  
009469,000481: 04,2124           02142                           TC       ENDNMTST                              
009470,000482: 04,2125           50127        DECTOBIN           INDEX    INREL                                 
009471,000483: 04,2126           56272                           XCH      VERBREG                               
009472,000484: 
009473,000485: 04,2127           54144                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
009474,000486: 04,2130           37761                           CAF      ZERO                                  
009475,000487: 04,2131           54145                           TS       MPAC       +1                         
009476,000488: 04,2132           34557                           CAF      TEN                                   #  10 X 2EXP-14
009477,000489: 04,2133           07351                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
009478,000490: 04,2134           56145                           XCH      MPAC       +1                         
009479,000491: 04,2135           60107                           AD       CHAR                                  
009480,000492: 04,2136           54145                           TS       MPAC       +1                         
009481,000493: 04,2137           02142                           TC       ENDNMTST                              #  NO OF
009482,000494: 04,2140           26144                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
009483,000495: 04,2141           02160                           TC       DECEND                                
009484,000496: 04,2142           50127        ENDNMTST           INDEX    INREL                                 
009485,000497: 04,2143           54272                           TS       VERBREG                               
009486,000498: 04,2144           40270                           CS       DSPCOUNT                              
009487,000499: 04,2145           50127                           INDEX    INREL                                 
009488,000500: 04,2146           62204                           AD       CRITCON                               
009489,000501: 04,2147           00006                           EXTEND                                         
009490,000502: 04,2150           12152                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
009491,000503: 04,2151           02201                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
009492,000504: 04,2152           36301        ENDNUM             CAF      THREE                                 
009493,000505: 04,2153           70271                           MASK     DECBRNCH                              
009494,000506: 04,2154           10000                           CCS      A                                     
009495,000507: 04,2155           02160                           TC       DECEND                                
009496,000508: 
009497,000509: 04,2156           40270        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
009498,000510: 04,2157           02202                           TC       MORNUM     +1                         #  NEGATIVELY
009499,000511: 04,2160           07146        DECEND             TC       DMP                                   #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
009500,000512: 04,2161           02211                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
009501,000513: 04,2162           36301                           CAF      THREE                                 #  IN MPAC, +1, +2.
009502,000514: 04,2163           70271                           MASK     DECBRNCH                              
009503,000515: 04,2164           50000                           INDEX    A                                     
009504,000516: 04,2165           02165                           TC       +0                                    
009505,000517: 04,2166           02172                           TC       +DECSGN                               
009506,000518: 04,2167           00006                           EXTEND                                         #  - CASE
009507,000519: 04,2170           40146                           DCS      MPAC       +1                         
009508,000520: 04,2171           52146                           DXCH     MPAC       +1                         
009509,000521: 04,2172           56146        +DECSGN            XCH      MPAC       +2                         
009510,000522: 04,2173           50127                           INDEX    INREL                                 
009511,000523: 04,2174           54275                           TS       XREGLP     -2                         
009512,000524: 04,2175           56145                           XCH      MPAC       +1                         
009513,000525: 04,2176           50127                           INDEX    INREL                                 
009514,000526: 04,2177           54272                           TS       VERBREG                               
009515,000527: 04,2200           02156                           TC       ENDALL                                

Page 230

009517,000529: 04,2201           10270        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
009518,000530: 04,2202           54270                           TS       DSPCOUNT                              
009519,000531: 04,2203           05605                           TC       ENDOFJOB                              
009520,000532: 
009521,000533: 04,2204           00022        CRITCON            OCT      22                                    #  (DEC 18)
009522,000534: 04,2205           00020                           OCT      20                                    #  (DEC 16)
009523,000535: 04,2206           00012                           OCT      12                                    #  (DEC 10)
009524,000536: 04,2207           00005                           OCT      5                                     
009525,000537: 04,2210           00000                           OCT      0                                     
009526,000538: 

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

009530,000542: 04,2211           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
009531,000543: 
009532,000544:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
009533,000545:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
009534,000546: 
009535,000547: 04,2213           50270        GETINREL           INDEX    DSPCOUNT                              
009536,000548: 04,2214           32217                           CAF      INRELTAB                              
009537,000549: 04,2215           54127                           TS       INREL                                 #  (A TEMP, REG)
009538,000550: 04,2216           00002                           TC       Q                                     
009539,000551: 
009540,000552: 04,2217           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
009541,000553: 04,2220           00004                           OCT      4                                     #  R3D4           =(1)
009542,000554: 04,2221           00004                           OCT      4                                     #  R3D3           =(2)
009543,000555: 04,2222           00004                           OCT      4                                     #  R3D2           =(3)
009544,000556: 04,2223           00004                           OCT      4                                     #  R3D1           =(4)
009545,000557: 04,2224           00003                           OCT      3                                     #  R2D5           =(5)
009546,000558: 04,2225           00003                           OCT      3                                     #  R2D4           =(6)
009547,000559: 04,2226           00003                           OCT      3                                     #  R2D3           =(7)
009548,000560: 04,2227           00003                           OCT      3                                     #  R2D2           =(8D)
009549,000561: 04,2230           00003                           OCT      3                                     #  R2D1           =(9D)
009550,000562: 04,2231           00002                           OCT      2                                     #  R1D5           =(10D)
009551,000563: 04,2232           00002                           OCT      2                                     #  R1D4           =(11D)
009552,000564: 04,2233           00002                           OCT      2                                     #  R1D3           =(12D)
009553,000565: 04,2234           00002                           OCT      2                                     #  R1D2           =(13D)
009554,000566: 04,2235           00002                           OCT      2                                     #  R1D1           =(14D)
009555,000567: 04,2236           04725                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
009556,000568: 
009557,000569: 04,2237           00001                           OCT      1                                     #  ND2            =(16D)
009558,000570: 04,2240           00001                           OCT      1                                     #  ND1            =(17D)
009559,000571: 04,2241           00000                           OCT      0                                     #  VD2            =(18D)
009560,000572: 04,2242           00000                           OCT      0                                     #  VD1            =(19D)
009561,000573: 
009562,000574: 04,2243           37761        VERB               CAF      ZERO                                  
009563,000575: 04,2244           54272                           TS       VERBREG                               
009564,000576: 04,2245           34554                           CAF      VD1                                   
009565,000577: 04,2246           54270        NVCOM              TS       DSPCOUNT                              
009566,000578: 04,2247           02557                           TC       2BLANK                                

Page 231

009568,000580: 04,2250           37761                           CAF      ZERO                                  
009569,000581: 04,2251           54271                           TS       DECBRNCH                              
009570,000582: 04,2252           54304                           TS       REQRET                                #  SET FOR ENTPAS0
009571,000583: 04,2253           34474                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
009572,000584: 04,2254           54126                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
009573,000585:                                                                                                  #  TO TC ENDOFJOB
009574,000586: 04,2255           05605                           TC       ENDOFJOB                              
009575,000587: 04,2256           37761        NOUN               CAF      ZERO                                  
009576,000588: 04,2257           54273                           TS       NOUNREG                               
009577,000589: 04,2260           34555                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
009578,000590: 04,2261           02246                           TC       NVCOM                                 
009579,000591: 
009580,000592: 
009581,000593: 04,2262           02334        NEGSGN             TC       SIGNTEST                              
009582,000594: 04,2263           02321                           TC       -ON                                   
009583,000595: 04,2264           37754                           CAF      TWO                                   
009584,000596: 04,2265           50127        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
009585,000597: 04,2266           67747                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
009586,000598: 
009587,000599: 04,2267           26271                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
009588,000600: 04,2270           10306        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
009589,000601: 04,2271           37761                           CAF      ZERO                                  
009590,000602: 04,2272           54306                           TS       CLPASS                                
009591,000603: 04,2273           02274                           TC       +1                                    
009592,000604: 04,2274           05605                           TC       ENDOFJOB                              
009593,000605: 
009594,000606: 04,2275           02334        POSGN              TC       SIGNTEST                              
009595,000607: 04,2276           02301                           TC       +ON                                   
009596,000608: 04,2277           37755                           CAF      ONE                                   
009597,000609: 04,2300           02265                           TC       BOTHSGN                               
009598,000610: 
009599,000611: 04,2301           22002        +ON                LXCH     Q                                     
009600,000612: 04,2302           02213                           TC       GETINREL                              
009601,000613: 04,2303           50127                           INDEX    INREL                                 
009602,000614: 04,2304           32327                           CAF      SGNTAB     -2                         
009603,000615: 04,2305           54113                           TS       SGNOFF                                
009604,000616: 04,2306           67755                           AD       ONE                                   
009605,000617: 04,2307           54112                           TS       SGNON                                 
009606,000618: 04,2310           37761        SGNCOM             CAF      ZERO                                  
009607,000619: 04,2311           54114                           TS       CODE                                  
009608,000620: 04,2312           56113                           XCH      SGNOFF                                
009609,000621: 04,2313           03301                           TC       11DSPIN                               
009610,000622: 
009611,000623: 04,2314           37743                           CAF      BIT11                                 
009612,000624: 04,2315           54114                           TS       CODE                                  
009613,000625: 04,2316           56112                           XCH      SGNON                                 
009614,000626: 04,2317           03301                           TC       11DSPIN                               
009615,000627: 04,2320           00001                           TC       L                                     
009616,000628: 04,2321           22002        -ON                LXCH     Q                                     
009617,000629: 04,2322           02213                           TC       GETINREL                              
009618,000630: 04,2323           50127                           INDEX    INREL                                 

Page 232

009620,000632: 04,2324           32327                           CAF      SGNTAB     -2                         
009621,000633: 04,2325           54112                           TS       SGNON                                 
009622,000634: 
009623,000635: 04,2326           67755                           AD       ONE                                   
009624,000636: 04,2327           54113                           TS       SGNOFF                                
009625,000637: 04,2330           02310                           TC       SGNCOM                                
009626,000638: 
009627,000639: 04,2331           00005        SGNTAB             OCT      5                                     #  -R1
009628,000640: 04,2332           00003                           OCT      3                                     #  -R2
009629,000641: 04,2333           00000                           OCT      0                                     #  -R3
009630,000642: 
009631,000643: 04,2334           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
009632,000644: 04,2335           36301                           CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
009633,000645: 04,2336           70271                           MASK     DECBRNCH                              #  CONSEQUTIVE +/- CHARACTERS.
009634,000646: 04,2337           10000                           CCS      A                                     #  IF LOW 2 BITS OF DECBRNCH NOT = 0, SIGN
009635,000647: 04,2340           05605                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
009636,000648: 04,2341           44516                           CS       R1D1                                  
009637,000649: 04,2342           02350                           TC       SGNTST1                               
009638,000650: 04,2343           44517                           CS       R2D1                                  
009639,000651: 04,2344           02350                           TC       SGNTST1                               
009640,000652: 04,2345           44520                           CS       R3D1                                  
009641,000653: 04,2346           02350                           TC       SGNTST1                               
009642,000654: 04,2347           05605                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
009643,000655: 04,2350           60270        SGNTST1            AD       DSPCOUNT                              
009644,000656: 
009645,000657: 04,2351           00006                           EXTEND                                         
009646,000658: 04,2352           12354                           BZF      +2                                    #  MATCH FOUND
009647,000659: 04,2353           00002                           TC       Q                                     
009648,000660: 04,2354           00001                           TC       L                                     #  SIGN LEGAL
009649,000661: 
009650,000662:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
009651,000663:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
009652,000664:                                                                                                  #  PROG ALM, TRACKER FAIL.
009653,000665:                                                                                                  #  LEAVES GIMBAL LOCK ALONE.
009654,000666:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
009655,000667:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
009656,000668:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
009657,000669: 
009658,000670: 04,2355           56105        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
009659,000671: 04,2356           54303                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
009660,000672: 04,2357           00004                           INHINT                                         
009661,000673: 04,2360           37744                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
009662,000674: 04,2361           00006                           EXTEND                                         
009663,000675: 04,2362           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
009664,000676: 04,2363           32444                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
009665,000677: 04,2364           70326                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
009666,000678: 
009667,000679: 04,2365           67737                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
009668,000680: 04,2366           54326                           TS       DSPTAB     +11D                       

Page 233

009670,000682: 04,2367           45660                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
009671,000683: 04,2370           70366                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
009672,000684: 04,2371           65660                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
009673,000685: 04,2372           54366                           TS       IMODES33                              
009674,000686: 04,2373           47744                           CS       BIT10                                 
009675,000687: 04,2374           70365                           MASK     IMODES30                              
009676,000688: 04,2375           67744                           AD       BIT10                                 
009677,000689: 04,2376           54365                           TS       IMODES30                              
009678,000690: 
009679,000691: 04,2377           42443                           CS       RFAILS                                
009680,000692: 04,2400           70413                           MASK     RADMODES                              
009681,000693: 04,2401           67747                           AD       BIT7                                  
009682,000694: 04,2402           54413                           TS       RADMODES                              
009683,000695: 
009684,000696: 04,2403           47744                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
009685,000697: 04,2404           00006                           EXTEND                                         
009686,000698: 04,2405           03013                           WAND     CHAN13                                
009687,000699: 04,2406           42442                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
009688,000700: 04,2407           00006                           EXTEND                                         #  OPERATOR ERROR.
009689,000701: 04,2410           03011                           WAND     DSALMOUT                              
009690,000702: 04,2411           34557        TSTAB              CAF      BINCON                                #  (DEC 10)
009691,000703: 04,2412           54107                           TS       ERCNT                                 #  ERCNT = COUNT
009692,000704: 04,2413           00004                           INHINT                                         
009693,000705: 04,2414           50107                           INDEX    ERCNT                                 
009694,000706: 04,2415           10313                           CCS      DSPTAB                                
009695,000707: 04,2416           67755                           AD       ONE                                   
009696,000708: 04,2417           02424                           TC       ERPLUS                                
009697,000709: 04,2420           67755                           AD       ONE                                   
009698,000710: 04,2421           40000        ERMINUS            CS       A                                     
009699,000711: 04,2422           72445                           MASK     NOTBIT12                              
009700,000712: 04,2423           02427                           TC       ERCOM                                 
009701,000713: 04,2424           40000        ERPLUS             CS       A                                     
009702,000714: 
009703,000715: 04,2425           72445                           MASK     NOTBIT12                              
009704,000716: 04,2426           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
009705,000717: 04,2427           50107        ERCOM              INDEX    ERCNT                                 #  ETC.
009706,000718: 04,2430           54313                           TS       DSPTAB                                
009707,000719: 04,2431           00003                           RELINT                                         
009708,000720: 04,2432           10107                           CCS      ERCNT                                 
009709,000721: 04,2433           02412                           TC       TSTAB      +1                         
009710,000722: 04,2434           37761                           CAF      ZERO                                  
009711,000723: 04,2435           55363                           TS       FAILREG                               
009712,000724: 04,2436           55364                           TS       FAILREG    +1                         
009713,000725: 04,2437           55365                           TS       FAILREG    +2                         
009714,000726: 04,2440           55361                           TS       SFAIL                                 
009715,000727: 04,2441           05605                           TC       ENDOFJOB                              
009716,000728: 
009717,000729: 04,2442           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
009718,000730:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
009719,000731: 04,2443           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
009720,000732: 04,2444           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS

Page 234

009722,000734: 04,2445           73777        NOTBIT12           OCT      73777                                 
009723,000735: 
009724,000736: 
009725,000737:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
009726,000738:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
009727,000739:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
009728,000740: 
009729,000741:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
009730,000742:                                                                                                  #  APPROPRIATE TO BE CLEARED.
009731,000743: 
009732,000744:                                                                                                  #  CLPASS   +0  PASS0, CAN BE BACKED UP
009733,000745:                                                                                                  #           +NZ  HIPASS, CAN BE BACKED UP
009734,000746:                                                                                                  #           -NZ  PASS0, CANNOT BE BACKED UP
009735,000747: 
009736,000748: 04,2446           10270        CLEAR              CCS      DSPCOUNT                              
009737,000749: 04,2447           67755                           AD       ONE                                   
009738,000750: 04,2450           02452                           TC       +2                                    
009739,000751: 04,2451           67755                           AD       ONE                                   
009740,000752: 04,2452           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
009741,000753: 04,2453           32217                           CAF      INRELTAB                              #  FAIL LEGALTST.
009742,000754: 04,2454           54127                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
009743,000755: 04,2455           10306                           CCS      CLPASS                                
009744,000756: 04,2456           02464                           TC       CLPASHI                               #  +
009745,000757: 04,2457           02461                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
009746,000758: 04,2460           02461                           TC       +1                                    #  -
009747,000759: 04,2461           30127                           CA       INREL                                 
009748,000760: 04,2462           02506                           TC       LEGALTST                              
009749,000761: 04,2463           02501                           TC       CLEAR1                                
009750,000762: 04,2464           10127        CLPASHI            CCS      INREL                                 
009751,000763: 04,2465           54127                           TS       INREL                                 
009752,000764: 04,2466           02506                           TC       LEGALTST                              
009753,000765: 04,2467           32555                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
009754,000766: 04,2470           26304                           ADS      REQRET                                
009755,000767: 04,2471           30127                           CA       INREL                                 
009756,000768: 04,2472           54115                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
009757,000769: 04,2473           00006                           EXTEND                                         
009758,000770: 04,2474           26272                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
009759,000771: 
009760,000772: 04,2475           05224                           TC       BANKCALL                              
009761,000773: 04,2476           12315                           CADR     UPDATVB                               
009762,000774: 04,2477           30115                           CA       MIXTEMP                               
009763,000775: 04,2500           54127                           TS       INREL                                 #  RESTORE INREL
009764,000776: 04,2501           02504        CLEAR1             TC       CLR5                                  
009765,000777: 04,2502           24306                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
009766,000778: 04,2503           05605                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
009767,000779: 04,2504           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
009768,000780: 04,2505           02516                           TC       5BLANK     +2                         
009769,000781: 04,2506           65355        LEGALTST           AD       NEG2                                  
009770,000782: 04,2507           10000                           CCS      A                                     
009771,000783: 04,2510           00002                           TC       Q                                     #  LEGAL  INREL G/ 2

Page 235

009773,000785: 04,2511           04725                           TC       CCSHOLE                               
009774,000786: 04,2512           05605                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
009775,000787: 04,2513           00002                           TC       Q                                     #  LEGAL    INREL = 2
009776,000788: 
009777,000789:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
009778,000790:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
009779,000791:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
009780,000792: 
009781,000793: 04,2514           22002        5BLANK             LXCH     Q                                     
009782,000794: 04,2515           02213                           TC       GETINREL                              
009783,000795: 04,2516           37761                           CAF      ZERO                                  
009784,000796: 04,2517           50127                           INDEX    INREL                                 
009785,000797: 04,2520           54272                           TS       VERBREG                               #  ZERO X, Y, Z REG.
009786,000798: 04,2521           50127                           INDEX    INREL                                 
009787,000799: 04,2522           54275                           TS       XREGLP     -2                         
009788,000800: 04,2523           54114                           TS       CODE                                  
009789,000801: 04,2524           50127                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
009790,000802: 
009791,000803: 04,2525           47747                           CS       BIT7                                  #  PROTECT OTHERS
009792,000804: 04,2526           70271                           MASK     DECBRNCH                              
009793,000805: 04,2527           72556                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
009794,000806: 04,2530           54271                           TS       DECBRNCH                              
009795,000807: 04,2531           50127                           INDEX    INREL                                 
009796,000808: 04,2532           32546                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
009797,000809: 04,2533           54133                           TS       COUNT                                 
009798,000810: 04,2534           03217                           TC       DSPIN                                 
009799,000811: 04,2535           50127        5BLANK1            INDEX    INREL                                 
009800,000812: 04,2536           32551                           CAF      DOUBLK     -2                         
009801,000813: 04,2537           54270                           TS       DSPCOUNT                              
009802,000814: 04,2540           02557                           TC       2BLANK                                
009803,000815: 04,2541           47754                           CS       TWO                                   
009804,000816: 04,2542           26270                           ADS      DSPCOUNT                              
009805,000817: 04,2543           02557                           TC       2BLANK                                
009806,000818: 04,2544           50127                           INDEX    INREL                                 
009807,000819: 04,2545           34514                           CAF      R1D1       -2                         
009808,000820: 04,2546           54270                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
009809,000821: 04,2547           00001                           TC       L                                     #  OF REG. JUST BLANKED
009810,000822: 
009811,000823: 04,2550           00016        SINBLANK           OCT      16                                    #  DEC 14
009812,000824: 04,2551           00005                           OCT      5                                     
009813,000825: 04,2552           00004                           OCT      4                                     
009814,000826: 
009815,000827: 04,2553           00015        DOUBLK             OCT      15                                    #  DEC 13
009816,000828: 04,2554           00011                           OCT      11                                    #  DEC 9
009817,000829: 04,2555           00003                           OCT      3                                     
009818,000830: 
009819,000831: 04,2556           77774        BRNCHCON           OCT      77774                                 
009820,000832: 
009821,000833:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
009822,000834:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT

Page 236

009824,000836: 
009825,000837: 04,2557           30270        2BLANK             CA       DSPCOUNT                              
009826,000838: 04,2560           54021                           TS       SR                                    
009827,000839: 
009828,000840: 04,2561           42572                           CS       BLANKCON                              
009829,000841: 04,2562           00004                           INHINT                                         
009830,000842: 04,2563           50021                           INDEX    SR                                    
009831,000843: 04,2564           56313                           XCH      DSPTAB                                
009832,000844: 04,2565           00006                           EXTEND                                         
009833,000845: 04,2566           62570                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
009834,000846: 04,2567           24307                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
009835,000847: 04,2570           00003                           RELINT                                         #  IF -,NOUT OK
009836,000848: 04,2571           00002                           TC       Q                                     
009837,000849: 04,2572           04000        BLANKCON           OCT      4000                                  
009838,000850: 

Page 237

009840,000852:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
009841,000853:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
009842,000854:                                                                                                  #  PASSES.
009843,000855: 
009844,000856: 
009845,000857:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
009846,000858:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
009847,000859: 
009848,000860:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
009849,000861: 
009850,000862: 05,2000                                           SETLOC   22000                                 
009851,000863: 
009852,000864: 05,2000           03344        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
009853,000865: 05,2001           13403        DSPMM              TCF      DSPMM1                                
009854,000866: 05,2002           02663        LOADLV1            TC       LOADLV                                
009855,000867:                                                                                                  #  END OF STANDARD LEAD INS.
009856,000868: 
009857,000869: 
009858,000870: 05,2003           37761        ENTER              CAF      ZERO                                  
009859,000871: 05,2004           54306                           TS       CLPASS                                
009860,000872: 05,2005           34474                           CAF      ENDINST                               
009861,000873: 05,2006           54126                           TS       ENTRET                                
009862,000874: 05,2007           10304                           CCS      REQRET                                
009863,000875: 05,2010           02031                           TC       ENTPAS0                               #  IF +, PASS 0
009864,000876: 05,2011           02031                           TC       ENTPAS0                               #  IF +, PASS 0
009865,000877: 05,2012           02013                           TC       +1                                    #  IF -, NOT PASS 0
009866,000878: 05,2013           36301                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN,
009867,000879: 05,2014           70271                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
009868,000880: 
009869,000881: 05,2015           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
009870,000882: 05,2016           02020                           TC       +2                                    #  CHARACTERS AND CONTINUE.
009871,000883: 05,2017           02024                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
009872,000884: 05,2020           10270                           CCS      DSPCOUNT                              
009873,000885: 05,2021           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
009874,000886: 05,2022           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
009875,000887: 05,2023           02024                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
009876,000888: 05,2024           40304        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
009877,000889: 05,2025           54304                           TS       REQRET                                #  SET REQRET +.
009878,000890: 05,2026           04615                           TC       FLASHOFF                              
009879,000891: 05,2027           00304                           TC       REQRET                                
009880,000892: 
009881,000893: 05,2030     0126               ENTEXIT            =        ENTRET                                
009882,000894: 
009883,000895: 05,2030           00030        LOWVERB            OCT      30                                    #  LOWER VERB THAT AVOIDS NOUN TEST
009884,000896: 
009885,000897: 05,2031           37761        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
009886,000898: 05,2032           54271                           TS       DECBRNCH                              
009887,000899: 05,2033           40272        TESTVB             CS       VERBREG                               #  IF VERB IS 30-77, SKIP NOUN TEST

Page 238

009889,000901: 05,2034           62030                           AD       LOWVERB                               #  30-VB
009890,000902: 05,2035           00006                           EXTEND                                         
009891,000903: 05,2036           62116                           BZMF     VERBFAN                               #  VERB G/E 30
009892,000904: 05,2037           00006        TESTNN             EXTEND                                         #  VERB L/ 30
009893,000905: 05,2040           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
009894,000906: 05,2041           52006                           DXCH     Z                                     #  ROUTINE.
009895,000907: 05,2042           50130                           INDEX    MIXBR                                 
009896,000908: 05,2043           02043                           TC       +0                                    
009897,000909: 05,2044           02046                           TC       +2                                    #  NORMAL
009898,000910: 05,2045           02176                           TC       MIXNOUN                               #  MIXED
009899,000911: 05,2046           10136                           CCS      NNADTEM                               #  NORMAL
009900,000912: 05,2047           02114                           TC       VERBFAN    -2                         #       NORMAL IF +
009901,000913: 05,2050           02324                           TC       GODSPALM                              #  NOT IN USE   IF +0
009902,000914: 05,2051           02055                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
009903,000915: 
009904,000916: 05,2052           24310                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
009905,000917: 05,2053           04510                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
009906,000918: 05,2054           02102                           TC       INTMCTBS   +2                         
009907,000919: 05,2055           37737        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
009908,000920: 05,2056           54306                           TS       CLPASS                                
009909,000921: 05,2057           44474                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
009910,000922: 05,2060           60126                           AD       ENTEXIT                               #              FROM EXTERNAL
009911,000923: 05,2061           00006                           EXTEND                                         
009912,000924: 05,2062           12064                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
009913,000925: 05,2063           02100                           TC       INTMCTBS                              
009914,000926: 05,2064           02256                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
009915,000927: 05,2065           10271                           CCS      DECBRNCH                              
009916,000928: 05,2066           02324                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MCTBS
009917,000929: 05,2067           56276                           XCH      ZREG                                  #  OCTAL USED    OK
009918,000930: 05,2070           04502                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
009919,000931: 05,2071           00006                           EXTEND                                         
009920,000932: 05,2072           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
009921,000933: 05,2073           52006                           DXCH     Z                                     #  ROUTINE.
009922,000934: 05,2074           02116                           TC       VERBFAN                               
009923,000935: 
009924,000936: 05,2075     0270                                  EBANK=   DSPCOUNT                              
009925,000937: 05,2075           02000 46000  LODNNLOC           2CADR    LODNNTAB                              
009926,000938: 
009927,000939: 05,2077           77772        NEG5               OCT      77772                                 
009928,000940: 
009929,000941: 05,2100           30146        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
009930,000942: 05,2101           04502                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
009931,000943: 05,2102           47752                           CS       BIT4                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
009932,000944: 05,2103           70272                           MASK     VERBREG                               #  CADR TO BE SPECIFIED.
009933,000945: 05,2104           62077                           AD       NEG5                                  #  MASKING MAKES VB15 LOOK LIKE VB05.
009934,000946: 05,2105           00006                           EXTEND                                         
009935,000947: 05,2106           12116                           BZF      VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY CADR.
009936,000948: 05,2107           34520                           CAF      R3D1                                  #  VB NOT = 05 OR 15, DISPLAY CADR.
009937,000949: 05,2110           54270                           TS       DSPCOUNT                              
009938,000950: 05,2111           30310                           CA       NOUNCADR                              
009939,000951: 05,2112           03222                           TC       DSPOCTWD                              

Page 239

009941,000953: 05,2113           02116                           TC       VERBFAN                               
009942,000954: 
009943,000955: 05,2114           67755                           AD       ONE                                   
009944,000956: 05,2115           04502                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
009945,000957: 05,2116           42131        VERBFAN            CS       LST2CON                               
009946,000958: 05,2117           60272                           AD       VERBREG                               #  VERB-LST2CON
009947,000959: 05,2120           10000                           CCS      A                                     
009948,000960: 05,2121           67755                           AD       ONE                                   #  VERB G/ LST2CON
009949,000961: 05,2122           02124                           TC       +2                                    
009950,000962: 05,2123           02133                           TC       VBFANDIR                              #  VERB L/ LST2CON
009951,000963: 05,2124           54144                           TS       MPAC                                  
009952,000964: 05,2125           04655                           TC       RELDSP                                #  RELEASE DISPLAY SYST
009953,000965: 05,2126           56144                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
009954,000966: 05,2127           62132                           AD       LST2CADR                              
009955,000967: 05,2130           05246                           TC       BANKJUMP                              
009956,000968: 05,2131           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
009957,000969: 05,2132           22000        LST2CADR           CADR     LST2FAN                               
009958,000970: 
009959,000971: 05,2133           50272        VBFANDIR           INDEX    VERBREG                               
009960,000972: 
009961,000973: 05,2134           32136                           CAF      VERBTAB                               
009962,000974: 05,2135           05246                           TC       BANKJUMP                              
009963,000975: 
009964,000976: 05,2136           12324        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
009965,000977: 05,2137           12340                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
009966,000978: 05,2140           12345                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
009967,000979: 05,2141           12352                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
009968,000980: 05,2142           12333                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
009969,000981: 05,2143           12326                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
009970,000982: 05,2144           12445                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
009971,000983: 05,2145           10722                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
009972,000984: 05,2146           11315                           CADR     DSPALARM                              #  VB10 SPARE
009973,000985: 05,2147           13077                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
009974,000986: 05,2150           13077                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
009975,000987: 05,2151           13077                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
009976,000988: 05,2152           13077                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
009977,000989: 05,2153           13077                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
009978,000990: 05,2154           13077                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
009979,000991: 05,2155           13077                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
009980,000992: 05,2156           12324                           CADR     GODSPALM                              #  VB20 SPARE
009981,000993: 05,2157           12620                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
009982,000994: 05,2160           12631                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
009983,000995: 05,2161           12646                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
009984,000996: 
009985,000997: 05,2162           12572                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
009986,000998: 05,2163           12535                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
009987,000999: 05,2164           12324                           CADR     GODSPALM                              #  VB26 SPARE
009988,001000: 05,2165           13214                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
009989,001001:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
009990,001002: 05,2166           13314        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
009991,001003: 05,2167           13340                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
009992,001004: 05,2170           11343                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2

Page 240

009994,001006: 05,2171           11326                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
009995,001007: 05,2172           11333                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
009996,001008: 
009997,001009: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
009998,001010: 05,2174           02000                           CADR     SLAP1                                 #  VB36 FRESH START
009999,001011: 05,2175           13267        ENDVBFAN           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
010000,001012: 
010001,001013:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
010002,001014: 

Page 241

010004,001016:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
010005,001017:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
010006,001018:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
010007,001019:                                                                                                  #   MIXTEMP.
010008,001020: 
010009,001021: 05,2176           10136        MIXNOUN            CCS      NNADTEM                               
010010,001022: 05,2177           02203                           TC       +4                                    #  +  IN USE
010011,001023: 05,2200           02324                           TC       GODSPALM                              #  +0  NOT IN USE
010012,001024: 
010013,001025: 05,2201           02203                           TC       +2                                    #  -  IN USE
010014,001026: 05,2202           02203                           TC       +1                                    #  -0  IN USE
010015,001027: 05,2203           46276                           CS       SIX                                   
010016,001028: 05,2204           60272                           AD       VERBREG                               
010017,001029: 05,2205           00006                           EXTEND                                         
010018,001030: 05,2206           62210                           BZMF     +2                                    #  VERB L/E 6
010019,001031: 05,2207           02116                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
010020,001032: 05,2210           37754                           CAF      TWO                                   
010021,001033: 05,2211           54107        MIXNN1             TS       DECOUNT                               
010022,001034: 05,2212           62235                           AD       MIXAD                                 
010023,001035: 05,2213           54135                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
010024,001036: 05,2214           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010025,001037: 05,2215           30140                           CA       IDAD1TEM                              #  OF NOUN.
010026,001038: 05,2216           54112                           TS       NOUNTEM                               
010027,001039:                                                                                                  #  TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
010028,001040:                                                                                                  #    MINOR PART ONLY.
010029,001041: 05,2217           02721                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
010030,001042: 05,2220           02236                           TC       DPTEST                                
010031,001043: 05,2221           02223                           TC       MIXNN2                                #  NO DP
010032,001044: 05,2222           24112                           INCR     NOUNTEM                               #  DP GET MINOR PART
010033,001045: 05,2223           30112        MIXNN2             CA       NOUNTEM                               
010034,001046: 05,2224           74552                           MASK     LOW11                                 #  ESUBK (NO DP)  OR (ESUBK)+1    FOR DP
010035,001047: 05,2225           04512                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
010036,001048: 
010037,001049: 05,2226           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
010038,001050: 05,2227           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
010039,001051: 05,2230           50135                           INDEX    NOUNADD                               
010040,001052: 05,2231           56000                           XCH      0                                     #  STORE IN MIXTEM + K
010041,001053: 05,2232           10107                           CCS      DECOUNT                               
010042,001054: 05,2233           02211                           TC       MIXNN1                                
010043,001055: 05,2234           02116                           TC       VERBFAN                               
010044,001056: 
010045,001057: 05,2235           00115        MIXAD              TC       MIXTEMP                               
010046,001058: 
010047,001059:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
010048,001060:                                                                                                  #           RETURNS TO L+1 IF NO DP.
010049,001061:                                                                                                  #           RETURNS TO L+2 IF DP.
010050,001062: 
010051,001063: 05,2236           50000        DPTEST             INDEX    A                                     
010052,001064: 05,2237           12240                           TCF      +1                                    
010053,001065: 05,2240           00002                           TC       Q                                     #  OCTAL ONLY  NO DP

Page 242

010055,001067: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
010056,001068: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
010057,001069: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
010058,001070: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
010059,001071: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
010060,001072: 05,2246           00002                           TC       Q                                     #  OPDEG  NO DP
010061,001073: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
010062,001074: 05,2250           50002        DPTEST1            INDEX    Q                                     
010063,001075: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
010064,001076: 
010065,001077: 05,2252           34516        REQDATX            CAF      R1D1                                  
010066,001078: 05,2253           12257                           TCF      REQCOM                                
010067,001079: 
010068,001080: 05,2254           34517        REQDATY            CAF      R2D1                                  
010069,001081: 05,2255           12257                           TCF      REQCOM                                
010070,001082: 05,2256           34520        REQDATZ            CAF      R3D1                                  
010071,001083: 05,2257           54270        REQCOM             TS       DSPCOUNT                              
010072,001084: 05,2260           40002                           CS       Q                                     
010073,001085: 05,2261           54304                           TS       REQRET                                
010074,001086: 05,2262           05224                           TC       BANKCALL                              
010075,001087: 05,2263           10514                           CADR     5BLANK                                
010076,001088: 05,2264           04611                           TC       FLASHON                               
010077,001089: 05,2265           44474                           CS       ENDINST                               
010078,001090: 05,2266           60126                           AD       ENTEXIT                               
010079,001091: 05,2267           00006                           EXTEND                                         
010080,001092: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
010081,001093: 05,2271           47761                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
010082,001094: 05,2272           54327                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
010083,001095: 05,2273           00126        ENDRQDAT           TC       ENTEXIT                               
010084,001096: 
010085,001097:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
010086,001098:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
010087,001099: 
010088,001100: 05,2274           54273                           TS       NOUNREG                               
010089,001101: 
010090,001102: 05,2275           56002        UPDATNN            XCH      Q                                     
010091,001103: 05,2276           54107                           TS       UPDATRET                              
010092,001104: 05,2277           00006                           EXTEND                                         
010093,001105: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010094,001106: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
010095,001107: 05,2302           10136                           CCS      NNADTEM                               
010096,001108: 05,2303           67755                           AD       ONE                                   #  NORMAL
010097,001109: 05,2304           12307                           TCF      PUTADD                                
010098,001110: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
010099,001111: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
010100,001112: 05,2307           04502        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010101,001113: 05,2310           34555                           CAF      ND1                                   
010102,001114: 05,2311           54270                           TS       DSPCOUNT                              

Page 243

010104,001116: 05,2312           30273                           CA       NOUNREG                               
010105,001117: 05,2313           12322                           TCF      UPDAT1                                
010106,001118: 
010107,001119: 05,2314           54272                           TS       VERBREG                               
010108,001120: 05,2315           56002        UPDATVB            XCH      Q                                     
010109,001121: 05,2316           54107                           TS       UPDATRET                              
010110,001122: 05,2317           34554                           CAF      VD1                                   
010111,001123: 05,2320           54270                           TS       DSPCOUNT                              
010112,001124: 05,2321           30272                           CA       VERBREG                               
010113,001125: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
010114,001126: 05,2323           00107                           TC       UPDATRET                              
010115,001127: 
010116,001128: 05,2324           05243        GODSPALM           TC       POSTJUMP                              
010117,001129: 05,2325           11315                           CADR     DSPALARM                              
010118,001130: 

Page 244

010120,001132:                                                                                                  #           NOUN TABLES
010121,001133:                                                                                                  #  NOUN CODE L/ 55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
010122,001134: 
010123,001135:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
010124,001136:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
010125,001137:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
010126,001138:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
010127,001139: 
010128,001140:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
010129,001141:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
010130,001142: 
010131,001143:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
010132,001144: 
010133,001145:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
010134,001146:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
010135,001147:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
010136,001148: 
010137,001149:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
010138,001150:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
010139,001151:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
010140,001152:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
010141,001153:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
010142,001154:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
010143,001155: 
010144,001156:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
010145,001157:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
010146,001158: 
010147,001159:                                                                                                  #  THE FIRST OF THESE ENTRIES.
010148,001160:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
010149,001161:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
010150,001162: 
010151,001163:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
010152,001164:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
010153,001165:                                                                                                  #        QQQQQRRRRRSSSSS
010154,001166:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
010155,001167:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
010156,001168:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
010157,001169:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
010158,001170:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
010159,001171: 
010160,001172: 
010161,001173:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
010162,001174:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
010163,001175:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
010164,001176:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
010165,001177:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
010166,001178: 
010167,001179: 
010168,001180:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
010169,001181:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.

Page 245

010171,001183: 
010172,001184:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
010173,001185:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
010174,001186: 

Page 246

010176,001188:                                                                                                  #           DISPLAY VERBS
010177,001189: 
010178,001190: 05,2326           47754        DSPABC             CS       TWO                                   
010179,001191: 05,2327           02376                           TC       COMPTEST                              
010180,001192: 05,2330           50135                           INDEX    NOUNADD                               
010181,001193: 05,2331           40002                           CS       2                                     
010182,001194: 05,2332           56122                           XCH      BUF        +2                         
010183,001195: 05,2333           47755        DSPAB              CS       ONE                                   
010184,001196: 05,2334           02376                           TC       COMPTEST                              
010185,001197: 05,2335           50135                           INDEX    NOUNADD                               
010186,001198: 05,2336           40001                           CS       1                                     
010187,001199: 05,2337           56121                           XCH      BUF        +1                         
010188,001200: 05,2340           02420        DSPA               TC       TSTFORDP                              
010189,001201: 05,2341           50135                           INDEX    NOUNADD                               
010190,001202: 05,2342           40000                           CS       0                                     
010191,001203: 
010192,001204: 05,2343           56120        DSPCOM1            XCH      BUF                                   
010193,001205: 05,2344           02357                           TC       DSPCOM2                               
010194,001206: 05,2345           47755        DSPB               CS       ONE                                   
010195,001207: 05,2346           02376                           TC       COMPTEST                              
010196,001208: 05,2347           50135                           INDEX    NOUNADD                               
010197,001209: 05,2350           40001                           CS       1                                     
010198,001210: 05,2351           02343                           TC       DSPCOM1                               
010199,001211: 05,2352           47754        DSPC               CS       TWO                                   
010200,001212: 05,2353           02376                           TC       COMPTEST                              
010201,001213: 05,2354           50135                           INDEX    NOUNADD                               
010202,001214: 05,2355           40002                           CS       2                                     
010203,001215: 05,2356           02343                           TC       DSPCOM1                               
010204,001216: 05,2357           47754        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
010205,001217: 05,2360           60272                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
010206,001218: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
010207,001219: 05,2362           02365                           TC       DSPCOM3                               
010208,001220: 05,2363           00126                           TC       ENTEXIT                               
010209,001221: 05,2364           02365                           TC       +1                                    
010210,001222: 05,2365           54112        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
010211,001223: 05,2366           50000                           INDEX    A                                     
010212,001224: 05,2367           34516                           CAF      R1D1                                  
010213,001225: 05,2370           54270                           TS       DSPCOUNT                              
010214,001226: 05,2371           50112                           INDEX    DISTEM                                
010215,001227: 
010216,001228: 05,2372           40120                           CS       BUF                                   
010217,001229: 05,2373           03222                           TC       DSPOCTWD                              
010218,001230: 05,2374           56112                           XCH      DISTEM                                
010219,001231: 05,2375           02361                           TC       DSPCOM2    +2                         
010220,001232: 
010221,001233:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
010222,001234:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
010223,001235:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
010224,001236: 05,2376           54113        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
010225,001237: 05,2377           22002                           LXCH     Q                                     
010226,001238: 05,2400           47755        COMPTST1           CS       ONE                                   
010227,001239: 05,2401           60273                           AD       NOUNREG                               
010228,001240: 05,2402           00006                           EXTEND                                         

Page 247

010230,001242: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
010231,001243: 05,2404           50130                           INDEX    MIXBR                                 #  NOUN NOT = 01.
010232,001244: 05,2405           32442                           CAF      COMPICK    -1                         
010233,001245: 05,2406           50000                           INDEX    A                                     
010234,001246: 05,2407           30000                           CA       0                                     
010235,001247: 05,2410           74547                           MASK     HI5                                   
010236,001248: 05,2411           04530                           TC       LEFT5                                 #  NOUN COMP
010237,001249: 05,2412           60113                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
010238,001250: 05,2413           10000                           CCS      A                                     
010239,001251: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
010240,001252: 05,2415           04725                           TC       CCSHOLE                               
010241,001253: 05,2416           02324                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
010242,001254: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
010243,001255: 
010244,001256: 
010245,001257: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
010246,001258: 05,2421           30136                           CA       NNADTEM                               
010247,001259: 05,2422           67755                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010248,001260: 
010249,001261: 05,2423           00006                           EXTEND                                         
010250,001262: 05,2424           12436                           BZF      CHANDSP                               
010251,001263: 05,2425           50130                           INDEX    MIXBR                                 
010252,001264: 05,2426           02426                           TC       +0                                    
010253,001265: 05,2427           02431                           TC       +2                                    #  NORMAL
010254,001266: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
010255,001267: 05,2431           02713                           TC       SFRUTNOR                              
010256,001268: 05,2432           02236                           TC       DPTEST                                
010257,001269: 05,2433           00001                           TC       L                                     #  NO DP
010258,001270: 05,2434           24135                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
010259,001271: 05,2435           00001                           TC       L                                     
010260,001272: 
010261,001273: 05,2436           00006        CHANDSP            EXTEND                                         
010262,001274: 05,2437           50310                           INDEX    NOUNCADR                              
010263,001275: 05,2440           00000                           READ     0                                     
010264,001276: 05,2441           40000                           CS       A                                     
010265,001277: 05,2442           12343                           TCF      DSPCOM1                               
010266,001278: 
010267,001279: 
010268,001280: 05,2443           00137        COMPICK            ADRES    NNTYPTEM                              
010269,001281: 
010270,001282: 05,2444           00136                           ADRES    NNADTEM                               
010271,001283: 
010272,001284: 05,2445           50130        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
010273,001285: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
010274,001286: 05,2447           50000                           INDEX    A                                     
010275,001287: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
010276,001288: 05,2451           74547                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB (MIX)
010277,001289: 05,2452           04530                           TC       LEFT5                                 

Page 248

010279,001291: 
010280,001292: 05,2453           54107                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
010281,001293: 05,2454           54112        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
010282,001294: 
010283,001295: 05,2455           60135                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
010284,001296: 05,2456           50000                           INDEX    A                                     
010285,001297: 05,2457           40000                           CS       0                                     
010286,001298: 05,2460           50112                           INDEX    DECTEM                                
010287,001299: 05,2461           56274                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
010288,001300: 05,2462           10112                           CCS      DECTEM                                
010289,001301: 05,2463           02454                           TC       DSPDCGET                              #  MORE TO GET
010290,001302: 05,2464           37761        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
010291,001303: 05,2465           54145                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
010292,001304: 05,2466           54146                           TS       MPAC       +2                         
010293,001305: 05,2467           50107                           INDEX    DECOUNT                               
010294,001306: 05,2470           34516                           CAF      R1D1                                  
010295,001307: 05,2471           54270                           TS       DSPCOUNT                              
010296,001308: 05,2472           50107                           INDEX    DECOUNT                               
010297,001309: 05,2473           40274                           CS       XREG                                  
010298,001310: 05,2474           54144                           TS       MPAC                                  
010299,001311: 05,2475           02734                           TC       SFCONUM                               #  2X( SF CON NUMB ) IN A
010300,001312: 05,2476           54113                           TS       SFTEMP1                               
010301,001313: 05,2477           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
010302,001314: 05,2500           32512                           DCA      GTSFOUTL                              #     READING ROUTINE.
010303,001315: 05,2501           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
010304,001316: 05,2502           50130                           INDEX    MIXBR                                 
010305,001317: 05,2503           02503                           TC       +0                                    
010306,001318: 
010307,001319: 05,2504           02507                           TC       DSPSFNOR                              
010308,001320: 05,2505           02721                           TC       SFRUTMIX                              
010309,001321: 05,2506           02522                           TC       DECDSP3                               
010310,001322: 
010311,001323: 05,2507           02713        DSPSFNOR           TC       SFRUTNOR                              
010312,001324: 05,2510           02522                           TC       DECDSP3                               
010313,001325: 
010314,001326: 05,2511     0270                                  EBANK=   DSPCOUNT                              
010315,001327: 05,2511           02037 46000  GTSFOUTL           2CADR    GTSFOUT                               
010316,001328: 
010317,001329: 
010318,001330: 05,2513           05224        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
010319,001331: 05,2514           11117                           CADR     DSPDECWD                              
010320,001332: 05,2515           10107                           CCS      DECOUNT                               
010321,001333: 05,2516           02520                           TC       +2                                    
010322,001334: 05,2517           00126                           TC       ENTEXIT                               
010323,001335: 05,2520           54107                           TS       DECOUNT                               
010324,001336: 05,2521           02464                           TC       DSPDCPUT                              #  MORE TO DISPLAY
010325,001337: 
010326,001338: 05,2522           50000        DECDSP3            INDEX    A                                     
010327,001339: 
010328,001340: 05,2523           32525                           CAF      SFOUTABR                              
010329,001341: 05,2524           05246                           TC       BANKJUMP                              
010330,001342: 

Page 249

010332,001344: 05,2525           11315        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
010333,001345: 05,2526           12513                           CADR     DSPDCEND                              
010334,001346: 05,2527           10573                           CADR     DEGOUTSF                              
010335,001347: 05,2530           10660                           CADR     ARTOUTSF                              
010336,001348: 05,2531           10665                           CADR     DP1OUTSF                              
010337,001349: 05,2532           10672                           CADR     DP2OUTSF                              
010338,001350: 05,2533           10601                           CADR     OPDEGOUT                              
010339,001351: 05,2534           10674                           CADR     DP3OUTSF                              
010340,001352: 
010341,001353: 05,2535                        ENDRTOUT           EQUALS                                         
010342,001354: 
010343,001355:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
010344,001356:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
010345,001357: 
010346,001358: 04,2573                                           SETLOC   BLANKCON   +1                         
010347,001359: 
010348,001360:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
010349,001361:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
010350,001362: 
010351,001363: 04,2573           37761        DEGOUTSF           CAF      ZERO                                  
010352,001364: 04,2574           54146                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
010353,001365: 04,2575           02632                           TC       FIXRANGE                              
010354,001366: 04,2576           02600                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
010355,001367: 04,2577           02625                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
010356,001368: 04,2600           02643                           TC       DEGCOM                                
010357,001369: 
010358,001370:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
010359,001371: 
010360,001372: 04,2601           10144        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
010361,001373: 04,2602           56144                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
010362,001374: 04,2603           02606                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
010363,001375: 04,2604           02615                           TC       NEGOPT                                #  IF NEG NON ZERO
010364,001376: 04,2605           67763                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
010365,001377: 04,2606           62657                           AD       20BIAS                                
010366,001378: 04,2607           54144        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
010367,001379: 04,2610           02613                           TC       +3                                    #  NO OVFLOW
010368,001380: 04,2611           37737                           CAF      BIT15                                 #  IF OVFLOW
010369,001381: 04,2612           26144                           ADS      MPAC                                  
010370,001382: 04,2613           37754                           CAF      TWO                                   #  SET MULTIPLIER TO .45
010371,001383: 04,2614           02574                           TC       DEGOUTSF   +1                         
010372,001384: 
010373,001385: 04,2615           56144        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
010374,001386: 04,2616           62657                           AD       20BIAS                                
010375,001387: 04,2617           10000                           CCS      A                                     
010376,001388: 04,2620           02607                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
010377,001389: 04,2621           04725                           TC       CCSHOLE                               
010378,001390: 04,2622           67755                           AD       ONE                                   #  IF NEG RESTORE SUM
010379,001391: 

Page 250

010381,001393: 04,2623           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
010382,001394: 04,2624           02607                           TC       BIASCOM                               
010383,001395: 
010384,001396: 04,2625           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
010385,001397: 04,2626           50146                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
010386,001398: 04,2627           32654                           DCA      DEGTAB                                
010387,001399: 04,2630           52114                           DXCH     SFTEMP1                               
010388,001400: 04,2631           00002                           TC       Q                                     
010389,001401: 
010390,001402: 04,2632           10144        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
010391,001403: 04,2633           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
010392,001404: 04,2634           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
010393,001405: 04,2635           12636                           TCF      +1                                    
010394,001406: 04,2636           47737                           CS       BIT15                                 
010395,001407: 
010396,001408: 04,2637           70144                           MASK     MPAC                                  
010397,001409: 04,2640           54144                           TS       MPAC                                  
010398,001410: 04,2641           50002                           INDEX    Q                                     
010399,001411: 04,2642           00001                           TC       1                                     
010400,001412: 
010401,001413: 04,2643           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER , DOES SHORTMP, AND
010402,001414: 04,2644           50146                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
010403,001415: 04,2645           32654                           DCA      DEGTAB                                
010404,001416: 04,2646           52145                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
010405,001417: 04,2647           07351                           TC       SHORTMP                               
010406,001418: 04,2650           52114                           DXCH     SFTEMP1                               
010407,001419: 04,2651           20145                           DAS      MPAC                                  
010408,001420: 04,2652           02663                           TC       SCOUTEND                              
010409,001421: 
010410,001422: 
010411,001423: 04,2653           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
010412,001424: 04,2654           03656                           OCT      03656                                 #  LOW PART OF    .18
010413,001425: 04,2655           16314                           OCT      16314                                 #  HI PART OF     .45
010414,001426: 04,2656           31463                           OCT      31463                                 #  LO PART OF     .45
010415,001427: 
010416,001428: 04,2657           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
010417,001429: 
010418,001430: 04,2660           52114        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
010419,001431: 04,2661           52145                           DXCH     MPAC                                  
010420,001432: 04,2662           07351                           TC       SHORTMP                               
010421,001433: 04,2663           05243        SCOUTEND           TC       POSTJUMP                              
010422,001434: 04,2664           12513                           CADR     DSPDCEND                              
010423,001435: 
010424,001436: 04,2665           02677        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010425,001437: 04,2666           56146                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
010426,001438: 04,2667           56145                           XCH      MPAC       +1                         #  BY B14.
010427,001439: 04,2670           54144                           TS       MPAC                                  
010428,001440: 04,2671           02663                           TC       SCOUTEND                              

Page 251

010430,001442: 
010431,001443: 04,2672           02677        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010432,001444: 04,2673           02663                           TC       SCOUTEND                              
010433,001445: 
010434,001446: 
010435,001447: 04,2674           02677        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010436,001448: 04,2675           03072                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
010437,001449: 04,2676           02663                           TC       SCOUTEND                              
010438,001450: 
010439,001451:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
010440,001452:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
010441,001453: 
010442,001454: 04,2677           56002        DPOUT              XCH      Q                                     
010443,001455: 04,2700           54111                           TS       OVFIND                                
010444,001456: 04,2701           50130                           INDEX    MIXBR                                 
010445,001457: 04,2702           02702                           TC       +0                                    
010446,001458: 04,2703           02720                           TC       DPOUTNOR                              
010447,001459: 04,2704           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010448,001460: 
010449,001461: 04,2705           30140                           CA       IDAD1TEM                              #      OF NOUN.
010450,001462: 04,2706           74552                           MASK     LOW11                                 #  E SUBK
010451,001463: 04,2707           04512                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
010452,001464: 04,2710           00006        DPOUTCOM           EXTEND                                         
010453,001465: 04,2711           50000                           INDEX    A                                     #  MIXED         NORMAL
010454,001466: 04,2712           30001                           DCA      0                                     #  C(ESUBK)      C(E)
010455,001467: 04,2713           52145                           DXCH     MPAC                                  #  C((E SUBK)+1)      C(E+1)
010456,001468: 04,2714           07320                           TC       TPAGREE                               
010457,001469: 04,2715           07146                           TC       DMP                                   
010458,001470: 04,2716           00113                           ADRES    SFTEMP1                               
010459,001471: 04,2717           00111                           TC       OVFIND                                
010460,001472: 
010461,001473: 04,2720           30135        DPOUTNOR           CA       NOUNADD                               #  E
010462,001474: 04,2721           02710                           TC       DPOUTCOM                              
010463,001475: 
010464,001476: 
010465,001477:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
010466,001478:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
010467,001479:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
010468,001480:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
010469,001481:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
010470,001482:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
010471,001483: 
010472,001484: 
010473,001485: 04,2722           50130        DSPDPDEC           INDEX    MIXBR                                 
010474,001486: 04,2723           02723                           TC       +0                                    
010475,001487: 04,2724           02726                           TC       +2                                    #  NORMAL NOUN
010476,001488: 04,2725           03315                           TC       DSPALARM                              
010477,001489: 

Page 252

010479,001491: 04,2726           00006                           EXTEND                                         
010480,001492: 04,2727           50135                           INDEX    NOUNADD                               
010481,001493: 
010482,001494: 04,2730           30001                           DCA      0                                     
010483,001495: 04,2731           52145                           DXCH     MPAC                                  
010484,001496: 04,2732           34516                           CAF      R1D1                                  
010485,001497: 04,2733           54270                           TS       DSPCOUNT                              
010486,001498: 04,2734           37761                           CAF      ZERO                                  
010487,001499: 04,2735           54146                           TS       MPAC       +2                         
010488,001500: 04,2736           07320                           TC       TPAGREE                               
010489,001501: 04,2737           03173                           TC       DSP2DEC                               
010490,001502: 04,2740           00126        ENDDPDEC           TC       ENTEXIT                               
010491,001503: 

Page 253

010493,001505:                                                                                                  #           LOAD VERBS
010494,001506: 
010495,001507: 
010496,001508: 05,2535                                           SETLOC   ENDRTOUT                              
010497,001509: 
010498,001510: 05,2535           47754        ABCLOAD            CS       TWO                                   
010499,001511: 05,2536           02376                           TC       COMPTEST                              
010500,001512: 
010501,001513: 05,2537           32673                           CAF      VBSP1LD                               
010502,001514: 05,2540           02314                           TC       UPDATVB    -1                         
010503,001515: 05,2541           02252                           TC       REQDATX                               
010504,001516: 05,2542           32674                           CAF      VBSP2LD                               
010505,001517: 05,2543           02314                           TC       UPDATVB    -1                         
010506,001518: 05,2544           02254                           TC       REQDATY                               
010507,001519: 05,2545           32675                           CAF      VBSP3LD                               
010508,001520: 05,2546           02314                           TC       UPDATVB    -1                         
010509,001521: 05,2547           02256                           TC       REQDATZ                               
010510,001522: 
010511,001523: 
010512,001524: 05,2550           46276        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
010513,001525: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010514,001526: 05,2552           00006                           EXTEND                                         
010515,001527: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010516,001528: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
010517,001529: 05,2555           37761                           CAF      ZERO                                  #  X COMP
010518,001530: 05,2556           02762                           TC       PUTCOM                                
010519,001531: 05,2557           50135                           INDEX    NOUNADD                               
010520,001532: 05,2560           54000                           TS       0                                     
010521,001533: 05,2561           37755                           CAF      ONE                                   #  Y COMP
010522,001534: 05,2562           02762                           TC       PUTCOM                                
010523,001535: 
010524,001536: 05,2563           50135                           INDEX    NOUNADD                               
010525,001537: 05,2564           54001                           TS       1                                     
010526,001538: 05,2565           37754                           CAF      TWO                                   #  Z COMP
010527,001539: 05,2566           02762                           TC       PUTCOM                                
010528,001540: 05,2567           50135                           INDEX    NOUNADD                               
010529,001541: 05,2570           54002                           TS       2                                     
010530,001542: 05,2571           02663                           TC       LOADLV                                
010531,001543: 
010532,001544: 05,2572           47755        ABLOAD             CS       ONE                                   
010533,001545: 05,2573           02376                           TC       COMPTEST                              
010534,001546: 05,2574           32673                           CAF      VBSP1LD                               
010535,001547: 05,2575           02314                           TC       UPDATVB    -1                         
010536,001548: 05,2576           02252                           TC       REQDATX                               
010537,001549: 05,2577           32674                           CAF      VBSP2LD                               
010538,001550: 05,2600           02314                           TC       UPDATVB    -1                         
010539,001551: 05,2601           02254                           TC       REQDATY                               
010540,001552: 05,2602           47760        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
010541,001553: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010542,001554: 05,2604           00006                           EXTEND                                         

Page 254

010544,001556: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010545,001557: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
010546,001558: 05,2607           37761                           CAF      ZERO                                  #  X COMP
010547,001559: 05,2610           02762                           TC       PUTCOM                                
010548,001560: 05,2611           50135                           INDEX    NOUNADD                               
010549,001561: 05,2612           54000                           TS       0                                     
010550,001562: 05,2613           37755                           CAF      ONE                                   #  Y COMP
010551,001563: 05,2614           02762                           TC       PUTCOM                                
010552,001564: 05,2615           50135                           INDEX    NOUNADD                               
010553,001565: 05,2616           54001                           TS       1                                     
010554,001566: 05,2617           02663                           TC       LOADLV                                
010555,001567: 
010556,001568: 05,2620           02252        ALOAD              TC       REQDATX                               
010557,001569: 05,2621           00006                           EXTEND                                         
010558,001570: 
010559,001571: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010560,001572: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
010561,001573: 05,2624           37761                           CAF      ZERO                                  #  X COMP
010562,001574: 05,2625           02762                           TC       PUTCOM                                
010563,001575: 05,2626           50135                           INDEX    NOUNADD                               
010564,001576: 05,2627           54000                           TS       0                                     
010565,001577: 05,2630           02663                           TC       LOADLV                                
010566,001578: 
010567,001579: 05,2631           47755        BLOAD              CS       ONE                                   
010568,001580: 05,2632           02376                           TC       COMPTEST                              
010569,001581: 05,2633           37737                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010570,001582: 05,2634           54306                           TS       CLPASS                                
010571,001583: 05,2635           02254                           TC       REQDATY                               
010572,001584: 05,2636           00006                           EXTEND                                         
010573,001585: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010574,001586: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
010575,001587: 05,2641           37755                           CAF      ONE                                   
010576,001588: 05,2642           02762                           TC       PUTCOM                                
010577,001589: 05,2643           50135                           INDEX    NOUNADD                               
010578,001590: 05,2644           54001                           TS       1                                     
010579,001591: 05,2645           02663                           TC       LOADLV                                
010580,001592: 
010581,001593: 05,2646           47754        CLOAD              CS       TWO                                   
010582,001594: 
010583,001595: 05,2647           02376                           TC       COMPTEST                              
010584,001596: 05,2650           37737                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010585,001597: 05,2651           54306                           TS       CLPASS                                
010586,001598: 05,2652           02256                           TC       REQDATZ                               
010587,001599: 05,2653           00006                           EXTEND                                         
010588,001600: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010589,001601: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
010590,001602: 05,2656           37754                           CAF      TWO                                   
010591,001603: 05,2657           02762                           TC       PUTCOM                                
010592,001604: 05,2660           50135                           INDEX    NOUNADD                               
010593,001605: 05,2661           54002                           TS       2                                     
010594,001606: 05,2662           02663                           TC       LOADLV                                
010595,001607: 

Page 255

010597,001609: 05,2663           37761        LOADLV             CAF      ZERO                                  
010598,001610: 05,2664           54271                           TS       DECBRNCH                              
010599,001611: 05,2665           47761                           CS       ZERO                                  
010600,001612: 05,2666           54305                           TS       LOADSTAT                              
010601,001613: 05,2667           44554                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
010602,001614: 05,2670           54270                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
010603,001615: 05,2671           05243                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
010604,001616: 05,2672           11440                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
010605,001617: 
010606,001618: 05,2673           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
010607,001619: 05,2674           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
010608,001620: 05,2675           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
010609,001621: 
010610,001622: 05,2676           54107        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
010611,001623: 05,2677           40271                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
010612,001624: 05,2700           54021                           TS       SR                                    
010613,001625: 05,2701           40021                           CS       SR                                    
010614,001626: 05,2702           40021                           CS       SR                                    #  SHIFTED RIGHT 2
010615,001627: 
010616,001628: 05,2703           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
010617,001629: 05,2704           12706                           TCF      +2                                    #  SOME ONES IN LOW 3
010618,001630: 05,2705           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
010619,001631: 05,2706           60107                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
010620,001632: 05,2707           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
010621,001633: 05,2710           12712                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
010622,001634: 05,2711           02324                           TC       GODSPALM                              
010623,001635: 05,2712           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC.  OK
010624,001636: 
010625,001637: 05,2713           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
010626,001638: 05,2714           54104                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
010627,001639: 05,2715           34546                           CAF      MID5                                  
010628,001640: 05,2716           70137                           MASK     NNTYPTEM                              
010629,001641: 05,2717           04521                           TC       RIGHT5                                
010630,001642: 05,2720           00104                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
010631,001643: 
010632,001644: 05,2721           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
010633,001645: 05,2722           54104                           TS       EXITEM                                
010634,001646: 05,2723           50107                           INDEX    DECOUNT                               
010635,001647: 05,2724           32753                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010636,001648: 05,2725           54001                           TS       L                                     
010637,001649: 
010638,001650: 05,2726           50107                           INDEX    DECOUNT                               
010639,001651: 05,2727           34545                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
010640,001652: 05,2730           70143                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
010641,001653: 05,2731           50001                           INDEX    L                                     
010642,001654: 05,2732           00000                           TC       0                                     
010643,001655:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010644,001656: 05,2733           00104        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
010645,001657: 

Page 256

010647,001659: 05,2734           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
010648,001660: 05,2735           54104                           TS       EXITEM                                
010649,001661: 
010650,001662: 05,2736           50130                           INDEX    MIXBR                                 
010651,001663: 05,2737           02737                           TC       +0                                    
010652,001664: 05,2740           02756                           TC       CONUMNOR                              #  NORMAL NOUN
010653,001665: 05,2741           50107                           INDEX    DECOUNT                               #  MIXED NOUN
010654,001666: 05,2742           32753                           CAF      DISPLACE                              
010655,001667: 05,2743           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010656,001668: 05,2744           50107                           INDEX    DECOUNT                               
010657,001669: 05,2745           34545                           CAF      LOW5                                  
010658,001670: 05,2746           70137                           MASK     NNTYPTEM                              
010659,001671: 05,2747           50001                           INDEX    L                                     
010660,001672: 05,2750           00000                           TC       0                                     
010661,001673:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010662,001674: 05,2751           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
010663,001675: 05,2752           00104                           TC       EXITEM                                
010664,001676: 
010665,001677: 05,2753           02712        DISPLACE           TC       GOQ                                   
010666,001678: 05,2754           04521                           TC       RIGHT5                                
010667,001679: 05,2755           04530                           TC       LEFT5                                 
010668,001680: 
010669,001681: 05,2756           34545        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
010670,001682: 05,2757           70137                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
010671,001683: 05,2760           60000                           DOUBLE                                         
010672,001684: 05,2761           00104                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
010673,001685: 
010674,001686: 
010675,001687: 05,2762           54107        PUTCOM             TS       DECOUNT                               
010676,001688: 05,2763           56002                           XCH      Q                                     
010677,001689: 05,2764           54105                           TS       DECRET                                
010678,001690: 05,2765           37761                           CAF      ZERO                                  
010679,001691: 05,2766           54111                           TS       OVFIND                                
010680,001692: 05,2767           50107                           INDEX    DECOUNT                               
010681,001693: 05,2770           56277                           XCH      XREGLP                                
010682,001694: 05,2771           54145                           TS       MPAC       +1                         
010683,001695: 05,2772           50107                           INDEX    DECOUNT                               
010684,001696: 05,2773           56274                           XCH      XREG                                  
010685,001697: 05,2774           54144                           TS       MPAC                                  
010686,001698: 05,2775           50130                           INDEX    MIXBR                                 
010687,001699: 05,2776           02776                           TC       +0                                    
010688,001700: 05,2777           03023                           TC       PUTNORM                               #  NORMAL NOUN
010689,001701:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
010690,001702: 05,3000           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010691,001703: 05,3001           30140                           CA       IDAD1TEM                              #          OF NOUN.
010692,001704: 05,3002           74552                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
010693,001705: 05,3003           04502                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010694,001706: 05,3004           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
010695,001707: 05,3005           60107                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
010696,001708: 
010697,001709: 05,3006           54135                           TS       NOUNADD                               

Page 257

010699,001711: 05,3007           10271                           CCS      DECBRNCH                              
010700,001712: 05,3010           03051                           TC       PUTDECSF                              #  +  DEC
010701,001713: 05,3011           02721                           TC       SFRUTMIX                              #  +0  OCTAL
010702,001714: 05,3012           02236                           TC       DPTEST                                
010703,001715: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
010704,001716:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
010705,001717:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
010706,001718:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
010707,001719: 
010708,001720: 05,3014           24135        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
010709,001721: 05,3015           30135                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
010710,001722: 05,3016           26107                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
010711,001723: 05,3017           37761                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
010712,001724: 05,3020           50107                           INDEX    DECOUNT                               
010713,001725: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
010714,001726: 05,3022           03040                           TC       PUTCOM2                               
010715,001727: 
010716,001728: 05,3023           04510        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010717,001729: 05,3024           10271                           CCS      DECBRNCH                              
010718,001730: 05,3025           03051                           TC       PUTDECSF                              #  +  DEC
010719,001731: 05,3026           02713                           TC       SFRUTNOR                              #  +0  OCTAL
010720,001732: 05,3027           02236                           TC       DPTEST                                
010721,001733: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
010722,001734: 05,3031           37761                           CAF      ZERO                                  #  DP
010723,001735: 05,3032           54107                           TS       DECOUNT                               
010724,001736: 05,3033           03014                           TC       PUTDPCOM                              
010725,001737: 
010726,001738: 05,3034           30136                           CA       NNADTEM                               
010727,001739: 05,3035           67755                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010728,001740: 05,3036           00006                           EXTEND                                         
010729,001741: 05,3037           13044                           BZF      CHANLOAD                              
010730,001742: 05,3040           56144        PUTCOM2            XCH      MPAC                                  
010731,001743: 
010732,001744: 05,3041           00105                           TC       DECRET                                
010733,001745: 
010734,001746: 05,3042     0270                                  EBANK=   DSPCOUNT                              
010735,001747: 05,3042           02045 46000  GTSFINLC           2CADR    GTSFIN                                
010736,001748: 
010737,001749: 
010738,001750: 05,3044           56144        CHANLOAD           XCH      MPAC                                  
010739,001751: 05,3045           00006                           EXTEND                                         
010740,001752: 05,3046           50310                           INDEX    NOUNCADR                              
010741,001753: 05,3047           01000                           WRITE    0                                     
010742,001754: 05,3050           02663                           TC       LOADLV                                
010743,001755: 
010744,001756:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
010745,001757: 
010746,001758: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
010747,001759: 05,3052           54113                           TS       SFTEMP1                               

Page 258

010749,001761: 05,3053           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
010750,001762: 05,3054           33043                           DCA      GTSFINLC                              #  READING ROUTINE.
010751,001763: 05,3055           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
010752,001764: 05,3056           50130                           INDEX    MIXBR                                 
010753,001765: 05,3057           03057                           TC       +0                                    
010754,001766: 05,3060           03063                           TC       PUTSFNOR                              
010755,001767: 05,3061           02721                           TC       SFRUTMIX                              
010756,001768: 05,3062           03064                           TC       PUTDCSF2                              
010757,001769: 05,3063           02713        PUTSFNOR           TC       SFRUTNOR                              
010758,001770: 
010759,001771: 05,3064           50000        PUTDCSF2           INDEX    A                                     
010760,001772: 05,3065           33067                           CAF      SFINTABR                              
010761,001773: 05,3066           05246                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
010762,001774: 05,3067           11315        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
010763,001775: 
010764,001776: 05,3070           11021                           CADR     BINROUND                              
010765,001777: 05,3071           10741                           CADR     DEGINSF                               
010766,001778: 05,3072           11011                           CADR     ARTHINSF                              
010767,001779: 05,3073           11041                           CADR     DPINSF                                
010768,001780: 05,3074           11066                           CADR     DPINSF2                               
010769,001781: 05,3075           11024                           CADR     OPTDEGIN                              
010770,001782: 05,3076           11041                           CADR     DPINSF                                #  SAME AS ARITHDP1
010771,001783: 05,3077                        ENDRUTIN           EQUALS                                         
010772,001784: 
010773,001785: 
010774,001786:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
010775,001787:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
010776,001788: 
010777,001789: 04,2741                                           SETLOC   ENDDPDEC   +1                         
010778,001790: 
010779,001791:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
010780,001792: 
010781,001793: 04,2741           07146        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
010782,001794: 04,2742           03004                           ADRES    DEGCON1                               #  MULT BY 5.5  5(10)X2EXP-3
010783,001795: 04,2743           10145                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
010784,001796: 
010785,001797: 04,2744           37743                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
010786,001798: 04,2745           02747                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
010787,001799: 04,2746           47743                           CS       BIT11                                 
010788,001800: 04,2747           60145                           AD       MPAC       +1                         
010789,001801: 04,2750           03104                           TC       2ROUND     +2                         
010790,001802: 04,2751           04600                           TC       TPSL1                                 #  LEFT 1
010791,001803: 04,2752           04600        DEGINSF2           TC       TPSL1                                 #  LEFT 2
010792,001804: 04,2753           03113                           TC       TESTOFUF                              
010793,001805: 04,2754           04600                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
010794,001806: 04,2755           10144                           CCS      MPAC                                  
010795,001807: 04,2756           02762                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
010796,001808: 04,2757           02762                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
010797,001809: 04,2760           40000                           COM                                            #  IF - , USE -MAGNITUDE +1

Page 259

010799,001811: 04,2761           54144                           TS       MPAC                                  #  IF -0, USE +0
010800,001812: 04,2762           10111        SIGNFIX            CCS      OVFIND                                
010801,001813: 04,2763           03000                           TC       SGNTO1                                #  IF OVERFLOW
010802,001814: 04,2764           02774                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
010803,001815: 04,2765           10144                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
010804,001816: 04,2766           04725                           TC       CCSHOLE                               
010805,001817: 04,2767           02776                           TC       NEG180                                
010806,001818: 04,2770           02771                           TC       +1                                    
010807,001819: 04,2771           56144                           XCH      MPAC                                  
010808,001820: 04,2772           77735                           MASK     POSMAX                                
010809,001821: 04,2773           54144                           TS       MPAC                                  
010810,001822: 04,2774           05243        ENDSCALE           TC       POSTJUMP                              
010811,001823: 04,2775           13040                           CADR     PUTCOM2                               
010812,001824: 
010813,001825: 04,2776           47735        NEG180             CS       POSMAX                                
010814,001826: 04,2777           02773                           TC       ENDSCALE   -1                         
010815,001827: 
010816,001828: 04,3000           40144        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
010817,001829: 04,3001           77735                           MASK     POSMAX                                
010818,001830: 
010819,001831: 04,3002           40000                           CS       A                                     
010820,001832: 04,3003           02773                           TC       ENDSCALE   -1                         
010821,001833: 
010822,001834: 04,3004           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
010823,001835: 
010824,001836: 04,3006           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
010825,001837: 
010826,001838: 04,3010           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
010827,001839: 
010828,001840: 04,3011           07146        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
010829,001841: 04,3012           00113                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
010830,001842: 04,3013           56146                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
010831,001843: 04,3014           56145                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
010832,001844: 04,3015           56144                           XCH      MPAC                                  
010833,001845: 04,3016           00006                           EXTEND                                         
010834,001846: 04,3017           13021                           BZF      BINROUND                              
010835,001847: 04,3020           03315                           TC       DSPALARM                              #  TOO LARGE A LOAD
010836,001848: 04,3021           03102        BINROUND           TC       2ROUND                                
010837,001849: 04,3022           03113                           TC       TESTOFUF                              
010838,001850: 04,3023           02774                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
010839,001851: 
010840,001852: 
010841,001853: 04,3024           10144        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
010842,001854: 04,3025           03031                           TC       +4                                    
010843,001855: 04,3026           03031                           TC       +3                                    
010844,001856: 04,3027           03315                           TC       DSPALARM                              #  REJECT NEGATIVE INPUT
010845,001857: 04,3030           03315                           TC       DSPALARM                              #         DITTO
010846,001858: 04,3031           33010        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
010847,001859: 04,3032           26144                           ADS      MPAC                                  #  SUBTRACT BIAS
010848,001860: 04,3033           07146                           TC       DMP                                   #  MULT BY 100 / 45 B-2
010849,001861: 

Page 260

010851,001863: 04,3034           03006                           ADRES    DEGCON2                               
010852,001864: 04,3035           37742                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
010853,001865: 
010854,001866: 04,3036           60145                           AD       MPAC       +1                         
010855,001867: 04,3037           03104                           TC       2ROUND     +2                         
010856,001868: 04,3040           02752                           TC       DEGINSF2                              
010857,001869: 
010858,001870: 04,3041           07146        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
010859,001871: 04,3042           00113                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
010860,001872: 04,3043           56146                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
010861,001873: 04,3044           60000                           DOUBLE                                         
010862,001874: 04,3045           54146                           TS       MPAC       +2                         
010863,001875: 04,3046           37761                           CAF      ZERO                                  
010864,001876: 04,3047           60145                           AD       MPAC       +1                         
010865,001877: 04,3050           03104                           TC       2ROUND     +2                         
010866,001878: 04,3051           03113                           TC       TESTOFUF                              
010867,001879: 04,3052           50130                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
010868,001880: 04,3053           03053                           TC       +0                                    
010869,001881: 04,3054           03064                           TC       DPINORM                               
010870,001882: 04,3055           30107                           CA       DECOUNT                               #  MIXEDNOUN
010871,001883: 04,3056           60135        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
010872,001884: 04,3057           54002                           TS       Q                                     #    E SUBK            E
010873,001885: 04,3060           56145                           XCH      MPAC       +1                         
010874,001886: 04,3061           50002                           INDEX    Q                                     
010875,001887: 04,3062           54001                           TS       1                                     #  PLACE LOW PART IN
010876,001888: 04,3063           02774                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
010877,001889: 
010878,001890: 04,3064           37761        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
010879,001891: 04,3065           03056                           TC       DPINCOM                               
010880,001892: 
010881,001893: 
010882,001894: 04,3066           07146        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010883,001895: 04,3067           00113                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
010884,001896: 04,3070           03072                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
010885,001897: 04,3071           03043                           TC       DPINSF     +2                         
010886,001898: 
010887,001899: 
010888,001900: 04,3072           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
010889,001901: 04,3073           54114                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
010890,001902: 04,3074           36276                           CAF      SIX                                   #  LEFT BY 7
010891,001903: 04,3075           54113        LEFT7COM           TS       SFTEMP1                               
010892,001904: 04,3076           04600                           TC       TPSL1                                 
010893,001905: 04,3077           10113                           CCS      SFTEMP1                               
010894,001906: 04,3100           03075                           TC       LEFT7COM                              
010895,001907: 04,3101           00114                           TC       SFTEMP2                               
010896,001908: 
010897,001909: 04,3102           56145        2ROUND             XCH      MPAC       +1                         
010898,001910: 04,3103           60000                           DOUBLE                                         

Page 261

010900,001912: 04,3104           54145                           TS       MPAC       +1                         
010901,001913: 04,3105           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
010902,001914: 04,3106           60144                           AD       MPAC                                  
010903,001915: 04,3107           54144                           TS       MPAC                                  
010904,001916: 04,3110           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
010905,001917: 04,3111           54111                           TS       OVFIND                                
010906,001918: 04,3112           00002        2RNDEND            TC       Q                                     
010907,001919: 
010908,001920: 04,3113           10111        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
010909,001921: 04,3114           03315                           TC       DSPALARM                              #  OF
010910,001922: 04,3115           00002                           TC       Q                                     
010911,001923: 04,3116           03315                           TC       DSPALARM                              #  UF
010912,001924: 

Page 262

010914,001926:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
010915,001927:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
010916,001928: 
010917,001929:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
010918,001930:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
010919,001931:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
010920,001932:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
010921,001933:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). 
010922,001934: 
010923,001935:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON(+=ON, +0=OFF)
010924,001936:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
010925,001937:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
010926,001938: 
010927,001939:                                                                                                  #  NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
010928,001940: 
010929,001941:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
010930,001942:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
010931,001943: 
010932,001944: 
010933,001945:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
010934,001946: 05,3077                                           SETLOC   ENDRUTIN                              
010935,001947: 
010936,001948: 05,3077           47737        MONITOR            CS       BIT15                                 
010937,001949: 05,3100           70310                           MASK     NOUNCADR                              
010938,001950: 05,3101           54145        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
010939,001951: 05,3102           33401                           CAF      LOW6                                  
010940,001952: 05,3103           70272                           MASK     VERBREG                               
010941,001953: 05,3104           04530                           TC       LEFT5                                 
010942,001954: 05,3105           54022                           TS       CYL                                   
010943,001955: 05,3106           56022                           XCH      CYL                                   
010944,001956: 05,3107           60273                           AD       NOUNREG                               
010945,001957: 05,3110           54144                           TS       MPAC                                  #  TEMP STORAGE
010946,001958: 05,3111           40330                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
010947,001959: 05,3112           67754                           AD       TWO                                   
010948,001960: 05,3113           10000                           CCS      A                                     
010949,001961: 05,3114           04700                           TC       RELDSP1                               #  GRABLOCK=0,1. +0 INTO DSPLOCK AND
010950,001962: 05,3115           03121                           TC       +4                                    #  TURN OFF KEY RLSE LIGHT.
010951,001963: 
010952,001964: 05,3116           04725                           TC       CCSHOLE                               
010953,001965: 05,3117           37761                           CAF      ZERO                                  #  GRABLOCK=2. +0 INTO DSPLOCK AND
010954,001966: 05,3120           54303                           TS       DSPLOCK                               #  LEAVE KEY RLSE LIGHT ALONE
010955,001967: 05,3121           00004                           INHINT                                         
010956,001968: 05,3122           10311                           CCS      MONSAVE                               
010957,001969: 05,3123           03130                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
010958,001970: 05,3124           37755                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
010959,001971: 05,3125           05701                           TC       WAITLIST                              
010960,001972: 05,3126     0270                                  EBANK=   DSPCOUNT                              
010961,001973: 05,3126           03134 12000                     2CADR    MONREQ                                
010962,001974: 
010963,001975: 05,3130           52145                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE

Page 263

010965,001977: 05,3131           52312                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
010966,001978: 05,3132           00003                           RELINT                                         
010967,001979: 05,3133           00126                           TC       ENTRET                                
010968,001980: 
010969,001981: 
010970,001982: 05,3134           04574        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
010971,001983: 05,3135           10312                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
010972,001984: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
010973,001985: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
010974,001986: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
010975,001987: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
010976,001988: 05,3142           33157                           CAF      MONDEL                                
010977,001989: 05,3143           05701                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
010978,001990: 05,3144     0270                                  EBANK=   DSPCOUNT                              
010979,001991: 05,3144           03134 12000                     2CADR    MONREQ                                
010980,001992: 
010981,001993: 05,3146           35226                           CAF      CHRPRIO                               
010982,001994: 05,3147           05523                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
010983,001995: 
010984,001996: 05,3150     0270                                  EBANK=   DSPCOUNT                              
010985,001997: 05,3150           03160 12000                     2CADR    MONDO                                 
010986,001998: 
010987,001999: 05,3152           05745                           TC       TASKOVER                              
010988,002000: 
010989,002001: 05,3153           37761        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
010990,002002: 05,3154           54311                           TS       MONSAVE                               
010991,002003: 05,3155           54312                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
010992,002004: 05,3156           05745                           TC       TASKOVER                              
010993,002005: 
010994,002006: 
010995,002007: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
010996,002008: 
010997,002009: 
010998,002010: 05,3160           10312        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
010999,002011: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
011000,002012: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
011001,002013: 05,3163           05605                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011002,002014: 05,3164           05605                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011003,002015: 05,3165           10303                           CCS      DSPLOCK                               
011004,002016: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
011005,002017: 
011006,002018: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
011007,002019: 05,3170           70311                           MASK     MONSAVE                               
011008,002020: 05,3171           54113                           TS       NVTEMP                                
011009,002021: 05,3172           04447                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
011010,002022: 05,3173           05605                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
011011,002023: 05,3174           33210                           CAF      MONMASK                               
011012,002024: 05,3175           70311                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
011013,002025: 05,3176           04521                           TC       RIGHT5                                

Page 264

011015,002027: 05,3177           54020                           TS       CYR                                   
011016,002028: 05,3200           56020                           XCH      CYR                                   
011017,002029: 
011018,002030: 05,3201           54272                           TS       VERBREG                               
011019,002031: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
011020,002032: 05,3203           54126                           TS       ENTRET                                
011021,002033: 05,3204           47737                           CS       BIT15                                 
011022,002034: 05,3205           70312                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
011023,002035: 05,3206           54146                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
011024,002036: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
011025,002037: 
011026,002038:    4424                                           SETLOC   ENDRMODF                              
011027,002039: 
011028,002040:    4424           34432        PASTEVB            CAF      MIDSIX                                
011029,002041:    4425           70311                           MASK     MONSAVE                               
011030,002042:    4426           54113                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
011031,002043:    4427           04447                           TC       NVSUBMON                              #       DISPLAY IT.
011032,002044:    4430           04431                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
011033,002045:    4431           05605        ENDPASTE           TC       ENDOFJOB                              
011034,002046: 
011035,002047:    4432           07700        MIDSIX             OCT      07700                                 
011036,002048: 
011037,002049: 05,3210                                           SETLOC   ENDMONDO   +1                         
011038,002050: 05,3210           00700        MONMASK            OCT      700                                   
011039,002051: 05,3211           04424        MONBACK            ADRES    PASTEVB                               
011040,002052: 
011041,002053: 05,3212           04570        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
011042,002054: 05,3213           05605                           TC       ENDOFJOB                              
011043,002055: 
011044,002056: 
011045,002057:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
011046,002058:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
011047,002059:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
011048,002060: 
011049,002061: 05,3214           34516        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
011050,002062: 05,3215           54270                           TS       DSPCOUNT                              
011051,002063: 05,3216           30310                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
011052,002064: 05,3217           05257                           TC       DATACALL                              
011053,002065: 05,3220           03222                           TC       DSPOCTWD                              
011054,002066: 05,3221           05605                           TC       ENDOFJOB                              
011055,002067: 

Page 265

011057,002069:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC +1)TO A SIGN AND 5 CHAR DECIMAL
011058,002070:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
011059,002071: 
011060,002072: 04,3117                                           SETLOC   TESTOFUF   +4                         
011061,002073: 
011062,002074: 04,3117           56002        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
011063,002075: 04,3120           54105                           TS       WDRET                                 #  CANT USE L FOR RETURN.+ON USES L.
011064,002076: 04,3121           10144                           CCS      MPAC                                  
011065,002077: 
011066,002078: 04,3122           03131                           TC       +7                                    
011067,002079: 04,3123           03131                           TC       +6                                    
011068,002080: 04,3124           67755                           AD       ONE                                   
011069,002081: 04,3125           54144                           TS       MPAC                                  
011070,002082: 04,3126           02321                           TC       -ON                                   
011071,002083: 04,3127           40145                           CS       MPAC       +1                         
011072,002084: 04,3130           03133                           TC       +3                                    
011073,002085: 04,3131           02301                           TC       +ON                                   
011074,002086: 04,3132           56145                           XCH      MPAC       +1                         
011075,002087: 04,3133           63172                           AD       DECROUND                              
011076,002088: 04,3134           54145                           TS       MPAC       +1                         
011077,002089: 04,3135           37761                           CAF      ZERO                                  
011078,002090: 04,3136           60144                           AD       MPAC                                  
011079,002091: 04,3137           54144                           TS       MPAC                                  
011080,002092: 04,3140           03144                           TC       +4                                    
011081,002093: 04,3141           37735                           CAF      POSMAX                                
011082,002094: 04,3142           54144                           TS       MPAC                                  
011083,002095: 04,3143           54145                           TS       MPAC       +1                         
011084,002096: 04,3144           37753                           CAF      FOUR                                  
011085,002097: 04,3145           54127        DSPDCWD1           TS       WDCNT                                 
011086,002098: 04,3146           34557                           CAF      BINCON                                
011087,002099: 04,3147           07351                           TC       SHORTMP                               
011088,002100: 04,3150           50144        TRACE1             INDEX    MPAC                                  
011089,002101: 
011090,002102: 04,3151           34267                           CAF      RELTAB                                
011091,002103: 04,3152           74545                           MASK     LOW5                                  
011092,002104: 04,3153           54114                           TS       CODE                                  
011093,002105: 04,3154           37761                           CAF      ZERO                                  
011094,002106: 04,3155           56146                           XCH      MPAC       +2                         
011095,002107: 04,3156           56145                           XCH      MPAC       +1                         
011096,002108: 04,3157           54144                           TS       MPAC                                  
011097,002109: 04,3160           56270                           XCH      DSPCOUNT                              
011098,002110: 04,3161           54133        TRACE1S            TS       COUNT                                 
011099,002111: 04,3162           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011100,002112: 04,3163           54270                           TS       DSPCOUNT                              
011101,002113: 04,3164           03217                           TC       DSPIN                                 
011102,002114: 04,3165           10127                           CCS      WDCNT                                 
011103,002115: 04,3166           03145                           TC       DSPDCWD1                              
011104,002116: 04,3167           44554                           CS       VD1                                   
011105,002117: 04,3170           54270                           TS       DSPCOUNT                              
011106,002118: 04,3171           00105                           TC       WDRET                                 
011107,002119: 
011108,002120: 04,3172           02476        DECROUND           OCT      02476                                 
011109,002121: 

Page 266

011111,002123:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
011112,002124:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
011113,002125: 
011114,002126: 04,3173           56002        DSP2DEC            XCH      Q                                     
011115,002127: 04,3174           54105                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSPDECWD
011116,002128: 04,3175           37761                           CAF      ZERO                                  
011117,002129: 04,3176           54114                           TS       CODE                                  
011118,002130: 04,3177           36301                           CAF      THREE                                 
011119,002131: 04,3200           03301                           TC       11DSPIN                               #  -R2 OFF
011120,002132: 04,3201           37753                           CAF      FOUR                                  
011121,002133: 04,3202           03301                           TC       11DSPIN                               #  +R2 OFF
011122,002134: 04,3203           10144                           CCS      MPAC                                  
011123,002135: 04,3204           03214                           TC       +8D                                   
011124,002136: 04,3205           03214                           TC       +7                                    
011125,002137: 
011126,002138: 04,3206           67755                           AD       ONE                                   
011127,002139: 04,3207           54144                           TS       MPAC                                  
011128,002140: 04,3210           02321                           TC       -ON                                   
011129,002141: 04,3211           40145                           CS       MPAC       +1                         
011130,002142: 04,3212           54145                           TS       MPAC       +1                         
011131,002143: 04,3213           03215                           TC       +2                                    
011132,002144: 04,3214           02301                           TC       +ON                                   
011133,002145: 04,3215           34517                           CAF      R2D1                                  
011134,002146: 04,3216           03145        END2DEC            TC       DSPDCWD1                              
011135,002147: 
011136,002148: 
011137,002149: 05,3222                                           SETLOC   DSPFMEM    +6                         
011138,002150:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
011139,002151:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
011140,002152: 
011141,002153: 05,3222           54022        DSPOCTWD           TS       CYL                                   
011142,002154: 05,3223           56002                           XCH      Q                                     
011143,002155: 05,3224           54105                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
011144,002156: 05,3225           37740                           CAF      BIT14                                 #  TO BLANK SIGNS
011145,002157: 05,3226           26270                           ADS      DSPCOUNT                              
011146,002158: 05,3227           37753                           CAF      FOUR                                  
011147,002159: 05,3230           54127        WDAGAIN            TS       WDCNT                                 
011148,002160: 
011149,002161: 05,3231           40022                           CS       CYL                                   
011150,002162: 05,3232           40022                           CS       CYL                                   
011151,002163: 05,3233           40022                           CS       CYL                                   
011152,002164: 05,3234           40000                           CS       A                                     
011153,002165: 05,3235           77757                           MASK     DSPMSK                                
011154,002166: 05,3236           50000                           INDEX    A                                     
011155,002167: 05,3237           34267                           CAF      RELTAB                                
011156,002168: 05,3240           74545                           MASK     LOW5                                  
011157,002169: 05,3241           54114                           TS       CODE                                  
011158,002170: 05,3242           56270                           XCH      DSPCOUNT                              
011159,002171: 05,3243           54133                           TS       COUNT                                 
011160,002172: 05,3244           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011161,002173: 05,3245           54270                           TS       DSPCOUNT                              

Page 267

011163,002175: 05,3246           05243                           TC       POSTJUMP                              
011164,002176: 05,3247           11307                           CADR     DSPOCTIN                              
011165,002177: 05,3250           10127        OCTBACK            CCS      WDCNT                                 
011166,002178: 05,3251           03230                           TC       WDAGAIN                               #  +
011167,002179: 05,3252           44554        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
011168,002180: 05,3253           54270                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
011169,002181: 05,3254           00105                           TC       WDRET                                 
011170,002182: 
011171,002183: 05,3255     7757               DSPMSK             =        SEVEN                                 
011172,002184: 
011173,002185: 
011174,002186:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
011175,002187:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
011176,002188:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
011177,002189: 
011178,002190: 05,3255           54020        DSP2BIT            TS       CYR                                   
011179,002191: 05,3256           56002                           XCH      Q                                     
011180,002192: 05,3257           54105                           TS       WDRET                                 #  CANT USE L AS RETURN. UPDATNN USES L.
011181,002193: 
011182,002194: 05,3260           37755                           CAF      ONE                                   
011183,002195: 05,3261           54127                           TS       WDCNT                                 
011184,002196: 05,3262           40020                           CS       CYR                                   
011185,002197: 05,3263           40020                           CS       CYR                                   
011186,002198: 05,3264           56020                           XCH      CYR                                   
011187,002199: 05,3265           54022                           TS       CYL                                   
011188,002200: 05,3266           03235                           TC       WDAGAIN    +5                         
011189,002201: 
011190,002202: 
011191,002203:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
011192,002204:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
011193,002205:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
011194,002206:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
011195,002207: 
011196,002208: 04,3217                                           SETLOC   END2DEC    +1                         
011197,002209: 
011198,002210: 04,3217           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
011199,002211: 04,3220           54104                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
011200,002212: 04,3221           34545                           CAF      LOW5                                  
011201,002213: 04,3222           70133                           MASK     COUNT                                 
011202,002214: 04,3223           54021                           TS       SR                                    
011203,002215: 04,3224           56021                           XCH      SR                                    
011204,002216: 
011205,002217: 04,3225           54131                           TS       DSREL                                 
011206,002218: 04,3226           37755                           CAF      BIT1                                  
011207,002219: 04,3227           70133                           MASK     COUNT                                 
011208,002220: 04,3230           10000                           CCS      A                                     
011209,002221: 04,3231           03233                           TC       +2                                    #  LEFT IF COUNT IS ODD
011210,002222: 04,3232           03243                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
011211,002223: 04,3233           56114                           XCH      CODE                                  
011212,002224: 04,3234           04537                           TC       SLEFT5                                #  DOES NOT USE CYL

Page 268

011214,002226: 04,3235           54114                           TS       CODE                                  
011215,002227: 04,3236           37740                           CAF      BIT14                                 
011216,002228: 
011217,002229: 04,3237           70133                           MASK     COUNT                                 
011218,002230: 04,3240           10000                           CCS      A                                     
011219,002231: 04,3241           37754                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
011220,002232: 04,3242           67755                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
011221,002233: 04,3243           54133                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
011222,002234:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
011223,002235:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
011224,002236: 04,3244           00004        DSPIN1             INHINT                                         
011225,002237: 04,3245           50131                           INDEX    DSREL                                 
011226,002238: 04,3246           10313                           CCS      DSPTAB                                
011227,002239: 04,3247           03251                           TC       +2                                    #  IF +
011228,002240: 04,3250           04725                           TC       CCSHOLE                               
011229,002241: 04,3251           67755                           AD       ONE                                   #  IF -
011230,002242: 04,3252           54132                           TS       DSMAG                                 
011231,002243: 04,3253           50133                           INDEX    COUNT                                 
011232,002244: 04,3254           73275                           MASK     DSMSK                                 
011233,002245: 04,3255           00006                           EXTEND                                         
011234,002246: 04,3256           60114                           SU       CODE                                  
011235,002247: 04,3257           00006                           EXTEND                                         
011236,002248: 04,3260           13273                           BZF      DSLV                                  #  SAME
011237,002249: 04,3261           50133        DFRNT              INDEX    COUNT                                 
011238,002250: 04,3262           43275                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
011239,002251: 04,3263           70132                           MASK     DSMAG                                 
011240,002252: 
011241,002253: 04,3264           60114                           AD       CODE                                  
011242,002254: 04,3265           40000                           CS       A                                     
011243,002255: 04,3266           50131                           INDEX    DSREL                                 
011244,002256: 04,3267           56313                           XCH      DSPTAB                                
011245,002257: 04,3270           00006                           EXTEND                                         
011246,002258: 04,3271           63273                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
011247,002259: 04,3272           24307                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
011248,002260: 04,3273           00003        DSLV               RELINT                                         
011249,002261: 04,3274           00104                           TC       DSEXIT                                
011250,002262: 
011251,002263: 04,3275           00037        DSMSK              OCT      37                                    
011252,002264: 04,3276           01740                           OCT      1740                                  
011253,002265: 04,3277           02000                           OCT      2000                                  
011254,002266: 04,3300           03740                           OCT      3740                                  
011255,002267: 
011256,002268: 
011257,002269:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
011258,002270:                                                                                                  #  BIT11 OF CODE.
011259,002271: 
011260,002272: 04,3301           54131        11DSPIN            TS       DSREL                                 
011261,002273: 04,3302           37754                           CAF      TWO                                   
011262,002274: 04,3303           54133                           TS       COUNT                                 
011263,002275: 
011264,002276: 04,3304           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
011265,002277: 04,3305           54104                           TS       DSEXIT                                

Page 269

011267,002279: 04,3306           03244                           TC       DSPIN1                                
011268,002280: 
011269,002281: 
011270,002282: 04,3307           03217        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
011271,002283: 04,3310           33312                           CAF      +2                                    
011272,002284: 04,3311           05246                           TC       BANKJUMP                              
011273,002285: 04,3312           13250        ENDSPOCT           CADR     OCTBACK                               
011274,002286: 
011275,002287: 
011276,002288:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
011277,002289:                                                                                                  #  ABORT WITH 01501.
011278,002290:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
011279,002291:                                                                                                  #  DO TC ENTRET.
011280,002292: 
011281,002293: 04,3313           34474        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
011282,002294: 04,3314           54126                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
011283,002295: 
011284,002296: 04,3315           04560        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
011285,002297: 04,3316           43325                           CS       NVSBENDL                              
011286,002298: 04,3317           60126                           AD       ENTEXIT                               
011287,002299: 04,3320           00006                           EXTEND                                         
011288,002300: 04,3321           13323                           BZF      +2                                    #  NVSUB INITIATED. ABORT
011289,002301: 04,3322           00126                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
011290,002302: 04,3323           06000                           TC       ABORT                                 
011291,002303: 04,3324           01501                           OCT      01501                                 
011292,002304: 04,3325           04453        NVSBENDL           TC       NVSUBEND                              
011293,002305: 
011294,002306: 
011295,002307:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
011296,002308: 
011297,002309:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
011298,002310:                                                                                                  #  M M LIGHTS.
011299,002311: 
011300,002312: 05,3267                                           SETLOC   DSP2BIT    +10D                       
011301,002313: 
011302,002314: 05,3267           03302        MMCHANG            TC       REQMM                                 
011303,002315: 05,3270           37761                           CAF      ZERO                                  
011304,002316: 05,3271           56273                           XCH      NOUNREG                               
011305,002317: 05,3272           54144                           TS       MPAC                                  
011306,002318: 05,3273           34555                           CAF      ND1                                   
011307,002319: 05,3274           54270                           TS       DSPCOUNT                              
011308,002320: 05,3275           05224                           TC       BANKCALL                              
011309,002321: 05,3276           10557                           CADR     2BLANK                                
011310,002322: 05,3277           30144                           CA       MPAC                                  
011311,002323: 05,3300           05243                           TC       POSTJUMP                              
011312,002324: 05,3301           11315                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
011313,002325: 

Page 270

011315,002327: 05,3302  04,3315               MODROUTB           =        DSPALARM                              #  **FIX LATER**
011316,002328: 05,3302           40002        REQMM              CS       Q                                     
011317,002329: 05,3303           54304                           TS       REQRET                                
011318,002330: 05,3304           34555                           CAF      ND1                                   
011319,002331: 05,3305           54270                           TS       DSPCOUNT                              
011320,002332: 05,3306           37761                           CAF      ZERO                                  
011321,002333: 05,3307           54273                           TS       NOUNREG                               
011322,002334: 05,3310           05224                           TC       BANKCALL                              
011323,002335: 05,3311           10557                           CADR     2BLANK                                
011324,002336: 05,3312           04611                           TC       FLASHON                               
011325,002337: 05,3313           00126                           TC       ENTEXIT                               
011326,002338: 
011327,002339: 
011328,002340:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
011329,002341:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
011330,002342:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011331,002343:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
011332,002344:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
011333,002345:                                                                                                  #  COMPONENT 3  BBCON
011334,002346: 
011335,002347: 05,3314           37755        VBRQEXEC           CAF      BIT1                                  
011336,002348: 05,3315           70337                           MASK     DSPTEM1                               
011337,002349: 05,3316           10000                           CCS      A                                     
011338,002350: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
011339,002351: 05,3320           35741                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
011340,002352: 05,3321           54144        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
011341,002353: 05,3322           47755                           CS       BIT1                                  
011342,002354: 05,3323           70337                           MASK     DSPTEM1                               
011343,002355: 05,3324           54150                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
011344,002356: 05,3325           04655        REQUESTC           TC       RELDSP                                
011345,002357: 05,3326           34474                           CA       ENDINST                               
011346,002358: 05,3327           54147                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
011347,002359: 05,3330           00006                           EXTEND                                         
011348,002360: 05,3331           30341                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
011349,002361: 05,3332           52146                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
011350,002362: 05,3333           30150                           CA       MPAC       +4                         #  PRIO IN A
011351,002363: 05,3334           00004                           INHINT                                         
011352,002364: 
011353,002365: 05,3335           00144                           TC       MPAC                                  
011354,002366: 
011355,002367: 05,3336           34551        SETVAC             CAF      TCFINDVC                              
011356,002368: 05,3337           03321                           TC       REQEX1                                
011357,002369: 
011358,002370:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
011359,002371:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
011360,002372:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011361,002373:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
011362,002374:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
011363,002375:                                                                                                  #  COMPONENT 3  BBCON

Page 271

011365,002377: 05,3340           34550        VBRQWAIT           CAF      TCWAIT                                
011366,002378: 05,3341           54144                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
011367,002379: 05,3342           30337                           CA       DSPTEM1                               #  TIME DELAY
011368,002380: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
011369,002381: 
011370,002382:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
011371,002383:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
011372,002384:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
011373,002385: 
011374,002386: 
011375,002387: 04,3326                                           SETLOC   NVSBENDL   +1                         
011376,002388: 04,3326           37755        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
011377,002389: 04,3327           54305                           TS       LOADSTAT                              
011378,002390: 04,3330           04655                           TC       RELDSP                                
011379,002391: 04,3331           04615                           TC       FLASHOFF                              
011380,002392: 04,3332           03440                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
011381,002393: 
011382,002394: 
011383,002395: 04,3333           04455        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011384,002396: 04,3334           47755                           CS       ONE                                   
011385,002397: 04,3335           03327                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
011386,002398: 
011387,002399: 
011388,002400:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
011389,002401: 
011390,002402:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
011391,002403:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
011392,002404: 
011393,002405: 04,3336           47753        VBRELDSP           CS       BIT3                                  
011394,002406: 04,3337           00006                           EXTEND                                         
011395,002407: 04,3340           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LIGHT
011396,002408: 04,3341           04655                           TC       RELDSP                                #  SEARCHES LIST
011397,002409: 04,3342           05605                           TC       ENDOFJOB                              
011398,002410: 
011399,002411: 
011400,002412:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
011401,002413: 
011402,002414: 04,3343           37760        BUMP               CAF      FIVE                                  #  R2D5
011403,002415: 04,3344           54270                           TS       DSPCOUNT                              
011404,002416: 04,3345           54133                           TS       COUNT                                 
011405,002417: 04,3346           37755                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
011406,002418: 04,3347           70133                           MASK     COUNT                                 
011407,002419: 04,3350           56133                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
011408,002420: 04,3351           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)

Page 272

011410,002422: 04,3352           56021                           XCH      SR                                    #  DSREL IN A
011411,002423: 04,3353           50000                           INDEX    A                                     
011412,002424: 
011413,002425: 04,3354           10313                           CCS      DSPTAB                                
011414,002426: 04,3355           03357                           TC       +2                                    
011415,002427: 04,3356           04725                           TC       CCSHOLE                               
011416,002428: 04,3357           67755                           AD       ONE                                   #  DSMAG IN A
011417,002429: 04,3360           50133                           INDEX    COUNT                                 
011418,002430: 04,3361           73275                           MASK     DSMSK                                 
011419,002431: 04,3362           50133                           INDEX    COUNT                                 
011420,002432: 04,3363           03364                           TC       +1                                    
011421,002433: 04,3364           03366                           TC       +2                                    #  EVEN(RIGHT)  OK
011422,002434: 04,3365           04521                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
011423,002435: 04,3366           54114                           TS       CODE                                  
011424,002436: 04,3367           47760                           CS       FIVE                                  
011425,002437: 04,3370           60270                           AD       DSPCOUNT                              #  DSPCOUNT-5
011426,002438: 04,3371           10000                           CCS      A                                     #  TO PREVENT -0
011427,002439: 04,3372           67755                           AD       ONE                                   
011428,002440: 04,3373           03375                           TC       +2                                    
011429,002441: 04,3374           04725                           TC       CCSHOLE                               
011430,002442: 04,3375           54133                           TS       COUNT                                 
011431,002443: 04,3376           03217                           TC       DSPIN                                 #  CODE ALREADY IN CODE
011432,002444: 04,3377           40270                           CS       DSPCOUNT                              
011433,002445: 04,3400           64516                           AD       R1D1                                  #  OCT 16
011434,002446: 04,3401           10000                           CCS      A                                     
011435,002447: 04,3402           56270                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
011436,002448: 
011437,002449: 04,3403           67755                           AD       ONE                                   #  INCREMENT DSPCOUNT
011438,002450: 04,3404           03344                           TC       BUMP       +1                         
011439,002451: 
011440,002452: 04,3405           37761        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
011441,002453: 04,3406           54270                           TS       DSPCOUNT                              
011442,002454: 04,3407           63436                           AD       SWTAB      +2                         #  OCT 3
011443,002455: 04,3410           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
011444,002456: 04,3411           10313                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
011445,002457: 04,3412           03414                           TC       +2                                    
011446,002458: 04,3413           04725                           TC       CCSHOLE                               
011447,002459: 04,3414           67755                           AD       ONE                                   
011448,002460: 04,3415           77743                           MASK     BIT11                                 
011449,002461: 04,3416           54114                           TS       CODE                                  
011450,002462: 04,3417           50270                           INDEX    DSPCOUNT                              
011451,002463: 04,3420           33434                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
011452,002464: 04,3421           03301                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
011453,002465: 04,3422           40270                           CS       DSPCOUNT                              
011454,002466: 04,3423           63436                           AD       SWTAB      +2                         #  OCT 3
011455,002467: 04,3424           10000                           CCS      A                                     
011456,002468: 04,3425           56270                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
011457,002469: 04,3426           67755                           AD       ONE                                   #  INCREMENT DSPCOUNT
011458,002470: 04,3427           03406                           TC       SWSGN      +1                         
011459,002471: 04,3430           34516                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
011460,002472: 
011461,002473: 04,3431           54270                           TS       DSPCOUNT                              
011462,002474: 04,3432           02514                           TC       5BLANK                                #  BLANKS R1

Page 273

011464,002476: 04,3433           00126                           TC       ENTEXIT                               
011465,002477: 
011466,002478: 04,3434           00000        SWTAB              OCT      0                                     #  -R3
011467,002479: 04,3435           00001                           OCT      1                                     #  +R3
011468,002480: 04,3436           00003                           OCT      3                                     #  -R2
011469,002481: 04,3437           00004                           OCT      4                                     #  +R2
011470,002482: 

Page 274

011472,002484:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
011473,002485:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE  ...VVVVVVNNNNNN
011474,002486:                                                                                                  #  INTO A.      V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
011475,002487: 
011476,002488:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
011477,002489:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
011478,002490: 
011479,002491:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
011480,002492:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
011481,002493:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
011482,002494:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
011483,002495:                                                                                                  #  FURTHER ACTION).
011484,002496: 
011485,002497:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
011486,002498: 
011487,002499:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
011488,002500:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
011489,002501:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
011490,002502: 
011491,002503:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
011492,002504:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
011493,002505:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
011494,002506:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
011495,002507:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
011496,002508:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
011497,002509:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
011498,002510:                                                                                                  #  MONITOR SET UP.
011499,002511: 
011500,002512:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
011501,002513: 
011502,002514:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
011503,002515:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
011504,002516: 
011505,002517:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
011506,002518:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
011507,002519: 
011508,002520:    4433                                           SETLOC   MIDSIX     +1                         
011509,002521:    4433           54113        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
011510,002522:    4434           10303                           CCS      DSPLOCK                               
011511,002523:    4435           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
011512,002524:    4436           30002                           CA       Q                                     #  DSP SYST AVAILABLE
011513,002525:    4437           67755                           AD       ONE                                   
011514,002526:    4440           54331                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
011515,002527:    4441           04455                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011516,002528:    4442           34446        NVSUBCOM           CAF      NVSBBBNK                              
011517,002529: 
011518,002530:    4443           56006                           XCH      BBANK                                 
011519,002531:    4444           54332                           TS       NVBNKTEM                              
011520,002532:    4445           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
011521,002533:    4446     0270                                  EBANK=   DSPCOUNT                              
011522,002534:    4446           12000        NVSBBBNK           BBCON    NVSUB1                                
011523,002535: 

Page 275

011525,002537:    4447           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
011526,002538:    4450           67755                           AD       ONE                                   
011527,002539:    4451           54331                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
011528,002540:    4452           04442                           TC       NVSUBCOM                              
011529,002541: 
011530,002542:    4453           52332        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
011531,002543:    4454           52006                           DXCH     Z                                     #  DTCB
011532,002544: 
011533,002545: 05,3344                                           SETLOC   ENDRQWT    +1                         
011534,002546: 
011535,002547: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
011536,002548: 05,3345           54126                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
011537,002549: 05,3346           33401                           CAF      LOW6                                  
011538,002550: 05,3347           70113                           MASK     NVTEMP                                
011539,002551: 05,3350           54144                           TS       MPAC                                  #  TEMP STORAGE
011540,002552: 05,3351           33402                           CAF      MID6                                  
011541,002553: 05,3352           70113                           MASK     NVTEMP                                
011542,002554: 05,3353           04521                           TC       RIGHT5                                
011543,002555: 
011544,002556: 05,3354           54020                           TS       CYR                                   
011545,002557: 05,3355           56020                           XCH      CYR                                   
011546,002558: 05,3356           54145                           TS       MPAC       +1                         #  TEMP STORAGE
011547,002559: 05,3357           10144                           CCS      MPAC                                  #  TEST NOUN
011548,002560: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
011549,002561: 05,3361           56145                           XCH      MPAC       +1                         
011550,002562: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
011551,002563: 05,3363           04453        ENTSET             TC       NVSUBEND                              
011552,002564: 05,3364           10145                           CCS      MPAC       +1                         #  TEST VERB
011553,002565: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
011554,002566: 05,3366           56144                           XCH      MPAC                                  
011555,002567: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
011556,002568: 05,3370           04453                           TC       NVSUBEND                              
011557,002569: 05,3371           56145                           XCH      MPAC       +1                         
011558,002570: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
011559,002571: 05,3373           56144                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
011560,002572: 05,3374           02274                           TC       UPDATNN    -1                         
011561,002573: 05,3375           37761                           CAF      ZERO                                  
011562,002574: 05,3376           54305                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
011563,002575: 05,3377           54306                           TS       CLPASS                                
011564,002576: 05,3400           02031                           TC       ENTPAS0                               
011565,002577: 
011566,002578:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
011567,002579: 
011568,002580:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
011569,002581: 
011570,002582: 
011571,002583: 05,3401           00077        LOW6               OCT      77                                    
011572,002584: 05,3402           07700        MID6               OCT      7700                                  
011573,002585: 

Page 276

011575,002587:    4455                                           SETLOC   NVSUBEND   +2                         
011576,002588:    4455           47737        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
011577,002589: 
011578,002590:    4456           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
011579,002591:    4457           70312                           MASK     MONSAVE1                              
011580,002592:    4460           67737                           AD       BIT15                                 
011581,002593:    4461           54312                           TS       MONSAVE1                              
011582,002594:    4462           00003                           RELINT                                         
011583,002595:    4463           00002                           TC       Q                                     
011584,002596: 
011585,002597: 
011586,002598:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
011587,002599:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
011588,002600:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
011589,002601:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
011590,002602: 
011591,002603: 
011592,002604:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
011593,002605:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
011594,002606:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
011595,002607:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND 
011596,002608:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011597,002609:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
011598,002610:                                                                                                  #  L+1      FOR TERMINATE
011599,002611: 
011600,002612:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
011601,002613:                                                                                                  #  L+3      FOR DATA IN
011602,002614:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
011603,002615: 
011604,002616:    4464           37755        ENDIDLE            CAF      ONE                                   
011605,002617:    4465           54303                           TS       DSPLOCK                               
011606,002618:    4466           22004                           LXCH     FBANK                                 
011607,002619:    4467           56002                           XCH      Q                                     
011608,002620:    4470           52124                           DXCH     BUF2                                  
011609,002621:    4471           05253                           TC       MAKECADR                              
011610,002622:    4472           54327                           TS       CADRSTOR                              
011611,002623:    4473           05563                           TC       JOBSLEEP                              
011612,002624: 
011613,002625:    4474           05605        ENDINST            TC       ENDOFJOB                              
011614,002626: 
011615,002627:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
011616,002628:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
011617,002629:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
011618,002630:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
011619,002631:                                                                                                  #  AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011620,002632:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
011621,002633: 
011622,002634:    4475           10305        DATAWAIT           CCS      LOADSTAT                              

Page 277

011624,002636:    4476           17006                           TCF      DATWAIT1                              #  PROCEED. RETURN TO L+2.
011625,002637:    4477           14464                           TCF      ENDIDLE                               #  STILL WAITING. GO TO SLEEP.
011626,002638:    4500           00002                           TC       Q                                     #  TERMINATE. RETURN TO L+1.
011627,002639:    4501           17010                           TCF      Q+2                                   #  DATA IN. RETURN TO L+3
011628,002640:    4502     7006               DATWAIT1           =        Q+1                                   #  RETURN TO L+2
011629,002641: 
011630,002642:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
011631,002643:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
011632,002644: 
011633,002645: 
011634,002646: 05,3403                                           SETLOC   MID6       +1                         
011635,002647:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
011636,002648: 
011637,002649: 05,3403           34556        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
011638,002650: 05,3404           56270                           XCH      DSPCOUNT                              
011639,002651: 05,3405           54130                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
011640,002652: 05,3406           30302                           CA       MODREG                                
011641,002653: 05,3407           22002                           LXCH     Q                                     
011642,002654: 05,3410           03255                           TC       DSP2BIT                               
011643,002655: 05,3411           56130                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
011644,002656: 05,3412           54270                           TS       DSPCOUNT                              
011645,002657: 05,3413           00001        DSPMMEND           TC       L                                     
011646,002658: 
011647,002659: 
011648,002660:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS
011649,002661:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
011650,002662:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
011651,002663: 
011652,002664:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
011653,002665:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
011654,002666: 
011655,002667: 04,3440                                           SETLOC   SWTAB      +4                         
011656,002668: 
011657,002669: 04,3440           10327        RECALTST           CCS      CADRSTOR                              
011658,002670: 04,3441           03446                           TC       RECAL1                                
011659,002671: 04,3442           05605                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
011660,002672: 04,3443           03446                           TC       RECAL1                                
011661,002673: 04,3444           54327                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
011662,002674: 04,3445           03464                           TC       RECAL3                                #  +0 INTO CADRSTOR, RELEASE DISPLAY,
011663,002675:                                                                                                  #     AND ENDOFJOB. NEEDED FOR DATAWAIT. 
011664,002676: 04,3446           37761        RECAL1             CAF      ZERO                                  
011665,002677: 04,3447           56327                           XCH      CADRSTOR                              
011666,002678: 04,3450           00004                           INHINT                                         
011667,002679: 04,3451           05567                           TC       JOBWAKE                               
011668,002680: 04,3452           10305                           CCS      LOADSTAT                              
011669,002681: 04,3453           03470                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
011670,002682: 04,3454           05605                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
011671,002683: 04,3455           03466                           TC       DOTERM                                #  - TERMINATE

Page 278

011673,002685: 04,3456           37754                           CAF      TWO                                   
011674,002686: 04,3457           50064        RECAL2             INDEX    LOCCTR                                
011675,002687: 04,3460           60154                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
011676,002688: 04,3461           50064                           INDEX    LOCCTR                                
011677,002689: 04,3462           54154                           TS       LOC                                   
011678,002690: 04,3463           00003                           RELINT                                         
011679,002691: 04,3464           04700        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
011680,002692: 04,3465           05605                           TC       ENDOFJOB                              
011681,002693: 
011682,002694: 04,3466           37761        DOTERM             CAF      ZERO                                  
011683,002695: 04,3467           03457                           TC       RECAL2                                
011684,002696: 
011685,002697: 04,3470           37755        DOPROC             CAF      ONE                                   
011686,002698: 04,3471           03457                           TC       RECAL2                                
011687,002699: 

Page 279

011689,002701:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
011690,002702: 
011691,002703: 
011692,002704:                                                                                                  #  COMPONENT CODE NUMBER           INTERPRETATION
011693,002705: 
011694,002706:                                                                                                  #  00000                           1 COMPONENT
011695,002707:                                                                                                  #  00001                           2 COMPONENT (EACH S P)
011696,002708:                                                                                                  #  00010                           3 COMPONENT (EACH SP)
011697,002709: 
011698,002710: 
011699,002711:                                                                                                  #  SF ROUTINE CODE NUMBER          INTERPRETATION
011700,002712: 
011701,002713:                                                                                                  #  00000    OCTAL ONLY
011702,002714:                                                                                                  #  00001    STRAIGHT FRACTIONAL
011703,002715:                                                                                                  #  00010    DEGREES (XXX.XX)
011704,002716:                                                                                                  #  00011    ARITHMETIC SF
011705,002717:                                                                                                  #  00100    ARITH DP1   OUT(MULT BY 2/14 AT END)      IN(STRAIGHT)
011706,002718: 
011707,002719:                                                                                                  #  00101    ARITH DP2   OUT(STRAIGHT)                 IN(SL 7 AT END)
011708,002720:                                                                                                  #  00110    OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
011709,002721:                                                                                                  #  00111    ARITH DP3   OUT ( SL 7 AT END)       IN ( STRAIGHT)
011710,002722:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
011711,002723: 
011712,002724: 
011713,002725:                                                                                                  #  SF CONSTANT CODE NUMBER         INTERPRETATION
011714,002726: 
011715,002727:                                                                                                  #  00000                           WHOLE
011716,002728:                                                                                                  #  00000                           TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
011717,002729:                                                                                                  #  00001                           TIME HOURS(XXX.XX) USE ARITH DP2
011718,002730:                                                                                                  #  00010                           DEGREES
011719,002731:                                                                                                  #  00010                           OPTICS DEGREES
011720,002732:                                                                                                  #  00011                           GYRO DEGREES (XX.XXX)  USE ARITHDP3
011721,002733:                                                                                                  #  00100                           GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
011722,002734:                                                                                                  #  00101                           GYRO AXIS ACCEL. DRIFT
011723,002735:                                                                                                  #                                  .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
011724,002736:                                                                                                  #  00110                           PIPA BIAS X.XXXX CM/SEC SEC
011725,002737:                                                                                                  #  00111                           PIPA SCALE FACTOR ERROR
011726,002738:                                                                                                  #                                      XXXXX. PARTS/MILLION
011727,002739:                                                                                                  #  01000                           POSITION(XXXX.X KILOMETERS) USE ARITHDP3
011728,002740:                                                                                                  #  01001                           VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
011729,002741: 
011730,002742:                                                                                                  #  01010                           TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
011731,002743:                                                                                                  #  01011                           ELEVATION DEGREES(89.999MAX) USE ARITH
011732,002744:                                                                                                  #  01100                           RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
011733,002745:                                                                                                  #                                                              USE ARITHDP1
011734,002746:                                                                                                  #  01101                           RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
011735,002747:                                                                                                  #                                                              USE ARITHDP1
011736,002748:                                                                                                  #  01110                           LANDING RADAR ALTITUDE(XXXXX.FEET)
011737,002749:                                                                                                  #                                                              USE ARITHDP1

Page 280

011739,002751:                                                                                                  #  01111                           INITIAL/FINAL ALTITUDE(XXXXX.FEET)
011740,002752:                                                                                                  #                                                              USE ARITHDP1
011741,002753: 
011742,002754:                                                                                                  #  10000                           ALTITUDE RATE(XXXXX.FEET)      USE ARITH
011743,002755:                                                                                                  #  10001                           FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
011744,002756:                                                                                                  #                                                                 USE ARITH
011745,002757:                                                                                                  #  10010                           ROTATIONAL HAND CONTROLLER ANGLE RATES
011746,002758:                                                                                                  #                                        XXXXX.DEG/SEC            USE ARITH
011747,002759:                                                                                                  #  10011                           LANDING RADAR VELX(XXXXX.FEET/SEC)
011748,002760:                                                                                                  #                                                              USE ARITHDP1
011749,002761:                                                                                                  #  10100                           LANDING RADAR VELY(XXXXX.FEET/SEC)
011750,002762:                                                                                                  #                                                              USE ARITHDP1
011751,002763:                                                                                                  #  10101                           LANDING RADAR VELZ(XXXXX.FEET/SEC)
011752,002764:                                                                                                  #                                                              USE ARITHDP1
011753,002765:                                                                                                  #  10110                           OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
011754,002766:                                                                                                  #                                                              USE ARITHDP1
011755,002767:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
011756,002768: 
011757,002769:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
011758,002770:                                                                                                  #  NOUN TABLES.
011759,002771:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
011760,002772:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
011761,002773:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
011762,002774: 

Page 281

011764,002776:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
011765,002777:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
011766,002778:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
011767,002779: 
011768,002780: 
011769,002781:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
011770,002782:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
011771,002783: 
011772,002784:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
011773,002785:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY, MIXBR IS SET FOR
011774,002786:                                                                                                  #  MIXED OR NORMAL NOUN.
011775,002787: 
011776,002788: 23,2000                                           BANK     23                                    
011777,002789: 23,2000           52142        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
011778,002790: 23,2001           50273                           INDEX    NOUNREG                               
011779,002791: 23,2002           32052                           CAF      NNADTAB                               
011780,002792: 23,2003           54136                           TS       NNADTEM                               
011781,002793: 23,2004           50273                           INDEX    NOUNREG                               
011782,002794: 23,2005           32152                           CAF      NNTYPTAB                              
011783,002795: 23,2006           54137                           TS       NNTYPTEM                              
011784,002796: 23,2007           40273                           CS       NOUNREG                               
011785,002797: 23,2010           62036                           AD       MIXCON                                
011786,002798: 23,2011           00006                           EXTEND                                         
011787,002799: 23,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
011788,002800: 23,2013           37755                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
011789,002801: 23,2014           54130                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
011790,002802: 23,2015           02034                           TC       LODNLV                                
011791,002803: 23,2016           37754        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
011792,002804: 23,2017           54130                           TS       MIXBR                                 
011793,002805: 23,2020           50273                           INDEX    NOUNREG                               
011794,002806: 23,2021           32420                           CAF      RUTMXTAB   -55                        
011795,002807: 
011796,002808: 23,2022           54143                           TS       RUTMXTEM                              
011797,002809: 23,2023           35356                           CAF      LOW10                                 
011798,002810: 23,2024           70136                           MASK     NNADTEM                               
011799,002811: 23,2025           54002                           TS       Q                                     #  TEMP
011800,002812: 23,2026           50000                           INDEX    A                                     
011801,002813: 23,2027           32406                           CAF      IDADDTAB                              
011802,002814: 23,2030           54140                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
011803,002815: 23,2031           00006                           EXTEND                                         
011804,002816: 23,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
011805,002817: 23,2033           32410                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
011806,002818: 23,2034           52142        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN INFO INTO A, L.
011807,002819: 23,2035           52006                           DXCH     Z                                     
011808,002820: 
011809,002821: 23,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
011810,002822: 
011811,002823: 
011812,002824:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.

Page 282

011814,002826: 
011815,002827: 23,2037           52114        GTSFOUT            DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
011816,002828: 23,2040           00006                           EXTEND                                         
011817,002829: 23,2041           50000                           INDEX    A                                     
011818,002830: 23,2042           32331                           DCA      SFOUTAB                               
011819,002831: 23,2043           52114        SFCOM              DXCH     SFTEMP1                               
011820,002832: 23,2044           52006                           DXCH     Z                                     
011821,002833: 
011822,002834: 
011823,002835:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
011824,002836: 
011825,002837: 23,2045           52114        GTSFIN             DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
011826,002838: 23,2046           00006                           EXTEND                                         
011827,002839: 23,2047           50000                           INDEX    A                                     
011828,002840: 
011829,002841: 23,2050           32253                           DCA      SFINTAB                               
011830,002842: 23,2051           12043                           TCF      SFCOM                                 
011831,002843: 
011832,002844:                                                                                                  #  NN  NORMAL NOUNS
011833,002845: 23,2052           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
011834,002846: 23,2053           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
011835,002847: 23,2054           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
011836,002848: 23,2055           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
011837,002849: 23,2056           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
011838,002850: 23,2057           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
011839,002851: 23,2060           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
011840,002852: 23,2061           00000                           OCT      00000                                 #  07 SPARE
011841,002853: 23,2062           77776                           OCT      77776                                 #  10 CHANNEL TO BE SPECIFIED
011842,002854: 23,2063           00000                           OCT      00000                                 #  11 SPARE
011843,002855: 23,2064           00000                           OCT      00000                                 #  12 SPARE
011844,002856: 23,2065           00000                           OCT      00000                                 #  13 SPARE
011845,002857: 23,2066           00000                           OCT      00000                                 #  14 SPARE
011846,002858: 23,2067           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
011847,002859: 23,2070           00024                           ECADR    TIME2                                 #  16 TIME SECONDS
011848,002860: 23,2071           00024                           ECADR    TIME2                                 #  17 TIME HOURS
011849,002861: 23,2072           00032                           ECADR    CDUX                                  #  20 ICDU
011850,002862: 
011851,002863: 23,2073           00037                           ECADR    PIPAX                                 #  21 PIPAS
011852,002864: 23,2074           00400                           ECADR    THETAD                                #  22 NEW ANGLES I
011853,002865: 23,2075           00342                           ECADR    DSPTEM2                               #  23 DELTA ANGLES I
011854,002866: 23,2076           00337                           ECADR    DSPTEM1                               #  24 DELTA TIME (SEC)
011855,002867: 23,2077           00337                           ECADR    DSPTEM1                               #  25 CHECKLIST
011856,002868: 23,2100           00337                           ECADR    DSPTEM1                               #  26 PRIO/DELAY, ADRES, BBCON
011857,002869: 23,2101           01357                           ECADR    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
011858,002870: 23,2102           00337                           ECADR    DSPTEM1                               #  30 STAR NUMBERS
011859,002871: 23,2103           01361                           ECADR    SFAIL                                 #  31 SFAIL, ERCOUNT, FAILREG.
011860,002872: 23,2104           02166                           ECADR    TDEC                                  #  32 DECISION TIME (MIDCOURSE)
011861,002873: 23,2105           02046                           ECADR    TET                                   #  33 EPHEMERIS TIME(MIDCOURSE)
011862,002874: 23,2106           02174                           ECADR    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
011863,002875: 23,2107           00337                           ECADR    DSPTEM1                               #  35 INBIT MESSAGE

Page 283

011865,002877: 23,2110           01500                           ECADR    LANDMARK                              #  36 LANDMARK DATA 1
011866,002878: 23,2111           01503                           ECADR    LANDMARK   +3                         #  37 LANDMARK DATA 2
011867,002879: 23,2112           00035                           ECADR    OPTY                                  #  40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
011868,002880: 23,2113           00423                           ECADR    TANG                                  #  41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
011869,002881: 23,2114           00342                           ECADR    DSPTEM2                               #  42 AOT ROTATION ANGLES
011870,002882: 23,2115           00374                           ECADR    XYMARK                                #  43 AOT DETENT CODE
011871,002883: 23,2116           00357                           ECADR    FORVEL                                #  44 FORWARD VELOCITY, LATERAL VELOCITY
011872,002884: 23,2117           03032                           ECADR    PCOM                                  #  45 ROTATIONAL HAND CONTROLLER ANGLE RATE
011873,002885: 23,2120           00000                           OCT      00000                                 #  46 SPARE
011874,002886: 23,2121           00000                           OCT      00000                                 #  47 SPARE
011875,002887: 23,2122           01363                           ECADR    FAILREG                               #  50 FAILREG, FAILREG +1, FAILREG +2.
011876,002888: 23,2123           01342                           ECADR    ALMCADR                               #  51 ALMCADR, ALMCADR +1
011877,002889: 23,2124           01444                           ECADR    GBIASX                                #  52 GYRO BIAS DRIFT
011878,002890: 23,2125           01447                           ECADR    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
011879,002891: 23,2126           01452                           ECADR    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
011880,002892: 
011881,002893:                                                                                                  #  NN  MIXED NOUNS
011882,002894: 23,2127           02000                           OCT      02000                                 #  55 LANDING RADAR ALTITUDE, TIME(SEC)
011883,002895: 23,2130           02002                           OCT      02002                                 #  56 LANDING RADAR VELX, TIME(SEC)
011884,002896: 
011885,002897: 23,2131           02004                           OCT      02004                                 #  57 LANDING RADAR VELY, TIME(SEC)
011886,002898: 23,2132           02006                           OCT      02006                                 #  60 LANDING RADAR VELZ, TIME(SEC)
011887,002899: 23,2133           02010                           OCT      02010                                 #  61 TARGET AZIMUTH AND ELEVATION
011888,002900: 23,2134           04012                           OCT      04012                                 #  62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
011889,002901: 23,2135           04015                           OCT      04015                                 #  63 REND. RADAR RANGE RATE, TRUN, SHAFT
011890,002902: 23,2136           04020                           OCT      04020                                 #  64 INITIAL ALT, FINAL ALT, ALT RATE
011891,002903: 23,2137           02023                           OCT      02023                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
011892,002904:                                                                                                  #       (FETCHED IN INTERRUPT)
011893,002905: 23,2140           04025                           OCT      04025                                 #  66 SYSTEM TEST RESULTS
011894,002906: 23,2141           04030                           OCT      04030                                 #  67 DELTA GYRO ANGLES
011895,002907: 23,2142           02033                           OCT      02033                                 #  70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
011896,002908: 23,2143           02035                           OCT      02035                                 #  71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
011897,002909: 23,2144           04037                           OCT      04037                                 #  72 DELTA POSITION
011898,002910: 23,2145           04042                           OCT      04042                                 #  73 DELTA VELOCITY
011899,002911: 23,2146           04045                           OCT      04045                                 #  74 MEASUREMENT DATA (MIDCOURSE)
011900,002912: 23,2147           04050                           OCT      04050                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
011901,002913: 23,2150           04053                           OCT      04053                                 #  76 POSITION VECTOR
011902,002914: 23,2151           04056                           OCT      04056                                 #  77 VELOCITY VECTOR
011903,002915: 
011904,002916:                                                                                                  #  NN        NORMAL NOUNS
011905,002917: 23,2152           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
011906,002918: 
011907,002919: 23,2153           00040                           OCT      00040                                 #  01 1COMP  FRACTIONAL
011908,002920: 23,2154           00140                           OCT      00140                                 #  02 1COMP  WHOLE
011909,002921: 23,2155           00102                           OCT      00102                                 #  03 1COMP  DEGREES
011910,002922: 23,2156           00241                           OCT      00241                                 #  04 1COMP  HOURS
011911,002923: 23,2157           00200                           OCT      00200                                 #  05 1COMP  SECONDS
011912,002924: 23,2160           00343                           OCT      00343                                 #  06 1COMP  GYRO DEGREES
011913,002925: 23,2161           00000                           OCT      00000                                 #  07        SPARE
011914,002926: 23,2162           00000                           OCT      00000                                 #  10 1COMP  OCTAL ONLY

Page 284

011916,002928: 23,2163           00000                           OCT      00000                                 #  11        SPARE
011917,002929: 23,2164           00000                           OCT      00000                                 #  12        SPARE
011918,002930: 
011919,002931: 23,2165           00000                           OCT      00000                                 #  13        SPARE
011920,002932: 23,2166           00000                           OCT      00000                                 #  14        SPARE
011921,002933: 23,2167           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
011922,002934: 23,2170           00200                           OCT      00200                                 #  16 1COMP  SECONDS
011923,002935: 23,2171           00241                           OCT      00241                                 #  17 1COMP  HOURS
011924,002936: 23,2172           04102                           OCT      04102                                 #  20 3COMP  DEGREES
011925,002937: 23,2173           04140                           OCT      04140                                 #  21 3COMP  WHOLE
011926,002938: 23,2174           04102                           OCT      04102                                 #  22 3COMP  DEGREES
011927,002939: 23,2175           04102                           OCT      04102                                 #  23 3COMP  DEGREES
011928,002940: 23,2176           00200                           OCT      00200                                 #  24 1COMP  SECONDS
011929,002941: 23,2177           00140                           OCT      00140                                 #  25 1COMP  WHOLE
011930,002942: 23,2200           04000                           OCT      04000                                 #  26 3COMP  OCTAL ONLY
011931,002943: 23,2201           00140                           OCT      00140                                 #  27 1COMP  WHOLE
011932,002944: 23,2202           04140                           OCT      04140                                 #  30 3COMP  WHOLE
011933,002945: 23,2203           04000                           OCT      04000                                 #  31 3COMP  OCTAL ONLY
011934,002946: 23,2204           00252                           OCT      00252                                 #  32 1COMP  TIME WEEKS
011935,002947: 23,2205           00252                           OCT      00252                                 #  33 1COMP  TIME WEEKS
011936,002948: 23,2206           00350                           OCT      00350                                 #  34 1COMP  POSITION
011937,002949: 23,2207           04000                           OCT      04000                                 #  35 3COMP  OCTAL ONLY
011938,002950: 23,2210           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
011939,002951: 23,2211           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
011940,002952: 23,2212           02102                           OCT      02102                                 #  40 2COMP  DEGREES
011941,002953: 23,2213           02102                           OCT      02102                                 #  41 2COMP  DEGREES
011942,002954: 
011943,002955: 23,2214           02102                           OCT      02102                                 #  42 2COMP  DEGREES
011944,002956: 23,2215           00140                           OCT      00140                                 #  43 1COMP  WHOLE
011945,002957: 23,2216           02161                           OCT      02161                                 #  44 2COMP  FORWARD/LATERAL VELOCITY
011946,002958: 23,2217           04162                           OCT      04162                                 #  45 3COMP  ROT HAND CONT ANGLE RATE
011947,002959: 23,2220           00000                           OCT      00000                                 #  46        SPARE
011948,002960: 23,2221           00000                           OCT      00000                                 #  47        SPARE
011949,002961: 23,2222           04000                           OCT      04000                                 #  50 3COMP  OCTAL ONLY
011950,002962: 23,2223           02000                           OCT      02000                                 #  51 2COMP  OCTAL ONLY
011951,002963: 23,2224           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
011952,002964: 23,2225           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
011953,002965: 23,2226           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
011954,002966: 
011955,002967:                                                                                                  #  NN        MIXED NOUNS
011956,002968: 23,2227           00016                           OCT      00016                                 #  55 2COMP  LANDING RADAR ALT, SECONDS
011957,002969: 23,2230           00023                           OCT      00023                                 #  56 2COMP  LANDING RADAR VELX, SECONDS
011958,002970: 23,2231           00024                           OCT      00024                                 #  57 2COMP  LANDING RADAR VELY, SECONDS
011959,002971: 23,2232           00025                           OCT      00025                                 #  60 2COMP  LANDING RADAR VELZ, SECONDS
011960,002972: 23,2233           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
011961,002973: 23,2234           04114                           OCT      04114                                 #  62 3COMP  REND. RADAR RANGE, DEG, DEG
011962,002974: 23,2235           04115                           OCT      04115                                 #  63 3COMP  REND. RAD. RANGE RATE, DEG,DEG
011963,002975: 23,2236           40757                           OCT      40757                                 #  64 3COMP  IN/FN ALT, IN/FN ALT, ALT RATE
011964,002976: 23,2237           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS
011965,002977: 23,2240           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
011966,002978: 
011967,002979: 23,2241           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
011968,002980: 23,2242           00126                           OCT      00126                                 #  70 2COMP  OPT TRACK AZIMUTH, DEGREES

Page 285

011970,002982: 23,2243           00126                           OCT      00126                                 #  71 2COMP  OPT TRACK AZIMUTH, DEGREES
011971,002983: 23,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
011972,002984: 23,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
011973,002985: 23,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
011974,002986: 23,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
011975,002987: 23,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
011976,002988: 23,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
011977,002989: 
011978,002990: 
011979,002991: 23,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
011980,002992: 23,2253           03240                           OCT      03240                                 
011981,002993: 23,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
011982,002994: 23,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
011983,002995: 23,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF )
011984,002996: 23,2257           00000                           OCT      0                                     
011985,002997: 23,2260           10707                           OCT      10707                                 #  GYRO DEGREES
011986,002998: 23,2261           03435                           OCT      03435                                 #              UPPED BY 1
011987,002999: 23,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
011988,003000: 23,2263           02133                           OCT      02133                                 
011989,003001: 23,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
011990,003002: 23,2265           30322                           OCT      30322                                 
011991,003003: 23,2266           00004                           OCT      00004                                 #  PIPA BIAS
011992,003004: 23,2267           14021                           OCT      14021                                 
011993,003005: 23,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR.
011994,003006: 23,2271           31463                           OCT      31463                                 
011995,003007: 23,2272           23420                           OCT      23420                                 #  POSITION
011996,003008: 23,2273           00000                           OCT      00000                                 
011997,003009: 23,2274           00201                           OCT      00201                                 #  VELOCITY
011998,003010: 23,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
011999,003011: 23,2276           01371                           OCT      01371                                 #  TIME WEEKS
012000,003012: 23,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
012001,003013: 
012002,003014: 23,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
012003,003015: 23,2301           03434                           OCT      03434                                 
012004,003016: 23,2302           00006                           OCT      00006                                 #  RENDEZVOUS RADAR RANGE
012005,003017: 23,2303           20162                           OCT      20162                                 
012006,003018: 23,2304           00011                           OCT      00011                                 #  RENDEZVOUS RADAR RANGE RATE
012007,003019: 23,2305           27066                           OCT      27066                                 
012008,003020: 23,2306           00005                           OCT      00005                                 #  LANDING RADAR ALTITUDE
012009,003021: 23,2307           24733                           OCT      24733                                 
012010,003022: 23,2310           00002                           OCT      00002                                 #  INITIAL/FINAL ALTITUDE
012011,003023: 23,2311           23224                           OCT      23224                                 
012012,003024: 23,2312           00014                           OCT      00014                                 #  ALTITUDE RATE
012013,003025: 23,2313           06500                           OCT      06500                                 
012014,003026: 23,2314           00012                           OCT      00012                                 #  FORWARD/LATERAL VELOCITY
012015,003027: 23,2315           36455                           OCT      36455                                 
012016,003028: 23,2316           04256                           OCT      04256                                 #  ROT HAND CONT ANGLE RATE
012017,003029: 23,2317           07071                           OCT      07071                                 
012018,003030: 23,2320           00011                           OCT      00011                                 #  LANDING RADAR VELX
012019,003031: 23,2321           17410                           OCT      17410                                 

Page 286

012021,003033: 23,2322           00004                           OCT      00004                                 #  LANDING RADAR VELY
012022,003034: 23,2323           33740                           OCT      33740                                 
012023,003035: 23,2324           00007                           OCT      00007                                 #  LANDING RADAR VELZ
012024,003036: 23,2325           03701                           OCT      03701                                 
012025,003037: 23,2326           00005                           OCT      00005                                 #  OPTICAL AZIMUTH TRACKER ANGLE
012026,003038: 23,2327           21616                           OCT      21616                                 
012027,003039:                                                                                                  #  END OF SFINTAB
012028,003040: 
012029,003041: 
012030,003042: 23,2330           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
012031,003043: 23,2331           13261                           OCT      13261                                 
012032,003044: 23,2332           27670                           OCT      27670                                 #  TIME HOURS
012033,003045: 23,2333           31357                           OCT      31357                                 
012034,003046: 
012035,003047: 23,2334           00000                           OCT      0                                     #  DEGREES
012036,003048: 23,2335           00000                           OCT      0                                     
012037,003049: 23,2336           00714                           OCT      00714                                 #  GYRO DEGREES
012038,003050: 23,2337           31463                           OCT      31463                                 #  (POINT BETWEEN BITS 7-8)
012039,003051: 23,2340           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
012040,003052: 23,2341           32323                           OCT      32323                                 
012041,003053: 23,2342           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
012042,003054: 23,2343           06400                           OCT      06400                                 
012043,003055: 23,2344           07237                           OCT      07237                                 #  PIPA BIAS
012044,003056: 23,2345           37776                           OCT      37776                                 
012045,003057: 23,2346           00120                           OCT      00120                                 #  PIPA SCALE ERROR
012046,003058: 23,2347           00000                           OCT      00000                                 
012047,003059: 23,2350           00321                           OCT      00321                                 #  POSITION
012048,003060: 23,2351           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
012049,003061: 23,2352           37441                           OCT      37441                                 #  VELOCITY
012050,003062: 23,2353           14247                           OCT      14247                                 
012051,003063: 23,2354           05300                           OCT      05300                                 #  TIME WEEKS
012052,003064: 23,2355           20305                           OCT      20305                                 
012053,003065: 23,2356           34631                           OCT      34631                                 #  ELEVATION DEGREES
012054,003066: 23,2357           23146                           OCT      23146                                 
012055,003067: 23,2360           04725                           OCT      04725                                 #  RENDEZVOUS RADAR RANGE
012056,003068: 23,2361           35454                           OCT      35454                                 
012057,003069: 23,2362           03225                           OCT      03225                                 #  RENDEZVOUS RADAR RANGE RATE
012058,003070: 
012059,003071: 23,2363           07470                           OCT      07470                                 
012060,003072: 23,2364           05521                           OCT      05521                                 #  LANDING RADAR ALTITUDE
012061,003073: 23,2365           30260                           OCT      30260                                 
012062,003074: 23,2366           14226                           OCT      14226                                 #  INITIAL/FINAL ALTITUDE
012063,003075: 23,2367           31757                           OCT      31757                                 
012064,003076: 23,2370           02476                           OCT      02476                                 #  ALTITUDE RATE
012065,003077: 23,2371           05531                           OCT      05531                                 
012066,003078: 23,2372           02727                           OCT      02727                                 #  FORWARD/LATERAL VELOCITY
012067,003079: 23,2373           16415                           OCT      16415                                 
012068,003080: 23,2374           00007                           OCT      00007                                 #  ROT HAND CONT ANGLE RATE
012069,003081: 23,2375           13734                           OCT      13734                                 
012070,003082: 23,2376           03277                           OCT      03277                                 #  LANDING RADAR VELX
012071,003083: 23,2377           14165                           OCT      14165                                 

Page 287

012073,003085: 23,2400           06442                           OCT      06442                                 #  LANDING RADAR VELY
012074,003086: 23,2401           04735                           OCT      04735                                 
012075,003087: 23,2402           04374                           OCT      04374                                 #  LANDING RADAR VELZ
012076,003088: 23,2403           30251                           OCT      30251                                 
012077,003089: 23,2404           05605                           OCT      05605                                 #  OPTICAL TRACKER AZIMUTH ANGLE
012078,003090: 23,2405           03656                           OCT      03656                                 
012079,003091:                                                                                                  #  END OF SFOUTAB
012080,003092: 
012081,003093: 
012082,003094:                                                                                                  #  MIXNOUN  SF ROUT
012083,003095: 23,2406           03462        IDADDTAB           ECADR    RSTACK     +18D                       #  01       LANDING RADAR ALTITUDE
012084,003096: 23,2407           03466                           ECADR    RSTACK     +22D                       #  01       SECONDS
012085,003097: 23,2410           03440                           ECADR    RSTACK                                #  02       LANDING RADAR VELX
012086,003098: 23,2411           03444                           ECADR    RSTACK     +4                         #  02       SECONDS
012087,003099: 23,2412           03446                           ECADR    RSTACK     +6                         #  03       LANDING RADAR VELY
012088,003100: 23,2413           03452                           ECADR    RSTACK     +10D                       #  03       SECONDS
012089,003101: 23,2414           03454                           ECADR    RSTACK     +12D                       #  04       LANDING RADAR VELZ
012090,003102: 23,2415           03460                           ECADR    RSTACK     +16D                       #  04       SECONDS
012091,003103: 
012092,003104: 23,2416           00337                           ECADR    DSPTEM1                               #  05       DEGREES
012093,003105: 23,2417           00340                           ECADR    DSPTEM1    +1                         #  05       ELEVATION DEGREES
012094,003106: 23,2420           03440                           ECADR    RSTACK                                #  06       RENDEZVOUS RADAR RANGE
012095,003107: 23,2421           03442                           ECADR    RSTACK     +2                         #  06       DEGREES
012096,003108: 23,2422           03443                           ECADR    RSTACK     +3                         #  06       DEGREES
012097,003109: 23,2423           03446                           ECADR    RSTACK     +6                         #  07       RENDEZVOUS RADAR RANGE RATE
012098,003110: 23,2424           03450                           ECADR    RSTACK     +8D                        #  07       DEGREES
012099,003111: 23,2425           03451                           ECADR    RSTACK     +9D                        #  07       DEGREES
012100,003112: 23,2426           00351                           ECADR    ALT                                   #  10       INITIAL/FINAL ALTITUDE
012101,003113: 23,2427           00354                           ECADR    FINALT                                #  10       INITIAL/FINAL ALTITUDE
012102,003114: 23,2430           00353                           ECADR    ALTRATE                               #  10       ALTITUDE RATE
012103,003115: 23,2431           00013                           ECADR    SAMPTIME                              #  11       HOURS
012104,003116: 23,2432           00013                           ECADR    SAMPTIME                              #  11       SECONDS
012105,003117: 23,2433           00342                           ECADR    DSPTEM2                               #  12       WHOLE
012106,003118: 23,2434           00343                           ECADR    DSPTEM2    +1                         #  12       FRACTIONAL
012107,003119: 23,2435           00344                           ECADR    DSPTEM2    +2                         #  12       WHOLE
012108,003120: 23,2436           00403                           ECADR    DELVX                                 #  13       GYRO DEGREES
012109,003121: 23,2437           00405                           ECADR    DELVX      +2                         #  13       GYRO DEGREES
012110,003122: 23,2440           00407                           ECADR    DELVX      +4                         #  13       GYRO DEGREES
012111,003123: 23,2441           01475                           ECADR    AZANG                                 #  14       OPT TRACK AZIMUTH ANGLE
012112,003124: 23,2442           01475                           ECADR    ELANG                                 #  14       DEGREES
012113,003125: 23,2443           01475                           ECADR    DESLOTSY                              #  15       OPT TRACK AZIMUTH ANGLE
012114,003126: 23,2444           01475                           ECADR    DESLOTSX                              #  15       DEGREES
012115,003127: 
012116,003128: 23,2445           02052                           ECADR    DELR                                  #  16       POSITION
012117,003129: 23,2446           02054                           ECADR    DELR       +2                         #  16       POSITION
012118,003130: 23,2447           02056                           ECADR    DELR       +4                         #  16       POSITION
012119,003131: 23,2450           02060                           ECADR    DELVEL                                #  17       VELOCITY
012120,003132: 23,2451           02062                           ECADR    DELVEL     +2                         #  17       VELOCITY
012121,003133: 23,2452           02064                           ECADR    DELVEL     +4                         #  17       VELOCITY
012122,003134: 23,2453           02166                           ECADR    TDEC                                  #  20       TIME WEEKS
012123,003135: 23,2454           02174                           ECADR    MEASQ                                 #  20       POSITION

Page 288

012125,003137: 23,2455           02200                           ECADR    MEASMODE                              #  20       WHOLE
012126,003138: 23,2456           00337                           ECADR    DSPTEM1                               #  21       POSITION
012127,003139: 
012128,003140: 23,2457           00341                           ECADR    DSPTEM1    +2                         #  21       VELOCITY
012129,003141: 23,2460           02176                           ECADR    DELTAQ                                #  21       POSITION
012130,003142: 23,2461           00337                           ECADR    DSPTEM1                               #  22       POSITION
012131,003143: 23,2462           00341                           ECADR    DSPTEM1    +2                         #  22       POSITION
012132,003144: 23,2463           00343                           ECADR    DSPTEM1    +4                         #  22       POSITION
012133,003145: 23,2464           00337                           ECADR    DSPTEM1                               #  23       VELOCITY
012134,003146: 23,2465           00341                           ECADR    DSPTEM1    +2                         #  23       VELOCITY
012135,003147: 23,2466           00343                           ECADR    DSPTEM1    +4                         #  23       VELOCITY
012136,003148: 23,2467           00000                           OCT      00000                                 #           SPARE
012137,003149: 23,2470           00000                           OCT      00000                                 #           SPARE
012138,003150: 23,2471           00000                           OCT      00000                                 #           SPARE
012139,003151: 23,2472           00000                           OCT      00000                                 #           SPARE
012140,003152: 23,2473           00000                           OCT      00000                                 #           SPARE
012141,003153: 23,2474           00000                           OCT      00000                                 #           SPARE
012142,003154:                                                                                                  #  END OF IDADDTAB
012143,003155: 
012144,003156:                                                                                                  #  MIXNOUN  SF ROUT
012145,003157: 23,2475           00204        RUTMXTAB           OCT      00204                                 #  01  LANDING RADAR ALTITUDE, SECONDS
012146,003158: 23,2476           00204                           OCT      00204                                 #  02  LANDING RADAR VELX, SECONDS
012147,003159: 23,2477           00204                           OCT      00204                                 #  03  LANDING RADAR VELY, SECONDS
012148,003160: 23,2500           00204                           OCT      00204                                 #  04  LANDING RADAR VELZ, SECONDS
012149,003161: 
012150,003162: 23,2501           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
012151,003163: 23,2502           04104                           OCT      04104                                 #  06  RENDEZVOUS RADAR RANGE, DEG, DEG
012152,003164: 23,2503           04104                           OCT      04104                                 #  07  REND. RADAR RANGE RATE, DEG, DEG
012153,003165: 23,2504           06204                           OCT      06204                                 #  10  INIT/FIN ALT, INIT/FIN ALT, ALT RATE
012154,003166: 23,2505           00205                           OCT      00205                                 #  11  HOURS, SECONDS
012155,003167: 23,2506           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
012156,003168: 23,2507           16347                           OCT      16347                                 #  13  GYRO DEGREES (FOR EACH)
012157,003169: 23,2510           00104                           OCT      00104                                 #  14  OPT TRACK AZIMUTH ANGLE, DEGREES
012158,003170: 23,2511           00104                           OCT      00104                                 #  15  OPT TRACK AZIMUTH ANGLE, DEGREES
012159,003171: 23,2512           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
012160,003172: 23,2513           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
012161,003173: 23,2514           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
012162,003174: 23,2515           16247                           OCT      16247                                 #  21  POSITION, VELOCITY, POSITION
012163,003175: 23,2516           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
012164,003176: 23,2517           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
012165,003177:                                                                                                  #  END OF RUTMXTAB
012166,003178: 

Page 289

012168,003180:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
012169,003181: 
012170,003182:    4502                                           BLOCK    02                                    
012171,003183: 
012172,003184:                                                                                                  #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
012173,003185:                                                                                                  #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
012174,003186: 
012175,003187:    4502           54310        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
012176,003188:    4503           54003                           TS       EBANK                                 #  SET EBANK BITS
012177,003189:    4504           74553                           MASK     LOW8                                  
012178,003190:    4505           65370                           AD       OCT1400                               
012179,003191:    4506           54135                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
012180,003192:    4507           00002                           TC       Q                                     
012181,003193: 
012182,003194:                                                                                                  #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
012183,003195:                                                                                                  #                 E ADRES AND PUTS IT INTO NOUNADD.
012184,003196: 
012185,003197:    4510           30310        SETNADD            CA       NOUNCADR                              
012186,003198:    4511           14503                           TCF      SETNCADR   +1                         
012187,003199: 
012188,003200:                                                                                                  #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
012189,003201:                                                                                                  #                 DERIVED AND LEFT IN A.
012190,003202: 
012191,003203:    4512           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
012192,003204:    4513           74553                           MASK     LOW8                                  
012193,003205:    4514           65370                           AD       OCT1400                               #  E ADRES LEFT IN A
012194,003206:    4515           00002                           TC       Q                                     
012195,003207: 
012196,003208: 
012197,003209:    4516           00016        R1D1               OCT      16                                    
012198,003210:    4517           00011        R2D1               OCT      11                                    
012199,003211:    4520           00004        R3D1               OCT      4                                     
012200,003212: 
012201,003213:    4521           54020        RIGHT5             TS       CYR                                   
012202,003214:    4522           40020                           CS       CYR                                   
012203,003215:    4523           40020                           CS       CYR                                   
012204,003216:    4524           40020                           CS       CYR                                   
012205,003217:    4525           40020                           CS       CYR                                   
012206,003218:    4526           56020                           XCH      CYR                                   
012207,003219:    4527           00002                           TC       Q                                     
012208,003220: 
012209,003221:    4530           54022        LEFT5              TS       CYL                                   
012210,003222:    4531           40022                           CS       CYL                                   
012211,003223:    4532           40022                           CS       CYL                                   

Page 290

012213,003225:    4533           40022                           CS       CYL                                   
012214,003226:    4534           40022                           CS       CYL                                   
012215,003227:    4535           56022                           XCH      CYL                                   
012216,003228:    4536           00002                           TC       Q                                     
012217,003229: 
012218,003230:    4537           60000        SLEFT5             DOUBLE                                         
012219,003231:    4540           60000                           DOUBLE                                         
012220,003232:    4541           60000                           DOUBLE                                         
012221,003233:    4542           60000                           DOUBLE                                         
012222,003234:    4543           60000                           DOUBLE                                         
012223,003235:    4544           00002                           TC       Q                                     
012224,003236: 
012225,003237: 
012226,003238:    4545           00037        LOW5               OCT      37                                    
012227,003239:    4546           01740        MID5               OCT      1740                                  
012228,003240:    4547           76000        HI5                OCT      76000                                 #  MUST STAY HERE
012229,003241: 
012230,003242:    4550     5741               TCNOVAC            =        SVCT3      +5                         
012231,003243:    4550           05701        TCWAIT             TC       WAITLIST                              
012232,003244:    4551     5735               TCTSKOVR           =        SVCT3      +1                         
012233,003245:    4551           05534        TCFINDVC           TC       FINDVAC                               
012234,003246: 
012235,003247: 
012236,003248:    4552     5226               CHRPRIO            =        PRIO30                                #  EXEC PRIORITY OF CHARIN
012237,003249: 
012238,003250:    4552           03777        LOW11              OCT      3777                                  
012239,003251:    4553     4552               B12-1              EQUALS   LOW11                                 
012240,003252:    4553           00377        LOW8               OCT      377                                   
012241,003253:    4554           00023        VD1                OCT      23                                    
012242,003254:    4555           00021        ND1                OCT      21                                    
012243,003255:    4556           00025        MD1                OCT      25                                    
012244,003256: 
012245,003257:    4557           00012        BINCON             DEC      10         B-14                       
012246,003258: 
012247,003259:    4560           37747        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
012248,003260:    4561           00006                           EXTEND                                         
012249,003261: 
012250,003262:    4562           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
012251,003263:    4563           00002                           TC       Q                                     
012252,003264: 
012253,003265:    4564           47747        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
012254,003266:    4565           00006                           EXTEND                                         
012255,003267:    4566           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
012256,003268:    4567           00002                           TC       Q                                     
012257,003269: 
012258,003270:    4570           37751        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
012259,003271:    4571           00006                           EXTEND                                         
012260,003272:    4572           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
012261,003273:    4573           00002                           TC       Q                                     
012262,003274: 

Page 291

012264,003276:    4574           00006        LODSAMPT           EXTEND                                         
012265,003277:    4575           30025                           DCA      TIME2                                 
012266,003278:    4576           52014                           DXCH     SAMPTIME                              
012267,003279:    4577           00002                           TC       Q                                     
012268,003280: 
012269,003281: 
012270,003282:    4600           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
012271,003283:    4601           30146                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
012272,003284:    4602           20146                           DAS      MPAC       +1                         
012273,003285:    4603           60144                           AD       MPAC                                  
012274,003286:    4604           26144                           ADS      MPAC                                  
012275,003287:    4605           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
012276,003288:    4606           00002                           TC       Q                                     #  NO NET OF/UF
012277,003289:    4607           54111                           TS       OVFIND                                #  OVFIND SET TO +/- 1 FOR OF/UF
012278,003290:    4610           00002                           TC       Q                                     
012279,003291: 
012280,003292: 
012281,003293:    4611           37750        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
012282,003294:    4612           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
012283,003295:    4613           05011                           WOR      DSALMOUT                              
012284,003296:    4614           00002                           TC       Q                                     
012285,003297: 
012286,003298:    4615           47750        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
012287,003299:    4616           00006                           EXTEND                                         
012288,003300:    4617           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
012289,003301:    4620           00002                           TC       Q                                     
012290,003302: 

Page 292

012292,003304:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
012293,003305:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
012294,003306: 
012295,003307:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
012296,003308: 
012297,003309:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
012298,003310:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
012299,003311: 
012300,003312:                                                                                                  #        THE CALLING SEQUENCES ARE
012301,003313:                                                                                                  #  L        TC     GRABDSP
012302,003314:                                                                                                  #  L+1      RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
012303,003315:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
012304,003316: 
012305,003317:                                                                                                  #  L        TC     NVSUB
012306,003318:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
012307,003319:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
012308,003320: 
012309,003321:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
012310,003322:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT.
012311,003323:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012312,003324:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012313,003325:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
012314,003326: 
012315,003327:                                                                                                  #        THE CALLING SEQUENCE IS
012316,003328: 
012317,003329:                                                                                                  #           CAF    WAKEFCADR
012318,003330:                                                                                                  #           TC     GRABUSY
012319,003331: 
012320,003332:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
012321,003333:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
012322,003334:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012323,003335:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012324,003336:                                                                                                  #                                              YOUR CADR IS PUT
012325,003337:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO).  IT ALSO TURNS ON KEY RELEASE LIGHT.
012326,003338: 
012327,003339:                                                                                                  #         THE CALLING SEQUENCE IS
012328,003340:                                                                                                  #           CAF    WAKEFCADR
012329,003341:                                                                                                  #           TC     NVSUBUSY
012330,003342: 
012331,003343: 
012332,003344:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 1.75 SECS.
012333,003345:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
012334,003346:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
012335,003347: 
012336,003348: 
012337,003349:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD 
012338,003350:                                                                                                  #  AND DISPLAY SYSTEM.
012339,003351:                                                                                                  #  +0  FREE

Page 293

012341,003353:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
012342,003354:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
012343,003355: 
012344,003356:    4621           10330        GRABDSP            CCS      GRABLOCK                              
012345,003357:    4622           00002                           TC       Q                                     #  ALREADY GRABBED, RETURN TO L+1
012346,003358:    4623           37755                           CAF      ONE                                   #  NOT GRABBED, SET TO +1
012347,003359:    4624           54330                           TS       GRABLOCK                              #  AND RETURN TO L+2
012348,003360:    4625           17006                           TCF      Q+1                                   
012349,003361: 
012350,003362: 
012351,003363:    4626           35356        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012352,003364:    4627           70002                           MASK     Q                                     #  BANKS ONLY DESIRING THE FCADR OF
012353,003365:    4630           60004                           AD       FBANK                                 #  1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
012354,003366:    4631           05243        GRABUSY            TC       POSTJUMP                              #  TO BE ENTERED.
012355,003367:    4632           10000                           CADR     GRABUSYB                              
012356,003368: 04,3472                                           SETLOC   DOPROC     +2                         
012357,003369: 04,3472           54001        GRABUSY1           TS       L                                     
012358,003370: 04,3473           10330                           CCS      GRABLOCK                              
012359,003371: 04,3474           03477                           TC       +3                                    #  STILL GRABBED
012360,003372: 04,3475           30001                           CA       L                                     #  NOT GRABBED SO DO DIRECT CALL
012361,003373: 04,3476           05246                           TC       BANKJUMP                              
012362,003374: 04,3477           37754                           CAF      TWO                                   
012363,003375: 04,3500           54134                           TS       LSTPTR                                
012364,003376: 04,3501           50134                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
012365,003377: 04,3502           10333                           CCS      DSPLIST                               #  FROM BOTTOM.
012366,003378: 04,3503           03505                           TC       +2                                    
012367,003379: 04,3504           03510                           TC       PUTINLST                              #  SPACE FOUND
012368,003380: 04,3505           10134                           CCS      LSTPTR                                #  DECREMENT POINTER
012369,003381: 04,3506           03500                           TC       -6                                    
012370,003382: 04,3507           03554                           TC       LSTFULL                               
012371,003383: 04,3510           30001        PUTINLST           CA       L                                     
012372,003384: 04,3511           50134                           INDEX    LSTPTR                                
012373,003385: 04,3512           54333                           TS       DSPLIST                               
012374,003386: 04,3513           05563                           TC       JOBSLEEP                              
012375,003387: 
012376,003388: 
012377,003389:                                                                                                  #  GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012378,003390:                                                                                                  #  SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
012379,003391:                                                                                                  #  WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
012380,003392:                                                                                                  #  JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
012381,003393:                                                                                                  #  SYSTEM IS FREED.
012382,003394: 
012383,003395:    4633                                           SETLOC   GRABUSY    +2                         
012384,003396:    4633           10330        GRABWAIT           CCS      GRABLOCK                              
012385,003397:    4634           14626                           TCF      PREGBSY                               #  GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
012386,003398:    4635           37755                           CAF      ONE                                   #  NOT GRABBED. GRAB AND RETURN TO L+1.

Page 294

012388,003400:    4636           54330                           TS       GRABLOCK                              
012389,003401:    4637           00002                           TC       Q                                     
012390,003402: 
012391,003403: 
012392,003404:    4640           44645        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012393,003405:    4641           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
012394,003406:    4642           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
012395,003407:    4643           05243        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
012396,003408:    4644           10001                           CADR     NVSUBSYB                              
012397,003409:    4645           02003        2K+3               OCT      2003                                  
012398,003410: 
012399,003411: 04,3514                                           SETLOC   PUTINLST   +4                         
012400,003412: 04,3514           54001        NVSUBSY1           TS       L                                     
012401,003413: 
012402,003414: 04,3515           10303                           CCS      DSPLOCK                               #  TEST IF REALLY LOCKED OUT
012403,003415: 04,3516           03521                           TC       +3                                    #  STILL BUSY
012404,003416: 04,3517           30001                           CA       L                                     #  DSPLOCK = +0 SO RETURN DIRECTLY
012405,003417: 04,3520           05246                           TC       BANKJUMP                              
012406,003418: 04,3521           37754                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
012407,003419: 04,3522           54330                           TS       GRABLOCK                              
012408,003420: 04,3523           30001                           CA       L                                     
012409,003421: 04,3524           56335                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
012410,003422: 04,3525           56334                           XCH      DSPLIST    +1                         #          (BOTTOM)
012411,003423: 04,3526           56333                           XCH      DSPLIST                               
012412,003424: 04,3527           10000                           CCS      A                                     
012413,003425: 04,3530           03554                           TC       LSTFULL                               
012414,003426: 04,3531           03533                           TC       +2                                    
012415,003427: 04,3532           03554                           TC       LSTFULL                               
012416,003428: 04,3533           04570                           TC       RELDSPON                              
012417,003429: 04,3534           30001                           CA       L                                     
012418,003430: 04,3535           05563        ENDNVBSY           TC       JOBSLEEP                              
012419,003431: 
012420,003432: 
012421,003433:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012422,003434:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
012423,003435:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
012424,003436: 
012425,003437:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
012426,003438:                                                                                                  #  IS NOT BUSY.
012427,003439: 
012428,003440:    4646                                           SETLOC   NVSUBUSY   +3                         
012429,003441:    4646           54113        NVSBWAIT           TS       NVTEMP                                
012430,003442:    4647           10303                           CCS      DSPLOCK                               
012431,003443:    4650           14653                           TCF      NVSBWT1                               #  BUSY
012432,003444:    4651           30002                           CA       Q                                     #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
012433,003445:    4652           14440                           TCF      NVSUB      +5                         #  AFTER EXECUTION.
012434,003446:    4653           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
012435,003447:    4654           14640                           TCF      PRENVBSY                              #  GO TO SLEEP.
012436,003448: 

Page 295

012438,003450:    4655           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
012439,003451:    4656           54134                           TS       RELRET                                #  OFF, SEARCH DSPLIST
012440,003452:    4657           37763                           CAF      NEG1                                  
012441,003453:    4660           60330                           AD       GRABLOCK                              
012442,003454:    4661           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
012443,003455:    4662           64670                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
012444,003456:    4663           04703                           TC       WKSEARCH                              
012445,003457:    4664           04670                           TC       RELDSP2                               #  LIST EMPTY
012446,003458:    4665           05567                           TC       JOBWAKE                               #  LIST NOT EMPTY
012447,003459:    4666           37755                           CAF      ONE                                   
012448,003460:    4667           54330                           TS       GRABLOCK                              
012449,003461:    4670           00004        RELDSP2            INHINT                                         
012450,003462:    4671           47751                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
012451,003463:    4672           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
012452,003464:    4673           03011                           WAND     DSALMOUT                              
012453,003465:    4674           37761                           CAF      ZERO                                  
012454,003466:    4675           54303                           TS       DSPLOCK                               
012455,003467:    4676           00003                           RELINT                                         
012456,003468:    4677           00134                           TC       RELRET                                
012457,003469: 
012458,003470:    4700           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. RELDSP LIGHT OFF.
012459,003471:    4701           54134                           TS       RELRET                                #  NO LIST SEARCH
012460,003472:    4702           04670                           TC       RELDSP2                               
012461,003473: 
012462,003474: 
012463,003475:    4703           37761        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
012464,003476:    4704           56333                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
012465,003477:    4705           56334                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
012466,003478:    4706           56335                           XCH      DSPLIST    +2                         
012467,003479:    4707           00006                           EXTEND                                         
012468,003480:    4710           17011                           BZF      TCQ                                   #  EMPTY, RETURN TO L+1
012469,003481:    4711           00004                           INHINT                                         #  NOT EMPTY
012470,003482:    4712           17006                           TCF      Q+1                                   #  RETURN TO L+2
012471,003483: 
012472,003484:    4713           56002        FREEDSP            XCH      Q                                     
012473,003485:    4714           54134                           TS       FREERET                               
012474,003486:    4715           00004                           INHINT                                         
012475,003487:    4716           34724                           CAF      SHOTIME                               
012476,003488:    4717           05701                           TC       WAITLIST                              
012477,003489:    4720     0270                                  EBANK=   DSPCOUNT                              
012478,003490: 
012479,003491:    4720           03536 10000                     2CADR    FREEWAIT                              
012480,003492: 
012481,003493:    4722           00003                           RELINT                                         
012482,003494:    4723           00134                           TC       FREERET                               
012483,003495: 
012484,003496:    4724           00257        SHOTIME            DEC      175        B-14                       #  SET FOR 1.75 SEC.
012485,003497: 04,3536                                           SETLOC   ENDNVBSY   +1                         
012486,003498: 

Page 296

012488,003500: 04,3536           35226        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
012489,003501: 04,3537           05523                           TC       NOVAC                                 
012490,003502: 
012491,003503: 04,3540     0270                                  EBANK=   DSPCOUNT                              
012492,003504: 04,3540           03543 10000                     2CADR    FREDSPDO                              
012493,003505: 
012494,003506: 04,3542           05745                           TC       TASKOVER                              
012495,003507: 
012496,003508: 
012497,003509: 04,3543           04703        FREDSPDO           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
012498,003510: 04,3544           03552                           TC       LSTEMPTY                              #  LIST EMPTY
012499,003511: 04,3545           05567                           TC       JOBWAKE                               #  LIST NOT EMPTY
012500,003512: 04,3546           00003                           RELINT                                         
012501,003513: 04,3547           37755                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
012502,003514: 04,3550           54330                           TS       GRABLOCK                              
012503,003515: 04,3551           05605                           TC       ENDOFJOB                              
012504,003516: 04,3552           37761        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
012505,003517: 04,3553           03550                           TC       -3                                    
012506,003518: 
012507,003519: 
012508,003520: 04,3554           06000        LSTFULL            TC       ABORT                                 
012509,003521: 04,3555           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
012510,003522: 

Page 297

012512,003524:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
012513,003525:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
012514,003526: 
012515,003527: 05,3414                                           SETLOC   DSPMMEND   +1                         
012516,003528: 
012517,003529: 05,3414           00004        VBTSTLTS           INHINT                                         
012518,003530: 05,3415           47755                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
012519,003531: 05,3416           70366                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
012520,003532: 
012521,003533: 05,3417           67755                           AD       BIT1                                  
012522,003534: 05,3420           54366                           TS       IMODES33                              
012523,003535: 
012524,003536: 05,3421           33457                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
012525,003537: 05,3422           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
012526,003538: 05,3423           05011                           WOR      DSALMOUT                              
012527,003539: 05,3424           33460                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
012528,003540: 05,3425           54326                           TS       DSPTAB     +11D                       #  PROG ALM.
012529,003541: 05,3426           37744                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
012530,003542: 05,3427           00006                           EXTEND                                         
012531,003543: 05,3430           05013                           WOR      CHAN13                                
012532,003544: 05,3431           34557                           CAF      TEN                                   
012533,003545: 05,3432           54107        TSTLTS1            TS       ERCNT                                 
012534,003546: 05,3433           43455                           CS       FULLDSP                               
012535,003547: 05,3434           50107                           INDEX    ERCNT                                 
012536,003548: 05,3435           54313                           TS       DSPTAB                                
012537,003549: 05,3436           10107                           CCS      ERCNT                                 
012538,003550: 05,3437           03432                           TC       TSTLTS1                               
012539,003551: 05,3440           43456                           CS       FULLDSP1                              
012540,003552: 05,3441           54314                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
012541,003553: 05,3442           54317                           TS       DSPTAB     +4                         
012542,003554: 05,3443           54321                           TS       DSPTAB     +6                         
012543,003555: 05,3444           37756                           CAF      ELEVEN                                
012544,003556: 
012545,003557: 05,3445           54307                           TS       NOUT                                  
012546,003558: 05,3446           00003                           RELINT                                         
012547,003559: 05,3447           33462                           CAF      SHOLTS                                
012548,003560: 05,3450           00004                           INHINT                                         
012549,003561: 05,3451           05701                           TC       WAITLIST                              
012550,003562: 05,3452     0313                                  EBANK=   DSPTAB                                
012551,003563: 05,3452           03463 12000                     2CADR    TSTLTS2                               
012552,003564: 
012553,003565: 05,3454           05605                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
012554,003566:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
012555,003567:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
012556,003568: 
012557,003569: 05,3455           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
012558,003570: 05,3456           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
012559,003571: 05,3457           00175        TSTCON1            OCT      00175                                 
012560,003572:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
012561,003573:                                                                                                  #  V/N FLASH, OPERATOR ERROR.

Page 298

012563,003575: 05,3460           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D  BITS 4,6,8,9,
012564,003576:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
012565,003577: 05,3461           00115        TSTCON3            OCT      00115                                 #  CHAN 11  BITS 1, 3, 4, 7.
012566,003578:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
012567,003579: 05,3462           00764        SHOLTS             OCT      764                                   #  5 SEC
012568,003580: 
012569,003581: 05,3463           35226        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
012570,003582: 05,3464           05523                           TC       NOVAC                                 
012571,003583: 05,3465     0313                                  EBANK=   DSPTAB                                
012572,003584: 05,3465           03470 12000                     2CADR    TSTLTS3                               
012573,003585: 
012574,003586: 05,3467           05745                           TC       TASKOVER                              
012575,003587: 
012576,003588: 
012577,003589: 05,3470           43461        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
012578,003590: 05,3471           00004                           INHINT                                         
012579,003591: 05,3472           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
012580,003592: 05,3473           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
012581,003593: 05,3474           47744                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
012582,003594: 05,3475           00006                           EXTEND                                         
012583,003595: 05,3476           03013                           WAND     CHAN13                                
012584,003596: 05,3477           37737                           CAF      BIT15                                 #  TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
012585,003597: 05,3500           54326                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
012586,003598: 05,3501           43521                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
012587,003599: 05,3502           70366                           MASK     IMODES33                              #  LIGHTS COMPLETE.
012588,003600: 05,3503           65660                           AD       PRIO16                                
012589,003601: 05,3504           54366                           TS       IMODES33                              
012590,003602: 
012591,003603: 05,3505           43523                           CS       OCT55000                              
012592,003604: 05,3506           70365                           MASK     IMODES30                              
012593,003605: 05,3507           65657                           AD       PRIO15                                #  15000.
012594,003606: 05,3510           54365                           TS       IMODES30                              
012595,003607: 
012596,003608: 05,3511           43522                           CS       RFAILS2                               
012597,003609: 05,3512           70413                           MASK     RADMODES                              
012598,003610: 
012599,003611: 05,3513           67747                           AD       BIT7                                  
012600,003612: 05,3514           54413                           TS       RADMODES                              
012601,003613: 
012602,003614: 05,3515           00003                           RELINT                                         
012603,003615: 
012604,003616: 05,3516           02001                           TC       DSPMM                                 #  REDISPLAY C(MODREG)
012605,003617: 05,3517           05243                           TC       POSTJUMP                              #  TURN OFF KEY RLSE LIGHT (AND SEARCH LIST
012606,003618: 05,3520           11333                           CADR     VBTERM                                #  IF APPROPRIATE).
012607,003619:                                                                                                  #  TURN OFF V/N FLASH, SET LOADSTAT FOR
012608,003620:                                                                                                  #  FOR TERMINATE CONDITION, AND TO TO
012609,003621:                                                                                                  #  RECALTST. FINALLY DO TC ENDOFJOB.
012610,003622: 

Page 299

012612,003624: 05,3521           16001        13-11,1            OCT      16001                                 
012613,003625: 05,3522           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
012614,003626: 05,3523           55000        OCT55000           OCT      55000                                 

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