Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

013965,000002:                                                                                                  ## Copyright:   Public domain.
013966,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
013967,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
013968,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
013969,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
013970,000007:                                                                                                  ##              Apollo 15-17.
013971,000008:                                                                                                  ## Assembler:   yaYUL
013972,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
013973,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
013974,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
013975,000012:                                                                                                  ## Mod history: 2009-08-10 JL   Adapted from corresponding Comanche 055 file.
013976,000013:                                                                                                  ##              2009-09-03 JL   Fixed conversion error (duplicate declaration
013977,000014:                                                                                                  ##                              of NEG.2).
013978,000015:                                                                                                  ##              2009-09-04 JL   Fixed page comment.
013979,000016:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
013980,000017:                                                                                                  ##              2010-02-02 JL   Removed extra instruction (TS DSPCOUNT). Fixed
013981,000018:                                                                                                  ##                              page numbers.
013982,000019:                                                                                                  ##              2010-02-05 JL   Fixed code errors.
013983,000020:                                                                                                  ##              2010-02-07 JL   Added missing BANK opcode on p369. Removed 
013984,000021:                                                                                                  ##                              extra instruction on p383.
013985,000022:                                                                                                  ##              2010-02-10 JL   Fixed line on p381.
013986,000023:                                                                                                  ##              2010-02-13 JL   Fixed errors on pages 327, 354, 356, 362, 363, 
013987,000024:                                                                                                  ##                              368, 370, 374, 379, 380, 391, 392.
013988,000025:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
013989,000026:                                                                                                  ##              2011-05-07 JL   Removed obsolete link.
013990,000027:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
013991,000028:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by combination of 
013992,000029:                                                                                                  ##                              octopus/ProoferComments and diff'ing vs
013993,000030:                                                                                                  ##                              Comanche 55.
013994,000031:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
013995,000032:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
013996,000033:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
013997,000034:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
013998,000035:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
013999,000036:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
014000,000037:                                                                                                  ##                              In several places, trailing periods that were missing
014001,000038:                                                                                                  ##                              or extremely faint in the printout were restored, 
014002,000039:                                                                                                  ##                              and marked with a ##-style comment.  This occurred
014003,000040:                                                                                                  ##                              if a period was present in _all_ other available 
014004,000041:                                                                                                  ##                              Colossus or Luminary version (8 in all) without there
014005,000042:                                                                                                  ##                              being any other different obvious in the line.
014006,000043: 

Page 318

014008,000045: 
014009,000046:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
014010,000047:                                                                                                  #  MOD BY - BARNERT      DATE - 20 AUG 1969
014011,000048:                                                                                                  #  LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
014012,000049: 
014013,000050:                                                                                                  #  FUNCTIONAL DESCRIPTION-
014014,000051: 
014015,000052:                                                                                                  #        THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
014016,000053:                                                                                                  #        CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
014017,000054:                                                                                                  #        COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
014018,000055:                                                                                                  #        FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
014019,000056: 
014020,000057:                                                                                                  #        THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
014021,000058:                                                                                                  #        KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
014022,000059:                                                                                                  #        DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
014023,000060:                                                                                                  #        NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
014024,000061:                                                                                                  #        REFER TO A GROUP OF ERASABLE REGISTERS.
014025,000062: 
014026,000063:                                                                                                  #        VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
014027,000064:                                                                                                  #        UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
014028,000065:                                                                                                  #        ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
014029,000066:                                                                                                  #        :EXTENDED VERBS:).
014030,000067: 
014031,000068:                                                                                                  #        A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND
014032,000069:                                                                                                  #        OPERATION INFORMATION:.
014033,000070: 
014034,000071:                                                                                                  #  CALLING SEQUENCES-
014035,000072: 
014036,000073:                                                                                                  #        KEYBOARD:
014037,000074:                                                                                                  #        EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
014038,000075:                                                                                                  #        INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO
014039,000076:                                                                                                  #        CHANNEL 15 (CHANNEL 16).  KEYRUPT1 (KEYRUPT2) PLACES THE KEY
014040,000077:                                                                                                  #        CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
014041,000078:                                                                                                  #        PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
014042,000079: 
014043,000080:                                                                                                  #        UPLINK:
014044,000081:                                                                                                  #        EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
014045,000082:                                                                                                  #        PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
014046,000083:                                                                                                  #        KEYBOARD AND DISPLAY PROGRAM (AT :CHARIN:) AND EXECUTES A RESUME.
014047,000084: 
014048,000085:                                                                                                  #        INTERNAL PROGRAMS:
014049,000086:                                                                                                  #        INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
014050,000087:                                                                                                  #        CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
014051,000088:                                                                                                  #        DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
014052,000089:                                                                                                  #        SYMBOL TABLE FOR PAGE NUMBERS).
014053,000090: 
014054,000091:                                                                                                  #  NORMAL EXIT MODES-
014055,000092: 
014056,000093:                                                                                                  #        IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
014057,000094:                                                                                                  #                1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
014058,000095:                                                                                                  #                2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE

Page 319

014060,000097:                                                                                                  #                   PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE
014061,000098:                                                                                                  #                   RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
014062,000099:                                                                                                  #                   CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
014063,000100:                                                                                                  #                   ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
014064,000101:                                                                                                  #                3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
014065,000102:                                                                                                  #                   SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
014066,000103:                                                                                                  #                   30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
014067,000104:                                                                                                  #                4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
014068,000105:                                                                                                  #                   ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
014069,000106:                                                                                                  #                   THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
014070,000107: 
014071,000108:                                                                                                  #        IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
014072,000109:                                                                                                  #        TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
014073,000110:                                                                                                  #        :NVSUB:
014074,000111: 
014075,000112:                                                                                                  #  ALARM OR ABORT EXIT MODES-
014076,000113: 
014077,000114:                                                                                                  #        EXTERNAL INITIATION:
014078,000115:                                                                                                  #        IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
014079,000116:                                                                                                  #        ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
014080,000117: 
014081,000118:                                                                                                  #        INTERNAL PROGRAM INITIATION:
014082,000119:                                                                                                  #        IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
014083,000120:                                                                                                  #        (WITH OCTAL 21501).
014084,000121:                                                                                                  #        IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
014085,000122:                                                                                                  #        CAUSED (WITH OCTAL 21206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
014086,000123:                                                                                                  #                1) ENDIDLE
014087,000124:                                                                                                  #                2) NVSUBUSY
014088,000125: 
014089,000126:                                                                                                  #  OUTPUT-
014090,000127: 
014091,000128:                                                                                                  #  INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
014092,000129:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
014093,000130:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
014094,000131:                                                                                                  #  IN INTERRUPT.
014095,000132: 
014096,000133:                                                                                                  #  ERASABLE INITIALIZATION-
014097,000134: 
014098,000135:                                                                                                  #  FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
014099,000136:                                                                                                  #  PINBALL IN :STARTSUB:.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
014100,000137:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
014101,000138:                                                                                                  #  DSPCOUNT, NOUT.
014102,000139: 
014103,000140:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
014104,000141:                                                                                                  #  PINBALL IS GIVEN BELOW.
014105,000142: 
014106,000143:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
014107,000144: 
014108,000145:                                                                                                  #  REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
014109,000146:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
014110,000147: 

Page 320

014112,000149:                                                                                                  #        NVSUB           CALLING POINT FOR INTERNAL USE OF PINBALL.
014113,000150:                                                                                                  #                        OF RELATED INTEREST - NVSUBUSY
014114,000151: 
014115,000152:                                                                                                  #        ENDIDLE         ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
014116,000153:                                                                                                  #                        AWAITING OPERATORS RESPONSE.
014117,000154: 
014118,000155:                                                                                                  #        DSPMMJOB        ROUTINE CALL WITH PRIO 30000, USED TO DISPLAY A DECIMAL
014119,000156:                                                                                                  #                        PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
014120,000157: 
014121,000158:                                                                                                  #        BLANKSUB        ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
014122,000159:                                                                                                  #                        COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
014123,000160: 
014124,000161:                                                                                                  #        JAMTERM         ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
014125,000162:                                                                                                  #                        TERMINATE (V 34) FUNCTION.
014126,000163: 
014127,000164:                                                                                                  #        MONITOR         VERBS FOR PERIODIC (1 PER SEC) DISPLAY.
014128,000165: 
014129,000166:                                                                                                  #        PLEASE PERFORM, PLEASE MARK SITUATIONS
014130,000167:                                                                                                  #                REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
014131,000168:                                                                                                  #                THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
014132,000169:                                                                                                  #                SYMBOL TABLE FOR PAGE NUMBER).
014133,000170: 
014134,000171:                                                                                                  #        THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
014135,000172:                                                                                                  #        BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
014136,000173: 
014137,000174:                                                                                                  #        THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
014138,000175:                                                                                                  #        TABLES:.
014139,000176: 
014140,000177:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
014141,000178:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
014142,000179:                                                                                                  #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
014143,000180: 
014144,000181:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
014145,000182: 
014146,000183:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
014147,000184:                                                                                                  #        USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
014148,000185:                                                                                                  #        CHRISTIAN EAR CAN ENDURE TO HEAR.::
014149,000186:                                                                                                  #                                        HENRY 6, ACT 2, SCENE 4
014150,000187: 
014151,000188:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
014152,000189: 
014153,000190:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
014154,000191: 
014155,000192:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
014156,000193:                                                                                                  #  DECBRNCH      ERASE                   +DEC, -DEC, OCT INDICATOR
014157,000194:                                                                                                  #  VERBREG       ERASE                   VERB CODE
014158,000195:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
014159,000196:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER

Page 321

014161,000198:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
014162,000199:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
014163,000200:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
014164,000201:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
014165,000202:                                                                                                  #  HITEMOUT      =       YREGLP          TEMP FOR DISPLAY OF HRS,MIN,SEC
014166,000203:                                                                                                  #                                                MUST = LOTEMOUT-1.
014167,000204:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
014168,000205:                                                                                                  #  LOTEMOUT      =       ZREGLP          TEMP FOR DISPLAY OF HRS,MIN,SEC
014169,000206:                                                                                                  #                                                MUST = HITEMOUT+1.
014170,000207:                                                                                                  #  MODREG        ERASE                   MODE CODE
014171,000208:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
014172,000209:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
014173,000210:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
014174,000211:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
014175,000212:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
014176,000213:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
014177,000214:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
014178,000215:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
014179,000216:                                                                                                  #  MONSAVE2      ERASE                   NVMONOPT OPTIONS
014180,000217:                                                                                                  #  DSPTAB        ERASE   +13D            0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS
014181,000218:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
014182,000219:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
014183,000220:                                                                                                  #                                        MUST = NVBNKTEM-1
014184,000221:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
014185,000222:                                                                                                  #                                        MUST = NVQTEM+1
014186,000223:                                                                                                  #  VERBSAVE      ERASE                   NEEDED FOR RECYCLE
014187,000224:                                                                                                  #  DSPLIST       ERASE                   WAITING REG FOR DSP SYST INTERNAL USE
014188,000225:                                                                                                  #  EXTVBACT      REASE                   EXTENDED VERB ACTIVITY INTERLOCK
014189,000226:                                                                                                  #  DSPTEM1       ERASE   +2              BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
014190,000227:                                                                                                  #  DSPTEM2       ERASE   +2              BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
014191,000228: 
014192,000229:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
014193,000230: 
014194,000231:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014195,000232: 
014196,000233:                                                                                                  #  DSEXIT        =       INTB15+         RETURN FOR DSPIN
014197,000234:                                                                                                  #  EXITEM        =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
014198,000235:                                                                                                  #  BLANKRET      =       INTB15+         RETURN FOR 2BLANK
014199,000236: 
014200,000237:                                                                                                  #  WRDRET        =       INTBIT15        RETURN FOR 5BLANK
014201,000238:                                                                                                  #  WDRET         =       INTBIT15        RETURN FOR DSPWD
014202,000239:                                                                                                  #  DECRET        =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
014203,000240:                                                                                                  #  21/22REG      =       INTBIT15        TEMP FOR CHARIN
014204,000241: 
014205,000242:                                                                                                  #  UPDATRET      =       POLISH          RETURN FOR UPDATNN, UPDATVB
014206,000243:                                                                                                  #  CHAR          =       POLISH          TEMP FOR CHARIN
014207,000244:                                                                                                  #  ERCNT         =       POLISH          COUNTER FOR ERROR LIGHT RESET
014208,000245:                                                                                                  #  DECOUNT       =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
014209,000246: 
014210,000247:                                                                                                  #  SGNON         =       VBUF            TEMP FOR +,- ON

Page 322

014212,000249:                                                                                                  #  NOUNTEM       =       VBUF            COUNTER FOR MIXNOUN FETCH
014213,000250:                                                                                                  #  DISTEM        =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
014214,000251:                                                                                                  #  DECTEM        =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
014215,000252: 
014216,000253:                                                                                                  #  SGNOFF        =       VBUF +1         TEMP FOR +,- ON
014217,000254:                                                                                                  #  NVTEMP        =       VBUF +1         TEMP FOR NVSUB
014218,000255:                                                                                                  #  SFTEMP1       =       VBUF +1         STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
014219,000256:                                                                                                  #  HITEMIN       =       VBUF +1         TEMP FOR LOAD OF HRS, MIN, SEC
014220,000257:                                                                                                  #                                                MUST = LOTEMIN-1.
014221,000258:                                                                                                  #  CODE          =       VBUF +2         FOR DSPIN
014222,000259:                                                                                                  #  SFTEMP2       =       VBUF +2         STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
014223,000260:                                                                                                  #  LOTEMIN       =       VBUF +2         TEMP FOR LOAD OF HRS, MIN, SEC
014224,000261:                                                                                                  #                                                MUST = HITEMIN+1.
014225,000262:                                                                                                  #  MIXTEMP       =       VBUF +3         FOR MIXNOUN DATA
014226,000263:                                                                                                  #  SIGNRET       =       VBUF +3         RETURN FOR +,- ON
014227,000264: 
014228,000265:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
014229,000266: 
014230,000267:                                                                                                  #  ENTRET        =       DOTINC          EXIT FROM ENTER
014231,000268: 
014232,000269:                                                                                                  #  WDCNT         =       DOTRET          CHAR COUNTER FOR DSPWD
014233,000270:                                                                                                  #  INREL         =       DOTRET          INPUT BUFFER SELECTOR (X,Y,Z, REG)
014234,000271: 
014235,000272:                                                                                                  #  DSPMMTEM      =       MATINC          DSPCOUNT SAVE FOR DSPMM
014236,000273:                                                                                                  #  MIXBR         =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
014237,000274: 
014238,000275:                                                                                                  #  TEM1          ERASE                   EXEC TEMP
014239,000276:                                                                                                  #  DSREL         =       TEM1            REL ADDRESS FOR DSPIN
014240,000277: 
014241,000278:                                                                                                  #  TEM2          ERASE                   EXEC TEMP
014242,000279:                                                                                                  #  DSMAG         =       TEM2            MAGNITUDE STORE FOR DSPIN
014243,000280:                                                                                                  #  IDADDTEM      =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
014244,000281: 
014245,000282:                                                                                                  #  TEM3          ERASE                   EXEC TEMP
014246,000283:                                                                                                  #  COUNT         =       TEM3            FOR DSPIN
014247,000284: 
014248,000285:                                                                                                  #  TEM4          ERASE                   EXEC TEMP
014249,000286:                                                                                                  #  LSTPTR        =       TEM4            LIST POINTER FOR GRABUSY
014250,000287:                                                                                                  #  RELRET        =       TEM4            RETURN FOR RELDSP
014251,000288:                                                                                                  #  FREERET       =       TEM4            RETURN FOR FREEDSP
014252,000289:                                                                                                  #  DSPWDRET      =       TEM4            RETURN FOR DSPSIGN
014253,000290:                                                                                                  #  SEPSCRET      =       TEM4            RETURN FOR SEPSEC
014254,000291:                                                                                                  #  SEPMNRET      =       TEM4            RETURN FOR SEPMIN
014255,000292: 
014256,000293:                                                                                                  #  TEM5          ERASE                   EXEC TEMP
014257,000294:                                                                                                  #  NOUNADD       =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
014258,000295: 
014259,000296:                                                                                                  #  NNADTEM       ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
014260,000297:                                                                                                  #  NNTYPTEM      ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
014261,000298:                                                                                                  #  IDAD1TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)

Page 323

014263,000300:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
014264,000301:                                                                                                  #  IDAD2TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
014265,000302:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
014266,000303:                                                                                                  #  IDAD3TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
014267,000304:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
014268,000305:                                                                                                  #  RUTMXTEM      ERASE                   TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
014269,000306: 
014270,000307:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014271,000308: 
014272,000309:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014273,000310: 
014274,000311:                                                                                                  #        MPAC, THRU MPAC +6
014275,000312:                                                                                                  #        BUF, +1, +2
014276,000313:                                                                                                  #        BUF2, +1, +2
014277,000314:                                                                                                  #        MPTEMP
014278,000315:                                                                                                  #        ADDRWD
014279,000316: 
014280,000317:                                                                                                  #  END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
014281,000318: 
014282,000319:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
014283,000320: 
014284,000321:                                                                                                  #  DSPCNT        ERASE                   COUNTER FOR DSPOUT
014285,000322:                                                                                                  #  UPLOCK        ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
014286,000323:                                                                                                  #                                        RECEPTION OF A BAD MESSAGE IN UPLINK)
014287,000324: 
014288,000325:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
014289,000326: 
014290,000327:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
014291,000328: 
014292,000329:                                                                                                  #  KEYTEMP1      =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
014293,000330:                                                                                                  #  DSRUPTEM      =       WAITEXIT        TEMP FOR DSPOUT
014294,000331:                                                                                                  #  KEYTEMP2      =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
014295,000332: 
014296,000333:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
014297,000334: 

Page 324

014299,000336:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
014300,000337:                                                                                                  #        0               10000
014301,000338:                                                                                                  #        1               00001
014302,000339:                                                                                                  #        9               01001
014303,000340:                                                                                                  #        VERB            10001
014304,000341:                                                                                                  #        ERROR RES       10010
014305,000342:                                                                                                  #        KEY RLSE        11001
014306,000343:                                                                                                  #        +               11010
014307,000344:                                                                                                  #        -               11011
014308,000345:                                                                                                  #        ENTER           11100
014309,000346:                                                                                                  #        CLEAR           11110
014310,000347:                                                                                                  #        NOUN            11111
014311,000348: 
014312,000349:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
014313,000350:                                                                                                  #  A-S   SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
014314,000351:                                                                                                  #        ENERGIZED.
014315,000352:                                                                                                  #  B     FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
014316,000353:                                                                                                  #  C-S   5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
014317,000354:                                                                                                  #  D-S   5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
014318,000355: 
014319,000356:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
014320,000357:                                                                                                  #        MD1     MD2                             (MAJOR MODE)
014321,000358:                                                                                                  #        VD1     VD2 (VERB)      ND1     ND2     (NOUN)
014322,000359:                                                                                                  #        R1D1    R1D2    R1D3    R1D4    R1D5    (R1)
014323,000360:                                                                                                  #        R2D1    R2D2    R2D3    R2D4    R2D5    (R2)
014324,000361:                                                                                                  #        R3D1    R3D2    R3D3    R3D4    R3D5    (R3)
014325,000362: 
014326,000363:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
014327,000364: 
014328,000365:                                                                                                  #        MD1     25      R2D1    11              ALL ARE OCTAL
014329,000366:                                                                                                  #        MD2     24      R2D2    10
014330,000367:                                                                                                  #        VD1     23      R2D3    7
014331,000368:                                                                                                  #        VD2     22      R2D4    6
014332,000369:                                                                                                  #        ND1     21      R2D5    5
014333,000370:                                                                                                  #        ND2     20      R3D1    4
014334,000371:                                                                                                  #        R1D1    16      R3D2    3
014335,000372:                                                                                                  #        R1D2    15      R3D3    2
014336,000373:                                                                                                  #        R1D3    14      R3D4    1
014337,000374:                                                                                                  #        R1D4    13      R3D5    0
014338,000375:                                                                                                  #        R1D5    12
014339,000376: 
014340,000377:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
014341,000378: 
014342,000379:                                                                                                  #        DSPTAB          RELAYWD         BIT11           BITS 10-6       BITS 5-1
014343,000380:                                                                                                  #        RELADD
014344,000381:                                                                                                  #        10              1011                            MD1 (25)        MD2  (24)
014345,000382:                                                                                                  #        9               1010                            VD1 (23)        VD2  (22)
014346,000383:                                                                                                  #        8               1001                            ND1 (21)        ND2  (20)
014347,000384:                                                                                                  #        7               1000                                            R1D1 (16)

Page 325

014349,000386:                                                                                                  #        6               0111            +R1             R1D2 (15)       R1D3 (14)
014350,000387:                                                                                                  #        5               0110            -R1             R1D4 (13)       R1D5 (12)
014351,000388:                                                                                                  #        4               0101            +R2             R2D1 (11)       R2D2 (10)
014352,000389:                                                                                                  #        3               0100            -R2             R2D3 (7)        R2D4 (6)
014353,000390:                                                                                                  #        2               0011                            R2D5 (5)        R3D1 (4)
014354,000391:                                                                                                  #        1               0010            +R3             R3D2 (3)        R3D3 (2)
014355,000392:                                                                                                  #        0               0001            -R3             R3D4 (1)        R3D5 (0)
014356,000393:                                                                                                  #                        0000        NO RELAYWORD
014357,000394: 
014358,000395:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
014359,000396: 
014360,000397:                                                                                                  #        BLANK   00000
014361,000398:                                                                                                  #        0       10101
014362,000399:                                                                                                  #        1       00011
014363,000400:                                                                                                  #        2       11001
014364,000401:                                                                                                  #        3       11011
014365,000402:                                                                                                  #        4       01111
014366,000403:                                                                                                  #        5       11110
014367,000404:                                                                                                  #        6       11100
014368,000405:                                                                                                  #        7       10011
014369,000406:                                                                                                  #        8       11101
014370,000407:                                                                                                  #        9       11111
014371,000408: 
014372,000409:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
014373,000410: 
014374,000411:                                                                                                  #        KEY RELEASE LIGHT       - BIT 5 OF CHANNEL 11
014375,000412:                                                                                                  #        VERB/NOUN FLASH         - BIT 6 OF CHANNEL 11
014376,000413:                                                                                                  #        OPERATOR ERROR LIGHT    - BIT 7 OF CHANNEL 11
014377,000414: 

Page 326

014379,000416:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
014380,000417: 
014381,000418: 40,2000                                           SETLOC   PINBALL1                              
014382,000419: 40,2000                                           BANK                                           
014383,000420: 
014384,000421: 40,2000                                           COUNT*   $$/PIN                                
014385,000422: 40,2000           34770        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
014386,000423: 40,2001           57215                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
014387,000424: 40,2002           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
014388,000425: 40,2003           11245                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
014389,000426: 40,2004           02006                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
014390,000427: 40,2005           02013                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
014391,000428: 40,2006           42212                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
014392,000429: 40,2007           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
014393,000430: 40,2010           00006                           EXTEND                                         #  VBRELDSP).
014394,000431: 40,2011           12013                           BZF      CHARIN2                               
014395,000432: 40,2012           04356                           TC       RELDSPON                              
014396,000433: 40,2013           56154        CHARIN2            XCH      MPAC                                  
014397,000434: 40,2014           54117                           TS       CHAR                                  
014398,000435: 40,2015           50000                           INDEX    A                                     
014399,000436: 40,2016           02017                           TC       +1                                    #    INPUT CODE      FUNCTION
014400,000437: 40,2017           03275                           TC       CHARALRM                              #        0
014401,000438: 40,2020           02074                           TC       NUM                                   #        1
014402,000439: 40,2021           02074                           TC       NUM                                   #        2
014403,000440: 40,2022           02074                           TC       NUM                                   #        3
014404,000441: 40,2023           02074                           TC       NUM                                   #        4
014405,000442: 40,2024           02074                           TC       NUM                                   #        5
014406,000443: 40,2025           02074                           TC       NUM                                   #        6
014407,000444: 40,2026           02074                           TC       NUM                                   #        7
014408,000445: 40,2027           02064                           TC       89TEST                                #        10              8
014409,000446: 40,2030           02064                           TC       89TEST                                #        11              9
014410,000447: 40,2031           03275                           TC       CHARALRM                              #        12
014411,000448: 40,2032           03275                           TC       CHARALRM                              #        13
014412,000449: 40,2033           03275                           TC       CHARALRM                              #        14
014413,000450: 40,2034           03275                           TC       CHARALRM                              #        15
014414,000451: 40,2035           03275                           TC       CHARALRM                              #        16
014415,000452: 40,2036           03275                           TC       CHARALRM                              #        17
014416,000453: 40,2037           02072                           TC       NUM        -2                         #        20              0
014417,000454: 40,2040           02251                           TC       VERB                                  #        21              VERB
014418,000455: 40,2041           03553                           TC       ERROR                                 #        22              ERROR LIGHT RESET
014419,000456: 40,2042           03275                           TC       CHARALRM                              #        23
014420,000457: 40,2043           03275                           TC       CHARALRM                              #        24
014421,000458: 40,2044           03275                           TC       CHARALRM                              #        25
014422,000459: 40,2045           03275                           TC       CHARALRM                              #        26
014423,000460: 40,2046           03275                           TC       CHARALRM                              #        27
014424,000461: 40,2047           03275                           TC       CHARALRM                              #        30
014425,000462: 40,2050           03325                           TC       VBRELDSP                              #        31              KEY RELEASE
014426,000463: 40,2051           02304                           TC       POSGN                                 #        32              +
014427,000464: 40,2052           02271                           TC       NEGSGN                                #        33              -

