Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

012930,000002:                                                                                                  ## Copyright:   Public domain.
012931,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
012932,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
012933,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
012934,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
012935,000007:                                                                                                  ## Assembler:   yaYUL
012936,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
012937,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
012938,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
012939,000011:                                                                                                  ## Mod history: 2011-01-23 JL   Adapted from corresponding Colossus 249 file.
012940,000012:                                                                                                  ##              2016-12-30 RSB  Proofed comment text using octopus/ProoferComments,
012941,000013:                                                                                                  ##                              and corrected errors found.
012942,000014:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
012943,000015:                                                                                                  ##                              vs Colossus 249.
012944,000016:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
012945,000017:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
012946,000018:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
012947,000019:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
012948,000020:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
012949,000021:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
012950,000022: 

Page 300

012952,000024: 
012953,000025:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
012954,000026:                                                                                                  #  MOD NO - 4      DATE - 27 APRIL 1967      ASSEMBLY - PINDISK REV 17
012955,000027:                                                                                                  #  MOD BY - FILENE
012956,000028:                                                                                                  #  LOG SECTION - PINBALL GAME  BUTTONS AND LIGHTS
012957,000029: 
012958,000030:                                                                                                  #  FUNCTIONAL DESCRIPTION-
012959,000031: 
012960,000032:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
012961,000033:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
012962,000034:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
012963,000035:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
012964,000036:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
012965,000037:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
012966,000038:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
012967,000039:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
012968,000040:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
012969,000041: 
012970,000042:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
012971,000043:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
012972,000044:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
012973,000045:                                                                                                  #  :EXTENDED VERBS:).
012974,000046:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
012975,000047:                                                                                                  #  OPERATION INFORMATION:.
012976,000048: 
012977,000049: 
012978,000050:                                                                                                  #  CALLING SEQUENCES-
012979,000051: 
012980,000052:                                                                                                  #  KEYBOARD:
012981,000053:                                                                                                  #     EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
012982,000054:                                                                                                  #  INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO 
012983,000055:                                                                                                  #  CHANNEL 15 (CHANNEL 16).  KEYRUPT1 (KEYRUPT2) PLACES THE KEY
012984,000056:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
012985,000057:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
012986,000058: 
012987,000059:                                                                                                  #  UPLINK:
012988,000060:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
012989,000061:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
012990,000062:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
012991,000063: 
012992,000064:                                                                                                  #  INTERNAL PROGRAMS:
012993,000065:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
012994,000066:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
012995,000067:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
012996,000068:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
012997,000069: 
012998,000070: 
012999,000071:                                                                                                  #  NORMAL EXIT MODES-
013000,000072: 
013001,000073:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
013002,000074:                                                                                                  #           1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.

Page 301

013004,000076:                                                                                                  #           2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
013005,000077:                                                                                                  #              PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
013006,000078:                                                                                                  #              RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
013007,000079:                                                                                                  #              CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
013008,000080:                                                                                                  #              ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
013009,000081:                                                                                                  #           3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
013010,000082:                                                                                                  #              SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
013011,000083:                                                                                                  #              30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
013012,000084:                                                                                                  #           4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
013013,000085:                                                                                                  #              ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
013014,000086:                                                                                                  #              THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
013015,000087: 
013016,000088:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
013017,000089:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
013018,000090:                                                                                                  #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
013019,000091: 
013020,000092: 
013021,000093:                                                                                                  #  ALARM OR ABORT EXIT MODES-
013022,000094: 
013023,000095:                                                                                                  #  EXTERNAL INITIATION:
013024,000096:                                                                                                  #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
013025,000097:                                                                                                  #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
013026,000098: 
013027,000099:                                                                                                  #  INTERNAL PROGRAM INITIATION:
013028,000100:                                                                                                  #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
013029,000101:                                                                                                  #  (WITH OCTAL 01501).
013030,000102:                                                                                                  #     IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
013031,000103:                                                                                                  #  CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
013032,000104:                                                                                                  #           1) ENDIDLE OR DATAWAIT.
013033,000105:                                                                                                  #           2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
013034,000106: 
013035,000107:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
013036,000108:                                                                                                  #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
013037,000109: 
013038,000110: 
013039,000111:                                                                                                  #  OUTPUT-
013040,000112: 
013041,000113:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
013042,000114:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
013043,000115:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
013044,000116:                                                                                                  #  IN INTERRUPT.
013045,000117: 
013046,000118: 
013047,000119:                                                                                                  #  ERASABLE INITIALIZATION-
013048,000120: 
013049,000121:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
013050,000122:                                                                                                  #  PINBALL IN :STARTSUB:.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
013051,000123:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
013052,000124:                                                                                                  #  DSPCOUNT, NOUT.
013053,000125: 

Page 302

013055,000127: 
013056,000128:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
013057,000129:                                                                                                  #  PINBALL IS GIVEN BELOW.
013058,000130: 
013059,000131: 
013060,000132:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
013061,000133: 
013062,000134:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
013063,000135:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
013064,000136: 
013065,000137:                                                                                                  #     NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
013066,000138:                                                                                                  #               OF RELATED INTEREST   NVSBWAIT
013067,000139:                                                                                                  #                                     NVSUBUSY
013068,000140:                                                                                                  #                                     PRENVBSY
013069,000141: 
013070,000142:                                                                                                  #     ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
013071,000143:                                                                                                  #               AWAITING OPERATORS RESPONSE.
013072,000144: 
013073,000145:                                                                                                  #     DSPMM   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
013074,000146:                                                                                                  #             PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
013075,000147:                                                                                                  #             (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
013076,000148:                                                                                                  #             FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
013077,000149: 
013078,000150:                                                                                                  #     BLANKSUB   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
013079,000151:                                                                                                  #                COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
013080,000152: 
013081,000153:                                                                                                  #     JAMTERM   ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
013082,000154:                                                                                                  #     JAMPROC   TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
013083,000155: 
013084,000156:                                                                                                  #     MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
013085,000157: 
013086,000158:                                                                                                  #     PLEASE PERFORM, PLEASE MARK SITUATIONS
013087,000159:                                                                                                  #                  REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
013088,000160:                                                                                                  #                  THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
013089,000161:                                                                                                  #                  SYMBOL TABLE FOR PAGE NUMBER).
013090,000162: 
013091,000163:                                                                                                  #     THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
013092,000164:                                                                                                  #     BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
013093,000165: 
013094,000166:                                                                                                  #     THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
013095,000167:                                                                                                  #     TABLES:.
013096,000168: 
013097,000169: 
013098,000170:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
013099,000171:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
013100,000172:                                                                                                  #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
013101,000173: 
013102,000174: 
013103,000175:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
013104,000176: 
013105,000177:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT

Page 303

013107,000179:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
013108,000180:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
013109,000181: 
013110,000182:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4
013111,000183: 
013112,000184: 
013113,000185:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
013114,000186: 
013115,000187: 
013116,000188:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
013117,000189: 
013118,000190:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
013119,000191:                                                                                                  #  DECBRNCH      ERASE                   +DEC, - DEC, OCT INDICATOR
013120,000192:                                                                                                  #  VERBREG       ERASE                   VERB CODE
013121,000193:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
013122,000194:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
013123,000195:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
013124,000196:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
013125,000197:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
013126,000198:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
013127,000199:                                                                                                  #  HITEMOUT      =       YREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
013128,000200:                                                                                                  #                                                 MUST = LOTEMOUT-1.
013129,000201:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
013130,000202:                                                                                                  #  LOTEMOUT      =       ZREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
013131,000203:                                                                                                  #                                                 MUST = HITEMOUT+1.
013132,000204:                                                                                                  #  MODREG        ERASE                   MODE CODE
013133,000205:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
013134,000206:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
013135,000207:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
013136,000208:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
013137,000209:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
013138,000210:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
013139,000211:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
013140,000212:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR (MATBS) =MONSAVE +1
013141,000213:                                                                                                  #  MONSAVE2      ERASE                   NVMONOPT OPTIONS
013142,000214:                                                                                                  #  DSPTAB        ERASE           +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
013143,000215:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
013144,000216:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
013145,000217:                                                                                                  #                                        MUST = NVBNKTEM-1
013146,000218:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
013147,000219:                                                                                                  #                                        MUST = NVQTEM+1
013148,000220:                                                                                                  #  VERBSAVE      ERASE                   NEEDED FOR RECYCLE
013149,000221:                                                                                                  #  DSPLIST       ERASE                   WAITING REG FOR DSP SYST INTERNAL USE
013150,000222:                                                                                                  #  EXTVBACT      REASE                   EXTENDED VERB ACTIVITY INTERLOCK
013151,000223:                                                                                                  #  DSPTEM1       ERASE           +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
013152,000224:                                                                                                  #  DSPTEM2       ERASE           +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
013153,000225:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
013154,000226: 
013155,000227: 
013156,000228:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013157,000229: 

Page 304

013159,000231:                                                                                                  #  DSEXIT        =       INTB15+         RETURN FOR DSPIN
013160,000232:                                                                                                  #  EXITEM        =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
013161,000233:                                                                                                  #  BLANKRET      =       INTB15+         RETURN FOR 2BLANK
013162,000234: 
013163,000235:                                                                                                  #  WRDRET        =       INTBIT15        RETURN FOR 5BLANK
013164,000236:                                                                                                  #  WDRET         =       INTBIT15        RETURN FOR DSPWD
013165,000237:                                                                                                  #  DECRET        =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
013166,000238:                                                                                                  #  21/22REG      =       INTBIT15        TEMP FOR CHARIN
013167,000239: 
013168,000240:                                                                                                  #  UPDATRET      =       POLISH          RETURN FOR UPDATNN, UPDATVB
013169,000241:                                                                                                  #  CHAR          =       POLISH          TEMP FOR CHARIN
013170,000242:                                                                                                  #  ERCNT         =       POLISH          COUNTER FOR ERROR LIGHT RESET
013171,000243:                                                                                                  #  DECOUNT       =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
013172,000244: 
013173,000245:                                                                                                  #  SGNON         =       VBUF            TEMP FOR +,- ON
013174,000246:                                                                                                  #  NOUNTEM       =       VBUF            COUNTER FOR MIXNOUN FETCH
013175,000247:                                                                                                  #  DISTEM        =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
013176,000248:                                                                                                  #  DECTEM        =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
013177,000249: 
013178,000250:                                                                                                  #  SGNOFF        =       VBUF    +1      TEMP FOR +,- ON
013179,000251:                                                                                                  #  NVTEMP        =       VBUF    +1      TEMP FOR NVSUB
013180,000252:                                                                                                  #  SFTEMP1       =       VBUF    +1      STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
013181,000253:                                                                                                  #  HITEMIN       =       VBUF    +1      TEMP FOR LOAD OF HRS, MIN, SEC
013182,000254:                                                                                                  #                                                   MUST = LOTEMIN-1.
013183,000255:                                                                                                  #  CODE          =       VBUF    +2      FOR DSPIN
013184,000256:                                                                                                  #  SFTEMP2       =       VBUF    +2      STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
013185,000257:                                                                                                  #  LOTEMIN       =       VBUF    +2      TEMP FOR LOAD OF HRS, MIN, SEC
013186,000258:                                                                                                  #                                                   MUST = HITEMIN+1.
013187,000259:                                                                                                  #  MIXTEMP       =       VBUF    +3      FOR MIXNOUN DATA
013188,000260:                                                                                                  #  SIGNRET       =       VBUF    +3      RETURN FOR +,- ON
013189,000261: 
013190,000262:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
013191,000263: 
013192,000264:                                                                                                  #  ENTRET        =       DOTINC          EXIT FROM ENTER
013193,000265: 
013194,000266:                                                                                                  #  WDCNT         =       DOTRET          CHAR COUNTER FOR DSPWD
013195,000267:                                                                                                  #  INREL         =       DOTRET          INPUT BUFFER SELECTOR ( X, Y, Z, REG )
013196,000268: 
013197,000269:                                                                                                  #  DSPMMTEM      =       MATINC          DSPCOUNT SAVE FOR DSPMM
013198,000270:                                                                                                  #  MIXBR         =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
013199,000271: 
013200,000272:                                                                                                  #  TEM1          ERASE                   EXEC TEMP
013201,000273:                                                                                                  #  DSREL         =       TEM1            REL ADDRESS FOR DSPIN
013202,000274: 
013203,000275:                                                                                                  #  TEM2          ERASE                   EXEC TEMP
013204,000276:                                                                                                  #  DSMAG         =       TEM2            MAGNITUDE STORE FOR DSPIN
013205,000277:                                                                                                  #  IDADDTEM      =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
013206,000278: 
013207,000279:                                                                                                  #  TEM3          ERASE                   EXEC TEMP
013208,000280:                                                                                                  #  COUNT         =       TEM3            FOR DSPIN
013209,000281: 

Page 305

013211,000283:                                                                                                  #  TEM4          ERASE                   EXEC TEMP
013212,000284:                                                                                                  #  LSTPTR        =       TEM4            LIST POINTER FOR GRABUSY
013213,000285:                                                                                                  #  RELRET        =       TEM4            RETURN FOR RELDSP
013214,000286:                                                                                                  #  FREERET       =       TEM4            RETURN FOR FREEDSP
013215,000287:                                                                                                  #  DSPWDRET      =       TEM4            RETURN FOR DSPSIGN
013216,000288:                                                                                                  #  SEPSCRET      =       TEM4            RETURN FOR SEPSEC
013217,000289:                                                                                                  #  SEPMNRET      =       TEM4            RETURN FOR SEPMIN
013218,000290: 
013219,000291:                                                                                                  #  TEM5          ERASE                   EXEC TEMP
013220,000292:                                                                                                  #  NOUNADD       =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
013221,000293: 
013222,000294:                                                                                                  #  NNADTEM       ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
013223,000295:                                                                                                  #  NNTYPTEM      ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
013224,000296:                                                                                                  #  IDAD1TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
013225,000297:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
013226,000298:                                                                                                  #  IDAD2TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
013227,000299:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
013228,000300:                                                                                                  #  IDAD3TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
013229,000301:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
013230,000302:                                                                                                  #  RUTMXTEM      ERASE                   TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
013231,000303:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013232,000304: 
013233,000305: 
013234,000306:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013235,000307: 
013236,000308:                                                                                                  #  MPAC, THRU MPAC +6
013237,000309:                                                                                                  #  BUF, +1, +2
013238,000310:                                                                                                  #  BUF2, +1, +2
013239,000311:                                                                                                  #  MPTEMP
013240,000312:                                                                                                  #  ADDRWD
013241,000313:                                                                                                  #    END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
013242,000314: 
013243,000315: 
013244,000316:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
013245,000317: 
013246,000318:                                                                                                  #  DSPCNT        ERASE                   COUNTER FOR DSPOUT
013247,000319:                                                                                                  #  UPLOCK        ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
013248,000320:                                                                                                  #                                                                                  RECEPTION OF A BAD MESSAGE IN UPLINK)
013249,000321:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
013250,000322: 
013251,000323: 
013252,000324:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
013253,000325: 
013254,000326:                                                                                                  #  KEYTEMP1      =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
013255,000327:                                                                                                  #  DSRUPTEM      =       WAITEXIT        TEMP FOR DSPOUT
013256,000328:                                                                                                  #  KEYTEMP2      =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
013257,000329:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
013258,000330: 

Page 306

013260,000332:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
013261,000333:                                                                                                  #  0        10000
013262,000334:                                                                                                  #  1        00001
013263,000335:                                                                                                  #  9        01001
013264,000336:                                                                                                  #  VERB     10001
013265,000337:                                                                                                  #  ERROR RES10010
013266,000338:                                                                                                  #  KEY RLSE 11001
013267,000339:                                                                                                  #  +        11010
013268,000340:                                                                                                  #  -        11011
013269,000341:                                                                                                  #  ENTER    11100
013270,000342:                                                                                                  #  CLEAR    11110
013271,000343:                                                                                                  #  NOUN     11111
013272,000344: 
013273,000345: 
013274,000346:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
013275,000347:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
013276,000348:                                                                                                  #  ENERGIZED.
013277,000349:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
013278,000350:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
013279,000351:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
013280,000352: 
013281,000353:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
013282,000354:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
013283,000355:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
013284,000356:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
013285,000357:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
013286,000358:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
013287,000359: 
013288,000360:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
013289,000361:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
013290,000362:                                                                                                  #  MD2   24     R2D2  10
013291,000363:                                                                                                  #  VD1   23     R2D3   7
013292,000364:                                                                                                  #  VD2   22     R2D4   6
013293,000365:                                                                                                  #  ND1   21     R2D5   5
013294,000366:                                                                                                  #  ND2   20     R3D1   4
013295,000367:                                                                                                  #  R1D1  16     R3D2   3
013296,000368:                                                                                                  #  R1D2  15     R3D3   2
013297,000369:                                                                                                  #  R1D3  14     R3D4   1
013298,000370:                                                                                                  #  R1D4  13     R3D5   0
013299,000371:                                                                                                  #  R1D5  12
013300,000372: 
013301,000373: 
013302,000374:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
013303,000375: 
013304,000376:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
013305,000377:                                                                                                  #  RELADD
013306,000378:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
013307,000379:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)
013308,000380:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
013309,000381:                                                                                                  #  7      1000                                  R1D1 (16)

Page 307

013311,000383:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
013312,000384:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
013313,000385:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
013314,000386:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
013315,000387:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
013316,000388:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
013317,000389:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
013318,000390:                                                                                                  #         0000   NO RELAYWORD
013319,000391: 
013320,000392: 
013321,000393:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
013322,000394:                                                                                                  #  BLANK      00000
013323,000395:                                                                                                  #  0          10101
013324,000396:                                                                                                  #  1          00011
013325,000397:                                                                                                  #  2          11001
013326,000398:                                                                                                  #  3          11011
013327,000399:                                                                                                  #  4          01111
013328,000400:                                                                                                  #  5          11110
013329,000401:                                                                                                  #  6          11100
013330,000402:                                                                                                  #  7          10011
013331,000403:                                                                                                  #  8          11101
013332,000404:                                                                                                  #  9          11111
013333,000405: 
013334,000406: 
013335,000407:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
013336,000408: 
013337,000409:                                                                                                  #             KEY RELEASE LIGHT    - BIT 5 OF CHANNEL 11
013338,000410:                                                                                                  #             VERB/NOUN FLASH      - BIT 6 OF CHANNEL 11
013339,000411:                                                                                                  #             OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
013340,000412: 

Page 308

013342,000414: 
013343,000415:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
013344,000416: 
013345,000417: 40,2000                                           BANK     40                                    
013346,000418: 40,2000                                           SETLOC   PINBALL1                              
013347,000419: 40,2000                                           BANK                                           
013348,000420: 
013349,000421: 40,2000                                           COUNT    40/PIN                                
013350,000422: 
013351,000423: 40,2000           34712        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
013352,000424: 40,2001           57012                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
013353,000425: 40,2002           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
013354,000426: 40,2003           11042                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
013355,000427: 40,2004           02006                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
013356,000428: 40,2005           02013                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
013357,000429: 40,2006           42057                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
013358,000430: 40,2007           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
013359,000431: 40,2010           00006                           EXTEND                                         #  VBRELDSP).
013360,000432: 40,2011           12013                           BZF      CHARIN2                               
013361,000433: 40,2012           04410                           TC       RELDSPON                              
013362,000434: 40,2013           56154        CHARIN2            XCH      MPAC                                  
013363,000435: 40,2014           54117                           TS       CHAR                                  
013364,000436: 40,2015           50000                           INDEX    A                                     
013365,000437: 40,2016           02017                           TC       +1                                    #  INPUT CODE     FUNCTION
013366,000438: 40,2017           03335                           TC       CHARALRM                              #  0
013367,000439: 40,2020           02076                           TC       NUM                                   #  1
013368,000440: 40,2021           02076                           TC       NUM                                   #  2
013369,000441: 40,2022           02076                           TC       NUM                                   #  3
013370,000442: 40,2023           02076                           TC       NUM                                   #  4
013371,000443: 40,2024           02076                           TC       NUM                                   #  5
013372,000444: 40,2025           02076                           TC       NUM                                   #  6
013373,000445: 40,2026           02076                           TC       NUM                                   #  7
013374,000446: 40,2027           02062                           TC       89TEST                                #  10                 8
013375,000447: 40,2030           02062                           TC       89TEST                                #  11                 9
013376,000448: 40,2031           03335                           TC       CHARALRM                              #  12
013377,000449: 40,2032           03335                           TC       CHARALRM                              #  13
013378,000450: 40,2033           03335                           TC       CHARALRM                              #  14
013379,000451: 40,2034           03335                           TC       CHARALRM                              #  15
013380,000452: 40,2035           03335                           TC       CHARALRM                              #  16
013381,000453: 40,2036           03335                           TC       CHARALRM                              #  17
013382,000454: 40,2037           02074                           TC       NUM        -2                         #  20                 0
013383,000455: 40,2040           02255                           TC       VERB                                  #  21                 VERB
013384,000456: 40,2041           03504                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
013385,000457: 40,2042           03335                           TC       CHARALRM                              #  23
013386,000458: 40,2043           03335                           TC       CHARALRM                              #  24
013387,000459: 40,2044           03335                           TC       CHARALRM                              #  25
013388,000460: 40,2045           03335                           TC       CHARALRM                              #  26
013389,000461: 40,2046           03335                           TC       CHARALRM                              #  27
013390,000462: 40,2047           03335                           TC       CHARALRM                              #  30
013391,000463: 40,2050           03362                           TC       VBRELDSP                              #  31                 KEY RELEASE

Page 309

013393,000465: 40,2051           02310                           TC       POSGN                                 #  32                 +
013394,000466: 40,2052           02275                           TC       NEGSGN                                #  33                 -
013395,000467: 40,2053           02060                           TC       ENTERJMP                              #  34                 ENTER
013396,000468: 40,2054           03335                           TC       CHARALRM                              #  35
013397,000469: 40,2055           02370                           TC       CLEAR                                 #  36                 CLEAR
013398,000470: 40,2056           02271                           TC       NOUN                                  #  37                 NOUN
013399,000471: 
013400,000472: 
013401,000473: 40,2057           00022        ELRCODE1           OCT      22                                    
013402,000474: 40,2060           04574        ENTERJMP           TC       POSTJUMP                              
013403,000475: 40,2061           62002                           CADR     ENTER                                 
013404,000476: 
013405,000477: 40,2062           10777        89TEST             CCS      DSPCOUNT                              
013406,000478: 40,2063           02067                           TC       +4                                    #  +
013407,000479: 40,2064           02067                           TC       +3                                    #  +0
013408,000480: 40,2065           05112                           TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
013409,000481: 40,2066           05112                           TC       ENDOFJOB                              #  -0
013410,000482: 40,2067           36214                           CAF      THREE                                 
013411,000483: 40,2070           71000                           MASK     DECBRNCH                              
013412,000484: 40,2071           10000                           CCS      A                                     
013413,000485: 40,2072           02076                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
013414,000486: 40,2073           03335                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
013415,000487: 
013416,000488: 
013417,000489:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
013418,000490:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
013419,000491:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
013420,000492:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
013421,000493:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
013422,000494:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
013423,000495: 
013424,000496: 40,2074           34714                           CAF      ZERO                                  
013425,000497: 40,2075           54117                           TS       CHAR                                  
013426,000498: 40,2076           10777        NUM                CCS      DSPCOUNT                              
013427,000499: 40,2077           02103                           TC       +4                                    #  +
013428,000500: 40,2100           02103                           TC       +3                                    #  +0
013429,000501: 40,2101           02102                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
013430,000502: 40,2102           05112                           TC       ENDOFJOB                              #  -0
013431,000503: 40,2103           02225                           TC       GETINREL                              
013432,000504: 40,2104           11015                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
013433,000505: 40,2105           34714                           CAF      ZERO                                  
013434,000506: 40,2106           55015                           TS       CLPASS                                
013435,000507: 40,2107           02110                           TC       +1                                    
013436,000508: 40,2110           50117                           INDEX    CHAR                                  
013437,000509: 40,2111           34072                           CAF      RELTAB                                
013438,000510: 40,2112           74362                           MASK     LOW5                                  
013439,000511: 40,2113           54124                           TS       CODE                                  
013440,000512: 40,2114           30777                           CA       DSPCOUNT                              
013441,000513: 40,2115           54143                           TS       COUNT                                 
013442,000514: 40,2116           03225                           TC       DSPIN                                 

Page 310