Page 327

014429,000466: 40,2053           04200                           TC       ENTERJMP                              #        34              ENTER
014430,000467: 40,2054           03275                           TC       CHARALRM                              #        35
014431,000468: 40,2055           02364                           TC       CLEAR                                 #        36              CLEAR
014432,000469: 40,2056           02265                           TC       NOUN                                  #        37              NOUN
014433,000470: 
014434,000471: 40,2057           11202        CHKDSP             CCS      DSPCOUNT                              
014435,000472: 40,2060           00002                           TC       Q                                     
014436,000473: 40,2061           00002                           TC       Q                                     
014437,000474: 40,2062           15205                           TCF      ENDOFJOB                              #  BLOCK DATA IN IF DSPCOUNT NEG.
014438,000475: 40,2063           15205                           TCF      ENDOFJOB                              
014439,000476: 
014440,000477: 40,2064           02057        89TEST             TC       CHKDSP                                
014441,000478: 40,2065           36214                           CAF      THREE                                 
014442,000479: 40,2066           71203                           MASK     DECBRNCH                              
014443,000480: 40,2067           10000                           CCS      A                                     
014444,000481: 40,2070           02074                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
014445,000482: 40,2071           03275                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
014446,000483: 
014447,000484:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
014448,000485:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
014449,000486:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
014450,000487:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
014451,000488:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
014452,000489:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
014453,000490: 
014454,000491: 40,2072           34772                 -2        CAF      ZERO                                  
014455,000492: 40,2073           54117                           TS       CHAR                                  
014456,000493: 40,2074           02057        NUM                TC       CHKDSP                                
014457,000494: 40,2075           02221                           TC       GETINREL                              
014458,000495: 40,2076           11220                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
014459,000496: 40,2077           34772                           CAF      ZERO                                  
014460,000497: 40,2100           55220                           TS       CLPASS                                
014461,000498: 40,2101           02102                           TC       +1                                    
014462,000499: 40,2102           30117                           CA       CHAR                                  
014463,000500: 40,2103           04423                           TC       CODSTOR                               
014464,000501: 40,2104           03161                           TC       DSPIN                                 
014465,000502: 40,2105           36214                           CAF      THREE                                 
014466,000503: 40,2106           71203                           MASK     DECBRNCH                              
014467,000504: 40,2107           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
014468,000505: 40,2110           02121                           TC       DECTOBIN                              #  +
014469,000506: 40,2111           50137                           INDEX    INREL                                 #  +0 OCTAL
014470,000507: 40,2112           57204                           XCH      VERBREG                               
014471,000508: 40,2113           54022                           TS       CYL                                   
014472,000509: 40,2114           40022                           CS       CYL                                   
014473,000510: 40,2115           40022                           CS       CYL                                   
014474,000511: 40,2116           56022                           XCH      CYL                                   
014475,000512: 40,2117           60117                           AD       CHAR                                  
014476,000513: 40,2120           02136                           TC       ENDNMTST                              

Page 328

014478,000515: 40,2121           50137        DECTOBIN           INDEX    INREL                                 
014479,000516: 40,2122           57204                           XCH      VERBREG                               
014480,000517: 40,2123           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
014481,000518: 40,2124           34772                           CAF      ZERO                                  
014482,000519: 40,2125           54155                           TS       MPAC       +1                         
014483,000520: 40,2126           34355                           CAF      TEN                                   #  10 X 2EXP-14
014484,000521: 40,2127           07256                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
014485,000522: 40,2130           56155                           XCH      MPAC       +1                         
014486,000523: 40,2131           60117                           AD       CHAR                                  
014487,000524: 40,2132           54155                           TS       MPAC       +1                         
014488,000525: 40,2133           02136                           TC       ENDNMTST                              #  NO OF
014489,000526: 40,2134           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
014490,000527: 40,2135           02156                           TC       DECCEND                               
014491,000528: 40,2136           50137        ENDNMTST           INDEX    INREL                                 
014492,000529: 40,2137           55204                           TS       VERBREG                               
014493,000530: 40,2140           41202                           CS       DSPCOUNT                              
014494,000531: 40,2141           50137                           INDEX    INREL                                 
014495,000532: 40,2142           62212                           AD       CRITCON                               
014496,000533: 40,2143           00006                           EXTEND                                         
014497,000534: 40,2144           12150                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
014498,000535: 40,2145           11202        MORNUM             CCS      DSPCOUNT                              #  -, DSPCOUNT G/ CRITCON
014499,000536: 40,2146           55202                           TS       DSPCOUNT                              #  DECREMENT DSPCOUNT
014500,000537: 40,2147           05205                           TC       ENDOFJOB                              
014501,000538: 40,2150           36214        ENDNUM             CAF      THREE                                 
014502,000539: 40,2151           71203                           MASK     DECBRNCH                              
014503,000540: 40,2152           10000                           CCS      A                                     
014504,000541: 40,2153           02156                           TC       DECCEND                               
014505,000542: 40,2154           41202        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
014506,000543: 40,2155           02146                           TC       MORNUM     +1                         #  NEGATIVELY
014507,000544: 40,2156           04636        DECCEND            TC       BANKCALL                              
014508,000545: 40,2157           60161                           CADR     DECEND                                
014509,000546: 40,2160           02154                           TC       ENDALL                                
014510,000547: 40,2161           44770        DECEND             CS       ONE                                   
014511,000548: 40,2162           60137                           AD       INREL                                 
014512,000549: 40,2163           00006                           EXTEND                                         
014513,000550: 40,2164           62154                           BZMF     ENDALL                                #  IF INREL=0,1 (VBREG,NNREG), LEAVE WHOLE
014514,000551: 40,2165           02221                 +4        TC       GETINREL                              
014515,000552: 40,2166           50137                           INDEX    INREL                                 
014516,000553: 40,2167           31204                           CA       VERBREG                               
014517,000554: 40,2170           54155                           TS       MPAC       +1                         
014518,000555: 40,2171           07052                           TC       DMP                                   #  IF INREL=2,3,4 (R1,R2,R3), CONVERT TO FRAC
014519,000556:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
014520,000557: 40,2172           02217                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
014521,000558: 40,2173           36214                           CAF      THREE                                 #  IN MPAC, +1, +2.
014522,000559: 40,2174           71203                           MASK     DECBRNCH                              
014523,000560: 40,2175           50000                           INDEX    A                                     
014524,000561: 40,2176           02176                           TC       +0                                    
014525,000562: 40,2177           02203                           TC       +DECSGN                               
014526,000563: 40,2200           00006                           EXTEND                                         #  - CASE
014527,000564: 40,2201           40156                           DCS      MPAC       +1                         

Page 329

014529,000566: 40,2202           52156                           DXCH     MPAC       +1                         
014530,000567: 40,2203           56156        +DECSGN            XCH      MPAC       +2                         
014531,000568: 40,2204           50137                           INDEX    INREL                                 
014532,000569: 40,2205           55207                           TS       XREGLP     -2                         
014533,000570: 40,2206           56155                           XCH      MPAC       +1                         
014534,000571: 40,2207           50137                           INDEX    INREL                                 
014535,000572: 40,2210           55204                           TS       VERBREG                               
014536,000573: 40,2211           04651                           TC       SWRETURN                              
014537,000574: 40,2212  40,2212               ELRCODE1           EQUALS   CRITCON                               
014538,000575: 40,2212           00022        CRITCON            OCT      22                                    #  (DEC 18)
014539,000576: 40,2213           00020                           OCT      20                                    #  (DEC 16)
014540,000577: 40,2214           00012                           OCT      12                                    #  (DEC 10)
014541,000578: 40,2215           00005                           OCT      5                                     
014542,000579: 40,2216           00000                           OCT      0                                     
014543,000580: 
014544,000581: 40,2217           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
014545,000582: 
014546,000583:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
014547,000584:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
014548,000585: 
014549,000586: 40,2221           51202        GETINREL           INDEX    DSPCOUNT                              
014550,000587: 40,2222           32225                           CAF      INRELTAB                              
014551,000588: 40,2223           54137                           TS       INREL                                 #  (A TEMP, REG)
014552,000589: 40,2224           00002                           TC       Q                                     
014553,000590: 
014554,000591: 40,2225           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
014555,000592: 40,2226           00004                           OCT      4                                     #  R3D4           =(1)
014556,000593: 40,2227           00004                           OCT      4                                     #  R3D3           =(2)
014557,000594: 40,2230           00004                           OCT      4                                     #  R3D2           =(3)
014558,000595: 40,2231           00004                           OCT      4                                     #  R3D1           =(4)
014559,000596: 40,2232           00003                           OCT      3                                     #  R2D5           =(5)
014560,000597: 40,2233           00003                           OCT      3                                     #  R2D4           =(6)
014561,000598: 40,2234           00003                           OCT      3                                     #  R2D3           =(7)
014562,000599: 40,2235           00003                           OCT      3                                     #  R2D2           =(8D)
014563,000600: 40,2236           00003                           OCT      3                                     #  R2D1           =(9D)
014564,000601: 40,2237           00002                           OCT      2                                     #  R1D5           =(10D)
014565,000602: 40,2240           00002                           OCT      2                                     #  R1D4           =(11D)
014566,000603: 40,2241           00002                           OCT      2                                     #  R1D3           =(12D)
014567,000604: 40,2242           00002                           OCT      2                                     #  R1D2           =(13D)
014568,000605: 40,2243           00002                           OCT      2                                     #  R1D1           =(14D)
014569,000606: 40,2244           00244        VNDSPCON           OCT      244                                   #  .01 ROUNDED UP. CANNOT GET HERE
014570,000607: 40,2245           00001                           OCT      1                                     #  ND2            =(16D)
014571,000608: 40,2246           00001                           OCT      1                                     #  ND1            =(17D)
014572,000609: 40,2247           00000                           OCT      0                                     #  VD2            =(18D)
014573,000610: 40,2250           00000                           OCT      0                                     #  VD1            =(19D)
014574,000611: 40,2251           34772        VERB               CAF      ZERO                                  

Page 330

014576,000613: 
014577,000614: 40,2252           55204                           TS       VERBREG                               
014578,000615: 40,2253           34351                           CAF      VD1                                   
014579,000616: 40,2254           55202        NVCOM              TS       DSPCOUNT                              
014580,000617: 40,2255           02473                           TC       2BLANK                                
014581,000618: 40,2256           34770                           CAF      ONE                                   
014582,000619: 40,2257           55203                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
014583,000620: 40,2260           34772                           CAF      ZERO                                  
014584,000621: 40,2261           55216                           TS       REQRET                                #  SET FOR ENTPAS0
014585,000622: 40,2262           34170                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
014586,000623: 40,2263           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
014587,000624:                                                                                                  #  TO TC ENDOFJOB
014588,000625: 40,2264           05205                           TC       ENDOFJOB                              
014589,000626: 40,2265           34772        NOUN               CAF      ZERO                                  
014590,000627: 40,2266           55205                           TS       NOUNREG                               
014591,000628: 40,2267           34352                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
014592,000629: 40,2270           02254                           TC       NVCOM                                 
014593,000630: 
014594,000631: 40,2271           02344        NEGSGN             TC       SIGNTEST                              
014595,000632: 40,2272           02330                           TC       -ON                                   
014596,000633: 40,2273           34767                           CAF      TWO                                   
014597,000634: 40,2274           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
014598,000635: 40,2275           64762                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
014599,000636: 40,2276           27203                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
014600,000637: 40,2277           11220        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
014601,000638: 40,2300           34772                           CAF      ZERO                                  
014602,000639: 40,2301           55220                           TS       CLPASS                                
014603,000640: 40,2302           02303                           TC       +1                                    
014604,000641: 40,2303           05205                           TC       ENDOFJOB                              
014605,000642: 
014606,000643: 40,2304           02344        POSGN              TC       SIGNTEST                              
014607,000644: 40,2305           02310                           TC       +ON                                   
014608,000645: 40,2306           34770                           CAF      ONE                                   
014609,000646: 40,2307           02274                           TC       BOTHSGN                               
014610,000647: 
014611,000648: 40,2310           22002        +ON                LXCH     Q                                     
014612,000649: 40,2311           02221                           TC       GETINREL                              
014613,000650: 40,2312           50137                           INDEX    INREL                                 
014614,000651: 40,2313           32336                           CAF      SGNTAB     -2                         
014615,000652: 40,2314           54123                           TS       SGNOFF                                
014616,000653: 40,2315           64770                           AD       ONE                                   
014617,000654: 40,2316           54122                           TS       SGNON                                 
014618,000655: 40,2317           34772        SGNCOM             CAF      ZERO                                  
014619,000656: 40,2320           54124                           TS       CODE                                  
014620,000657: 40,2321           56123                           XCH      SGNOFF                                
014621,000658: 40,2322           03247                           TC       11DSPIN                               
014622,000659: 40,2323           34756                           CAF      BIT11                                 
014623,000660: 40,2324           54124                           TS       CODE                                  
014624,000661: 40,2325           56122                           XCH      SGNON                                 
014625,000662: 40,2326           03247                           TC       11DSPIN                               

Page 331

014627,000664: 40,2327           00001                 -1        TC       L                                     
014628,000665: 40,2330           22002        -ON                LXCH     Q                                     
014629,000666: 40,2331           02221                           TC       GETINREL                              
014630,000667: 40,2332           50137                           INDEX    INREL                                 
014631,000668: 40,2333           32336                           CAF      SGNTAB     -2                         
014632,000669: 40,2334           54122                           TS       SGNON                                 
014633,000670: 40,2335           64770                           AD       ONE                                   
014634,000671: 40,2336           54123                           TS       SGNOFF                                
014635,000672: 40,2337           02317                           TC       SGNCOM                                
014636,000673: 
014637,000674: 40,2340           00005        SGNTAB             OCT      5                                     #  -R1
014638,000675: 40,2341           00003                           OCT      3                                     #  -R2
014639,000676: 40,2342           00000                 -1        OCT      00000                                 #  -R3
014640,000677: 40,2343           02476        DECROUND           OCT      02476                                 #  MUST FOLLOW ZERO WORD
014641,000678: 40,2344           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
014642,000679: 40,2345           36214                           CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
014643,000680: 40,2346           71203                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
014644,000681: 40,2347           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
014645,000682: 40,2350           05205                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
014646,000683: 40,2351           44321                           CS       R1D1                                  
014647,000684: 40,2352           02360                           TC       SGNTST1                               
014648,000685: 40,2353           44322                           CS       R2D1                                  
014649,000686: 40,2354           02360                           TC       SGNTST1                               
014650,000687: 40,2355           44323                           CS       R3D1                                  
014651,000688: 40,2356           02360                           TC       SGNTST1                               
014652,000689: 40,2357           05205                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
014653,000690: 40,2360           61202        SGNTST1            AD       DSPCOUNT                              
014654,000691: 40,2361           00006                           EXTEND                                         
014655,000692: 40,2362           12327                           BZF      -ON        -1                         #  MATCH FOUND. SIGN LEGAL
014656,000693: 40,2363           00002                           TC       Q                                     
014657,000694: 
014658,000695:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
014659,000696:                                                                                                  #  NT XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
014660,000697:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
014661,000698: 
014662,000699:                                                                                                  #  CLPASS        +0      PASS0, CAN BE BACKED UP
014663,000700:                                                                                                  #                +NZ     HIPASS, CAN BE BACKED UP
014664,000701:                                                                                                  #                -NZ     PASS0, CANNOT BE BACKED UP
014665,000702: 
014666,000703: 40,2364           11202        CLEAR              CCS      DSPCOUNT                              
014667,000704: 40,2365           64770                           AD       ONE                                   
014668,000705: 40,2366           02370                           TC       +2                                    
014669,000706: 40,2367           64770                           AD       ONE                                   
014670,000707: 40,2370           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
014671,000708: 40,2371           32225                           CAF      INRELTAB                              #  FAIL LEGALTST.
014672,000709: 40,2372           54137                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
014673,000710: 40,2373           11220                           CCS      CLPASS                                
014674,000711: 40,2374           02402                           TC       CLPASHI                               #  +

Page 332

014676,000713: 40,2375           02377                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
014677,000714: 40,2376           02377                           TC       +1                                    #  -
014678,000715: 40,2377           30137                           CA       INREL                                 
014679,000716: 40,2400           02424                           TC       LEGALTST                              
014680,000717: 40,2401           02417                           TC       CLEAR1                                
014681,000718: 40,2402           10137        CLPASHI            CCS      INREL                                 
014682,000719: 40,2403           54137                           TS       INREL                                 
014683,000720: 40,2404           02424                           TC       LEGALTST                              
014684,000721: 40,2405           32472                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
014685,000722: 40,2406           27216                           ADS      REQRET                                
014686,000723: 40,2407           30137                           CA       INREL                                 
014687,000724: 40,2410           54125                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
014688,000725: 40,2411           00006                           EXTEND                                         
014689,000726: 40,2412           27204                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
014690,000727: 40,2413           04636                           TC       BANKCALL                              
014691,000728: 40,2414           62337                           CADR     UPDATVB                               
014692,000729: 40,2415           30125                           CA       MIXTEMP                               
014693,000730: 40,2416           54137                           TS       INREL                                 #  RESTORE INREL
014694,000731: 40,2417           02422        CLEAR1             TC       CLR5                                  
014695,000732: 40,2420           25220                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
014696,000733: 40,2421           05205                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
014697,000734: 40,2422           22002        CLR5               LXCH     Q                                     #  USES 5BLANK BUT AVOIDS ITS TC GETINREL
014698,000735: 40,2423           02433                           TC       5BLANK     +2                         
014699,000736: 40,2424           67702        LEGALTST           AD       NEG1                                  
014700,000737: 40,2425           00006                           EXTEND                                         
014701,000738: 40,2426           65205                           BZMF     ENDOFJOB                              #  ILLEGAL. INREL=0,1
014702,000739: 40,2427           00002                           TC       Q                                     #  LEGAL. INREL GE 2
014703,000740: 
014704,000741:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
014705,000742:                                                                                                  #  YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
014706,000743:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
014707,000744: 
014708,000745: 40,2430           55202                 -1        TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
014709,000746: 40,2431           22002        5BLANK             LXCH     Q                                     
014710,000747: 40,2432           02221                           TC       GETINREL                              
014711,000748: 40,2433           34772                 +2        CAF      ZERO                                  
014712,000749: 40,2434           50137                           INDEX    INREL                                 
014713,000750: 40,2435           55204                           TS       VERBREG                               #  ZERO X, Y, Z REG.
014714,000751: 40,2436           50137                           INDEX    INREL                                 
014715,000752: 40,2437           55207                           TS       XREGLP     -2                         
014716,000753: 40,2440           54124                           TS       CODE                                  
014717,000754: 40,2441           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
014718,000755: 40,2442           44762                           CS       BIT7                                  #  PROTECT OTHERS
014719,000756: 40,2443           71203                           MASK     DECBRNCH                              
014720,000757: 40,2444           77700                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
014721,000758: 40,2445           55203                           TS       DECBRNCH                              
014722,000759: 40,2446           50137                           INDEX    INREL                                 
014723,000760: 40,2447           32463                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
014724,000761: 40,2450           54143                           TS       COUNT                                 
014725,000762: 40,2451           03161                           TC       DSPIN                                 
014726,000763: 40,2452           50137        5BLANK1            INDEX    INREL                                 

Page 333

014728,000765: 40,2453           32466                           CAF      DOUBLK     -2                         
014729,000766: 40,2454           55202                           TS       DSPCOUNT                              
014730,000767: 40,2455           02473                           TC       2BLANK                                
014731,000768: 40,2456           44767                           CS       TWO                                   
014732,000769: 40,2457           27202                           ADS      DSPCOUNT                              
014733,000770: 40,2460           02473                           TC       2BLANK                                
014734,000771: 40,2461           50137                           INDEX    INREL                                 
014735,000772: 40,2462           34317                           CAF      R1D1       -2                         
014736,000773: 40,2463           55202                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
014737,000774: 40,2464           00001                           TC       L                                     #  OF REG. JUST BLANKED
014738,000775: 
014739,000776: 40,2465           00016        SINBLANK           OCT      16                                    #  DEC 14
014740,000777: 40,2466           00005                           OCT      5                                     
014741,000778: 40,2467           00004                           OCT      4                                     
014742,000779: 40,2470           00015        DOUBLK             OCT      15                                    #  DEC 13
014743,000780: 40,2471           00011                           OCT      11                                    #  DEC 9
014744,000781: 40,2472           00003                 +2        OCT      3                                     
014745,000782: 40,2473     7700               BRNCHCON           EQUALS   NEG3                                  
014746,000783: 
014747,000784:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
014748,000785:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
014749,000786: 
014750,000787: 40,2473           31202        2BLANK             CA       DSPCOUNT                              
014751,000788: 40,2474           54021                           TS       SR                                    
014752,000789: 40,2475           44755                           CS       BLANKCON                              
014753,000790: 40,2476           00004                           INHINT                                         
014754,000791: 40,2477           50021                           INDEX    SR                                    
014755,000792: 40,2500           57226                           XCH      DSPTAB                                
014756,000793: 40,2501           00006                           EXTEND                                         
014757,000794: 40,2502           62504                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
014758,000795: 40,2503           25221                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
014759,000796: 40,2504           15642                           TCF      REQ                                   #  IF -, NOUT OK
014760,000797: 40,2505     4755               BLANKCON           EQUALS   BIT12                                 
014761,000798: 

Page 334

014763,000800:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
014764,000801:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
014765,000802:                                                                                                  #  PASSES.
014766,000803: 
014767,000804:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
014768,000805:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
014769,000806:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
014770,000807: 
014771,000808: 41,2000                                           SETLOC   PINBALL2                              
014772,000809: 41,2000                                           BANK                                           
014773,000810: 
014774,000811: 41,2000                                           COUNT*   $$/PIN                                
014775,000812: 41,2000  41,3513               NVSUBB             EQUALS   NVSUB1                                
014776,000813: 41,2000  41,3001               LOADLV1            EQUALS   LOADLV                                
014777,000814: 41,2000           34772        ENTER              CAF      ZERO                                  
014778,000815: 41,2001           55220                           TS       CLPASS                                
014779,000816: 41,2002           34170                           CAF      ENDINST                               
014780,000817: 41,2003           54136                           TS       ENTRET                                
014781,000818: 41,2004           11216                           CCS      REQRET                                
014782,000819: 41,2005           02040                           TC       ENTPAS0                               #  IF +, PASS 0
014783,000820: 41,2006           02040                           TC       ENTPAS0                               #  IF +, PASS 0
014784,000821: 41,2007           02010                           TC       +1                                    #  IF -, NOT PASS 0
014785,000822: 41,2010           32036        ENTPASHI           CAF      MMADREF                               
014786,000823: 41,2011           61216                           AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
014787,000824: 41,2012           00006                           EXTEND                                         #  AND RECYCLE (DECIDE AT MMCHANG+1).
014788,000825: 41,2013           12025                           BZF      ACCEPTWD                              
014789,000826: 41,2014           36214                           CAF      THREE                                 #  IF DEC, L/ 5 CHAR IN FOR DATA MUST BE
014790,000827: 41,2015           71203                           MASK     DECBRNCH                              #  SCALED (DECEND); IF 5 CHAR IN, DATA
014791,000828: 41,2016           10000                           CCS      A                                     #  HAS ALREADY BEEN SCALED. ANY NUMBER
014792,000829: 41,2017           02021                           TC       +2                                    #  OF DECIMAL CHARACTERS ARE ACCEPTABLE.SCR 
014793,000830: 41,2020           02025                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
014794,000831: 41,2021           11202                           CCS      DSPCOUNT                              
014795,000832: 41,2022           02031                           TC       LT5                                   
014796,000833: 41,2023           02031                           TC       LT5                                   
014797,000834: 41,2024           02025                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
014798,000835: 41,2025           41216        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
014799,000836: 41,2026           55216                           TS       REQRET                                #  SET REQRET +.
014800,000837: 41,2027           04417                           TC       FLASHOFF                              
014801,000838: 41,2030           01216                           TC       REQRET                                
014802,000839: 
014803,000840: 41,2031           34772        LT5                CAF      ZERO                                  
014804,000841: 41,2032           54154                           TS       MPAC                                  
014805,000842: 41,2033           04636                           TC       BANKCALL                              
014806,000843: 41,2034           60165                           CADR     DECEND     +4                         
014807,000844: 41,2035           02025                           TC       ACCEPTWD                              
014808,000845: 41,2036           03377        MMADREF            ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
014809,000846: 
014810,000847: 41,2037           00034        LOWVERB            DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
014811,000848: 

Page 335

014813,000850: 41,2040           34772        ENTPAS0            CAF      ZERO                                  #  NOUN VERB SUB ENTERS HERE
014814,000851: 41,2041           55203                           TS       DECBRNCH                              
014815,000852: 41,2042           04261                           TC       -VD1SET                               
014816,000853: 41,2043           41204        TESTVB             CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
014817,000854: 41,2044           55244                           TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
014818,000855: 41,2045           62037                           AD       LOWVERB                               #  LOWVERB - VB
014819,000856: 41,2046           00006                           EXTEND                                         
014820,000857: 41,2047           62133                           BZMF     VERBFAN                               #  VERB G/E LOWVERB
014821,000858: 41,2050           00006        TESTNN             EXTEND                                         #  VERB L/ LOWVERB
014822,000859: 41,2051           32115                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014823,000860: 41,2052           52006                           DXCH     Z                                     #  ROUTINE.
014824,000861: 41,2053           50140                           INDEX    MIXBR                                 
014825,000862: 41,2054           02054                           TC       +0                                    
014826,000863: 41,2055           02057                           TC       +2                                    #  NORMAL
014827,000864: 41,2056           02220                           TC       MIXNOUN                               #  MIXED
014828,000865: 41,2057           10146                           CCS      NNADTEM                               #  NORMAL
014829,000866: 41,2060           02131                           TC       VERBFAN    -2                         #        NORMAL  IF +
014830,000867: 41,2061           02350                           TC       GODSPALM                              #  NOT IN USE    IF +0
014831,000868: 41,2062           02066                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
014832,000869: 41,2063           25222                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
014833,000870: 41,2064           04313                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
014834,000871: 41,2065           02120                           TC       INTMCTBS   +2                         
014835,000872: 41,2066           34752        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
014836,000873: 41,2067           55220                           TS       CLPASS                                
014837,000874: 41,2070           44170                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
014838,000875: 41,2071           60136                           AD       ENTEXIT                               #        FROM EXTERNAL
014839,000876: 41,2072           00006                           EXTEND                                         
014840,000877: 41,2073           12075                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
014841,000878: 41,2074           02116                           TC       INTMCTBS                              
014842,000879: 41,2075           02304                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
014843,000880: 41,2076           11203                           CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
014844,000881: 41,2077           04173                           TC       ALMCYCLE                              #  FOR MCTBS.
014845,000882: 41,2100           04261                           TC       -VD1SET                               
014846,000883: 41,2101           11245                           CCS      CADRSTOR                              
014847,000884: 41,2102           02105                           TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
014848,000885: 41,2103           02106                           TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
014849,000886: 41,2104           02105                           TC       +1                                    
014850,000887: 41,2105           04360                           TC       FLASHON                               
014851,000888: 41,2106           57210        USEADD             XCH      ZREG                                  
014852,000889: 41,2107           04305                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
014853,000890: 41,2110           00006                           EXTEND                                         
014854,000891: 41,2111           32115                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014855,000892: 41,2112           52006                           DXCH     Z                                     #  ROUTINE.
014856,000893: 41,2113           02133                           TC       VERBFAN                               
014857,000894: 
014858,000895: 41,2114     1202                                  EBANK=   DSPCOUNT                              
014859,000896: 41,2114           02056 64102  LODNNLOC           2CADR    LODNNTAB                              
014860,000897: 
014861,000898: 41,2116           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.

Page 336

014863,000900: 41,2117           04305                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
014864,000901: 41,2120           44773                 +2        CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
014865,000902: 41,2121           61204                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
014866,000903: 41,2122           00006                           EXTEND                                         
014867,000904: 41,2123           12133                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
014868,000905: 41,2124           34323                           CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
014869,000906: 41,2125           55202                           TS       DSPCOUNT                              
014870,000907: 41,2126           31222                           CA       NOUNCADR                              
014871,000908: 41,2127           03351                           TC       DSPOCTWD                              
014872,000909: 41,2130           02133                           TC       VERBFAN                               
014873,000910: 
014874,000911: 41,2131           64770                 -2        AD       ONE                                   
014875,000912: 41,2132           04305                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014876,000913: 41,2133           45004        VERBFAN            CS       LST2CON                               
014877,000914: 41,2134           61204                           AD       VERBREG                               #  VERB-LST2CON
014878,000915: 41,2135           10000                           CCS      A                                     
014879,000916: 41,2136           64770                           AD       ONE                                   #  VERB G/ LST2CON
014880,000917: 41,2137           02141                           TC       +2                                    
014881,000918: 41,2140           02145                           TC       VBFANDIR                              #  VERB L/ LST2CON
014882,000919: 41,2141           54154                           TS       MPAC                                  
014883,000920: 41,2142           04432                           TC       RELDSP                                #  RELEASE DISPLAY SYST
014884,000921: 41,2143           04655                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
014885,000922: 41,2144           66000                           CADR     GOEXTVB                               
014886,000923: 41,2145     5004               LST2CON            EQUALS   OCT50                                 #  DEC40-FIRST EXTENDED VERB
014887,000924: 41,2145           51204        VBFANDIR           INDEX    VERBREG                               
014888,000925: 41,2146           32150                           CAF      VERBTAB                               
014889,000926: 41,2147           04660                           TC       BANKJUMP                              
014890,000927: 
014891,000928: 41,2150           62350        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
014892,000929: 41,2151           62364                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
014893,000930: 41,2152           62372                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
014894,000931: 41,2153           62377                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
014895,000932: 41,2154           62357                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
014896,000933: 41,2155           62352                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
014897,000934: 41,2156           62516                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
014898,000935: 41,2157           60657                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
014899,000936: 41,2160           62350                           CADR     GODSPALM                              #  VB08 SPARE
014900,000937: 41,2161           62350                           CADR     GODSPALM                              #  VB09 SPARE
014901,000938: 41,2162           61261                           CADR     DSPALARM                              #  VB10 SPARE
014902,000939: 41,2163           63224                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
014903,000940: 41,2164           63224                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
014904,000941: 41,2165           63224                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
014905,000942: 41,2166           63224                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
014906,000943: 41,2167           63224                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
014907,000944: 41,2170           63224                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
014908,000945: 41,2171           63224                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
014909,000946: 41,2172           62350                           CADR     GODSPALM                              #  VB18 SPARE
014910,000947: 41,2173           62350                           CADR     GODSPALM                              #  VB19 SPARE
014911,000948: 41,2174           62350                           CADR     GODSPALM                              #  VB20 SPARE
014912,000949: 41,2175           62741                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)

Page 337

014914,000951: 41,2176           62750                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
014915,000952: 41,2177           62765                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
014916,000953: 41,2200           62716                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
014917,000954: 41,2201           62611                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
014918,000955: 41,2202           62350                           CADR     GODSPALM                              #  VB26 SPARE
014919,000956: 41,2203           63341                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
014920,000957:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
014921,000958: 41,2204           62350                           CADR     GODSPALM                              #  VB28 SPARE
014922,000959: 41,2205           62350                           CADR     GODSPALM                              #  VB29 SPARE
014923,000960: 41,2206           63433        REQEXLQC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
014924,000961: 41,2207           63462                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
014925,000962: 41,2210           61323                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
014926,000963: 41,2211           61301                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
014927,000964: 41,2212           61307                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
014928,000965: 41,2213           61432                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
014929,000966: 41,2214           12367                           CADR     SLAP1                                 #  VB36 FRESH START
014930,000967: 41,2215           63376                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
014931,000968: 41,2216           62350                           CADR     GODSPALM                              #  VB38 SPARE
014932,000969: 41,2217           62350                           CADR     GODSPALM                              #  VB39 SPARE
014933,000970: 
014934,000971:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
014935,000972: 

Page 338

014937,000974: 
014938,000975:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
014939,000976:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
014940,000977:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
014941,000978:                                                                                                  #  MIXTEMP.
014942,000979: 
014943,000980: 41,2220           10146        MIXNOUN            CCS      NNADTEM                               
014944,000981: 41,2221           02225                           TC       +4                                    #  +  IN USE
014945,000982: 41,2222           02350                           TC       GODSPALM                              #  +0 NOT IN USE
014946,000983: 41,2223           02225                           TC       +2                                    #  -  IN USE
014947,000984: 41,2224           02225                           TC       +1                                    #  -0 IN USE
014948,000985: 41,2225           46211                           CS       SIX                                   
014949,000986: 41,2226           61204                           AD       VERBREG                               
014950,000987: 41,2227           00006                           EXTEND                                         
014951,000988: 41,2230           62232                           BZMF     +2                                    #  VERB L/E 6
014952,000989: 41,2231           02133                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
014953,000990: 41,2232           34767                           CAF      TWO                                   
014954,000991: 41,2233           54117        MIXNN1             TS       DECOUNT                               
014955,000992: 41,2234           62257                           AD       MIXAD                                 
014956,000993: 41,2235           54145                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
014957,000994: 41,2236           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
014958,000995: 41,2237           30150                           CA       IDAD1TEM                              #  OF NOUN.
014959,000996: 41,2240           54122                           TS       NOUNTEM                               
014960,000997:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
014961,000998:                                                                                                  #    MINOR PART ONLY.
014962,000999: 41,2241           03033                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
014963,001000: 41,2242           02260                           TC       DPTEST                                
014964,001001: 41,2243           02245                           TC       MIXNN2                                #  NO DP
014965,001002: 41,2244           24122                           INCR     NOUNTEM                               #  DP  GET MINOR PART
014966,001003: 41,2245           30122        MIXNN2             CA       NOUNTEM                               
014967,001004: 41,2246           74347                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1  FOR DP
014968,001005: 41,2247           04315                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
014969,001006: 41,2250           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
014970,001007: 41,2251           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
014971,001008: 41,2252           50145                           INDEX    NOUNADD                               
014972,001009: 41,2253           56000                           XCH      0                                     #  STORE IN MIXTEM + K
014973,001010: 41,2254           10117                           CCS      DECOUNT                               
014974,001011: 41,2255           02233                           TC       MIXNN1                                
014975,001012: 41,2256           02133                           TC       VERBFAN                               
014976,001013: 
014977,001014: 41,2257           00125        MIXAD              TC       MIXTEMP                               
014978,001015: 
014979,001016:                                                                                                  #  DPTEST        ENTER WITH SF ROUT NUMBER IN A.
014980,001017:                                                                                                  #                RETURNS TO L+1 IF NO DP.
014981,001018:                                                                                                  #                RETURNS TO L+2 IF DP.
014982,001019: 
014983,001020: 41,2260           50000        DPTEST             INDEX    A                                     
014984,001021: 41,2261           12262                           TCF      +1                                    
014985,001022: 41,2262           00002                           TC       Q                                     #  OCTAL ONLY  NO DP
014986,001023: 41,2263           00002                           TC       Q                                     #  FRACT NO DP

Page 339

014988,001025: 41,2264           00002                           TC       Q                                     #  DEG  NO DP
014989,001026: 41,2265           00002                           TC       Q                                     #  ARITH  NO DP
014990,001027: 41,2266           16706                           TCF      DPTEST1                               #  DP1OUT
014991,001028: 41,2267           16706                           TCF      DPTEST1                               #  DP2OUT
014992,001029: 41,2270           00002                           TC       Q                                     #  OPDEG  NO DP
014993,001030: 41,2271           16706                           TCF      DPTEST1                               #  DP3OUT
014994,001031: 41,2272           00002                           TC       Q                                     #  HMS   NO DP
014995,001032: 41,2273           00002                           TC       Q                                     #  M/S   NO DP
014996,001033: 41,2274           16706                           TCF      DPTEST1                               #  DP4OUT
014997,001034: 41,2275           00002                           TC       Q                                     #  ARITH1   NO DP
014998,001035: 41,2276           00002                           TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
014999,001036: 41,2277           16706                           TCF      DPTEST1                               #  DPFRACOT
015000,001037: 41,2300     6706               DPTEST1            EQUALS   Q+1                                   
015001,001038: 41,2300           34321        REQDATX            CAF      R1D1                                  
015002,001039: 41,2301           12305                           TCF      REQCOM                                
015003,001040: 41,2302           34322        REQDATY            CAF      R2D1                                  
015004,001041: 41,2303           12305                           TCF      REQCOM                                
015005,001042: 41,2304           34323        REQDATZ            CAF      R3D1                                  
015006,001043: 41,2305           55202        REQCOM             TS       DSPCOUNT                              
015007,001044: 41,2306           40002                           CS       Q                                     
015008,001045: 41,2307           55216                           TS       REQRET                                
015009,001046: 41,2310           04636                           TC       BANKCALL                              
015010,001047: 41,2311           60431                           CADR     5BLANK                                
015011,001048: 41,2312           04360                           TC       FLASHON                               
015012,001049: 41,2313           00136        ENDRQDAT           TC       ENTEXIT                               
015013,001050: 
015014,001051: 41,2314           30157                 -2        CA       MPAC       +3                         
015015,001052: 41,2315           55205                 -1        TS       NOUNREG                               
015016,001053: 41,2316           56002        UPDATNN            XCH      Q                                     
015017,001054: 41,2317           54117                           TS       UPDATRET                              
015018,001055: 41,2320           00006                           EXTEND                                         
015019,001056: 41,2321           32115                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015020,001057: 41,2322           52006                           DXCH     Z                                     #  ROUTINE.
015021,001058: 41,2323           10146                           CCS      NNADTEM                               
015022,001059: 41,2324           64770                           AD       ONE                                   #  NORMAL
015023,001060: 41,2325           12330                           TCF      PUTADD                                
015024,001061: 41,2326           12331                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
015025,001062: 41,2327           12331                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
015026,001063: 41,2330           04305        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015027,001064: 41,2331           34352                           CAF      ND1                                   
015028,001065: 41,2332           55202                           TS       DSPCOUNT                              
015029,001066: 41,2333           31205                           CA       NOUNREG                               
015030,001067: 41,2334           12344                           TCF      UPDAT1                                
015031,001068: 
015032,001069: 41,2335           30160                 -2        CA       MPAC       +4                         
015033,001070: 41,2336           55204                 -1        TS       VERBREG                               
015034,001071: 41,2337           56002        UPDATVB            XCH      Q                                     
015035,001072: 41,2340           54117                           TS       UPDATRET                              
015036,001073: 41,2341           34351                           CAF      VD1                                   
015037,001074: 41,2342           55202                           TS       DSPCOUNT                              

Page 340

015039,001076: 41,2343           31204                           CA       VERBREG                               
015040,001077: 41,2344           04655        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN, SINCE
015041,001078: 41,2345           61156                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
015042,001079: 41,2346           00117                 +2        TC       UPDATRET                              
015043,001080: 
015044,001081: 41,2347           04173        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
015045,001082: 
015046,001083: 41,2350           04655        GODSPALM           TC       POSTJUMP                              
015047,001084: 41,2351           61261                           CADR     DSPALARM                              
015048,001085: 

Page 341

015050,001087: 
015051,001088:                                                                                                  #  NOUN TABLES
015052,001089: 
015053,001090:                                                                                                  #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
015054,001091:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE  ECADR  FOR EACH NOUN.
015055,001092:                                                                                                  #  +0 INDICATES NOUN NOT USED.  - ENTRY INDICATES MACHINE CADR (E OR F) TO
015056,001093:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
015057,001094:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
015058,001095: 
015059,001096:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS (IDADDREL) IN LOW
015060,001097:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
015061,001098: 
015062,001099:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
015063,001100: 
015064,001101:                                                                                                  #  FOR THE NORMAL CASE,  M-S ARE THE COMPONENT CODE NUMBER.
015065,001102:                                                                                                  #                        N-S ARE THE SF ROUTINE CODE NUMBER.
015066,001103:                                                                                                  #                        P-S ARE THE SF CONSTANT CODE NUMBER.
015067,001104: 
015068,001105:                                                                                                  #  MIXED CASE,           M-S ARE THE SF CONSTANT3 CODE NUMBER    3 COMPONENT CASE
015069,001106:                                                                                                  #                        N-S ARE THE SF CONSTANT2 CODE NUMBER
015070,001107:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER
015071,001108:                                                                                                  #                        N-S ARE THE SF CONSTANT2 CODE NUMBER    2 COMPONENT CASE
015072,001109:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER
015073,001110:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER    1 COMPONENT CASE
015074,001111: 
015075,001112:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE (IDADDTAB) FOR MIXED CASE ONLY.
015076,001113:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.  IDADDREL IS THE RELATIVE ADDRESS OF
015077,001114:                                                                                                  #  THE FIRST OF THESE ENTRIES.
015078,001115:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
015079,001116:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
015080,001117: 
015081,001118:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE (RUTMXTAB) FOR MIXED
015082,001119:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
015083,001120: 
015084,001121:                                                                                                  #        QQQQQRRRRRSSSSS
015085,001122: 
015086,001123:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER          3 COMPONENT CASE
015087,001124:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
015088,001125:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
015089,001126:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER          2 COMPONENT CASE
015090,001127:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
015091,001128: 
015092,001129:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
015093,001130:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
015094,001131:                                                                                                  #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
015095,001132: 
015096,001133:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
015097,001134:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
015098,001135: 
015099,001136:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
015100,001137:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
015101,001138: 

Page 342

015103,001140: 
015104,001141:                                                                                                  #  DISPLAY VERBS
015105,001142: 
015106,001143: 41,2352           44767        DSPABC             CS       TWO                                   
015107,001144: 41,2353           02423                           TC       COMPTEST                              
015108,001145: 41,2354           50145                           INDEX    NOUNADD                               
015109,001146: 41,2355           40002                           CS       2                                     
015110,001147: 41,2356           56132                           XCH      BUF        +2                         
015111,001148: 41,2357           44770        DSPAB              CS       ONE                                   
015112,001149: 41,2360           02423                           TC       COMPTEST                              
015113,001150: 41,2361           50145                           INDEX    NOUNADD                               
015114,001151: 41,2362           40001                           CS       1                                     
015115,001152: 41,2363           56131                           XCH      BUF        +1                         
015116,001153: 41,2364           44772        DSPA               CS       ZERO                                  
015117,001154: 41,2365           02436                           TC       DCOMPTST                              
015118,001155: 41,2366           02461                           TC       TSTFORDP                              
015119,001156: 41,2367           50145                           INDEX    NOUNADD                               
015120,001157: 41,2370           40000                           CS       0                                     
015121,001158: 41,2371           02403                           TC       DSPCOM1                               
015122,001159: 41,2372           44770        DSPB               CS       ONE                                   
015123,001160: 41,2373           02436                           TC       DCOMPTST                              
015124,001161: 41,2374           50145                           INDEX    NOUNADD                               
015125,001162: 41,2375           40001                           CS       1                                     
015126,001163: 41,2376           02403                           TC       DSPCOM1                               
015127,001164: 41,2377           44767        DSPC               CS       TWO                                   
015128,001165: 41,2400           02436                           TC       DCOMPTST                              
015129,001166: 41,2401           50145                           INDEX    NOUNADD                               
015130,001167: 41,2402           40002                           CS       2                                     
015131,001168: 41,2403           56130        DSPCOM1            XCH      BUF                                   
015132,001169: 41,2404           44767        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
015133,001170: 41,2405           61204                           AD       VERBREG                               #  -1 -0 +1 +2 +3  IN A
015134,001171: 41,2406           10000                 +2        CCS      A                                     #  +0 +0 +0 +1 +2  IN A AFTER CCS
015135,001172: 41,2407           02412                           TC       DSPCOM3                               
015136,001173: 41,2410           00136                           TC       ENTEXIT                               
015137,001174: 41,2411           02412                           TC       +1                                    
015138,001175: 41,2412           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
015139,001176: 41,2413           50000                           INDEX    A                                     
015140,001177: 41,2414           34321                           CAF      R1D1                                  
015141,001178: 41,2415           55202                           TS       DSPCOUNT                              
015142,001179: 41,2416           50122                           INDEX    DISTEM                                
015143,001180: 41,2417           40130                           CS       BUF                                   
015144,001181: 41,2420           03351                           TC       DSPOCTWD                              
015145,001182: 41,2421           56122                           XCH      DISTEM                                
015146,001183: 41,2422           02406                           TC       DSPCOM2    +2                         
015147,001184: 
015148,001185:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
015149,001186:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
015150,001187: 
015151,001188: 41,2423           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
015152,001189: 41,2424           22002                           LXCH     Q                                     
015153,001190: 41,2425           02510        COMPTST1           TC       GETCOMP                               
015154,001191: 41,2426           04333                           TC       LEFT5                                 
015155,001192: 41,2427           76214                           MASK     THREE                                 #  NOUN COMP

Page 343

015157,001194: 41,2430           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
015158,001195: 41,2431           10000                           CCS      A                                     
015159,001196: 41,2432           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
015160,001197: 41,2433           04151        MONBACK            ADRES    PASTEVB                               #  CANNOT GET HERE
015161,001198: 41,2434           02350                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
015162,001199: 41,2435           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
015163,001200: 
015164,001201:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
015165,001202:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
015166,001203: 
015167,001204: 41,2436           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
015168,001205: 41,2437           22002                           LXCH     Q                                     
015169,001206: 41,2440           02510                           TC       GETCOMP                               
015170,001207: 41,2441           74753                           MASK     BIT14                                 
015171,001208: 41,2442           10000                           CCS      A                                     
015172,001209: 41,2443           02350                           TC       GODSPALM                              
015173,001210: 41,2444           02425                           TC       COMPTST1                              
015174,001211: 41,2445           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
015175,001212: 41,2446           02510                           TC       GETCOMP                               #  (BIT4 OF COMP CODE NUMBER). RETURNS
015176,001213: 41,2447           74753                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
015177,001214: 41,2450           10000                           CCS      A                                     
015178,001215: 41,2451           04173                           TC       ALMCYCLE                              
015179,001216: 41,2452           00001                           TC       L                                     
015180,001217: 
015181,001218:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
015182,001219:                                                                                                  #  IF NOT, IT RETURNS.
015183,001220: 
015184,001221: 41,2453           22002        NOUNTEST           LXCH     Q                                     
015185,001222: 41,2454           02510                           TC       GETCOMP                               
015186,001223: 41,2455           10000                           CCS      A                                     
015187,001224: 41,2456           00001                           TC       L                                     
015188,001225: 41,2457           00001                           TC       L                                     
015189,001226: 41,2460           02350                           TC       GODSPALM                              
015190,001227: 
015191,001228: 41,2461           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
015192,001229: 41,2462           30146                           CA       NNADTEM                               
015193,001230: 41,2463           64770                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015194,001231: 41,2464           00006                           EXTEND                                         
015195,001232: 41,2465           12477                           BZF      CHANDSP                               
015196,001233: 41,2466           50140                           INDEX    MIXBR                                 
015197,001234: 41,2467           02467                           TC       +0                                    
015198,001235: 41,2470           02472                           TC       +2                                    #  NORMAL
015199,001236: 41,2471           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
015200,001237: 41,2472           03025                           TC       SFRUTNOR                              
015201,001238: 41,2473           02260                           TC       DPTEST                                
015202,001239: 41,2474           00001                           TC       L                                     #  NO DP
015203,001240: 41,2475           24145                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
015204,001241: 41,2476           00001                           TC       L                                     
015205,001242: 

Page 344

015207,001244: 
015208,001245: 41,2477           31222        CHANDSP            CA       NOUNCADR                              
015209,001246: 41,2500           75021                           MASK     LOW9                                  
015210,001247: 41,2501           00006                           EXTEND                                         
015211,001248: 41,2502           50000                           INDEX    A                                     
015212,001249: 41,2503           00000                           READ     0                                     
015213,001250: 41,2504           40000                           CS       A                                     
015214,001251: 41,2505           12403                           TCF      DSPCOM1                               
015215,001252: 
015216,001253: 41,2506           00147        COMPICK            ADRES    NNTYPTEM                              
015217,001254: 41,2507           00146                           ADRES    NNADTEM                               
015218,001255: 
015219,001256: 41,2510           50140        GETCOMP            INDEX    MIXBR                                 #  NORMAL                        MIXED
015220,001257: 41,2511           32505                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM                ADRES NNADTEM
015221,001258: 41,2512           50000                           INDEX    A                                     
015222,001259: 41,2513           30000                           CA       0                                     #  C(NNTYPTEM)                   C(NNADTEM)
015223,001260: 41,2514           74344                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB (NORM) OF NNADTAB (MIX)
015224,001261: 41,2515           00002                           TC       Q                                     
015225,001262: 
015226,001263: 41,2516           02510        DECDSP             TC       GETCOMP                               
015227,001264: 41,2517           04333                           TC       LEFT5                                 
015228,001265: 41,2520           76214                           MASK     THREE                                 
015229,001266: 41,2521           54117                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
015230,001267: 41,2522           54122        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
015231,001268: 41,2523           60145                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
015232,001269: 41,2524           50000                           INDEX    A                                     
015233,001270: 41,2525           40000                           CS       0                                     
015234,001271: 41,2526           50122                           INDEX    DECTEM                                
015235,001272: 41,2527           57206                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
015236,001273: 41,2530           10122                           CCS      DECTEM                                
015237,001274: 41,2531           02522                           TC       DSPDCGET                              #  MORE TO GET
015238,001275: 41,2532           34772        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
015239,001276: 41,2533           54155                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
015240,001277: 41,2534           54156                           TS       MPAC       +2                         
015241,001278: 41,2535           50117                           INDEX    DECOUNT                               
015242,001279: 41,2536           34321                           CAF      R1D1                                  
015243,001280: 41,2537           55202                           TS       DSPCOUNT                              
015244,001281: 41,2540           50117                           INDEX    DECOUNT                               
015245,001282: 41,2541           41206                           CS       XREG                                  
015246,001283: 41,2542           54154                           TS       MPAC                                  
015247,001284: 41,2543           03042                           TC       SFCONUM                               #  2X (SF CON NUMB) IN A
015248,001285: 41,2544           54123                           TS       SFTEMP1                               
015249,001286: 41,2545           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
015250,001287: 41,2546           32560                           DCA      GTSFOUTL                              #     READING ROUTINE.
015251,001288: 41,2547           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
015252,001289: 41,2550           50140                           INDEX    MIXBR                                 
015253,001290: 41,2551           02551                           TC       +0                                    
015254,001291: 41,2552           02555                           TC       DSPSFNOR                              
015255,001292: 41,2553           03033                           TC       SFRUTMIX                              