013444,000516: 40,2117           36214                           CAF      THREE                                 
013445,000517: 40,2120           71000                           MASK     DECBRNCH                              
013446,000518: 40,2121           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
013447,000519: 40,2122           02133                           TC       DECTOBIN                              #  +
013448,000520: 40,2123           50137                           INDEX    INREL                                 #  +0 OCTAL
013449,000521: 40,2124           57001                           XCH      VERBREG                               
013450,000522: 40,2125           54022                           TS       CYL                                   
013451,000523: 40,2126           40022                           CS       CYL                                   
013452,000524: 40,2127           40022                           CS       CYL                                   
013453,000525: 40,2130           56022                           XCH      CYL                                   
013454,000526: 40,2131           60117                           AD       CHAR                                  
013455,000527: 40,2132           02150                           TC       ENDNMTST                              
013456,000528: 40,2133           50137        DECTOBIN           INDEX    INREL                                 
013457,000529: 40,2134           57001                           XCH      VERBREG                               
013458,000530: 40,2135           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
013459,000531: 40,2136           34714                           CAF      ZERO                                  
013460,000532: 40,2137           54155                           TS       MPAC       +1                         
013461,000533: 40,2140           34377                           CAF      TEN                                   #  10 X 2EXP-14
013462,000534: 40,2141           07256                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
013463,000535: 40,2142           56155                           XCH      MPAC       +1                         
013464,000536: 40,2143           60117                           AD       CHAR                                  
013465,000537: 40,2144           54155                           TS       MPAC       +1                         
013466,000538: 40,2145           02150                           TC       ENDNMTST                              #  NO OF
013467,000539: 40,2146           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
013468,000540: 40,2147           02166                           TC       DECEND                                
013469,000541: 40,2150           50137        ENDNMTST           INDEX    INREL                                 
013470,000542: 40,2151           55001                           TS       VERBREG                               
013471,000543: 40,2152           40777                           CS       DSPCOUNT                              
013472,000544: 40,2153           50137                           INDEX    INREL                                 
013473,000545: 40,2154           62216                           AD       CRITCON                               
013474,000546: 40,2155           00006                           EXTEND                                         
013475,000547: 40,2156           12160                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
013476,000548: 40,2157           02213                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
013477,000549: 40,2160           36214        ENDNUM             CAF      THREE                                 
013478,000550: 40,2161           71000                           MASK     DECBRNCH                              
013479,000551: 40,2162           10000                           CCS      A                                     
013480,000552: 40,2163           02166                           TC       DECEND                                
013481,000553: 40,2164           40777        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
013482,000554: 40,2165           02214                           TC       MORNUM     +1                         #  NEGATIVELY
013483,000555: 40,2166           44712        DECEND             CS       ONE                                   
013484,000556: 40,2167           60137                           AD       INREL                                 
013485,000557: 40,2170           00006                           EXTEND                                         
013486,000558: 40,2171           62164                           BZMF     ENDALL                                #  IF INREL=0,1(VBREG,NNREG), LEAVE WHOLE
013487,000559: 40,2172           07052                           TC       DMP                                   #  IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC
013488,000560:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
013489,000561: 40,2173           02223                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
013490,000562: 40,2174           36214                           CAF      THREE                                 #  IN MPAC, +1, +2.
013491,000563: 40,2175           71000                           MASK     DECBRNCH                              
013492,000564: 40,2176           50000                           INDEX    A                                     
013493,000565: 40,2177           02177                           TC       +0                                    

Page 311

013495,000567: 40,2200           02204                           TC       +DECSGN                               
013496,000568: 40,2201           00006                           EXTEND                                         #  - CASE
013497,000569: 40,2202           40156                           DCS      MPAC       +1                         
013498,000570: 40,2203           52156                           DXCH     MPAC       +1                         
013499,000571: 40,2204           56156        +DECSGN            XCH      MPAC       +2                         
013500,000572: 40,2205           50137                           INDEX    INREL                                 
013501,000573: 40,2206           55004                           TS       XREGLP     -2                         
013502,000574: 40,2207           56155                           XCH      MPAC       +1                         
013503,000575: 40,2210           50137                           INDEX    INREL                                 
013504,000576: 40,2211           55001                           TS       VERBREG                               
013505,000577: 40,2212           02164                           TC       ENDALL                                
013506,000578: 40,2213           10777        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
013507,000579: 40,2214           54777                           TS       DSPCOUNT                              
013508,000580: 40,2215           05112                           TC       ENDOFJOB                              
013509,000581: 
013510,000582: 40,2216           00022        CRITCON            OCT      22                                    #  (DEC 18)
013511,000583: 40,2217           00020                           OCT      20                                    #  (DEC 16)
013512,000584: 40,2220           00012                           OCT      12                                    #  (DEC 10)
013513,000585: 40,2221           00005                           OCT      5                                     
013514,000586: 40,2222           00000                           OCT      0                                     
013515,000587: 
013516,000588: 40,2223           05174 13261  DECON              2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
013517,000589: 
013518,000590: 
013519,000591:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
013520,000592:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
013521,000593: 
013522,000594: 40,2225           50777        GETINREL           INDEX    DSPCOUNT                              
013523,000595: 40,2226           32231                           CAF      INRELTAB                              
013524,000596: 40,2227           54137                           TS       INREL                                 #  (A TEMP, REG)
013525,000597: 40,2230           00002                           TC       Q                                     
013526,000598: 
013527,000599: 40,2231           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
013528,000600: 40,2232           00004                           OCT      4                                     #  R3D4           =(1)
013529,000601: 40,2233           00004                           OCT      4                                     #  R3D3           =(2)
013530,000602: 40,2234           00004                           OCT      4                                     #  R3D2           =(3)
013531,000603: 40,2235           00004                           OCT      4                                     #  R3D1           =(4)
013532,000604: 40,2236           00003                           OCT      3                                     #  R2D5           =(5)
013533,000605: 40,2237           00003                           OCT      3                                     #  R2D4           =(6)
013534,000606: 40,2240           00003                           OCT      3                                     #  R2D3           =(7)
013535,000607: 40,2241           00003                           OCT      3                                     #  R2D2           =(8D)
013536,000608: 40,2242           00003                           OCT      3                                     #  R2D1           =(9D)
013537,000609: 40,2243           00002                           OCT      2                                     #  R1D5           =(10D)
013538,000610: 40,2244           00002                           OCT      2                                     #  R1D4           =(11D)
013539,000611: 40,2245           00002                           OCT      2                                     #  R1D3           =(12D)
013540,000612: 40,2246           00002                           OCT      2                                     #  R1D2           =(13D)
013541,000613: 40,2247           00002                           OCT      2                                     #  R1D1           =(14D)
013542,000614: 40,2250           05642                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
013543,000615: 40,2251           00001                           OCT      1                                     #  ND2            =(16D)

Page 312

013545,000617: 40,2252           00001                           OCT      1                                     #  ND1            =(17D)
013546,000618: 40,2253           00000                           OCT      0                                     #  VD2            =(18D)
013547,000619: 40,2254           00000                           OCT      0                                     #  VD1            =(19D)
013548,000620: 
013549,000621: 40,2255           34714        VERB               CAF      ZERO                                  
013550,000622: 40,2256           55001                           TS       VERBREG                               
013551,000623: 40,2257           34374                           CAF      VD1                                   
013552,000624: 40,2260           54777        NVCOM              TS       DSPCOUNT                              
013553,000625: 40,2261           02502                           TC       2BLANK                                
013554,000626: 40,2262           34712                           CAF      ONE                                   
013555,000627: 40,2263           55000                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
013556,000628: 40,2264           34714                           CAF      ZERO                                  
013557,000629: 40,2265           55013                           TS       REQRET                                #  SET FOR ENTPAS0
013558,000630: 40,2266           34233                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
013559,000631: 40,2267           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
013560,000632:                                                                                                  #  TO TC ENDOFJOB
013561,000633: 40,2270           05112                           TC       ENDOFJOB                              
013562,000634: 40,2271           34714        NOUN               CAF      ZERO                                  
013563,000635: 40,2272           55002                           TS       NOUNREG                               
013564,000636: 40,2273           34375                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
013565,000637: 40,2274           02260                           TC       NVCOM                                 
013566,000638: 
013567,000639: 
013568,000640: 40,2275           02347        NEGSGN             TC       SIGNTEST                              
013569,000641: 40,2276           02334                           TC       -ON                                   
013570,000642: 40,2277           34711                           CAF      TWO                                   
013571,000643: 40,2300           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
013572,000644: 40,2301           64704                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
013573,000645: 40,2302           27000                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
013574,000646: 40,2303           11015        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
013575,000647: 40,2304           34714                           CAF      ZERO                                  
013576,000648: 40,2305           55015                           TS       CLPASS                                
013577,000649: 40,2306           02307                           TC       +1                                    
013578,000650: 40,2307           05112                           TC       ENDOFJOB                              
013579,000651: 
013580,000652: 40,2310           02347        POSGN              TC       SIGNTEST                              
013581,000653: 40,2311           02314                           TC       +ON                                   
013582,000654: 40,2312           34712                           CAF      ONE                                   
013583,000655: 40,2313           02300                           TC       BOTHSGN                               
013584,000656: 
013585,000657: 40,2314           22002        +ON                LXCH     Q                                     
013586,000658: 40,2315           02225                           TC       GETINREL                              
013587,000659: 40,2316           50137                           INDEX    INREL                                 
013588,000660: 40,2317           32342                           CAF      SGNTAB     -2                         
013589,000661: 40,2320           54123                           TS       SGNOFF                                
013590,000662: 40,2321           64712                           AD       ONE                                   
013591,000663: 40,2322           54122                           TS       SGNON                                 
013592,000664: 40,2323           34714        SGNCOM             CAF      ZERO                                  
013593,000665: 40,2324           54124                           TS       CODE                                  

Page 313

013595,000667: 40,2325           56123                           XCH      SGNOFF                                
013596,000668: 40,2326           03307                           TC       11DSPIN                               
013597,000669: 40,2327           34700                           CAF      BIT11                                 
013598,000670: 40,2330           54124                           TS       CODE                                  
013599,000671: 40,2331           56122                           XCH      SGNON                                 
013600,000672: 40,2332           03307                           TC       11DSPIN                               
013601,000673: 40,2333           00001                           TC       L                                     
013602,000674: 40,2334           22002        -ON                LXCH     Q                                     
013603,000675: 40,2335           02225                           TC       GETINREL                              
013604,000676: 40,2336           50137                           INDEX    INREL                                 
013605,000677: 40,2337           32342                           CAF      SGNTAB     -2                         
013606,000678: 40,2340           54122                           TS       SGNON                                 
013607,000679: 40,2341           64712                           AD       ONE                                   
013608,000680: 40,2342           54123                           TS       SGNOFF                                
013609,000681: 40,2343           02323                           TC       SGNCOM                                
013610,000682: 
013611,000683: 40,2344           00005        SGNTAB             OCT      5                                     #  -R1
013612,000684: 40,2345           00003                           OCT      3                                     #  -R2
013613,000685: 40,2346           00000                           OCT      0                                     #  -R3
013614,000686: 
013615,000687: 40,2347           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
013616,000688: 40,2350           36214                           CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
013617,000689: 40,2351           71000                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
013618,000690: 40,2352           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
013619,000691: 40,2353           05112                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
013620,000692: 40,2354           44333                           CS       R1D1                                  
013621,000693: 40,2355           02363                           TC       SGNTST1                               
013622,000694: 40,2356           44334                           CS       R2D1                                  
013623,000695: 40,2357           02363                           TC       SGNTST1                               
013624,000696: 40,2360           44335                           CS       R3D1                                  
013625,000697: 40,2361           02363                           TC       SGNTST1                               
013626,000698: 40,2362           05112                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
013627,000699: 40,2363           60777        SGNTST1            AD       DSPCOUNT                              
013628,000700: 40,2364           00006                           EXTEND                                         
013629,000701: 40,2365           12367                           BZF      +2                                    #  MATCH FOUND
013630,000702: 40,2366           00002                           TC       Q                                     
013631,000703: 40,2367           00001                           TC       L                                     #  SIGN LEGAL
013632,000704: 
013633,000705: 
013634,000706:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
013635,000707:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
013636,000708:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
013637,000709: 
013638,000710:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
013639,000711:                                                                                                  #  APPROPRIATE TO BE CLEARED.
013640,000712: 
013641,000713:                                                                                                  #  CLPASS   +0  PASS0, CAN BE BACKED UP
013642,000714:                                                                                                  #           +NZ  HIPASS, CAN BE BACKED UP
013643,000715:                                                                                                  #           -NZ  PASS0, CANNOT BE BACKED UP
013644,000716: 

Page 314

013646,000718: 40,2370           10777        CLEAR              CCS      DSPCOUNT                              
013647,000719: 40,2371           64712                           AD       ONE                                   
013648,000720: 40,2372           02374                           TC       +2                                    
013649,000721: 40,2373           64712                           AD       ONE                                   
013650,000722: 40,2374           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
013651,000723: 40,2375           32231                           CAF      INRELTAB                              #  FAIL LEGALTST.
013652,000724: 40,2376           54137                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
013653,000725: 40,2377           11015                           CCS      CLPASS                                
013654,000726: 40,2400           02406                           TC       CLPASHI                               #  +
013655,000727: 40,2401           02403                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
013656,000728: 40,2402           02403                           TC       +1                                    #  -
013657,000729: 40,2403           30137                           CA       INREL                                 
013658,000730: 40,2404           02430                           TC       LEGALTST                              
013659,000731: 40,2405           02423                           TC       CLEAR1                                
013660,000732: 40,2406           10137        CLPASHI            CCS      INREL                                 
013661,000733: 40,2407           54137                           TS       INREL                                 
013662,000734: 40,2410           02430                           TC       LEGALTST                              
013663,000735: 40,2411           32500                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
013664,000736: 40,2412           27013                           ADS      REQRET                                
013665,000737: 40,2413           30137                           CA       INREL                                 
013666,000738: 40,2414           54125                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
013667,000739: 40,2415           00006                           EXTEND                                         
013668,000740: 40,2416           27001                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
013669,000741: 40,2417           04555                           TC       BANKCALL                              
013670,000742: 40,2420           62337                           CADR     UPDATVB                               
013671,000743: 40,2421           30125                           CA       MIXTEMP                               
013672,000744: 40,2422           54137                           TS       INREL                                 #  RESTORE INREL
013673,000745: 40,2423           02426        CLEAR1             TC       CLR5                                  
013674,000746: 40,2424           25015                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
013675,000747: 40,2425           05112                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
013676,000748: 40,2426           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
013677,000749: 40,2427           02441                           TC       5BLANK     +2                         
013678,000750: 40,2430           67715        LEGALTST           AD       NEG2                                  
013679,000751: 40,2431           10000                           CCS      A                                     
013680,000752: 40,2432           00002                           TC       Q                                     #  LEGAL  INREL G/ 2
013681,000753: 40,2433           05642                           TC       CCSHOLE                               
013682,000754: 40,2434           05112                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
013683,000755: 40,2435           00002                           TC       Q                                     #  LEGAL    INREL = 2
013684,000756: 
013685,000757: 
013686,000758:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
013687,000759:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
013688,000760:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
013689,000761: 
013690,000762: 40,2436           54777                           TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
013691,000763: 40,2437           22002        5BLANK             LXCH     Q                                     
013692,000764: 40,2440           02225                           TC       GETINREL                              
013693,000765: 40,2441           34714                           CAF      ZERO                                  
013694,000766: 40,2442           50137                           INDEX    INREL                                 
013695,000767: 40,2443           55001                           TS       VERBREG                               #  ZERO X, Y, Z REG.

Page 315

013697,000769: 40,2444           50137                           INDEX    INREL                                 
013698,000770: 40,2445           55004                           TS       XREGLP     -2                         
013699,000771: 40,2446           54124                           TS       CODE                                  
013700,000772: 40,2447           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
013701,000773: 40,2450           44704                           CS       BIT7                                  #  PROTECT OTHERS
013702,000774: 40,2451           71000                           MASK     DECBRNCH                              
013703,000775: 40,2452           72501                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
013704,000776: 40,2453           55000                           TS       DECBRNCH                              
013705,000777: 40,2454           50137                           INDEX    INREL                                 
013706,000778: 40,2455           32471                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
013707,000779: 40,2456           54143                           TS       COUNT                                 
013708,000780: 40,2457           03225                           TC       DSPIN                                 
013709,000781: 40,2460           50137        5BLANK1            INDEX    INREL                                 
013710,000782: 40,2461           32474                           CAF      DOUBLK     -2                         
013711,000783: 40,2462           54777                           TS       DSPCOUNT                              
013712,000784: 40,2463           02502                           TC       2BLANK                                
013713,000785: 40,2464           44711                           CS       TWO                                   
013714,000786: 40,2465           26777                           ADS      DSPCOUNT                              
013715,000787: 40,2466           02502                           TC       2BLANK                                
013716,000788: 40,2467           50137                           INDEX    INREL                                 
013717,000789: 40,2470           34331                           CAF      R1D1       -2                         
013718,000790: 40,2471           54777                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
013719,000791: 40,2472           00001                           TC       L                                     #  OF REG. JUST BLANKED
013720,000792: 
013721,000793: 40,2473           00016        SINBLANK           OCT      16                                    #  DEC 14
013722,000794: 40,2474           00005                           OCT      5                                     
013723,000795: 40,2475           00004                           OCT      4                                     
013724,000796: 40,2476           00015        DOUBLK             OCT      15                                    #  DEC 13
013725,000797: 40,2477           00011                           OCT      11                                    #  DEC 9
013726,000798: 40,2500           00003                           OCT      3                                     
013727,000799: 
013728,000800: 40,2501           77774        BRNCHCON           OCT      77774                                 
013729,000801: 
013730,000802:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
013731,000803:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
013732,000804: 
013733,000805: 40,2502           30777        2BLANK             CA       DSPCOUNT                              
013734,000806: 40,2503           54021                           TS       SR                                    
013735,000807: 40,2504           42515                           CS       BLANKCON                              
013736,000808: 40,2505           00004                           INHINT                                         
013737,000809: 40,2506           50021                           INDEX    SR                                    
013738,000810: 40,2507           57023                           XCH      DSPTAB                                
013739,000811: 40,2510           00006                           EXTEND                                         
013740,000812: 40,2511           62513                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
013741,000813: 40,2512           25016                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
013742,000814: 40,2513           00003                           RELINT                                         #  IF -,NOUT OK
013743,000815: 40,2514           00002                           TC       Q                                     
013744,000816: 40,2515           04000        BLANKCON           OCT      4000                                  
013745,000817: 
013746,000818: 

Page 316

013748,000820: 
013749,000821:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
013750,000822:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
013751,000823:                                                                                                  #  PASSES.
013752,000824: 
013753,000825: 
013754,000826:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
013755,000827:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
013756,000828:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
013757,000829: 
013758,000830: 
013759,000831: 41,2000                                           BANK     41                                    
013760,000832: 41,2000                                           SETLOC   PINBALL2                              
013761,000833: 41,2000                                           BANK                                           
013762,000834: 
013763,000835: 41,2000                                           COUNT    41/PIN                                
013764,000836: 
013765,000837: 41,2000           03534        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
013766,000838: 41,2001           02771        LOADLV1            TC       LOADLV                                
013767,000839:                                                                                                  #                                                                          END OF STANDARD LEAD INS.
013768,000840: 
013769,000841: 41,2002           34714        ENTER              CAF      ZERO                                  
013770,000842: 41,2003           55015                           TS       CLPASS                                
013771,000843: 41,2004           34233                           CAF      ENDINST                               
013772,000844: 41,2005           54136                           TS       ENTRET                                
013773,000845: 41,2006           11013                           CCS      REQRET                                
013774,000846: 41,2007           02035                           TC       ENTPAS0                               #  IF +, PASS 0
013775,000847: 41,2010           02035                           TC       ENTPAS0                               #  IF +, PASS 0
013776,000848: 41,2011           02012                           TC       +1                                    #  IF -, NOT PASS 0
013777,000849: 41,2012           32033        ENTPASHI           CAF      MMADREF                               
013778,000850: 41,2013           61013                           AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
013779,000851: 41,2014           00006                           EXTEND                                         #  AND RECYCLE (DECIDE AT MMCHANG+1).
013780,000852: 41,2015           12027                           BZF      ACCEPTWD                              
013781,000853: 41,2016           36214                           CAF      THREE                                 #  IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
013782,000854: 41,2017           71000                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
013783,000855: 41,2020           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
013784,000856: 41,2021           02023                           TC       +2                                    #  CHARACTERS AND CONTINUE.
013785,000857: 41,2022           02027                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
013786,000858: 41,2023           10777                           CCS      DSPCOUNT                              
013787,000859: 41,2024           02350                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
013788,000860: 41,2025           02350                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
013789,000861: 41,2026           02027                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
013790,000862: 41,2027           41013        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
013791,000863: 41,2030           55013                           TS       REQRET                                #  SET REQRET +.
013792,000864: 41,2031           04447                           TC       FLASHOFF                              
013793,000865: 41,2032           01013                           TC       REQRET                                
013794,000866: 
013795,000867: 41,2033     0136               ENTEXIT            =        ENTRET                                
013796,000868: 
013797,000869: 41,2033           03421        MMADREF            ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
013798,000870: 

Page 317

013800,000872: 41,2034           00034        LOWVERB            DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
013801,000873: 
013802,000874: 41,2035           34714        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
013803,000875: 41,2036           55000                           TS       DECBRNCH                              
013804,000876: 41,2037           44374                           CS       VD1                                   #  BLOCK FURTHER NUM CHAR, SO THAT STRAY
013805,000877: 41,2040           54777                           TS       DSPCOUNT                              #  CHAR DO NOT GET INTO VERB OR NOUN LTS.
013806,000878: 41,2041           41001        TESTVB             CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
013807,000879: 41,2042           55041                           TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
013808,000880: 41,2043           62034                           AD       LOWVERB                               #  LOWVERB - VB
013809,000881: 41,2044           00006                           EXTEND                                         
013810,000882: 41,2045           62133                           BZMF     VERBFAN                               #  VERB G/ E LOWVERB
013811,000883: 41,2046           00006        TESTNN             EXTEND                                         #  VERB L/ LOWVERB
013812,000884: 41,2047           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
013813,000885: 41,2050           52006                           DXCH     Z                                     #  ROUTINE.
013814,000886: 41,2051           50140                           INDEX    MIXBR                                 
013815,000887: 41,2052           02052                           TC       +0                                    
013816,000888: 41,2053           02055                           TC       +2                                    #  NORMAL
013817,000889: 41,2054           02221                           TC       MIXNOUN                               #  MIXED
013818,000890: 41,2055           10146                           CCS      NNADTEM                               #  NORMAL
013819,000891: 41,2056           02131                           TC       VERBFAN    -2                         #        NORMAL IF +
013820,000892: 41,2057           02350                           TC       GODSPALM                              #  NOT IN USE    IF +0
013821,000893: 41,2060           02064                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
013822,000894: 41,2061           25017                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
013823,000895: 41,2062           04325                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
013824,000896: 41,2063           02120                           TC       INTMCTBS   +2                         
013825,000897: 41,2064           34674        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
013826,000898: 41,2065           55015                           TS       CLPASS                                
013827,000899: 41,2066           44233                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
013828,000900: 41,2067           60136                           AD       ENTEXIT                               #              FROM EXTERNAL
013829,000901: 41,2070           00006                           EXTEND                                         
013830,000902: 41,2071           12073                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
013831,000903: 41,2072           02116                           TC       INTMCTBS                              
013832,000904: 41,2073           02306                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
013833,000905: 41,2074           11000                           CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
013834,000906: 41,2075           04161                           TC       ALMCYCLE                              #  FOR MCTBS.
013835,000907: 41,2076           44374                           CS       VD1                                   #  OCTAL USED OK
013836,000908: 41,2077           54777                           TS       DSPCOUNT                              #  BLOCK NUM CHAR IN
013837,000909: 41,2100           11042                           CCS      CADRSTOR                              
013838,000910: 41,2101           02104                           TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
013839,000911: 41,2102           02105                           TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
013840,000912: 41,2103           02104                           TC       +1                                    
013841,000913: 41,2104           04443                           TC       FLASHON                               
013842,000914: 41,2105           57005        USEADD             XCH      ZREG                                  
013843,000915: 41,2106           04317                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
013844,000916: 41,2107           00006                           EXTEND                                         
013845,000917: 41,2110           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
013846,000918: 41,2111           52006                           DXCH     Z                                     #  ROUTINE.
013847,000919: 41,2112           02133                           TC       VERBFAN                               
013848,000920: 
013849,000921: 41,2113     0777                                  EBANK=   DSPCOUNT                              

Page 318

013851,000923: 41,2113           02062 64101  LODNNLOC           2CADR    LODNNTAB                              
013852,000924: 
013853,000925: 41,2115           77772        NEG5               OCT      77772                                 
013854,000926: 
013855,000927: 41,2116           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
013856,000928: 41,2117           04317                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
013857,000929: 41,2120           44715                           CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
013858,000930: 41,2121           61001                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
013859,000931: 41,2122           00006                           EXTEND                                         
013860,000932: 41,2123           12133                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
013861,000933: 41,2124           34335                           CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
013862,000934: 41,2125           54777                           TS       DSPCOUNT                              
013863,000935: 41,2126           31017                           CA       NOUNCADR                              
013864,000936: 41,2127           03353                           TC       DSPOCTWD                              
013865,000937: 41,2130           02133                           TC       VERBFAN                               
013866,000938: 
013867,000939: 41,2131           64712                           AD       ONE                                   
013868,000940: 41,2132           04317                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
013869,000941: 41,2133           42145        VERBFAN            CS       LST2CON                               
013870,000942: 41,2134           61001                           AD       VERBREG                               #  VERB-LST2CON
013871,000943: 41,2135           10000                           CCS      A                                     
013872,000944: 41,2136           64712                           AD       ONE                                   #  VERB G/ LST2CON
013873,000945: 41,2137           02141                           TC       +2                                    
013874,000946: 41,2140           02146                           TC       VBFANDIR                              #  VERB L/ LST2CON
013875,000947: 41,2141           54154                           TS       MPAC                                  
013876,000948: 41,2142           04473                           TC       RELDSP                                #  RELEASE DISPLAY SYST
013877,000949: 41,2143           04574                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
013878,000950: 41,2144           66000                           CADR     GOEXTVB                               
013879,000951: 41,2145           00050        LST2CON            DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
013880,000952: 
013881,000953: 41,2146           51001        VBFANDIR           INDEX    VERBREG                               
013882,000954: 41,2147           32151                           CAF      VERBTAB                               
013883,000955: 41,2150           04577                           TC       BANKJUMP                              
013884,000956: 
013885,000957: 41,2151           62350        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
013886,000958: 41,2152           62364                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
013887,000959: 41,2153           62372                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
013888,000960: 41,2154           62377                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
013889,000961: 41,2155           62357                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
013890,000962: 41,2156           62352                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
013891,000963: 41,2157           62520                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
013892,000964: 41,2160           60675                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
013893,000965: 41,2161           62350                           CADR     GODSPALM                              #  VB08 SPARE
013894,000966: 41,2162           62350                           CADR     GODSPALM                              #  VB09 SPARE
013895,000967: 41,2163           61323                           CADR     DSPALARM                              #  VB10 SPARE
013896,000968: 41,2164           63220                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
013897,000969: 41,2165           63220                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
013898,000970: 41,2166           63220                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
013899,000971: 41,2167           63220                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)

Page 319

013901,000973: 41,2170           63220                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
013902,000974: 41,2171           63220                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
013903,000975: 41,2172           63220                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
013904,000976: 41,2173           62350                           CADR     GODSPALM                              #  VB18 SPARE
013905,000977: 41,2174           62350                           CADR     GODSPALM                              #  VB19 SPARE
013906,000978: 41,2175           62350                           CADR     GODSPALM                              #  VB20 SPARE
013907,000979: 41,2176           62726                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
013908,000980: 41,2177           62737                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
013909,000981: 41,2200           62754                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
013910,000982: 41,2201           62677                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
013911,000983: 41,2202           62612                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
013912,000984: 41,2203           62350                           CADR     GODSPALM                              #  VB26 SPARE
013913,000985: 41,2204           63343                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
013914,000986:                                                                                                  #                                                                          THE FOLLOWING VERBS MAKE NO NOUN TEST
013915,000987: 41,2205           62350                           CADR     GODSPALM                              #  VB28 SPARE
013916,000988: 41,2206           62350                           CADR     GODSPALM                              #  VB29 SPARE
013917,000989: 41,2207           63456        REQEXLQC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
013918,000990: 41,2210           63502                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
013919,000991: 41,2211           61360                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
013920,000992: 41,2212           61343                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
013921,000993: 41,2213           61351                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
013922,000994: 41,2214           63603                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
013923,000995: 41,2215           12347                           CADR     SLAP1                                 #  VB36 FRESH START
013924,000996: 41,2216           63420                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
013925,000997: 41,2217           62350                           CADR     GODSPALM                              #  VB38 SPARE
013926,000998: 41,2220           62350                           CADR     GODSPALM                              #  VB39 SPARE
013927,000999: 
013928,001000: 
013929,001001:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
013930,001002: 

Page 320

013932,001004: 
013933,001005:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS,  IDADDREL(IN LOW 10 BITS), REFERRING
013934,001006:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
013935,001007:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
013936,001008:                                                                                                  #   MIXTEMP.
013937,001009: 
013938,001010: 41,2221           10146        MIXNOUN            CCS      NNADTEM                               
013939,001011: 41,2222           02226                           TC       +4                                    #  +  IN USE
013940,001012: 41,2223           02350                           TC       GODSPALM                              #  +0  NOT IN USE
013941,001013: 41,2224           02226                           TC       +2                                    #  -  IN USE
013942,001014: 41,2225           02226                           TC       +1                                    #  -0  IN USE
013943,001015: 41,2226           46211                           CS       SIX                                   
013944,001016: 41,2227           61001                           AD       VERBREG                               
013945,001017: 41,2230           00006                           EXTEND                                         
013946,001018: 41,2231           62233                           BZMF     +2                                    #  VERB L/E 6
013947,001019: 41,2232           02133                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
013948,001020: 41,2233           34711                           CAF      TWO                                   
013949,001021: 41,2234           54117        MIXNN1             TS       DECOUNT                               
013950,001022: 41,2235           62260                           AD       MIXAD                                 
013951,001023: 41,2236           54145                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
013952,001024: 41,2237           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
013953,001025: 41,2240           30150                           CA       IDAD1TEM                              #  OF NOUN.
013954,001026: 41,2241           54122                           TS       NOUNTEM                               
013955,001027:                                                                                                  #                                          TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
013956,001028:                                                                                                  #                                            MINOR PART ONLY.
013957,001029: 41,2242           03027                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
013958,001030: 41,2243           02261                           TC       DPTEST                                
013959,001031: 41,2244           02246                           TC       MIXNN2                                #  NO DP
013960,001032: 41,2245           24122                           INCR     NOUNTEM                               #  DP  GET MINOR PART
013961,001033: 41,2246           30122        MIXNN2             CA       NOUNTEM                               
013962,001034: 41,2247           74372                           MASK     LOW11                                 #  ESUBK (NO DP)  OR (ESUBK)+1   FOR DP
013963,001035: 41,2250           04327                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
013964,001036: 41,2251           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
013965,001037: 41,2252           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
013966,001038: 41,2253           50145                           INDEX    NOUNADD                               
013967,001039: 41,2254           56000                           XCH      0                                     #  STORE IN MIXTEM + K
013968,001040: 41,2255           10117                           CCS      DECOUNT                               
013969,001041: 41,2256           02234                           TC       MIXNN1                                
013970,001042: 41,2257           02133                           TC       VERBFAN                               
013971,001043: 
013972,001044: 41,2260           00125        MIXAD              TC       MIXTEMP                               
013973,001045: 
013974,001046: 
013975,001047:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
013976,001048:                                                                                                  #           RETURNS  TO L+1 IF NO DP.
013977,001049:                                                                                                  #           RETURNS  TO L+2 IF DP.
013978,001050: 
013979,001051: 41,2261           50000        DPTEST             INDEX    A                                     
013980,001052: 41,2262           12263                           TCF      +1                                    
013981,001053: 41,2263           00002                           TC       Q                                     #  OCTAL ONLY  NO DP
013982,001054: 41,2264           00002                           TC       Q                                     #  FRACT NO DP

Page 321

013984,001056: 41,2265           00002                           TC       Q                                     #  DEG  NO DP
013985,001057: 41,2266           00002                           TC       Q                                     #  ARITH  NO DP
013986,001058: 41,2267           12300                           TCF      DPTEST1                               #  DP1OUT
013987,001059: 41,2270           12300                           TCF      DPTEST1                               #  DP2OUT
013988,001060: 41,2271           00002                           TC       Q                                     #  OPDEG  NO DP
013989,001061: 41,2272           12300                           TCF      DPTEST1                               #  DP3OUT
013990,001062: 41,2273           00002                           TC       Q                                     #  HMS   NO DP
013991,001063: 41,2274           00002                           TC       Q                                     #  M/S   NO DP
013992,001064: 41,2275           12300                           TCF      DPTEST1                               #  DP4OUT
013993,001065: 41,2276           00002                           TC       Q                                     #  ARITH1   NO DP
013994,001066: 41,2277           00002                           TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
013995,001067: 41,2300           50002        DPTEST1            INDEX    Q                                     
013996,001068: 41,2301           00001                           TC       1                                     #  RETURN TO L+2
013997,001069: 
013998,001070: 
013999,001071: 41,2302           34333        REQDATX            CAF      R1D1                                  
014000,001072: 41,2303           12307                           TCF      REQCOM                                
014001,001073: 41,2304           34334        REQDATY            CAF      R2D1                                  
014002,001074: 41,2305           12307                           TCF      REQCOM                                
014003,001075: 41,2306           34335        REQDATZ            CAF      R3D1                                  
014004,001076: 41,2307           54777        REQCOM             TS       DSPCOUNT                              
014005,001077: 41,2310           40002                           CS       Q                                     
014006,001078: 41,2311           55013                           TS       REQRET                                
014007,001079: 41,2312           04555                           TC       BANKCALL                              
014008,001080: 41,2313           60437                           CADR     5BLANK                                
014009,001081: 41,2314           04443                           TC       FLASHON                               
014010,001082: 41,2315           00136        ENDRQDAT           TC       ENTEXIT                               
014011,001083: 
014012,001084: 41,2316           55002                           TS       NOUNREG                               
014013,001085: 41,2317           56002        UPDATNN            XCH      Q                                     
014014,001086: 41,2320           54117                           TS       UPDATRET                              
014015,001087: 41,2321           00006                           EXTEND                                         
014016,001088: 41,2322           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014017,001089: 41,2323           52006                           DXCH     Z                                     #  ROUTINE.
014018,001090: 41,2324           10146                           CCS      NNADTEM                               
014019,001091: 41,2325           64712                           AD       ONE                                   #  NORMAL
014020,001092: 41,2326           12331                           TCF      PUTADD                                
014021,001093: 41,2327           12332                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
014022,001094: 41,2330           12332                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
014023,001095: 41,2331           04317        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014024,001096: 41,2332           34375                           CAF      ND1                                   
014025,001097: 41,2333           54777                           TS       DSPCOUNT                              
014026,001098: 41,2334           31002                           CA       NOUNREG                               
014027,001099: 41,2335           12344                           TCF      UPDAT1                                
014028,001100: 
014029,001101: 41,2336           55001                           TS       VERBREG                               
014030,001102: 41,2337           56002        UPDATVB            XCH      Q                                     
014031,001103: 41,2340           54117                           TS       UPDATRET                              
014032,001104: 41,2341           34374                           CAF      VD1                                   
014033,001105: 41,2342           54777                           TS       DSPCOUNT                              

Page 322

014035,001107: 41,2343           31001                           CA       VERBREG                               
014036,001108: 41,2344           04574        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN,SINCE
014037,001109: 41,2345           61222                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
014038,001110: 41,2346           00117                           TC       UPDATRET                              
014039,001111: 
014040,001112: 
014041,001113: 41,2347           04161        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
014042,001114: 
014043,001115: 
014044,001116: 41,2350           04574        GODSPALM           TC       POSTJUMP                              
014045,001117: 41,2351           61323                           CADR     DSPALARM                              
014046,001118: 

Page 323

014048,001120:                                                                                                  #           NOUN   TABLES
014049,001121: 
014050,001122:                                                                                                  #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
014051,001123:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
014052,001124:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
014053,001125:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
014054,001126:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
014055,001127: 
014056,001128:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
014057,001129:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
014058,001130: 
014059,001131:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
014060,001132: 
014061,001133:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
014062,001134:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
014063,001135:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
014064,001136: 
014065,001137:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
014066,001138:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
014067,001139:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
014068,001140:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
014069,001141:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
014070,001142:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
014071,001143: 
014072,001144:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
014073,001145:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
014074,001146:                                                                                                  #  THE FIRST OF THESE ENTRIES.
014075,001147:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
014076,001148:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
014077,001149: 
014078,001150:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
014079,001151:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
014080,001152:                                                                                                  #        QQQQQRRRRRSSSSS
014081,001153:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
014082,001154:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
014083,001155:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
014084,001156:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
014085,001157:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
014086,001158: 
014087,001159: 
014088,001160:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
014089,001161:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
014090,001162:                                                                                                  #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
014091,001163: 
014092,001164: 
014093,001165:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
014094,001166:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
014095,001167: 
014096,001168:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
014097,001169:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
014098,001170: 

Page 324

014100,001172: 
014101,001173:                                                                                                  #           DISPLAY VERBS
014102,001174: 41,2352           44711        DSPABC             CS       TWO                                   
014103,001175: 41,2353           02423                           TC       COMPTEST                              
014104,001176: 41,2354           50145                           INDEX    NOUNADD                               
014105,001177: 41,2355           40002                           CS       2                                     
014106,001178: 41,2356           56132                           XCH      BUF        +2                         
014107,001179: 41,2357           44712        DSPAB              CS       ONE                                   
014108,001180: 41,2360           02423                           TC       COMPTEST                              
014109,001181: 41,2361           50145                           INDEX    NOUNADD                               
014110,001182: 41,2362           40001                           CS       1                                     
014111,001183: 41,2363           56131                           XCH      BUF        +1                         
014112,001184: 41,2364           02442        DSPA               TC       DECTEST                               
014113,001185: 41,2365           02465                           TC       TSTFORDP                              
014114,001186: 41,2366           50145                           INDEX    NOUNADD                               
014115,001187: 41,2367           40000                           CS       0                                     
014116,001188: 41,2370           56130        DSPCOM1            XCH      BUF                                   
014117,001189: 41,2371           02404                           TC       DSPCOM2                               
014118,001190: 41,2372           44712        DSPB               CS       ONE                                   
014119,001191: 41,2373           02436                           TC       DCOMPTST                              
014120,001192: 41,2374           50145                           INDEX    NOUNADD                               
014121,001193: 41,2375           40001                           CS       1                                     
014122,001194: 41,2376           02370                           TC       DSPCOM1                               
014123,001195: 41,2377           44711        DSPC               CS       TWO                                   
014124,001196: 41,2400           02436                           TC       DCOMPTST                              
014125,001197: 41,2401           50145                           INDEX    NOUNADD                               
014126,001198: 41,2402           40002                           CS       2                                     
014127,001199: 41,2403           02370                           TC       DSPCOM1                               
014128,001200: 41,2404           44711        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
014129,001201: 41,2405           61001                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
014130,001202: 41,2406           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
014131,001203: 41,2407           02412                           TC       DSPCOM3                               
014132,001204: 41,2410           00136                           TC       ENTEXIT                               
014133,001205: 41,2411           02412                           TC       +1                                    
014134,001206: 41,2412           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
014135,001207: 41,2413           50000                           INDEX    A                                     
014136,001208: 41,2414           34333                           CAF      R1D1                                  
014137,001209: 41,2415           54777                           TS       DSPCOUNT                              
014138,001210: 41,2416           50122                           INDEX    DISTEM                                
014139,001211: 41,2417           40130                           CS       BUF                                   
014140,001212: 41,2420           03353                           TC       DSPOCTWD                              
014141,001213: 41,2421           56122                           XCH      DISTEM                                
014142,001214: 41,2422           02406                           TC       DSPCOM2    +2                         
014143,001215: 
014144,001216:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
014145,001217:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
014146,001218: 41,2423           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
014147,001219: 41,2424           22002                           LXCH     Q                                     
014148,001220: 41,2425           02512        COMPTST1           TC       GETCOMP                               
014149,001221: 41,2426           04345                           TC       LEFT5                                 
014150,001222: 41,2427           76214                           MASK     THREE                                 #  NOUN COMP

Page 325

014152,001224: 41,2430           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
014153,001225: 41,2431           10000                           CCS      A                                     
014154,001226: 41,2432           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
014155,001227: 41,2433           05642                           TC       CCSHOLE                               
014156,001228: 41,2434           02350                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
014157,001229: 41,2435           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
014158,001230: 
014159,001231: 
014160,001232:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
014161,001233:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
014162,001234: 41,2436           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
014163,001235: 41,2437           22002                           LXCH     Q                                     
014164,001236: 41,2440           02442                           TC       DECTEST                               
014165,001237: 41,2441           02425                           TC       COMPTST1                              
014166,001238: 
014167,001239: 41,2442           00006        DECTEST            EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
014168,001240: 41,2443           22156                           QXCH     MPAC       +2                         #  CODE NUMBER). RETURNS IF NOT.
014169,001241: 41,2444           02512                           TC       GETCOMP                               
014170,001242: 41,2445           74675                           MASK     BIT14                                 
014171,001243: 41,2446           10000                           CCS      A                                     
014172,001244: 41,2447           02350                           TC       GODSPALM                              
014173,001245: 41,2450           00156                           TC       MPAC       +2                         
014174,001246: 
014175,001247: 
014176,001248: 41,2451           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
014177,001249: 41,2452           02512                           TC       GETCOMP                               #  ( BIT4 OF COMP CODE NUMBER). RETURNS
014178,001250: 41,2453           74675                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
014179,001251: 41,2454           10000                           CCS      A                                     
014180,001252: 41,2455           04161                           TC       ALMCYCLE                              
014181,001253: 41,2456           00001                           TC       L                                     
014182,001254: 
014183,001255: 
014184,001256:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
014185,001257:                                                                                                  #  IF NOT, IT RETURNS.
014186,001258: 41,2457           22002        NOUNTEST           LXCH     Q                                     
014187,001259: 41,2460           02512                           TC       GETCOMP                               
014188,001260: 41,2461           10000                           CCS      A                                     
014189,001261: 41,2462           00001                           TC       L                                     
014190,001262: 41,2463           00001                           TC       L                                     
014191,001263: 41,2464           02350                           TC       GODSPALM                              
014192,001264: 
014193,001265: 
014194,001266: 41,2465           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
014195,001267: 41,2466           30146                           CA       NNADTEM                               
014196,001268: 41,2467           64712                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
014197,001269: 41,2470           00006                           EXTEND                                         
014198,001270: 41,2471           12503                           BZF      CHANDSP                               
014199,001271: 41,2472           50140                           INDEX    MIXBR                                 
014200,001272: 41,2473           02473                           TC       +0                                    
014201,001273: 41,2474           02476                           TC       +2                                    #  NORMAL

Page 326

014203,001275: 41,2475           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
014204,001276: 41,2476           03021                           TC       SFRUTNOR                              
014205,001277: 41,2477           02261                           TC       DPTEST                                
014206,001278: 41,2500           00001                           TC       L                                     #  NO DP
014207,001279: 41,2501           24145                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
014208,001280: 41,2502           00001                           TC       L                                     
014209,001281: 
014210,001282: 
014211,001283: 41,2503           00006        CHANDSP            EXTEND                                         
014212,001284: 41,2504           51017                           INDEX    NOUNCADR                              
014213,001285: 41,2505           00000                           READ     0                                     
014214,001286: 41,2506           40000                           CS       A                                     
014215,001287: 41,2507           12370                           TCF      DSPCOM1                               
014216,001288: 
014217,001289: 
014218,001290: 41,2510           00147        COMPICK            ADRES    NNTYPTEM                              
014219,001291: 41,2511           00146                           ADRES    NNADTEM                               
014220,001292: 
014221,001293: 41,2512           50140        GETCOMP            INDEX    MIXBR                                 #  NORMAL                MIXED
014222,001294: 41,2513           32507                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
014223,001295: 41,2514           50000                           INDEX    A                                     
014224,001296: 41,2515           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
014225,001297: 41,2516           74364                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
014226,001298: 41,2517           00002                           TC       Q                                     
014227,001299: 
014228,001300: 
014229,001301: 41,2520           02512        DECDSP             TC       GETCOMP                               
014230,001302: 41,2521           04345                           TC       LEFT5                                 
014231,001303: 41,2522           76214                           MASK     THREE                                 
014232,001304: 41,2523           54117                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
014233,001305: 41,2524           54122        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
014234,001306: 41,2525           60145                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
014235,001307: 41,2526           50000                           INDEX    A                                     
014236,001308: 41,2527           40000                           CS       0                                     
014237,001309: 41,2530           50122                           INDEX    DECTEM                                
014238,001310: 41,2531           57003                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
014239,001311: 41,2532           10122                           CCS      DECTEM                                
014240,001312: 41,2533           02524                           TC       DSPDCGET                              #  MORE TO GET
014241,001313: 41,2534           34714        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
014242,001314: 41,2535           54155                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
014243,001315: 41,2536           54156                           TS       MPAC       +2                         
014244,001316: 41,2537           50117                           INDEX    DECOUNT                               
014245,001317: 41,2540           34333                           CAF      R1D1                                  
014246,001318: 41,2541           54777                           TS       DSPCOUNT                              
014247,001319: 41,2542           50117                           INDEX    DECOUNT                               
014248,001320: 41,2543           41003                           CS       XREG                                  
014249,001321: 41,2544           54154                           TS       MPAC                                  
014250,001322: 41,2545           03042                           TC       SFCONUM                               #  2X( SF CON NUMB ) IN A
014251,001323: 41,2546           54123                           TS       SFTEMP1                               
014252,001324: 41,2547           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE

Page 327

014254,001326: 41,2550           32562                           DCA      GTSFOUTL                              #     READING ROUTINE.
014255,001327: 41,2551           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
014256,001328: 41,2552           50140                           INDEX    MIXBR                                 
014257,001329: 41,2553           02553                           TC       +0                                    
014258,001330: 41,2554           02557                           TC       DSPSFNOR                              
014259,001331: 41,2555           03027                           TC       SFRUTMIX                              
014260,001332: 41,2556           02572                           TC       DECDSP3                               
014261,001333: 
014262,001334: 41,2557           03021        DSPSFNOR           TC       SFRUTNOR                              
014263,001335: 41,2560           02572                           TC       DECDSP3                               
014264,001336: 
014265,001337: 41,2561     0777                                  EBANK=   DSPCOUNT                              
014266,001338: 41,2561           02120 64101  GTSFOUTL           2CADR    GTSFOUT                               
014267,001339: 
014268,001340: 
014269,001341: 41,2563           04555        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
014270,001342: 41,2564           61131                           CADR     DSPDECWD                              
014271,001343: 41,2565           10117                           CCS      DECOUNT                               
014272,001344: 41,2566           02570                           TC       +2                                    
014273,001345: 41,2567           00136                           TC       ENTEXIT                               
014274,001346: 41,2570           54117                           TS       DECOUNT                               
014275,001347: 41,2571           02534                           TC       DSPDCPUT                              #  MORE TO DISPLAY
014276,001348: 
014277,001349: 
014278,001350: 41,2572           50000        DECDSP3            INDEX    A                                     
014279,001351: 41,2573           32575                           CAF      SFOUTABR                              
014280,001352: 41,2574           04577                           TC       BANKJUMP                              
014281,001353: 
014282,001354: 41,2575           61321        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
014283,001355: 41,2576           62563                           CADR     DSPDCEND                              
014284,001356: 41,2577           60516                           CADR     DEGOUTSF                              
014285,001357: 41,2600           60603                           CADR     ARTOUTSF                              
014286,001358: 41,2601           60614                           CADR     DP1OUTSF                              
014287,001359: 41,2602           60621                           CADR     DP2OUTSF                              
014288,001360: 41,2603           60524                           CADR     OPDEGOUT                              
014289,001361: 41,2604           60623                           CADR     DP3OUTSF                              
014290,001362: 41,2605           65143                           CADR     HMSOUT                                
014291,001363: 41,2606           65216                           CADR     M/SOUT                                
014292,001364: 41,2607           60621                           CADR     DP2OUTSF                              
014293,001365: 41,2610           60610                           CADR     AROUT1SF                              
014294,001366: 41,2611           60636                           CADR     2INTOUT                               
014295,001367: 41,2612                        ENDRTOUT           EQUALS                                         
014296,001368: 
014297,001369: 
014298,001370:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
014299,001371:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
014300,001372: 
014301,001373: 
014302,001374: 40,2516                                           SETLOC   BLANKCON   +1                         

Page 328

014304,001376: 40,2516                                           COUNT    40/PIN                                
014305,001377: 
014306,001378:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
014307,001379:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
014308,001380: 
014309,001381: 40,2516           34714        DEGOUTSF           CAF      ZERO                                  
014310,001382: 40,2517           54156                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
014311,001383: 40,2520           02555                           TC       FIXRANGE                              
014312,001384: 40,2521           02523                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
014313,001385: 40,2522           02550                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
014314,001386: 40,2523           02566                           TC       DEGCOM                                
014315,001387: 
014316,001388:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
014317,001389: 
014318,001390: 40,2524           10154        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
014319,001391: 40,2525           56154                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
014320,001392: 40,2526           02531                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
014321,001393: 40,2527           02540                           TC       NEGOPT                                #  IF NEG NON ZERO
014322,001394: 40,2530           67716                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
014323,001395: 40,2531           62602                           AD       20BIAS                                
014324,001396: 40,2532           54154        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
014325,001397: 40,2533           02536                           TC       +3                                    #  NO OVFLOW
014326,001398: 40,2534           34674                           CAF      BIT15                                 #  IF OVFLOW
014327,001399: 40,2535           26154                           ADS      MPAC                                  
014328,001400: 40,2536           34711                           CAF      TWO                                   #  SET MULTIPLIER TO .45
014329,001401: 40,2537           02517                           TC       DEGOUTSF   +1                         
014330,001402: 
014331,001403: 40,2540           56154        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
014332,001404: 40,2541           62602                           AD       20BIAS                                
014333,001405: 40,2542           10000                           CCS      A                                     
014334,001406: 40,2543           02532                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
014335,001407: 40,2544           05642                           TC       CCSHOLE                               
014336,001408: 40,2545           64712                           AD       ONE                                   #  IF NEG RESTORE SUM
014337,001409: 40,2546           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
014338,001410: 40,2547           02532                           TC       BIASCOM                               
014339,001411: 
014340,001412: 40,2550           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
014341,001413: 40,2551           50156                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
014342,001414: 40,2552           32577                           DCA      DEGTAB                                
014343,001415: 40,2553           52124                           DXCH     SFTEMP1                               
014344,001416: 40,2554           00002                           TC       Q                                     
014345,001417: 
014346,001418: 40,2555           10154        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
014347,001419: 40,2556           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
014348,001420: 40,2557           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
014349,001421: 40,2560           12561                           TCF      +1                                    
014350,001422: 40,2561           44674                           CS       BIT15                                 
014351,001423: 40,2562           70154                           MASK     MPAC                                  
014352,001424: 40,2563           54154                           TS       MPAC                                  
014353,001425: 40,2564           50002                           INDEX    Q                                     