Page 345

015257,001294: 41,2554           02570                           TC       DECDSP3                               
015258,001295: 
015259,001296: 41,2555           03025        DSPSFNOR           TC       SFRUTNOR                              
015260,001297: 41,2556           02570                           TC       DECDSP3                               
015261,001298: 
015262,001299: 41,2557     1202                                  EBANK=   DSPCOUNT                              
015263,001300: 41,2557           02114 64102  GTSFOUTL           2CADR    GTSFOUT                               
015264,001301: 
015265,001302: 41,2561           04636        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
015266,001303: 41,2562           61072                           CADR     DSPDECWD                              
015267,001304: 41,2563           10117                 +2        CCS      DECOUNT                               
015268,001305: 41,2564           02566                           TC       +2                                    
015269,001306: 41,2565           00136                           TC       ENTEXIT                               
015270,001307: 41,2566           54117                           TS       DECOUNT                               
015271,001308: 41,2567           02532                           TC       DSPDCPUT                              #  MORE TO DISPLAY
015272,001309: 
015273,001310: 41,2570           50000        DECDSP3            INDEX    A                                     
015274,001311: 41,2571           32573                           CAF      SFOUTABR                              
015275,001312: 41,2572           04660                           TC       BANKJUMP                              
015276,001313: 
015277,001314: 41,2573           61260        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
015278,001315: 41,2574           62561                           CADR     DSPDCEND                              
015279,001316: 41,2575           60531                           CADR     DEGOUTSF                              
015280,001317: 41,2576           60563                           CADR     ARTOUTSF                              
015281,001318: 41,2577           60574                           CADR     DP1OUTSF                              
015282,001319: 41,2600           60601                           CADR     DP2OUTSF                              
015283,001320: 41,2601           60505                           CADR     OPDEGOUT                              
015284,001321: 41,2602           60603                           CADR     DP3OUTSF                              
015285,001322: 41,2603           65137                           CADR     HMSOUT                                
015286,001323: 41,2604           65212                           CADR     M/SOUT                                
015287,001324: 41,2605           60601                           CADR     DP2OUTSF                              
015288,001325: 41,2606           60570                           CADR     AROUT1SF                              
015289,001326: 41,2607           60616                           CADR     2INTOUT                               
015290,001327: 41,2610           60633                           CADR     DPFRACOT                              
015291,001328: 
015292,001329:                                                                                                  #  THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
015293,001330:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
015294,001331: 
015295,001332: 40,2000                                           SETLOC   PINBALL1                              
015296,001333: 40,2000                                           BANK                                           
015297,001334: 40,2505                                           COUNT*   $$/PIN                                
015298,001335: 
015299,001336:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
015300,001337: 
015301,001338: 40,2505           10154        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
015302,001339: 40,2506           56154                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
015303,001340: 40,2507           02512                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
015304,001341: 40,2510           02521                           TC       NEGOPT                                #  IF NEG NON ZERO

Page 346

015306,001343: 40,2511           67702                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
015307,001344: 40,2512           62562                           AD       20BIAS                                
015308,001345: 40,2513           54154        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
015309,001346: 40,2514           02517                           TC       +3                                    #  NO OVFLOW
015310,001347: 40,2515           34752                           CAF      BIT15                                 #  IF OVFLOW
015311,001348: 40,2516           26154                           ADS      MPAC                                  
015312,001349: 40,2517           34767                           CAF      TWO                                   #  SET MULTIPLIER TO .45
015313,001350: 40,2520           02532                           TC       DEGOUTSF   +1                         
015314,001351: 
015315,001352: 40,2521           56154        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
015316,001353: 40,2522           62562                           AD       20BIAS                                
015317,001354: 40,2523           10000                           CCS      A                                     
015318,001355: 40,2524           02513                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
015319,001356: 40,2525           71527        NEG.2              OCT      -06250                                #  =.197753906 TRUN BIAS (CANNOT GET HERE)
015320,001357: 40,2526           64770                           AD       ONE                                   #  IF NEG RESTORE SUM
015321,001358: 40,2527           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
015322,001359: 40,2530           02513                           TC       BIASCOM                               
015323,001360: 
015324,001361:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
015325,001362:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
015326,001363: 
015327,001364: 40,2531           34772        DEGOUTSF           CAF      ZERO                                  
015328,001365: 40,2532           54156                 +1        TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
015329,001366: 40,2533           10154                           CCS      MPAC                                  
015330,001367: 40,2534           12546                           TCF      DEGCOM                                #  NO AUGMENT NEEDED (SFTEMP1,SFTEMP2 ARE 0,
015331,001368: 40,2535           12546                           TCF      DEGCOM                                #  MPAC IS +)
015332,001369: 40,2536           12537                           TCF      +1                                    
015333,001370: 40,2537           44752                           CS       BIT15                                 #  MPAC IS -, MASK OUT SIGN BIT AND ADD
015334,001371: 40,2540           70154                           MASK     MPAC                                  #  AUGMENTER ACCORDING TO C(MPAC +2)
015335,001372: 40,2541           54154                           TS       MPAC                                  
015336,001373: 40,2542           00006                           EXTEND                                         
015337,001374: 40,2543           50156                           INDEX    MPAC       +2                         
015338,001375: 40,2544           32557                           DCA      DEGTAB                                #  LOADS SFTEMP1 AND SFTEMP2 WITH DP AUGMENTER
015339,001376: 40,2545           52124                           DXCH     SFTEMP1                               #  CONSTANT
015340,001377: 40,2546           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
015341,001378: 40,2547           50156                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
015342,001379: 40,2550           32557                           DCA      DEGTAB                                
015343,001380: 40,2551           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
015344,001381: 40,2552           07256                           TC       SHORTMP                               
015345,001382: 40,2553           52124                           DXCH     SFTEMP1                               
015346,001383: 40,2554           20155                           DAS      MPAC                                  
015347,001384: 40,2555           02566                           TC       SCOUTEND                              
015348,001385: 
015349,001386: 40,2556           05605        DEGTAB             OCT      05605                                 #  HI PART OF    .18
015350,001387: 40,2557           03656                           OCT      03656                                 #  LOW PART OF   .18
015351,001388: 40,2560           16314                           OCT      16314                                 #  HI PART OF    .45
015352,001389: 40,2561           31463                           OCT      31463                                 #  LO PART OF    .45
015353,001390: 
015354,001391: 40,2562           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
015355,001392: 

Page 347

015357,001394: 
015358,001395: 40,2563           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
015359,001396: 40,2564           52155                           DXCH     MPAC                                  
015360,001397: 40,2565           04403                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015361,001398: 40,2566           04655        SCOUTEND           TC       POSTJUMP                              
015362,001399: 40,2567           62561                           CADR     DSPDCEND                              
015363,001400: 
015364,001401: 40,2570           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
015365,001402: 40,2571           52155                           DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
015366,001403: 40,2572           04403                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
015367,001404: 40,2573           02575                           TC       L14/OUT                               
015368,001405: 
015369,001406: 40,2574           02607        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
015370,001407: 40,2575           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
015371,001408: 40,2576           56155                           XCH      MPAC       +1                         #  BY B14.
015372,001409: 40,2577           54154                           TS       MPAC                                  
015373,001410: 40,2600           02566                           TC       SCOUTEND                              
015374,001411: 
015375,001412: 40,2601           02607        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
015376,001413: 40,2602           02566                           TC       SCOUTEND                              
015377,001414: 
015378,001415: 40,2603           02607        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
015379,001416: 40,2604           36211                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
015380,001417: 40,2605           03034                           TC       TPLEFTN                               #  SHIFT LEFT 7.
015381,001418: 40,2606           02566                           TC       SCOUTEND                              
015382,001419: 
015383,001420: 40,2607     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
015384,001421: 
015385,001422: 40,2607           56002        DPOUT              XCH      Q                                     
015386,001423: 40,2610           54162                           TS       MPAC+6                                
015387,001424: 40,2611           02635                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
015388,001425: 40,2612           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
015389,001426: 40,2613           07052                           TC       DMP                                   
015390,001427: 40,2614           00123                           ADRES    SFTEMP1                               
015391,001428: 40,2615           00162                           TC       MPAC+6                                
015392,001429: 
015393,001430:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
015394,001431:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
015395,001432:                                                                                                  #  BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
015396,001433:                                                                                                  #  RXD1-RXD2.
015397,001434: 
015398,001435: 40,2616           02431        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
015399,001436: 40,2617           02310                           TC       +ON                                   #  TURN ON + SIGN
015400,001437: 40,2620           30154                           CA       MPAC                                  
015401,001438: 40,2621           03146                           TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
015402,001439: 40,2622           46214                           CS       THREE                                 
015403,001440: 40,2623           50117                           INDEX    DECOUNT                               
015404,001441: 40,2624           64321                           AD       R1D1                                  #  RXD4

Page 348

015406,001443: 40,2625           55202                           TS       DSPCOUNT                              
015407,001444: 40,2626           02635                           TC       READLO                                #  GET 2ND INTEGER
015408,001445: 40,2627           30155                           CA       MPAC       +1                         
015409,001446: 40,2630           03146                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
015410,001447: 40,2631           04655                           TC       POSTJUMP                              
015411,001448: 40,2632           62563                           CADR     DSPDCEND   +2                         
015412,001449: 
015413,001450: 40,2633           02635        DPFRACOT           TC       READLO                                #  DP FRACTION TO MPAC,+1
015414,001451: 40,2634           02566                           TC       SCOUTEND                              
015415,001452: 
015416,001453:                                                                                                  #  READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN
015417,001454:                                                                                                  #  MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
015418,001455:                                                                                                  #  DOES NOT FORCE TPAGREE.
015419,001456: 
015420,001457: 40,2635           56002        READLO             XCH      Q                                     
015421,001458: 40,2636           54144                           TS       TEM4                                  
015422,001459: 40,2637           50140                           INDEX    MIXBR                                 
015423,001460: 40,2640           02640                           TC       +0                                    
015424,001461: 40,2641           02655                           TC       RDLONOR                               
015425,001462: 40,2642           50117                           INDEX    DECOUNT                               
015426,001463: 40,2643           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
015427,001464: 40,2644           74347                           MASK     LOW11                                 #  E SUBK
015428,001465: 40,2645           04315                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
015429,001466: 40,2646           00006        READLO1            EXTEND                                         #  MIXED                 NORMAL
015430,001467: 40,2647           50000                           INDEX    A                                     #  C(ESUBK)              C(E)
015431,001468: 40,2650           30001                           DCA      0                                     #  C((E SUBK)+1)         C(E+1)
015432,001469: 40,2651           52155                           DXCH     MPAC                                  
015433,001470: 40,2652           34772                           CAF      ZERO                                  
015434,001471: 40,2653           54156                           TS       MPAC       +2                         
015435,001472: 40,2654           00144                           TC       TEM4                                  
015436,001473: 
015437,001474: 40,2655           30145        RDLONOR            CA       NOUNADD                               #  E
015438,001475: 40,2656           02646        ENDRDLO            TC       READLO1                               
015439,001476: 
015440,001477: 
015441,001478: 42,2000                                           SETLOC   PINBALL3                              
015442,001479: 42,2000                                           BANK                                           
015443,001480: 
015444,001481: 42,3137                                           COUNT*   $$/PIN                                
015445,001482: 42,3137           04636        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
015446,001483: 42,3140           60635                           CADR     READLO                                #  MPAC+1.
015447,001484: 42,3141           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
015448,001485: 42,3142           03326                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1. LEAVE
015449,001486:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
015450,001487: 42,3143           07052                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
015451,001488: 42,3144           03200                           ADRES    SECON2                                #  MULT BY .06
015452,001489: 42,3145           34323                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
015453,001490: 42,3146           55202                           TS       DSPCOUNT                              

Page 349

015455,001492: 42,3147           04636                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
015456,001493: 42,3150           61072                           CADR     DSPDECWD                              
015457,001494: 42,3151           03344                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
015458,001495: 42,3152           33202                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
015459,001496: 42,3153           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
015460,001497: 42,3154           55212                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
015461,001498: 42,3155           33203                           CAF      MINCON2    +1                         
015462,001499: 42,3156           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
015463,001500: 42,3157           04403                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015464,001501:                                                                                                  #  MULT BY .0006
015465,001502: 42,3160           34322                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
015466,001503: 42,3161           55202                           TS       DSPCOUNT                              
015467,001504: 42,3162           04636                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
015468,001505: 42,3163           61072                           CADR     DSPDECWD                              
015469,001506: 42,3164           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
015470,001507: 42,3165           33207                           DCA      HRCON1                                
015471,001508: 42,3166           52155                           DXCH     MPAC                                  
015472,001509: 42,3167           31212                           CA       HITEMOUT                              #  USE WHOLE HOURS
015473,001510: 42,3170           04403                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015474,001511:                                                                                                  #  MULT BY .16384
015475,001512: 42,3171           34321                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
015476,001513: 42,3172           55202                           TS       DSPCOUNT                              
015477,001514: 42,3173           04636                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
015478,001515: 42,3174           61072                           CADR     DSPDECWD                              
015479,001516: 42,3175           00136                           TC       ENTEXIT                               
015480,001517: 
015481,001518: 42,3176           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
015482,001519: 
015483,001520: 42,3200           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
015484,001521: 42,3201           01217                           OCT      01217                                 
015485,001522: 42,3202           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
015486,001523: 42,3203           32445                 +1        OCT      32445                                 
015487,001524: 42,3204           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
015488,001525: 42,3205           10422                           OCT      10422                                 
015489,001526: 42,3206           05174 13261  HRCON1             2DEC     .16384                                
015490,001527: 
015491,001528: 42,3210           00000                 -1        OCT      00000                                 
015492,001529: 42,3211           00062        RNDCON             DEC      50         B-14                       #  *** USED DP WITH PRECEDING ZERO ***
015493,001530: 
015494,001531: 42,3212           04636        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
015495,001532: 42,3213           60635                           CADR     READLO                                #  MPAC+1.
015496,001533: 42,3214           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
015497,001534: 42,3215           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
015498,001535: 42,3216           03220                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
015499,001536: 42,3217           03251                           TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
015500,001537: 42,3220           63306                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1  FOR CCS
015501,001538: 42,3221           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
015502,001539: 42,3222           03235                           TC       M/SLIMIT                              #  G/ 59M58.5S
015503,001540: 42,3223           03251                           TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
015504,001541: 42,3224           03251                           TC       M/SNORM                               #  L/ 59M58.5S
015505,001542: 42,3225           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S

Page 350

015507,001544: 42,3226           03230                           TC       +2                                    
015508,001545: 42,3227           03251                           TC       M/SNORM                               #  MPAC+1 = +0.  L/ 59M58.5S
015509,001546: 42,3230           63307                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1 FOR CCS
015510,001547: 42,3231           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
015511,001548: 42,3232           03235                           TC       M/SLIMIT                              #  G/ 59M58.5S
015512,001549: 42,3233           03251                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
015513,001550: 42,3234           03251                           TC       M/SNORM                               #  L/ 59M58.5S
015514,001551: 42,3235           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
015515,001552: 42,3236           33311                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
015516,001553: 42,3237           03246                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
015517,001554: 42,3240           43311                           CS       M/SCON3                               
015518,001555: 42,3241           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
015519,001556: 42,3242           43312                           CS       M/SCON3    +1                         
015520,001557: 42,3243           54155        LIMITCOM           TS       MPAC       +1                         
015521,001558: 42,3244           33310                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
015522,001559: 42,3245           03327                           TC       SEPSECNR   +1                         
015523,001560: 42,3246           54154        +LIMIT             TS       MPAC                                  
015524,001561: 42,3247           33312                           CAF      M/SCON3    +1                         
015525,001562: 42,3250           03243                           TC       LIMITCOM                              
015526,001563: 42,3251           03313        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
015527,001564:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
015528,001565: 42,3252           33304                 +1        CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
015529,001566: 42,3253           07256                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
015530,001567: 42,3254           46214                           CS       THREE                                 #  GIVES SEC/100 MOD 60
015531,001568: 42,3255           27202                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
015532,001569: 42,3256           04636                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
015533,001570: 42,3257           61126                           CADR     DSPDC2NR                              
015534,001571: 42,3260           34772                           CAF      ZERO                                  
015535,001572: 42,3261           54124                           TS       CODE                                  
015536,001573: 42,3262           44767                           CS       TWO                                   
015537,001574: 42,3263           50117                           INDEX    DECOUNT                               
015538,001575: 42,3264           64321                           AD       R1D1                                  #  RXD3
015539,001576: 42,3265           54143                           TS       COUNT                                 
015540,001577: 42,3266           04636                           TC       BANKCALL                              #  BLANK MIDDLE CHAR
015541,001578: 42,3267           61161                           CADR     DSPIN                                 
015542,001579: 42,3270           03344                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
015543,001580: 42,3271           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
015544,001581: 42,3272           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
015545,001582: 42,3273           73305                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
015546,001583: 42,3274           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
015547,001584: 42,3275           50117                           INDEX    DECOUNT                               
015548,001585: 42,3276           34321                           CAF      R1D1                                  #  RXD1
015549,001586: 42,3277           55202                           TS       DSPCOUNT                              
015550,001587: 42,3300           04636                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
015551,001588: 42,3301           61126                           CADR     DSPDC2NR                              
015552,001589: 42,3302           04655                           TC       POSTJUMP                              
015553,001590: 42,3303           62563                           CADR     DSPDCEND   +2                         
015554,001591: 
015555,001592: 42,3304           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
015556,001593: 42,3305           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
015557,001594: 

Page 351

015559,001596: 
015560,001597: 42,3306           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
015561,001598: 42,3307           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
015562,001599: 42,3310           03252        NORMADR            ADRES    M/SNORM    +1                         
015563,001600: 42,3311           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
015564,001601: 42,3312           37016                 +1        OCT      37016                                 
015565,001602: 42,3313           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
015566,001603: 42,3314           13323                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
015567,001604: 42,3315           13323                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
015568,001605: 42,3316           13317                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
015569,001606: 42,3317           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
015570,001607: 42,3320           43211                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
015571,001608: 42,3321           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
015572,001609: 42,3322           13326                           TCF      SEPSECNR                              
015573,001610: 42,3323           00006        POSEC              EXTEND                                         
015574,001611: 42,3324           33211                           DCA      RNDCON     -1                         
015575,001612: 42,3325           13321                           TCF      SEPSEC1                               
015576,001613: 42,3326           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
015577,001614: 42,3327           54144                 +1        TS       SEPSCRET                              
015578,001615: 42,3330           07052                           TC       DMP                                   #  MULT BY 2EXP12/6000
015579,001616: 42,3331           03176                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
015580,001617: 42,3332           00006                           EXTEND                                         #  AND BELOW.
015581,001618: 42,3333           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
015582,001619: 42,3334           53213                           DXCH     HITEMOUT                              
015583,001620: 42,3335           04372                           TC       TPSL1                                 
015584,001621: 42,3336           04372                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
015585,001622: 42,3337           34772                           CAF      ZERO                                  
015586,001623: 42,3340           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
015587,001624: 42,3341           56155                           XCH      MPAC       +1                         
015588,001625: 42,3342           56154                           XCH      MPAC                                  
015589,001626: 42,3343           00144                           TC       SEPSCRET                              
015590,001627: 
015591,001628: 42,3344           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
015592,001629: 42,3345           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
015593,001630: 42,3346           31213                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
015594,001631: 42,3347           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
015595,001632: 42,3350           74766                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
015596,001633: 42,3351           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
015597,001634: 42,3352           74754                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
015598,001635: 42,3353           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
015599,001636:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
015600,001637: 42,3354           31212                           CA       HITEMOUT                              
015601,001638: 42,3355           54154                           TS       MPAC                                  
015602,001639: 42,3356           07052                           TC       DMP                                   #  MULT BY 1/15
015603,001640: 42,3357           03204                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
015604,001641: 42,3360           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
015605,001642: 
015606,001643:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
015607,001644:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH

Page 352

015609,001646:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
015610,001647:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO.  IF USED WITH NOUNS WHICH ARE
015611,001648:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
015612,001649:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
015613,001650: 
015614,001651: 40,2000                                           SETLOC   PINBALL1                              
015615,001652: 40,2000                                           BANK                                           
015616,001653: 40,2657                                           COUNT*   $$/PIN                                
015617,001654: 40,2657           50140        DSPDPDEC           INDEX    MIXBR                                 
015618,001655: 40,2660           02660                           TC       +0                                    
015619,001656: 40,2661           02663                           TC       +2                                    #  NORMAL NOUN
015620,001657: 40,2662           03261                           TC       DSPALARM                              
015621,001658: 40,2663           00006                           EXTEND                                         
015622,001659: 40,2664           50145                           INDEX    NOUNADD                               
015623,001660: 40,2665           30001                           DCA      0                                     
015624,001661: 40,2666           52155                           DXCH     MPAC                                  
015625,001662: 40,2667           34321                           CAF      R1D1                                  
015626,001663: 40,2670           55202                           TS       DSPCOUNT                              
015627,001664: 40,2671           07224                           TC       DPAGREE                               
015628,001665: 40,2672           03133                           TC       DSP2DEC                               
015629,001666: 40,2673           00136        ENDDPDEC           TC       ENTEXIT                               
015630,001667: 

Page 353

015632,001669:                                                                                                  #  LOAD VERBS            IF ALARM CONDITION IS DETECTED DURING EXECUTE,
015633,001670:                                                                                                  #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
015634,001671:                                                                                                  #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
015635,001672:                                                                                                  #  TO EXECUTE OF ORIGINAL LOAD VERB.  RECYCLE CAUSED BY  1) DECIMAL MACHINE
015636,001673:                                                                                                  #  CADR  2) MIXTURE OF OCTAL/DECIMAL DATA  3) OCTAL DATA INTO DECIMAL
015637,001674:                                                                                                  #  ONLY NOUN  4) DEC DATA INTO OCT ONLY NOUN  5) DATA TOO LARGE FOR SCALE
015638,001675:                                                                                                  #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8  (2)-(6) ALARM
015639,001676:                                                                                                  #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
015640,001677:                                                                                                  #  ENTER OF CADR.
015641,001678: 
015642,001679: 41,2000                                           SETLOC   PINBALL2                              
015643,001680: 41,2000                                           BANK                                           
015644,001681: 41,2611                                           COUNT*   $$/PIN                                
015645,001682: 41,2611           44767        ABCLOAD            CS       TWO                                   
015646,001683: 41,2612           02423                           TC       COMPTEST                              
015647,001684: 41,2613           02453                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
015648,001685: 41,2614           34353                           CAF      VBSP1LD                               
015649,001686: 41,2615           02336                           TC       UPDATVB    -1                         
015650,001687: 41,2616           02300                           TC       REQDATX                               
015651,001688: 41,2617           34354                           CAF      VBSP2LD                               
015652,001689: 41,2620           02336                           TC       UPDATVB    -1                         
015653,001690: 41,2621           02302                           TC       REQDATY                               
015654,001691: 41,2622           34615                           CAF      VBSP3LD                               
015655,001692: 41,2623           02336                           TC       UPDATVB    -1                         
015656,001693: 41,2624           02304                           TC       REQDATZ                               
015657,001694: 
015658,001695: 41,2625           46211        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
015659,001696: 41,2626           03011                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
015660,001697: 41,2627           00006                           EXTEND                                         
015661,001698: 41,2630           32115                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015662,001699: 41,2631           52006                           DXCH     Z                                     #  ROUTINE.
015663,001700: 41,2632           34772                           CAF      ZERO                                  #  X COMP
015664,001701: 41,2633           03071                           TC       PUTCOM                                
015665,001702: 41,2634           50145                           INDEX    NOUNADD                               
015666,001703: 41,2635           54000                           TS       0                                     
015667,001704: 41,2636           34770                           CAF      ONE                                   #  Y COMP
015668,001705: 41,2637           03071                           TC       PUTCOM                                
015669,001706: 41,2640           50145                           INDEX    NOUNADD                               
015670,001707: 41,2641           54001                           TS       1                                     
015671,001708: 41,2642           34767                           CAF      TWO                                   #  Z COMP
015672,001709: 41,2643           03071                           TC       PUTCOM                                
015673,001710: 41,2644           50145                           INDEX    NOUNADD                               
015674,001711: 41,2645           54002                           TS       2                                     
015675,001712: 41,2646           44774                           CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
015676,001713: 41,2647           61205                           AD       NOUNREG                               #   FLAG BITS AS SPECIFIED.
015677,001714: 41,2650           00006                           EXTEND                                         
015678,001715: 41,2651           12653                           BZF      +2                                    
015679,001716: 41,2652           03001                           TC       LOADLV                                

Page 354