Page 329

014355,001427: 40,2565           00001                           TC       1                                     
014356,001428: 
014357,001429: 40,2566           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER , DOES SHORTMP, AND
014358,001430: 40,2567           50156                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
014359,001431: 40,2570           32577                           DCA      DEGTAB                                
014360,001432: 40,2571           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
014361,001433: 40,2572           07256                           TC       SHORTMP                               
014362,001434: 40,2573           52124                           DXCH     SFTEMP1                               
014363,001435: 40,2574           20155                           DAS      MPAC                                  
014364,001436: 40,2575           02606                           TC       SCOUTEND                              
014365,001437: 
014366,001438: 
014367,001439: 40,2576           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
014368,001440: 40,2577           03656                           OCT      03656                                 #  LOW PART OF    .18
014369,001441: 40,2600           16314                           OCT      16314                                 #  HI PART OF     .45
014370,001442: 40,2601           31463                           OCT      31463                                 #  LO PART OF     .45
014371,001443: 
014372,001444: 40,2602           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
014373,001445: 
014374,001446: 40,2603           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
014375,001447: 40,2604           52155                           DXCH     MPAC                                  
014376,001448: 40,2605           04431                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014377,001449: 40,2606           04574        SCOUTEND           TC       POSTJUMP                              
014378,001450: 40,2607           62563                           CADR     DSPDCEND                              
014379,001451: 
014380,001452: 40,2610           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
014381,001453: 40,2611           52155                           DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
014382,001454: 40,2612           04431                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
014383,001455: 40,2613           02615                           TC       L14/OUT                               
014384,001456: 
014385,001457: 40,2614           02627        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
014386,001458: 40,2615           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
014387,001459: 40,2616           56155                           XCH      MPAC       +1                         #  BY B14.
014388,001460: 40,2617           54154                           TS       MPAC                                  
014389,001461: 40,2620           02606                           TC       SCOUTEND                              
014390,001462: 
014391,001463: 40,2621           02627        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC , MPAC +1 BY DP SCALE FACTOR
014392,001464: 40,2622           02606                           TC       SCOUTEND                              
014393,001465: 
014394,001466: 40,2623           02627        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
014395,001467: 40,2624           36211                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
014396,001468: 40,2625           03056                           TC       TPLEFTN                               #  SHIFT LEFT 7.
014397,001469: 40,2626           02606                           TC       SCOUTEND                              
014398,001470: 
014399,001471: 40,2627     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
014400,001472: 

Page 330

014402,001474: 40,2627           56002        DPOUT              XCH      Q                                     
014403,001475: 40,2630           54162                           TS       MPAC+6                                
014404,001476: 40,2631           02653                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
014405,001477: 40,2632           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
014406,001478: 40,2633           07052                           TC       DMP                                   
014407,001479: 40,2634           00123                           ADRES    SFTEMP1                               
014408,001480: 40,2635           00162                           TC       MPAC+6                                
014409,001481:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
014410,001482:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
014411,001483:                                                                                                  #  BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
014412,001484:                                                                                                  #  RXD1-RXD2.
014413,001485: 
014414,001486: 40,2636           02437        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
014415,001487: 40,2637           02314                           TC       +ON                                   #  TURN ON + SIGN
014416,001488: 40,2640           30154                           CA       MPAC                                  
014417,001489: 40,2641           03211                           TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
014418,001490: 40,2642           46214                           CS       THREE                                 
014419,001491: 40,2643           50117                           INDEX    DECOUNT                               
014420,001492: 40,2644           64333                           AD       R1D1                                  #  RXD4
014421,001493: 40,2645           54777                           TS       DSPCOUNT                              
014422,001494: 40,2646           02653                           TC       READLO                                #  GET 2ND INTEGER
014423,001495: 40,2647           30155                           CA       MPAC       +1                         
014424,001496: 40,2650           03211                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
014425,001497: 40,2651           04574                           TC       POSTJUMP                              
014426,001498: 40,2652           62565                           CADR     DSPDCEND   +2                         
014427,001499: 
014428,001500: 
014429,001501:                                                                                                  #  READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN 
014430,001502:                                                                                                  #  MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
014431,001503:                                                                                                  #  DOES NOT FORCE TPAGREE.
014432,001504: 
014433,001505: 40,2653           56002        READLO             XCH      Q                                     
014434,001506: 40,2654           54144                           TS       TEM4                                  
014435,001507: 40,2655           50140                           INDEX    MIXBR                                 
014436,001508: 40,2656           02656                           TC       +0                                    
014437,001509: 40,2657           02673                           TC       RDLONOR                               
014438,001510: 40,2660           50117                           INDEX    DECOUNT                               
014439,001511: 40,2661           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
014440,001512: 40,2662           74372                           MASK     LOW11                                 #  E SUBK
014441,001513: 40,2663           04327                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
014442,001514: 40,2664           00006        READLO1            EXTEND                                         #  MIXED         NORMAL
014443,001515: 40,2665           50000                           INDEX    A                                     #  C(ESUBK)      C(E)
014444,001516: 40,2666           30001                           DCA      0                                     #  C((E SUBK)+1)      C(E+1)
014445,001517: 40,2667           52155                           DXCH     MPAC                                  
014446,001518: 40,2670           34714                           CAF      ZERO                                  
014447,001519: 40,2671           54156                           TS       MPAC       +2                         
014448,001520: 40,2672           00144                           TC       TEM4                                  
014449,001521: 
014450,001522: 40,2673           30145        RDLONOR            CA       NOUNADD                               #  E
014451,001523: 40,2674           02664        ENDRDLO            TC       READLO1                               

Page 331

014453,001525: 42,3143                                           BANK     42                                    
014454,001526: 42,2000                                           SETLOC   PINBALL3                              
014455,001527: 42,2000                                           BANK                                           
014456,001528: 
014457,001529: 42,3143                                           COUNT    42/PIN                                
014458,001530: 
014459,001531: 42,3143           04555        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
014460,001532: 42,3144           60653                           CADR     READLO                                #  MPAC+1.
014461,001533: 42,3145           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
014462,001534: 42,3146           03332                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
014463,001535:                                                                                                  #                                          WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014464,001536: 42,3147           07052                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
014465,001537: 42,3150           03204                           ADRES    SECON2                                #  MULT BY .06
014466,001538: 42,3151           34335                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
014467,001539: 42,3152           54777                           TS       DSPCOUNT                              
014468,001540: 42,3153           04555                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
014469,001541: 42,3154           61131                           CADR     DSPDECWD                              
014470,001542: 42,3155           03350                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
014471,001543: 42,3156           33206                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
014472,001544: 42,3157           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
014473,001545: 42,3160           55007                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
014474,001546: 42,3161           33207                           CAF      MINCON2    +1                         
014475,001547: 42,3162           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
014476,001548: 42,3163           04431                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014477,001549:                                                                                                  #                                          MULT BY .0006
014478,001550: 42,3164           34334                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
014479,001551: 42,3165           54777                           TS       DSPCOUNT                              
014480,001552: 42,3166           04555                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
014481,001553: 42,3167           61131                           CADR     DSPDECWD                              
014482,001554: 42,3170           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
014483,001555: 42,3171           33213                           DCA      HRCON1                                
014484,001556: 42,3172           52155                           DXCH     MPAC                                  
014485,001557: 42,3173           31007                           CA       HITEMOUT                              #  USE WHOLE HOURS
014486,001558: 42,3174           04431                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014487,001559:                                                                                                  #                                          MULT BY .16384
014488,001560: 42,3175           34333                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
014489,001561: 42,3176           54777                           TS       DSPCOUNT                              
014490,001562: 42,3177           04555                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
014491,001563: 42,3200           61131                           CADR     DSPDECWD                              
014492,001564: 42,3201           00136                           TC       ENTEXIT                               
014493,001565: 
014494,001566: 42,3202           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
014495,001567: 42,3204           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
014496,001568: 42,3205           01217                           OCT      01217                                 
014497,001569: 42,3206           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
014498,001570: 42,3207           32445                           OCT      32445                                 
014499,001571: 42,3210           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
014500,001572: 42,3211           10422                           OCT      10422                                 
014501,001573: 42,3212           05174 13261  HRCON1             2DEC     .16384                                

Page 332

014503,001575: 42,3214           00000                           OCT      00000                                 
014504,001576: 42,3215           00062        RNDCON             OCT      00062                                 #  .5 SEC
014505,001577: 
014506,001578: 
014507,001579: 42,3216           04555        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
014508,001580: 42,3217           60653                           CADR     READLO                                #  MPAC+1.
014509,001581: 42,3220           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
014510,001582: 42,3221           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
014511,001583: 42,3222           03224                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
014512,001584: 42,3223           03255                           TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
014513,001585: 42,3224           63312                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1  FOR CCS
014514,001586: 42,3225           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
014515,001587: 42,3226           03241                           TC       M/SLIMIT                              #  G/ 59M58.5S
014516,001588: 42,3227           03255                           TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
014517,001589: 42,3230           03255                           TC       M/SNORM                               #  L/ 59M58.5S
014518,001590: 42,3231           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
014519,001591: 42,3232           03234                           TC       +2                                    
014520,001592: 42,3233           03255                           TC       M/SNORM                               #  MPAC+1 = +0. L/ 59M58.5S
014521,001593: 42,3234           63313                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1  FOR CCS
014522,001594: 42,3235           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
014523,001595: 42,3236           03241                           TC       M/SLIMIT                              #  G/ 59M58.5S
014524,001596: 42,3237           03255                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
014525,001597: 42,3240           03255                           TC       M/SNORM                               #  L/ 59M58.5S
014526,001598: 42,3241           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
014527,001599: 42,3242           33315                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
014528,001600: 42,3243           03252                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
014529,001601: 42,3244           43315                           CS       M/SCON3                               
014530,001602: 42,3245           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
014531,001603: 42,3246           43316                           CS       M/SCON3    +1                         
014532,001604: 42,3247           54155        LIMITCOM           TS       MPAC       +1                         
014533,001605: 42,3250           33314                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
014534,001606: 42,3251           03333                           TC       SEPSECNR   +1                         
014535,001607: 42,3252           54154        +LIMIT             TS       MPAC                                  
014536,001608: 42,3253           33316                           CAF      M/SCON3    +1                         
014537,001609: 42,3254           03247                           TC       LIMITCOM                              
014538,001610: 42,3255           03317        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
014539,001611:                                                                                                  #                                          WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014540,001612: 42,3256           33310                           CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
014541,001613: 42,3257           07256                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
014542,001614: 42,3260           46214                           CS       THREE                                 #  GIVES SEC/100 MOD 60
014543,001615: 42,3261           26777                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
014544,001616: 42,3262           04555                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
014545,001617: 42,3263           61171                           CADR     DSPDC2NR                              
014546,001618: 42,3264           34714                           CAF      ZERO                                  
014547,001619: 42,3265           54124                           TS       CODE                                  
014548,001620: 42,3266           44711                           CS       TWO                                   
014549,001621: 42,3267           50117                           INDEX    DECOUNT                               
014550,001622: 42,3270           64333                           AD       R1D1                                  #  RXD3
014551,001623: 42,3271           54143                           TS       COUNT                                 
014552,001624: 42,3272           04555                           TC       BANKCALL                              #  BLANK MIDDLE CHAR

Page 333

014554,001626: 42,3273           61225                           CADR     DSPIN                                 
014555,001627: 42,3274           03350                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
014556,001628: 42,3275           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
014557,001629: 42,3276           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
014558,001630: 42,3277           73311                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
014559,001631: 42,3300           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
014560,001632: 42,3301           50117                           INDEX    DECOUNT                               
014561,001633: 42,3302           34333                           CAF      R1D1                                  #  RXD1
014562,001634: 42,3303           54777                           TS       DSPCOUNT                              
014563,001635: 42,3304           04555                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
014564,001636: 42,3305           61171                           CADR     DSPDC2NR                              
014565,001637: 42,3306           04574                           TC       POSTJUMP                              
014566,001638: 42,3307           62565                           CADR     DSPDCEND   +2                         
014567,001639: 
014568,001640: 42,3310           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
014569,001641: 42,3311           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
014570,001642: 
014571,001643: 42,3312           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
014572,001644: 42,3313           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
014573,001645: 42,3314           03256        NORMADR            ADRES    M/SNORM    +1                         
014574,001646: 42,3315           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
014575,001647: 42,3316           37016                           OCT      37016                                 
014576,001648: 
014577,001649: 42,3317           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
014578,001650: 42,3320           13327                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
014579,001651: 42,3321           13327                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
014580,001652: 42,3322           13323                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
014581,001653: 42,3323           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
014582,001654: 42,3324           43215                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
014583,001655: 42,3325           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
014584,001656: 42,3326           13332                           TCF      SEPSECNR                              
014585,001657: 42,3327           00006        POSEC              EXTEND                                         
014586,001658: 42,3330           33215                           DCA      RNDCON     -1                         
014587,001659: 42,3331           13325                           TCF      SEPSEC1                               
014588,001660: 42,3332           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
014589,001661: 42,3333           54144                           TS       SEPSCRET                              
014590,001662: 42,3334           07052                           TC       DMP                                   #  MULT BY 2EXP12/6000
014591,001663: 42,3335           03202                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
014592,001664: 42,3336           00006                           EXTEND                                         #  AND BELOW.
014593,001665: 42,3337           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
014594,001666: 42,3340           53010                           DXCH     HITEMOUT                              
014595,001667: 42,3341           04420                           TC       TPSL1                                 
014596,001668: 42,3342           04420                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
014597,001669: 42,3343           34714                           CAF      ZERO                                  
014598,001670: 42,3344           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
014599,001671: 42,3345           56155                           XCH      MPAC       +1                         
014600,001672: 42,3346           56154                           XCH      MPAC                                  
014601,001673: 42,3347           00144                           TC       SEPSCRET                              
014602,001674: 

Page 334

014604,001676: 42,3350           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
014605,001677: 42,3351           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
014606,001678: 42,3352           31010                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
014607,001679: 42,3353           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
014608,001680: 42,3354           74710                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
014609,001681: 42,3355           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
014610,001682: 42,3356           74676                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
014611,001683: 42,3357           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
014612,001684:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
014613,001685: 42,3360           31007                           CA       HITEMOUT                              
014614,001686: 42,3361           54154                           TS       MPAC                                  
014615,001687: 42,3362           07052                           TC       DMP                                   #  MULT BY 1/15
014616,001688: 42,3363           03210                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
014617,001689: 42,3364           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
014618,001690: 
014619,001691: 
014620,001692:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
014621,001693:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
014622,001694:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
014623,001695:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
014624,001696:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
014625,001697:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
014626,001698: 
014627,001699: 
014628,001700: 40,2675                                           SETLOC   ENDRDLO    +1                         
014629,001701: 
014630,001702: 40,2675                                           COUNT    40/PIN                                
014631,001703: 
014632,001704: 40,2675           50140        DSPDPDEC           INDEX    MIXBR                                 
014633,001705: 40,2676           02676                           TC       +0                                    
014634,001706: 40,2677           02701                           TC       +2                                    #  NORMAL NOUN
014635,001707: 40,2700           03323                           TC       DSPALARM                              
014636,001708: 40,2701           00006                           EXTEND                                         
014637,001709: 40,2702           50145                           INDEX    NOUNADD                               
014638,001710: 40,2703           30001                           DCA      0                                     
014639,001711: 40,2704           52155                           DXCH     MPAC                                  
014640,001712: 40,2705           34333                           CAF      R1D1                                  
014641,001713: 40,2706           54777                           TS       DSPCOUNT                              
014642,001714: 40,2707           34714                           CAF      ZERO                                  
014643,001715: 40,2710           54156                           TS       MPAC       +2                         
014644,001716: 40,2711           07226                           TC       TPAGREE                               
014645,001717: 40,2712           03176                           TC       DSP2DEC                               
014646,001718: 40,2713           00136        ENDDPDEC           TC       ENTEXIT                               
014647,001719: 

Page 335

014649,001721:                                                                                                  #  LOAD VERBS           IF ALARM CONDITION IS DETECTED DURING EXECUTE,
014650,001722:                                                                                                  #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
014651,001723:                                                                                                  #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
014652,001724:                                                                                                  #  TO EXECUTE  OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY  1) DECIMAL MACHINE
014653,001725:                                                                                                  #  CADR  2) MIXTURE OF OCTAL/DECIMAL DATA  3) OCTAL DATA INTO DECIMAL
014654,001726:                                                                                                  #  ONLY NOUN  4) DEC DATA INTO OCT ONLY NOUN  5) DATA TOO LARGE FOR SCALE
014655,001727:                                                                                                  #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
014656,001728:                                                                                                  #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
014657,001729:                                                                                                  #  ENTER OF CADR.
014658,001730: 
014659,001731: 
014660,001732: 41,2612                                           SETLOC   ENDRTOUT                              
014661,001733: 
014662,001734: 41,2612                                           COUNT    41/PIN                                
014663,001735: 
014664,001736: 41,2612           44711        ABCLOAD            CS       TWO                                   
014665,001737: 41,2613           02423                           TC       COMPTEST                              
014666,001738: 41,2614           02457                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
014667,001739: 41,2615           33001                           CAF      VBSP1LD                               
014668,001740: 41,2616           02336                           TC       UPDATVB    -1                         
014669,001741: 41,2617           02302                           TC       REQDATX                               
014670,001742: 41,2620           33002                           CAF      VBSP2LD                               
014671,001743: 41,2621           02336                           TC       UPDATVB    -1                         
014672,001744: 41,2622           02304                           TC       REQDATY                               
014673,001745: 41,2623           33003                           CAF      VBSP3LD                               
014674,001746: 41,2624           02336                           TC       UPDATVB    -1                         
014675,001747: 41,2625           02306                           TC       REQDATZ                               
014676,001748: 
014677,001749: 41,2626           46211        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
014678,001750: 41,2627           03004                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
014679,001751: 41,2630           00006                           EXTEND                                         
014680,001752: 41,2631           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014681,001753: 41,2632           52006                           DXCH     Z                                     #  ROUTINE.
014682,001754: 41,2633           34714                           CAF      ZERO                                  #  X COMP
014683,001755: 41,2634           03070                           TC       PUTCOM                                
014684,001756: 41,2635           50145                           INDEX    NOUNADD                               
014685,001757: 41,2636           54000                           TS       0                                     
014686,001758: 41,2637           34712                           CAF      ONE                                   #  Y COMP
014687,001759: 41,2640           03070                           TC       PUTCOM                                
014688,001760: 41,2641           50145                           INDEX    NOUNADD                               
014689,001761: 41,2642           54001                           TS       1                                     
014690,001762: 41,2643           34711                           CAF      TWO                                   #  Z COMP
014691,001763: 41,2644           03070                           TC       PUTCOM                                
014692,001764: 41,2645           50145                           INDEX    NOUNADD                               
014693,001765: 41,2646           54002                           TS       2                                     
014694,001766: 41,2647           44716                           CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
014695,001767: 41,2650           61002                           AD       NOUNREG                               #   FLAG BITS AS SPECIFIED.
014696,001768: 41,2651           00006                           EXTEND                                         
014697,001769: 41,2652           12654                           BZF      +2                                    

Page 336

014699,001771: 41,2653           02771                           TC       LOADLV                                
014700,001772: 41,2654           31003                           CA       XREG                                  #  ECADR OF FLAG WORD.
014701,001773: 41,2655           04320                           TC       SETNCADR   +1                         #   SET EBANK, NOUNADD.
014702,001774: 41,2656           31005                           CA       ZREG                                  #  ZERO TO RESET BITS, NON-ZERO TO SET BITS
014703,001775: 41,2657           00004                           INHINT                                         
014704,001776: 41,2660           00006                           EXTEND                                         
014705,001777: 41,2661           12670                           BZF      BITSOFF                               
014706,001778: 41,2662           50145                           INDEX    NOUNADD                               
014707,001779: 41,2663           40000                           CS       0                                     
014708,001780: 41,2664           71004                           MASK     YREG                                  #  BITS TO BE PROCESSED.
014709,001781: 41,2665           50145                           INDEX    NOUNADD                               
014710,001782: 41,2666           26000                           ADS      0                                     #  SET BITS.
014711,001783: 41,2667           02675                           TC       BITSOFF1                              
014712,001784: 41,2670           41004        BITSOFF            CS       YREG                                  #  BITS TO BE PROCESSED.
014713,001785: 41,2671           50145                           INDEX    NOUNADD                               
014714,001786: 41,2672           70000                           MASK     0                                     
014715,001787: 41,2673           50145                           INDEX    NOUNADD                               
014716,001788: 41,2674           54000                           TS       0                                     #  RESET BITS.
014717,001789: 41,2675           00003        BITSOFF1           RELINT                                         
014718,001790: 41,2676           02771                           TC       LOADLV                                
014719,001791: 
014720,001792: 41,2677           44712        ABLOAD             CS       ONE                                   
014721,001793: 41,2700           02423                           TC       COMPTEST                              
014722,001794: 41,2701           02457                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
014723,001795: 41,2702           33001                           CAF      VBSP1LD                               
014724,001796: 41,2703           02336                           TC       UPDATVB    -1                         
014725,001797: 41,2704           02302                           TC       REQDATX                               
014726,001798: 41,2705           33002                           CAF      VBSP2LD                               
014727,001799: 41,2706           02336                           TC       UPDATVB    -1                         
014728,001800: 41,2707           02304                           TC       REQDATY                               
014729,001801: 41,2710           44715        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
014730,001802: 41,2711           03004                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
014731,001803: 41,2712           00006                           EXTEND                                         
014732,001804: 41,2713           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014733,001805: 41,2714           52006                           DXCH     Z                                     #  ROUTINE.
014734,001806: 41,2715           34714                           CAF      ZERO                                  #  X COMP
014735,001807: 41,2716           03070                           TC       PUTCOM                                
014736,001808: 41,2717           50145                           INDEX    NOUNADD                               
014737,001809: 41,2720           54000                           TS       0                                     
014738,001810: 41,2721           34712                           CAF      ONE                                   #  Y COMP
014739,001811: 41,2722           03070                           TC       PUTCOM                                
014740,001812: 41,2723           50145                           INDEX    NOUNADD                               
014741,001813: 41,2724           54001                           TS       1                                     
014742,001814: 41,2725           02771                           TC       LOADLV                                
014743,001815: 
014744,001816: 41,2726           02302        ALOAD              TC       REQDATX                               
014745,001817: 41,2727           00006                           EXTEND                                         
014746,001818: 41,2730           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014747,001819: 41,2731           52006                           DXCH     Z                                     #  ROUTINE.
014748,001820: 41,2732           34714                           CAF      ZERO                                  #  X COMP

Page 337

014750,001822: 41,2733           03070                           TC       PUTCOM                                
014751,001823: 41,2734           50145                           INDEX    NOUNADD                               
014752,001824: 41,2735           54000                           TS       0                                     
014753,001825: 41,2736           02771                           TC       LOADLV                                
014754,001826: 
014755,001827: 41,2737           44712        BLOAD              CS       ONE                                   
014756,001828: 41,2740           02423                           TC       COMPTEST                              
014757,001829: 41,2741           34674                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
014758,001830: 41,2742           55015                           TS       CLPASS                                
014759,001831: 41,2743           02304                           TC       REQDATY                               
014760,001832: 41,2744           00006                           EXTEND                                         
014761,001833: 41,2745           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014762,001834: 41,2746           52006                           DXCH     Z                                     #  ROUTINE.
014763,001835: 41,2747           34712                           CAF      ONE                                   
014764,001836: 41,2750           03070                           TC       PUTCOM                                
014765,001837: 41,2751           50145                           INDEX    NOUNADD                               
014766,001838: 41,2752           54001                           TS       1                                     
014767,001839: 41,2753           02771                           TC       LOADLV                                
014768,001840: 
014769,001841: 41,2754           44711        CLOAD              CS       TWO                                   
014770,001842: 41,2755           02423                           TC       COMPTEST                              
014771,001843: 41,2756           34674                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
014772,001844: 41,2757           55015                           TS       CLPASS                                
014773,001845: 41,2760           02306                           TC       REQDATZ                               
014774,001846: 41,2761           00006                           EXTEND                                         
014775,001847: 41,2762           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014776,001848: 41,2763           52006                           DXCH     Z                                     #  ROUTINE.
014777,001849: 41,2764           34711                           CAF      TWO                                   
014778,001850: 41,2765           03070                           TC       PUTCOM                                
014779,001851: 41,2766           50145                           INDEX    NOUNADD                               
014780,001852: 41,2767           54002                           TS       2                                     
014781,001853: 41,2770           02771                           TC       LOADLV                                
014782,001854: 
014783,001855: 41,2771           34714        LOADLV             CAF      ZERO                                  
014784,001856: 41,2772           55000                           TS       DECBRNCH                              
014785,001857: 41,2773           44714                           CS       ZERO                                  
014786,001858: 41,2774           55014                           TS       LOADSTAT                              
014787,001859: 41,2775           44374                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
014788,001860: 41,2776           54777                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
014789,001861: 41,2777           04574                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
014790,001862: 41,3000           61450                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
014791,001863: 
014792,001864: 41,3001           00025        VBSP1LD            DEC      21         B-14                       #  VB21 = ALOAD
014793,001865: 41,3002           00026        VBSP2LD            DEC      22         B-14                       #  VB22 = BLOAD
014794,001866: 41,3003           00027        VBSP3LD            DEC      23         B-14                       #  VB23 = CLOAD
014795,001867: 
014796,001868: 
014797,001869: 41,3004           54117        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
014798,001870: 41,3005           41000                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
014799,001871: 41,3006           54021                           TS       SR                                    