015681,001718: 41,2653           00004                           INHINT                                         
015682,001719: 41,2654           45001                           CS       OCT30                                 #  IS IT A CHANNEL (30 OR UNDER)
015683,001720: 41,2655           61206                           AD       XREG                                  
015684,001721: 41,2656           00006                           EXTEND                                         
015685,001722: 41,2657           62667                           BZMF     CHANBITS                              #  YES
015686,001723: 
015687,001724: 41,2660           31206                           CA       XREG                                  #  ECADR OF ERASABLE CELL
015688,001725: 41,2661           04306                           TC       SETNCADR   +1                         #  SET EBANK, NOUNADD
015689,001726: 
015690,001727: 41,2662           50145                           INDEX    NOUNADD                               
015691,001728: 41,2663           30000                           CA       0                                     
015692,001729: 41,2664           54001                           TS       L                                     
015693,001730: 41,2665           34770                           CAF      ONE                                   
015694,001731: 41,2666           55206                           TS       XREG                                  #  MAKE IT LOOK LIKE A CHANNEL FOR A WHILE
015695,001732: 
015696,001733: 41,2667           64352        CHANBITS           AD       OCT21                                 
015697,001734: 41,2670           00006                           EXTEND                                         
015698,001735: 41,2671           12714                           BZF      BITSOFF2                              #  DONT TOUCH CHAN7 (SUPERBANK)
015699,001736: 
015700,001737: 41,2672           31210                           CA       ZREG                                  
015701,001738: 41,2673           00006                           EXTEND                                         
015702,001739: 41,2674           62702                           BZMF     BITSOFF                               #  R3 IS ZERO FOR OFF, NONZERO FOR ON
015703,001740: 
015704,001741: 41,2675           31207                           CA       YREG                                  
015705,001742: 41,2676           00006                           EXTEND                                         
015706,001743: 41,2677           51206                           INDEX    XREG                                  
015707,001744: 41,2700           05000                           WOR      0                                     
015708,001745: 41,2701           12706                           TCF      BITSOFF1                              
015709,001746: 
015710,001747: 41,2702           41207        BITSOFF            CS       YREG                                  
015711,001748: 41,2703           00006                           EXTEND                                         
015712,001749: 41,2704           51206                           INDEX    XREG                                  
015713,001750: 41,2705           03000                           WAND     0                                     
015714,001751: 
015715,001752: 41,2706           11206        BITSOFF1           CCS      XREG                                  #  WAS IT REALLY A CHANNEL
015716,001753: 41,2707           10000                           CCS      A                                     
015717,001754: 41,2710           12714                           TCF      BITSOFF2                              #  YES
015718,001755: 
015719,001756: 41,2711           22000                           LXCH     A                                     
015720,001757: 41,2712           50145                 -2        INDEX    NOUNADD                               
015721,001758: 41,2713           54000                           TS       0                                     
015722,001759: 41,2714           00003        BITSOFF2           RELINT                                         
015723,001760: 41,2715           03001                           TC       LOADLV                                
015724,001761: 
015725,001762: 41,2716     5001               OCT30              =        BITS4&5                               
015726,001763: 41,2716     4352               OCT21              =        ND1                                   
015727,001764: 
015728,001765: 41,2716           44770        ABLOAD             CS       ONE                                   
015729,001766: 41,2717           02423                           TC       COMPTEST                              
015730,001767: 41,2720           02453                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.

Page 355

015732,001769: 41,2721           34353                           CAF      VBSP1LD                               
015733,001770: 41,2722           02336                           TC       UPDATVB    -1                         
015734,001771: 41,2723           02300                           TC       REQDATX                               
015735,001772: 41,2724           34354                           CAF      VBSP2LD                               
015736,001773: 41,2725           02336                           TC       UPDATVB    -1                         
015737,001774: 41,2726           02302                           TC       REQDATY                               
015738,001775: 41,2727           44773        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
015739,001776: 41,2730           03011                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
015740,001777: 41,2731           00006                           EXTEND                                         
015741,001778: 41,2732           32115                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015742,001779: 41,2733           52006                           DXCH     Z                                     #  ROUTINE.
015743,001780: 41,2734           34772                           CAF      ZERO                                  #  X COMP
015744,001781: 41,2735           03071                           TC       PUTCOM                                
015745,001782: 41,2736           50145                           INDEX    NOUNADD                               
015746,001783: 41,2737           54000                           TS       0                                     
015747,001784: 41,2740           12760                           TCF      COMBLOAD                              #  Y COMP
015748,001785: 41,2741           02300        ALOAD              TC       REQDATX                               
015749,001786: 41,2742           00006                           EXTEND                                         
015750,001787: 41,2743           32115                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015751,001788: 41,2744           52006                           DXCH     Z                                     #  ROUTINE.
015752,001789: 41,2745           34772                           CAF      ZERO                                  #  X COMP
015753,001790: 41,2746           03071                           TC       PUTCOM                                
015754,001791: 41,2747           12712                           TCF      BITSOFF2   -2                         
015755,001792: 41,2750           44770        BLOAD              CS       ONE                                   
015756,001793: 41,2751           02423                           TC       COMPTEST                              
015757,001794: 41,2752           34752                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
015758,001795: 41,2753           55220                           TS       CLPASS                                
015759,001796: 41,2754           02302                           TC       REQDATY                               
015760,001797: 41,2755           00006                           EXTEND                                         
015761,001798: 41,2756           32115                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015762,001799: 41,2757           52006                           DXCH     Z                                     #  ROUTINE.
015763,001800: 41,2760           34770        COMBLOAD           CAF      ONE                                   
015764,001801: 41,2761           03071                           TC       PUTCOM                                
015765,001802: 41,2762           50145                           INDEX    NOUNADD                               
015766,001803: 41,2763           54001                           TS       1                                     
015767,001804: 41,2764           03001                           TC       LOADLV                                
015768,001805: 
015769,001806: 41,2765           44767        CLOAD              CS       TWO                                   
015770,001807: 41,2766           02423                           TC       COMPTEST                              
015771,001808: 41,2767           34752                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
015772,001809: 41,2770           55220                           TS       CLPASS                                
015773,001810: 41,2771           02304                           TC       REQDATZ                               
015774,001811: 41,2772           00006                           EXTEND                                         
015775,001812: 41,2773           32115                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015776,001813: 41,2774           52006                           DXCH     Z                                     #  ROUTINE.
015777,001814: 41,2775           34767                           CAF      TWO                                   
015778,001815: 41,2776           03071                           TC       PUTCOM                                
015779,001816: 41,2777           50145                           INDEX    NOUNADD                               
015780,001817: 41,3000           54002                           TS       2                                     
015781,001818: 41,3001           34772        LOADLV             CAF      ZERO                                  

Page 356

015783,001820: 41,3002           55203                           TS       DECBRNCH                              
015784,001821: 41,3003           44772                           CS       ZERO                                  
015785,001822: 41,3004           55217                           TS       LOADSTAT                              

Restored trailing period in the following line. — RSB 2017.

015787,001824: 41,3005           04432                           TC       RELDSP                                #  RELEASE FOR PRIORITY DISPLAY PROBLEM.
015788,001825: 41,3006           04261                           TC       -VD1SET                               
015789,001826: 41,3007           04655                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
015790,001827: 41,3010           61412                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
015791,001828: 
015792,001829: 41,3011           54117        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
015793,001830: 41,3012           41203                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
015794,001831: 41,3013           54021                           TS       SR                                    
015795,001832: 41,3014           40021                           CS       SR                                    
015796,001833: 41,3015           40021                           CS       SR                                    #  SHIFTED RIGHT 2
015797,001834: 41,3016           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
015798,001835: 41,3017           13021                           TCF      +2                                    #  SOME ONES IN LOW 3
015799,001836: 41,3020           00002        GOQ                TC       Q                                     #  ALL ZEROS. ALL OCTAL. OK.
015800,001837: 41,3021           60117                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
015801,001838: 41,3022           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
015802,001839: 41,3023           16711                           BZF      TCQ                                   #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP
015803,001840: 41,3024           04173                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
015804,001841: 41,3025           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
015805,001842: 41,3026           54114                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
015806,001843: 41,3027           34343                           CAF      MID5                                  
015807,001844: 41,3030           70147                           MASK     NNTYPTEM                              
015808,001845: 41,3031           04324                           TC       RIGHT5                                
015809,001846: 41,3032           00114                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
015810,001847: 
015811,001848: 41,3033           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
015812,001849: 41,3034           54114                           TS       EXITEM                                
015813,001850: 41,3035           03063                           TC       GETTCRLQ                              
015814,001851: 41,3036           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
015815,001852: 41,3037           50001                           INDEX    L                                     
015816,001853: 41,3040           00000                           TC       0                                     
015817,001854:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
015818,001855: 41,3041           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
015819,001856: 
015820,001857: 41,3042           56002        SFCONUM            XCH      Q                                     #  GETS 2X(SF CONSTANT NUMBER)
015821,001858: 41,3043           54114                           TS       EXITEM                                
015822,001859: 41,3044           50140                           INDEX    MIXBR                                 
015823,001860: 41,3045           03045                           TC       +0                                    
015824,001861: 41,3046           03060                           TC       CONUMNOR                              #  NORMAL NOUN
015825,001862: 41,3047           03063                           TC       GETTCRLQ                              
015826,001863: 41,3050           70147                           MASK     NNTYPTEM                              
015827,001864: 41,3051           50001                           INDEX    L                                     
015828,001865: 41,3052           00000                           TC       0                                     
015829,001866:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
015830,001867: 41,3053           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER) IN A
015831,001868: 41,3054           00114                           TC       EXITEM                                
015832,001869: 
015833,001870: 41,3055           03020        DISPLACE           TC       GOQ                                   

Page 357

015835,001872: 41,3056           04324                           TC       RIGHT5                                
015836,001873: 41,3057           04333                           TC       LEFT5                                 
015837,001874: 
015838,001875: 41,3060           34342        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
015839,001876: 41,3061           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
015840,001877: 41,3062           13053                           TCF      SFRET                                 
015841,001878: 41,3063           50117        GETTCRLQ           INDEX    DECOUNT                               
015842,001879: 41,3064           33055                           CAF      DISPLACE                              
015843,001880: 41,3065           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, TC LEFT5 IN L
015844,001881: 41,3066           50117                           INDEX    DECOUNT                               
015845,001882: 41,3067           34342                           CAF      LOW5                                  #  LOW5, MID5, HI5 IN A
015846,001883: 41,3070           00002                           TC       Q                                     
015847,001884: 41,3071           54117        PUTCOM             TS       DECOUNT                               
015848,001885: 41,3072           56002                           XCH      Q                                     
015849,001886: 41,3073           54115                           TS       DECRET                                
015850,001887: 41,3074           34772                           CAF      ZERO                                  
015851,001888: 41,3075           54162                           TS       MPAC+6                                
015852,001889: 41,3076           50117                           INDEX    DECOUNT                               
015853,001890: 41,3077           57211                           XCH      XREGLP                                
015854,001891: 41,3100           54155                           TS       MPAC       +1                         
015855,001892: 41,3101           50117                           INDEX    DECOUNT                               
015856,001893: 41,3102           57206                           XCH      XREG                                  
015857,001894: 41,3103           54154                           TS       MPAC                                  
015858,001895: 41,3104           50140                           INDEX    MIXBR                                 
015859,001896: 41,3105           03105                           TC       +0                                    
015860,001897: 41,3106           03133                           TC       PUTNORM                               #  NORMAL NOUN
015861,001898:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
015862,001899: 41,3107           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
015863,001900: 41,3110           30150                           CA       IDAD1TEM                              #        OF NOUN.
015864,001901: 41,3111           74347                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
015865,001902: 41,3112           04305                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015866,001903: 41,3113           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
015867,001904: 41,3114           60117                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
015868,001905: 41,3115           54145                           TS       NOUNADD                               
015869,001906: 41,3116           11203                           CCS      DECBRNCH                              
015870,001907: 41,3117           03170                           TC       PUTDECSF                              #  + DEC
015871,001908: 41,3120           02445                           TC       DCTSTCYC                              #  +0 OCTAL
015872,001909: 41,3121           03033                           TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1. IF SO,
015873,001910: 41,3122           02260                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
015874,001911: 41,3123           03151                           TC       PUTCOM2                               #  NO DP
015875,001912:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
015876,001913:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR

Restored trailing period in the following line. — RSB 2017.

015878,001915:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
015879,001916: 41,3124           24145        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
015880,001917: 41,3125           30145                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
015881,001918: 41,3126           26117                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
015882,001919: 41,3127           34772                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
015883,001920: 41,3130           50117                           INDEX    DECOUNT                               
015884,001921: 41,3131           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
015885,001922: 41,3132           03151                           TC       PUTCOM2                               
015886,001923: 

Page 358

015888,001925: 41,3133           04313        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
015889,001926: 41,3134           11203                           CCS      DECBRNCH                              
015890,001927: 41,3135           03170                           TC       PUTDECSF                              #  + DEC
015891,001928: 41,3136           02445                           TC       DCTSTCYC                              #  +0 OCTAL
015892,001929: 41,3137           03025                           TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1.  IF SO,
015893,001930: 41,3140           02260                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
015894,001931: 41,3141           03145                           TC       PUTCOM2    -4                         #  NO DP
015895,001932: 41,3142           34772                           CAF      ZERO                                  #  DP
015896,001933: 41,3143           54117                           TS       DECOUNT                               
015897,001934: 41,3144           03124                           TC       PUTDPCOM                              
015898,001935: 
015899,001936: 41,3145           30146                 -4        CA       NNADTEM                               
015900,001937: 41,3146           64770                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015901,001938: 41,3147           00006                           EXTEND                                         
015902,001939: 41,3150           13155                           BZF      CHANLOAD                              
015903,001940: 41,3151           56154        PUTCOM2            XCH      MPAC                                  
015904,001941: 41,3152           00115                           TC       DECRET                                
015905,001942: 
015906,001943: 41,3153     1202                                  EBANK=   DSPCOUNT                              
015907,001944: 41,3153           02122 64102  GTSFINLC           2CADR    GTSFIN                                
015908,001945: 

Restored trailing period in the following line. — RSB 2017.

015910,001947: 41,3155           44774        CHANLOAD           CS       SEVEN                                 #  DONT LOAD CHAN 7. (IT = SUPERBANK).
015911,001948: 41,3156           61222                           AD       NOUNCADR                              
015912,001949: 41,3157           00006                           EXTEND                                         
015913,001950: 41,3160           13001                           BZF      LOADLV                                
015914,001951: 41,3161           31222                           CA       NOUNCADR                              
015915,001952: 41,3162           75021                           MASK     LOW9                                  
015916,001953: 41,3163           56154                           XCH      MPAC                                  
015917,001954: 41,3164           00006                           EXTEND                                         
015918,001955: 41,3165           50154                           INDEX    MPAC                                  
015919,001956: 41,3166           01000                           WRITE    0                                     
015920,001957: 41,3167           03001                           TC       LOADLV                                
015921,001958: 
015922,001959:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
015923,001960: 
015924,001961: 41,3170           03042        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
015925,001962: 41,3171           54123                           TS       SFTEMP1                               
015926,001963: 41,3172           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
015927,001964: 41,3173           33154                           DCA      GTSFINLC                              #  READING ROUTINE.
015928,001965: 41,3174           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
015929,001966: 41,3175           50140                           INDEX    MIXBR                                 
015930,001967: 41,3176           03176                           TC       +0                                    
015931,001968: 41,3177           03202                           TC       PUTSFNOR                              
015932,001969: 41,3200           03033                           TC       SFRUTMIX                              
015933,001970: 41,3201           03203                           TC       PUTDCSF2                              
015934,001971: 41,3202           03025        PUTSFNOR           TC       SFRUTNOR                              
015935,001972: 

Page 359

015937,001974: 41,3203           50000        PUTDCSF2           INDEX    A                                     
015938,001975: 41,3204           33206                           CAF      SFINTABR                              
015939,001976: 41,3205           04660                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
015940,001977: 41,3206           62347        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
015941,001978:                                                                                                  #  WITH OCTAL ONLY NOUN.
015942,001979: 41,3207           60753                           CADR     BINROUND                              
015943,001980: 41,3210           60674                           CADR     DEGINSF                               
015944,001981: 41,3211           60743                           CADR     ARTHINSF                              
015945,001982: 41,3212           60776                           CADR     DPINSF                                
015946,001983: 41,3213           61023                           CADR     DPINSF2                               
015947,001984: 41,3214           60761                           CADR     OPTDEGIN                              
015948,001985: 41,3215           60776                           CADR     DPINSF                                #  SAME AS ARITHDP1
015949,001986: 41,3216           65361                           CADR     HMSIN                                 
015950,001987: 41,3217           61261                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
015951,001988: 41,3220           61027                           CADR     DPINSF4                               
015952,001989: 41,3221           60756                           CADR     ARTIN1SF                              
015953,001990: 41,3222           61261                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
015954,001991: 41,3223           61007                           CADR     DPFRACIN                              
015955,001992: 
015956,001993:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
015957,001994:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
015958,001995: 
015959,001996: 40,2000                                           SETLOC   PINBALL1                              
015960,001997: 40,2000                                           BANK                                           
015961,001998: 40,2674                                           COUNT*   $$/PIN                                
015962,001999: 
015963,002000:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
015964,002001: 
015965,002002: 40,2674           07052        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
015966,002003: 40,2675           02737                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
015967,002004: 40,2676           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
015968,002005: 40,2677           34756                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
015969,002006: 40,2700           02702                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
015970,002007: 40,2701           44756                           CS       BIT11                                 
015971,002008: 40,2702           60155                           AD       MPAC       +1                         
015972,002009: 40,2703           03046                           TC       2ROUND     +2                         
015973,002010: 40,2704           04372                           TC       TPSL1                                 #  LEFT 1
015974,002011: 40,2705           04372        DEGINSF2           TC       TPSL1                                 #  LEFT 2
015975,002012: 40,2706           03051                           TC       TESTOFUF                              
015976,002013: 40,2707           04372                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
015977,002014: 40,2710           10154                           CCS      MPAC                                  
015978,002015: 40,2711           02715                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
015979,002016: 40,2712           02715                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
015980,002017: 40,2713           40000                           COM                                            #  IF -, USE -MAGNITUDE +1
015981,002018: 40,2714           54154                           TS       MPAC                                  #  IF -0, USE +0
015982,002019: 40,2715           10162        SIGNFIX            CCS      MPAC+6                                
015983,002020: 40,2716           02733                           TC       SGNTO1                                #  IF OVERFLOW
015984,002021: 40,2717           02727                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
015985,002022: 40,2720           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
015986,002023: 40,2721           04151        MONADR             GENADR   PASTEVB                               #  CANNOT GET HERE
015987,002024: 40,2722           02731                           TC       NEG180                                

Page 360

015989,002026: 40,2723           02724                           TC       +1                                    
015990,002027: 40,2724           56154                           XCH      MPAC                                  
015991,002028: 40,2725           74750                           MASK     POSMAX                                
015992,002029: 40,2726           54154                 -1        TS       MPAC                                  
015993,002030: 40,2727           04655        ENDSCALE           TC       POSTJUMP                              
015994,002031: 40,2730           63151                           CADR     PUTCOM2                               
015995,002032: 
015996,002033: 40,2731           44750        NEG180             CS       POSMAX                                
015997,002034: 40,2732           02726                           TC       ENDSCALE   -1                         
015998,002035: 
015999,002036: 40,2733           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
016000,002037: 40,2734           74750                           MASK     POSMAX                                
016001,002038: 40,2735           40000                           CS       A                                     
016002,002039: 40,2736           02726                           TC       ENDSCALE   -1                         
016003,002040: 
016004,002041: 40,2737           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
016005,002042: 
016006,002043: 40,2741           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
016007,002044: 
016008,002045: 40,2743           07052        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
016009,002046: 40,2744           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
016010,002047: 40,2745           56156                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
016011,002048: 40,2746           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
016012,002049: 40,2747           56154                           XCH      MPAC                                  
016013,002050: 40,2750           00006                           EXTEND                                         
016014,002051: 40,2751           12753                           BZF      BINROUND                              
016015,002052: 40,2752           04173                           TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
016016,002053: 40,2753           03044        BINROUND           TC       2ROUND                                
016017,002054: 40,2754           03051                           TC       TESTOFUF                              
016018,002055: 40,2755           02727                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
016019,002056: 
016020,002057: 40,2756           07052        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
016021,002058: 40,2757           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
016022,002059: 40,2760           02753                           TC       BINROUND                              
016023,002060: 
016024,002061: 40,2761           10154        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
016025,002062: 40,2762           02766                           TC       +4                                    
016026,002063: 40,2763           02766                           TC       +3                                    
016027,002064: 40,2764           04173                           TC       ALMCYCLE                              #  REJECT - INPUT. ALARM AND RECYCLE.
016028,002065: 40,2765           04173                           TC       ALMCYCLE                              #  REJECT - INPUT. ALARM AND RECYCLE.
016029,002066: 40,2766           32525        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
016030,002067: 40,2767           26154                           ADS      MPAC                                  #  SUBTRACT BIAS
016031,002068: 40,2770           07052                           TC       DMP                                   #  MULT BY 100 / 45 B-2
016032,002069: 40,2771           02741                           ADRES    DEGCON2                               
016033,002070: 40,2772           34755                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
016034,002071: 40,2773           60155                           AD       MPAC       +1                         
016035,002072: 40,2774           03046                           TC       2ROUND     +2                         

Page 361

016037,002074: 40,2775           02705                           TC       DEGINSF2                              
016038,002075: 
016039,002076: 40,2776           07052        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
016040,002077: 40,2777           00123                           ADRES    SFTEMP1                               #  SFTEMP2. STORES LOW PART OF RESULT
016041,002078: 40,3000           56156                 +2        XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
016042,002079: 40,3001           60000                           DOUBLE                                         
016043,002080: 40,3002           54156                           TS       MPAC       +2                         
016044,002081: 40,3003           34772                           CAF      ZERO                                  
016045,002082: 40,3004           60155                           AD       MPAC       +1                         
016046,002083: 40,3005           03046                           TC       2ROUND     +2                         
016047,002084: 40,3006           03051                           TC       TESTOFUF                              
016048,002085: 40,3007           50140        DPFRACIN           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
016049,002086: 40,3010           03010                           TC       +0                                    
016050,002087: 40,3011           03021                           TC       DPINORM                               
016051,002088: 40,3012           30117                           CA       DECOUNT                               #  MIXED NOUN
016052,002089: 40,3013           60145        DPINCOM            AD       NOUNADD                               #        MIXED           NORMAL
016053,002090: 40,3014           54002                           TS       Q                                     #        E SUBK          E
016054,002091: 40,3015           56155                           XCH      MPAC       +1                         
016055,002092: 40,3016           50002                           INDEX    Q                                     
016056,002093: 40,3017           54001                           TS       1                                     #  PLACE LOW PART IN
016057,002094: 40,3020           02727                           TC       ENDSCALE                              #  (E SUBK) +1   MIXED
016058,002095: 40,3021           34772        DPINORM            CAF      ZERO                                  #  E +1          NORMAL
016059,002096: 40,3022           03013                           TC       DPINCOM                               
016060,002097: 
016061,002098: 40,3023           07052        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
016062,002099: 40,3024           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016063,002100: 40,3025           36211                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
016064,002101: 40,3026           13032                           TCF      +4                                    #  SHIFT LEFT 7
016065,002102: 40,3027           07052        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
016066,002103: 40,3030           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016067,002104: 40,3031           34767                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
016068,002105: 40,3032           03034                           TC       TPLEFTN                               #  SHIFT LEFT 3.
016069,002106: 40,3033           03000                           TC       DPINSF     +2                         
016070,002107: 
016071,002108: 40,3034           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
016072,002109: 40,3035           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
016073,002110: 40,3036           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
016074,002111: 40,3037           54123        LEFTNCOM           TS       SFTEMP1                               #        LOOP TIME .37 MSEC.
016075,002112: 40,3040           04372                           TC       TPSL1                                 
016076,002113: 40,3041           10123                           CCS      SFTEMP1                               
016077,002114: 40,3042           03037                           TC       LEFTNCOM                              
016078,002115: 40,3043           00124                           TC       SFTEMP2                               
016079,002116: 
016080,002117: 40,3044           56155        2ROUND             XCH      MPAC       +1                         
016081,002118: 40,3045           60000                           DOUBLE                                         
016082,002119: 40,3046           54155                 +2        TS       MPAC       +1                         
016083,002120: 40,3047           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF

Page 362

016085,002122: 40,3050           14376                           TCF      TPSL1      +4                         #  CHECK FOR MPAC OF/UF
016086,002123: 40,3051           30162        TESTOFUF           CA       MPAC+6                                #  RETURNS IF NO OF/UF
016087,002124: 40,3052           00006                           EXTEND                                         
016088,002125: 40,3053           16711                           BZF      TCQ                                   
016089,002126: 40,3054           04173                           TC       ALMCYCLE                              #  UF    ALARM AND RECYCLE.
016090,002127: 
016091,002128: 42,2000                                           SETLOC   PINBALL3                              
016092,002129: 42,2000                                           BANK                                           
016093,002130: 42,3361                                           COUNT*   $$/PIN                                
016094,002131: 42,3361           41203        HMSIN              CS       DECBRNCH                              #  CHECK FOR ALL 3.COMPS DEC
016095,002132: 42,3362           74172                           MASK     OCT34                                 #  BITS 3,4,5
016096,002133: 42,3363           10000                           CCS      A                                     
016097,002134: 42,3364           03501                           TC       FORCEV25                              
016098,002135: 42,3365           07052                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
016099,002136: 42,3366           03444                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.

Restored trailing period in the following two lines. — RSB 2017.