Page 338

014801,001873: 41,3007           40021                           CS       SR                                    
014802,001874: 41,3010           40021                           CS       SR                                    #  SHIFTED RIGHT 2
014803,001875: 41,3011           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
014804,001876: 41,3012           13014                           TCF      +2                                    #  SOME ONES IN LOW 3
014805,001877: 41,3013           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
014806,001878: 41,3014           60117                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
014807,001879: 41,3015           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
014808,001880: 41,3016           13020                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
014809,001881: 41,3017           04161                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
014810,001882: 41,3020           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC. OK
014811,001883: 
014812,001884: 
014813,001885: 41,3021           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
014814,001886: 41,3022           54114                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
014815,001887: 41,3023           34363                           CAF      MID5                                  
014816,001888: 41,3024           70147                           MASK     NNTYPTEM                              
014817,001889: 41,3025           04336                           TC       RIGHT5                                
014818,001890: 41,3026           00114                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
014819,001891: 
014820,001892: 41,3027           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
014821,001893: 41,3030           54114                           TS       EXITEM                                
014822,001894: 41,3031           50117                           INDEX    DECOUNT                               
014823,001895: 41,3032           33061                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
014824,001896: 41,3033           54001                           TS       L                                     
014825,001897: 41,3034           50117                           INDEX    DECOUNT                               
014826,001898: 41,3035           34362                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
014827,001899: 41,3036           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
014828,001900: 41,3037           50001                           INDEX    L                                     
014829,001901: 41,3040           00000                           TC       0                                     
014830,001902:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
014831,001903: 41,3041           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
014832,001904: 
014833,001905: 41,3042           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
014834,001906: 41,3043           54114                           TS       EXITEM                                
014835,001907: 41,3044           50140                           INDEX    MIXBR                                 
014836,001908: 41,3045           03045                           TC       +0                                    
014837,001909: 41,3046           03064                           TC       CONUMNOR                              #  NORMAL NOUN
014838,001910: 41,3047           50117                           INDEX    DECOUNT                               #  MIXED NOUN
014839,001911: 41,3050           33061                           CAF      DISPLACE                              
014840,001912: 41,3051           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
014841,001913: 41,3052           50117                           INDEX    DECOUNT                               
014842,001914: 41,3053           34362                           CAF      LOW5                                  
014843,001915: 41,3054           70147                           MASK     NNTYPTEM                              
014844,001916: 41,3055           50001                           INDEX    L                                     
014845,001917: 41,3056           00000                           TC       0                                     
014846,001918:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
014847,001919: 41,3057           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
014848,001920: 41,3060           00114                           TC       EXITEM                                
014849,001921: 
014850,001922: 41,3061           03020        DISPLACE           TC       GOQ                                   

Page 339

014852,001924: 41,3062           04336                           TC       RIGHT5                                
014853,001925: 41,3063           04345                           TC       LEFT5                                 
014854,001926: 
014855,001927: 41,3064           34362        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
014856,001928: 41,3065           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
014857,001929: 41,3066           60000                           DOUBLE                                         
014858,001930: 41,3067           00114                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
014859,001931: 
014860,001932: 41,3070           54117        PUTCOM             TS       DECOUNT                               
014861,001933: 41,3071           56002                           XCH      Q                                     
014862,001934: 41,3072           54115                           TS       DECRET                                
014863,001935: 41,3073           34714                           CAF      ZERO                                  
014864,001936: 41,3074           54162                           TS       MPAC+6                                
014865,001937: 41,3075           50117                           INDEX    DECOUNT                               
014866,001938: 41,3076           57006                           XCH      XREGLP                                
014867,001939: 41,3077           54155                           TS       MPAC       +1                         
014868,001940: 41,3100           50117                           INDEX    DECOUNT                               
014869,001941: 41,3101           57003                           XCH      XREG                                  
014870,001942: 41,3102           54154                           TS       MPAC                                  
014871,001943: 41,3103           50140                           INDEX    MIXBR                                 
014872,001944: 41,3104           03104                           TC       +0                                    
014873,001945: 41,3105           03132                           TC       PUTNORM                               #  NORMAL NOUN
014874,001946:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
014875,001947: 41,3106           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
014876,001948: 41,3107           30150                           CA       IDAD1TEM                              #          OF NOUN.
014877,001949: 41,3110           74372                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
014878,001950: 41,3111           04317                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014879,001951: 41,3112           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
014880,001952: 41,3113           60117                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
014881,001953: 41,3114           54145                           TS       NOUNADD                               
014882,001954: 41,3115           11000                           CCS      DECBRNCH                              
014883,001955: 41,3116           03165                           TC       PUTDECSF                              #  +  DEC
014884,001956: 41,3117           02451                           TC       DCTSTCYC                              #  +0 OCTAL
014885,001957: 41,3120           03027                           TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1. IF SO,
014886,001958: 41,3121           02261                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
014887,001959: 41,3122           03150                           TC       PUTCOM2                               #  NO DP
014888,001960:                                                                                                  #                                          TEST FOR DP SCALE FOR OCT LOAD. IF SO,
014889,001961:                                                                                                  #                                          +0 INTO MAJOR PART. SET NOUNADD FOR
014890,001962:                                                                                                  #                                          LOADING OCTAL WORD INTO MINOR PART.
014891,001963: 41,3123           24145        PUTDPCOM           INCR     NOUNADD                               #  DP (ESUBK)-K+1  OR  E+1
014892,001964: 41,3124           30145                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
014893,001965: 41,3125           26117                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
014894,001966: 41,3126           34714                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
014895,001967: 41,3127           50117                           INDEX    DECOUNT                               
014896,001968: 41,3130           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
014897,001969: 41,3131           03150                           TC       PUTCOM2                               
014898,001970: 
014899,001971: 41,3132           04325        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
014900,001972: 41,3133           11000                           CCS      DECBRNCH                              

Page 340

014902,001974: 41,3134           03165                           TC       PUTDECSF                              #  +  DEC
014903,001975: 41,3135           02451                           TC       DCTSTCYC                              #  +0 OCTAL
014904,001976: 41,3136           03021                           TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1. IF SO,
014905,001977: 41,3137           02261                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
014906,001978: 41,3140           03144                           TC       PUTCOM2    -4                         #  NO DP
014907,001979: 41,3141           34714                           CAF      ZERO                                  #  DP
014908,001980: 41,3142           54117                           TS       DECOUNT                               
014909,001981: 41,3143           03123                           TC       PUTDPCOM                              
014910,001982: 
014911,001983: 41,3144           30146                           CA       NNADTEM                               
014912,001984: 41,3145           64712                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
014913,001985: 41,3146           00006                           EXTEND                                         
014914,001986: 41,3147           13154                           BZF      CHANLOAD                              
014915,001987: 41,3150           56154        PUTCOM2            XCH      MPAC                                  
014916,001988: 41,3151           00115                           TC       DECRET                                
014917,001989: 
014918,001990: 41,3152     0777                                  EBANK=   DSPCOUNT                              
014919,001991: 41,3152           02126 64101  GTSFINLC           2CADR    GTSFIN                                
014920,001992: 
014921,001993: 
014922,001994: 41,3154           44716        CHANLOAD           CS       SEVEN                                 #  DONT LOAD CHAN 7. (IT = SUPERBANK).
014923,001995: 41,3155           61017                           AD       NOUNCADR                              
014924,001996: 41,3156           00006                           EXTEND                                         
014925,001997: 41,3157           12771                           BZF      LOADLV                                
014926,001998: 41,3160           30154                           CA       MPAC                                  
014927,001999: 41,3161           00006                           EXTEND                                         
014928,002000: 41,3162           51017                           INDEX    NOUNCADR                              
014929,002001: 41,3163           01000                           WRITE    0                                     
014930,002002: 41,3164           02771                           TC       LOADLV                                
014931,002003: 
014932,002004: 
014933,002005:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
014934,002006: 
014935,002007: 41,3165           03042        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
014936,002008: 41,3166           54123                           TS       SFTEMP1                               
014937,002009: 41,3167           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
014938,002010: 41,3170           33153                           DCA      GTSFINLC                              #  READING ROUTINE.
014939,002011: 41,3171           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
014940,002012: 41,3172           50140                           INDEX    MIXBR                                 
014941,002013: 41,3173           03173                           TC       +0                                    
014942,002014: 41,3174           03177                           TC       PUTSFNOR                              
014943,002015: 41,3175           03027                           TC       SFRUTMIX                              
014944,002016: 41,3176           03200                           TC       PUTDCSF2                              
014945,002017: 41,3177           03021        PUTSFNOR           TC       SFRUTNOR                              
014946,002018: 
014947,002019: 41,3200           50000        PUTDCSF2           INDEX    A                                     
014948,002020: 41,3201           33203                           CAF      SFINTABR                              
014949,002021: 41,3202           04577                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
014950,002022: 41,3203           62347        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD

Page 341

014952,002024:                                                                                                  #                                          WITH OCTAL ONLY NOUN.
014953,002025: 41,3204           60774                           CADR     BINROUND                              
014954,002026: 41,3205           60714                           CADR     DEGINSF                               
014955,002027: 41,3206           60764                           CADR     ARTHINSF                              
014956,002028: 41,3207           61017                           CADR     DPINSF                                
014957,002029: 41,3210           61044                           CADR     DPINSF2                               
014958,002030: 41,3211           61002                           CADR     OPTDEGIN                              
014959,002031: 41,3212           61017                           CADR     DPINSF                                #  SAME AS ARITHDP1
014960,002032: 41,3213           65365                           CADR     HMSIN                                 
014961,002033: 41,3214           61323                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
014962,002034: 41,3215           61051                           CADR     DPINSF4                               
014963,002035: 41,3216           60777                           CADR     ARTIN1SF                              
014964,002036: 41,3217           61323                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
014965,002037: 41,3220                        ENDRUTIN           EQUALS                                         
014966,002038: 
014967,002039: 
014968,002040:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
014969,002041:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
014970,002042: 
014971,002043: 
014972,002044: 40,2714                                           SETLOC   ENDDPDEC   +1                         
014973,002045: 
014974,002046: 40,2714                                           COUNT    40/PIN                                
014975,002047: 
014976,002048:                                                                                                  #  DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
014977,002049: 
014978,002050: 40,2714           07052        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
014979,002051: 40,2715           02757                           ADRES    DEGCON1                               #  MULT BY 5.5  5(10)X2EXP-3
014980,002052: 40,2716           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
014981,002053: 40,2717           34700                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
014982,002054: 40,2720           02722                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
014983,002055: 40,2721           44700                           CS       BIT11                                 
014984,002056: 40,2722           60155                           AD       MPAC       +1                         
014985,002057: 40,2723           03070                           TC       2ROUND     +2                         
014986,002058: 40,2724           04420                           TC       TPSL1                                 #  LEFT 1
014987,002059: 40,2725           04420        DEGINSF2           TC       TPSL1                                 #  LEFT 2
014988,002060: 40,2726           03077                           TC       TESTOFUF                              
014989,002061: 40,2727           04420                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
014990,002062: 40,2730           10154                           CCS      MPAC                                  
014991,002063: 40,2731           02735                           TC       SIGNFIX                               #  IF+, GO TO SIGNFIX
014992,002064: 40,2732           02735                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
014993,002065: 40,2733           40000                           COM                                            #  IF - , USE -MAGNITUDE +1
014994,002066: 40,2734           54154                           TS       MPAC                                  #  IF -0, USE +0
014995,002067: 40,2735           10162        SIGNFIX            CCS      MPAC+6                                
014996,002068: 40,2736           02753                           TC       SGNTO1                                #  IF OVERFLOW
014997,002069: 40,2737           02747                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
014998,002070: 40,2740           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
014999,002071: 40,2741           05642                           TC       CCSHOLE                               
015000,002072: 40,2742           02751                           TC       NEG180                                
015001,002073: 40,2743           02744                           TC       +1                                    

Page 342

015003,002075: 40,2744           56154                           XCH      MPAC                                  
015004,002076: 40,2745           74672                           MASK     POSMAX                                
015005,002077: 40,2746           54154                           TS       MPAC                                  
015006,002078: 40,2747           04574        ENDSCALE           TC       POSTJUMP                              
015007,002079: 40,2750           63150                           CADR     PUTCOM2                               
015008,002080: 
015009,002081: 40,2751           44672        NEG180             CS       POSMAX                                
015010,002082: 40,2752           02746                           TC       ENDSCALE   -1                         
015011,002083: 
015012,002084: 40,2753           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
015013,002085: 40,2754           74672                           MASK     POSMAX                                
015014,002086: 40,2755           40000                           CS       A                                     
015015,002087: 40,2756           02746                           TC       ENDSCALE   -1                         
015016,002088: 
015017,002089: 40,2757           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
015018,002090: 
015019,002091: 40,2761           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
015020,002092: 40,2763           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
015021,002093: 
015022,002094: 40,2764           07052        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
015023,002095: 40,2765           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
015024,002096: 40,2766           56156                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
015025,002097: 40,2767           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
015026,002098: 40,2770           56154                           XCH      MPAC                                  
015027,002099: 40,2771           00006                           EXTEND                                         
015028,002100: 40,2772           12774                           BZF      BINROUND                              
015029,002101: 40,2773           04161                           TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
015030,002102: 40,2774           03066        BINROUND           TC       2ROUND                                
015031,002103: 40,2775           03077                           TC       TESTOFUF                              
015032,002104: 40,2776           02747                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
015033,002105: 
015034,002106: 
015035,002107: 40,2777           07052        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
015036,002108: 40,3000           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
015037,002109: 40,3001           02774                           TC       BINROUND                              
015038,002110: 
015039,002111: 
015040,002112: 40,3002           10154        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
015041,002113: 40,3003           03007                           TC       +4                                    
015042,002114: 40,3004           03007                           TC       +3                                    
015043,002115: 40,3005           04161                           TC       ALMCYCLE                              #  REJECT - INPUT. ALARM AND RECYCLE.
015044,002116: 40,3006           04161                           TC       ALMCYCLE                              #  REJECT - INPUT. ALARM AND RECYCLE.
015045,002117: 40,3007           32763        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
015046,002118: 40,3010           26154                           ADS      MPAC                                  #  SUBTRACT BIAS
015047,002119: 40,3011           07052                           TC       DMP                                   #  MULT BY 100 / 45  B-2
015048,002120: 40,3012           02761                           ADRES    DEGCON2                               
015049,002121: 40,3013           34677                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
015050,002122: 40,3014           60155                           AD       MPAC       +1                         

Page 343

015052,002124: 40,3015           03070                           TC       2ROUND     +2                         
015053,002125: 40,3016           02725                           TC       DEGINSF2                              
015054,002126: 
015055,002127: 40,3017           07052        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
015056,002128: 40,3020           00123                           ADRES    SFTEMP1                               #  SFTEMP2. STORES LOW PART OF RESULT
015057,002129: 40,3021           56156                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
015058,002130: 40,3022           60000                           DOUBLE                                         
015059,002131: 40,3023           54156                           TS       MPAC       +2                         
015060,002132: 40,3024           34714                           CAF      ZERO                                  
015061,002133: 40,3025           60155                           AD       MPAC       +1                         
015062,002134: 40,3026           03070                           TC       2ROUND     +2                         
015063,002135: 40,3027           03077                           TC       TESTOFUF                              
015064,002136: 40,3030           50140                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
015065,002137: 40,3031           03031                           TC       +0                                    
015066,002138: 40,3032           03042                           TC       DPINORM                               
015067,002139: 40,3033           30117                           CA       DECOUNT                               #  MIXEDNOUN
015068,002140: 40,3034           60145        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
015069,002141: 40,3035           54002                           TS       Q                                     #    E SUBK            E
015070,002142: 40,3036           56155                           XCH      MPAC       +1                         
015071,002143: 40,3037           50002                           INDEX    Q                                     
015072,002144: 40,3040           54001                           TS       1                                     #  PLACE LOW PART IN
015073,002145: 40,3041           02747                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
015074,002146: 40,3042           34714        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
015075,002147: 40,3043           03034                           TC       DPINCOM                               
015076,002148: 
015077,002149: 
015078,002150: 40,3044           07052        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
015079,002151: 40,3045           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
015080,002152: 40,3046           36211                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
015081,002153: 40,3047           03056                           TC       TPLEFTN                               #  SHIFT LEFT 7.
015082,002154: 40,3050           03021                           TC       DPINSF     +2                         
015083,002155: 
015084,002156: 40,3051           07052        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
015085,002157: 40,3052           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
015086,002158: 40,3053           34711                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
015087,002159: 40,3054           03056                           TC       TPLEFTN                               #  SHIFT LEFT 3.
015088,002160: 40,3055           03021                           TC       DPINSF     +2                         
015089,002161: 
015090,002162: 
015091,002163: 40,3056           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
015092,002164: 40,3057           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
015093,002165: 40,3060           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
015094,002166: 40,3061           54123        LEFTNCOM           TS       SFTEMP1                               #      LOOP TIME .37 MSEC.
015095,002167: 40,3062           04420                           TC       TPSL1                                 
015096,002168: 40,3063           10123                           CCS      SFTEMP1                               
015097,002169: 40,3064           03061                           TC       LEFTNCOM                              
015098,002170: 40,3065           00124                           TC       SFTEMP2                               
015099,002171: 
015100,002172: 

Page 344

015102,002174: 40,3066           56155        2ROUND             XCH      MPAC       +1                         
015103,002175: 40,3067           60000                           DOUBLE                                         
015104,002176: 40,3070           54155                           TS       MPAC       +1                         
015105,002177: 40,3071           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
015106,002178: 40,3072           60154                           AD       MPAC                                  
015107,002179: 40,3073           54154                           TS       MPAC                                  
015108,002180: 40,3074           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
015109,002181: 40,3075           54162                           TS       MPAC+6                                
015110,002182: 40,3076           00002        2RNDEND            TC       Q                                     
015111,002183: 
015112,002184: 40,3077           10162        TESTOFUF           CCS      MPAC+6                                #  RETURNS IF NO OF/UF
015113,002185: 40,3100           04161                           TC       ALMCYCLE                              #  OF   ALARM AND RECYCLE.
015114,002186: 40,3101           00002                           TC       Q                                     
015115,002187: 40,3102           04161                           TC       ALMCYCLE                              #  UF   ALARM AND RECYCLE.
015116,002188: 
015117,002189: 
015118,002190: 42,3365                                           SETLOC   ENDSPMIN   +1                         
015119,002191: 
015120,002192: 42,3365                                           COUNT    42/PIN                                
015121,002193: 
015122,002194: 42,3365           03506        HMSIN              TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
015123,002195: 42,3366           07052                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
015124,002196: 42,3367           03447                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
015125,002197: 42,3370           03456                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
015126,002198: 42,3371           34714                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383 ).
015127,002199: 42,3372           54156                           TS       MPAC       +2                         
015128,002200: 42,3373           33451                           CAF      HRCON                                 
015129,002201: 42,3374           54154                           TS       MPAC                                  
015130,002202: 42,3375           33452                           CAF      HRCON      +1                         
015131,002203: 42,3376           56155                           XCH      MPAC       +1                         
015132,002204: 42,3377           07256                           TC       SHORTMP                               
015133,002205: 42,3400           03467                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
015134,002206: 42,3401           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
015135,002207: 42,3402           52124                           DXCH     HITEMIN                               
015136,002208: 42,3403           31004                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
015137,002209: 42,3404           23007                           LXCH     YREGLP                                
015138,002210: 42,3405           52155                           DXCH     MPAC                                  
015139,002211: 42,3406           07052                           TC       DMP                                   
015140,002212: 42,3407           03447                           ADRES    WHOLECON                              
015141,002213: 42,3410           03456                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
015142,002214: 42,3411           43454                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
015143,002215: 42,3412           03474                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
015144,002216: 42,3413           56155                           XCH      MPAC       +1                         
015145,002217: 42,3414           00006                           EXTEND                                         
015146,002218: 42,3415           73453                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
015147,002219: 42,3416           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
015148,002220: 42,3417           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN
015149,002221: 42,3420           13422                           BZF      +2                                    
015150,002222: 42,3421           04161                           TC       ALMCYCLE                              

Page 345

015152,002224: 42,3422           31005                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
015153,002225: 42,3423           23010                           LXCH     ZREGLP                                
015154,002226: 42,3424           52155                           DXCH     MPAC                                  
015155,002227: 42,3425           07052                           TC       DMP                                   
015156,002228: 42,3426           03447                           ADRES    WHOLECON                              
015157,002229: 42,3427           03456                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
015158,002230: 42,3430           43455                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
015159,002231: 42,3431           03474                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
015160,002232: 42,3432           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
015161,002233: 42,3433           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
015162,002234: 42,3434           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
015163,002235: 42,3435           13437                           BZF      +2                                    
015164,002236: 42,3436           04161                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
015165,002237: 42,3437           34714                           CAF      ZERO                                  
015166,002238: 42,3440           54156                           TS       MPAC       +2                         
015167,002239: 42,3441           07226                           TC       TPAGREE                               
015168,002240: 42,3442           52155                           DXCH     MPAC                                  
015169,002241: 42,3443           50145                           INDEX    NOUNADD                               
015170,002242: 42,3444           52001                           DXCH     0                                     
015171,002243: 42,3445           04574                           TC       POSTJUMP                              
015172,002244: 42,3446           62771                           CADR     LOADLV                                
015173,002245: 
015174,002246: 42,3447           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
015175,002247: 42,3450           03240                           OCT      03240                                 
015176,002248: 42,3451           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
015177,002249: 42,3452           37100                           OCT      37100                                 
015178,002250: 42,3453           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
015179,002251: 42,3454           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
015180,002252: 42,3455           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
015181,002253: 
015182,002254: 42,3456           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
015183,002255: 42,3457           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
015184,002256: 42,3460           54156                           TS       MPAC       +2                         
015185,002257: 42,3461           34714                           CAF      ZERO                                  
015186,002258: 42,3462           60155                           AD       MPAC       +1                         
015187,002259: 42,3463           54155                           TS       MPAC       +1                         
015188,002260: 42,3464           34714                           CAF      ZERO                                  
015189,002261: 42,3465           60154                           AD       MPAC                                  #  CANT OVFLOW
015190,002262: 42,3466           56154                           XCH      MPAC                                  
015191,002263: 42,3467           10154        MPACTST            CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
015192,002264: 42,3470           04161                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
015193,002265: 42,3471           00002                           TC       Q                                     
015194,002266: 42,3472           04161                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
015195,002267: 42,3473           00002                           TC       Q                                     
015196,002268: 
015197,002269: 42,3474           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
015198,002270: 42,3475           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1
015199,002271: 42,3476           64712                           AD       ONE                                   
015200,002272: 42,3477           13501                           TCF      +2                                    

Page 346

015202,002274: 42,3500           64712                           AD       ONE                                   
015203,002275: 42,3501           60156                           AD       MPAC       +2                         
015204,002276: 42,3502           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
015205,002277: 42,3503           63505                           BZMF     +2                                    
015206,002278: 42,3504           04161                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
015207,002279: 42,3505           00002                           TC       Q                                     #  MAG OF MPAC+1 L/= CON
015208,002280: 
015209,002281: 
015210,002282:                                                                                                  #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
015211,002283:                                                                                                  #  ALARM IF NOT.( TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
015212,002284: 42,3506           43513        ALL3DEC            CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
015213,002285: 42,3507           71000                           MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
015214,002286: 42,3510           63513                           AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
015215,002287: 42,3511           10000                           CCS      A                                     
015216,002288: 42,3512           03516                           TC       FORCEV25                              
015217,002289: 42,3513           77743        OCT34BAR           OCT      77743                                 
015218,002290: 42,3514           03516                           TC       FORCEV25                              
015219,002291: 42,3515           00002                           TC       Q                                     
015220,002292: 
015221,002293: 
015222,002294: 42,3516           44113        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
015223,002295: 42,3517           55041                           TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD
015224,002296: 42,3520           04161                           TC       ALMCYCLE                              #   VERB.  ALARM AND RECYCLE.
015225,002297: 42,3521                        ENDHMSS            EQUALS                                         
015226,002298: 
015227,002299: 

Page 347

015229,002301:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
015230,002302:                                                                                                  #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
015231,002303:                                                                                                  #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
015232,002304:                                                                                                  #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
015233,002305:                                                                                                  #  HE HAS INITIATED THROUGH THE KEYBOARD).
015234,002306: 
015235,002307:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
015236,002308:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
015237,002309:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
015238,002310:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
015239,002311:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
015240,002312:                                                                                                  #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
015241,002313:                                                                                                  #  MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
015242,002314: 
015243,002315:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
015244,002316:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
015245,002317:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
015246,002318: 
015247,002319:                                                                                                  #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
015248,002320:                                                                                                  #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
015249,002321: 
015250,002322:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
015251,002323:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
015252,002324: 
015253,002325:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
015254,002326: 41,3220                                           SETLOC   ENDRUTIN                              
015255,002327: 
015256,002328: 41,3220                                           COUNT    41/PIN                                
015257,002329: 
015258,002330: 41,3220           43227        MONITOR            CS       BIT15/14                              
015259,002331: 41,3221           71017                           MASK     NOUNCADR                              
015260,002332: 41,3222           54155        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
015261,002333: 41,3223           40136                           CS       ENTEXIT                               
015262,002334: 41,3224           64233                           AD       ENDINST                               
015263,002335: 41,3225           10000                           CCS      A                                     
015264,002336: 41,3226           03235                           TC       MONIT2                                
015265,002337: 41,3227           60000        BIT15/14           OCT      60000                                 
015266,002338: 41,3230           03235                           TC       MONIT2                                
015267,002339: 41,3231           34675                           CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
015268,002340: 41,3232           26155                           ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
015269,002341: 41,3233           34714                           CAF      ZERO                                  
015270,002342: 41,3234           55022                           TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
015271,002343: 41,3235           36043        MONIT2             CAF      LOW7                                  
015272,002344: 41,3236           71001                           MASK     VERBREG                               
015273,002345: 41,3237           04345                           TC       LEFT5                                 
015274,002346: 41,3240           54022                           TS       CYL                                   
015275,002347: 41,3241           40022                           CS       CYL                                   
015276,002348: 41,3242           56022                           XCH      CYL                                   
015277,002349: 41,3243           61002                           AD       NOUNREG                               
015278,002350: 41,3244           54154                           TS       MPAC                                  #  TEMP STORAGE

Page 348

015280,002352: 41,3245           34714                           CAF      ZERO                                  
015281,002353: 41,3246           55012                           TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
015282,002354: 41,3247           11042                           CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
015283,002355: 41,3250           03252                           TC       +2                                    #  ARE BOTH EMPTY. (LITE COMES ON IF NEW
015284,002356: 41,3251           04516                           TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
015285,002357: 41,3252           00004                           INHINT                                         
015286,002358: 41,3253           11020                           CCS      MONSAVE                               
015287,002359: 41,3254           03261                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
015288,002360: 41,3255           34712                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
015289,002361: 41,3256           05140                           TC       WAITLIST                              
015290,002362: 41,3257     0777                                  EBANK=   DSPCOUNT                              
015291,002363: 41,3257           03265 62101                     2CADR    MONREQ                                
015292,002364: 41,3261           52155                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
015293,002365: 41,3262           53021                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
015294,002366: 41,3263           00003                           RELINT                                         #  SET UP EXTERNAL MONITOR BIT
015295,002367: 41,3264           00136                           TC       ENTRET                                
015296,002368: 
015297,002369: 
015298,002370: 41,3265           04414        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
015299,002371: 41,3266           11021                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
015300,002372: 41,3267           03273                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
015301,002373: 41,3270           03273                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
015302,002374: 41,3271           03304                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
015303,002375: 41,3272           03304                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
015304,002376: 41,3273           33310                           CAF      MONDEL                                
015305,002377: 41,3274           05140                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
015306,002378: 41,3275     0777                                  EBANK=   DSPCOUNT                              
015307,002379: 41,3275           03265 62101                     2CADR    MONREQ                                
015308,002380: 41,3277           34371                           CAF      CHRPRIO                               
015309,002381: 41,3300           05027                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
015310,002382: 41,3301     0777                                  EBANK=   DSPCOUNT                              
015311,002383: 41,3301           03311 62101                     2CADR    MONDO                                 
015312,002384: 41,3303           05213                           TC       TASKOVER                              
015313,002385: 
015314,002386: 41,3304           34714        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
015315,002387: 41,3305           55020                           TS       MONSAVE                               
015316,002388: 41,3306           55021                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
015317,002389: 41,3307           05213                           TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
015318,002390: 41,3310           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
015319,002391: 
015320,002392: 
015321,002393: 41,3311           11021        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
015322,002394: 41,3312           03316                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
015323,002395: 41,3313           03316                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
015324,002396: 41,3314           05112                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
015325,002397: 41,3315           05112                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
015326,002398: 41,3316           11012                           CCS      DSPLOCK                               

Page 349

015328,002400: 41,3317           03341                           TC       MONBUSY                               #  NVSUB IS BUSY
015329,002401: 41,3320           36043                           CAF      LOW7                                  
015330,002402: 41,3321           71020                           MASK     MONSAVE                               
015331,002403: 41,3322           02316                           TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
015332,002404: 41,3323           34160                           CAF      MID7                                  
015333,002405: 41,3324           71020                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
015334,002406: 41,3325           63337                           AD       MONREF                                #  -DEC10, STARTING IN BIT8
015335,002407: 41,3326           54023                           TS       EDOP                                  #  RIGHT 7
015336,002408: 41,3327           30023                           CA       EDOP                                  
015337,002409: 41,3330           55001                           TS       VERBREG                               
015338,002410: 41,3331           33340                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
015339,002411: 41,3332           54136                           TS       ENTRET                                
015340,002412: 41,3333           43227                           CS       BIT15/14                              
015341,002413: 41,3334           71021                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
015342,002414: 41,3335           54156                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
015343,002415: 41,3336           02046        ENDMONDO           TC       TESTNN                                #  EBANK.
015344,002416: 
015345,002417:    4140                                           BLOCK    2                                     
015346,002418: 
015347,002419:    4000                                           SETLOC   FFTAG8                                
015348,002420:    4000                                           BANK                                           
015349,002421: 
015350,002422:    4140                                           COUNT    02/PIN                                
015351,002423: 
015352,002424:    4140           34160        PASTEVB            CAF      MID7                                  
015353,002425:    4141           71022                           MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
015354,002426:    4142           00006                           EXTEND                                         
015355,002427:    4143           14145                           BZF      +2                                    
015356,002428:    4144           04146                           TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
015357,002429:    4145           31020                           CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
015358,002430:    4146           54023        PASTEOPT           TS       EDOP                                  #  RIGHT 7
015359,002431:    4147           30023                           CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
015360,002432:    4150           04555                           TC       BANKCALL                              #   VERBREG AND DISPLAY IT.
015361,002433:    4151           62336                           CADR     UPDATVB    -1                         
015362,002434:    4152           34714                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
015363,002435:    4153           55013                           TS       REQRET                                #   BE EXECUTED BY OPERATOR.
015364,002436:    4154           31022                           CA       MONSAVE2                              
015365,002437:    4155           04271                           TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
015366,002438:    4156           04157                           TC       +1                                    
015367,002439:    4157           05112        ENDPASTE           TC       ENDOFJOB                              
015368,002440: 
015369,002441:    4160           37600        MID7               OCT      37600                                 
015370,002442: 
015371,002443: 
015372,002444: 41,3337                                           SETLOC   ENDMONDO   +1                         
015373,002445: 41,3337                                           COUNT    41/PIN                                
015374,002446: 
015375,002447: 41,3337           75377        MONREF             OCT      75377                                 #  -DEC10, STARTING IN BIT8
015376,002448: 41,3340           04140        MONBACK            ADRES    PASTEVB                               
015377,002449: 

Page 350

015379,002451: 41,3341           04410        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
015380,002452: 41,3342           05112                           TC       ENDOFJOB                              
015381,002453: 
015382,002454: 
015383,002455:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
015384,002456:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
015385,002457:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
015386,002458: 
015387,002459:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.
015388,002460: 
015389,002461:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
015390,002462:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
015391,002463:                                                                                                  #           V23N26 SHOULD BE USED.
015392,002464: 
015393,002465:                                                                                                  #  SUMMARY
015394,002466:                                                                                                  #  FOR BANKS L/E 27,                          V27N01E(FCADR)E
015395,002467:                                                                                                  #  FOR BANKS G/E 30,    V23N26E(SUPERBITS)E   V27N01E(FCADR)E
015396,002468: 
015397,002469: 41,3343           34333        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
015398,002470: 41,3344           54777                           TS       DSPCOUNT                              
015399,002471: 41,3345           31047                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
015400,002472: 41,3346           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
015401,002473: 41,3347           31017                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
015402,002474: 41,3350           04610                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
015403,002475: 41,3351           03353                           TC       DSPOCTWD                              
015404,002476: 41,3352           05112        ENDSPF             TC       ENDOFJOB                              
015405,002477: 

Page 351

015407,002479:                                                                                                  #  WORD DISPLAY ROUTINES
015408,002480: 
015409,002481: 40,3103                                           SETLOC   TESTOFUF   +4                         
015410,002482: 40,3103                                           COUNT    40/PIN                                
015411,002483: 
015412,002484: 40,3103           56002        DSPSIGN            XCH      Q                                     
015413,002485: 40,3104           54144                           TS       DSPWDRET                              
015414,002486: 40,3105           10154                           CCS      MPAC                                  
015415,002487: 40,3106           03116                           TC       +8D                                   
015416,002488: 40,3107           03116                           TC       +7                                    
015417,002489: 40,3110           64712                           AD       ONE                                   
015418,002490: 40,3111           54154                           TS       MPAC                                  
015419,002491: 40,3112           02334                           TC       -ON                                   
015420,002492: 40,3113           40155                           CS       MPAC       +1                         
015421,002493: 40,3114           54155                           TS       MPAC       +1                         
015422,002494: 40,3115           00144                           TC       DSPWDRET                              
015423,002495: 40,3116           02314                           TC       +ON                                   
015424,002496: 40,3117           00144                           TC       DSPWDRET                              
015425,002497: 
015426,002498: 40,3120           00006        DSPRND             EXTEND                                         #  ROUND BY 5 EXP-6
015427,002499: 40,3121           33164                           DCA      DECROUND   -1                         
015428,002500: 40,3122           20155                           DAS      MPAC                                  
015429,002501: 40,3123           00006                           EXTEND                                         
015430,002502: 40,3124           13130                           BZF      +4                                    
015431,002503: 40,3125           00006                           EXTEND                                         
015432,002504: 40,3126           34672                           DCA      DPOSMAX                               
015433,002505: 40,3127           52155                           DXCH     MPAC                                  
015434,002506: 40,3130           00002                           TC       Q                                     
015435,002507: 
015436,002508:                                                                                                  #  DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015437,002509:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
015438,002510: 
015439,002511: 40,3131           56002        DSPDECWD           XCH      Q                                     
015440,002512: 40,3132           54115                           TS       WDRET                                 
015441,002513: 40,3133           03103                           TC       DSPSIGN                               
015442,002514: 40,3134           03120                           TC       DSPRND                                
015443,002515: 40,3135           34710                           CAF      FOUR                                  
015444,002516: 40,3136           54137        DSPDCWD1           TS       WDCNT                                 
015445,002517: 40,3137           34377                           CAF      BINCON                                
015446,002518: 40,3140           07256                           TC       SHORTMP                               
015447,002519: 40,3141           50154        TRACE1             INDEX    MPAC                                  
015448,002520: 40,3142           34072                           CAF      RELTAB                                
015449,002521: 40,3143           74362                           MASK     LOW5                                  
015450,002522: 40,3144           54124                           TS       CODE                                  
015451,002523: 40,3145           34714                           CAF      ZERO                                  
015452,002524: 40,3146           56156                           XCH      MPAC       +2                         
015453,002525: 40,3147           56155                           XCH      MPAC       +1                         
015454,002526: 40,3150           54154                           TS       MPAC                                  
015455,002527: 40,3151           56777                           XCH      DSPCOUNT                              
015456,002528: 40,3152           54143        TRACE1S            TS       COUNT                                 
015457,002529: 

Page 352

015459,002531: 40,3153           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
015460,002532: 40,3154           54777                           TS       DSPCOUNT                              
015461,002533: 40,3155           03225                           TC       DSPIN                                 
015462,002534: 40,3156           10137                           CCS      WDCNT                                 
015463,002535: 40,3157           03136                           TC       DSPDCWD1                              
015464,002536: 40,3160           44374                           CS       VD1                                   
015465,002537: 40,3161           54777                           TS       DSPCOUNT                              
015466,002538: 40,3162           00115                           TC       WDRET                                 
015467,002539: 
015468,002540: 40,3163           00000                           OCT      00000                                 
015469,002541: 40,3164           02476        DECROUND           OCT      02476                                 
015470,002542: 
015471,002543:                                                                                                  #  DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015472,002544:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
015473,002545: 
015474,002546: 40,3165           56002        DSPDECNR           XCH      Q                                     
015475,002547: 40,3166           54115                           TS       WDRET                                 
015476,002548: 40,3167           03103                           TC       DSPSIGN                               
015477,002549: 40,3170           03135                           TC       DSPDCWD1   -1                         
015478,002550: 
015479,002551:                                                                                                  #  DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
015480,002552:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
015481,002553: 
015482,002554: 40,3171           56002        DSPDC2NR           XCH      Q                                     
015483,002555: 40,3172           54115                           TS       WDRET                                 
015484,002556: 40,3173           03103                           TC       DSPSIGN                               
015485,002557: 40,3174           34712                           CAF      ONE                                   
015486,002558: 40,3175           03136                           TC       DSPDCWD1                              
015487,002559: 
015488,002560: 
015489,002561:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
015490,002562:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
015491,002563: 
015492,002564: 40,3176           56002        DSP2DEC            XCH      Q                                     
015493,002565: 40,3177           54115                           TS       WDRET                                 
015494,002566: 40,3200           34714                           CAF      ZERO                                  
015495,002567: 40,3201           54124                           TS       CODE                                  
015496,002568: 40,3202           36214                           CAF      THREE                                 
015497,002569: 40,3203           03307                           TC       11DSPIN                               #  -R2 OFF
015498,002570: 40,3204           34710                           CAF      FOUR                                  
015499,002571: 40,3205           03307                           TC       11DSPIN                               #  +R2 OFF
015500,002572: 40,3206           03103                           TC       DSPSIGN                               
015501,002573: 40,3207           34334                           CAF      R2D1                                  
015502,002574: 40,3210           03136        END2DEC            TC       DSPDCWD1                              
015503,002575: 
015504,002576: 
015505,002577:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
015506,002578:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
015507,002579:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
015508,002580:                                                                                                  #  DISPLAY CONVERSION.
015509,002581: 

Page 353

015511,002583: 40,3211           00006        DSPDECVN           EXTEND                                         
015512,002584: 40,3212           73221                           MP       VNDSPCON                              #  MULT BY .01
015513,002585: 40,3213           22154                           LXCH     MPAC                                  #  TAKE RESULTS FROM L.(MULT BY 2EXP14).
015514,002586: 40,3214           34714                           CAF      ZERO                                  
015515,002587: 40,3215           54155                           TS       MPAC       +1                         
015516,002588: 40,3216           56002                           XCH      Q                                     
015517,002589: 40,3217           54115                           TS       WDRET                                 
015518,002590: 40,3220           03174                           TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
015519,002591: 
015520,002592: 40,3221           00244        VNDSPCON           OCT      00244                                 #  .01 ROUNDED UP
015521,002593: 
015522,002594: 
015523,002595: 40,3222           03211        GOVNUPDT           TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE. REALLY PART
015524,002596: 40,3223           04574                           TC       POSTJUMP                              #  OF UPDATVB.
015525,002597: 40,3224           62346                           CADR     UPDAT1     +2                         
015526,002598: 
015527,002599: 40,3225                        ENDECVN            EQUALS                                         
015528,002600: 
015529,002601: 
015530,002602: 41,3353                                           SETLOC   ENDSPF     +1                         
015531,002603: 41,3353                                           COUNT    41/PIN                                
015532,002604: 
015533,002605:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
015534,002606:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
015535,002607: 
015536,002608: 41,3353           54022        DSPOCTWD           TS       CYL                                   
015537,002609: 41,3354           56002                           XCH      Q                                     
015538,002610: 41,3355           54115                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
015539,002611: 41,3356           34675                           CAF      BIT14                                 #  TO BLANK SIGNS
015540,002612: 41,3357           26777                           ADS      DSPCOUNT                              
015541,002613: 41,3360           34710                           CAF      FOUR                                  
015542,002614: 41,3361           54137        WDAGAIN            TS       WDCNT                                 
015543,002615: 41,3362           40022                           CS       CYL                                   
015544,002616: 41,3363           40022                           CS       CYL                                   
015545,002617: 41,3364           40022                           CS       CYL                                   
015546,002618: 41,3365           40000                           CS       A                                     
015547,002619: 41,3366           74716                           MASK     DSPMSK                                
015548,002620: 41,3367           50000                           INDEX    A                                     
015549,002621: 41,3370           34072                           CAF      RELTAB                                
015550,002622: 41,3371           74362                           MASK     LOW5                                  
015551,002623: 41,3372           54124                           TS       CODE                                  
015552,002624: 41,3373           56777                           XCH      DSPCOUNT                              
015553,002625: 41,3374           54143                           TS       COUNT                                 
015554,002626: 41,3375           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
015555,002627: 41,3376           54777                           TS       DSPCOUNT                              
015556,002628: 41,3377           04574                           TC       POSTJUMP                              
015557,002629: 41,3400           61315                           CADR     DSPOCTIN                              
015558,002630: 41,3401           10137        OCTBACK            CCS      WDCNT                                 
015559,002631: 41,3402           03361                           TC       WDAGAIN                               #  +
015560,002632: 41,3403           44374        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,

Page 354

015562,002634: 41,3404           54777                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
015563,002635: 41,3405           00115                           TC       WDRET                                 
015564,002636: 
015565,002637: 41,3406     4716               DSPMSK             =        SEVEN                                 
015566,002638: 
015567,002639: 
015568,002640:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
015569,002641:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
015570,002642:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
015571,002643: 
015572,002644: 41,3406           54020        DSP2BIT            TS       CYR                                   
015573,002645: 41,3407           56002                           XCH      Q                                     
015574,002646: 41,3410           54115                           TS       WDRET                                 
015575,002647: 41,3411           34712                           CAF      ONE                                   
015576,002648: 41,3412           54137                           TS       WDCNT                                 
015577,002649: 41,3413           40020                           CS       CYR                                   
015578,002650: 41,3414           40020                           CS       CYR                                   
015579,002651: 41,3415           56020                           XCH      CYR                                   
015580,002652: 41,3416           54022                           TS       CYL                                   
015581,002653: 41,3417           03366                           TC       WDAGAIN    +5                         
015582,002654: 
015583,002655: 
015584,002656:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
015585,002657:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
015586,002658:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
015587,002659:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
015588,002660: 
015589,002661: 40,3225                                           SETLOC   ENDECVN                               
015590,002662: 
015591,002663: 40,3225                                           COUNT    40/PIN                                
015592,002664: 
015593,002665: 40,3225           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
015594,002666: 40,3226           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
015595,002667: 40,3227           34362                           CAF      LOW5                                  
015596,002668: 40,3230           70143                           MASK     COUNT                                 
015597,002669: 40,3231           54021                           TS       SR                                    
015598,002670: 40,3232           56021                           XCH      SR                                    
015599,002671: 40,3233           54141                           TS       DSREL                                 
015600,002672: 40,3234           34712                           CAF      BIT1                                  
015601,002673: 40,3235           70143                           MASK     COUNT                                 
015602,002674: 40,3236           10000                           CCS      A                                     
015603,002675: 40,3237           03241                           TC       +2                                    #  LEFT IF COUNT IS ODD
015604,002676: 40,3240           03251                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
015605,002677: 40,3241           56124                           XCH      CODE                                  
015606,002678: 40,3242           04354                           TC       SLEFT5                                #  DOES NOT USE CYL
015607,002679: 40,3243           54124                           TS       CODE                                  
015608,002680: 40,3244           34675                           CAF      BIT14                                 
015609,002681: 40,3245           70143                           MASK     COUNT                                 
015610,002682: 40,3246           10000                           CCS      A                                     
015611,002683: 40,3247           34711                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN

Page 355

015613,002685: 40,3250           64712                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
015614,002686: 40,3251           54143                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
015615,002687:                                                                                                  #                                          +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
015616,002688:                                                                                                  #                                          +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
015617,002689: 40,3252           00004        DSPIN1             INHINT                                         
015618,002690: 40,3253           50141                           INDEX    DSREL                                 
015619,002691: 40,3254           11023                           CCS      DSPTAB                                
015620,002692: 40,3255           03257                           TC       +2                                    #  IF +
015621,002693: 40,3256           05642                           TC       CCSHOLE                               
015622,002694: 40,3257           64712                           AD       ONE                                   #  IF-
015623,002695: 40,3260           54142                           TS       DSMAG                                 
015624,002696: 40,3261           50143                           INDEX    COUNT                                 
015625,002697: 40,3262           73303                           MASK     DSMSK                                 
015626,002698: 40,3263           00006                           EXTEND                                         
015627,002699: 40,3264           60124                           SU       CODE                                  
015628,002700: 40,3265           00006                           EXTEND                                         
015629,002701: 40,3266           13301                           BZF      DSLV                                  #  SAME
015630,002702: 40,3267           50143        DFRNT              INDEX    COUNT                                 
015631,002703: 40,3270           43303                           CS       DSMSK                                 #  MASK WITH 77740,76037,75777, OR 74037
015632,002704: 40,3271           70142                           MASK     DSMAG                                 
015633,002705: 40,3272           60124                           AD       CODE                                  
015634,002706: 40,3273           40000                           CS       A                                     
015635,002707: 40,3274           50141                           INDEX    DSREL                                 
015636,002708: 40,3275           57023                           XCH      DSPTAB                                
015637,002709: 40,3276           00006                           EXTEND                                         
015638,002710: 40,3277           63301                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
015639,002711: 40,3300           25016                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
015640,002712: 40,3301           00003        DSLV               RELINT                                         
015641,002713: 40,3302           00114                           TC       DSEXIT                                
015642,002714: 
015643,002715: 40,3303           00037        DSMSK              OCT      37                                    
015644,002716: 40,3304           01740                           OCT      1740                                  
015645,002717: 40,3305           02000                           OCT      2000                                  
015646,002718: 40,3306           03740                           OCT      3740                                  
015647,002719: 
015648,002720: 
015649,002721:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
015650,002722:                                                                                                  #  BIT11 OF CODE.
015651,002723: 
015652,002724: 40,3307           54141        11DSPIN            TS       DSREL                                 
015653,002725: 40,3310           34711                           CAF      TWO                                   
015654,002726: 40,3311           54143                           TS       COUNT                                 
015655,002727: 40,3312           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
015656,002728: 40,3313           54114                           TS       DSEXIT                                
015657,002729: 40,3314           03252                           TC       DSPIN1                                
015658,002730: 
015659,002731: 
015660,002732: 40,3315           03225        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
015661,002733: 40,3316           33320                           CAF      +2                                    
015662,002734: 40,3317           04577                           TC       BANKJUMP                              

Page 356

015664,002736: 40,3320           63401        ENDSPOCT           CADR     OCTBACK                               
015665,002737: 
015666,002738: 
015667,002739:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
015668,002740:                                                                                                  #  ABORT WITH 01501.
015669,002741:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
015670,002742:                                                                                                  #  DO TC ENTRET.
015671,002743: 
015672,002744: 40,3321           44374        PREDSPAL           CS       VD1                                   
015673,002745: 40,3322           54777                           TS       DSPCOUNT                              
015674,002746: 40,3323           43342        DSPALARM           CS       NVSBENDL                              
015675,002747: 40,3324           60136                           AD       ENTEXIT                               
015676,002748: 40,3325           00006                           EXTEND                                         
015677,002749: 40,3326           13337                           BZF      CHARALRM   +2                         
015678,002750: 40,3327           43341                           CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
015679,002751: 40,3330           60136                           AD       ENTEXIT                               
015680,002752: 40,3331           00006                           EXTEND                                         
015681,002753: 40,3332           13334                           BZF      +2                                    
015682,002754: 40,3333           03335                           TC       +2                                    
015683,002755: 40,3334           04220                           TC       KILMONON                              
015684,002756: 40,3335           04400        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
015685,002757: 40,3336           05112                           TC       ENDOFJOB                              
015686,002758: 40,3337           05622                           TC       POODOO                                
015687,002759: 40,3340           01501                           OCT      01501                                 
015688,002760: 40,3341           04140        MONADR             GENADR   PASTEVB                               
015689,002761: 40,3342           04216        NVSBENDL           TC       NVSUBEND                              
015690,002762: 
015691,002763: 
015692,002764:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
015693,002765:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
015694,002766:                                                                                                  #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
015695,002767:                                                                                                  #  MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
015696,002768:                                                                                                  #  FOR MM CODE.
015697,002769: 
015698,002770:    4161                                           SETLOC   MID7       +1                         
015699,002771:    4161                                           COUNT    02/PIN                                
015700,002772: 
015701,002773:    4161           04400        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
015702,002774:    4162           41041                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
015703,002775:    4163           55013                           TS       REQRET                                #  SET FOR ENTPAS0
015704,002776:    4164           04555                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
015705,002777:    4165           62336                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
015706,002778:    4166           04574                           TC       POSTJUMP                              
015707,002779:    4167           62002        ENDALM             CADR     ENTER                                 
015708,002780: 
015709,002781: 
015710,002782:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
015711,002783:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW MM CODE IN A, BUT NOT DISPLAYED IN
015712,002784:                                                                                                  #  MM LIGHTS.
015713,002785:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.

Page 357