016101,002138: 42,3367           03453                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
016102,002139: 42,3370           34772                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383).
016103,002140: 42,3371           54156                           TS       MPAC       +2                         
016104,002141: 42,3372           33446                           CAF      HRCON                                 
016105,002142: 42,3373           54154                           TS       MPAC                                  
016106,002143: 42,3374           33447                           CAF      HRCON      +1                         
016107,002144: 42,3375           56155                           XCH      MPAC       +1                         
016108,002145: 42,3376           07256                           TC       SHORTMP                               
016109,002146: 42,3377           03464                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
016110,002147: 42,3400           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
016111,002148: 42,3401           52124                           DXCH     HITEMIN                               
016112,002149: 42,3402           31207                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
016113,002150: 42,3403           23212                           LXCH     YREGLP                                
016114,002151: 42,3404           52155                           DXCH     MPAC                                  
016115,002152: 42,3405           07052                           TC       DMP                                   
016116,002153: 42,3406           03444                           ADRES    WHOLECON                              
016117,002154: 42,3407           03453                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
016118,002155: 42,3410           43451                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
016119,002156: 42,3411           03470                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
016120,002157: 42,3412           56155                           XCH      MPAC       +1                         
016121,002158: 42,3413           00006                           EXTEND                                         
016122,002159: 42,3414           73450                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
016123,002160: 42,3415           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
016124,002161: 42,3416           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN
016125,002162: 42,3417           13421                           BZF      +2                                    
016126,002163: 42,3420           04173                           TC       ALMCYCLE                              
016127,002164: 42,3421           31210                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
016128,002165: 42,3422           23213                           LXCH     ZREGLP                                
016129,002166: 42,3423           52155                           DXCH     MPAC                                  
016130,002167: 42,3424           07052                           TC       DMP                                   
016131,002168: 42,3425           03444                           ADRES    WHOLECON                              
016132,002169: 42,3426           03453                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
016133,002170: 42,3427           43452                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
016134,002171: 42,3430           03470                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC

Page 363

016136,002173: 42,3431           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
016137,002174: 42,3432           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
016138,002175: 42,3433           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
016139,002176: 42,3434           13436                           BZF      +2                                    
016140,002177: 42,3435           04173                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
016141,002178: 42,3436           07224                           TC       DPAGREE                               
016142,002179: 42,3437           52155                           DXCH     MPAC                                  
016143,002180: 42,3440           50145                           INDEX    NOUNADD                               
016144,002181: 42,3441           52001                           DXCH     0                                     
016145,002182: 42,3442           04655                           TC       POSTJUMP                              
016146,002183: 42,3443           63001                           CADR     LOADLV                                
016147,002184: 
016148,002185: 42,3444           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
016149,002186: 42,3445           03240                           OCT      03240                                 
016150,002187: 42,3446           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
016151,002188: 42,3447           37100                 +1        OCT      37100                                 
016152,002189: 42,3450           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
016153,002190: 42,3451           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
016154,002191: 42,3452           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
016155,002192: 
016156,002193: 42,3453           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
016157,002194: 42,3454           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
016158,002195: 42,3455           54156                           TS       MPAC       +2                         
016159,002196: 42,3456           34772                           CAF      ZERO                                  
016160,002197: 42,3457           60155                           AD       MPAC       +1                         
016161,002198: 42,3460           54155                           TS       MPAC       +1                         
016162,002199: 42,3461           34772                           CAF      ZERO                                  
016163,002200: 42,3462           60154                           AD       MPAC                                  #  CANT OVFLOW
016164,002201: 42,3463           56154                           XCH      MPAC                                  
016165,002202: 42,3464           30154        MPACTST            CA       MPAC                                  #  ALARM IF MPAC NON ZERO
016166,002203: 42,3465           00006                           EXTEND                                         
016167,002204: 42,3466           16711                           BZF      TCQ                                   
016168,002205: 42,3467           04173                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
016169,002206: 42,3470           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
016170,002207: 42,3471           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1
016171,002208: 42,3472           64770                           AD       ONE                                   
016172,002209: 42,3473           13475                           TCF      +2                                    
016173,002210: 42,3474           64770                           AD       ONE                                   
016174,002211: 42,3475           60156                           AD       MPAC       +2                         
016175,002212: 42,3476           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
016176,002213: 42,3477           66711                           BZMF     TCQ                                   
016177,002214: 42,3500           04173                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
016178,002215: 42,3501           44125        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
016179,002216: 42,3502           55244                           TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD
016180,002217: 42,3503           04173                           TC       ALMCYCLE                              #   VERB. ALARM AND RECYCLE.
016181,002218: 

Page 364

016183,002220: 
016184,002221:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
016185,002222:                                                                                                  #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
016186,002223:                                                                                                  #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
016187,002224:                                                                                                  #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
016188,002225:                                                                                                  #  HE HAS INITIATED THROUGH THE KEYBOARD).
016189,002226: 
016190,002227:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
016191,002228:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
016192,002229:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
016193,002230:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
016194,002231:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
016195,002232:                                                                                                  #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
016196,002233:                                                                                                  #  MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
016197,002234: 
016198,002235:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
016199,002236:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
016200,002237:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
016201,002238: 
016202,002239:                                                                                                  #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
016203,002240:                                                                                                  #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
016204,002241: 
016205,002242:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
016206,002243:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
016207,002244: 
016208,002245:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
016209,002246: 
016210,002247: 41,2000                                           SETLOC   PINBALL2                              
016211,002248: 41,2000                                           BANK                                           
016212,002249: 41,3224                                           COUNT*   $$/PIN                                
016213,002250: 41,3224           44076        MONITOR            CS       BIT15/14                              
016214,002251: 41,3225           71222                           MASK     NOUNCADR                              
016215,002252: 41,3226           54155        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
016216,002253: 41,3227           40136                           CS       ENTEXIT                               
016217,002254: 41,3230           64170                           AD       ENDINST                               
016218,002255: 41,3231           10000                           CCS      A                                     
016219,002256: 41,3232           03241                           TC       MONIT2                                
016220,002257: 41,3233           75377        MONREF             OCT      75377                                 #  -DEC10,STARTING IN BIT8. CANNOT GET HERE
016221,002258: 41,3234           03241                           TC       MONIT2                                
016222,002259: 41,3235           34753                           CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
016223,002260: 41,3236           26155                           ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
016224,002261: 41,3237           34772                           CAF      ZERO                                  
016225,002262: 41,3240           55225                           TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
016226,002263: 41,3241           36043        MONIT2             CAF      LOW7                                  
016227,002264: 41,3242           71204                           MASK     VERBREG                               
016228,002265: 41,3243           04333                           TC       LEFT5                                 
016229,002266: 41,3244           54022                           TS       CYL                                   
016230,002267: 41,3245           40022                           CS       CYL                                   
016231,002268: 41,3246           56022                           XCH      CYL                                   
016232,002269: 41,3247           61205                           AD       NOUNREG                               
016233,002270: 41,3250           54154                           TS       MPAC                                  #  TEMP STORAGE
016234,002271: 41,3251           34772                           CAF      ZERO                                  

Page 365

016236,002273: 41,3252           55215                           TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
016237,002274: 41,3253           11245                           CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
016238,002275: 41,3254           03256                           TC       +2                                    #  ARE BOTH EMPTY. (LITE COMES ON IF NEW
016239,002276: 41,3255           04455                           TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
016240,002277: 41,3256           00004                           INHINT                                         
016241,002278: 41,3257           11223                           CCS      MONSAVE                               
016242,002279: 41,3260           03263                           TC       +3                                    #  IF MONSAVE WAS +, NO REQUEST
016243,002280: 41,3261           05222                           TC       TWIDBIT1                              #  IF MONSAVE WAS 0, REQUEST MONREQ
016244,002281: 41,3262           03267                           ADRES    MONREQ                                
016245,002282: 41,3263           52155                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
016246,002283: 41,3264           53224                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
016247,002284: 41,3265           00003                           RELINT                                         #  SET UP EXTERNAL MONITOR BIT
016248,002285: 41,3266           00136                           TC       ENTRET                                
016249,002286: 
016250,002287: 41,3267           04366        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
016251,002288: 41,3270           03307                           TC       B15MONCK                              #  CHECK FOR KILLER BIT
016252,002289: 41,3271           03303                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
016253,002290: 41,3272           35016                           CAF      MONDEL                                
016254,002291: 41,3273           05233        TCWAIT             TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
016255,002292: 41,3274     1202                                  EBANK=   DSPCOUNT                              
016256,002293: 41,3274           03267 62102                     2CADR    MONREQ                                
016257,002294: 
016258,002295: 41,3276           34346                           CAF      CHRPRIO                               
016259,002296: 41,3277           05121        TCNOVAC            TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
016260,002297: 41,3300     1202                                  EBANK=   DSPCOUNT                              
016261,002298: 41,3300           03314 62102                     2CADR    MONDO                                 
016262,002299: 
016263,002300: 41,3302           05314                           TC       TASKOVER                              
016264,002301: 
016265,002302: 41,3303           34772        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
016266,002303: 41,3304           55223                           TS       MONSAVE                               
016267,002304: 41,3305           55224                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
016268,002305: 41,3306           05314                           TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
016269,002306: 41,3307     5016               MONDEL             EQUALS   1SEC                                  
016270,002307: 41,3307           11224        B15MONCK           CCS      MONSAVE1                              #  CHECK FOR KILLER BIT=1
016271,002308: 41,3310           13311                           TCF      +1                                    #  =0
016272,002309: 41,3311           24002                           INCR     Q                                     #  =0
016273,002310: 41,3312           00002                           TC       Q                                     #  =1
016274,002311: 41,3313           00002                           TC       Q                                     #  =1
016275,002312: 41,3314           03307        MONDO              TC       B15MONCK                              #  CHECK FOR KILLER BIT
016276,002313: 41,3315           05205                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
016277,002314: 41,3316           11215                           CCS      DSPLOCK                               
016278,002315: 41,3317           03337                           TC       MONBUSY                               #  NVSUB IS BUSY
016279,002316: 41,3320           36043                           CAF      LOW7                                  
016280,002317: 41,3321           71223                           MASK     MONSAVE                               
016281,002318: 41,3322           02315                           TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
016282,002319: 41,3323           34171                           CAF      MID7                                  
016283,002320: 41,3324           71223                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
016284,002321: 41,3325           63233                           AD       MONREF                                #  -DEC10, STARTING IN BIT8

Page 366

016286,002323: 41,3326           54023                           TS       EDOP                                  #  RIGHT 7
016287,002324: 41,3327           30023                           CA       EDOP                                  
016288,002325: 41,3330           55204                           TS       VERBREG                               
016289,002326: 41,3331           32433                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
016290,002327: 41,3332           54136                           TS       ENTRET                                
016291,002328: 41,3333           44076                           CS       BIT15/14                              
016292,002329: 41,3334           71224                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
016293,002330: 41,3335           54156                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
016294,002331: 41,3336           02050        ENDMONDO           TC       TESTNN                                #  EBANK.
016295,002332: 
016296,002333: 41,3337     4076               BIT15/14           EQUALS   RELTAB11                              #  OCT 60000
016297,002334:    4000                                           SETLOC   FFTAG8                                
016298,002335:    4000                                           BANK                                           
016299,002336: 
016300,002337:    4151                                           COUNT*   $$/PIN                                
016301,002338:    4151           34171        PASTEVB            CAF      MID7                                  
016302,002339:    4152           71225                           MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
016303,002340:    4153           00006                           EXTEND                                         
016304,002341:    4154           14156                           BZF      +2                                    
016305,002342:    4155           04157                           TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
016306,002343:    4156           31223                           CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
016307,002344:    4157           54023        PASTEOPT           TS       EDOP                                  #  RIGHT 7
016308,002345:    4160           30023                           CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
016309,002346:    4161           04636                           TC       BANKCALL                              #   VERBREG AND DISPLAY IT.
016310,002347:    4162           62336                           CADR     UPDATVB    -1                         
016311,002348:    4163           34772                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
016312,002349:    4164           55216                           TS       REQRET                                #   BE EXECUTED BY OPERATOR.
016313,002350:    4165           31225                           CA       MONSAVE2                              
016314,002351:    4166           04264                           TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
016315,002352:    4167           04170                           TC       +1                                    
016316,002353:    4170           05205        ENDPASTE           TC       ENDOFJOB                              
016317,002354: 
016318,002355:    4171     4170               ENDINST            EQUALS   ENDPASTE                              
016319,002356: 
016320,002357:    4171           37600        MID7               OCT      37600                                 
016321,002358: 
016322,002359:    4172           00034        OCT34              OCT      34                                    
016323,002360: 41,2000                                           SETLOC   PINBALL2                              
016324,002361: 41,2000                                           BANK                                           
016325,002362: 41,3337                                           COUNT*   $$/PIN                                
016326,002363: 41,3337           04356        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
016327,002364: 41,3340           05205                           TC       ENDOFJOB                              
016328,002365: 
016329,002366:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
016330,002367:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
016331,002368:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
016332,002369: 
016333,002370:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.

Page 367

016335,002372: 
016336,002373:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
016337,002374:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
016338,002375:                                                                                                  #        V23N26 SHOULD BE USED.
016339,002376: 
016340,002377:                                                                                                  #  SUMMARY
016341,002378:                                                                                                  #  FOR BANKS L/E 27,                             V27N01E(FCADR)E
016342,002379:                                                                                                  #  FOR BANKS G/E 30,     V23N26E(SUPERBITS)E     V27N01E(FCADR)E
016343,002380: 
016344,002381: 41,3341           34321        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
016345,002382: 41,3342           55202                           TS       DSPCOUNT                              
016346,002383: 41,3343           31252                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
016347,002384: 41,3344           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
016348,002385: 41,3345           31222                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
016349,002386: 41,3346           04671                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
016350,002387: 41,3347           03351                           TC       DSPOCTWD                              
016351,002388: 41,3350           05205        ENDSPF             TC       ENDOFJOB                              
016352,002389: 

Page 368

016354,002391:                                                                                                  #  WORD DISPLAY ROUTINES
016355,002392: 40,2000                                           SETLOC   PINBALL1                              
016356,002393: 40,2000                                           BANK                                           
016357,002394: 40,3055                                           COUNT*   $$/PIN                                
016358,002395: 40,3055           56002        DSPSIGN            XCH      Q                                     
016359,002396: 40,3056           54144                           TS       DSPWDRET                              
016360,002397: 40,3057           10154                           CCS      MPAC                                  
016361,002398: 40,3060           13070                           TCF      TCPLON                                
016362,002399: 40,3061           13070                           TCF      TCPLON                                
016363,002400: 40,3062           64770                           AD       ONE                                   
016364,002401: 40,3063           54154                           TS       MPAC                                  
016365,002402: 40,3064           02330                           TC       -ON                                   
016366,002403: 40,3065           40155                           CS       MPAC       +1                         
016367,002404: 40,3066           54155                           TS       MPAC       +1                         
016368,002405: 40,3067           00144                           TC       DSPWDRET                              
016369,002406: 40,3070           02310        TCPLON             TC       +ON                                   
016370,002407: 40,3071           00144                           TC       DSPWDRET                              
016371,002408: 
016372,002409:                                                                                                  #  DSPDECWD CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
016373,002410:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
016374,002411: 
016375,002412: 40,3072           56002        DSPDECWD           XCH      Q                                     
016376,002413: 40,3073           54115                           TS       WDRET                                 
016377,002414: 40,3074           03055                           TC       DSPSIGN                               
016378,002415: 40,3075           00006                           EXTEND                                         #  ROUND BY 5 EXP-6
016379,002416: 40,3076           32343                           DCA      DECROUND   -1                         
016380,002417: 40,3077           20155                           DAS      MPAC                                  
016381,002418: 40,3100           00006                           EXTEND                                         
016382,002419: 40,3101           13105                           BZF      +4                                    
016383,002420: 40,3102           00006                           EXTEND                                         
016384,002421: 40,3103           34750                           DCA      DPOSMAX                               
016385,002422: 40,3104           52155                           DXCH     MPAC                                  
016386,002423: 40,3105           34766                           CAF      FOUR                                  
016387,002424: 40,3106           54137        DSPDCWD1           TS       WDCNT                                 
016388,002425: 40,3107           34355                           CAF      BINCON                                
016389,002426: 40,3110           07256                           TC       SHORTMP                               
016390,002427: 40,3111           30154                           CA       MPAC                                  
016391,002428: 40,3112           04423                           TC       CODSTOR                               
016392,002429: 40,3113           34772                           CAF      ZERO                                  
016393,002430: 40,3114           56156                           XCH      MPAC       +2                         
016394,002431: 40,3115           56155                           XCH      MPAC       +1                         
016395,002432: 40,3116           54154                           TS       MPAC                                  
016396,002433: 40,3117           10143                           CCS      COUNT                                 
016397,002434: 40,3120           55202                           TS       DSPCOUNT                              
016398,002435: 40,3121           03161                           TC       DSPIN                                 
016399,002436: 40,3122           10137                           CCS      WDCNT                                 
016400,002437: 40,3123           03106                           TC       DSPDCWD1                              
016401,002438: 40,3124           04261                           TC       -VD1SET                               
016402,002439: 40,3125           00115                           TC       WDRET                                 
016403,002440: 

Page 369

016405,002442: 
016406,002443:                                                                                                  #  DSPDC2NR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
016407,002444:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
016408,002445: 
016409,002446: 40,3126           56002        DSPDC2NR           XCH      Q                                     
016410,002447: 40,3127           54115                           TS       WDRET                                 
016411,002448: 40,3130           03055                           TC       DSPSIGN                               
016412,002449: 40,3131           34770                 +3        CAF      ONE                                   
016413,002450: 40,3132           03106                           TC       DSPDCWD1                              
016414,002451: 
016415,002452:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
016416,002453:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
016417,002454: 
016418,002455: 40,3133           56002        DSP2DEC            XCH      Q                                     
016419,002456: 40,3134           54115                           TS       WDRET                                 
016420,002457: 40,3135           34772                           CAF      ZERO                                  
016421,002458: 40,3136           54124                           TS       CODE                                  
016422,002459: 40,3137           36214                           CAF      THREE                                 
016423,002460: 40,3140           03247                           TC       11DSPIN                               #  -R2 OFF
016424,002461: 40,3141           34766                           CAF      FOUR                                  
016425,002462: 40,3142           03247                           TC       11DSPIN                               #  +R2 OFF
016426,002463: 40,3143           03055                           TC       DSPSIGN                               
016427,002464: 40,3144           34322                           CAF      R2D1                                  
016428,002465: 40,3145           03106        END2DEC            TC       DSPDCWD1                              
016429,002466: 
016430,002467:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
016431,002468:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
016432,002469:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
016433,002470:                                                                                                  #  DISPLAY CONVERSION.
016434,002471: 
016435,002472: 40,3146           00006        DSPDECVN           EXTEND                                         
016436,002473: 40,3147           72244                           MP       VNDSPCON                              #  MULT BY .01
016437,002474: 40,3150           22154                           LXCH     MPAC                                  #  TAKE RESULTS FROM L. (MULT BY 2EXP14).
016438,002475: 40,3151           34772                           CAF      ZERO                                  
016439,002476: 40,3152           54155                           TS       MPAC       +1                         
016440,002477: 40,3153           56002                           XCH      Q                                     
016441,002478: 40,3154           54115                           TS       WDRET                                 
016442,002479: 40,3155           03131                           TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
016443,002480: 
016444,002481: 40,3156           03146        GOVNUPDT           TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE. REALLY PART
016445,002482: 40,3157           04655                           TC       POSTJUMP                              #  OF UPDATVB.
016446,002483: 40,3160           62346                           CADR     UPDAT1     +2                         
016447,002484: 
016448,002485: 41,2000                                           SETLOC   PINBALL2                              
016449,002486: 41,2000                                           BANK                                           
016450,002487: 41,3351                                           COUNT*   $$/PIN                                
016451,002488: 
016452,002489:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
016453,002490:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.

Page 370

016455,002492: 
016456,002493: 41,3351           54022        DSPOCTWD           TS       CYL                                   
016457,002494: 41,3352           56002                           XCH      Q                                     
016458,002495: 41,3353           54115                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
016459,002496: 41,3354           34753                           CAF      BIT14                                 #  TO BLANK SIGNS
016460,002497: 41,3355           27202                           ADS      DSPCOUNT                              
016461,002498: 41,3356           34766                           CAF      FOUR                                  
016462,002499: 41,3357           54137        WDAGAIN            TS       WDCNT                                 
016463,002500: 41,3360           40022                           CS       CYL                                   
016464,002501: 41,3361           40022                           CS       CYL                                   
016465,002502: 41,3362           40022                           CS       CYL                                   
016466,002503: 41,3363           40000                           CS       A                                     
016467,002504: 41,3364           74774                           MASK     DSPMSK                                
016468,002505: 41,3365           04423                           TC       CODSTOR                               
016469,002506: 41,3366           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
016470,002507: 41,3367           55202                           TS       DSPCOUNT                              
016471,002508: 41,3370           04655                           TC       POSTJUMP                              
016472,002509: 41,3371           61255                           CADR     DSPOCTIN                              
016473,002510: 41,3372           10137        OCTBACK            CCS      WDCNT                                 
016474,002511: 41,3373           03357                           TC       WDAGAIN                               #  +
016475,002512: 41,3374           04261        DSPLV              TC       -VD1SET                               
016476,002513: 41,3375           00115                           TC       WDRET                                 
016477,002514: 
016478,002515: 41,3376     4774               DSPMSK             =        SEVEN                                 
016479,002516: 
016480,002517:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
016481,002518:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
016482,002519:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
016483,002520:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
016484,002521: 
016485,002522: 40,2000                                           SETLOC   PINBALL1                              
016486,002523: 40,2000                                           BANK                                           
016487,002524: 40,3161                                           COUNT*   $$/PIN                                
016488,002525: 40,3161           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE
016489,002526: 40,3162           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
016490,002527: 40,3163           34342                           CAF      LOW5                                  
016491,002528: 40,3164           70143                           MASK     COUNT                                 
016492,002529: 40,3165           54021                           TS       SR                                    
016493,002530: 40,3166           56021                           XCH      SR                                    
016494,002531: 40,3167           54141                           TS       DSREL                                 
016495,002532: 40,3170           34770                           CAF      BIT1                                  
016496,002533: 40,3171           70143                           MASK     COUNT                                 
016497,002534: 40,3172           10000                           CCS      A                                     
016498,002535: 40,3173           03175                           TC       +2                                    #  LEFT IF COUNT IS ODD
016499,002536: 40,3174           03211                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
016500,002537: 40,3175           56124                           XCH      CODE                                  
016501,002538: 40,3176           60000                           DOUBLE                                         
016502,002539: 40,3177           60000                           DOUBLE                                         
016503,002540: 40,3200           60000                           DOUBLE                                         
016504,002541: 40,3201           60000                           DOUBLE                                         

Page 371

016506,002543: 40,3202           60000                           DOUBLE                                         
016507,002544: 40,3203           54124                           TS       CODE                                  
016508,002545: 40,3204           34753                           CAF      BIT14                                 
016509,002546: 40,3205           70143                           MASK     COUNT                                 
016510,002547: 40,3206           10000                           CCS      A                                     
016511,002548: 40,3207           34767                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
016512,002549: 40,3210           64770                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
016513,002550: 40,3211           54143                 -1        TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
016514,002551:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
016515,002552:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
016516,002553: 40,3212           00004        DSPIN1             INHINT                                         
016517,002554: 40,3213           50141                           INDEX    DSREL                                 
016518,002555: 40,3214           11226                           CCS      DSPTAB                                
016519,002556: 40,3215           03217                           TC       +2                                    #  IF +
016520,002557: 40,3216           00104        ERCON              OCT      104                                   #  CHAN 11, BITS 3,7. CANNOT GET HERE
016521,002558: 40,3217           64770                           AD       ONE                                   #  IF -
016522,002559: 40,3220           54142                           TS       DSMAG                                 
016523,002560: 40,3221           50143                           INDEX    COUNT                                 
016524,002561: 40,3222           73243                           MASK     DSMSK                                 
016525,002562: 40,3223           00006                           EXTEND                                         
016526,002563: 40,3224           60124                           SU       CODE                                  
016527,002564: 40,3225           00006                           EXTEND                                         
016528,002565: 40,3226           13241                           BZF      DSLV                                  #  SAME
016529,002566: 40,3227           50143        DFRNT              INDEX    COUNT                                 
016530,002567: 40,3230           43243                           CS       DSMSK                                 #  MASK WITH 77740,76037,75777, OR 74037
016531,002568: 40,3231           70142                           MASK     DSMAG                                 
016532,002569: 40,3232           60124                           AD       CODE                                  
016533,002570: 40,3233           40000                           CS       A                                     
016534,002571: 40,3234           50141                           INDEX    DSREL                                 
016535,002572: 40,3235           57226                           XCH      DSPTAB                                
016536,002573: 40,3236           00006                           EXTEND                                         
016537,002574: 40,3237           63241                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
016538,002575: 40,3240           25221                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
016539,002576: 40,3241           00003        DSLV               RELINT                                         
016540,002577: 40,3242           00114                           TC       DSEXIT                                
016541,002578: 
016542,002579: 40,3243           00037        DSMSK              OCT      37                                    
016543,002580: 40,3244           01740                           OCT      1740                                  
016544,002581: 40,3245           02000                           OCT      2000                                  
016545,002582: 40,3246           03740                           OCT      3740                                  
016546,002583: 
016547,002584:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
016548,002585:                                                                                                  #  BIT11 OF CODE.
016549,002586: 
016550,002587: 40,3247           54141        11DSPIN            TS       DSREL                                 
016551,002588: 40,3250           34767                           CAF      TWO                                   
016552,002589: 40,3251           54143                           TS       COUNT                                 
016553,002590: 40,3252           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
016554,002591: 40,3253           54114                           TS       DSEXIT                                

Page 372

016556,002593: 40,3254           03212                           TC       DSPIN1                                
016557,002594: 
016558,002595: 40,3255           03161        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
016559,002596: 40,3256           04655                           TC       POSTJUMP                              
016560,002597: 40,3257           63372        ENDSPOCT           CADR     OCTBACK                               
016561,002598: 
016562,002599:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
016563,002600:                                                                                                  #  ABORT WITH 21501
016564,002601:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
016565,002602:                                                                                                  #  DO TC ENTRET.
016566,002603: 
016567,002604: 40,3260           04261        PREDSPAL           TC       -VD1SET                               
016568,002605: 40,3261           43431        DSPALARM           CS       NVSBENDL                              
016569,002606: 40,3262           60136                           AD       ENTEXIT                               
016570,002607: 40,3263           00006                           EXTEND                                         
016571,002608: 40,3264           13277                           BZF      CHARALRM   +2                         
016572,002609: 40,3265           42721                           CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
016573,002610: 40,3266           60136                           AD       ENTEXIT                               
016574,002611: 40,3267           00006                           EXTEND                                         
016575,002612: 40,3270           13272                           BZF      +2                                    
016576,002613: 40,3271           03275                           TC       CHARALRM                              
016577,002614: 40,3272           04235                           TC       KILMONON                              
016578,002615: 40,3273           04362                           TC       FALTON                                
016579,002616: 40,3274           04151                           TC       PASTEVB                               #  PUT MONITOR VERB BACK IN VERBREG
016580,002617: 40,3275           04362        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
016581,002618: 40,3276           05205                           TC       ENDOFJOB                              
016582,002619: 40,3277           05726                 +2        TC       POODOO                                
016583,002620: 40,3300           21501                           OCT      21501                                 #  KEYBOARD + ALARM DISPLAY DURING NVSUB.
016584,002621: 
016585,002622:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
016586,002623:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
016587,002624:                                                                                                  #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
016588,002625:                                                                                                  #  MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
016589,002626:                                                                                                  #  FOR MM CODE.
016590,002627: 
016591,002628:    4000                                           SETLOC   FFTAG8                                
016592,002629:    4000                                           BANK                                           
016593,002630:    4173                                           COUNT*   $$/PIN                                
016594,002631:    4173           04362        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
016595,002632:    4174           41244                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
016596,002633:    4175           55216                           TS       REQRET                                #  SET FOR ENTPAS0
016597,002634:    4176           04636                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
016598,002635:    4177           62336                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
016599,002636:    4200           04655        ENTERJMP           TC       POSTJUMP                              
016600,002637:    4201           62000        ENDALM             CADR     ENTER                                 
016601,002638: 
016602,002639:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER.  THEN IT USES MODE DISP.

Page 373

016604,002641:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
016605,002642:                                                                                                  #  MM LIGHTS.
016606,002643:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
016607,002644:                                                                                                  #  IF NOT, IT RECYCLES.
016608,002645: 
016609,002646: 41,2000                                           SETLOC   PINBALL2                              
016610,002647: 41,2000                                           BANK                                           
016611,002648: 41,3376                                           COUNT*   $$/PIN                                
016612,002649: 41,3376           03417        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
016613,002650:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
016614,002651:                                                                                                  #  MMADREF AT ENTPASHI.
016615,002652: 41,3377           34764                 +1        CAF      BIT5                                  #  OCT20 = ND2.
016616,002653: 41,3400           61202                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
016617,002654: 41,3401           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
016618,002655: 41,3402           13404                           BZF      +2                                    
016619,002656: 41,3403           04173                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
016620,002657: 41,3404           34772                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
016621,002658: 41,3405           57205                           XCH      NOUNREG                               
016622,002659: 41,3406           54154                           TS       MPAC                                  
016623,002660: 41,3407           34352                           CAF      ND1                                   
016624,002661: 41,3410           55202                           TS       DSPCOUNT                              
016625,002662: 41,3411           04636                           TC       BANKCALL                              
016626,002663: 41,3412           60473                           CADR     2BLANK                                
016627,002664: 41,3413           04261                           TC       -VD1SET                               
016628,002665: 41,3414           30154                           CA       MPAC                                  
016629,002666: 41,3415           04655                           TC       POSTJUMP                              
016630,002667: 41,3416           10007                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
016631,002668: 
016632,002669: 41,3417  04,2007               MODROUTB           =        V37                                   
016633,002670: 41,3417           40002        REQMM              CS       Q                                     
016634,002671: 41,3420           55216                           TS       REQRET                                
016635,002672: 41,3421           34352                           CAF      ND1                                   
016636,002673: 41,3422           55202                           TS       DSPCOUNT                              
016637,002674: 41,3423           34772                           CAF      ZERO                                  
016638,002675: 41,3424           55205                           TS       NOUNREG                               
016639,002676: 41,3425           04636                           TC       BANKCALL                              
016640,002677: 41,3426           60473                           CADR     2BLANK                                
016641,002678: 41,3427           04360                           TC       FLASHON                               
016642,002679: 41,3430           34770                           CAF      ONE                                   
016643,002680: 41,3431           55203                           TS       DECBRNCH                              #  SET FOR DEC
016644,002681: 41,3432           00136                           TC       ENTEXIT                               
016645,002682: 
016646,002683:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
016647,002684:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
016648,002685:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
016649,002686:                                                                                                  #        COMPONENT 1     PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
016650,002687:                                                                                                  #        COMPONENT 2     JOB ADRES (12 BIT)
016651,002688:                                                                                                  #        COMPONENT 3     BBCON
016652,002689: 

Page 374

016654,002691: 
016655,002692: 41,3433           34770        VBRQEXEC           CAF      BIT1                                  
016656,002693: 41,3434           71016                           MASK     N26/PRI                               
016657,002694: 41,3435           10000                           CCS      A                                     
016658,002695: 41,3436           03460                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
016659,002696: 41,3437           33277                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
016660,002697: 41,3440           54154        REQEX1             TS       MPAC                                  #  TC NOVAC OR TC FINDVAC INTO MPAC
016661,002698: 41,3441           37660                           CA       PRIO37                                
016662,002699: 41,3442           71016                           MASK     N26/PRI                               
016663,002700: 41,3443           54160                 -1        TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
016664,002701: 41,3444           04432        REQUESTC           TC       RELDSP                                
016665,002702: 41,3445           31016                           CA       N26/PRI                               
016666,002703: 41,3446           00006                           EXTEND                                         
016667,002704: 41,3447           12350                           BZF      GODSPALM                              #  OP ERROR AND EOJ IF R1 OF N26 = 0
016668,002705: 41,3450           34170                           CA       ENDINST                               
016669,002706: 41,3451           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
016670,002707: 41,3452           00006                           EXTEND                                         
016671,002708: 41,3453           31020                           DCA      N26/2CAD                              #  JOB ADRES INTO MPAC+1
016672,002709: 41,3454           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
016673,002710: 41,3455           30160                           CA       MPAC       +4                         #  PRIO IN A
016674,002711: 41,3456           00004                           INHINT                                         
016675,002712: 41,3457           00154                           TC       MPAC                                  
016676,002713: 
016677,002714: 41,3460           34345        SETVAC             CAF      TCFINDVC                              
016678,002715: 41,3461           03440                           TC       REQEX1                                
016679,002716: 
016680,002717:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
016681,002718:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
016682,002719:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
016683,002720:                                                                                                  #        COMPONENT 1     DELAY (LOW BITS)
016684,002721:                                                                                                  #        COMPONENT 2     TASK ADRES (12 BIT)
016685,002722:                                                                                                  #        COMPONENT 3     BBCON
016686,002723: 
016687,002724: 41,3462           33273        VBRQWAIT           CAF      TCWAIT                                
016688,002725: 41,3463           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
016689,002726: 41,3464           31016                           CA       N26/PRI                               #  TIME DELAY
016690,002727: 41,3465           03443        ENDRQWT            TC       REQUESTC   -1                         
016691,002728: 
016692,002729:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
016693,002730:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
016694,002731:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
016695,002732: 
016696,002733: 40,2000                                           SETLOC   PINBALL1                              
016697,002734: 40,2000                                           BANK                                           
016698,002735: 40,3301                                           COUNT*   $$/PIN                                
016699,002736: 40,3301           44770        VBPROC             CS       ONE                                   
016700,002737: 40,3302           55217                 +1        TS       LOADSTAT                              
016701,002738: 40,3303           04235                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
016702,002739: 40,3304           04432                           TC       RELDSP                                
016703,002740: 40,3305           04417                           TC       FLASHOFF                              

Page 375

016705,002742: 40,3306           03412                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
016706,002743: 
016707,002744: 40,3307           44767        VBTERM             CS       TWO                                   
016708,002745: 40,3310           03302                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
016709,002746: 
016710,002747:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
016711,002748:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
016712,002749: 
016713,002750: 40,3311           41204        PROCKEY            CS       VERBREG                               #  DONT ALLOW PROCEED DURING LOAD.
016714,002751: 40,3312           64354                           AD       VBSP2LD                               
016715,002752: 40,3313           00006                           EXTEND                                         
016716,002753: 40,3314           26000                           DIM      A                                     
016717,002754: 40,3315           00006                           EXTEND                                         
016718,002755: 40,3316           13275                           BZF      CHARALRM                              
016719,002756: 40,3317           34772        PROCKEY1           CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
016720,002757: 40,3320           55216                           TS       REQRET                                
016721,002758: 40,3321           04261                           TC       -VD1SET                               
016722,002759: 40,3322           03301                           TC       VBPROC                                
016723,002760: 
016724,002761:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
016725,002762:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
016726,002763:                                                                                                  #  DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
016727,002764:                                                                                                  #  OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
016728,002765: 
016729,002766: 40,3323           44772        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
016730,002767: 40,3324           03302                           TC       VBPROC     +1                         
016731,002768: 
016732,002769:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
016733,002770:                                                                                                  #  END OF LOAD.
016734,002771: 

Page 376

016736,002773: 
016737,002774:                                                                                                  #  KEY RELEASE ROUTINE
016738,002775: 
016739,002776:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
016740,002777: 
016741,002778:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
016742,002779:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
016743,002780:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
016744,002781:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
016745,002782: 
016746,002783:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
016747,002784:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
016748,002785:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
016749,002786: 
016750,002787:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
016751,002788:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
016752,002789:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
016753,002790:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
016754,002791:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
016755,002792:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
016756,002793:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
016757,002794:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
016758,002795:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
016759,002796:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
016760,002797:                                                                                                  #  SUBROUTINES.
016761,002798: 
016762,002799: 40,3325           44766        VBRELDSP           CS       BIT3                                  
016763,002800: 40,3326           00006                           EXTEND                                         
016764,002801: 40,3327           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
016765,002802: 40,3330           10115                           CCS      21/22REG                              #  OLD DSPLOCK
016766,002803: 40,3331           34753                           CAF      BIT14                                 
016767,002804: 40,3332           71224                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
016768,002805: 40,3333           10000                           CCS      A                                     
016769,002806: 40,3334           03343                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
016770,002807: 40,3335           04432        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
016771,002808: 40,3336           11245                           CCS      CADRSTOR                              #   RELEASE DISPLAY SYSTEM AND
016772,002809: 40,3337           03341                           TC       +2                                    #   DO RE-ESTABLISH IF CADRSTOR IS FULL.
016773,002810: 40,3340           05205                           TC       ENDOFJOB                              
016774,002811: 40,3341           04655                           TC       POSTJUMP                              
016775,002812: 40,3342           21275                           CADR     PINBRNCH                              
016776,002813: 40,3343           34772        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
016777,002814: 40,3344           55215                           TS       DSPLOCK                               #   JUST UNSUSPEND IT BY CLEARING DSPLOCK.
016778,002815: 40,3345           11245                           CCS      CADRSTOR                              #   TURN KEY RELEASE LIGHT OFF IF BOTH
016779,002816: 40,3346           05205                           TC       ENDOFJOB                              #   CADRSTOR AND DSPLIST ARE EMPTY.
016780,002817: 40,3347           04455                           TC       RELDSP1                               
016781,002818: 40,3350           05205                           TC       ENDOFJOB                              
016782,002819: 

Page 377

016784,002821: 
016785,002822:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
016786,002823:                                                                                                  #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
016787,002824:                                                                                                  #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
016788,002825:                                                                                                  #  PLACE 0VVVVVVVNNNNNNN INTO A.
016789,002826:                                                                                                  #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
016790,002827: 
016791,002828:                                                                                                  #  IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
016792,002829:                                                                                                  #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
016793,002830:                                                                                                  #  -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
016794,002831: 
016795,002832:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
016796,002833:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
016797,002834: 
016798,002835:                                                                                                  #  NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
016799,002836:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
016800,002837:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
016801,002838:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY (RETURN WITH NO
016802,002839:                                                                                                  #  FURTHER ACTION).
016803,002840: 
016804,002841:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
016805,002842:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
016806,002843:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
016807,002844:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
016808,002845: 
016809,002846:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
016810,002847:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET
016811,002848:                                                                                                  #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
016812,002849:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
016813,002850:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
016814,002851:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
016815,002852:                                                                                                  #  MONITOR SET UP.
016816,002853: 
016817,002854:                                                                                                  #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
016818,002855:                                                                                                  #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
016819,002856: 
016820,002857:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
016821,002858:                                                                                                  #  MONITOR.
016822,002859: 
016823,002860:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
016824,002861:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
016825,002862: 
016826,002863:                                                                                                  #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
016827,002864:                                                                                                  #  (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
016828,002865:                                                                                                  #  ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
016829,002866:                                                                                                  #  :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
016830,002867:                                                                                                  #  NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
016831,002868:                                                                                                  #  LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
016832,002869:                                                                                                  #  LIGHTS.
016833,002870: 
016834,002871:                                                                                                  #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL

Page 378

016836,002873:                                                                                                  #  PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
016837,002874:                                                                                                  #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
016838,002875:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
016839,002876:                                                                                                  #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
016840,002877:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
016841,002878:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
016842,002879:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
016843,002880:                                                                                                  #  BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
016844,002881:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
016845,002882: 
016846,002883:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
016847,002884:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
016848,002885: 
016849,002886:    4000                                           SETLOC   FFTAG8                                
016850,002887:    4000                                           BANK                                           
016851,002888:    4202                                           COUNT*   $$/PIN                                
016852,002889:    4202           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
016853,002890:    4203           54123        NVMONOPT           TS       NVTEMP                                
016854,002891:    4204           23242                           LXCH     NVQTEM                                
016855,002892:    4205           22002                           LXCH     Q                                     
016856,002893:    4206           04226                           TC       EMBDSPCK                              #  CHECK FOR DSP SYST AVAILABLE
016857,002894:    4207           23242                           LXCH     NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
016858,002895:    4210           23225                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
016859,002896:    4211           04235                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
016860,002897:    4212           34223        NVSUBCOM           CAF      NVSBBBNK                              
016861,002898: 
016862,002899:    4213           56006                           XCH      BBANK                                 
016863,002900:    4214           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
016864,002901:    4215           04007                           ROR      SUPERBNK                              
016865,002902:    4216           55243                           TS       NVBNKTEM                              
016866,002903:    4217           34223                           CAF      PINSUPBT                              
016867,002904:    4220           00006                           EXTEND                                         
016868,002905:    4221           01007                           WRITE    SUPERBNK                              
016869,002906:    4222           03513                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
016870,002907:    4223     1202                                  EBANK=   DSPCOUNT                              
016871,002908:    4223           62102        NVSBBBNK           BBCON    NVSUB1                                
016872,002909: 
016873,002910:    4224     4223               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
016874,002911: 
016875,002912:    4224           53243        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
016876,002913:    4225           05214                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
016877,002914: 
016878,002915:    4226           34753        EMBDSPCK           CAF      BIT14                                 
016879,002916:    4227           71224                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016880,002917:    4230           61215                           AD       DSPLOCK                               
016881,002918:    4231           10000                           CCS      A                                     
016882,002919:    4232           00001                           TC       L                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
016883,002920:    4233           24001                           INCR     L                                     #  DSP SYST OK. SET RET TO 2+ CALLING LOC
016884,002921:    4234           00002                           TC       Q                                     
016885,002922: 41,2000                                           SETLOC   PINBALL2                              

Page 379

016887,002924: 
016888,002925: 41,2000                                           COUNT*   $$/PIN                                
016889,002926: 41,2000                                           BANK                                           
016890,002927: 
016891,002928:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
016892,002929:                                                                                                  #  -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
016893,002930: 
016894,002931: 41,3466           64774        BLANKDSP           AD       SEVEN                                 #  7,8,9,OR 10 (A HAD 0,1,2,OR 3)
016895,002932: 41,3467           00004                           INHINT                                         
016896,002933: 41,3470           54124                 +2        TS       CODE                                  #  BLANK SPECIFIED DSPTABS
016897,002934: 41,3471           44755                           CS       BIT12                                 
016898,002935: 41,3472           50124                           INDEX    CODE                                  
016899,002936: 41,3473           57226                           XCH      DSPTAB                                
016900,002937: 41,3474           10000                           CCS      A                                     
016901,002938: 41,3475           25221                           INCR     NOUT                                  
016902,002939: 41,3476           03477                           TC       +1                                    
016903,002940: 41,3477           10124                           CCS      CODE                                  
016904,002941: 41,3500           03470                           TC       BLANKDSP   +2                         
016905,002942: 41,3501           00003                           RELINT                                         
016906,002943: 41,3502           50123                           INDEX    NVTEMP                                
016907,002944: 41,3503           03510                           TC       +5                                    
016908,002945: 41,3504           03505                           TC       +1                                    #  NVTEMP HAS -4 (NEVER TOUCH MODREG)
016909,002946: 41,3505           55204                           TS       VERBREG                               #             -3
016910,002947: 41,3506           55205                           TS       NOUNREG                               #             -2
016911,002948: 41,3507           55220                           TS       CLPASS                                #             -1
016912,002949: 41,3510           04261                           TC       -VD1SET                               
016913,002950: 41,3511           04417                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
016914,002951: 41,3512           03534                           TC       ENTSET     -2                         #  ZEROS REQRET
016915,002952: 
016916,002953: 41,3513           33536        NVSUB1             CAF      ENTSET                                #  IN BANK
016917,002954: 41,3514           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
016918,002955: 41,3515           10123                           CCS      NVTEMP                                #  WHAT NOW
016919,002956: 41,3516           03522                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
016920,002957: 41,3517           02350                           TC       GODSPALM                              
016921,002958: 41,3520           03466                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
016922,002959: 41,3521           02350                           TC       GODSPALM                              
016923,002960: 41,3522           36043                           CAF      LOW7                                  
016924,002961: 41,3523           70123                           MASK     NVTEMP                                
016925,002962: 41,3524           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
016926,002963: 41,3525           30123                           CA       NVTEMP                                #                 USES MPAC, +1, +2
016927,002964: 41,3526           54023                           TS       EDOP                                  #  RIGHT 7
016928,002965: 41,3527           30023                           CA       EDOP                                  
016929,002966: 41,3530           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
016930,002967:                                                                                                  #                 USES MPAC, +1, +2).
016931,002968: 41,3531           10157                           CCS      MPAC       +3                         #  TEST NOUN
016932,002969: 41,3532           03537                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
016933,002970: 41,3533           02335                           TC       UPDATVB    -2                         #  IF NOUN=+0, DISPLAY VERB, THEN RETURN
016934,002971: 41,3534           34772                 -2        CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
016935,002972: 41,3535           55216                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
016936,002973: 41,3536           04224        ENTSET             TC       NVSUBEND                              
016937,002974: 41,3537           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
016938,002975: 41,3540           13543                           TCF      +3                                    #  IF VERB NOT +0, GO ON

Page 380

016940,002977: 41,3541           02314                           TC       UPDATNN    -2                         #  IF VERB=+0, DISPLAY NOUN. THEN RETURN
016941,002978: 41,3542           04224                           TC       NVSUBEND                              
016942,002979: 41,3543           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
016943,002980: 41,3544           54161                           TS       MPAC       +5                         #        USES MPAC, +1, +2)
016944,002981: 41,3545           02335                           TC       UPDATVB    -2                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
016945,002982: 41,3546           02314                           TC       UPDATNN    -2                         #  BOTH AND GO TO ENTPAS0.
016946,002983: 41,3547           34772                           CAF      ZERO                                  
016947,002984: 41,3550           55217                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
016948,002985: 41,3551           55220                           TS       CLPASS                                
016949,002986: 41,3552           55216                           TS       REQRET                                #  SET REQRET FOR PASS 0.
016950,002987: 41,3553           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
016951,002988: 41,3554           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
016952,002989: 41,3555           02040        ENDNVSB1           TC       ENTPAS0                               
016953,002990: 
016954,002991:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
016955,002992:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS).
016956,002993: 
016957,002994:    4000                                           SETLOC   FFTAG8                                
016958,002995:    4000                                           BANK                                           
016959,002996:    4235                                           COUNT*   $$/PIN                                
016960,002997:                                                                                                  #  FORCE BIT 15 OF MONSAVE1 TO 1.
016961,002998:    4235           34752        KILMONON           CAF      BIT15                                 #     THIS IS THE KILL MONITOR BIT.
016962,002999:    4236           55224                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
016963,003000:                                                                                                  #   MONITOR BIT.
016964,003001:    4237           00002                           TC       Q                                     
016965,003002: 
016966,003003:                                                                                                  #  LOADSTAT      +0      INACTIVE (WAITING FOR DATA). SET BY NVSUB
016967,003004:                                                                                                  #                +1      PROCEED NO DATA SET BY V33 OR PROCEED
016968,003005:                                                                                                  #                -1      TERMINATE SET BY V34
016969,003006:                                                                                                  #                -0        DATA IN       SET BY END OF LOAD ROUTINE
016970,003007:                                                                                                  #                        OR RESEQUENCE   SET BY VERB 32
016971,003008: 
016972,003009:                                                                                                  #  L TC ENDIDLE (FIXED FIXED)
016973,003010:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
016974,003011:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
016975,003012:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016976,003013:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016977,003014:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
016978,003015:                                                                                                  #  L+1 FOR TERMINATE, PROCEED WITHOUT DATA, DATA IN, OR RESEQUENCE
016979,003016:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
016980,003017: 
016981,003018:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 21206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
016982,003019:                                                                                                  #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
016983,003020:                                                                                                  #  1) CADRSTOR NOT= +0.  THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
016984,003021:                                                                                                  #  EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)

Page 381

016986,003023:                                                                                                  #  2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
016987,003024:                                                                                                  #  NVSUBUSY.
016988,003025: 
016989,003026:                                                                                                  #  ENDIDLE MOVED TO DISPLAY INTERFACE ROUTINES
016990,003027: 
016991,003028:    4240           11245        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
016992,003029:    4241           04245                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
016993,003030:    4242           11246                           CCS      DSPLIST                               #  ABORT (CODE 01206) IF DSPLIST NOT = +0.
016994,003031:    4243           04245                           TC       DSPABORT                              
016995,003032:    4244           00002                           TC       Q                                     
016996,003033:    4245           05726        DSPABORT           TC       POODOO                                
016997,003034:    4246           21206                           OCT      21206                                 #  SECOND JOB TRYING TO GO TO SLEEP
016998,003035: 
016999,003036:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
017000,003037:                                                                                                  #  IT DOES ENDOFJOB.
017001,003038: 
017002,003039:    4247           34223        JAMTERM            CAF      PINSUPBT                              
017003,003040:    4250           00006                           EXTEND                                         
017004,003041:    4251           01007                           WRITE    SUPERBNK                              
017005,003042:    4252           34260                           CAF      34DEC                                 
017006,003043:    4253           55216                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
017007,003044:    4254           55204                           TS       VERBREG                               
017008,003045:    4255           04261                           TC       -VD1SET                               
017009,003046:    4256           04655                           TC       POSTJUMP                              
017010,003047:    4257           61307                           CADR     VBTERM                                
017011,003048: 
017012,003049:    4260           00042        34DEC              DEC      34         B-14                       
017013,003050: 
017014,003051:    4261           44351        -VD1SET            CS       VD1                                   
017015,003052:    4262           55202                           TS       DSPCOUNT                              
017016,003053:    4263           00002                           TC       Q                                     
017017,003054: 
017018,003055:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
017019,003056:                                                                                                  #  CALL WITH BLANKING CODE IN A.
017020,003057:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
017021,003058:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
017022,003059: 
017023,003060:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
017024,003061: 
017025,003062:    4264           74774        BLANKSUB           MASK     SEVEN                                 
017026,003063:    4265           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
017027,003064:    4266           22002                           LXCH     Q                                     
017028,003065:    4267           04226                           TC       EMBDSPCK                              #  CHECK FOR DSP SYST AVAILABLE
017029,003066:    4270           10123                           CCS      NVTEMP                                
017030,003067:    4271           14273                           TCF      +2                                    
017031,003068:    4272           00001                           TC       L                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
017032,003069:    4273           34304                           CAF      BLNKBBNK                              
017033,003070:    4274           56006                           XCH      BBANK                                 
017034,003071:    4275           00006                           EXTEND                                         
017035,003072:    4276           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
017036,003073:    4277           52131                           DXCH     BUF                                   