015715,002787:                                                                                                  #  IF NOT, IT RECYCLES.
015716,002788: 
015717,002789: 41,3420                                           SETLOC   DSP2BIT    +10D                       
015718,002790: 
015719,002791: 41,3420                                           COUNT    41/PIN                                
015720,002792: 
015721,002793: 41,3420           03442        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
015722,002794:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
015723,002795:                                                                                                  #  MMADREF AT ENTPASHI.
015724,002796: 41,3421           34706                           CAF      BIT5                                  #  OCT20 = ND2.
015725,002797: 41,3422           60777                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
015726,002798: 41,3423           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
015727,002799: 41,3424           13426                           BZF      +2                                    
015728,002800: 41,3425           04161                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
015729,002801: 41,3426           34714                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
015730,002802: 41,3427           57002                           XCH      NOUNREG                               
015731,002803: 41,3430           54154                           TS       MPAC                                  
015732,002804: 41,3431           34375                           CAF      ND1                                   
015733,002805: 41,3432           54777                           TS       DSPCOUNT                              
015734,002806: 41,3433           04555                           TC       BANKCALL                              
015735,002807: 41,3434           60502                           CADR     2BLANK                                
015736,002808: 41,3435           44374                           CS       VD1                                   #  BLOCK NUM CHAR IN
015737,002809: 41,3436           54777                           TS       DSPCOUNT                              
015738,002810: 41,3437           30154                           CA       MPAC                                  
015739,002811: 41,3440           04574                           TC       POSTJUMP                              
015740,002812: 41,3441           10010                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
015741,002813: 
015742,002814: 
015743,002815: 41,3442  04,2010               MODROUTB           =        V37                                   
015744,002816: 41,3442           40002        REQMM              CS       Q                                     
015745,002817: 41,3443           55013                           TS       REQRET                                
015746,002818: 41,3444           34375                           CAF      ND1                                   
015747,002819: 41,3445           54777                           TS       DSPCOUNT                              
015748,002820: 41,3446           34714                           CAF      ZERO                                  
015749,002821: 41,3447           55002                           TS       NOUNREG                               
015750,002822: 41,3450           04555                           TC       BANKCALL                              
015751,002823: 41,3451           60502                           CADR     2BLANK                                
015752,002824: 41,3452           04443                           TC       FLASHON                               
015753,002825: 41,3453           34712                           CAF      ONE                                   
015754,002826: 41,3454           55000                           TS       DECBRNCH                              #  SET FOR DEC
015755,002827: 41,3455           00136                           TC       ENTEXIT                               
015756,002828: 
015757,002829: 
015758,002830:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
015759,002831:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
015760,002832:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
015761,002833:                                                                                                  #  COMPONENT 1  PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
015762,002834:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
015763,002835:                                                                                                  #  COMPONENT 3  BBCON
015764,002836: 

Page 358

015766,002838: 41,3456           34712        VBRQEXEC           CAF      BIT1                                  
015767,002839: 41,3457           71045                           MASK     DSPTEM1                               
015768,002840: 41,3460           10000                           CCS      A                                     
015769,002841: 41,3461           03500                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
015770,002842: 41,3462           34365                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
015771,002843: 41,3463           54154        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
015772,002844: 41,3464           44712                           CS       BIT1                                  
015773,002845: 41,3465           71045                           MASK     DSPTEM1                               
015774,002846: 41,3466           54160                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
015775,002847: 41,3467           04473        REQUESTC           TC       RELDSP                                
015776,002848: 41,3470           34233                           CA       ENDINST                               
015777,002849: 41,3471           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
015778,002850: 41,3472           00006                           EXTEND                                         
015779,002851: 41,3473           31047                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
015780,002852: 41,3474           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
015781,002853: 41,3475           30160                           CA       MPAC       +4                         #  PRIO IN A
015782,002854: 41,3476           00004                           INHINT                                         
015783,002855: 41,3477           00154                           TC       MPAC                                  
015784,002856: 
015785,002857: 41,3500           34370        SETVAC             CAF      TCFINDVC                              
015786,002858: 41,3501           03463                           TC       REQEX1                                
015787,002859: 
015788,002860:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
015789,002861:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
015790,002862:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
015791,002863:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
015792,002864:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
015793,002865:                                                                                                  #  COMPONENT 3  BBCON
015794,002866: 
015795,002867: 41,3502           34366        VBRQWAIT           CAF      TCWAIT                                
015796,002868: 41,3503           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
015797,002869: 41,3504           31045                           CA       DSPTEM1                               #  TIME DELAY
015798,002870: 41,3505           03466        ENDRQWT            TC       REQUESTC   -1                         
015799,002871: 
015800,002872:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
015801,002873:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
015802,002874:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
015803,002875: 
015804,002876: 
015805,002877: 40,3343                                           SETLOC   NVSBENDL   +1                         
015806,002878: 40,3343                                           COUNT    40/PIN                                
015807,002879: 
015808,002880: 40,3343           34712        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
015809,002881: 40,3344           55014                           TS       LOADSTAT                              
015810,002882: 40,3345           04220                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
015811,002883: 40,3346           04473                           TC       RELDSP                                
015812,002884: 40,3347           04447                           TC       FLASHOFF                              
015813,002885: 40,3350           03450                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
015814,002886: 

Page 359

015816,002888: 40,3351           44712        VBTERM             CS       ONE                                   
015817,002889: 40,3352           03344                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
015818,002890: 
015819,002891: 
015820,002892:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
015821,002893:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
015822,002894: 40,3353           34714        PROCKEY            CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
015823,002895: 40,3354           55013                           TS       REQRET                                
015824,002896: 40,3355           44374                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
015825,002897: 40,3356           54777                           TS       DSPCOUNT                              
015826,002898: 40,3357           03343                           TC       VBPROC                                
015827,002899: 
015828,002900: 
015829,002901:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
015830,002902:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
015831,002903:                                                                                                  #   DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
015832,002904:                                                                                                  #   OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
015833,002905: 
015834,002906: 40,3360           44714        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
015835,002907: 40,3361           03344                           TC       VBPROC     +1                         
015836,002908: 
015837,002909: 
015838,002910:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
015839,002911:                                                                                                  #  END OF LOAD.
015840,002912: 

Page 360

015842,002914:                                                                                                  #  KEY RELEASE ROUTINE
015843,002915: 
015844,002916:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
015845,002917: 
015846,002918:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
015847,002919:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
015848,002920:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
015849,002921:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
015850,002922: 
015851,002923:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
015852,002924:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
015853,002925:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
015854,002926: 
015855,002927:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
015856,002928:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
015857,002929:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
015858,002930:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
015859,002931:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
015860,002932:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
015861,002933:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
015862,002934:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
015863,002935:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
015864,002936:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
015865,002937:                                                                                                  #  SUBROUTINES.
015866,002938: 
015867,002939: 40,3362           44710        VBRELDSP           CS       BIT3                                  
015868,002940: 40,3363           00006                           EXTEND                                         
015869,002941: 40,3364           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
015870,002942: 40,3365           10115                           CCS      21/22REG                              #  OLD DSPLOCK
015871,002943: 40,3366           34675                           CAF      BIT14                                 
015872,002944: 40,3367           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
015873,002945: 40,3370           10000                           CCS      A                                     
015874,002946: 40,3371           03400                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
015875,002947: 40,3372           04473        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
015876,002948: 40,3373           11042                           CCS      CADRSTOR                              #   RELEASE DISPLAY SYSTEM AND
015877,002949: 40,3374           03376                           TC       +2                                    #   DO RE-ESTABLISH IF CADRSTOR IS FULL.
015878,002950: 40,3375           05112                           TC       ENDOFJOB                              
015879,002951: 40,3376           04574                           TC       POSTJUMP                              
015880,002952: 40,3377           21176                           CADR     PINBRNCH                              
015881,002953: 40,3400           34714        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
015882,002954: 40,3401           55012                           TS       DSPLOCK                               #   JUST UNSUSPEND IT BY CLEARING DSPLOCK.
015883,002955: 40,3402           11042                           CCS      CADRSTOR                              #   TURN KEY RELEASE LIGHT OFF IF BOTH
015884,002956: 40,3403           05112                           TC       ENDOFJOB                              #   CADRSTOR AND DSPLIST ARE EMPTY.
015885,002957: 40,3404           04516                           TC       RELDSP1                               
015886,002958: 40,3405           05112                           TC       ENDOFJOB                              
015887,002959: 
015888,002960: 40,3406                        ENDRELDS           EQUALS                                         
015889,002961: 

Page 361

015891,002963:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
015892,002964:                                                                                                  #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
015893,002965:                                                                                                  #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
015894,002966:                                                                                                  #  PLACE 0VVVVVVVNNNNNNN INTO A.
015895,002967:                                                                                                  #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
015896,002968: 
015897,002969:                                                                                                  #  IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
015898,002970:                                                                                                  #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
015899,002971:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
015900,002972: 
015901,002973:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
015902,002974:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
015903,002975: 
015904,002976:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
015905,002977:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
015906,002978:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
015907,002979:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
015908,002980:                                                                                                  #  FURTHER ACTION).
015909,002981: 
015910,002982:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
015911,002983:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
015912,002984:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
015913,002985:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
015914,002986: 
015915,002987:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
015916,002988:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET
015917,002989:                                                                                                  #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
015918,002990:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
015919,002991:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
015920,002992:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
015921,002993:                                                                                                  #  MONITOR SET UP.
015922,002994: 
015923,002995:                                                                                                  #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
015924,002996:                                                                                                  #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
015925,002997: 
015926,002998:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
015927,002999:                                                                                                  #  MONITOR.
015928,003000: 
015929,003001:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
015930,003002:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
015931,003003: 
015932,003004:                                                                                                  #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
015933,003005:                                                                                                  #  (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
015934,003006:                                                                                                  #  ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE
015935,003007:                                                                                                  #  :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
015936,003008:                                                                                                  #  NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
015937,003009:                                                                                                  #  LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
015938,003010:                                                                                                  #  LIGHTS.
015939,003011: 
015940,003012:                                                                                                  #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL

Page 362

015942,003014:                                                                                                  #  PARAMETER IN L.  IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
015943,003015:                                                                                                  #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
015944,003016:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
015945,003017:                                                                                                  #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
015946,003018:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
015947,003019:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
015948,003020:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
015949,003021:                                                                                                  #  BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
015950,003022:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
015951,003023: 
015952,003024:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
015953,003025:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
015954,003026: 
015955,003027:    4170                                           SETLOC   ENDALM     +1                         
015956,003028: 
015957,003029:    4170                                           COUNT    02/PIN                                
015958,003030: 
015959,003031:    4170           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
015960,003032:    4171           54123        NVMONOPT           TS       NVTEMP                                
015961,003033:    4172           34675                           CAF      BIT14                                 
015962,003034:    4173           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
015963,003035:    4174           61012                           AD       DSPLOCK                               
015964,003036:    4175           10000                           CCS      A                                     
015965,003037:    4176           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
015966,003038:    4177           34712                           CAF      ONE                                   #  DSP SYST AVAILABLE
015967,003039:    4200           60002        NVSBCOM            AD       Q                                     
015968,003040:    4201           55037                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
015969,003041:    4202           23022                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
015970,003042:    4203           04220                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
015971,003043:    4204           34215        NVSUBCOM           CAF      NVSBBBNK                              
015972,003044: 
015973,003045:    4205           56006                           XCH      BBANK                                 
015974,003046:    4206           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
015975,003047:    4207           04007                           ROR      SUPERBNK                              
015976,003048:    4210           55040                           TS       NVBNKTEM                              
015977,003049:    4211           34215                           CAF      PINSUPBT                              
015978,003050:    4212           00006                           EXTEND                                         
015979,003051:    4213           01007                           WRITE    SUPERBNK                              
015980,003052:    4214           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
015981,003053:    4215     0777                                  EBANK=   DSPCOUNT                              
015982,003054:    4215           62101        NVSBBBNK           BBCON    NVSUB1                                
015983,003055: 
015984,003056:    4216     4215               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
015985,003057: 
015986,003058:    4216           53040        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
015987,003059:    4217           05122                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
015988,003060: 
015989,003061: 41,3506                                           SETLOC   ENDRQWT    +1                         
015990,003062: 
015991,003063: 41,3506                                           COUNT    41/PIN                                

Page 363

015993,003065:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
015994,003066:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
015995,003067: 
015996,003068: 41,3506           64716        BLANKDSP           AD       SEVEN                                 #  7,8,9,OR 10 (A HAD 0,1,2,OR 3)
015997,003069: 41,3507           00004                           INHINT                                         
015998,003070: 41,3510           54124                           TS       CODE                                  #  BLANK SPECIFIED DSPTABS
015999,003071: 41,3511           44677                           CS       BIT12                                 
016000,003072: 41,3512           50124                           INDEX    CODE                                  
016001,003073: 41,3513           57023                           XCH      DSPTAB                                
016002,003074: 41,3514           10000                           CCS      A                                     
016003,003075: 41,3515           25016                           INCR     NOUT                                  
016004,003076: 41,3516           03517                           TC       +1                                    
016005,003077: 41,3517           10124                           CCS      CODE                                  
016006,003078: 41,3520           03510                           TC       BLANKDSP   +2                         
016007,003079: 41,3521           00003                           RELINT                                         
016008,003080: 41,3522           50123                           INDEX    NVTEMP                                
016009,003081: 41,3523           03530                           TC       +5                                    
016010,003082: 41,3524           03525                           TC       +1                                    #  NVTEMP HAS -4 (NEVER TOUCH MODREG)
016011,003083: 41,3525           55001                           TS       VERBREG                               #             -3
016012,003084: 41,3526           55002                           TS       NOUNREG                               #             -2
016013,003085: 41,3527           55015                           TS       CLPASS                                #             -1
016014,003086: 41,3530           44374                           CS       VD1                                   
016015,003087: 41,3531           54777                           TS       DSPCOUNT                              
016016,003088: 41,3532           04447                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
016017,003089: 41,3533           03556                           TC       ENTSET     -2                         #  ZEROS REQRET
016018,003090: 
016019,003091: 41,3534           33560        NVSUB1             CAF      ENTSET                                #  IN BANK
016020,003092: 41,3535           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
016021,003093: 41,3536           10123                           CCS      NVTEMP                                #  WHAT NOW
016022,003094: 41,3537           03543                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
016023,003095: 41,3540           02350                           TC       GODSPALM                              
016024,003096: 41,3541           03506                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
016025,003097: 41,3542           02350                           TC       GODSPALM                              
016026,003098: 41,3543           36043                           CAF      LOW7                                  
016027,003099: 41,3544           70123                           MASK     NVTEMP                                
016028,003100: 41,3545           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
016029,003101: 41,3546           30123                           CA       NVTEMP                                #                  USES MPAC, +1, +2
016030,003102: 41,3547           54023                           TS       EDOP                                  #  RIGHT 7
016031,003103: 41,3550           30023                           CA       EDOP                                  
016032,003104: 41,3551           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
016033,003105:                                                                                                  #                                                          USES MPAC, +1, +2).
016034,003106: 41,3552           10157                           CCS      MPAC       +3                         #  TEST NOUN
016035,003107: 41,3553           03561                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
016036,003108: 41,3554           30160                           CA       MPAC       +4                         
016037,003109: 41,3555           02336                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
016038,003110: 41,3556           34714                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
016039,003111: 41,3557           55013                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
016040,003112: 41,3560           04216        ENTSET             TC       NVSUBEND                              
016041,003113: 41,3561           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
016042,003114: 41,3562           03566                           TC       +4                                    #  IF VERB NOT +0, GO ON

Page 364

016044,003116: 41,3563           30157                           CA       MPAC       +3                         
016045,003117: 41,3564           02316                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
016046,003118: 41,3565           04216                           TC       NVSUBEND                              
016047,003119: 41,3566           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
016048,003120: 41,3567           54161                           TS       MPAC       +5                         #               USES MPAC, +1, +2)
016049,003121: 41,3570           30160                           CA       MPAC       +4                         
016050,003122: 41,3571           02336                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
016051,003123: 41,3572           30157                           CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
016052,003124: 41,3573           02316                           TC       UPDATNN    -1                         
016053,003125: 41,3574           34714                           CAF      ZERO                                  
016054,003126: 41,3575           55014                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
016055,003127: 41,3576           55015                           TS       CLPASS                                
016056,003128: 41,3577           55013                           TS       REQRET                                #  SET REQRET FOR PASS 0.
016057,003129: 41,3600           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
016058,003130: 41,3601           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
016059,003131: 41,3602           02035        ENDNVSB1           TC       ENTPAS0                               
016060,003132: 
016061,003133: 
016062,003134:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
016063,003135:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
016064,003136: 
016065,003137: 
016066,003138:    4220                                           SETLOC   NVSUBEND   +2                         
016067,003139:    4220                                           COUNT    02/PIN                                
016068,003140: 
016069,003141:                                                                                                  #                                          FORCE BIT 15 OF MONSAVE1 TO 1.
016070,003142:    4220           34674        KILMONON           CAF      BIT15                                 #     THIS IS THE KILL MONITOR BIT.
016071,003143:    4221           55021                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
016072,003144:                                                                                                  #                                           MONITOR BIT.
016073,003145:    4222           00002                           TC       Q                                     
016074,003146: 
016075,003147: 
016076,003148:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
016077,003149:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
016078,003150:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
016079,003151:                                                                                                  #           -0    DATA IN      SET BY END OF LOAD ROUTINE
016080,003152:                                                                                                  #              OR RESEQUENCE   SET BY VERB 32
016081,003153: 
016082,003154: 
016083,003155:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
016084,003156:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
016085,003157:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
016086,003158:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016087,003159:                                                                                                  #  SINCE JOB SLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016088,003160:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
016089,003161:                                                                                                  #  L+1      FOR TERMINATE
016090,003162:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
016091,003163:                                                                                                  #  L+3      FOR DATA IN, OR RESEQUENCE
016092,003164:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
016093,003165: 

Page 365

016095,003167: 
016096,003168:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
016097,003169:                                                                                                  #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
016098,003170:                                                                                                  #  1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
016099,003171:                                                                                                  #  EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
016100,003172:                                                                                                  #  2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
016101,003173:                                                                                                  #  NVSUBUSY.
016102,003174: 
016103,003175:    4223           22002        ENDIDLE            LXCH     Q                                     #  RETURN ADDRESS INTO L.
016104,003176:    4224           04234                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
016105,003177:    4225           04240                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
016106,003178:    4226           30001                           CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
016107,003179:    4227           74747                           MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
016108,003180:    4230           60004                           AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
016109,003181:    4231           55042                           TS       CADRSTOR                              
016110,003182:    4232           05070                           TC       JOBSLEEP                              
016111,003183: 
016112,003184: 
016113,003185:    4233           05112        ENDINST            TC       ENDOFJOB                              
016114,003186: 
016115,003187: 
016116,003188:    4234           11042        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
016117,003189:    4235           04243                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
016118,003190:    4236           00002                           TC       Q                                     
016119,003191:    4237           04243                           TC       DSPABORT                              
016120,003192: 
016121,003193:    4240           11043        ISLIST+0           CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
016122,003194:    4241           04243                           TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
016123,003195:    4242           00002                           TC       Q                                     
016124,003196:    4243           05622        DSPABORT           TC       POODOO                                
016125,003197:    4244           01206                           OCT      01206                                 
016126,003198: 
016127,003199: 
016128,003200:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
016129,003201:                                                                                                  #  IT DOES ENDOFJOB.
016130,003202: 
016131,003203:    4245           34215        JAMTERM            CAF      PINSUPBT                              
016132,003204:    4246           00006                           EXTEND                                         
016133,003205:    4247           01007                           WRITE    SUPERBNK                              
016134,003206:    4250           34256                           CAF      34DEC                                 
016135,003207:    4251           55013                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
016136,003208:    4252           44374                           CS       VD1                                   
016137,003209:    4253           54777                           TS       DSPCOUNT                              
016138,003210:    4254           04574                           TC       POSTJUMP                              
016139,003211:    4255           61351                           CADR     VBTERM                                
016140,003212: 
016141,003213:    4256           00042        34DEC              DEC      34         B-14                       
016142,003214: 
016143,003215: 
016144,003216:                                                                                                  #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
016145,003217:                                                                                                  #  FUNCTION. IT DOES ENDOFJOB.
016146,003218: 

Page 366

016148,003220:    4257           34215        JAMPROC            CAF      PINSUPBT                              
016149,003221:    4260           00006                           EXTEND                                         
016150,003222:    4261           01007                           WRITE    SUPERBNK                              
016151,003223:    4262           34270                           CAF      33DEC                                 
016152,003224:    4263           55013                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
016153,003225:    4264           44374                           CS       VD1                                   
016154,003226:    4265           54777                           TS       DSPCOUNT                              
016155,003227:    4266           04574                           TC       POSTJUMP                              
016156,003228:    4267           61343                           CADR     VBPROC                                
016157,003229: 
016158,003230:    4270           00041        33DEC              DEC      33         B-14                       
016159,003231: 
016160,003232: 
016161,003233:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
016162,003234:                                                                                                  #  CALL WITH BLANKING CODE IN A.
016163,003235:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
016164,003236:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
016165,003237: 
016166,003238:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
016167,003239: 
016168,003240:    4271           74716        BLANKSUB           MASK     SEVEN                                 
016169,003241:    4272           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
016170,003242:    4273           34675                           CAF      BIT14                                 
016171,003243:    4274           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016172,003244:    4275           61012                           AD       DSPLOCK                               
016173,003245:    4276           10000                           CCS      A                                     
016174,003246:    4277           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
016175,003247:    4300           24002                           INCR     Q                                     #  DSP SYST AVAILABLE
016176,003248:                                                                                                  #                                          SET RETURN FOR 2+ CALLING LOC
016177,003249:    4301           10123                           CCS      NVTEMP                                
016178,003250:    4302           14304                           TCF      +2                                    
016179,003251:    4303           00002                           TC       Q                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
016180,003252:    4304           22002                           LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
016181,003253:    4305           34316                           CAF      BLNKBBNK                              
016182,003254:    4306           56006                           XCH      BBANK                                 
016183,003255:    4307           00006                           EXTEND                                         
016184,003256:    4310           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
016185,003257:    4311           52131                           DXCH     BUF                                   
016186,003258:    4312           34215                           CAF      PINSUPBT                              
016187,003259:    4313           00006                           EXTEND                                         
016188,003260:    4314           01007                           WRITE    SUPERBNK                              
016189,003261:    4315           03406                           TC       BLNKSUB1                              
016190,003262: 
016191,003263:    4316     0777                                  EBANK=   DSPCOUNT                              
016192,003264:    4316           60101        BLNKBBNK           BBCON    BLNKSUB1                              
016193,003265:    4317                        ENDBLFF            EQUALS                                         
016194,003266: 
016195,003267: 40,3406                                           SETLOC   ENDRELDS                              
016196,003268: 40,3406                                           COUNT    40/PIN                                
016197,003269: 

Page 367

016199,003271: 40,3406           30777        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
016200,003272: 40,3407           54132                           TS       BUF        +2                         
016201,003273: 40,3410           34712                           CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
016202,003274: 40,3411           03430                           TC       TESTBIT                               
016203,003275: 40,3412           34333                           CAF      R1D1                                  
016204,003276: 40,3413           02436                           TC       5BLANK     -1                         
016205,003277: 40,3414           34711                           CAF      BIT2                                  #  TEST BIT2. SEE IF R2 TO BE BLANKED.
016206,003278: 40,3415           03430                           TC       TESTBIT                               
016207,003279: 40,3416           34334                           CAF      R2D1                                  
016208,003280: 40,3417           02436                           TC       5BLANK     -1                         
016209,003281: 40,3420           34710                           CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
016210,003282: 40,3421           03430                           TC       TESTBIT                               
016211,003283: 40,3422           34335                           CAF      R3D1                                  
016212,003284: 40,3423           02436                           TC       5BLANK     -1                         
016213,003285: 40,3424           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
016214,003286: 40,3425           54777                           TS       DSPCOUNT                              #       BEFORE BLANKSUB.
016215,003287: 40,3426           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
016216,003288: 40,3427           05123                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
016217,003289: 
016218,003290: 40,3430           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
016219,003291: 40,3431           10000                           CCS      A                                     
016220,003292: 40,3432           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
016221,003293: 40,3433           50002                           INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
016222,003294: 40,3434           00002                           TC       2                                     
016223,003295: 
016224,003296: 40,3435                        ENDBSUB1           EQUALS                                         
016225,003297: 
016226,003298: 
016227,003299:                                                                                                  #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
016228,003300:                                                                                                  #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
016229,003301: 
016230,003302:                                                                                                  #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
016231,003303: 
016232,003304:                                                                                                  #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
016233,003305: 
016234,003306: 07,2440                                           BANK     7                                     
016235,003307: 04,2000                                           SETLOC   PINBALL4                              
016236,003308: 04,2000                                           BANK                                           
016237,003309: 
016238,003310: 04,2537                                           COUNT    07/PIN                                
016239,003311: 
016240,003312: 04,2537           56002        DSPMM              XCH      Q                                     
016241,003313: 04,2540           54154                           TS       MPAC                                  
016242,003314: 04,2541           00004                           INHINT                                         
016243,003315: 04,2542           34371                           CAF      CHRPRIO                               
016244,003316: 04,2543           05027                           TC       NOVAC                                 
016245,003317: 04,2544     0777                                  EBANK=   DSPCOUNT                              
016246,003318: 04,2544           03435 60101                     2CADR    DSPMMJB                               
016247,003319: 04,2546           00003                           RELINT                                         

Page 368