Page 382

017038,003075:    4300           34223                           CAF      PINSUPBT                              
017039,003076:    4301           00006                           EXTEND                                         
017040,003077:    4302           01007                           WRITE    SUPERBNK                              
017041,003078:    4303           03351                           TC       BLNKSUB1                              
017042,003079: 
017043,003080:    4304     1202                                  EBANK=   DSPCOUNT                              
017044,003081:    4304           60102        BLNKBBNK           BBCON    BLNKSUB1                              
017045,003082:    4305                        ENDBLFF            EQUALS                                         
017046,003083: 
017047,003084: 40,2000                                           SETLOC   PINBALL1                              
017048,003085: 40,2000                                           BANK                                           
017049,003086: 40,3351                                           COUNT*   $$/PIN                                
017050,003087: 40,3351           31202        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
017051,003088: 40,3352           54132                           TS       BUF        +2                         
017052,003089: 40,3353           34770                           CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
017053,003090: 40,3354           03373                           TC       TESTBIT                               
017054,003091: 40,3355           34321                           CAF      R1D1                                  
017055,003092: 40,3356           02430                           TC       5BLANK     -1                         
017056,003093: 40,3357           34767                           CAF      BIT2                                  #  TEST BIT 2. SEE IF R2 TO BE BLANKED.
017057,003094: 40,3360           03373                           TC       TESTBIT                               
017058,003095: 40,3361           34322                           CAF      R2D1                                  
017059,003096: 40,3362           02430                           TC       5BLANK     -1                         
017060,003097: 40,3363           34766                           CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
017061,003098: 40,3364           03373                           TC       TESTBIT                               
017062,003099: 40,3365           34323                           CAF      R3D1                                  
017063,003100: 40,3366           02430                           TC       5BLANK     -1                         
017064,003101: 40,3367           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
017065,003102: 40,3370           55202                           TS       DSPCOUNT                              #        BEFORE BLANKSUB.
017066,003103: 40,3371           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
017067,003104: 40,3372           05215                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
017068,003105: 
017069,003106: 40,3373           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
017070,003107: 40,3374           10000                           CCS      A                                     
017071,003108: 40,3375           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
017072,003109: 40,3376           16710                           TCF      Q+2                                   #  IF CURRENT BIT = 0, RETURN TO L+3
017073,003110: 40,3377           34353        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
017074,003111: 40,3400           57202                           XCH      DSPCOUNT                              
017075,003112: 40,3401           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
017076,003113: 40,3402           11214                           CCS      MODREG                                
017077,003114: 40,3403           64770                           AD       ONE                                   
017078,003115: 40,3404           03146                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
017079,003116: 40,3405           03407                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
017080,003117: 40,3406           02473                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
017081,003118: 40,3407           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
017082,003119: 40,3410           55202                           TS       DSPCOUNT                              
017083,003120: 40,3411           05205                           TC       ENDOFJOB                              
017084,003121: 
017085,003122:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
017086,003123:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS

Page 383

017088,003125:                                                                                                  #  EXECUTED.  IT WAKES UP JOB THAT DID TC ENDIDLE.
017089,003126: 
017090,003127:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
017091,003128:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
017092,003129: 
017093,003130: 40,3412           11245        RECALTST           CCS      CADRSTOR                              
017094,003131: 40,3413           03415                           TC       RECAL1                                
017095,003132: 40,3414           05205                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
017096,003133: 40,3415           34772        RECAL1             CAF      ZERO                                  
017097,003134: 40,3416           57245                           XCH      CADRSTOR                              
017098,003135: 40,3417           00004                           INHINT                                         
017099,003136: 40,3420           05167                           TC       JOBWAKE                               
017100,003137: 40,3421           31205                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
017101,003138: 40,3422           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
017102,003139: 40,3423           31204                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
017103,003140: 40,3424           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
017104,003141: 40,3425           52155                           DXCH     MPAC                                  
017105,003142: 40,3426           00003                           RELINT                                         
017106,003143: 40,3427           04432        RECAL3             TC       RELDSP                                
017107,003144: 40,3430           05205                           TC       ENDOFJOB                              
017108,003145: 
017109,003146: 40,3431           04224        NVSBENDL           TC       NVSUBEND                              
017110,003147: 40,3432  30,2000                                  SBANK=   LOWSUPER                              
017111,003148: 

Page 384

017113,003150: 
017114,003151:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
017115,003152: 
017116,003153:    4000                                           SETLOC   FFTAG8                                
017117,003154:    4000                                           BANK                                           
017118,003155:    4305                                           COUNT*   $$/PIN                                
017119,003156: 
017120,003157:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
017121,003158:                                                                                                  #                ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
017122,003159: 
017123,003160:    4305           55222        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
017124,003161:    4306           54003                 +1        TS       EBANK                                 #  SET EBANK BITS
017125,003162:    4307           74350                           MASK     LOW8                                  
017126,003163:    4310           65024                           AD       OCT1400                               
017127,003164:    4311           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
017128,003165:    4312           00002                           TC       Q                                     
017129,003166: 
017130,003167:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
017131,003168:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
017132,003169: 
017133,003170:    4313           31222        SETNADD            CA       NOUNCADR                              
017134,003171:    4314           14306                           TCF      SETNCADR   +1                         
017135,003172: 
017136,003173:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
017137,003174:                                                                                                  #                DERIVED AND LEFT IN A.
017138,003175: 
017139,003176:    4315           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
017140,003177:    4316           74350                           MASK     LOW8                                  
017141,003178:    4317           65024                           AD       OCT1400                               #  E ADRES LEFT IN A
017142,003179:    4320           00002                           TC       Q                                     
017143,003180: 
017144,003181:    4321           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017145,003182:    4322           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
017146,003183:    4323           00004        R3D1               OCT      4                                     
017147,003184: 
017148,003185:    4324           54020        RIGHT5             TS       CYR                                   
017149,003186:    4325           40020                           CS       CYR                                   
017150,003187:    4326           40020                           CS       CYR                                   
017151,003188:    4327           40020                           CS       CYR                                   
017152,003189:    4330           40020                           CS       CYR                                   
017153,003190:    4331           56020                           XCH      CYR                                   
017154,003191:    4332           00002                           TC       Q                                     
017155,003192: 
017156,003193:    4333           54022        LEFT5              TS       CYL                                   
017157,003194:    4334           40022                           CS       CYL                                   
017158,003195:    4335           40022                           CS       CYL                                   
017159,003196:    4336           40022                           CS       CYL                                   
017160,003197:    4337           40022                           CS       CYL                                   

Page 385

017162,003199:    4340           56022                           XCH      CYL                                   
017163,003200:    4341           00002                           TC       Q                                     
017164,003201: 
017165,003202:    4342           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017166,003203:    4343           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
017167,003204:    4344           76000        HI5                OCT      76000                                 #  MUST STAY HERE
017168,003205: 
017169,003206:    4345     5313               TCTSKOVR           EQUALS   TSKOVCDR                              
017170,003207:    4345           05135        TCFINDVC           TC       FINDVAC                               
017171,003208: 
017172,003209:    4346           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
017173,003210: 
017174,003211:    4347           03777        LOW11              OCT      3777                                  
017175,003212:    4350           00377        LOW8               OCT      377                                   
017176,003213: 
017177,003214:    4351           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017178,003215:    4352           00021        ND1                OCT      21                                    #  DONT SEPARATE.
017179,003216:    4353           00025        MD1                OCT      25                                    
017180,003217: 
017181,003218:    4354     4353               VBSP1LD            EQUALS   MD1                                   #  VB21 = ALOAD
017182,003219:    4354           00026        VBSP2LD            DEC      22         B-14                       #  VB22 = BLOAD
017183,003220:    4355     4615               VBSP3LD            EQUALS   DEC23                                 #  VB23 = CLOAD
017184,003221:    4355           00012        BINCON             DEC      10         B-14                       
017185,003222: 
017186,003223:    4356           34764        RELDSPON           CAF      BIT5                                  
017187,003224:    4357           14363                           TCF      +4                                    
017188,003225:    4360           34763        FLASHON            CAF      BIT6                                  
017189,003226:    4361           14363                           TCF      +2                                    
017190,003227:    4362           34762        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
017191,003228:    4363           00006                           EXTEND                                         
017192,003229:    4364           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
017193,003230:    4365           00002                           TC       Q                                     
017194,003231: 
017195,003232:    4366           00006        LODSAMPT           EXTEND                                         
017196,003233:    4367           30025                           DCA      TIME2                                 
017197,003234:    4370           52014                           DXCH     SAMPTIME                              
017198,003235:    4371           00002                           TC       Q                                     
017199,003236: 
017200,003237:    4372           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
017201,003238:    4373           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
017202,003239:    4374           20156                           DAS      MPAC       +1                         
017203,003240:    4375           60154                           AD       MPAC                                  
017204,003241:    4376           26154                 +4        ADS      MPAC                                  
017205,003242:    4377           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
017206,003243:    4400           00002                           TC       Q                                     #  NO NET OF/UF
017207,003244:    4401           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/-1 FOR OF/UF

Page 386

017209,003246:    4402           00002                           TC       Q                                     
017210,003247: 
017211,003248:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
017212,003249:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
017213,003250:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
017214,003251:                                                                                                  #  SETTING RESULT TO -0.
017215,003252:                                                                                                  #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
017216,003253:                                                                                                  #   WHEN THEY CONTAIN THE SF CONSTANTS.)
017217,003254: 
017218,003255:    4403           54135        PRSHRTMP           TS       MPTEMP                                
017219,003256:    4404           10000                           CCS      A                                     
017220,003257:    4405           30135                           CA       MPTEMP                                #  C(A) +,  DO REGULAR SHORTMP
017221,003258:    4406           17257                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
017222,003259:    4407           14405                           TCF      -2                                    #  C(A) -,  DO REGULAR SHORTMP
017223,003260:    4410           44772                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
017224,003261:    4411           54154                           TS       MPAC                                  
017225,003262:    4412           54155                           TS       MPAC       +1                         
017226,003263:    4413           54156                           TS       MPAC       +2                         
017227,003264:    4414           00002                           TC       Q                                     
017228,003265: 
017229,003266:    4415           44766        UPACTOFF           CS       BIT3                                  #  TURN OFF UPLINK ACTIVITY
017230,003267:    4416           14420                           TCF      +2                                    
017231,003268: 
017232,003269:    4417           44763        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
017233,003270:    4420           00006                           EXTEND                                         
017234,003271:    4421           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
017235,003272:    4422           00002                           TC       Q                                     
017236,003273: 
017237,003274:    4423           50000        CODSTOR            INDEX    A                                     
017238,003275:    4424           34063                           CAF      RELTAB                                
017239,003276:    4425           74342                           MASK     LOW5                                  
017240,003277:    4426           54124                           TS       CODE                                  
017241,003278:    4427           31202                           CA       DSPCOUNT                              
017242,003279:    4430           54143                           TS       COUNT                                 
017243,003280:    4431           00002                           TC       Q                                     
017244,003281: 

Page 387

017246,003283:                                                                                                  #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
017247,003284: 
017248,003285:                                                                                                  #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
017249,003286:                                                                                                  #  CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
017250,003287:                                                                                                  #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
017251,003288:                                                                                                  #  OFFERED.
017252,003289: 
017253,003290:                                                                                                  #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
017254,003291:                                                                                                  #  PROGRAM.      1) BY ENDIDLE
017255,003292:                                                                                                  #                2) BY NVSUBUSY
017256,003293:                                                                                                  #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
017257,003294:                                                                                                  #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
017258,003295:                                                                                                  #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY AJOB ASLEEP THAT WAS
017259,003296:                                                                                                  #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
017260,003297: 
017261,003298:                                                                                                  #  THE CALLING SEQUENCE FOR NVSUB IS
017262,003299:                                                                                                  #                CAF     V/N
017263,003300:                                                                                                  #        L       TC      NVSUB
017264,003301:                                                                                                  #        L+1     RETURN HERE IF OPERATOR HAS INTERVENED
017265,003302:                                                                                                  #        L+2     RETURN HERE AFTER EXECUTION
017266,003303: 
017267,003304:                                                                                                  #  A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
017268,003305:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
017269,003306:                                                                                                  #  SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
017270,003307:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
017271,003308:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
017272,003309: 
017273,003310:                                                                                                  #  THE CALLING SEQUENCE IS
017274,003311:                                                                                                  #        CAF     WAKEFCADR
017275,003312:                                                                                                  #        TC      NVSUBUSY
017276,003313:                                                                                                  #  .
017277,003314: 
017278,003315:                                                                                                  #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
017279,003316:                                                                                                  #  IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
017280,003317:                                                                                                  #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
017281,003318:                                                                                                  #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
017282,003319: 
017283,003320:                                                                                                  #  NVSUBUSY ABORTS (WITH CODE 21206) IF A SECOND JOB ATTEMPTS TO GO TO
017284,003321:                                                                                                  #  SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
017285,003322:                                                                                                  #  WHEN
017286,003323:                                                                                                  #  1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
017287,003324:                                                                                                  #     IS EXCEEDED.
017288,003325:                                                                                                  #  2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING

Page 388

017290,003327:                                                                                                  #  ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
017291,003328: 
017292,003329:                                                                                                  #  NVSUBUSY MOVED TO DISPLAY INTERFACE ROUTINES
017293,003330: 
017294,003331:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
017295,003332:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
017296,003333:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
017297,003334: 
017298,003335:    4432           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
017299,003336:    4433           54144                           TS       RELRET                                #  OFF, SEARCH DSPLIST
017300,003337:    4434           44753                           CS       BIT14                                 
017301,003338:    4435           00004                           INHINT                                         
017302,003339:    4436           71224                           MASK     MONSAVE1                              
017303,003340:    4437           55224                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
017304,003341:    4440           11246                           CCS      DSPLIST                               
017305,003342:    4441           04443                           TC       +2                                    
017306,003343:    4442           04446                           TC       RELDSP2                               #  LIST EMPTY
017307,003344:    4443           34772                           CAF      ZERO                                  
017308,003345:    4444           57246                           XCH      DSPLIST                               
017309,003346:    4445           05167                           TC       JOBWAKE                               
017310,003347:    4446           00003        RELDSP2            RELINT                                         
017311,003348:    4447           44764                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
017312,003349:    4450           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
017313,003350:    4451           03011                           WAND     DSALMOUT                              
017314,003351:    4452           34772                 +4        CAF      ZERO                                  
017315,003352:    4453           55215                           TS       DSPLOCK                               
017316,003353:    4454           00144                           TC       RELRET                                
017317,003354:    4455           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
017318,003355:    4456           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
017319,003356:                                                                                                  #  EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
017320,003357:                                                                                                  #  DSPLIST IS NOT EMPTY.
017321,003358:    4457           11246                           CCS      DSPLIST                               
017322,003359:    4460           04462                           TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
017323,003360:    4461           04446                           TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
017324,003361:    4462           14452                           TCF      RELDSP2    +4                         #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
017325,003362:    4463                        ENDPINBF           EQUALS                                         
017326,003363: 

Page 389

017328,003365:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
017329,003366: 
017330,003367:    4463  43,2002               PINTEST            EQUALS   LST2FAN                               
017331,003368: 

Page 390

017333,003370:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
017334,003371:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
017335,003372: 
017336,003373: 40,2000                                           SETLOC   PINBALL1                              
017337,003374: 40,2000                                           BANK                                           
017338,003375: 40,3432                                           COUNT*   $$/PIN                                
017339,003376: 40,3432           04636        VBTSTLTS           TC       BANKCALL                              
017340,003377: 40,3433           66714                           CADR     CHKPOOH                               
017341,003378: 
017342,003379: 40,3434           00004                           INHINT                                         
017343,003380: 40,3435           41334                           CS       IMODES33                              #  SET BIT 1 OF IMODES33 SO IMUMON WONT
017344,003381: 40,3436           74770                           MASK     LMPTSTBT                              #  TURN OUT ANY LAMPS.
017345,003382: 40,3437           27334                           ADS      IMODES33                              
017346,003383: 40,3440           33550                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
017347,003384: 40,3441           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
017348,003385: 40,3442           05011                           WOR      DSALMOUT                              
017349,003386: 40,3443           33551                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
017350,003387: 40,3444           55241                           TS       DSPTAB     +11D                       #  PROG ALM.
017351,003388: 40,3445           34757                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
017352,003389: 40,3446           00006                           EXTEND                                         
017353,003390: 40,3447           05013                           WOR      CHAN13                                
017354,003391: 40,3450           34355                           CAF      TEN                                   
017355,003392: 40,3451           54117        TSTLTS1            TS       ERCNT                                 
017356,003393: 40,3452           43546                           CS       FULLDSP                               
017357,003394: 40,3453           50117                           INDEX    ERCNT                                 
017358,003395: 40,3454           55226                           TS       DSPTAB                                
017359,003396: 40,3455           10117                           CCS      ERCNT                                 
017360,003397: 40,3456           03451                           TC       TSTLTS1                               
017361,003398: 40,3457           43547                           CS       FULLDSP1                              
017362,003399: 40,3460           55227                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
017363,003400: 40,3461           55232                           TS       DSPTAB     +4                         
017364,003401: 40,3462           55234                           TS       DSPTAB     +6                         
017365,003402: 40,3463           34775                           CAF      ELEVEN                                
017366,003403: 40,3464           55221                           TS       NOUT                                  
017367,003404: 40,3465           37704                           CAF      SHOLTS                                
017368,003405: 40,3466           04636                           TC       BANKCALL                              
017369,003406: 40,3467           01731                           CADR     DELAYJOB                              
017370,003407:                                                                                                  #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
017371,003408:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
017372,003409:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
017373,003410: 
017374,003411: 40,3470     7704               SHOLTS             =        DEC500                                #  5 SEC
017375,003412: 40,3470           43552        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
017376,003413: 40,3471           00004                           INHINT                                         
017377,003414: 40,3472           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY, TEMP,
017378,003415: 40,3473           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
017379,003416: 40,3474           44757                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
017380,003417: 40,3475           00006                           EXTEND                                         
017381,003418: 40,3476           03013                           WAND     CHAN13                                

Page 391

017383,003420: 40,3477           34765                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
017384,003421: 40,3500           00006                           EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
017385,003422: 40,3501           02012                           RAND     CHAN12                                
017386,003423: 40,3502           64752                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
017387,003424: 40,3503           55241                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
017388,003425: 40,3504           44770                           CS       LMPTSTBT                              
017389,003426: 40,3505           71334                           MASK     IMODES33                              
017390,003427: 40,3506           55334                           TS       IMODES33                              
017391,003428: 40,3507           40000                           COM                                            
017392,003429: 40,3510           74754                           MASK     PIP2FLBT                              
017393,003430: 40,3511           27334                           ADS      IMODES33                              
017394,003431: 40,3512           40000                           COM                                            
017395,003432: 40,3513           74755                           MASK     DNLKFAIL                              
017396,003433: 40,3514           27334                           ADS      IMODES33                              
017397,003434: 40,3515           40000                           COM                                            
017398,003435: 40,3516           74756                           MASK     UPLKFAIL                              
017399,003436: 40,3517           27334                           ADS      IMODES33                              
017400,003437: 40,3520           44752                           CS       TLIMBIT                               
017401,003438: 40,3521           71333                           MASK     IMODES30                              
017402,003439: 40,3522           55333                           TS       IMODES30                              
017403,003440: 40,3523           40000                           COM                                            
017404,003441: 40,3524           74754                           MASK     IMUFLBIT                              
017405,003442: 40,3525           27333                           ADS      IMODES30                              
017406,003443: 40,3526           40000                           COM                                            
017407,003444: 40,3527           74755                           MASK     ICDUFLBT                              
017408,003445: 40,3530           27333                           ADS      IMODES30                              
017409,003446: 40,3531           40000                           COM                                            
017410,003447: 40,3532           74757                           MASK     PIPAFLBT                              
017411,003448: 40,3533           27333                           ADS      IMODES30                              
017412,003449: 40,3534           41337                           CS       OPTMODES                              
017413,003450: 40,3535           74762                           MASK     OCDUFBIT                              
017414,003451: 40,3536           27337                           ADS      OPTMODES                              
017415,003452: 40,3537           00003                           RELINT                                         
017416,003453: 
017417,003454: 40,3540           05120                           TC       NOVAC30                               
017418,003455: 40,3541     1202                                  EBANK=   DSPCOUNT                              
017419,003456: 40,3541           03377 60102                     2CADR    DSPMMJOB                              
017420,003457: 
017421,003458: 40,3543           04235                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
017422,003459: 40,3544           04417                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
017423,003460: 40,3545           13335                           TCF      TSTLTS4                               
017424,003461: 40,3546           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
017425,003462: 40,3547           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
017426,003463: 40,3550           00175        TSTCON1            OCT      00175                                 
017427,003464:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE, 
017428,003465:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
017429,003466: 40,3551           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D  BITS 4,6,8,9.
017430,003467:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
017431,003468: 40,3552           00115        TSTCON3            OCT      00115                                 #  CHAN 11  BITS 1, 3, 4, 7.
017432,003469:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.

Page 392

017434,003471: 
017435,003472:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
017436,003473:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
017437,003474:                                                                                                  #  PROG ALM, TRACKER FAIL.
017438,003475:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
017439,003476:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY, RESTART.
017440,003477:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
017441,003478:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
017442,003479: 
017443,003480: 40,2000                                           SETLOC   PINBALL1                              
017444,003481: 40,2000                                           BANK                                           
017445,003482: 40,3553                                           COUNT*   $$/PIN                                
017446,003483: 40,3553           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
017447,003484: 40,3554           55215                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
017448,003485: 40,3555           00004                           INHINT                                         
017449,003486: 40,3556           34757                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
017450,003487: 40,3557           00006                           EXTEND                                         
017451,003488: 40,3560           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
017452,003489: 40,3561           35004                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
017453,003490: 40,3562           71241                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
017454,003491: 40,3563           64752                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
017455,003492: 40,3564           55241                           TS       DSPTAB     +11D                       
017456,003493: 40,3565           41334                           CS       IMODES33                              #  RESET FAIL BITS WHICH GENERATE PROG
017457,003494: 40,3566           75055                           MASK     PRIO16                                #  ALARM SO THAT IF THE FAILURE STILL
017458,003495: 40,3567           27334                           ADS      IMODES33                              #  EXISTS, THE ALARM WILL COME BACK ON
017459,003496: 40,3570           41333                           CS       IMODES30                              
017460,003497: 40,3571           74757                           MASK     PIPAFLBT                              
017461,003498: 40,3572           27333                           ADS      IMODES30                              
017462,003499: 
017463,003500: 40,3573           41337                           CS       OPTMODES                              
017464,003501: 40,3574           74762                           MASK     OCDUFBIT                              
017465,003502: 40,3575           27337                           ADS      OPTMODES                              
017466,003503: 40,3576           04542                           TC       C13STALL                              
017467,003504: 40,3577           44757                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
017468,003505: 40,3600           00006                           EXTEND                                         
017469,003506: 40,3601           03013                           WAND     CHAN13                                
017470,003507: 40,3602           43216                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
017471,003508: 40,3603           00006                           EXTEND                                         #  OPERATOR ERROR.
017472,003509: 40,3604           03011                           WAND     DSALMOUT                              
017473,003510: 40,3605           34355        TSTAB              CAF      BINCON                                #  (DEC 10)
017474,003511: 40,3606           54117                 +1        TS       ERCNT                                 #  ERCNT = COUNT
017475,003512: 40,3607           00004                           INHINT                                         
017476,003513: 40,3610           50117                           INDEX    ERCNT                                 
017477,003514: 40,3611           11226                           CCS      DSPTAB                                
017478,003515: 40,3612           64770                           AD       ONE                                   
017479,003516: 40,3613           03620                           TC       ERPLUS                                
017480,003517: 40,3614           64770                           AD       ONE                                   
017481,003518: 40,3615           40000        ERMINUS            CS       A                                     
017482,003519: 40,3616           77674                           MASK     NOTBIT12                              
017483,003520: 40,3617           03623                           TC       ERCOM                                 
017484,003521: 40,3620           40000        ERPLUS             CS       A                                     

Page 393

017486,003523: 40,3621           77674                           MASK     NOTBIT12                              
017487,003524: 40,3622           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
017488,003525: 40,3623           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
017489,003526: 40,3624           55226                           TS       DSPTAB                                
017490,003527: 40,3625           00003                           RELINT                                         
017491,003528: 40,3626           10117                           CCS      ERCNT                                 
017492,003529: 40,3627           03606                           TC       TSTAB      +1                         
017493,003530: 40,3630           54375                           TS       FAILREG                               
017494,003531: 40,3631           54376                           TS       FAILREG    +1                         
017495,003532: 40,3632           55357                           TS       SFAIL                                 
017496,003533: 40,3633           05205                           TC       ENDOFJOB                              
017497,003534: 
017498,003535: 40,3634           55000        OCT55000           OCT      55000                                 
017499,003536: 40,3635           16001        13-11,1            OCT      16001                                 
017500,003537: 40,3636     5004               GL+NOATT           EQUALS   OCT50                                 #  NO ATT AND GIMBAL LOCK LAMPS
017501,003538: 40,3636     7674               NOTBIT12           EQUALS   -1/8                                  
017502,003539: 40,3636                        ENDPINS1           EQUALS                                         
017503,003540: 
017504,003541: 40,3636  30,2000                                  SBANK=   LOWSUPER                              

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