016249,003321: 04,2547           00154        ENDSPMM            TC       MPAC                                  
016250,003322: 
016251,003323:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
016252,003324: 
016253,003325: 40,3435                                           SETLOC   ENDBSUB1                              
016254,003326: 
016255,003327: 40,3435                                           COUNT    40/PIN                                
016256,003328: 
016257,003329: 40,3435           34376        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
016258,003330: 40,3436           56777                           XCH      DSPCOUNT                              
016259,003331: 40,3437           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
016260,003332: 40,3440           11011                           CCS      MODREG                                
016261,003333: 40,3441           64712                           AD       ONE                                   
016262,003334: 40,3442           03211                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
016263,003335: 40,3443           03445                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
016264,003336: 40,3444           02502                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
016265,003337: 40,3445           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
016266,003338: 40,3446           54777                           TS       DSPCOUNT                              
016267,003339: 40,3447           05112                           TC       ENDOFJOB                              
016268,003340: 
016269,003341: 
016270,003342:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
016271,003343:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
016272,003344:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
016273,003345: 
016274,003346:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
016275,003347:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
016276,003348: 
016277,003349: 40,3450           11042        RECALTST           CCS      CADRSTOR                              
016278,003350: 40,3451           03453                           TC       RECAL1                                
016279,003351: 40,3452           05112                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
016280,003352: 40,3453           34714        RECAL1             CAF      ZERO                                  
016281,003353: 40,3454           57042                           XCH      CADRSTOR                              
016282,003354: 40,3455           00004                           INHINT                                         
016283,003355: 40,3456           05074                           TC       JOBWAKE                               
016284,003356: 40,3457           11014                           CCS      LOADSTAT                              
016285,003357: 40,3460           03502                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
016286,003358: 40,3461           05112                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
016287,003359: 40,3462           03500                           TC       DOTERM                                #  -   TERMINATE
016288,003360: 40,3463           34711                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
016289,003361: 40,3464           50064        RECAL2             INDEX    LOCCTR                                
016290,003362: 40,3465           60164                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
016291,003363: 40,3466           50064                           INDEX    LOCCTR                                
016292,003364: 40,3467           54164                           TS       LOC                                   
016293,003365: 40,3470           31002                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
016294,003366: 40,3471           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
016295,003367: 40,3472           31001                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
016296,003368: 40,3473           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
016297,003369: 40,3474           52155                           DXCH     MPAC                                  
016298,003370: 40,3475           00003                           RELINT                                         

Page 369

016300,003372: 40,3476           04473        RECAL3             TC       RELDSP                                
016301,003373: 40,3477           05112                           TC       ENDOFJOB                              
016302,003374: 
016303,003375: 40,3500           34714        DOTERM             CAF      ZERO                                  
016304,003376: 40,3501           03464                           TC       RECAL2                                
016305,003377: 
016306,003378: 40,3502           34712        DOPROC             CAF      ONE                                   
016307,003379: 40,3503           03464                           TC       RECAL2                                
016308,003380: 

Page 370

016310,003382:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
016311,003383: 
016312,003384: 
016313,003385:    4317                                           SETLOC   ENDBLFF                               
016314,003386: 
016315,003387:    4317                                           COUNT    02/PIN                                
016316,003388: 
016317,003389:                                                                                                  #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
016318,003390:                                                                                                  #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
016319,003391: 
016320,003392:    4317           55017        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
016321,003393:    4320           54003                           TS       EBANK                                 #  SET EBANK BITS
016322,003394:    4321           74373                           MASK     LOW8                                  
016323,003395:    4322           64744                           AD       OCT1400                               
016324,003396:    4323           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
016325,003397:    4324           00002                           TC       Q                                     
016326,003398: 
016327,003399: 
016328,003400:                                                                                                  #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
016329,003401:                                                                                                  #                 E ADRES AND PUTS IT INTO NOUNADD.
016330,003402: 
016331,003403:    4325           31017        SETNADD            CA       NOUNCADR                              
016332,003404:    4326           14320                           TCF      SETNCADR   +1                         
016333,003405: 
016334,003406: 
016335,003407:                                                                                                  #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
016336,003408:                                                                                                  #                 DERIVED AND LEFT IN A.
016337,003409: 
016338,003410:    4327           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
016339,003411:    4330           74373                           MASK     LOW8                                  
016340,003412:    4331           64744                           AD       OCT1400                               #  E ADRES LEFT IN A
016341,003413:    4332           00002                           TC       Q                                     
016342,003414: 
016343,003415: 
016344,003416:    4333           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016345,003417:    4334           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
016346,003418:    4335           00004        R3D1               OCT      4                                     
016347,003419: 
016348,003420:    4336           54020        RIGHT5             TS       CYR                                   
016349,003421:    4337           40020                           CS       CYR                                   
016350,003422:    4340           40020                           CS       CYR                                   
016351,003423:    4341           40020                           CS       CYR                                   
016352,003424:    4342           40020                           CS       CYR                                   
016353,003425:    4343           56020                           XCH      CYR                                   
016354,003426:    4344           00002                           TC       Q                                     
016355,003427: 
016356,003428:    4345           54022        LEFT5              TS       CYL                                   
016357,003429:    4346           40022                           CS       CYL                                   
016358,003430:    4347           40022                           CS       CYL                                   
016359,003431:    4350           40022                           CS       CYL                                   

Page 371

016361,003433:    4351           40022                           CS       CYL                                   
016362,003434:    4352           56022                           XCH      CYL                                   
016363,003435:    4353           00002                           TC       Q                                     
016364,003436: 
016365,003437:    4354           60000        SLEFT5             DOUBLE                                         
016366,003438:    4355           60000                           DOUBLE                                         
016367,003439:    4356           60000                           DOUBLE                                         
016368,003440:    4357           60000                           DOUBLE                                         
016369,003441:    4360           60000                           DOUBLE                                         
016370,003442:    4361           00002                           TC       Q                                     
016371,003443: 
016372,003444: 
016373,003445:    4362           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016374,003446:    4363           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
016375,003447:    4364           76000        HI5                OCT      76000                                 #  MUST STAY HERE
016376,003448: 
016377,003449:    4365           05027        TCNOVAC            TC       NOVAC                                 
016378,003450:    4366           05140        TCWAIT             TC       WAITLIST                              
016379,003451:    4367           05213        TCTSKOVR           TC       TASKOVER                              
016380,003452:    4370           05042        TCFINDVC           TC       FINDVAC                               
016381,003453: 
016382,003454: 
016383,003455:    4371           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
016384,003456: 
016385,003457: 
016386,003458:    4372           03777        LOW11              OCT      3777                                  
016387,003459:    4373     4372               B12-1              EQUALS   LOW11                                 
016388,003460:    4373           00377        LOW8               OCT      377                                   
016389,003461: 
016390,003462: 
016391,003463:    4374           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016392,003464:    4375           00021        ND1                OCT      21                                    #  DONT SEPARATE.
016393,003465:    4376           00025        MD1                OCT      25                                    
016394,003466: 
016395,003467:    4377           00012        BINCON             DEC      10         B-14                       
016396,003468: 
016397,003469:    4400           34704        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
016398,003470:    4401           00006                           EXTEND                                         
016399,003471:    4402           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
016400,003472:    4403           00002                           TC       Q                                     
016401,003473: 
016402,003474:    4404           44704        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
016403,003475:    4405           00006                           EXTEND                                         
016404,003476:    4406           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
016405,003477:    4407           00002                           TC       Q                                     
016406,003478: 
016407,003479:    4410           34706        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
016408,003480:    4411           00006                           EXTEND                                         
016409,003481:    4412           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
016410,003482:    4413           00002                           TC       Q                                     
016411,003483: 

Page 372

016413,003485:    4414           00006        LODSAMPT           EXTEND                                         
016414,003486:    4415           30025                           DCA      TIME2                                 
016415,003487:    4416           52014                           DXCH     SAMPTIME                              
016416,003488:    4417           00002                           TC       Q                                     
016417,003489: 
016418,003490: 
016419,003491:    4420           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
016420,003492:    4421           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
016421,003493:    4422           20156                           DAS      MPAC       +1                         
016422,003494:    4423           60154                           AD       MPAC                                  
016423,003495:    4424           26154                           ADS      MPAC                                  
016424,003496:    4425           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
016425,003497:    4426           00002                           TC       Q                                     #  NO NET OF/UF
016426,003498:    4427           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/- 1 FOR OF/UF
016427,003499:    4430           00002                           TC       Q                                     
016428,003500: 
016429,003501: 
016430,003502:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
016431,003503:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
016432,003504:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
016433,003505:                                                                                                  #  SETTING RESULT TO -0.
016434,003506:                                                                                                  #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
016435,003507:                                                                                                  #   WHEN THEY CONTAIN TH E SF CONSTANTS.)
016436,003508: 
016437,003509:    4431           54135        PRSHRTMP           TS       MPTEMP                                
016438,003510:    4432           10000                           CCS      A                                     
016439,003511:    4433           30135                           CA       MPTEMP                                #  C(A) +, DO REGULAR SHORTMP
016440,003512:    4434           17257                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
016441,003513:    4435           14433                           TCF      -2                                    #  C(A) -, DO REGULAR SHORTMP
016442,003514:    4436           44714                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
016443,003515:    4437           54154                           TS       MPAC                                  
016444,003516:    4440           54155                           TS       MPAC       +1                         
016445,003517:    4441           54156                           TS       MPAC       +2                         
016446,003518:    4442           00002                           TC       Q                                     
016447,003519: 
016448,003520: 
016449,003521:    4443           34705        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
016450,003522:    4444           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
016451,003523:    4445           05011                           WOR      DSALMOUT                              
016452,003524:    4446           00002                           TC       Q                                     
016453,003525: 
016454,003526: 
016455,003527:    4447           44705        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
016456,003528:    4450           00006                           EXTEND                                         
016457,003529:    4451           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
016458,003530:    4452           00002                           TC       Q                                     
016459,003531: 

Page 373

016461,003533:                                                                                                  #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
016462,003534: 
016463,003535:                                                                                                  #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
016464,003536:                                                                                                  #  CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
016465,003537:                                                                                                  #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
016466,003538:                                                                                                  #  OFFERED.
016467,003539: 
016468,003540:                                                                                                  #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
016469,003541:                                                                                                  #  PROGRAM.    1) BY ENDIDLE
016470,003542:                                                                                                  #              2) BY NVSUBUSY
016471,003543:                                                                                                  #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
016472,003544:                                                                                                  #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
016473,003545:                                                                                                  #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
016474,003546:                                                                                                  #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
016475,003547: 
016476,003548: 
016477,003549:                                                                                                  #  THE CALLING SEQUENCE FOR NVSUB IS
016478,003550:                                                                                                  #           CAF    V/N
016479,003551:                                                                                                  #  L        TC     NVSUB
016480,003552:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
016481,003553:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
016482,003554: 
016483,003555: 
016484,003556:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
016485,003557:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
016486,003558:                                                                                                  #  SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
016487,003559:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016488,003560:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016489,003561: 
016490,003562: 
016491,003563:                                                                                                  #         THE CALLING SEQUENCE IS
016492,003564:                                                                                                  #           CAF    WAKEFCADR
016493,003565:                                                                                                  #           TC     NVSUBUSY
016494,003566: 
016495,003567: 
016496,003568:                                                                                                  #  .
016497,003569: 
016498,003570: 
016499,003571:                                                                                                  #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
016500,003572:                                                                                                  #  IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
016501,003573:                                                                                                  #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL 
016502,003574:                                                                                                  #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
016503,003575: 
016504,003576: 
016505,003577:                                                                                                  #  NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
016506,003578:                                                                                                  #  SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
016507,003579:                                                                                                  #  WHEN
016508,003580:                                                                                                  #  1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
016509,003581:                                                                                                  #     IS EXCEEDED.
016510,003582:                                                                                                  #  2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING

Page 374

016512,003584:                                                                                                  #  ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
016513,003585: 
016514,003586:    4453           44460        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
016515,003587:    4454           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
016516,003588:    4455           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
016517,003589:    4456           04574        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
016518,003590:    4457           10550                           CADR     NVSUBSY1                              
016519,003591:    4460           02003        2K+3               OCT      2003                                  
016520,003592: 
016521,003593:                                                                                                  #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
016522,003594:                                                                                                  #  WITH HIS PROPER SUPERBITS.
016523,003595: 
016524,003596: 04,2550                                           SETLOC   ENDSPMM    +1                         
016525,003597: 04,2550                                           COUNT    07/PIN                                
016526,003598: 
016527,003599: 04,2550           54001        NVSUBSY1           TS       L                                     
016528,003600: 04,2551           04234                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
016529,003601: 04,2552           04240                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
016530,003602: 04,2553           04410                           TC       RELDSPON                              
016531,003603: 04,2554           30001                           CA       L                                     
016532,003604: 04,2555           55043                           TS       DSPLIST                               
016533,003605: 04,2556           05070        ENDNVBSY           TC       JOBSLEEP                              
016534,003606: 
016535,003607: 
016536,003608:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
016537,003609:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
016538,003610:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
016539,003611:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
016540,003612:                                                                                                  #  IS NOT BUSY.
016541,003613: 
016542,003614:    4461                                           SETLOC   NVSUBUSY   +3                         
016543,003615:    4461                                           COUNT    02/PIN                                
016544,003616: 
016545,003617:    4461           22007        NVSBWAIT           LXCH     7                                     #  ZERO NVMONOPT OPTIONS
016546,003618:    4462           54123                           TS       NVTEMP                                
016547,003619:    4463           34675                           CAF      BIT14                                 
016548,003620:    4464           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016549,003621:    4465           61012                           AD       DSPLOCK                               
016550,003622:    4466           10000                           CCS      A                                     
016551,003623:    4467           14471                           TCF      NVSBWT1                               #  BUSY
016552,003624:    4470           14200                           TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
016553,003625:                                                                                                  #                                          AFTER EXECUTION.
016554,003626:    4471           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
016555,003627:    4472           14453                           TCF      PRENVBSY                              #  GO TO SLEEP.
016556,003628: 
016557,003629: 
016558,003630:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
016559,003631:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
016560,003632:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
016561,003633:    4473           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT

Page 375

016563,003635:    4474           54144                           TS       RELRET                                #  OFF,  SEARCH DSPLIST
016564,003636:    4475           44675                           CS       BIT14                                 
016565,003637:    4476           00004                           INHINT                                         
016566,003638:    4477           71021                           MASK     MONSAVE1                              
016567,003639:    4500           55021                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
016568,003640:    4501           11043                           CCS      DSPLIST                               
016569,003641:    4502           04504                           TC       +2                                    
016570,003642:    4503           04507                           TC       RELDSP2                               #  LIST EMPTY
016571,003643:    4504           34714                           CAF      ZERO                                  
016572,003644:    4505           57043                           XCH      DSPLIST                               
016573,003645:    4506           05074                           TC       JOBWAKE                               
016574,003646:    4507           00003        RELDSP2            RELINT                                         
016575,003647:    4510           44706                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
016576,003648:    4511           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
016577,003649:    4512           03011                           WAND     DSALMOUT                              
016578,003650:    4513           34714                           CAF      ZERO                                  
016579,003651:    4514           55012                           TS       DSPLOCK                               
016580,003652:    4515           00144                           TC       RELRET                                
016581,003653:    4516           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
016582,003654:    4517           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
016583,003655:                                                                                                  #                                          EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
016584,003656:                                                                                                  #                                          DSPLIST IS NOT EMPTY.
016585,003657:    4520           11043                           CCS      DSPLIST                               
016586,003658:    4521           04523                           TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
016587,003659:    4522           04507                           TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
016588,003660:    4523           34714                           CAF      ZERO                                  #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
016589,003661:    4524           55012                           TS       DSPLOCK                               
016590,003662:    4525           00144                           TC       RELRET                                
016591,003663: 
016592,003664: 
016593,003665:    4526                        ENDPINBF           EQUALS                                         
016594,003666: 

Page 376

016596,003668:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
016597,003669: 
016598,003670:    4526  43,2002               PINTEST            EQUALS   LST2FAN                               
016599,003671: 

Page 377

016601,003673:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
016602,003674:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
016603,003675: 
016604,003676: 41,3603                                           SETLOC   ENDNVSB1   +1                         
016605,003677: 
016606,003678: 41,3603                                           COUNT    41/PIN                                
016607,003679: 
016608,003680: 41,3603           00004        VBTSTLTS           INHINT                                         
016609,003681: 41,3604           44712                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
016610,003682: 41,3605           71321                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
016611,003683: 41,3606           64712                           AD       BIT1                                  
016612,003684: 41,3607           55321                           TS       IMODES33                              
016613,003685: 
016614,003686: 41,3610           33644                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
016615,003687: 41,3611           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
016616,003688: 41,3612           05011                           WOR      DSALMOUT                              
016617,003689: 41,3613           33645                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
016618,003690: 41,3614           55036                           TS       DSPTAB     +11D                       #  PROG ALM.
016619,003691: 41,3615           34701                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
016620,003692: 41,3616           00006                           EXTEND                                         
016621,003693: 41,3617           05013                           WOR      CHAN13                                
016622,003694: 41,3620           34377                           CAF      TEN                                   
016623,003695: 41,3621           54117        TSTLTS1            TS       ERCNT                                 
016624,003696: 41,3622           43642                           CS       FULLDSP                               
016625,003697: 41,3623           50117                           INDEX    ERCNT                                 
016626,003698: 41,3624           55023                           TS       DSPTAB                                
016627,003699: 41,3625           10117                           CCS      ERCNT                                 
016628,003700: 41,3626           03621                           TC       TSTLTS1                               
016629,003701: 41,3627           43643                           CS       FULLDSP1                              
016630,003702: 41,3630           55024                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
016631,003703: 41,3631           55027                           TS       DSPTAB     +4                         
016632,003704: 41,3632           55031                           TS       DSPTAB     +6                         
016633,003705: 41,3633           34717                           CAF      ELEVEN                                
016634,003706: 41,3634           55016                           TS       NOUT                                  
016635,003707: 41,3635           33647                           CAF      SHOLTS                                
016636,003708: 41,3636           05140                           TC       WAITLIST                              
016637,003709: 41,3637     1023                                  EBANK=   DSPTAB                                
016638,003710: 41,3637           03650 62102                     2CADR    TSTLTS2                               
016639,003711: 41,3641           05112                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
016640,003712:                                                                                                  #                                          ACTION) UNTIL TSTLTS3 TO INSURE THAT
016641,003713:                                                                                                  #                                          LIGHTS TEST WILL BE SEEN.
016642,003714: 
016643,003715: 
016644,003716: 41,3642           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
016645,003717: 41,3643           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
016646,003718: 41,3644           00175        TSTCON1            OCT      00175                                 
016647,003719:                                                                                                  #                                          UPLINK ACTIVITY, TEMP, KEY RLSE,
016648,003720:                                                                                                  #                                          V/N FLASH, OPERATOR ERROR.
016649,003721: 41,3645           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D  BITS 4,6,8,9.

Page 378

016651,003723:                                                                                                  #                                          NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
016652,003724: 41,3646           00115        TSTCON3            OCT      00115                                 #  CHAN 11  BITS 1, 3, 4, 7.
016653,003725:                                                                                                  #                                          UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
016654,003726: 41,3647           00764        SHOLTS             OCT      764                                   #  5 SEC
016655,003727: 
016656,003728: 
016657,003729: 41,3650           34371        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
016658,003730: 41,3651           05027                           TC       NOVAC                                 
016659,003731: 41,3652     1023                                  EBANK=   DSPTAB                                
016660,003732: 41,3652           03655 62102                     2CADR    TSTLTS3                               
016661,003733: 41,3654           05213                           TC       TASKOVER                              
016662,003734: 
016663,003735: 
016664,003736: 41,3655           43646        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
016665,003737: 41,3656           00004                           INHINT                                         
016666,003738: 41,3657           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY, TEMP,
016667,003739: 41,3660           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
016668,003740: 41,3661           44701                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
016669,003741: 41,3662           00006                           EXTEND                                         
016670,003742: 41,3663           03013                           WAND     CHAN13                                
016671,003743: 41,3664           34707                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
016672,003744: 41,3665           00006                           EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
016673,003745: 41,3666           02012                           RAND     CHAN12                                
016674,003746: 41,3667           64674                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
016675,003747: 41,3670           55036                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
016676,003748: 41,3671           43710                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
016677,003749: 41,3672           71321                           MASK     IMODES33                              #  LIGHTS COMPLETE.
016678,003750: 41,3673           64763                           AD       PRIO16                                
016679,003751: 41,3674           55321                           TS       IMODES33                              
016680,003752: 
016681,003753: 41,3675           43711                           CS       OCT55000                              
016682,003754: 41,3676           71320                           MASK     IMODES30                              
016683,003755: 41,3677           64762                           AD       PRIO15                                #  15000.
016684,003756: 41,3700           55320                           TS       IMODES30                              
016685,003757: 
016686,003758: 41,3701           00003                           RELINT                                         
016687,003759: 
016688,003760: 41,3702           04555                           TC       BANKCALL                              #  REDISPLAY C(MODREG)
016689,003761: 41,3703           10537                           CADR     DSPMM                                 
016690,003762: 41,3704           04220                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
016691,003763: 41,3705           04447                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
016692,003764: 41,3706           04574                           TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
016693,003765: 41,3707           61372                           CADR     TSTLTS4                               #   ENDIDLE IS AWAITING OPERATOR RESPONSE.
016694,003766: 41,3710           16001        13-11,1            OCT      16001                                 
016695,003767: 41,3711           55000        OCT55000           OCT      55000                                 
016696,003768: 41,3712                        ENDPINS2           EQUALS                                         
016697,003769: 

Page 379

016699,003771:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
016700,003772:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
016701,003773:                                                                                                  #  PROG ALM, TRACKER FAIL.
016702,003774:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
016703,003775:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
016704,003776:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
016705,003777:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
016706,003778: 
016707,003779: 40,3504                                           SETLOC   DOPROC     +2                         
016708,003780: 40,3504                                           COUNT    40/PIN                                
016709,003781: 
016710,003782: 40,3504           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
016711,003783: 40,3505           55012                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
016712,003784: 40,3506           00004                           INHINT                                         
016713,003785: 40,3507           34701                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
016714,003786: 40,3510           00006                           EXTEND                                         
016715,003787: 40,3511           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
016716,003788: 40,3512           33567                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
016717,003789: 40,3513           71036                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
016718,003790: 40,3514           64674                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
016719,003791: 40,3515           55036                           TS       DSPTAB     +11D                       
016720,003792: 40,3516           44763                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
016721,003793: 40,3517           71321                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
016722,003794: 40,3520           64763                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
016723,003795: 40,3521           55321                           TS       IMODES33                              
016724,003796: 40,3522           44701                           CS       BIT10                                 
016725,003797: 40,3523           71320                           MASK     IMODES30                              
016726,003798: 40,3524           64701                           AD       BIT10                                 
016727,003799: 40,3525           55320                           TS       IMODES30                              
016728,003800: 
016729,003801: 40,3526           44701                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
016730,003802: 40,3527           00006                           EXTEND                                         
016731,003803: 40,3530           03013                           WAND     CHAN13                                
016732,003804: 40,3531           43565                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
016733,003805: 40,3532           00006                           EXTEND                                         #  OPERATOR ERROR.
016734,003806: 40,3533           03011                           WAND     DSALMOUT                              
016735,003807: 40,3534           34377        TSTAB              CAF      BINCON                                #  (DEC 10)
016736,003808: 40,3535           54117                           TS       ERCNT                                 #  ERCNT = COUNT
016737,003809: 40,3536           00004                           INHINT                                         
016738,003810: 40,3537           50117                           INDEX    ERCNT                                 
016739,003811: 40,3540           11023                           CCS      DSPTAB                                
016740,003812: 40,3541           64712                           AD       ONE                                   
016741,003813: 40,3542           03547                           TC       ERPLUS                                
016742,003814: 40,3543           64712                           AD       ONE                                   
016743,003815: 40,3544           40000        ERMINUS            CS       A                                     
016744,003816: 40,3545           73570                           MASK     NOTBIT12                              
016745,003817: 40,3546           03552                           TC       ERCOM                                 
016746,003818: 40,3547           40000        ERPLUS             CS       A                                     
016747,003819: 40,3550           73570                           MASK     NOTBIT12                              
016748,003820: 40,3551           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,

Page 380

016750,003822: 40,3552           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
016751,003823: 40,3553           55023                           TS       DSPTAB                                
016752,003824: 40,3554           00003                           RELINT                                         
016753,003825: 40,3555           10117                           CCS      ERCNT                                 
016754,003826: 40,3556           03535                           TC       TSTAB      +1                         
016755,003827: 40,3557           34714                           CAF      ZERO                                  
016756,003828: 40,3560           54375                           TS       FAILREG                               
016757,003829: 40,3561           54376                           TS       FAILREG    +1                         
016758,003830: 40,3562           54377                           TS       FAILREG    +2                         
016759,003831: 40,3563           55357                           TS       SFAIL                                 
016760,003832: 40,3564           05112                           TC       ENDOFJOB                              
016761,003833: 
016762,003834: 40,3565           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
016763,003835:                                                                                                  #                                          UPLINK ACTIVITY, AND OPERATOR ERROR.
016764,003836: 40,3566           00240        BITS6,8            OCT      240                                   
016765,003837: 40,3567           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS
016766,003838: 40,3570           73777        NOTBIT12           OCT      73777                                 
016767,003839: 
016768,003840: 
016769,003841: 40,3571                        ENDPINS1           EQUALS                                         

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