Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

013930,000002:                                                                                                 #  Copyright:     Public domain.
013931,000003:                                                                                                 #  Filename:      PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
013932,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
013933,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
013934,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
013935,000007:                                                                                                 #                 Apollo 15-17.
013936,000008:                                                                                                 #  Assembler:     yaYUL
013937,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
013938,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
013939,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
013940,000012:                                                                                                 #  Mod history:   2009-08-10 JL   Adapted from corresponding Comanche 055 file.
013941,000013:                                                                                                 #                 2009-09-03 JL   Fixed conversion error (duplicate declaration of NEG.2).
013942,000014:                                                                                                 #                 2009-09-04 JL   Fixed page comment.
013943,000015:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
013944,000016:                                                                                                 #                 2010-02-02 JL   Removed extra instruction (TS DSPCOUNT). Fixed page numbers.
013945,000017:                                                                                                 #                 2010-02-05 JL   Fixed code errors.
013946,000018:                                                                                                 #                 2010-02-07 JL   Added missing BANK opcode on p369. Removed extra instruction on p383.
013947,000019:                                                                                                 #                 2010-02-10 JL   Fixed line on p381.
013948,000020:                                                                                                 #                 2010-02-13 JL   Fixed errors on pages 327, 354, 356, 362, 363, 368, 370, 374, 379, 380, 391, 392.
013949,000021:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
013950,000022: 

Page 318

013952,000024: 
013953,000025:                                                                                                 #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
013954,000026:                                                                                                 #  MOD BY - BARNERT       DATE - 20 AUG 1969
013955,000027:                                                                                                 #  LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
013956,000028: 
013957,000029:                                                                                                 #  FUNCTIONAL DESCRIPTION-
013958,000030: 
013959,000031:                                                                                                 #         THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
013960,000032:                                                                                                 #         CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
013961,000033:                                                                                                 #         COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
013962,000034:                                                                                                 #         FROM INTERNAL PROGRAM, AND FROM THE UPLINK.
013963,000035: 
013964,000036:                                                                                                 #         THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
013965,000037:                                                                                                 #         KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
013966,000038:                                                                                                 #         DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
013967,000039:                                                                                                 #         NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
013968,000040:                                                                                                 #         REFER TO A GROUP OF ERASABLE REGISTERS.
013969,000041: 
013970,000042:                                                                                                 #         VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
013971,000043:                                                                                                 #         UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
013972,000044:                                                                                                 #         ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
013973,000045:                                                                                                 #         'EXTENDED VERBS').
013974,000046: 
013975,000047:                                                                                                 #         A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION 'ASSEMBLY AND
013976,000048:                                                                                                 #         OPERATION INFORMATION'.
013977,000049: 
013978,000050:                                                                                                 #  CALLING SEQUENCES-
013979,000051: 
013980,000052:                                                                                                 #         KEYBOARD:
013981,000053:                                                                                                 #         EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
013982,000054:                                                                                                 #         INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO
013983,000055:                                                                                                 #         CHANNEL 15 (CHANNEL 16).  KEYRUPT1 (KEYRUPT2) PLACES THE KEY
013984,000056:                                                                                                 #         CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
013985,000057:                                                                                                 #         PROGRAM (AT 'CHARIN'), AND EXECUTES A RESUME.
013986,000058: 
013987,000059:                                                                                                 #         UPLINK:
013988,000060:                                                                                                 #         EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT, WHICH
013989,000061:                                                                                                 #         PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
013990,000062:                                                                                                 #         KEYBOARD AND DISPLAY PROGRAM (AT 'CHARIN') AND EXECUTES A RESUME.
013991,000063: 
013992,000064:                                                                                                 #         INTERNAL PROGRAMS:
013993,000065:                                                                                                 #         INTERNAL PROGRAMS CALL PINBALL AT 'NVSUB' WITH THE DESIRED VERB/NOUN
013994,000066:                                                                                                 #         CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
013995,000067:                                                                                                 #         DESCRIBED ON REMARKS CARDS JUST BEFORE 'NVSUB' AND 'NVSBWAIT' (SEE
013996,000068:                                                                                                 #         SYMBOL TABLE FOR PAGE NUMBERS).
013997,000069: 
013998,000070:                                                                                                 #  NORMAL EXIT MODES-
013999,000071: 
014000,000072:                                                                                                 #         IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
014001,000073:                                                                                                 #                 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
014002,000074:                                                                                                 #                 2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE

Page 319

014004,000076:                                                                                                 #                    PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE
014005,000077:                                                                                                 #                    RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
014006,000078:                                                                                                 #                    CHANGE PRIORITY (IF NECESSARY) AD DO AN ENDOFJOB.
014007,000079:                                                                                                 #                    ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
014008,000080:                                                                                                 #                 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS 'V37' IN THE
014009,000081:                                                                                                 #                    SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
014010,000082:                                                                                                 #                    30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
014011,000083:                                                                                                 #                 4) KEY RELEASE BUTTON CALLS 'PINBRNCH' IN THE DISPLAY INTERFACE
014012,000084:                                                                                                 #                    ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
014013,000085:                                                                                                 #                    THE KEY RELEASE LIGHT IS OFF AND 'CADRSTOR' IS NOT +0.
014014,000086: 
014015,000087:                                                                                                 #         IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
014016,000088:                                                                                                 #         TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
014017,000089:                                                                                                 #         'NVSUB'.
014018,000090: 
014019,000091:                                                                                                 #  ALARM OR ABORT EXIT MODES-
014020,000092: 
014021,000093:                                                                                                 #         EXTERNAL INITIATION:
014022,000094:                                                                                                 #         IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
014023,000095:                                                                                                 #         ERROR LIGHT IS TURNED ON AND EXIT IS TO 'ENDOFJOB'.
014024,000096: 
014025,000097:                                                                                                 #         INTERNAL PROGRAM INITIATION:
014026,000098:                                                                                                 #         IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
014027,000099:                                                                                                 #         (WITH OCTAL 21501).
014028,000100:                                                                                                 #         IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
014029,000101:                                                                                                 #         CAUSED (WITH OCTAL 21206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
014030,000102:                                                                                                 #                 1) ENDIDLE
014031,000103:                                                                                                 #                 2) NVSUBUSY
014032,000104: 
014033,000105:                                                                                                 #  OUTPUT-
014034,000106: 
014035,000107:                                                                                                 #  INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE 'DSPTAB'
014036,000108:                                                                                                 #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  'DSPOUT' (A PART OF T4RUPT)
014037,000109:                                                                                                 #  HANDLES THE PLACING OF THE 'DSPTAB' INFORMATION INTO OUTPUT CHANNEL 10
014038,000110:                                                                                                 #  IN INTERRUPT.
014039,000111: 
014040,000112:                                                                                                 #  ERASABLE INITIALIZATION-
014041,000113: 
014042,000114:                                                                                                 #  FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
014043,000115:                                                                                                 #  PINBALL IN 'STARTSUB'.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
014044,000116:                                                                                                 #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
014045,000117:                                                                                                 #  DSPCOUNT, NOUT.
014046,000118: 

Page 320

014048,000120:                                                                                                 #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
014049,000121:                                                                                                 #  PINBALL IS GIVEN BELOW.
014050,000122: 
014051,000123:                                                                                                 #  THE FOLLOWING ARE OF GENERAL INTEREST-
014052,000124: 
014053,000125:                                                                                                 #  REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
014054,000126:                                                                                                 #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
014055,000127: 
014056,000128:                                                                                                 #         NVSUB           CALLING POINT FOR INTERNAL USE OF PINBALL.
014057,000129:                                                                                                 #                         OF RELATED INTEREST - NVSUBUSY
014058,000130: 
014059,000131:                                                                                                 #         ENDIDLE         ROUTINE FOR INTERNAL PROGRAMS WISHING TO TO SLEEP WHILE
014060,000132:                                                                                                 #                         AWAITING OPERATORS RESPONSE.
014061,000133: 
014062,000134:                                                                                                 #         DSPMMJOB        ROUTINE CALL WITH PRIO 30000, USED TO DISPLAY A DECIMAL
014063,000135:                                                                                                 #                         PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
014064,000136: 
014065,000137:                                                                                                 #         BLANKSUB        ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
014066,000138:                                                                                                 #                         COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
014067,000139: 
014068,000140:                                                                                                 #         JAMTERM         ROUTINE BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
014069,000141:                                                                                                 #                         TERMINATE (V 34) FUNCTION.
014070,000142: 
014071,000143:                                                                                                 #         MONITOR         VERBS FOR PERIODIC (1 PER SEC) DISPLAY.
014072,000144: 
014073,000145:                                                                                                 #         PLEASE PERFORM, PLEASE MARK SITUATIONS
014074,000146:                                                                                                 #                 REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
014075,000147:                                                                                                 #                 THESE SITUATIONS CAN BE FOUND JUST BEFORE 'NVSUB' (SEE
014076,000148:                                                                                                 #                 SYMBOL TABLE FOR PAGE NUMBER).
014077,000149: 
014078,000150:                                                                                                 #         THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
014079,000151:                                                                                                 #         BEFORE 'DSPABC' (SEE SYMBOL TABLE FOR PAGE NUMBER).
014080,000152: 
014081,000153:                                                                                                 #         THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION 'PINBALL NOUN
014082,000154:                                                                                                 #         TABLES'.
014083,000155: 
014084,000156:                                                                                                 #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
014085,000157:                                                                                                 #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
014086,000158:                                                                                                 #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.

(Note that this doc by Green and Filene is/was available online at http://hrst.mit.edu/hrs/apollo/public/archive/1706.pdf --- RSB 6/2004.)

014089,000161: 
014090,000162:                                                                                                 #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
014091,000163: 
014092,000164:                                                                                                 #         "IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
014093,000165:                                                                                                 #         USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
014094,000166:                                                                                                 #         CHRISTIAN EAR CAN ENDURE TO HEAR."
014095,000167:                                                                                                 #                                         HENRY 6, ACT 2, SCENE 4
014096,000168: 
014097,000169:                                                                                                 #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
014098,000170: 
014099,000171:                                                                                                 #  RESERVED FOR PINBALL EXECUTIVE ACTION
014100,000172: 
014101,000173:                                                                                                 #  DSPCOUNT       ERASE                   # DISPLAY POSITION INDICATOR
014102,000174:                                                                                                 #  DECBRNCH       ERASE                   # +DEC, -DEC, OCT INDICATOR
014103,000175:                                                                                                 #  VERBREG        ERASE                   # VERB CODE
014104,000176:                                                                                                 #  NOUNREG        ERASE                   # NOUN CODE
014105,000177:                                                                                                 #  XREG           ERASE                   # R1 INPUT BUFFER

Page 321

014107,000179:                                                                                                 #  YREG           ERASE                   # R2 INPUT BUFFER
014108,000180:                                                                                                 #  ZREG           ERASE                   # R3 INPUT BUFFER
014109,000181:                                                                                                 #  XREGLP ERASE                   # LO PART OF XREG (FOR DEC CONV ONLY)
014110,000182:                                                                                                 #  YREGLP ERASE                   # LO PART OF YREG (FOR DEC CONV ONLY)
014111,000183:                                                                                                 #  HITEMOUT       =       YREGLP          # TEMP FOR DISPLAY OF HRS,MIN,SEC
014112,000184:                                                                                                 #                                         #       MUST = LOTEMOUT-1.
014113,000185:                                                                                                 #  ZREGLP ERASE                   # LO PART OF ZREG (FOR DEC CONV ONLY)
014114,000186:                                                                                                 #  LOTEMOUT       =       ZREGLP          # TEMP FOR DISPLAY OF HRS,MIN,SEC
014115,000187:                                                                                                 #                                         #       MUST = HITEMOUT+1
014116,000188:                                                                                                 #  MODREG ERASE                   # MODE CODE
014117,000189:                                                                                                 #  DSPLOCK        ERASE                   # KEYBOARD/SUBROUTINE CALL INTERLOCK
014118,000190:                                                                                                 #  REQRET ERASE                   # RETURN REGISTER FOR LOAD
014119,000191:                                                                                                 #  LOADSTAT       ERASE                   # STATUS INDICATOR FOR LOADTST
014120,000192:                                                                                                 #  CLPASS ERASE                   # PASS INDICATOR CLEAR
014121,000193:                                                                                                 #  NOUT           ERASE                   # ACTIVITY COUNTER FOR DSPTAB
014122,000194:                                                                                                 #  NOUNCADR       ERASE                   # MACHINE CADR FOR NOUN
014123,000195:                                                                                                 #  MONSAVE        ERASE                   # N/V CODE FOR MONITOR. (= MONSAVE1-1)
014124,000196:                                                                                                 #  MONSAVE1       ERASE                   # NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
014125,000197:                                                                                                 #  MONSAVE2       ERASE                   # NVMONOPT OPTIONS
014126,000198:                                                                                                 #  DSPTAB ERASE   +13D            # 0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS.
014127,000199:                                                                                                 #  CADRSTOR       ERASE                   # ENDIDLE STORAGE
014128,000200:                                                                                                 #  NVQTEM ERASE                   # NVSUB STORAGE FOR CALLING ADDRESS
014129,000201:                                                                                                 #                                         # MUST = NVBNKTEM-1
014130,000202:                                                                                                 #  NVBNKTEM       ERASE                   # NVSUB STORAGE FOR CALLING BANK
014131,000203:                                                                                                 #                                         # MUST = NVQTEM+1
014132,000204:                                                                                                 #  VERBSAVE       ERASE                   # NEEDED FOR RECYCLE
014133,000205:                                                                                                 #  DSPLIST        ERASE                   # WAITING REG FOR DSP SYST INTERNAL USE
014134,000206:                                                                                                 #  EXTVBACT       ERASE                   # EXTENDED VERB ACTIVITY INTERLOCK
014135,000207:                                                                                                 #  DSPTEM1        ERASE   +2              # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
014136,000208:                                                                                                 #  DSPTEM2        ERASE   +2              # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
014137,000209: 
014138,000210:                                                                                                 #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION.
014139,000211: 
014140,000212:                                                                                                 #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014141,000213: 
014142,000214:                                                                                                 #  DSEXIT =       INTB15+         # RETURN FOR DSPIN
014143,000215:                                                                                                 #  EXITEM =       INTB15+         # RETURN FOR SCALE FACTOR ROUTINE SELECT
014144,000216:                                                                                                 #  BLANKRET       =       INTB15+         # RETURN FOR 2BLANK
014145,000217: 
014146,000218:                                                                                                 #  WRDRET =       INTBIT15        # RETURN FOR 5BLANK.
014147,000219:                                                                                                 #  WDRET          =       INTBIT15        # RETURN FOR DSPWD
014148,000220:                                                                                                 #  DECRET =       INTBIT15        # RETURN FOR PUTCOM(DEC LOAD)
014149,000221:                                                                                                 #  21/22REG       =       INTBIT15        # TEMP FOR CHARIN
014150,000222: 
014151,000223:                                                                                                 #  UPDATRET       =       POLISH          # RETURN FOR UPDATNN, UPDATVB
014152,000224:                                                                                                 #  CHAR           =       POLISH          # TEMP FOR CHARIN
014153,000225:                                                                                                 #  ERCNT          =       POLISH          # COUNTER FOR ERROR LIGHT RESET
014154,000226:                                                                                                 #  DECOUNT        =       POLISH          # COUNTER FOR SCALING AND DISPLAY (DEC)
014155,000227: 
014156,000228:                                                                                                 #  SGNON          =       VBUF            # TEMP FOR +,- ON

Page 322

014158,000230:                                                                                                 #  NOUNTEM        =       VBUF            # COUNTER FOR MIXNOUN FETCH
014159,000231:                                                                                                 #  DISTEM =       VBUF            # COUNTER FOR OCTAL DISPLAY VERBS
014160,000232:                                                                                                 #  DECTEM =       VBUF            # COUNTER FOR FETCH (DEC DISPLAY VERBS)
014161,000233: 
014162,000234:                                                                                                 #  SGNOFF =       VBUF +1         # TEMP FOR +,- ON
014163,000235:                                                                                                 #  NVTEMP =       VBUF +1         # TEMP FOR NVSUB
014164,000236:                                                                                                 #  SFTEMP1        =       VBUF +1         # STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
014165,000237:                                                                                                 #  HITEMIN        =       VBUF +1         # TEMP FOR LOAD OF HRS, MIN, SEC
014166,000238:                                                                                                 #                                         #       MUST = LOTEMIN-1.
014167,000239:                                                                                                 #  CODE           =       VBUF +2         # FOR DSPIN
014168,000240:                                                                                                 #  SFTEMP2        =       VBUF +2         # STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
014169,000241:                                                                                                 #  LOTEMIN        =       VBUF +2         # TEMP FOR LOAD OF HRS, MIN, SEC
014170,000242:                                                                                                 #                                         #       MUST = HITEMIN+1
014171,000243:                                                                                                 #  MIXTEMP        =       VBUF +3         # FOR MIXNOUN DATA
014172,000244:                                                                                                 #  SIGNRET        =       VBUF +3         # RETURN FOR +,- ON
014173,000245: 
014174,000246:                                                                                                 #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
014175,000247: 
014176,000248:                                                                                                 #  ENTRET =       DOTINC          # EXIT FROM ENTER
014177,000249: 
014178,000250:                                                                                                 #  WDCNT          =       DOTRET          # CHAR COUNTER FOR DSPWD
014179,000251:                                                                                                 #  INREL          =       DOTRET          # INPUT BUFFER SELECTOR (X,Y,Z, REG)
014180,000252: 
014181,000253:                                                                                                 #  DSPMMTEM       =       MATINC          # DSPCOUNT SAVE FOR DSPMM
014182,000254:                                                                                                 #  MIXBR          =       MATINC          # INDICATOR FOR MIXED OR NORMAL NOUN
014183,000255: 
014184,000256:                                                                                                 #  TEM1           ERASE                   # EXEC TEMP
014185,000257:                                                                                                 #  DSREL          =       TEM1            # REL ADDRESS FOR DSPIN
014186,000258: 
014187,000259:                                                                                                 #  TEM2           ERASE                   # EXEC TEMP
014188,000260:                                                                                                 #  DSMAG          =       TEM2            # MAGNITUDE STORE FOR DSPIN
014189,000261:                                                                                                 #  IDADDTEM       =       TEM2            # MIXNOUN INDIRECT ADDRESS STORAGE
014190,000262: 
014191,000263:                                                                                                 #  TEM3           ERASE                   # EXEC TEMP
014192,000264:                                                                                                 #  COUNT          =       TEM3            # FOR DSPIN
014193,000265: 
014194,000266:                                                                                                 #  TEM4           ERASE                   # EXEC TEMP
014195,000267:                                                                                                 #  LSTPTR =       TEM4            # LIST POINTER FOR GRABUSY
014196,000268:                                                                                                 #  RELRET =       TEM4            # RETURN FOR RELDSP
014197,000269:                                                                                                 #  FREERET        =       TEM4            # RETURN FOR FREEDSP
014198,000270:                                                                                                 #  DSPWDRET       =       TEM4            # RETURN FOR DSPSIGN
014199,000271:                                                                                                 #  SEPSCRET       =       TEM4            # RETURN FOR SEPSEC
014200,000272:                                                                                                 #  SEPMNRET       =       TEM4            # RETURN FOR SEPMIN
014201,000273: 
014202,000274:                                                                                                 #  TEM5           ERASE                   # EXEC TEMP
014203,000275:                                                                                                 #  NOUNADD        =       TEM5            # TEMP STORAGE FOR NOUN ADDRESS
014204,000276: 
014205,000277:                                                                                                 #  NNADTEM        ERASE                   # TEMP FOR NOUN ADDRESS TABLE ENTRY
014206,000278:                                                                                                 #  NNTYPTEM       ERASE                   # TEMP FOR NOUN TYPE TABLE ENTRY
014207,000279:                                                                                                 #  IDAD1TEM       ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)

Page 323

014209,000281:                                                                                                 #                                         # MUST = IDAD2TEM-1, = IDAD3TEM-2.
014210,000282:                                                                                                 #  IDAD2TEM       ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)
014211,000283:                                                                                                 #                                         # MUST = IDAD1TEM+1, IDAD3TEM-1.
014212,000284:                                                                                                 #  IDAD3TEM       ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)
014213,000285:                                                                                                 #                                         # MUST = IDAD1TEM+2, IDAD2TEM+1.
014214,000286:                                                                                                 #  RUTMXTEM       ERASE                   # TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
014215,000287: 
014216,000288:                                                                                                 #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION.
014217,000289: 
014218,000290:                                                                                                 #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014219,000291: 
014220,000292:                                                                                                 #         MPAC, THRU MPAC +6
014221,000293:                                                                                                 #         BUF, +1, +2
014222,000294:                                                                                                 #         BUF2, +1, +2
014223,000295:                                                                                                 #         MPTEMP
014224,000296:                                                                                                 #         ADDRWD
014225,000297: 
014226,000298:                                                                                                 #  END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
014227,000299: 
014228,000300:                                                                                                 #  RESERVED FOR PINBALL INTERRUPT ACTION
014229,000301: 
014230,000302:                                                                                                 #  DSPCNT ERASE                   # COUNTER FOR DSPOUT
014231,000303:                                                                                                 #  UPLOCK ERASE                   # BIT1 = UPLINK INTERLOCK (ACTIVATED BY
014232,000304:                                                                                                 #                                         # RECEPTION OF A BAD MESSAGE IN UPLINK)
014233,000305: 
014234,000306:                                                                                                 #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
014235,000307: 
014236,000308:                                                                                                 #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
014237,000309: 
014238,000310:                                                                                                 #  KEYTEMP1       =       WAITEXIT        # TEMP FOR KEYRUPT, UPRUPT
014239,000311:                                                                                                 #  DSRUPTEM       =       WAITEXIT        # TEMP FOR DSPOUT
014240,000312:                                                                                                 #  KEYTEMP2       =       RUPTAGN         # TEMP FOR KEYRUPT, UPRUPT
014241,000313: 
014242,000314:                                                                                                 #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
014243,000315: 

Page 324

014245,000317:                                                                                                 #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
014246,000318:                                                                                                 #         0               10000
014247,000319:                                                                                                 #         1               00001
014248,000320:                                                                                                 #         9               01001
014249,000321:                                                                                                 #         VERB            10001
014250,000322:                                                                                                 #         ERROR RES       10010
014251,000323:                                                                                                 #         KEY RLSE        11001
014252,000324:                                                                                                 #         +               11010
014253,000325:                                                                                                 #         -               11011
014254,000326:                                                                                                 #         ENTER           11100
014255,000327:                                                                                                 #         CLEAR           11110
014256,000328:                                                                                                 #         NOUN            11111
014257,000329: 
014258,000330:                                                                                                 #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
014259,000331:                                                                                                 #  A'S    SELECTS A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
014260,000332:                                                                                                 #         ENERGIZED.
014261,000333:                                                                                                 #  B      FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
014262,000334:                                                                                                 #  C'S    5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD.
014263,000335:                                                                                                 #  D'S    5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
014264,000336: 
014265,000337:                                                                                                 #  THE PANEL APPEARS AS FOLLOWS,
014266,000338:                                                                                                 #         MD1     MD2                             (MAJOR MODE)
014267,000339:                                                                                                 #         VD1     VD2 (VERB)      ND1     ND2     (NOUN)
014268,000340:                                                                                                 #         R1D1    R1D2    R1D3    R1D4    R1D5    (R1)
014269,000341:                                                                                                 #         R2D1    R2D2    R2D3    R2D4    R2D5    (R2)
014270,000342:                                                                                                 #         R3D1    R3D2    R3D3    R3D4    R3D5    (R3)
014271,000343: 
014272,000344:                                                                                                 #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
014273,000345: 
014274,000346:                                                                                                 #         MD1     25      R2D1    11              ALL ARE OCTAL
014275,000347:                                                                                                 #         MD2     24      R2D2    10
014276,000348:                                                                                                 #         VD1     23      R2D3    7
014277,000349:                                                                                                 #         VD2     22      R2D4    6
014278,000350:                                                                                                 #         ND1     21      R2D5    5
014279,000351:                                                                                                 #         ND2     20      R3D1    4
014280,000352:                                                                                                 #         R1D1    16      R3D2    3
014281,000353:                                                                                                 #         R1D2    15      R3D3    2
014282,000354:                                                                                                 #         R1D3    14      R3D4    1
014283,000355:                                                                                                 #         R1D4    13      R3D5    0
014284,000356:                                                                                                 #         R1D5    12
014285,000357: 
014286,000358:                                                                                                 #  THERE IS AN 11-REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
014287,000359: 
014288,000360:                                                                                                 #         DSPTAB          RELAYWD         BIT11           BITS 10-6       BITS 5-1
014289,000361:                                                                                                 #         RELADD
014290,000362:                                                                                                 #         10              1011                            MD1 (25)        MD2  (24)
014291,000363:                                                                                                 #         9               1010                            VD1 (23)        VD2  (22)
014292,000364:                                                                                                 #         8               1001                            ND1 (21)        ND2  (20)
014293,000365:                                                                                                 #         7               1000                                            R1D1 (16)

Page 325

014295,000367:                                                                                                 #         6               0111            +R1             R1D2 (15)       R1D3 (14)
014296,000368:                                                                                                 #         5               0110            -R1             R1D4 (13)       R1D5 (12)
014297,000369:                                                                                                 #         4               0101            +R2             R2D1 (11)       R2D2 (10)
014298,000370:                                                                                                 #         3               0100            -R2             R2D3 (7)        R2D4 (6)
014299,000371:                                                                                                 #         2               0011                            R2D5 (5)        R3D1 (4)
014300,000372:                                                                                                 #         1               0010            +R3             R3D2 (3)        R3D3 (2)
014301,000373:                                                                                                 #         0               0001            -R3             R3D4 (1)        R3D5 (0)
014302,000374:                                                                                                 #                         0000        NO RELAYWORD
014303,000375: 
014304,000376:                                                                                                 #  THE 5-BIT OUTOUT RELAY CODES ARE:
014305,000377: 
014306,000378:                                                                                                 #         BLANK   00000
014307,000379:                                                                                                 #         0       10101
014308,000380:                                                                                                 #         1       00011
014309,000381:                                                                                                 #         2       11001
014310,000382:                                                                                                 #         3       11011
014311,000383:                                                                                                 #         4       01111
014312,000384:                                                                                                 #         5       11110
014313,000385:                                                                                                 #         6       11100
014314,000386:                                                                                                 #         7       10011
014315,000387:                                                                                                 #         8       11101
014316,000388:                                                                                                 #         9       11111
014317,000389: 
014318,000390:                                                                                                 #  OUTPUT BITS USED BY PINBALL:
014319,000391: 
014320,000392:                                                                                                 #         KEY RELEASE LIGHT       - BIT 5 OF CHANNEL 11
014321,000393:                                                                                                 #         VERB/NOUN FLASH         - BIT 6 OF CHANNEL 11
014322,000394:                                                                                                 #         OPERATOR ERROR LIGHT    - BIT 7 OF CHANNEL 11
014323,000395: 

Page 326

014325,000397:                                                                                                 #  START OF EXECUTIVE SECTION OF PINBALL
014326,000398: 
014327,000399: 40,2000                                          SETLOC   PINBALL1                              
014328,000400: 40,2000                                          BANK                                           
014329,000401: 
014330,000402: 40,2000                                          COUNT*   $$/PIN                                
014331,000403: 40,2000           34770        CHARIN            CAF      ONE                                   #  BLOCK DISPLAY SYST
014332,000404: 40,2001           57215                          XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
014333,000405: 40,2002           54115                          TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
014334,000406: 40,2003           11245                          CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
014335,000407: 40,2004           02006                          TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
014336,000408: 40,2005           02013                          TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
014337,000409: 40,2006           42212                          CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
014338,000410: 40,2007           60154                          AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
014339,000411: 40,2010           00006                          EXTEND                                         #  VBRELDSP).
014340,000412: 40,2011           12013                          BZF      CHARIN2                               
014341,000413: 40,2012           04356                          TC       RELDSPON                              
014342,000414: 40,2013           56154        CHARIN2           XCH      MPAC                                  
014343,000415: 40,2014           54117                          TS       CHAR                                  
014344,000416: 40,2015           50000                          INDEX    A                                     
014345,000417: 40,2016           02017                          TC       +1                                    #    INPUT CODE       FUNCTION
014346,000418: 40,2017           03275                          TC       CHARALRM                              #         0
014347,000419: 40,2020           02074                          TC       NUM                                   #         1
014348,000420: 40,2021           02074                          TC       NUM                                   #         2
014349,000421: 40,2022           02074                          TC       NUM                                   #         3
014350,000422: 40,2023           02074                          TC       NUM                                   #         4
014351,000423: 40,2024           02074                          TC       NUM                                   #         5
014352,000424: 40,2025           02074                          TC       NUM                                   #         6
014353,000425: 40,2026           02074                          TC       NUM                                   #         7
014354,000426: 40,2027           02064                          TC       89TEST                                #         10              8
014355,000427: 40,2030           02064                          TC       89TEST                                #         11              9
014356,000428: 40,2031           03275                          TC       CHARALRM                              #         12
014357,000429: 40,2032           03275                          TC       CHARALRM                              #         13
014358,000430: 40,2033           03275                          TC       CHARALRM                              #         14
014359,000431: 40,2034           03275                          TC       CHARALRM                              #         15
014360,000432: 40,2035           03275                          TC       CHARALRM                              #         16
014361,000433: 40,2036           03275                          TC       CHARALRM                              #         17
014362,000434: 40,2037           02072                          TC       NUM        -2                         #         20              0
014363,000435: 40,2040           02251                          TC       VERB                                  #         21              VERB
014364,000436: 40,2041           03553                          TC       ERROR                                 #         22              ERROR LIGHT RESET
014365,000437: 40,2042           03275                          TC       CHARALRM                              #         23
014366,000438: 40,2043           03275                          TC       CHARALRM                              #         24
014367,000439: 40,2044           03275                          TC       CHARALRM                              #         25
014368,000440: 40,2045           03275                          TC       CHARALRM                              #         26
014369,000441: 40,2046           03275                          TC       CHARALRM                              #         27
014370,000442: 40,2047           03275                          TC       CHARALRM                              #         30
014371,000443: 40,2050           03325                          TC       VBRELDSP                              #         31              KEY RELEASE
014372,000444: 40,2051           02304                          TC       POSGN                                 #         32              +
014373,000445: 40,2052           02271                          TC       NEGSGN                                #         33              -

Page 327

014375,000447: 40,2053           04200                          TC       ENTERJMP                              #         34              ENTER
014376,000448: 40,2054           03275                          TC       CHARALRM                              #         35
014377,000449: 40,2055           02364                          TC       CLEAR                                 #         36              CLEAR
014378,000450: 40,2056           02265                          TC       NOUN                                  #         37              NOUN
014379,000451: 
014380,000452: 40,2057           11202        CHKDSP            CCS      DSPCOUNT                              
014381,000453: 40,2060           00002                          TC       Q                                     
014382,000454: 40,2061           00002                          TC       Q                                     
014383,000455: 40,2062           15205                          TCF      ENDOFJOB                              #  BLOCK DATA IN IF DSPCOUNT NEG.
014384,000456: 40,2063           15205                          TCF      ENDOFJOB                              
014385,000457: 
014386,000458: 40,2064           02057        89TEST            TC       CHKDSP                                
014387,000459: 40,2065           36214                          CAF      THREE                                 
014388,000460: 40,2066           71203                          MASK     DECBRNCH                              
014389,000461: 40,2067           10000                          CCS      A                                     
014390,000462: 40,2070           02074                          TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
014391,000463: 40,2071           03275                          TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
014392,000464: 
014393,000465:                                                                                                 #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
014394,000466:                                                                                                 #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
014395,000467:                                                                                                 #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
014396,000468:                                                                                                 #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP.
014397,000469:                                                                                                 #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
014398,000470:                                                                                                 #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
014399,000471: 
014400,000472: 40,2072           34772                 -2       CAF      ZERO                                  
014401,000473: 40,2073           54117                          TS       CHAR                                  
014402,000474: 40,2074           02057        NUM               TC       CHKDSP                                
014403,000475: 40,2075           02221                          TC       GETINREL                              
014404,000476: 40,2076           11220                          CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
014405,000477: 40,2077           34772                          CAF      ZERO                                  
014406,000478: 40,2100           55220                          TS       CLPASS                                
014407,000479: 40,2101           02102                          TC       +1                                    
014408,000480: 40,2102           30117                          CA       CHAR                                  
014409,000481: 40,2103           04423                          TC       CODSTOR                               
014410,000482: 40,2104           03161                          TC       DSPIN                                 
014411,000483: 40,2105           36214                          CAF      THREE                                 
014412,000484: 40,2106           71203                          MASK     DECBRNCH                              
014413,000485: 40,2107           10000                          CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
014414,000486: 40,2110           02121                          TC       DECTOBIN                              #  +
014415,000487: 40,2111           50137                          INDEX    INREL                                 #  +0 OCTAL
014416,000488: 40,2112           57204                          XCH      VERBREG                               
014417,000489: 40,2113           54022                          TS       CYL                                   
014418,000490: 40,2114           40022                          CS       CYL                                   
014419,000491: 40,2115           40022                          CS       CYL                                   
014420,000492: 40,2116           56022                          XCH      CYL                                   
014421,000493: 40,2117           60117                          AD       CHAR                                  
014422,000494: 40,2120           02136                          TC       ENDNMTST                              

Page 328

014424,000496: 40,2121           50137        DECTOBIN          INDEX    INREL                                 
014425,000497: 40,2122           57204                          XCH      VERBREG                               
014426,000498: 40,2123           54154                          TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
014427,000499: 40,2124           34772                          CAF      ZERO                                  
014428,000500: 40,2125           54155                          TS       MPAC       +1                         
014429,000501: 40,2126           34355                          CAF      TEN                                   #  10 X 2EXP-14
014430,000502: 40,2127           07256                          TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
014431,000503: 40,2130           56155                          XCH      MPAC       +1                         
014432,000504: 40,2131           60117                          AD       CHAR                                  
014433,000505: 40,2132           54155                          TS       MPAC       +1                         
014434,000506: 40,2133           02136                          TC       ENDNMTST                              #  NO OF
014435,000507: 40,2134           26154                          ADS      MPAC                                  #  OF MUST BE 5TH CHAR
014436,000508: 40,2135           02156                          TC       DECCEND                               
014437,000509: 40,2136           50137        ENDNMTST          INDEX    INREL                                 
014438,000510: 40,2137           55204                          TS       VERBREG                               
014439,000511: 40,2140           41202                          CS       DSPCOUNT                              
014440,000512: 40,2141           50137                          INDEX    INREL                                 
014441,000513: 40,2142           62212                          AD       CRITCON                               
014442,000514: 40,2143           00006                          EXTEND                                         
014443,000515: 40,2144           12150                          BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
014444,000516: 40,2145           11202        MORNUM            CCS      DSPCOUNT                              #  -, DSPCOUNT G/ CRITCON
014445,000517: 40,2146           55202                          TS       DSPCOUNT                              #  DECREMENT DSPCOUNT
014446,000518: 40,2147           05205                          TC       ENDOFJOB                              
014447,000519: 40,2150           36214        ENDNUM            CAF      THREE                                 
014448,000520: 40,2151           71203                          MASK     DECBRNCH                              
014449,000521: 40,2152           10000                          CCS      A                                     
014450,000522: 40,2153           02156                          TC       DECCEND                               
014451,000523: 40,2154           41202        ENDALL            CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
014452,000524: 40,2155           02146                          TC       MORNUM     +1                         #  NEGATIVELY
014453,000525: 40,2156           04636        DECCEND           TC       BANKCALL                              
014454,000526: 40,2157           60161                          CADR     DECEND                                
014455,000527: 40,2160           02154                          TC       ENDALL                                
014456,000528: 40,2161           44770        DECEND            CS       ONE                                   
014457,000529: 40,2162           60137                          AD       INREL                                 
014458,000530: 40,2163           00006                          EXTEND                                         
014459,000531: 40,2164           62154                          BZMF     ENDALL                                #  IF INREL=0,1 (VBREG,NNREG) LEAVE WHOLE
014460,000532: 40,2165           02221                 +4       TC       GETINREL                              
014461,000533: 40,2166           50137                          INDEX    INREL                                 
014462,000534: 40,2167           31204                          CA       VERBREG                               
014463,000535: 40,2170           54155                          TS       MPAC       +1                         
014464,000536: 40,2171           07052                          TC       DMP                                   #  IF INREL=2,3,4 (R1,R2,R3), CONVERT TO FRAC
014465,000537:                                                                                                 #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
014466,000538: 40,2172           02217                          ADRES    DECON                                 #  2EXP14/10EXP5, GIVES (SUM/10EXP5)X2EXP-14
014467,000539: 40,2173           36214                          CAF      THREE                                 #  IN MPAC, +1, +2.
014468,000540: 40,2174           71203                          MASK     DECBRNCH                              
014469,000541: 40,2175           50000                          INDEX    A                                     
014470,000542: 40,2176           02176                          TC       +0                                    
014471,000543: 40,2177           02203                          TC       +DECSGN                               
014472,000544: 40,2200           00006                          EXTEND                                         #  - CASE
014473,000545: 40,2201           40156                          DCS      MPAC       +1                         

Page 329

014475,000547: 40,2202           52156                          DXCH     MPAC       +1                         
014476,000548: 40,2203           56156        +DECSGN           XCH      MPAC       +2                         
014477,000549: 40,2204           50137                          INDEX    INREL                                 
014478,000550: 40,2205           55207                          TS       XREGLP     -2                         
014479,000551: 40,2206           56155                          XCH      MPAC       +1                         
014480,000552: 40,2207           50137                          INDEX    INREL                                 
014481,000553: 40,2210           55204                          TS       VERBREG                               
014482,000554: 40,2211           04651                          TC       SWRETURN                              
014483,000555: 40,2212  40,2212               ELRCODE1          EQUALS   CRITCON                               
014484,000556: 40,2212           00022        CRITCON           OCT      22                                    #  (DEC 18)
014485,000557: 40,2213           00020                          OCT      20                                    #  (DEC 16)
014486,000558: 40,2214           00012                          OCT      12                                    #  (DEC 10)
014487,000559: 40,2215           00005                          OCT      5                                     
014488,000560: 40,2216           00000                          OCT      0                                     
014489,000561: 
014490,000562: 40,2217           05174 13261  DECON             2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
014491,000563: 
014492,000564:                                                                                                 #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
014493,000565:                                                                                                 #  PUTS IT INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
014494,000566: 
014495,000567: 40,2221           51202        GETINREL          INDEX    DSPCOUNT                              
014496,000568: 40,2222           32225                          CAF      INRELTAB                              
014497,000569: 40,2223           54137                          TS       INREL                                 #  (A TEMP, REG)
014498,000570: 40,2224           00002                          TC       Q                                     
014499,000571: 
014500,000572: 40,2225           00004        INRELTAB          OCT      4                                     #  R3D5 (DSPCOUNT = 0)
014501,000573: 40,2226           00004                          OCT      4                                     #  R3D4            =(1)
014502,000574: 40,2227           00004                          OCT      4                                     #  R3D3            =(2)
014503,000575: 40,2230           00004                          OCT      4                                     #  R3D2            =(3)
014504,000576: 40,2231           00004                          OCT      4                                     #  R3D1            =(4)
014505,000577: 40,2232           00003                          OCT      3                                     #  R2D5            =(5)
014506,000578: 40,2233           00003                          OCT      3                                     #  R2D4            =(6)
014507,000579: 40,2234           00003                          OCT      3                                     #  R2D3            =(7)
014508,000580: 40,2235           00003                          OCT      3                                     #  R2D2            =(8D)
014509,000581: 40,2236           00003                          OCT      3                                     #  R2D1            =(9D)
014510,000582: 40,2237           00002                          OCT      2                                     #  R1D5            =(10D)
014511,000583: 40,2240           00002                          OCT      2                                     #  R1D4            =(11D)
014512,000584: 40,2241           00002                          OCT      2                                     #  R1D3            =(12D)
014513,000585: 40,2242           00002                          OCT      2                                     #  R1D2            =(13D)
014514,000586: 40,2243           00002                          OCT      2                                     #  R1D1            =(14D)
014515,000587: 40,2244           00244        VNDSPCON          OCT      244                                   #  .01 ROUNDED UP. CANNOT GET HERE
014516,000588: 40,2245           00001                          OCT      1                                     #  ND2             =(16D)
014517,000589: 40,2246           00001                          OCT      1                                     #  ND1             =(17D)
014518,000590: 40,2247           00000                          OCT      0                                     #  VD2             =(18D)
014519,000591: 40,2250           00000                          OCT      0                                     #  VD1             =(19D)
014520,000592: 40,2251           34772        VERB              CAF      ZERO                                  

Page 330

014522,000594: 
014523,000595: 40,2252           55204                          TS       VERBREG                               
014524,000596: 40,2253           34351                          CAF      VD1                                   
014525,000597: 40,2254           55202        NVCOM             TS       DSPCOUNT                              
014526,000598: 40,2255           02473                          TC       2BLANK                                
014527,000599: 40,2256           34770                          CAF      ONE                                   
014528,000600: 40,2257           55203                          TS       DECBRNCH                              #  SET FOR DEC V/N CODE
014529,000601: 40,2260           34772                          CAF      ZERO                                  
014530,000602: 40,2261           55216                          TS       REQRET                                #  SET FOR ENTPAS0
014531,000603: 40,2262           34170                          CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
014532,000604: 40,2263           54136                          TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
014533,000605:                                                                                                 #  TO TC ENDOFJOB
014534,000606: 40,2264           05205                          TC       ENDOFJOB                              
014535,000607: 40,2265           34772        NOUN              CAF      ZERO                                  
014536,000608: 40,2266           55205                          TS       NOUNREG                               
014537,000609: 40,2267           34352                          CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
014538,000610: 40,2270           02254                          TC       NVCOM                                 
014539,000611: 
014540,000612: 40,2271           02344        NEGSGN            TC       SIGNTEST                              
014541,000613: 40,2272           02330                          TC       -ON                                   
014542,000614: 40,2273           34767                          CAF      TWO                                   
014543,000615: 40,2274           50137        BOTHSGN           INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
014544,000616: 40,2275           64762                          AD       BIT7                                  #  BIT 5 FOR R1.  BIT 4 FOR R2.
014545,000617: 40,2276           27203                          ADS      DECBRNCH                              #  BIT 3 FOR R3.
014546,000618: 40,2277           11220        FIXCLPAS          CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
014547,000619: 40,2300           34772                          CAF      ZERO                                  
014548,000620: 40,2301           55220                          TS       CLPASS                                
014549,000621: 40,2302           02303                          TC       +1                                    
014550,000622: 40,2303           05205                          TC       ENDOFJOB                              
014551,000623: 
014552,000624: 40,2304           02344        POSGN             TC       SIGNTEST                              
014553,000625: 40,2305           02310                          TC       +ON                                   
014554,000626: 40,2306           34770                          CAF      ONE                                   
014555,000627: 40,2307           02274                          TC       BOTHSGN                               
014556,000628: 
014557,000629: 40,2310           22002        +ON               LXCH     Q                                     
014558,000630: 40,2311           02221                          TC       GETINREL                              
014559,000631: 40,2312           50137                          INDEX    INREL                                 
014560,000632: 40,2313           32336                          CAF      SGNTAB     -2                         
014561,000633: 40,2314           54123                          TS       SGNOFF                                
014562,000634: 40,2315           64770                          AD       ONE                                   
014563,000635: 40,2316           54122                          TS       SGNON                                 
014564,000636: 40,2317           34772        SGNCOM            CAF      ZERO                                  
014565,000637: 40,2320           54124                          TS       CODE                                  
014566,000638: 40,2321           56123                          XCH      SGNOFF                                
014567,000639: 40,2322           03247                          TC       11DSPIN                               
014568,000640: 40,2323           34756                          CAF      BIT11                                 
014569,000641: 40,2324           54124                          TS       CODE                                  
014570,000642: 40,2325           56122                          XCH      SGNON                                 
014571,000643: 40,2326           03247                          TC       11DSPIN                               

Page 331

014573,000645: 40,2327           00001                 -1       TC       L                                     
014574,000646: 40,2330           22002        -ON               LXCH     Q                                     
014575,000647: 40,2331           02221                          TC       GETINREL                              
014576,000648: 40,2332           50137                          INDEX    INREL                                 
014577,000649: 40,2333           32336                          CAF      SGNTAB     -2                         
014578,000650: 40,2334           54122                          TS       SGNON                                 
014579,000651: 40,2335           64770                          AD       ONE                                   
014580,000652: 40,2336           54123                          TS       SGNOFF                                
014581,000653: 40,2337           02317                          TC       SGNCOM                                
014582,000654: 
014583,000655: 40,2340           00005        SGNTAB            OCT      5                                     #  -R1
014584,000656: 40,2341           00003                          OCT      3                                     #  -R2
014585,000657: 40,2342           00000                 -1       OCT      00000                                 #  -R3
014586,000658: 40,2343           02476        DECROUND          OCT      02476                                 #  MUST FOLLOW ZERO WORD
014587,000659: 40,2344           22002        SIGNTEST          LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
014588,000660: 40,2345           36214                          CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
014589,000661: 40,2346           71203                          MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
014590,000662: 40,2347           10000                          CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
014591,000663: 40,2350           05205                          TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
014592,000664: 40,2351           44321                          CS       R1D1                                  
014593,000665: 40,2352           02360                          TC       SGNTST1                               
014594,000666: 40,2353           44322                          CS       R2D1                                  
014595,000667: 40,2354           02360                          TC       SGNTST1                               
014596,000668: 40,2355           44323                          CS       R3D1                                  
014597,000669: 40,2356           02360                          TC       SGNTST1                               
014598,000670: 40,2357           05205                          TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
014599,000671: 40,2360           61202        SGNTST1           AD       DSPCOUNT                              
014600,000672: 40,2361           00006                          EXTEND                                         
014601,000673: 40,2362           12327                          BZF      -ON        -1                         #  MATCH FOUND. SIGN LEGAL
014602,000674: 40,2363           00002                          TC       Q                                     
014603,000675: 
014604,000676:                                                                                                 #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINENT
014605,000677:                                                                                                 #  XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
014606,000678:                                                                                                 #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION.
014607,000679: 
014608,000680:                                                                                                 #  CLPASS +0      PASS0, CAN BE BACKED UP
014609,000681:                                                                                                 #                 +NZ     HIPASS, CAN BE BACKED UP
014610,000682:                                                                                                 #                 -NZ     PASS0, CANNOT BE BACKED UP
014611,000683: 
014612,000684: 40,2364           11202        CLEAR             CCS      DSPCOUNT                              
014613,000685: 40,2365           64770                          AD       ONE                                   
014614,000686: 40,2366           02370                          TC       +2                                    
014615,000687: 40,2367           64770                          AD       ONE                                   
014616,000688: 40,2370           50000                          INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
014617,000689: 40,2371           32225                          CAF      INRELTAB                              #  FAIL LEGALTST.
014618,000690: 40,2372           54137                          TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
014619,000691: 40,2373           11220                          CCS      CLPASS                                
014620,000692: 40,2374           02402                          TC       CLPASHI                               #  +

Page 332

014622,000694: 40,2375           02377                          TC       +2                                    #  +0     IF CLPASS IS +0 OR -, IT IS PASS0
014623,000695: 40,2376           02377                          TC       +1                                    #  -
014624,000696: 40,2377           30137                          CA       INREL                                 
014625,000697: 40,2400           02424                          TC       LEGALTST                              
014626,000698: 40,2401           02417                          TC       CLEAR1                                
014627,000699: 40,2402           10137        CLPASHI           CCS      INREL                                 
014628,000700: 40,2403           54137                          TS       INREL                                 
014629,000701: 40,2404           02424                          TC       LEGALTST                              
014630,000702: 40,2405           32472                          CAF      DOUBLK     +2                         #  +3 TO - NUMBER, BACKS DATA REQUESTS.
014631,000703: 40,2406           27216                          ADS      REQRET                                
014632,000704: 40,2407           30137                          CA       INREL                                 
014633,000705: 40,2410           54125                          TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
014634,000706: 40,2411           00006                          EXTEND                                         
014635,000707: 40,2412           27204                          DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
014636,000708: 40,2413           04636                          TC       BANKCALL                              
014637,000709: 40,2414           62337                          CADR     UPDATVB                               
014638,000710: 40,2415           30125                          CA       MIXTEMP                               
014639,000711: 40,2416           54137                          TS       INREL                                 #  RESTORE INREL
014640,000712: 40,2417           02422        CLEAR1            TC       CLR5                                  
014641,000713: 40,2420           25220                          INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
014642,000714: 40,2421           05205                          TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
014643,000715: 40,2422           22002        CLR5              LXCH     Q                                     #  USED 5BLANK BUT AVOIDS ITS TC GETINREL
014644,000716: 40,2423           02433                          TC       5BLANK     +2                         
014645,000717: 40,2424           67702        LEGALTST          AD       NEG1                                  
014646,000718: 40,2425           00006                          EXTEND                                         
014647,000719: 40,2426           65205                          BZMF     ENDOFJOB                              #  ILLEGAL. INREL=0,1
014648,000720: 40,2427           00002                          TC       Q                                     #  LEGAL. INREL GE 2
014649,000721: 
014650,000722:                                                                                                 #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
014651,000723:                                                                                                 #  YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT.
014652,000724:                                                                                                 #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
014653,000725: 
014654,000726: 40,2430           55202                 -1       TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
014655,000727: 40,2431           22002        5BLANK            LXCH     Q                                     
014656,000728: 40,2432           02221                          TC       GETINREL                              
014657,000729: 40,2433           34772                 +2       CAF      ZERO                                  
014658,000730: 40,2434           50137                          INDEX    INREL                                 
014659,000731: 40,2435           55204                          TS       VERBREG                               #  ZERO X, Y, Z, REG.
014660,000732: 40,2436           50137                          INDEX    INREL                                 
014661,000733: 40,2437           55207                          TS       XREGLP     -2                         
014662,000734: 40,2440           54124                          TS       CODE                                  
014663,000735: 40,2441           50137                          INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
014664,000736: 40,2442           44762                          CS       BIT7                                  #  PROTECT OTHERS
014665,000737: 40,2443           71203                          MASK     DECBRNCH                              
014666,000738: 40,2444           77700                          MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
014667,000739: 40,2445           55203                          TS       DECBRNCH                              
014668,000740: 40,2446           50137                          INDEX    INREL                                 
014669,000741: 40,2447           32463                          CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
014670,000742: 40,2450           54143                          TS       COUNT                                 
014671,000743: 40,2451           03161                          TC       DSPIN                                 
014672,000744: 40,2452           50137        5BLANK1           INDEX    INREL                                 

Page 333

014674,000746: 40,2453           32466                          CAF      DOUBLK     -2                         
014675,000747: 40,2454           55202                          TS       DSPCOUNT                              
014676,000748: 40,2455           02473                          TC       2BLANK                                
014677,000749: 40,2456           44767                          CS       TWO                                   
014678,000750: 40,2457           27202                          ADS      DSPCOUNT                              
014679,000751: 40,2460           02473                          TC       2BLANK                                
014680,000752: 40,2461           50137                          INDEX    INREL                                 
014681,000753: 40,2462           34317                          CAF      R1D1       -2                         
014682,000754: 40,2463           55202                          TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
014683,000755: 40,2464           00001                          TC       L                                     #  OF REG. JUST BLANKED
014684,000756: 
014685,000757: 40,2465           00016        SINBLANK          OCT      16                                    #  DEC 14
014686,000758: 40,2466           00005                          OCT      5                                     
014687,000759: 40,2467           00004                          OCT      4                                     
014688,000760: 40,2470           00015        DOUBLK            OCT      15                                    #  DEC 13
014689,000761: 40,2471           00011                          OCT      11                                    #  DEC 9
014690,000762: 40,2472           00003                 +2       OCT      3                                     
014691,000763: 40,2473     7700               BRNCHCON          EQUALS   NEG3                                  
014692,000764: 
014693,000765:                                                                                                 #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
014694,000766:                                                                                                 #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
014695,000767: 
014696,000768: 40,2473           31202        2BLANK            CA       DSPCOUNT                              
014697,000769: 40,2474           54021                          TS       SR                                    
014698,000770: 40,2475           44755                          CS       BLANKCON                              
014699,000771: 40,2476           00004                          INHINT                                         
014700,000772: 40,2477           50021                          INDEX    SR                                    
014701,000773: 40,2500           57226                          XCH      DSPTAB                                
014702,000774: 40,2501           00006                          EXTEND                                         
014703,000775: 40,2502           62504                          BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
014704,000776: 40,2503           25221                          INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
014705,000777: 40,2504           15642                          TCF      REQ                                   #  IF -, NOUT OK
014706,000778: 40,2505     4755               BLANKCON          EQUALS   BIT12                                 
014707,000779: 

Page 334

014709,000781:                                                                                                 #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
014710,000782:                                                                                                 #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
014711,000783:                                                                                                 #  PASSES.
014712,000784: 
014713,000785:                                                                                                 #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
014714,000786:                                                                                                 #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
014715,000787:                                                                                                 #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
014716,000788: 
014717,000789: 41,2000                                          SETLOC   PINBALL2                              
014718,000790: 41,2000                                          BANK                                           
014719,000791: 
014720,000792: 41,2000                                          COUNT*   $$/PIN                                
014721,000793: 41,2000  41,3513               NVSUBB            EQUALS   NVSUB1                                
014722,000794: 41,2000  41,3001               LOADLV1           EQUALS   LOADLV                                
014723,000795: 41,2000           34772        ENTER             CAF      ZERO                                  
014724,000796: 41,2001           55220                          TS       CLPASS                                
014725,000797: 41,2002           34170                          CAF      ENDINST                               
014726,000798: 41,2003           54136                          TS       ENTRET                                
014727,000799: 41,2004           11216                          CCS      REQRET                                
014728,000800: 41,2005           02040                          TC       ENTPAS0                               #  IF +, PASS 0
014729,000801: 41,2006           02040                          TC       ENTPAS0                               #  IF +, PASS 0
014730,000802: 41,2007           02010                          TC       +1                                    #  IF -, NOT PASS 0
014731,000803: 41,2010           32036        ENTPASHI          CAF      MMADREF                               
014732,000804: 41,2011           61216                          AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
014733,000805: 41,2012           00006                          EXTEND                                         #  AND RECYCLE (DECIDE AT MCHANG+1).
014734,000806: 41,2013           12025                          BZF      ACCEPTWD                              
014735,000807: 41,2014           36214                          CAF      THREE                                 #  IF DEC, L/ 5 CHAR IN FOR DATA MUST BE
014736,000808: 41,2015           71203                          MASK     DECBRNCH                              #  SCALED (DECEND); IF 5 CHAR IN, DATA
014737,000809: 41,2016           10000                          CCS      A                                     #  HAS ALREADY BEEN SCALED. ANY NUMBER
014738,000810: 41,2017           02021                          TC       +2                                    #  OF DECIMAL CHARACTERS ARE ACCEPTABLE.SCR 
014739,000811: 41,2020           02025                          TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
014740,000812: 41,2021           11202                          CCS      DSPCOUNT                              
014741,000813: 41,2022           02031                          TC       LT5                                   
014742,000814: 41,2023           02031                          TC       LT5                                   
014743,000815: 41,2024           02025                          TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
014744,000816: 41,2025           41216        ACCEPTWD          CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
014745,000817: 41,2026           55216                          TS       REQRET                                #  SET REQRET +.
014746,000818: 41,2027           04417                          TC       FLASHOFF                              
014747,000819: 41,2030           01216                          TC       REQRET                                
014748,000820: 
014749,000821: 41,2031           34772        LT5               CAF      ZERO                                  
014750,000822: 41,2032           54154                          TS       MPAC                                  
014751,000823: 41,2033           04636                          TC       BANKCALL                              
014752,000824: 41,2034           60165                          CADR     DECEND     +4                         
014753,000825: 41,2035           02025                          TC       ACCEPTWD                              
014754,000826: 41,2036           03377        MMADREF           ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
014755,000827: 
014756,000828: 41,2037           00034        LOWVERB           DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
014757,000829: 

Page 335

014759,000831: 41,2040           34772        ENTPAS0           CAF      ZERO                                  #  NOUN VERB SUB ENTERS HERE
014760,000832: 41,2041           55203                          TS       DECBRNCH                              
014761,000833: 41,2042           04261                          TC       -VD1SET                               
014762,000834: 41,2043           41204        TESTVB            CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
014763,000835: 41,2044           55244                          TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
014764,000836: 41,2045           62037                          AD       LOWVERB                               #  LOWVERB - VB
014765,000837: 41,2046           00006                          EXTEND                                         
014766,000838: 41,2047           62133                          BZMF     VERBFAN                               #  VERB G/E LOWVERB
014767,000839: 41,2050           00006        TESTNN            EXTEND                                         #  VERB L/ LOWVERB
014768,000840: 41,2051           32115                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014769,000841: 41,2052           52006                          DXCH     Z                                     #  ROUTINE.
014770,000842: 41,2053           50140                          INDEX    MIXBR                                 
014771,000843: 41,2054           02054                          TC       +0                                    
014772,000844: 41,2055           02057                          TC       +2                                    #  NORMAL
014773,000845: 41,2056           02220                          TC       MIXNOUN                               #  MIXED
014774,000846: 41,2057           10146                          CCS      NNADTEM                               #  NORMAL
014775,000847: 41,2060           02131                          TC       VERBFAN    -2                         #         NORMAL  IF +
014776,000848: 41,2061           02350                          TC       GODSPALM                              #  NOT IN USE     IF +0
014777,000849: 41,2062           02066                          TC       REQADD                                #  SPECIFY MACHINE CADR IF -
014778,000850: 41,2063           25222                          INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
014779,000851: 41,2064           04313                          TC       SETNADD                               #  ECADR FROM NOUNCADR, SETS EB, NOUNADD.
014780,000852: 41,2065           02120                          TC       INTMCTBS   +2                         
014781,000853: 41,2066           34752        REQADD            CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
014782,000854: 41,2067           55220                          TS       CLPASS                                
014783,000855: 41,2070           44170                          CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
014784,000856: 41,2071           60136                          AD       ENTEXIT                               #         FROM EXTERNAL
014785,000857: 41,2072           00006                          EXTEND                                         
014786,000858: 41,2073           12075                          BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
014787,000859: 41,2074           02116                          TC       INTMCTBS                              
014788,000860: 41,2075           02304                          TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
014789,000861: 41,2076           11203                          CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
014790,000862: 41,2077           04173                          TC       ALMCYCLE                              #  FOR MCTBS.
014791,000863: 41,2100           04261                          TC       -VD1SET                               
014792,000864: 41,2101           11245                          CCS      CADRSTOR                              
014793,000865: 41,2102           02105                          TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
014794,000866: 41,2103           02106                          TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
014795,000867: 41,2104           02105                          TC       +1                                    
014796,000868: 41,2105           04360                          TC       FLASHON                               
014797,000869: 41,2106           57210        USEADD            XCH      ZREG                                  
014798,000870: 41,2107           04305                          TC       SETNCADR                              #  ECADR INTO NOUNCADR, SET EB, NOUNADD.
014799,000871: 41,2110           00006                          EXTEND                                         
014800,000872: 41,2111           32115                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014801,000873: 41,2112           52006                          DXCH     Z                                     #  ROUTINE.
014802,000874: 41,2113           02133                          TC       VERBFAN                               
014803,000875: 
014804,000876: 41,2114     1202                                 EBANK=   DSPCOUNT                              
014805,000877: 41,2114           02056 64102  LODNNLOC          2CADR    LODNNTAB                              
014806,000878: 
014807,000879: 41,2116           30156        INTMCTBS          CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.

Page 336

014809,000881: 41,2117           04305                          TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
014810,000882: 41,2120           44773                 +2       CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
014811,000883: 41,2121           61204                          AD       VERBREG                               #  CADR TO BE SPECIFIED.
014812,000884: 41,2122           00006                          EXTEND                                         
014813,000885: 41,2123           12133                          BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
014814,000886: 41,2124           34323                          CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
014815,000887: 41,2125           55202                          TS       DSPCOUNT                              
014816,000888: 41,2126           31222                          CA       NOUNCADR                              
014817,000889: 41,2127           03351                          TC       DSPOCTWO                              
014818,000890: 41,2130           02133                          TC       VERBFAN                               
014819,000891: 
014820,000892: 41,2131           64770                 -2       AD       ONE                                   
014821,000893: 41,2132           04305                          TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014822,000894: 41,2133           45004        VERBFAN           CS       LST2CON                               
014823,000895: 41,2134           61204                          AD       VERBREG                               #  VERB-LST2CON
014824,000896: 41,2135           10000                          CCS      A                                     
014825,000897: 41,2136           64770                          AD       ONE                                   #  VERB G/ LST2CON
014826,000898: 41,2137           02141                          TC       +2                                    
014827,000899: 41,2140           02145                          TC       VBFANDIR                              #  VERB L/ LST2CON
014828,000900: 41,2141           54154                          TS       MPAC                                  
014829,000901: 41,2142           04432                          TC       RELDSP                                #  RELEASE DISPLAY SYST
014830,000902: 41,2143           04655                          TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
014831,000903: 41,2144           66000                          CADR     GOEXTVB                               
014832,000904: 41,2145     5004               LST2CON           EQUALS   OCT50                                 #  DEC40-FIRST EXTENDED VERB
014833,000905: 41,2145           51204        VBFANDIR          INDEX    VERBREG                               
014834,000906: 41,2146           32150                          CAF      VERBTAB                               
014835,000907: 41,2147           04660                          TC       BANKJUMP                              
014836,000908: 
014837,000909: 41,2150           62350        VERBTAB           CADR     GODSPALM                              #  VB00 ILLEGAL
014838,000910: 41,2151           62364                          CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
014839,000911: 41,2152           62372                          CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
014840,000912: 41,2153           62377                          CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
014841,000913: 41,2154           62357                          CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
014842,000914: 41,2155           62352                          CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
014843,000915: 41,2156           62516                          CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
014844,000916: 41,2157           60657                          CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
014845,000917: 41,2160           62350                          CADR     GODSPALM                              #  VB08 SPARE
014846,000918: 41,2161           62350                          CADR     GODSPALM                              #  VB09 SPARE
014847,000919: 41,2162           61261                          CADR     DSPALARM                              #  VB10 SPARE
014848,000920: 41,2163           63224                          CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
014849,000921: 41,2164           63224                          CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
014850,000922: 41,2165           63224                          CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
014851,000923: 41,2166           63224                          CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
014852,000924: 41,2167           63224                          CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
014853,000925: 41,2170           63224                          CADR     MONITOR                               #  VB16 MONITOR DECIMAL
014854,000926: 41,2171           63224                          CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
014855,000927: 41,2172           62350                          CADR     GODSPALM                              #  VB18 SPARE
014856,000928: 41,2173           62350                          CADR     GODSPALM                              #  VB19 SPARE
014857,000929: 41,2174           62350                          CADR     GODSPALM                              #  VB20 SPARE
014858,000930: 41,2175           62741                          CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)

Page 337

014860,000932: 41,2176           62750                          CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
014861,000933: 41,2177           62765                          CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
014862,000934: 41,2200           62716                          CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
014863,000935: 41,2201           62611                          CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
014864,000936: 41,2202           62350                          CADR     GODSPALM                              #  VB26 SPARE
014865,000937: 41,2203           63341                          CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
014866,000938:                                                                                                 #  THE FOLLOWING VERBS MAKE NO NOUN TEST
014867,000939: 41,2204           62350                          CADR     GODSPALM                              #  VB28 SPARE
014868,000940: 41,2205           62350                          CADR     GODSPALM                              #  VB29 SPARE
014869,000941: 41,2206           63433        REQEXLQC          CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
014870,000942: 41,2207           63462                          CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
014871,000943: 41,2210           61323                          CADR     VBRESEQ                               #  VB32 RESEQUENCE
014872,000944: 41,2211           61301                          CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
014873,000945: 41,2212           61307                          CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
014874,000946: 41,2213           61432                          CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
014875,000947: 41,2214           12367                          CADR     SLAP1                                 #  VB36 FRESH START
014876,000948: 41,2215           63376                          CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
014877,000949: 41,2216           62350                          CADR     GODSPALM                              #  VB38 SPARE
014878,000950: 41,2217           62350                          CADR     GODSPALM                              #  VB39 SPARE
014879,000951: 
014880,000952:                                                                                                 #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
014881,000953: 

Page 338

014883,000955: 
014884,000956:                                                                                                 #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
014885,000957:                                                                                                 #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
014886,000958:                                                                                                 #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
014887,000959:                                                                                                 #  MIXTEMP.
014888,000960: 
014889,000961: 41,2220           10146        MIXNOUN           CCS      NNADTEM                               
014890,000962: 41,2221           02225                          TC       +4                                    #  +  IN USE
014891,000963: 41,2222           02350                          TC       GODSPALM                              #  +0 NOT IN USE
014892,000964: 41,2223           02225                          TC       +2                                    #  -  IN USE
014893,000965: 41,2224           02225                          TC       +1                                    #  -0 IN USE
014894,000966: 41,2225           46211                          CS       SIX                                   
014895,000967: 41,2226           61204                          AD       VERBREG                               
014896,000968: 41,2227           00006                          EXTEND                                         
014897,000969: 41,2230           62232                          BZMF     +2                                    #  VERB L/E 6
014898,000970: 41,2231           02133                          TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
014899,000971: 41,2232           34767                          CAF      TWO                                   
014900,000972: 41,2233           54117        MIXNN1            TS       DECOUNT                               
014901,000973: 41,2234           62257                          AD       MIXAD                                 
014902,000974: 41,2235           54145                          TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
014903,000975: 41,2236           50117                          INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
014904,000976: 41,2237           30150                          CA       IDAD1TEM                              #  OF NOUN.
014905,000977: 41,2240           54122                          TS       NOUNTEM                               
014906,000978:                                                                                                 #  TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
014907,000979:                                                                                                 #    MINOR PART ONLY.
014908,000980: 41,2241           03033                          TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
014909,000981: 41,2242           02260                          TC       DPTEST                                
014910,000982: 41,2243           02245                          TC       MIXNN2                                #  NO DP
014911,000983: 41,2244           24122                          INCR     NOUNTEM                               #  DP  GET MINOR PART
014912,000984: 41,2245           30122        MIXNN2            CA       NOUNTEM                               
014913,000985: 41,2246           74347                          MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1  FOR DP.
014914,000986: 41,2247           04315                          TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
014915,000987: 41,2250           50000                          INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP.
014916,000988: 41,2251           30000                          CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
014917,000989: 41,2252           50145                          INDEX    NOUNADD                               
014918,000990: 41,2253           56000                          XCH      0                                     #  STORE IN MIXTEM + K
014919,000991: 41,2254           10117                          CCS      DECOUNT                               
014920,000992: 41,2255           02233                          TC       MIXNN1                                
014921,000993: 41,2256           02133                          TC       VERBFAN                               
014922,000994: 
014923,000995: 41,2257           00125        MIXAD             TC       MIXTEMP                               
014924,000996: 
014925,000997:                                                                                                 #  DPTEST ENTER WITH SF ROUT NUMBER IN A.
014926,000998:                                                                                                 #                 RETURNS TO L+1 IF NO DP.
014927,000999:                                                                                                 #                 RETURNS TO L+2 IF DP.
014928,001000: 
014929,001001: 41,2260           50000        DPTEST            INDEX    A                                     
014930,001002: 41,2261           12262                          TCF      +1                                    
014931,001003: 41,2262           00002                          TC       Q                                     #  OCTAL ONLY  NO DP
014932,001004: 41,2263           00002                          TC       Q                                     #  FRACT NO DP

Page 339

014934,001006: 41,2264           00002                          TC       Q                                     #  DEG  NO DP
014935,001007: 41,2265           00002                          TC       Q                                     #  ARITH  NO DP
014936,001008: 41,2266           16706                          TCF      DPTEST1                               #  DP1OUT
014937,001009: 41,2267           16706                          TCF      DPTEST1                               #  DP2OUT
014938,001010: 41,2270           00002                          TC       Q                                     #  DPDEG  NO DP
014939,001011: 41,2271           16706                          TCF      DPTEST1                               #  DP3OUT
014940,001012: 41,2272           00002                          TC       Q                                     #  HMS   NO DP
014941,001013: 41,2273           00002                          TC       Q                                     #  M/S   NO DP
014942,001014: 41,2274           16706                          TCF      DPTEST1                               #  DP4OUT
014943,001015: 41,2275           00002                          TC       Q                                     #  ARITH1   NO DP
014944,001016: 41,2276           00002                          TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
014945,001017: 41,2277           16706                          TCF      DPTEST1                               #  DPFRACOT
014946,001018: 41,2300     6706               DPTEST1           EQUALS   Q+1                                   
014947,001019: 41,2300           34321        REQDATX           CAF      R1D1                                  
014948,001020: 41,2301           12305                          TCF      REQCOM                                
014949,001021: 41,2302           34322        REQDATY           CAF      R2D1                                  
014950,001022: 41,2303           12305                          TCF      REQCOM                                
014951,001023: 41,2304           34323        REQDATZ           CAF      R3D1                                  
014952,001024: 41,2305           55202        REQCOM            TS       DSPCOUNT                              
014953,001025: 41,2306           40002                          CS       Q                                     
014954,001026: 41,2307           55216                          TS       REQRET                                
014955,001027: 41,2310           04636                          TC       BANKCALL                              
014956,001028: 41,2311           60431                          CADR     5BLANK                                
014957,001029: 41,2312           04360                          TC       FLASHON                               
014958,001030: 41,2313           00136        ENDRQDAT          TC       ENTEXIT                               
014959,001031: 
014960,001032: 41,2314           30157                 -2       CA       MPAC       +3                         
014961,001033: 41,2315           55205                 -1       TS       NOUNREG                               
014962,001034: 41,2316           56002        UPDATNN           XCH      Q                                     
014963,001035: 41,2317           54117                          TS       UPDATRET                              
014964,001036: 41,2320           00006                          EXTEND                                         
014965,001037: 41,2321           32115                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014966,001038: 41,2322           52006                          DXCH     Z                                     #  ROUTINE.
014967,001039: 41,2323           10146                          CCS      NNADTEM                               
014968,001040: 41,2324           64770                          AD       ONE                                   #  NORMAL
014969,001041: 41,2325           12330                          TCF      PUTADD                                
014970,001042: 41,2326           12331                          TCF      PUTADD     +1                         #  MCTBS   DONT CHANGE NOUNADD
014971,001043: 41,2327           12331                          TCF      PUTADD     +1                         #  MCTBI   DONT CHANGE NOUNADD
014972,001044: 41,2330           04305        PUTADD            TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014973,001045: 41,2331           34352                          CAF      ND1                                   
014974,001046: 41,2332           55202                          TS       DSPCOUNT                              
014975,001047: 41,2333           31205                          CA       NOUNREG                               
014976,001048: 41,2334           12344                          TCF      UPDAT1                                
014977,001049: 
014978,001050: 41,2335           30160                 -2       CA       MPAC       +4                         
014979,001051: 41,2336           55204                 -1       TS       VERBREG                               
014980,001052: 41,2337           56002        UPDATVB           XCH      Q                                     
014981,001053: 41,2340           54117                          TS       UPDATRET                              
014982,001054: 41,2341           34351                          CAF      VD1                                   
014983,001055: 41,2342           55202                          TS       DSPCOUNT                              

Page 340

014985,001057: 41,2343           31204                          CA       VERBREG                               
014986,001058: 41,2344           04655        UPDAT1            TC       POSTJUMP                              #  CANT USE SWCALL TO GO TC DSPDECVN, SINCE
014987,001059: 41,2345           61156                          CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
014988,001060: 41,2346           00117                 +2       TC       UPDATRET                              
014989,001061: 
014990,001062: 41,2347           04173        GOALMCYC          TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
014991,001063: 
014992,001064: 41,2350           04655        GODSPALM          TC       POSTJUMP                              
014993,001065: 41,2351           61261                          CADR     DSPALARM                              
014994,001066: 

Page 341

014996,001068: 
014997,001069:                                                                                                 #  NOUN TABLES
014998,001070: 
014999,001071:                                                                                                 #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
015000,001072:                                                                                                 #  FOR NORMAL CASE, NNADTAB CONTAINS ONE  ECADR  FOR EACH NOUN.
015001,001073:                                                                                                 #  +0 INDICATES NOUN NOT USED.  - ENTRY INDICATES MACHINE CADR (E OR F) TO
015002,001074:                                                                                                 #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
015003,001075:                                                                                                 #  OF LAST MACHINE CADR SUPPLIED.
015004,001076: 
015005,001077:                                                                                                 #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS (IDADDREL) IN LOW
015006,001078:                                                                                                 #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
015007,001079: 
015008,001080:                                                                                                 #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
015009,001081: 
015010,001082:                                                                                                 #  FOR THE NORMAL CASE,   M'S ARE THE COMPONENT CODE NUMBER.
015011,001083:                                                                                                 #                         N'S ARE THE SF ROUTINE CODE NUMBER.
015012,001084:                                                                                                 #                         P'S ARE THE SF CONSTANT CODE NUMBER.
015013,001085: 
015014,001086:                                                                                                 #  MIXED-CASE,            M'S ARE THE SF CONSTANT3 CODE NUMBER    3 COMPONENT CASE
015015,001087:                                                                                                 #                         N'S ARE THE SF CONSTANT2 CODE NUMBER
015016,001088:                                                                                                 #                         P'S ARE THE SF CONSTANT1 CODE NUMBER
015017,001089:                                                                                                 #                         N'S ARE THE SF CONSTANT2 CODE NUMBER    2 COMPONENT CASE
015018,001090:                                                                                                 #                         P'S ARE THE SF CONSTANT1 CODE NUMBER
015019,001091:                                                                                                 #                         P'S ARE THE SF CONSTANT1 CODE NUMBER    1 COMPONENT CASE
015020,001092: 
015021,001093:                                                                                                 #  THERE IS ALSO AN INDIRECT ADDRESS TABLE (IDADDTAB) FOR MIXED CASE ONLY.
015022,001094:                                                                                                 #  EACH ENTRY CONTAINS ONE ECADR.  IDADDREL IS THE RELATIVE ADDRESS OF
015023,001095:                                                                                                 #  THE FIRST OF THESE ENTRIES.
015024,001096:                                                                                                 #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
015025,001097:                                                                                                 #  THEY ARE LISTED IN ORDER OF ASCENDING K.
015026,001098: 
015027,001099:                                                                                                 #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE (RUTMXTAB) FOR MIXED
015028,001100:                                                                                                 #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
015029,001101: 
015030,001102:                                                                                                 #         QQQQQRRRRRSSSSS
015031,001103: 
015032,001104:                                                                                                 #  Q'S ARE THE SF ROUTINE 3 CODE NUMBER           3 COMPONENT CASE
015033,001105:                                                                                                 #  R'S ARE THE SF ROUTINE 2 CODE NUMBER
015034,001106:                                                                                                 #  S'S ARE THE SF ROUTINE 1 CODE NUMBER
015035,001107:                                                                                                 #  R'S ARE THE SF ROUTINE 2 CODE NUMBER           2 COMPONENT CASE
015036,001108:                                                                                                 #  S'S ARE THE SF ROUTINE 1 CODE NUMBER
015037,001109: 
015038,001110:                                                                                                 #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
015039,001111:                                                                                                 #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMONENTS IN NOUN.
015040,001112:                                                                                                 #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
015041,001113: 
015042,001114:                                                                                                 #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
015043,001115:                                                                                                 #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
015044,001116: 
015045,001117:                                                                                                 #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
015046,001118:                                                                                                 #  BEFORE EACH ENTER. IF NOT, ALARM.
015047,001119: 

Page 342

015049,001121: 
015050,001122:                                                                                                 #  DISPLAY VERBS
015051,001123: 
015052,001124: 41,2352           44767        DSPABC            CS       TWO                                   
015053,001125: 41,2353           02423                          TC       COMPTEST                              
015054,001126: 41,2354           50145                          INDEX    NOUNADD                               
015055,001127: 41,2355           40002                          CS       2                                     
015056,001128: 41,2356           56132                          XCH      BUF        +2                         
015057,001129: 41,2357           44770        DSPAB             CS       ONE                                   
015058,001130: 41,2360           02423                          TC       COMPTEST                              
015059,001131: 41,2361           50145                          INDEX    NOUNADD                               
015060,001132: 41,2362           40001                          CS       1                                     
015061,001133: 41,2363           56131                          XCH      BUF        +1                         
015062,001134: 41,2364           44772        DSPA              CS       ZERO                                  
015063,001135: 41,2365           02436                          TC       DCOMPTST                              
015064,001136: 41,2366           02461                          TC       TSTFORDP                              
015065,001137: 41,2367           50145                          INDEX    NOUNADD                               
015066,001138: 41,2370           40000                          CS       0                                     
015067,001139: 41,2371           02403                          TC       DSPCOM1                               
015068,001140: 41,2372           44770        DSPB              CS       ONE                                   
015069,001141: 41,2373           02436                          TC       DCOMPTST                              
015070,001142: 41,2374           50145                          INDEX    NOUNADD                               
015071,001143: 41,2375           40001                          CS       1                                     
015072,001144: 41,2376           02403                          TC       DSPCOM1                               
015073,001145: 41,2377           44767        DSPC              CS       TWO                                   
015074,001146: 41,2400           02436                          TC       DCOMPTST                              
015075,001147: 41,2401           50145                          INDEX    NOUNADD                               
015076,001148: 41,2402           40002                          CS       2                                     
015077,001149: 41,2403           56130        DSPCOM1           XCH      BUF                                   
015078,001150: 41,2404           44767        DSPCOM2           CS       TWO                                   #  A  B  C  AB ABC
015079,001151: 41,2405           61204                          AD       VERBREG                               #  -1 -0 +1 +2 +3  IN A
015080,001152: 41,2406           10000                 +2       CCS      A                                     #  +0 +0 +0 +1 +2  IN A AFTER CCS
015081,001153: 41,2407           02412                          TC       DSPCOM3                               
015082,001154: 41,2410           00136                          TC       ENTEXIT                               
015083,001155: 41,2411           02412                          TC       +1                                    
015084,001156: 41,2412           54122        DSPCOM3           TS       DISTEM                                #  +0 +1 +2 INTO DISTEM
015085,001157: 41,2413           50000                          INDEX    A                                     
015086,001158: 41,2414           34321                          CAF      R1D1                                  
015087,001159: 41,2415           55202                          TS       DSPCOUNT                              
015088,001160: 41,2416           50122                          INDEX    DISTEM                                
015089,001161: 41,2417           40130                          CS       BUF                                   
015090,001162: 41,2420           03351                          TC       DSPOCTWO                              
015091,001163: 41,2421           56122                          XCH      DISTEM                                
015092,001164: 41,2422           02406                          TC       DSPCOM2    +2                         
015093,001165: 
015094,001166:                                                                                                 #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
015095,001167:                                                                                                 #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
015096,001168: 
015097,001169: 41,2423           54123        COMPTEST          TS       SFTEMP1                               #  - VERB COMP
015098,001170: 41,2424           22002                          LXCH     Q                                     
015099,001171: 41,2425           02510        COMPTST1          TC       GETCOMP                               
015100,001172: 41,2426           04333                          TC       LEFT5                                 
015101,001173: 41,2427           76214                          MASK     THREE                                 #  NOUN COMP

Page 343

015103,001175: 41,2430           60123                          AD       SFTEMP1                               #  NOUN COMP - VERB COMP
015104,001176: 41,2431           10000                          CCS      A                                     
015105,001177: 41,2432           00001                          TC       L                                     #  NOUN COMP G/ VERB COMP
015106,001178: 41,2433           04151        MONBACK           ADRES    PASTEVB                               #  CANNOT GET HERE
015107,001179: 41,2434           02350                          TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
015108,001180: 41,2435           00001        NDCMPTST          TC       L                                     #  NOUN COMP = VERB COMP
015109,001181: 
015110,001182:                                                                                                 #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
015111,001183:                                                                                                 #  IF NOT, IT PERFORMS REGULAR COMPTEST.
015112,001184: 
015113,001185: 41,2436           54123        DCOMPTST          TS       SFTEMP1                               #  - VERB COMP
015114,001186: 41,2437           22002                          LXCH     Q                                     
015115,001187: 41,2440           02510                          TC       GETCOMP                               
015116,001188: 41,2441           74753                          MASK     BIT14                                 
015117,001189: 41,2442           10000                          CCS      A                                     
015118,001190: 41,2443           02350                          TC       GODSPALM                              
015119,001191: 41,2444           02425                          TC       COMPTST1                              
015120,001192: 41,2445           22002        DCTSTCYC          LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
015121,001193: 41,2446           02510                          TC       GETCOMP                               #  (BIT4 OF COMP CODE NUMBER). RETURNS
015122,001194: 41,2447           74753                          MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
015123,001195: 41,2450           10000                          CCS      A                                     
015124,001196: 41,2451           04173                          TC       ALMCYCLE                              
015125,001197: 41,2452           00001                          TC       L                                     
015126,001198: 
015127,001199:                                                                                                 #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
015128,001200:                                                                                                 #  IF NOT, IT RETURNS.
015129,001201: 
015130,001202: 41,2453           22002        NOUNTEST          LXCH     Q                                     
015131,001203: 41,2454           02510                          TC       GETCOMP                               
015132,001204: 41,2455           10000                          CCS      A                                     
015133,001205: 41,2456           00001                          TC       L                                     
015134,001206: 41,2457           00001                          TC       L                                     
015135,001207: 41,2460           02350                          TC       GODSPALM                              
015136,001208: 
015137,001209: 41,2461           22002        TSTFORDP          LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
015138,001210: 41,2462           30146                          CA       NNADTEM                               
015139,001211: 41,2463           64770                          AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015140,001212: 41,2464           00006                          EXTEND                                         
015141,001213: 41,2465           12477                          BZF      CHANDSP                               
015142,001214: 41,2466           50140                          INDEX    MIXBR                                 
015143,001215: 41,2467           02467                          TC       +0                                    
015144,001216: 41,2470           02472                          TC       +2                                    #  NORMAL
015145,001217: 41,2471           00001                          TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
015146,001218: 41,2472           03025                          TC       SFRUTNOR                              
015147,001219: 41,2473           02260                          TC       DPTEST                                
015148,001220: 41,2474           00001                          TC       L                                     #  NO DP
015149,001221: 41,2475           24145                          INCR     NOUNADD                               #  DP     E+1 INTO NOUNADD FOR MINOR PART.
015150,001222: 41,2476           00001                          TC       L                                     
015151,001223: 

Page 344

015153,001225: 
015154,001226: 41,2477           31222        CHANDSP           CA       NOUNCADR                              
015155,001227: 41,2500           75021                          MASK     LOW9                                  
015156,001228: 41,2501           00006                          EXTEND                                         
015157,001229: 41,2502           50000                          INDEX    A                                     
015158,001230: 41,2503           00000                          READ     0                                     
015159,001231: 41,2504           40000                          CS       A                                     
015160,001232: 41,2505           12403                          TCF      DSPCOM1                               
015161,001233: 
015162,001234: 41,2506           00147        COMPICK           ADRES    NNTYPTEM                              
015163,001235: 41,2507           00146                          ADRES    NNADTEM                               
015164,001236: 
015165,001237: 41,2510           50140        GETCOMP           INDEX    MIXBR                                 #  NORMAL                 MIXED
015166,001238: 41,2511           32505                          CAF      COMPICK    -1                         #  ADRES NNTYPTEM         ADRES NNADTEM
015167,001239: 41,2512           50000                          INDEX    A                                     
015168,001240: 41,2513           30000                          CA       0                                     #  C(NNTYPTEM)                    C(NNADTEM)
015169,001241: 41,2514           74344                          MASK     HI5                                   #  GET HI5 OF NNTYPTAB (NORM) OF NNADTAB (MIX)
015170,001242: 41,2515           00002                          TC       Q                                     
015171,001243: 
015172,001244: 41,2516           02510        DECDSP            TC       GETCOMP                               
015173,001245: 41,2517           04333                          TC       LEFT5                                 
015174,001246: 41,2520           76214                          MASK     THREE                                 
015175,001247: 41,2521           54117                          TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
015176,001248: 41,2522           54122        DSPDCGET          TS       DECTEM                                #  PICKS UP DATA
015177,001249: 41,2523           60145                          AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
015178,001250: 41,2524           50000                          INDEX    A                                     
015179,001251: 41,2525           40000                          CS       0                                     
015180,001252: 41,2526           50122                          INDEX    DECTEM                                
015181,001253: 41,2527           57206                          XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
015182,001254: 41,2530           10122                          CCS      DECTEM                                
015183,001255: 41,2531           02522                          TC       DSPDCGET                              #  MORE TO GET
015184,001256: 41,2532           34772        DSPDCPUT          CAF      ZERO                                  #  DISPLAYS DATA
015185,001257: 41,2533           54155                          TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
015186,001258: 41,2534           54156                          TS       MPAC       +2                         
015187,001259: 41,2535           50117                          INDEX    DECOUNT                               
015188,001260: 41,2536           34321                          CAF      R1D1                                  
015189,001261: 41,2537           55202                          TS       DSPCOUNT                              
015190,001262: 41,2540           50117                          INDEX    DECOUNT                               
015191,001263: 41,2541           41206                          CS       XREG                                  
015192,001264: 41,2542           54154                          TS       MPAC                                  
015193,001265: 41,2543           03042                          TC       SFCONUM                               #  2X (SF CON NUMB) IN A
015194,001266: 41,2544           54123                          TS       SFTEMP1                               
015195,001267: 41,2545           00006                          EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
015196,001268: 41,2546           32560                          DCA      GTSFOUTL                              #     READING ROUTINE.
015197,001269: 41,2547           52006                          DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2
015198,001270: 41,2550           50140                          INDEX    MIXBR                                 
015199,001271: 41,2551           02551                          TC       +0                                    
015200,001272: 41,2552           02555                          TC       DSPSFNOR                              
015201,001273: 41,2553           03033                          TC       SFRUTMIX                              

Page 345

015203,001275: 41,2554           02570                          TC       DECDSP3                               
015204,001276: 
015205,001277: 41,2555           03025        DSPSFNOR          TC       SFRUTNOR                              
015206,001278: 41,2556           02570                          TC       DECDSP3                               
015207,001279: 
015208,001280: 41,2557     1202                                 EBANK=   DSPCOUNT                              
015209,001281: 41,2557           02114 64102  GTSFOUTL          2CADR    GTSFOUT                               
015210,001282: 
015211,001283: 41,2561           04636        DSPDCEND          TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
015212,001284: 41,2562           61072                          CADR     DSPDECWD                              
015213,001285: 41,2563           10117                 +2       CCS      DECOUNT                               
015214,001286: 41,2564           02566                          TC       +2                                    
015215,001287: 41,2565           00136                          TC       ENTEXIT                               
015216,001288: 41,2566           54117                          TS       DECOUNT                               
015217,001289: 41,2567           02532                          TC       DSPDCPUT                              #  MORE TO DISPLAY
015218,001290: 
015219,001291: 41,2570           50000        DECDSP3           INDEX    A                                     
015220,001292: 41,2571           32573                          CAF      SFOUTABR                              
015221,001293: 41,2572           04660                          TC       BANKJUMP                              
015222,001294: 
015223,001295: 41,2573           61260        SFOUTABR          CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
015224,001296: 41,2574           62561                          CADR     DSPDCEND                              
015225,001297: 41,2575           60531                          CADR     DEGOUTSF                              
015226,001298: 41,2576           60563                          CADR     ARTOUTSF                              
015227,001299: 41,2577           60574                          CADR     DP1OUTSF                              
015228,001300: 41,2600           60601                          CADR     DP2OUTSF                              
015229,001301: 41,2601           60505                          CADR     OPDEGOUT                              
015230,001302: 41,2602           60603                          CADR     DP3OUTSF                              
015231,001303: 41,2603           65137                          CADR     HMSOUT                                
015232,001304: 41,2604           65212                          CADR     M/SOUT                                
015233,001305: 41,2605           60601                          CADR     DP2OUTSF                              
015234,001306: 41,2606           60570                          CADR     AROUT1SF                              
015235,001307: 41,2607           60616                          CADR     2INTOUT                               
015236,001308: 41,2610           60633                          CADR     DPFRACOT                              
015237,001309: 
015238,001310:                                                                                                 #  THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESULTS
015239,001311:                                                                                                 #  IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
015240,001312: 
015241,001313: 40,2000                                          SETLOC   PINBALL1                              
015242,001314: 40,2000                                          BANK                                           
015243,001315: 40,2505                                          COUNT*   $$/PIN                                
015244,001316: 
015245,001317:                                                                                                 #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
015246,001318: 
015247,001319: 40,2505           10154        OPDEGOUT          CCS      MPAC                                  #  RANGE IS 90 DEG
015248,001320: 40,2506           56154                          XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
015249,001321: 40,2507           02512                          TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
015250,001322: 40,2510           02521                          TC       NEGOPT                                #  IF NEG NON ZERO

Page 346

015252,001324: 40,2511           67702                          AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
015253,001325: 40,2512           62562                          AD       20BIAS                                
015254,001326: 40,2513           54154        BIASCOM           TS       MPAC                                  #  TEST FOR OVEFLOW
015255,001327: 40,2514           02517                          TC       +3                                    #  NO OVFLOW
015256,001328: 40,2515           34752                          CAF      BIT15                                 #  IF OVFLOW
015257,001329: 40,2516           26154                          ADS      MPAC                                  
015258,001330: 40,2517           34767                          CAF      TWO                                   #  SET MULTIPLIER TO .45
015259,001331: 40,2520           02532                          TC       DEGOUTSF   +1                         
015260,001332: 
015261,001333: 40,2521           56154        NEGOPT            XCH      MPAC                                  #  NEGATIVE CASE
015262,001334: 40,2522           62562                          AD       20BIAS                                
015263,001335: 40,2523           10000                          CCS      A                                     
015264,001336: 40,2524           02513                          TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECASUE OF 2SCOM
015265,001337: 40,2525           71527        NEG.2             OCT      -06250                                #  =.197753906 TRUN BIAS (CANNOT GET HERE)
015266,001338: 40,2526           64770                          AD       ONE                                   #  IF NEG RESTORE SUM
015267,001339: 40,2527           40000                          COM                                            #  IF NEG 0 LEAVE NEG 0
015268,001340: 40,2530           02513                          TC       BIASCOM                               
015269,001341: 
015270,001342:                                                                                                 #  DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
015271,001343:                                                                                                 #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
015272,001344: 
015273,001345: 40,2531           34772        DEGOUTSF          CAF      ZERO                                  
015274,001346: 40,2532           54156                 +1       TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
015275,001347: 40,2533           10154                          CCS      MPAC                                  
015276,001348: 40,2534           12546                          TCF      DEGCOM                                #  NO AUGMENT NEEDED (SFTEMP1,SFTEMP2 ARE 0,
015277,001349: 40,2535           12546                          TCF      DEGCOM                                #  MPAC IS +)
015278,001350: 40,2536           12537                          TCF      +1                                    
015279,001351: 40,2537           44752                          CS       BIT15                                 #  MPAC IS -, MASK OUT SIGN BIT AND ADD
015280,001352: 40,2540           70154                          MASK     MPAC                                  #  AUGMENTER ACCORDING TO C(MPAC +2)
015281,001353: 40,2541           54154                          TS       MPAC                                  
015282,001354: 40,2542           00006                          EXTEND                                         
015283,001355: 40,2543           50156                          INDEX    MPAC       +2                         
015284,001356: 40,2544           32557                          DCA      DEGTAB                                #  LOADS SFTEMP1 AND SFTEMP2 WITH DP AUGMENTER
015285,001357: 40,2545           52124                          DXCH     SFTEMP1                               #  CONSTANT
015286,001358: 40,2546           00006        DEGCOM            EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
015287,001359: 40,2547           50156                          INDEX    MPAC       +2                         #  ADDS AUTMENTER.
015288,001360: 40,2550           32557                          DCA      DEGTAB                                
015289,001361: 40,2551           52155                          DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
015290,001362: 40,2552           07256                          TC       SHORTMP                               
015291,001363: 40,2553           52124                          DXCH     SFTEMP1                               
015292,001364: 40,2554           20155                          DAS      MPAC                                  
015293,001365: 40,2555           02566                          TC       SCOUTEND                              
015294,001366: 
015295,001367: 40,2556           05605        DEGTAB            OCT      05605                                 #  HI PART OF     .18
015296,001368: 40,2557           03656                          OCT      03656                                 #  LOW PART OF    .18
015297,001369: 40,2560           16314                          OCT      16314                                 #  HI PART OF     .45
015298,001370: 40,2561           31463                          OCT      31463                                 #  LO PART OF     .45
015299,001371: 
015300,001372: 40,2562           16040        20BIAS            OCT      16040                                 #  20 DEG BIAS FOR OPTICS
015301,001373: 

Page 347

015303,001375: 
015304,001376: 40,2563           52124        ARTOUTSF          DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
015305,001377: 40,2564           52155                          DXCH     MPAC                                  
015306,001378: 40,2565           04403                          TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015307,001379: 40,2566           04655        SCOUTEND          TC       POSTJUMP                              
015308,001380: 40,2567           62561                          CADR     DSPDCEND                              
015309,001381: 
015310,001382: 40,2570           52124        AROUT1SF          DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
015311,001383: 40,2571           52155                          DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
015312,001384: 40,2572           04403                          TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
015313,001385: 40,2573           02575                          TC       L14/OUT                               
015314,001386: 
015315,001387: 40,2574           02607        DP1OUTSF          TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
015316,001388: 40,2575           56156        L14/OUT           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
015317,001389: 40,2576           56155                          XCH      MPAC       +1                         #  BY B14.
015318,001390: 40,2577           54154                          TS       MPAC                                  
015319,001391: 40,2600           02566                          TC       SCOUTEND                              
015320,001392: 
015321,001393: 40,2601           02607        DP2OUTSF          TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
015322,001394: 40,2602           02566                          TC       SCOUTEND                              
015323,001395: 
015324,001396: 40,2603           02607        DP3OUTSF          TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
015325,001397: 40,2604           36211                          CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
015326,001398: 40,2605           03034                          TC       TPLEFTN                               #  SHIFT LEFT 7.
015327,001399: 40,2606           02566                          TC       SCOUTEND                              
015328,001400: 
015329,001401: 40,2607     0162               MPAC+6            =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
015330,001402: 
015331,001403: 40,2607           56002        DPOUT             XCH      Q                                     
015332,001404: 40,2610           54162                          TS       MPAC+6                                
015333,001405: 40,2611           02635                          TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
015334,001406: 40,2612           07226                          TC       TPAGREE                               #  MAKE DP DATA AGREE
015335,001407: 40,2613           07052                          TC       DMP                                   
015336,001408: 40,2614           00123                          ADRES    SFTEMP1                               
015337,001409: 40,2615           00162                          TC       MPAC+6                                
015338,001410: 
015339,001411:                                                                                                 #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
015340,001412:                                                                                                 #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
015341,001413:                                                                                                 #  BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
015342,001414:                                                                                                 #  RXD1-RXD2.
015343,001415: 
015344,001416: 40,2616           02431        2INTOUT           TC       5BLANK                                #  TO BLANK RXD3
015345,001417: 40,2617           02310                          TC       +ON                                   #  TURN ON + SIGN
015346,001418: 40,2620           30154                          CA       MPAC                                  
015347,001419: 40,2621           03146                          TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
015348,001420: 40,2622           46214                          CS       THREE                                 
015349,001421: 40,2623           50117                          INDEX    DECOUNT                               
015350,001422: 40,2624           64321                          AD       R1D1                                  #  RXD4

Page 348

015352,001424: 40,2625           55202                          TS       DSPCOUNT                              
015353,001425: 40,2626           02635                          TC       READLO                                #  GET 2ND INTEGER
015354,001426: 40,2627           30155                          CA       MPAC       +1                         
015355,001427: 40,2630           03146                          TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
015356,001428: 40,2631           04655                          TC       POSTJUMP                              
015357,001429: 40,2632           62563                          CADR     DSPDCEND   +2                         
015358,001430: 
015359,001431: 40,2633           02635        DPFRACOT          TC       READLO                                #  DP FRACTION TO MPAC,+1
015360,001432: 40,2634           02566                          TC       SCOUTEND                              
015361,001433: 
015362,001434:                                                                                                 #  READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN
015363,001435:                                                                                                 #  MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
015364,001436:                                                                                                 #  DOES NOT FORCE TPAGREE.
015365,001437: 
015366,001438: 40,2635           56002        READLO            XCH      Q                                     
015367,001439: 40,2636           54144                          TS       TEM4                                  
015368,001440: 40,2637           50140                          INDEX    MIXBR                                 
015369,001441: 40,2640           02640                          TC       +0                                    
015370,001442: 40,2641           02655                          TC       RDLONOR                               
015371,001443: 40,2642           50117                          INDEX    DECOUNT                               
015372,001444: 40,2643           30150                          CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
015373,001445: 40,2644           74347                          MASK     LOW11                                 #  E SUBK
015374,001446: 40,2645           04315                          TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
015375,001447: 40,2646           00006        READLO1           EXTEND                                         #  MIXED                  NORMAL
015376,001448: 40,2647           50000                          INDEX    A                                     #  C(ESUBK)               C(E)
015377,001449: 40,2650           30001                          DCA      0                                     #  C((E SUBK)+1)          C(E+1)
015378,001450: 40,2651           52155                          DXCH     MPAC                                  
015379,001451: 40,2652           34772                          CAF      ZERO                                  
015380,001452: 40,2653           54156                          TS       MPAC       +2                         
015381,001453: 40,2654           00144                          TC       TEM4                                  
015382,001454: 
015383,001455: 40,2655           30145        RDLONOR           CA       NOUNADD                               #  E
015384,001456: 40,2656           02646        ENDRDLO           TC       READLO1                               
015385,001457: 
015386,001458: 
015387,001459: 42,2000                                          SETLOC   PINBALL3                              
015388,001460: 42,2000                                          BANK                                           
015389,001461: 
015390,001462: 42,3137                                          COUNT*   $$/PIN                                
015391,001463: 42,3137           04636        HMSOUT            TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
015392,001464: 42,3140           60635                          CADR     READLO                                #  MPAC+1.
015393,001465: 42,3141           07226                          TC       TPAGREE                               #  MAKE DP DATA AGREE
015394,001466: 42,3142           03326                          TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1. LEAVE
015395,001467:                                                                                                 #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
015396,001468: 42,3143           07052                          TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
015397,001469: 42,3144           03200                          ADRES    SECON2                                #  MULT BY .06
015398,001470: 42,3145           34323                          CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
015399,001471: 42,3146           55202                          TS       DSPCOUNT                              

Page 349

015401,001473: 42,3147           04636                          TC       BANKCALL                              #  DISPLAY SEC MOD 60
015402,001474: 42,3150           61072                          CADR     DSPDECWD                              
015403,001475: 42,3151           03344                          TC       SEPMIN                                #  REMOVE REST OF SECONDS
015404,001476: 42,3152           33202                          CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
015405,001477: 42,3153           56154                          XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
015406,001478: 42,3154           55212                          TS       HITEMOUT                              #  SAVE WHOLE HOURS.
015407,001479: 42,3155           33203                          CAF      MINCON2    +1                         
015408,001480: 42,3156           56155                          XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
015409,001481: 42,3157           04403                          TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015410,001482:                                                                                                 #  MULT BY .0006
015411,001483: 42,3160           34322                          CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
015412,001484: 42,3161           55202                          TS       DSPCOUNT                              
015413,001485: 42,3162           04636                          TC       BANKCALL                              #  DISPLAY MIN MOD 60
015414,001486: 42,3163           61072                          CADR     DSPDECWD                              
015415,001487: 42,3164           00006                          EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
015416,001488: 42,3165           33207                          DCA      HRCON1                                
015417,001489: 42,3166           52155                          DXCH     MPAC                                  
015418,001490: 42,3167           31212                          CA       HITEMOUT                              #  USE WHOLE HOURS
015419,001491: 42,3170           04403                          TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015420,001492:                                                                                                 #  MULT BY .16384
015421,001493: 42,3171           34321                          CAF      R1D1                                  #  GIVES HOURS/10EXP5
015422,001494: 42,3172           55202                          TS       DSPCOUNT                              
015423,001495: 42,3173           04636                          TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
015424,001496: 42,3174           61072                          CADR     DSPDECWD                              
015425,001497: 42,3175           00136                          TC       ENTEXIT                               
015426,001498: 
015427,001499: 42,3176           25660 31742  SECON1            2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
015428,001500: 
015429,001501: 42,3200           01727        SECON2            OCT      01727                                 #  .06 FOR SECONDS DISPLAY
015430,001502: 42,3201           01217                          OCT      01217                                 
015431,001503: 42,3202           00011        MINCON2           OCT      00011                                 #  .0006 FOR MINUTES DISPLAY
015432,001504: 42,3203           32445                 +1       OCT      32445                                 
015433,001505: 42,3204           02104        MINCON1           OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
015434,001506: 42,3205           10422                          OCT      10422                                 
015435,001507: 42,3206           05174 13261  HRCON1            2DEC     .16384                                
015436,001508: 
015437,001509: 42,3210           00000                 -1       OCT      00000                                 
015438,001510: 42,3211           00062        RNDCON            DEC      50         B-14                       #  *** USED DP WITH PRECEDING ZERO ***
015439,001511: 
015440,001512: 42,3212           04636        M/SOUT            TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
015441,001513: 42,3213           60635                          CADR     READLO                                #  MPAC+1.
015442,001514: 42,3214           07226                          TC       TPAGREE                               #  MAKE DP DATA AGREE
015443,001515: 42,3215           10154                          CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
015444,001516: 42,3216           03220                          TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
015445,001517: 42,3217           03251                          TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
015446,001518: 42,3220           63306                          AD       M/SCON1                               #  - HI PART OF (59M58.5) +1  FOR CCS
015447,001519: 42,3221           10000                          CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
015448,001520: 42,3222           03235                          TC       M/SLIMIT                              #  G/ 59M58.5S
015449,001521: 42,3223           03251                          TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
015450,001522: 42,3224           03251                          TC       M/SNORM                               #  L/ 59M58.5S
015451,001523: 42,3225           10155                          CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S

Page 350

015453,001525: 42,3226           03230                          TC       +2                                    
015454,001526: 42,3227           03251                          TC       M/SNORM                               #  MPAC+1 = +0.  L/ 59M58.5S
015455,001527: 42,3230           63307                          AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1 FOR CCS
015456,001528: 42,3231           10000                          CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
015457,001529: 42,3232           03235                          TC       M/SLIMIT                              #  G/ 59M58.5S
015458,001530: 42,3233           03251                          TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
015459,001531: 42,3234           03251                          TC       M/SNORM                               #  L/ 59M58.5S
015460,001532: 42,3235           10154        M/SLIMIT          CCS      MPAC                                  #  = 59M58.5S     LIMIT
015461,001533: 42,3236           33311                          CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
015462,001534: 42,3237           03246                          TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
015463,001535: 42,3240           43311                          CS       M/SCON3                               
015464,001536: 42,3241           54154                          TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
015465,001537: 42,3242           43312                          CS       M/SCON3    +1                         
015466,001538: 42,3243           54155        LIMITCOM          TS       MPAC       +1                         
015467,001539: 42,3244           33310                          CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
015468,001540: 42,3245           03327                          TC       SEPSECNR   +1                         
015469,001541: 42,3246           54154        +LIMIT            TS       MPAC                                  
015470,001542: 42,3247           33312                          CAF      M/SCON3    +1                         
015471,001543: 42,3250           03243                          TC       LIMITCOM                              
015472,001544: 42,3251           03313        M/SNORM           TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
015473,001545:                                                                                                 #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
015474,001546: 42,3252           33304                 +1       CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
015475,001547: 42,3253           07256                          TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
015476,001548: 42,3254           46214                          CS       THREE                                 #  GIVES SEC/100 MOD 60
015477,001549: 42,3255           27202                          ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
015478,001550: 42,3256           04636                          TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
015479,001551: 42,3257           61126                          CADR     DSPDC2NR                              
015480,001552: 42,3260           34772                          CAF      ZERO                                  
015481,001553: 42,3261           54124                          TS       CODE                                  
015482,001554: 42,3262           44767                          CS       TWO                                   
015483,001555: 42,3263           50117                          INDEX    DECOUNT                               
015484,001556: 42,3264           64321                          AD       R1D1                                  #  RXD3
015485,001557: 42,3265           54143                          TS       COUNT                                 
015486,001558: 42,3266           04636                          TC       BANKCALL                              #  BLANK MIDDLE CHAR
015487,001559: 42,3267           61161                          CADR     DSPIN                                 
015488,001560: 42,3270           03344                          TC       SEPMIN                                #  REMOVE REST OF SECONDS
015489,001561: 42,3271           56155                          XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
015490,001562: 42,3272           00006                          EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
015491,001563: 42,3273           73305                          MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
015492,001564: 42,3274           52155                          DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
015493,001565: 42,3275           50117                          INDEX    DECOUNT                               
015494,001566: 42,3276           34321                          CAF      R1D1                                  #  RXD1
015495,001567: 42,3277           55202                          TS       DSPCOUNT                              
015496,001568: 42,3300           04636                          TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
015497,001569: 42,3301           61126                          CADR     DSPDC2NR                              
015498,001570: 42,3302           04655                          TC       POSTJUMP                              
015499,001571: 42,3303           62563                          CADR     DSPDCEND   +2                         
015500,001572: 
015501,001573: 42,3304           23147        HISECON           OCT      23147                                 #  .6 + 2EXP-14
015502,001574: 42,3305           23346        HIMINCON          OCT      23346                                 #  .6 + 2EXP-7
015503,001575: 

Page 351

015505,001577: 
015506,001578: 42,3306           77753        M/SCON1           OCT      77753                                 #  - HI PART OF (59M58.5S) +1
015507,001579: 42,3307           41126        M/SCON2           OCT      41126                                 #  - LO PART OF (59M58.5S) +1
015508,001580: 42,3310           03252        NORMADR           ADRES    M/SNORM    +1                         
015509,001581: 42,3311           00025        M/SCON3           OCT      00025                                 #  59M 59.5S
015510,001582: 42,3312           37016                 +1       OCT      37016                                 
015511,001583: 42,3313           10155        SEPSEC            CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
015512,001584: 42,3314           13323                          TCF      POSEC                                 #  IF -, ROUND BY SUBTRACING .5 SEC
015513,001585: 42,3315           13323                          TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
015514,001586: 42,3316           13317                          TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
015515,001587: 42,3317           00006                          EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
015516,001588: 42,3320           43211                          DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
015517,001589: 42,3321           20155        SEPSEC1           DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
015518,001590: 42,3322           13326                          TCF      SEPSECNR                              
015519,001591: 42,3323           00006        POSEC             EXTEND                                         
015520,001592: 42,3324           33211                          DCA      RNDCON     -1                         
015521,001593: 42,3325           13321                          TCF      SEPSEC1                               
015522,001594: 42,3326           56002        SEPSECNR          XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
015523,001595: 42,3327           54144                 +1       TS       SEPSCRET                              
015524,001596: 42,3330           07052                          TC       DMP                                   #  MULT BY 2EXP12/6000
015525,001597: 42,3331           03176                          ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
015526,001598: 42,3332           00006                          EXTEND                                         #  AND BELOW.
015527,001599: 42,3333           30155                          DCA      MPAC                                  #  SAVE MINUTES AND HOURS
015528,001600: 42,3334           53213                          DXCH     HITEMOUT                              
015529,001601: 42,3335           04372                          TC       TPSL1                                 
015530,001602: 42,3336           04372                          TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
015531,001603: 42,3337           34772                          CAF      ZERO                                  
015532,001604: 42,3340           56156                          XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
015533,001605: 42,3341           56155                          XCH      MPAC       +1                         
015534,001606: 42,3342           56154                          XCH      MPAC                                  
015535,001607: 42,3343           00144                          TC       SEPSCRET                              
015536,001608: 
015537,001609: 42,3344           56002        SEPMIN            XCH      Q                                     #  FIND WHOLE MINUTES IN BIT13
015538,001610: 42,3345           54144                          TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
015539,001611: 42,3346           31213                          CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
015540,001612: 42,3347           00006                          EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
015541,001613: 42,3350           74766                          MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
015542,001614: 42,3351           00006                          EXTEND                                         #  SR 12, THROW AWAY LP.
015543,001615: 42,3352           74754                          MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
015544,001616: 42,3353           22155                          LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +.
015545,001617:                                                                                                 #  FORCES BITS 12-1 TO 1 IF -.
015546,001618: 42,3354           31212                          CA       HITEMOUT                              
015547,001619: 42,3355           54154                          TS       MPAC                                  
015548,001620: 42,3356           07052                          TC       DMP                                   #  MULT BY 1/15
015549,001621: 42,3357           03204                          ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
015550,001622: 42,3360           00144        ENDSPMIN          TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
015551,001623: 
015552,001624:                                                                                                 #  THIS IS A SPECIAL PURPOS VERB FOR DISPLAYING A DOUBLE PRECISION AGC
015553,001625:                                                                                                 #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH

Page 352

015555,001627:                                                                                                 #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
015556,001628:                                                                                                 #  OF THE REGISTER NOUNADD IS POINTING TO.  IF USED WITH NOUNS WHICH ARE
015557,001629:                                                                                                 #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
015558,001630:                                                                                                 #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
015559,001631: 
015560,001632: 40,2000                                          SETLOC   PINBALL1                              
015561,001633: 40,2000                                          BANK                                           
015562,001634: 40,2657                                          COUNT*   $$/PIN                                
015563,001635: 40,2657           50140        DSPDPDEC          INDEX    MIXBR                                 
015564,001636: 40,2660           02660                          TC       +0                                    
015565,001637: 40,2661           02663                          TC       +2                                    #  NORMAL NOUN
015566,001638: 40,2662           03261                          TC       DSPALARM                              
015567,001639: 40,2663           00006                          EXTEND                                         
015568,001640: 40,2664           50145                          INDEX    NOUNADD                               
015569,001641: 40,2665           30001                          DCA      0                                     
015570,001642: 40,2666           52155                          DXCH     MPAC                                  
015571,001643: 40,2667           34321                          CAF      R1D1                                  
015572,001644: 40,2670           55202                          TS       DSPCOUNT                              
015573,001645: 40,2671           07224                          TC       DPAGREE                               
015574,001646: 40,2672           03133                          TC       DSP2DEC                               
015575,001647: 40,2673           00136        ENDDPDEC          TC       ENTEXIT                               
015576,001648: 

Page 353

015578,001650:                                                                                                 #  LOAD VERBS             IF ALARM CONDITION IS DETECTED DURING EXECUTE,
015579,001651:                                                                                                 #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
015580,001652:                                                                                                 #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
015581,001653:                                                                                                 #  TO EXECUTE OF ORIGINAL LOAD VERB.  RECYCLE CAUSED BY  1) DECIMAL MACHINE
015582,001654:                                                                                                 #  CADR   2) MIXTURE OF OCTAL/DECIMAL DATA  3) OCTAL DATA INTO DECIMAL
015583,001655:                                                                                                 #  ONLY NOUN  4) DEC DATA INTO OCT ONLY NOUN  5) DATA TOO LARGE FOR SCALE
015584,001656:                                                                                                 #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8  (2)-(6) ALARM
015585,001657:                                                                                                 #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
015586,001658:                                                                                                 #  ENTER OF CADR.
015587,001659: 
015588,001660: 41,2000                                          SETLOC   PINBALL2                              
015589,001661: 41,2000                                          BANK                                           
015590,001662: 41,2611                                          COUNT*   $$/PIN                                
015591,001663: 41,2611           44767        ABCLOAD           CS       TWO                                   
015592,001664: 41,2612           02423                          TC       COMPTEST                              
015593,001665: 41,2613           02453                          TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
015594,001666: 41,2614           34353                          CAF      VBSP1LD                               
015595,001667: 41,2615           02336                          TC       UPDATVB    -1                         
015596,001668: 41,2616           02300                          TC       REQDATX                               
015597,001669: 41,2617           34354                          CAF      VBSP2LD                               
015598,001670: 41,2620           02336                          TC       UPDATVB    -1                         
015599,001671: 41,2621           02302                          TC       REQDATY                               
015600,001672: 41,2622           34615                          CAF      VBSP3LD                               
015601,001673: 41,2623           02336                          TC       UPDATVB    -1                         
015602,001674: 41,2624           02304                          TC       REQDATZ                               
015603,001675: 
015604,001676: 41,2625           46211        PUTXYZ            CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
015605,001677: 41,2626           03011                          TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
015606,001678: 41,2627           00006                          EXTEND                                         
015607,001679: 41,2630           32115                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015608,001680: 41,2631           52006                          DXCH     Z                                     #  ROUTINE.
015609,001681: 41,2632           34772                          CAF      ZERO                                  #  X COMP
015610,001682: 41,2633           03071                          TC       PUTCOM                                
015611,001683: 41,2634           50145                          INDEX    NOUNADD                               
015612,001684: 41,2635           54000                          TS       0                                     
015613,001685: 41,2636           34770                          CAF      ONE                                   #  Y COMP
015614,001686: 41,2637           03071                          TC       PUTCOM                                
015615,001687: 41,2640           50145                          INDEX    NOUNADD                               
015616,001688: 41,2641           54001                          TS       1                                     
015617,001689: 41,2642           34767                          CAF      TWO                                   #  Z COMP
015618,001690: 41,2643           03071                          TC       PUTCOM                                
015619,001691: 41,2644           50145                          INDEX    NOUNADD                               
015620,001692: 41,2645           54002                          TS       2                                     
015621,001693: 41,2646           44774                          CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
015622,001694: 41,2647           61205                          AD       NOUNREG                               #   FLAG BITS AS SPECIFIED.
015623,001695: 41,2650           00006                          EXTEND                                         
015624,001696: 41,2651           12653                          BZF      +2                                    
015625,001697: 41,2652           03001                          TC       LOADLV                                

Page 354

015627,001699: 41,2653           00004                          INHINT                                         
015628,001700: 41,2654           45001                          CS       OCT30                                 #  IS IT A CHANNEL (30 OR UNDER)
015629,001701: 41,2655           61206                          AD       XREG                                  
015630,001702: 41,2656           00006                          EXTEND                                         
015631,001703: 41,2657           62667                          BZMF     CHANBITS                              #  YES
015632,001704: 
015633,001705: 41,2660           31206                          CA       XREG                                  #  ECADR OF ERASABLE CELL
015634,001706: 41,2661           04306                          TC       SETNCADR   +1                         #  SET EBANK, NOUNADD
015635,001707: 
015636,001708: 41,2662           50145                          INDEX    NOUNADD                               
015637,001709: 41,2663           30000                          CA       0                                     
015638,001710: 41,2664           54001                          TS       L                                     
015639,001711: 41,2665           34770                          CAF      ONE                                   
015640,001712: 41,2666           55206                          TS       XREG                                  #  MAKE IT LOOK LIKE A CHANNEL FOR A WHILE
015641,001713: 
015642,001714: 41,2667           64352        CHANBITS          AD       OCT21                                 
015643,001715: 41,2670           00006                          EXTEND                                         
015644,001716: 41,2671           12714                          BZF      BITSOFF2                              #  DONT TOUCH CHAN7 (SUPERBANK)
015645,001717: 
015646,001718: 41,2672           31210                          CA       ZREG                                  
015647,001719: 41,2673           00006                          EXTEND                                         
015648,001720: 41,2674           62702                          BZMF     BITSOFF                               #  R3 IS ZERO FOR OFF, NONZERO FOR ON
015649,001721: 
015650,001722: 41,2675           31207                          CA       YREG                                  
015651,001723: 41,2676           00006                          EXTEND                                         
015652,001724: 41,2677           51206                          INDEX    XREG                                  
015653,001725: 41,2700           05000                          WOR      0                                     
015654,001726: 41,2701           12706                          TCF      BITSOFF1                              
015655,001727: 
015656,001728: 41,2702           41207        BITSOFF           CS       YREG                                  
015657,001729: 41,2703           00006                          EXTEND                                         
015658,001730: 41,2704           51206                          INDEX    XREG                                  
015659,001731: 41,2705           03000                          WAND     0                                     
015660,001732: 
015661,001733: 41,2706           11206        BITSOFF1          CCS      XREG                                  #  WAS IT REALLY A CHANNEL
015662,001734: 41,2707           10000                          CCS      A                                     
015663,001735: 41,2710           12714                          TCF      BITSOFF2                              #  YES
015664,001736: 
015665,001737: 41,2711           22000                          LXCH     A                                     
015666,001738: 41,2712           50145                 -2       INDEX    NOUNADD                               
015667,001739: 41,2713           54000                          TS       0                                     
015668,001740: 41,2714           00003        BITSOFF2          RELINT                                         
015669,001741: 41,2715           03001                          TC       LOADLV                                
015670,001742: 
015671,001743: 41,2716     5001               OCT30             =        BITS4&5                               
015672,001744: 41,2716     4352               OCT21             =        ND1                                   
015673,001745: 
015674,001746: 41,2716           44770        ABLOAD            CS       ONE                                   
015675,001747: 41,2717           02423                          TC       COMPTEST                              
015676,001748: 41,2720           02453                          TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.

Page 355

015678,001750: 41,2721           34353                          CAF      VBSP1LD                               
015679,001751: 41,2722           02336                          TC       UPDATVB    -1                         
015680,001752: 41,2723           02300                          TC       REQDATX                               
015681,001753: 41,2724           34354                          CAF      VBSP2LD                               
015682,001754: 41,2725           02336                          TC       UPDATVB    -1                         
015683,001755: 41,2726           02302                          TC       REQDATY                               
015684,001756: 41,2727           44773        PUTXY             CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
015685,001757: 41,2730           03011                          TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
015686,001758: 41,2731           00006                          EXTEND                                         
015687,001759: 41,2732           32115                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015688,001760: 41,2733           52006                          DXCH     Z                                     #  ROUTINE.
015689,001761: 41,2734           34772                          CAF      ZERO                                  #  X COMP
015690,001762: 41,2735           03071                          TC       PUTCOM                                
015691,001763: 41,2736           50145                          INDEX    NOUNADD                               
015692,001764: 41,2737           54000                          TS       0                                     
015693,001765: 41,2740           12760                          TCF      COMBLOAD                              #  Y COMP
015694,001766: 41,2741           02300        ALOAD             TC       REQDATX                               
015695,001767: 41,2742           00006                          EXTEND                                         
015696,001768: 41,2743           32115                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015697,001769: 41,2744           52006                          DXCH     Z                                     #  ROUTINE.
015698,001770: 41,2745           34772                          CAF      ZERO                                  #  X COMP
015699,001771: 41,2746           03071                          TC       PUTCOM                                
015700,001772: 41,2747           12712                          TCF      BITSOFF2   -2                         
015701,001773: 41,2750           44770        BLOAD             CS       ONE                                   
015702,001774: 41,2751           02423                          TC       COMPTEST                              
015703,001775: 41,2752           34752                          CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
015704,001776: 41,2753           55220                          TS       CLPASS                                
015705,001777: 41,2754           02302                          TC       REQDATY                               
015706,001778: 41,2755           00006                          EXTEND                                         
015707,001779: 41,2756           32115                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015708,001780: 41,2757           52006                          DXCH     Z                                     #  ROUTINE.
015709,001781: 41,2760           34770        COMBLOAD          CAF      ONE                                   
015710,001782: 41,2761           03071                          TC       PUTCOM                                
015711,001783: 41,2762           50145                          INDEX    NOUNADD                               
015712,001784: 41,2763           54001                          TS       1                                     
015713,001785: 41,2764           03001                          TC       LOADLV                                
015714,001786: 
015715,001787: 41,2765           44767        CLOAD             CS       TWO                                   
015716,001788: 41,2766           02423                          TC       COMPTEST                              
015717,001789: 41,2767           34752                          CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
015718,001790: 41,2770           55220                          TS       CLPASS                                
015719,001791: 41,2771           02304                          TC       REQDATZ                               
015720,001792: 41,2772           00006                          EXTEND                                         
015721,001793: 41,2773           32115                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015722,001794: 41,2774           52006                          DXCH     Z                                     #  ROUTINE.
015723,001795: 41,2775           34767                          CAF      TWO                                   
015724,001796: 41,2776           03071                          TC       PUTCOM                                
015725,001797: 41,2777           50145                          INDEX    NOUNADD                               
015726,001798: 41,3000           54002                          TS       2                                     
015727,001799: 41,3001           34772        LOADLV            CAF      ZERO                                  

Page 356

015729,001801: 41,3002           55203                          TS       DECBRNCH                              
015730,001802: 41,3003           44772                          CS       ZERO                                  
015731,001803: 41,3004           55217                          TS       LOADSTAT                              
015732,001804: 41,3005           04432                          TC       RELDSP                                #  RELEASE FOR PRIORITY DISPLAY PROBLEM.
015733,001805: 41,3006           04261                          TC       -VD1SET                               
015734,001806: 41,3007           04655                          TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
015735,001807: 41,3010           61412                          CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
015736,001808: 
015737,001809: 41,3011           54117        ALLDC/OC          TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
015738,001810: 41,3012           41203                          CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
015739,001811: 41,3013           54021                          TS       SR                                    
015740,001812: 41,3014           40021                          CS       SR                                    
015741,001813: 41,3015           40021                          CS       SR                                    #  SHIFTED RIGHT 2
015742,001814: 41,3016           10000                          CCS      A                                     #  DEC COMP BITS IN LOW 3
015743,001815: 41,3017           13021                          TCF      +2                                    #  SOME ONES IN LOW 3
015744,001816: 41,3020           00002        GOQ               TC       Q                                     #  ALL ZEROS. ALL OCTAL. OK
015745,001817: 41,3021           60117                          AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
015746,001818: 41,3022           00006                          EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
015747,001819: 41,3023           16711                          BZF      TCQ                                   #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
015748,001820: 41,3024           04173                          TC       ALMCYCLE                              #  ALARM AND RECYCLE.
015749,001821: 41,3025           56002        SFRUTNOR          XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
015750,001822: 41,3026           54114                          TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
015751,001823: 41,3027           34343                          CAF      MID5                                  
015752,001824: 41,3030           70147                          MASK     NNTYPTEM                              
015753,001825: 41,3031           04324                          TC       RIGHT5                                
015754,001826: 41,3032           00114                          TC       EXITEM                                #  SF ROUTINE NUMBER IN A
015755,001827: 
015756,001828: 41,3033           56002        SFRUTMIX          XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
015757,001829: 41,3034           54114                          TS       EXITEM                                
015758,001830: 41,3035           03063                          TC       GETTCRLQ                              
015759,001831: 41,3036           70153                          MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
015760,001832: 41,3037           50001                          INDEX    L                                     
015761,001833: 41,3040           00000                          TC       0                                     
015762,001834:                                                                                                 #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
015763,001835: 41,3041           00114        SFRET1            TC       EXITEM                                #  SF ROUTINE NUMBER IN A
015764,001836: 
015765,001837: 41,3042           56002        SFCONUM           XCH      Q                                     #  GETS 2X(SF CONSTANT NUMBER)
015766,001838: 41,3043           54114                          TS       EXITEM                                
015767,001839: 41,3044           50140                          INDEX    MIXBR                                 
015768,001840: 41,3045           03045                          TC       +0                                    
015769,001841: 41,3046           03060                          TC       CONUMNOR                              #  NORMAL NOUN
015770,001842: 41,3047           03063                          TC       GETTCRLQ                              
015771,001843: 41,3050           70147                          MASK     NNTYPTEM                              
015772,001844: 41,3051           50001                          INDEX    L                                     
015773,001845: 41,3052           00000                          TC       0                                     
015774,001846:                                                                                                 #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
015775,001847: 41,3053           60000        SFRET             DOUBLE                                         #  2X(SF CONSTANT NUMBER) IN A
015776,001848: 41,3054           00114                          TC       EXITEM                                
015777,001849: 
015778,001850: 41,3055           03020        DISPLACE          TC       GOQ                                   

Page 357

015780,001852: 41,3056           04324                          TC       RIGHT5                                
015781,001853: 41,3057           04333                          TC       LEFT5                                 
015782,001854: 
015783,001855: 41,3060           34342        CONUMNOR          CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
015784,001856: 41,3061           70147                          MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
015785,001857: 41,3062           13053                          TCF      SFRET                                 
015786,001858: 41,3063           50117        GETTCRLQ          INDEX    DECOUNT                               
015787,001859: 41,3064           33055                          CAF      DISPLACE                              
015788,001860: 41,3065           54001                          TS       L                                     #  PUT TC GOQ, TC RIGHT5, TC LEFT5 IN L.
015789,001861: 41,3066           50117                          INDEX    DECOUNT                               
015790,001862: 41,3067           34342                          CAF      LOW5                                  #  LOW5, MID5, HI5 IN A
015791,001863: 41,3070           00002                          TC       Q                                     
015792,001864: 41,3071           54117        PUTCOM            TS       DECOUNT                               
015793,001865: 41,3072           56002                          XCH      Q                                     
015794,001866: 41,3073           54115                          TS       DECRET                                
015795,001867: 41,3074           34772                          CAF      ZERO                                  
015796,001868: 41,3075           54162                          TS       MPAC+6                                
015797,001869: 41,3076           50117                          INDEX    DECOUNT                               
015798,001870: 41,3077           57211                          XCH      XREGLP                                
015799,001871: 41,3100           54155                          TS       MPAC       +1                         
015800,001872: 41,3101           50117                          INDEX    DECOUNT                               
015801,001873: 41,3102           57206                          XCH      XREG                                  
015802,001874: 41,3103           54154                          TS       MPAC                                  
015803,001875: 41,3104           50140                          INDEX    MIXBR                                 
015804,001876: 41,3105           03105                          TC       +0                                    
015805,001877: 41,3106           03133                          TC       PUTNORM                               #  NORMAL NOUN
015806,001878:                                                                                                 #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
015807,001879: 41,3107           50117                          INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
015808,001880: 41,3110           30150                          CA       IDAD1TEM                              #         OF NOUN.
015809,001881: 41,3111           74347                          MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
015810,001882: 41,3112           04305                          TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015811,001883: 41,3113           00006                          EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
015812,001884: 41,3114           60117                          SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
015813,001885: 41,3115           54145                          TS       NOUNADD                               
015814,001886: 41,3116           11203                          CCS      DECBRNCH                              
015815,001887: 41,3117           03170                          TC       PUTDECSF                              #  + DEC
015816,001888: 41,3120           02445                          TC       DCTSTCYC                              #  +0 OCTAL
015817,001889: 41,3121           03033                          TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1. IF SO,
015818,001890: 41,3122           02260                          TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
015819,001891: 41,3123           03151                          TC       PUTCOM2                               #  NO DP
015820,001892:                                                                                                 #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
015821,001893:                                                                                                 #  +0 INTO MAJOR PART. SET NOUNADD FOR
015822,001894:                                                                                                 #  LOADING OCTAL WORD INTO MINOR PART.
015823,001895: 41,3124           24145        PUTDPCOM          INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
015824,001896: 41,3125           30145                          CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
015825,001897: 41,3126           26117                          ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
015826,001898: 41,3127           34772                          CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
015827,001899: 41,3130           50117                          INDEX    DECOUNT                               
015828,001900: 41,3131           53777                          TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
015829,001901: 41,3132           03151                          TC       PUTCOM2                               
015830,001902: 

Page 358

015832,001904: 41,3133           04313        PUTNORM           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
015833,001905: 41,3134           11203                          CCS      DECBRNCH                              
015834,001906: 41,3135           03170                          TC       PUTDECSF                              #  + DEC
015835,001907: 41,3136           02445                          TC       DCTSTCYC                              #  +0 OCTAL
015836,001908: 41,3137           03025                          TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1.  IF SO,
015837,001909: 41,3140           02260                          TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
015838,001910: 41,3141           03145                          TC       PUTCOM2    -4                         #  NO DP
015839,001911: 41,3142           34772                          CAF      ZERO                                  #  DP
015840,001912: 41,3143           54117                          TS       DECOUNT                               
015841,001913: 41,3144           03124                          TC       PUTDPCOM                              
015842,001914: 
015843,001915: 41,3145           30146                 -4       CA       NNADTEM                               
015844,001916: 41,3146           64770                          AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015845,001917: 41,3147           00006                          EXTEND                                         
015846,001918: 41,3150           13155                          BZF      CHANLOAD                              
015847,001919: 41,3151           56154        PUTCOM2           XCH      MPAC                                  
015848,001920: 41,3152           00115                          TC       DECRET                                
015849,001921: 
015850,001922: 41,3153     1202                                 EBANK=   DSPCOUNT                              
015851,001923: 41,3153           02122 64102  GTSFINLC          2CADR    GTSFIN                                
015852,001924: 
015853,001925: 41,3155           44774        CHANLOAD          CS       SEVEN                                 #  DONT LOAD CHAN 7. (IT = SUPERBANK)
015854,001926: 41,3156           61222                          AD       NOUNCADR                              
015855,001927: 41,3157           00006                          EXTEND                                         
015856,001928: 41,3160           13001                          BZF      LOADLV                                
015857,001929: 41,3161           31222                          CA       NOUNCADR                              
015858,001930: 41,3162           75021                          MASK     LOW9                                  
015859,001931: 41,3163           56154                          XCH      MPAC                                  
015860,001932: 41,3164           00006                          EXTEND                                         
015861,001933: 41,3165           50154                          INDEX    MPAC                                  
015862,001934: 41,3166           01000                          WRITE    0                                     
015863,001935: 41,3167           03001                          TC       LOADLV                                
015864,001936: 
015865,001937:                                                                                                 #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
015866,001938: 
015867,001939: 41,3170           03042        PUTDECSF          TC       SFCONUM                               #  2X(SF CON NUMB) IN A
015868,001940: 41,3171           54123                          TS       SFTEMP1                               
015869,001941: 41,3172           00006                          EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
015870,001942: 41,3173           33154                          DCA      GTSFINLC                              #  READING ROUTINE.
015871,001943: 41,3174           52006                          DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
015872,001944: 41,3175           50140                          INDEX    MIXBR                                 
015873,001945: 41,3176           03176                          TC       +0                                    
015874,001946: 41,3177           03202                          TC       PUTSFNOR                              
015875,001947: 41,3200           03033                          TC       SFRUTMIX                              
015876,001948: 41,3201           03203                          TC       PUTDCSF2                              
015877,001949: 41,3202           03025        PUTSFNOR          TC       SFRUTNOR                              
015878,001950: 

Page 359

015880,001952: 41,3203           50000        PUTDCSF2          INDEX    A                                     
015881,001953: 41,3204           33206                          CAF      SFINTABR                              
015882,001954: 41,3205           04660                          TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSION ROOM
015883,001955: 41,3206           62347        SFINTABR          CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
015884,001956:                                                                                                 #  WITH OCTAL ONLY NOUN.
015885,001957: 41,3207           60753                          CADR     BINROUND                              
015886,001958: 41,3210           60674                          CADR     DEGINSF                               
015887,001959: 41,3211           60743                          CADR     ARTHINSF                              
015888,001960: 41,3212           60776                          CADR     DPINSF                                
015889,001961: 41,3213           61023                          CADR     DPINSF2                               
015890,001962: 41,3214           60761                          CADR     OPTDEGIN                              
015891,001963: 41,3215           60776                          CADR     DPINSF                                #  SAME AS ARITHDP1
015892,001964: 41,3216           65361                          CADR     HMSIN                                 
015893,001965: 41,3217           61261                          CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
015894,001966: 41,3220           61027                          CADR     DPINSF4                               
015895,001967: 41,3221           60756                          CADR     ARTIN1SF                              
015896,001968: 41,3222           61261                          CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
015897,001969: 41,3223           61007                          CADR     DPFRACIN                              
015898,001970: 
015899,001971:                                                                                                 #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
015900,001972:                                                                                                 #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
015901,001973: 
015902,001974: 40,2000                                          SETLOC   PINBALL1                              
015903,001975: 40,2000                                          BANK                                           
015904,001976: 40,2674                                          COUNT*   $$/PIN                                
015905,001977: 
015906,001978:                                                                                                 #  DEGINSF APPLIES 1000/180 * 5.55555(10) = 5.43434(8)
015907,001979: 
015908,001980: 40,2674           07052        DEGINSF           TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
015909,001981: 40,2675           02737                          ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
015910,001982: 40,2676           10155                          CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
015911,001983: 40,2677           34756                          CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
015912,001984: 40,2700           02702                          TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
015913,001985: 40,2701           44756                          CS       BIT11                                 
015914,001986: 40,2702           60155                          AD       MPAC       +1                         
015915,001987: 40,2703           03046                          TC       2ROUND     +2                         
015916,001988: 40,2704           04372                          TC       TPSL1                                 #  LEFT 1
015917,001989: 40,2705           04372        DEGINSF2          TC       TPSL1                                 #  LEFT 2
015918,001990: 40,2706           03051                          TC       TESTOFUF                              
015919,001991: 40,2707           04372                          TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
015920,001992: 40,2710           10154                          CCS      MPAC                                  
015921,001993: 40,2711           02715                          TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
015922,001994: 40,2712           02715                          TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
015923,001995: 40,2713           40000                          COM                                            #  IF -, USE -MAGNITUDE +1
015924,001996: 40,2714           54154                          TS       MPAC                                  #  IF -0, USE +0
015925,001997: 40,2715           10162        SIGNFIX           CCS      MPAC+6                                
015926,001998: 40,2716           02733                          TC       SGNTO1                                #  IF OVERFLOW
015927,001999: 40,2717           02727                          TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
015928,002000: 40,2720           10154                          CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
015929,002001: 40,2721           04151        MONADR            GENADR   PASTEVB                               #  CANNOT GET HERE
015930,002002: 40,2722           02731                          TC       NEG180                                

Page 360

015932,002004: 40,2723           02724                          TC       +1                                    
015933,002005: 40,2724           56154                          XCH      MPAC                                  
015934,002006: 40,2725           74750                          MASK     POSMAX                                
015935,002007: 40,2726           54154                 -1       TS       MPAC                                  
015936,002008: 40,2727           04655        ENDSCALE          TC       POSTJUMP                              
015937,002009: 40,2730           63151                          CADR     PUTCOM2                               
015938,002010: 
015939,002011: 40,2731           44750        NEG180            CS       POSMAX                                
015940,002012: 40,2732           02726                          TC       ENDSCALE   -1                         
015941,002013: 
015942,002014: 40,2733           40154        SGNTO1            CS       MPAC                                  #  IF OF FORCE SIGN TO 1
015943,002015: 40,2734           74750                          MASK     POSMAX                                
015944,002016: 40,2735           40000                          CS       A                                     
015945,002017: 40,2736           02726                          TC       ENDSCALE   -1                         
015946,002018: 
015947,002019: 40,2737           26161 30707  DEGCON1           2DEC     5.555555555 B-3                        
015948,002020: 
015949,002021: 40,2741           21616 07071  DEGCON2           2DEC     2.222222222 B-2                        
015950,002022: 
015951,002023: 40,2743           07052        ARTHINSF          TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
015952,002024: 40,2744           00123                          ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
015953,002025: 40,2745           56156                          XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
015954,002026: 40,2746           56155                          XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
015955,002027: 40,2747           56154                          XCH      MPAC                                  
015956,002028: 40,2750           00006                          EXTEND                                         
015957,002029: 40,2751           12753                          BZF      BINROUND                              
015958,002030: 40,2752           04173                          TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
015959,002031: 40,2753           03044        BINROUND          TC       2ROUND                                
015960,002032: 40,2754           03051                          TC       TESTOFUF                              
015961,002033: 40,2755           02727                          TC       ENDSCALE                              #  RETURNS IF NO OF/UF
015962,002034: 
015963,002035: 40,2756           07052        ARTIN1SF          TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
015964,002036: 40,2757           00123                          ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
015965,002037: 40,2760           02753                          TC       BINROUND                              
015966,002038: 
015967,002039: 40,2761           10154        OPTDEGIN          CCS      MPAC                                  #  OPTICS SCALING ROUTINE
015968,002040: 40,2762           02766                          TC       +4                                    
015969,002041: 40,2763           02766                          TC       +3                                    
015970,002042: 40,2764           04173                          TC       ALMCYCLE                              #  REJECT - INPUT. ALARM AND RECYCLE.
015971,002043: 40,2765           04173                          TC       ALMCYCLE                              #  REJECT - INPUT. ALARM AND RECYCLE.
015972,002044: 40,2766           32525        OPDEGIN2          CAF      NEG.2                                 #  RANGE IS 90 DEG
015973,002045: 40,2767           26154                          ADS      MPAC                                  #  SUBTRACT BIAS
015974,002046: 40,2770           07052                          TC       DMP                                   #  MULT BY 100 / 45 B-2
015975,002047: 40,2771           02741                          ADRES    DEGCON2                               
015976,002048: 40,2772           34755                          CAF      BIT12                                 #  ROUND AS IN DEGINSF
015977,002049: 40,2773           60155                          AD       MPAC       +1                         
015978,002050: 40,2774           03046                          TC       2ROUND     +2                         

Page 361

015980,002052: 40,2775           02705                          TC       DEGINSF2                              
015981,002053: 
015982,002054: 40,2776           07052        DPINSF            TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
015983,002055: 40,2777           00123                          ADRES    SFTEMP1                               #  SFTEMP. STORES LOW PART OF RESULT
015984,002056: 40,3000           56156                 +2       XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
015985,002057: 40,3001           60000                          DOUBLE                                         
015986,002058: 40,3002           54156                          TS       MPAC       +2                         
015987,002059: 40,3003           34772                          CAF      ZERO                                  
015988,002060: 40,3004           60155                          AD       MPAC       +1                         
015989,002061: 40,3005           03046                          TC       2ROUND     +2                         
015990,002062: 40,3006           03051                          TC       TESTOFUF                              
015991,002063: 40,3007           50140        DPFRACIN          INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
015992,002064: 40,3010           03010                          TC       +0                                    
015993,002065: 40,3011           03021                          TC       DPINORM                               
015994,002066: 40,3012           30117                          CA       DECOUNT                               #  MIXED NOUN
015995,002067: 40,3013           60145        DPINCOM           AD       NOUNADD                               #         MIXED           NORMAL
015996,002068: 40,3014           54002                          TS       Q                                     #         E SUBK          E
015997,002069: 40,3015           56155                          XCH      MPAC       +1                         
015998,002070: 40,3016           50002                          INDEX    Q                                     
015999,002071: 40,3017           54001                          TS       1                                     #  PLACE LOW PART IN
016000,002072: 40,3020           02727                          TC       ENDSCALE                              #  (E SUBK) +1    MIXED
016001,002073: 40,3021           34772        DPINORM           CAF      ZERO                                  #  E +1           NORMAL
016002,002074: 40,3022           03013                          TC       DPINCOM                               
016003,002075: 
016004,002076: 40,3023           07052        DPINSF2           TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
016005,002077: 40,3024           00123                          ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016006,002078: 40,3025           36211                          CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
016007,002079: 40,3026           13032                          TCF      +4                                    #  SHIFT LEFT 7.
016008,002080: 40,3027           07052        DPINSF4           TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
016009,002081: 40,3030           00123                          ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016010,002082: 40,3031           34767                          CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
016011,002083: 40,3032           03034                          TC       TPLEFTN                               #  SHIFT LEFT 3.
016012,002084: 40,3033           03000                          TC       DPINSF     +2                         
016013,002085: 
016014,002086: 40,3034           56002        TPLEFTN           XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
016015,002087: 40,3035           54124                          TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
016016,002088: 40,3036           56002                          XCH      Q                                     #  CALL WITH N-1 IN A.
016017,002089: 40,3037           54123        LEFTNCOM          TS       SFTEMP1                               #         LOOP TIME .37 MSEC.
016018,002090: 40,3040           04372                          TC       TPSL1                                 
016019,002091: 40,3041           10123                          CCS      SFTEMP1                               
016020,002092: 40,3042           03037                          TC       LEFTNCOM                              
016021,002093: 40,3043           00124                          TC       SFTEMP2                               
016022,002094: 
016023,002095: 40,3044           56155        2ROUND            XCH      MPAC       +1                         
016024,002096: 40,3045           60000                          DOUBLE                                         
016025,002097: 40,3046           54155                 +2       TS       MPAC       +1                         
016026,002098: 40,3047           00002                          TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF

Page 362

016028,002100: 40,3050           14376                          TCF      TPSL1      +4                         #  CHECK FOR MPAC OF/UF
016029,002101: 40,3051           30162        TESTOFUF          CA       MPAC+6                                #  RETURNS IF NO OF/UF
016030,002102: 40,3052           00006                          EXTEND                                         
016031,002103: 40,3053           16711                          BZF      TCQ                                   
016032,002104: 40,3054           04173                          TC       ALMCYCLE                              #  UF     ALARM AND RECYCLE.
016033,002105: 
016034,002106: 42,2000                                          SETLOC   PINBALL3                              
016035,002107: 42,2000                                          BANK                                           
016036,002108: 42,3361                                          COUNT*   $$/PIN                                
016037,002109: 42,3361           41203        HMSIN             CS       DECBRNCH                              #  CHECK FOR ALL 3 COMPS DEC
016038,002110: 42,3362           74172                          MASK     OCT34                                 #  BITS 3,4,5
016039,002111: 42,3363           10000                          CCS      A                                     
016040,002112: 42,3364           03501                          TC       FORCEV25                              
016041,002113: 42,3365           07052                          TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
016042,002114: 42,3366           03444                          ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
016043,002115: 42,3367           03453                          TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
016044,002116: 42,3370           34772                          CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383).
016045,002117: 42,3371           54156                          TS       MPAC       +2                         
016046,002118: 42,3372           33446                          CAF      HRCON                                 
016047,002119: 42,3373           54154                          TS       MPAC                                  
016048,002120: 42,3374           33447                          CAF      HRCON      +1                         
016049,002121: 42,3375           56155                          XCH      MPAC       +1                         
016050,002122: 42,3376           07256                          TC       SHORTMP                               
016051,002123: 42,3377           03464                          TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
016052,002124: 42,3400           52156                          DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
016053,002125: 42,3401           52124                          DXCH     HITEMIN                               
016054,002126: 42,3402           31207                          CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
016055,002127: 42,3403           23212                          LXCH     YREGLP                                
016056,002128: 42,3404           52155                          DXCH     MPAC                                  
016057,002129: 42,3405           07052                          TC       DMP                                   
016058,002130: 42,3406           03444                          ADRES    WHOLECON                              
016059,002131: 42,3407           03453                          TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
016060,002132: 42,3410           43451                          CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
016061,002133: 42,3411           03470                          TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
016062,002134: 42,3412           56155                          XCH      MPAC       +1                         
016063,002135: 42,3413           00006                          EXTEND                                         
016064,002136: 42,3414           73450                          MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
016065,002137: 42,3415           20124                          DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
016066,002138: 42,3416           00006                          EXTEND                                         #  IF THIS DAS OVEFLOWS, G/ 745 HR,39MIN
016067,002139: 42,3417           13421                          BZF      +2                                    
016068,002140: 42,3420           04173                          TC       ALMCYCLE                              
016069,002141: 42,3421           31210                          CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
016070,002142: 42,3422           23213                          LXCH     ZREGLP                                
016071,002143: 42,3423           52155                          DXCH     MPAC                                  
016072,002144: 42,3424           07052                          TC       DMP                                   
016073,002145: 42,3425           03444                          ADRES    WHOLECON                              
016074,002146: 42,3426           03453                          TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
016075,002147: 42,3427           43452                          CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
016076,002148: 42,3430           03470                          TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC

Page 363

016078,002150: 42,3431           52124                          DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
016079,002151: 42,3432           20155                          DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
016080,002152: 42,3433           00006                          EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
016081,002153: 42,3434           13436                          BZF      +2                                    
016082,002154: 42,3435           04173                          TC       ALMCYCLE                              #  ALARM AND RECYCLE
016083,002155: 42,3436           07224                          TC       DPAGREE                               
016084,002156: 42,3437           52155                          DXCH     MPAC                                  
016085,002157: 42,3440           50145                          INDEX    NOUNADD                               
016086,002158: 42,3441           52001                          DXCH     0                                     
016087,002159: 42,3442           04655                          TC       POSTJUMP                              
016088,002160: 42,3443           63001                          CADR     LOADLV                                
016089,002161: 
016090,002162: 42,3444           00006        WHOLECON          OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
016091,002163: 42,3445           03240                          OCT      03240                                 
016092,002164: 42,3446           00025        HRCON             OCT      00025                                 #  1 HOUR IN CENTI-SEC
016093,002165: 42,3447           37100                 +1       OCT      37100                                 
016094,002166: 42,3450           13560        MINCON            OCT      13560                                 #  1 MINUTE IN CENTI-SEC
016095,002167: 42,3451           00073        59MIN             OCT      00073                                 #  59 AS WHOLE
016096,002168: 42,3452           13557        59.99SEC          OCT      13557                                 #  5999 SENTI-SEC
016097,002169: 
016098,002170: 42,3453           56156        RND/TST           XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
016099,002171: 42,3454           60000                          DOUBLE                                         #  ALARMS IF MPAC NOT 0
016100,002172: 42,3455           54156                          TS       MPAC       +2                         
016101,002173: 42,3456           34772                          CAF      ZERO                                  
016102,002174: 42,3457           60155                          AD       MPAC       +1                         
016103,002175: 42,3460           54155                          TS       MPAC       +1                         
016104,002176: 42,3461           34772                          CAF      ZERO                                  
016105,002177: 42,3462           60154                          AD       MPAC                                  #  CANT OVFLOW
016106,002178: 42,3463           56154                          XCH      MPAC                                  
016107,002179: 42,3464           30154        MPACTST           CA       MPAC                                  #  ALARM IF MPAC NON ZERO
016108,002180: 42,3465           00006                          EXTEND                                         
016109,002181: 42,3466           16711                          BZF      TCQ                                   
016110,002182: 42,3467           04173                          TC       ALMCYCLE                              #  ALARM AND RECYCLE.
016111,002183: 42,3470           54156        SIZETST           TS       MPAC       +2                         #  CALLED WITH - CON IN A
016112,002184: 42,3471           10155                          CCS      MPAC       +1                         #  GET MAG OF MPAC+1
016113,002185: 42,3472           64770                          AD       ONE                                   
016114,002186: 42,3473           13475                          TCF      +2                                    
016115,002187: 42,3474           64770                          AD       ONE                                   
016116,002188: 42,3475           60156                          AD       MPAC       +2                         
016117,002189: 42,3476           00006                          EXTEND                                         #  MAG OF MPAC+1 - CON
016118,002190: 42,3477           66711                          BZMF     TCQ                                   
016119,002191: 42,3500           04173                          TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
016120,002192: 42,3501           44125        FORCEV25          CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
016121,002193: 42,3502           55244                          TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD
016122,002194: 42,3503           04173                          TC       ALMCYCLE                              #   VERB. ALARM AND RECYCLE.
016123,002195: 

Page 364

016125,002197: 
016126,002198:                                                                                                 #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
016127,002199:                                                                                                 #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
016128,002200:                                                                                                 #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
016129,002201:                                                                                                 #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
016130,002202:                                                                                                 #  HE HAS INITIATED THROUGH THE KEYBOARD).
016131,002203: 
016132,002204:                                                                                                 #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION.
016133,002205:                                                                                                 #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
016134,002206:                                                                                                 #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
016135,002207:                                                                                                 #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
016136,002208:                                                                                                 #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
016137,002209:                                                                                                 #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
016138,002210:                                                                                                 #  MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
016139,002211: 
016140,002212:                                                                                                 #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
016141,002213:                                                                                                 #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
016142,002214:                                                                                                 #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
016143,002215: 
016144,002216:                                                                                                 #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
016145,002217:                                                                                                 #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
016146,002218: 
016147,002219:                                                                                                 #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
016148,002220:                                                                                                 #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
016149,002221: 
016150,002222:                                                                                                 #  MONITOR DOESNT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW.
016151,002223: 
016152,002224: 41,2000                                          SETLOC   PINBALL2                              
016153,002225: 41,2000                                          BANK                                           
016154,002226: 41,3224                                          COUNT*   $$/PIN                                
016155,002227: 41,3224           44076        MONITOR           CS       BIT15/14                              
016156,002228: 41,3225           71222                          MASK     NOUNCADR                              
016157,002229: 41,3226           54155        MONIT1            TS       MPAC       +1                         #  TEMP STORAGE
016158,002230: 41,3227           40136                          CS       ENTEXIT                               
016159,002231: 41,3230           64170                          AD       ENDINST                               
016160,002232: 41,3231           10000                          CCS      A                                     
016161,002233: 41,3232           03241                          TC       MONIT2                                
016162,002234: 41,3233           75377        MONREF            OCT      75377                                 #  -DEC10, STARTING IN BIT8. CANNOT GET HERE
016163,002235: 41,3234           03241                          TC       MONIT2                                
016164,002236: 41,3235           34753                          CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR.
016165,002237: 41,3236           26155                          ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
016166,002238: 41,3237           34772                          CAF      ZERO                                  
016167,002239: 41,3240           55225                          TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
016168,002240: 41,3241           36043        MONIT2            CAF      LOW7                                  
016169,002241: 41,3242           71204                          MASK     VERBREG                               
016170,002242: 41,3243           04333                          TC       LEFT5                                 
016171,002243: 41,3244           54022                          TS       CYL                                   
016172,002244: 41,3245           40022                          CS       CYL                                   
016173,002245: 41,3246           56022                          XCH      CYL                                   
016174,002246: 41,3247           61205                          AD       NOUNREG                               
016175,002247: 41,3250           54154                          TS       MPAC                                  #  TEMP STORAGE
016176,002248: 41,3251           34772                          CAF      ZERO                                  

Page 365

016178,002250: 41,3252           55215                          TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
016179,002251: 41,3253           11245                          CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
016180,002252: 41,3254           03256                          TC       +2                                    #  ARE BOTH EMPTY. (LITE COMES ON IF NEW
016181,002253: 41,3255           04455                          TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
016182,002254: 41,3256           00004                          INHINT                                         
016183,002255: 41,3257           11223                          CCS      MONSAVE                               
016184,002256: 41,3260           03263                          TC       +3                                    #  IF MONSAVE WAS +, NO REQUEST
016185,002257: 41,3261           05222                          TC       TWIDBIT1                              #  IF MONSAVE WAS 0, REQUEST MONREQ
016186,002258: 41,3262           03267                          ADRES    MONREQ                                
016187,002259: 41,3263           52155                          DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
016188,002260: 41,3264           53224                          DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
016189,002261: 41,3265           00003                          RELINT                                         #  SET UP EXTERNAL MONITOR BIT
016190,002262: 41,3266           00136                          TC       ENTRET                                
016191,002263: 
016192,002264: 41,3267           04366        MONREQ            TC       LODSAMPT                              #  CALLED BY WAITLIST
016193,002265: 41,3270           03307                          TC       B15MONCK                              #  CHECK FOR KILLER BIT
016194,002266: 41,3271           03303                          TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
016195,002267: 41,3272           35016                          CAF      MONDEL                                
016196,002268: 41,3273           05233        TCWAIT            TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
016197,002269: 41,3274     1202                                 EBANK=   DSPCOUNT                              
016198,002270: 41,3274           03267 62102                    2CADR    MONREQ                                
016199,002271: 
016200,002272: 41,3276           34346                          CAF      CHRPRIO                               
016201,002273: 41,3277           05121        TCNOVAC           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
016202,002274: 41,3300     1202                                 EBANK=   DSPCOUNT                              
016203,002275: 41,3300           03314 62102                    2CADR    MONDO                                 
016204,002276: 
016205,002277: 41,3302           05314                          TC       TASKOVER                              
016206,002278: 
016207,002279: 41,3303           34772        KILLMON           CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
016208,002280: 41,3304           55223                          TS       MONSAVE                               
016209,002281: 41,3305           55224                          TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
016210,002282: 41,3306           05314                          TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
016211,002283: 41,3307     5016               MONDEL            EQUALS   1SEC                                  
016212,002284: 41,3307           11224        B15MONCK          CCS      MONSAVE1                              #  CHECK FOR KILLER BIT=1
016213,002285: 41,3310           13311                          TCF      +1                                    #  =0
016214,002286: 41,3311           24002                          INCR     Q                                     #  =0
016215,002287: 41,3312           00002                          TC       Q                                     #  =1
016216,002288: 41,3313           00002                          TC       Q                                     #  =1
016217,002289: 41,3314           03307        MONDO             TC       B15MONCK                              #  CHECK FOR KILLER BIT
016218,002290: 41,3315           05205                          TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
016219,002291: 41,3316           11215                          CCS      DSPLOCK                               
016220,002292: 41,3317           03337                          TC       MONBUSY                               #  NVSUB IS BUSY
016221,002293: 41,3320           36043                          CAF      LOW7                                  
016222,002294: 41,3321           71223                          MASK     MONSAVE                               
016223,002295: 41,3322           02315                          TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
016224,002296: 41,3323           34171                          CAF      MID7                                  
016225,002297: 41,3324           71223                          MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
016226,002298: 41,3325           63233                          AD       MONREF                                #  -DEC10, STARTING IN BIT8

Page 366

016228,002300: 41,3326           54023                          TS       EDOP                                  #  RIGHT 7
016229,002301: 41,3327           30023                          CA       EDOP                                  
016230,002302: 41,3330           55204                          TS       VERBREG                               
016231,002303: 41,3331           32433                          CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
016232,002304: 41,3332           54136                          TS       ENTRET                                
016233,002305: 41,3333           44076                          CS       BIT15/14                              
016234,002306: 41,3334           71224                          MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
016235,002307: 41,3335           54156                          TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
016236,002308: 41,3336           02050        ENDMONDO          TC       TESTNN                                #  EBANK.
016237,002309: 
016238,002310: 41,3337     4076               BIT15/14          EQUALS   RELTAB11                              #  OCT 60000
016239,002311:    4000                                          SETLOC   FFTAG8                                
016240,002312:    4000                                          BANK                                           
016241,002313: 
016242,002314:    4151                                          COUNT*   $$/PIN                                
016243,002315:    4151           34171        PASTEVB           CAF      MID7                                  
016244,002316:    4152           71225                          MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
016245,002317:    4153           00006                          EXTEND                                         
016246,002318:    4154           14156                          BZF      +2                                    
016247,002319:    4155           04157                          TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
016248,002320:    4156           31223                          CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
016249,002321:    4157           54023        PASTEOPT          TS       EDOP                                  #  RIGHT 7
016250,002322:    4160           30023                          CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
016251,002323:    4161           04636                          TC       BANKCALL                              #   VERBREG AND DISPLAY IT.
016252,002324:    4162           62336                          CADR     UPDATVB    -1                         
016253,002325:    4163           34772                          CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
016254,002326:    4164           55216                          TS       REQRET                                #   BE EXECUTED BY OPERATOR.
016255,002327:    4165           31225                          CA       MONSAVE2                              
016256,002328:    4166           04264                          TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
016257,002329:    4167           04170                          TC       +1                                    
016258,002330:    4170           05205        ENDPASTE          TC       ENDOFJOB                              
016259,002331: 
016260,002332:    4171     4170               ENDINST           EQUALS   ENDPASTE                              
016261,002333: 
016262,002334:    4171           37600        MID7              OCT      37600                                 
016263,002335: 
016264,002336:    4172           00034        OCT34             OCT      34                                    
016265,002337: 41,2000                                          SETLOC   PINBALL2                              
016266,002338: 41,2000                                          BANK                                           
016267,002339: 41,3337                                          COUNT*   $$/PIN                                
016268,002340: 41,3337           04356        MONBUSY           TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
016269,002341: 41,3340           05205                          TC       ENDOFJOB                              
016270,002342: 
016271,002343:                                                                                                 #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
016272,002344:                                                                                                 #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
016273,002345:                                                                                                 #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
016274,002346: 
016275,002347:                                                                                                 #  FOR BANKS L/E 27, THIS IS ENOUGH.

Page 367

016277,002349: 
016278,002350:                                                                                                 #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
016279,002351:                                                                                                 #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
016280,002352:                                                                                                 #         V23N26 SHOULD BE USED.
016281,002353: 
016282,002354:                                                                                                 #  SUMMARY
016283,002355:                                                                                                 #  FOR BANKS L/E 27,                              V27N01E(FCADR)E
016284,002356:                                                                                                 #  FOR BANKS G/E 30,      V23N26E(SUPERBITS)E     V27N01E(FCADR)E
016285,002357: 
016286,002358: 41,3341           34321        DSPFMEM           CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
016287,002359: 41,3342           55202                          TS       DSPCOUNT                              
016288,002360: 41,3343           31252                          CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
016289,002361: 41,3344           54001                          TS       L                                     #  3RD COMPONENT OF NOUN 26.
016290,002362: 41,3345           31222                          CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
016291,002363: 41,3346           04671                          TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
016292,002364: 41,3347           03351                          TC       DSPOCTWO                              
016293,002365: 41,3350           05205        ENDSPF            TC       ENDOFJOB                              
016294,002366: 

Page 368

016296,002368:                                                                                                 #  WORD DISPLAY ROUTINES
016297,002369: 40,2000                                          SETLOC   PINBALL1                              
016298,002370: 40,2000                                          BANK                                           
016299,002371: 40,3055                                          COUNT*   $$/PIN                                
016300,002372: 40,3055           56002        DSPSIGN           XCH      Q                                     
016301,002373: 40,3056           54144                          TS       DSPWDRET                              
016302,002374: 40,3057           10154                          CCS      MPAC                                  
016303,002375: 40,3060           13070                          TCF      TCPLON                                
016304,002376: 40,3061           13070                          TCF      TCPLON                                
016305,002377: 40,3062           64770                          AD       ONE                                   
016306,002378: 40,3063           54154                          TS       MPAC                                  
016307,002379: 40,3064           02330                          TC       -ON                                   
016308,002380: 40,3065           40155                          CS       MPAC       +1                         
016309,002381: 40,3066           54155                          TS       MPAC       +1                         
016310,002382: 40,3067           00144                          TC       DSPWDRET                              
016311,002383: 40,3070           02310        TCPLON            TC       +ON                                   
016312,002384: 40,3071           00144                          TC       DSPWDRET                              
016313,002385: 
016314,002386:                                                                                                 #  DSPDECWD CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
016315,002387:                                                                                                 #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
016316,002388: 
016317,002389: 40,3072           56002        DSPDECWD          XCH      Q                                     
016318,002390: 40,3073           54115                          TS       WDRET                                 
016319,002391: 40,3074           03055                          TC       DSPSIGN                               
016320,002392: 40,3075           00006                          EXTEND                                         #  ROUND BY 5 EXP-6
016321,002393: 40,3076           32343                          DCA      DECROUND   -1                         
016322,002394: 40,3077           20155                          DAS      MPAC                                  
016323,002395: 40,3100           00006                          EXTEND                                         
016324,002396: 40,3101           13105                          BZF      +4                                    
016325,002397: 40,3102           00006                          EXTEND                                         
016326,002398: 40,3103           34750                          DCA      DPOSMAX                               
016327,002399: 40,3104           52155                          DXCH     MPAC                                  
016328,002400: 40,3105           34766                          CAF      FOUR                                  
016329,002401: 40,3106           54137        DSPDCWD1          TS       WDCNT                                 
016330,002402: 40,3107           34355                          CAF      BINCON                                
016331,002403: 40,3110           07256                          TC       SHORTMP                               
016332,002404: 40,3111           30154                          CA       MPAC                                  
016333,002405: 40,3112           04423                          TC       CODSTOR                               
016334,002406: 40,3113           34772                          CAF      ZERO                                  
016335,002407: 40,3114           56156                          XCH      MPAC       +2                         
016336,002408: 40,3115           56155                          XCH      MPAC       +1                         
016337,002409: 40,3116           54154                          TS       MPAC                                  
016338,002410: 40,3117           10143                          CCS      COUNT                                 
016339,002411: 40,3120           55202                          TS       DSPCOUNT                              
016340,002412: 40,3121           03161                          TC       DSPIN                                 
016341,002413: 40,3122           10137                          CCS      WDCNT                                 
016342,002414: 40,3123           03106                          TC       DSPDCWD1                              
016343,002415: 40,3124           04261                          TC       -VD1SET                               
016344,002416: 40,3125           00115                          TC       WDRET                                 
016345,002417: 

Page 369

016347,002419: 
016348,002420:                                                                                                 #  DSPDC2NR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
016349,002421:                                                                                                 #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
016350,002422: 
016351,002423: 40,3126           56002        DSPDC2NR          XCH      Q                                     
016352,002424: 40,3127           54115                          TS       WDRET                                 
016353,002425: 40,3130           03055                          TC       DSPSIGN                               
016354,002426: 40,3131           34770                 +3       CAF      ONE                                   
016355,002427: 40,3132           03106                          TC       DSPDCWD1                              
016356,002428: 
016357,002429:                                                                                                 #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
016358,002430:                                                                                                 #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
016359,002431: 
016360,002432: 40,3133           56002        DSP2DEC           XCH      Q                                     
016361,002433: 40,3134           54115                          TS       WDRET                                 
016362,002434: 40,3135           34772                          CAF      ZERO                                  
016363,002435: 40,3136           54124                          TS       CODE                                  
016364,002436: 40,3137           36214                          CAF      THREE                                 
016365,002437: 40,3140           03247                          TC       11DSPIN                               #  -R2 OFF
016366,002438: 40,3141           34766                          CAF      FOUR                                  
016367,002439: 40,3142           03247                          TC       11DSPIN                               #  +R2 OFF
016368,002440: 40,3143           03055                          TC       DSPSIGN                               
016369,002441: 40,3144           34322                          CAF      R2D1                                  
016370,002442: 40,3145           03106        END2DEC           TC       DSPDCWD1                              
016371,002443: 
016372,002444:                                                                                                 #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
016373,002445:                                                                                                 #  DSP LOC SPECIFIED IN DSPCOUNT.
016374,002446:                                                                                                 #  C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
016375,002447:                                                                                                 #  DISPLAY CONVERSION.
016376,002448: 
016377,002449: 40,3146           00006        DSPDECVN          EXTEND                                         
016378,002450: 40,3147           72244                          MP       VNDSPCON                              #  MULT BY .01
016379,002451: 40,3150           22154                          LXCH     MPAC                                  #  TAKE RESULTS FROM L. (MULT BY 2EXP14).
016380,002452: 40,3151           34772                          CAF      ZERO                                  
016381,002453: 40,3152           54155                          TS       MPAC       +1                         
016382,002454: 40,3153           56002                          XCH      Q                                     
016383,002455: 40,3154           54115                          TS       WDRET                                 
016384,002456: 40,3155           03131                          TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
016385,002457: 
016386,002458: 40,3156           03146        GOVNUPDT          TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE. REALLY PART
016387,002459: 40,3157           04655                          TC       POSTJUMP                              #  OF UPDATVB.
016388,002460: 40,3160           62346                          CADR     UPDAT1     +2                         
016389,002461: 
016390,002462: 41,2000                                          SETLOC   PINBALL2                              
016391,002463: 41,2000                                          BANK                                           
016392,002464: 41,3351                                          COUNT*   $$/PIN                                
016393,002465: 
016394,002466:                                                                                                 #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
016395,002467:                                                                                                 #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.

Page 370

016397,002469: 
016398,002470: 41,3351           54022        DSPOCTWO          TS       CYL                                   
016399,002471: 41,3352           56002                          XCH      Q                                     
016400,002472: 41,3353           54115                          TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
016401,002473: 41,3354           34753                          CAF      BIT14                                 #  TO BLANK SIGNS
016402,002474: 41,3355           27202                          ADS      DSPCOUNT                              
016403,002475: 41,3356           34766                          CAF      FOUR                                  
016404,002476: 41,3357           54137        WDAGAIN           TS       WDCNT                                 
016405,002477: 41,3360           40022                          CS       CYL                                   
016406,002478: 41,3361           40022                          CS       CYL                                   
016407,002479: 41,3362           40022                          CS       CYL                                   
016408,002480: 41,3363           40000                          CS       A                                     
016409,002481: 41,3364           74774                          MASK     DSPMSK                                
016410,002482: 41,3365           04423                          TC       CODSTOR                               
016411,002483: 41,3366           10000                          CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
016412,002484: 41,3367           55202                          TS       DSPCOUNT                              
016413,002485: 41,3370           04655                          TC       POSTJUMP                              
016414,002486: 41,3371           61255                          CADR     DSPOCTIN                              
016415,002487: 41,3372           10137        OCTBACK           CCS      WDCNT                                 
016416,002488: 41,3373           03357                          TC       WDAGAIN                               #  +
016417,002489: 41,3374           04261        DSPLV             TC       -VD1SET                               
016418,002490: 41,3375           00115                          TC       WDRET                                 
016419,002491: 
016420,002492: 41,3376     4774               DSPMSK            =        SEVEN                                 
016421,002493: 
016422,002494:                                                                                                 #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
016423,002495:                                                                                                 #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
016424,002496:                                                                                                 #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
016425,002497:                                                                                                 #  DSPTAB ENTRY INTO DSREL.
016426,002498: 
016427,002499: 40,2000                                          SETLOC   PINBALL1                              
016428,002500: 40,2000                                          BANK                                           
016429,002501: 40,3161                                          COUNT*   $$/PIN                                
016430,002502: 40,3161           56002        DSPIN             XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE
016431,002503: 40,3162           54114                          TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
016432,002504: 40,3163           34342                          CAF      LOW5                                  
016433,002505: 40,3164           70143                          MASK     COUNT                                 
016434,002506: 40,3165           54021                          TS       SR                                    
016435,002507: 40,3166           56021                          XCH      SR                                    
016436,002508: 40,3167           54141                          TS       DSREL                                 
016437,002509: 40,3170           34770                          CAF      BIT1                                  
016438,002510: 40,3171           70143                          MASK     COUNT                                 
016439,002511: 40,3172           10000                          CCS      A                                     
016440,002512: 40,3173           03175                          TC       +2                                    #  LEFT IF COUNT IS ODD
016441,002513: 40,3174           03211                          TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
016442,002514: 40,3175           56124                          XCH      CODE                                  
016443,002515: 40,3176           60000                          DOUBLE                                         
016444,002516: 40,3177           60000                          DOUBLE                                         
016445,002517: 40,3200           60000                          DOUBLE                                         
016446,002518: 40,3201           60000                          DOUBLE                                         

Page 371

016448,002520: 40,3202           60000                          DOUBLE                                         
016449,002521: 40,3203           54124                          TS       CODE                                  
016450,002522: 40,3204           34753                          CAF      BIT14                                 
016451,002523: 40,3205           70143                          MASK     COUNT                                 
016452,002524: 40,3206           10000                          CCS      A                                     
016453,002525: 40,3207           34767                          CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
016454,002526: 40,3210           64770                          AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
016455,002527: 40,3211           54143                 -1       TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
016456,002528:                                                                                                 #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
016457,002529:                                                                                                 #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
016458,002530: 40,3212           00004        DSPIN1            INHINT                                         
016459,002531: 40,3213           50141                          INDEX    DSREL                                 
016460,002532: 40,3214           11226                          CCS      DSPTAB                                
016461,002533: 40,3215           03217                          TC       +2                                    #  IF +
016462,002534: 40,3216           00104        ERCON             OCT      104                                   #  CHAN 11, BITS 3,7. CANNOT GET HERE
016463,002535: 40,3217           64770                          AD       ONE                                   #  IF -
016464,002536: 40,3220           54142                          TS       DSMAG                                 
016465,002537: 40,3221           50143                          INDEX    COUNT                                 
016466,002538: 40,3222           73243                          MASK     DSMSK                                 
016467,002539: 40,3223           00006                          EXTEND                                         
016468,002540: 40,3224           60124                          SU       CODE                                  
016469,002541: 40,3225           00006                          EXTEND                                         
016470,002542: 40,3226           13241                          BZF      DSLV                                  #  SAME
016471,002543: 40,3227           50143        DFRNT             INDEX    COUNT                                 
016472,002544: 40,3230           43243                          CS       DSMSK                                 #  MASK WITH 77740,76037,75777, OR 74037
016473,002545: 40,3231           70142                          MASK     DSMAG                                 
016474,002546: 40,3232           60124                          AD       CODE                                  
016475,002547: 40,3233           40000                          CS       A                                     
016476,002548: 40,3234           50141                          INDEX    DSREL                                 
016477,002549: 40,3235           57226                          XCH      DSPTAB                                
016478,002550: 40,3236           00006                          EXTEND                                         
016479,002551: 40,3237           63241                          BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
016480,002552: 40,3240           25221                          INCR     NOUT                                  #  DSPTAB ENTRY WAS +
016481,002553: 40,3241           00003        DSLV              RELINT                                         
016482,002554: 40,3242           00114                          TC       DSEXIT                                
016483,002555: 
016484,002556: 40,3243           00037        DSMSK             OCT      37                                    
016485,002557: 40,3244           01740                          OCT      1740                                  
016486,002558: 40,3245           02000                          OCT      2000                                  
016487,002559: 40,3246           03740                          OCT      3740                                  
016488,002560: 
016489,002561:                                                                                                 #  FOR 11DSPIN, PUT REL ADDRESS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
016490,002562:                                                                                                 #  BIT11 OF CODE.
016491,002563: 
016492,002564: 40,3247           54141        11DSPIN           TS       DSREL                                 
016493,002565: 40,3250           34767                          CAF      TWO                                   
016494,002566: 40,3251           54143                          TS       COUNT                                 
016495,002567: 40,3252           56002                          XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
016496,002568: 40,3253           54114                          TS       DSEXIT                                

Page 372

016498,002570: 40,3254           03212                          TC       DSPIN1                                
016499,002571: 
016500,002572: 40,3255           03161        DSPOCTIN          TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
016501,002573: 40,3256           04655                          TC       POSTJUMP                              
016502,002574: 40,3257           63372        ENDSPOCT          CADR     OCTBACK                               
016503,002575: 
016504,002576:                                                                                                 #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
016505,002577:                                                                                                 #  ABORT WITH 21501
016506,002578:                                                                                                 #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
016507,002579:                                                                                                 #  DO TC ENTRET.
016508,002580: 
016509,002581: 40,3260           04261        PREDSPAL          TC       -VD1SET                               
016510,002582: 40,3261           43431        DSPALARM          CS       NVSBENDL                              
016511,002583: 40,3262           60136                          AD       ENTEXIT                               
016512,002584: 40,3263           00006                          EXTEND                                         
016513,002585: 40,3264           13277                          BZF      CHARALRM   +2                         
016514,002586: 40,3265           42721                          CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
016515,002587: 40,3266           60136                          AD       ENTEXIT                               
016516,002588: 40,3267           00006                          EXTEND                                         
016517,002589: 40,3270           13272                          BZF      +2                                    
016518,002590: 40,3271           03275                          TC       CHARALRM                              
016519,002591: 40,3272           04235                          TC       KILMONON                              
016520,002592: 40,3273           04362                          TC       FALTON                                
016521,002593: 40,3274           04151                          TC       PASTEVB                               #  PUT MONITOR VERB BACK IN VERBREG
016522,002594: 40,3275           04362        CHARALRM          TC       FALTON                                #  NOT NVSUB INITATED TURN ON OPR ERROR
016523,002595: 40,3276           05205                          TC       ENDOFJOB                              
016524,002596: 40,3277           05726                 +2       TC       POODOO                                
016525,002597: 40,3300           21501                          OCT      21501                                 #  KEYBOARD + ALARM DISPLAY DURING NVSUB.
016526,002598: 
016527,002599:                                                                                                 #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
016528,002600:                                                                                                 #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
016529,002601:                                                                                                 #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
016530,002602:                                                                                                 #  MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
016531,002603:                                                                                                 #  FOR MM CODE.
016532,002604: 
016533,002605:    4000                                          SETLOC   FFTAG8                                
016534,002606:    4000                                          BANK                                           
016535,002607:    4173                                          COUNT*   $$/PIN                                
016536,002608:    4173           04362        ALMCYCLE          TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
016537,002609:    4174           41244                          CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
016538,002610:    4175           55216                          TS       REQRET                                #  SET FOR ENTPAS0
016539,002611:    4176           04636                          TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
016540,002612:    4177           62336                          CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
016541,002613:    4200           04655        ENTERJMP          TC       POSTJUMP                              
016542,002614:    4201           62000        ENDALM            CADR     ENTER                                 
016543,002615: 
016544,002616:                                                                                                 #  MMCHANG USES NOUN DISPLAY UNTIL ENTER.  THEN IT USES MODE DISP.

Page 373

016546,002618:                                                                                                 #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
016547,002619:                                                                                                 #  MM LIGHTS.
016548,002620:                                                                                                 #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
016549,002621:                                                                                                 #  IF NOT, IT RECYCLES.
016550,002622: 
016551,002623: 41,2000                                          SETLOC   PINBALL2                              
016552,002624: 41,2000                                          BANK                                           
016553,002625: 41,3376                                          COUNT*   $$/PIN                                
016554,002626: 41,3376           03417        MMCHANG           TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
016555,002627:                                                                                                 #  IF THIS MOVES AT ALL, MUST CHANGE
016556,002628:                                                                                                 #  MMADREF AT ENTPASHI.
016557,002629: 41,3377           34764                 +1       CAF      BIT5                                  #  OCT20 = ND2.
016558,002630: 41,3400           61202                          AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
016559,002631: 41,3401           00006                          EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
016560,002632: 41,3402           13404                          BZF      +2                                    
016561,002633: 41,3403           04173                          TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
016562,002634: 41,3404           34772                          CAF      ZERO                                  #  DSPCOUNT = -ND2.
016563,002635: 41,3405           57205                          XCH      NOUNREG                               
016564,002636: 41,3406           54154                          TS       MPAC                                  
016565,002637: 41,3407           34352                          CAF      ND1                                   
016566,002638: 41,3410           55202                          TS       DSPCOUNT                              
016567,002639: 41,3411           04636                          TC       BANKCALL                              
016568,002640: 41,3412           60473                          CADR     2BLANK                                
016569,002641: 41,3413           04261                          TC       -VD1SET                               
016570,002642: 41,3414           30154                          CA       MPAC                                  
016571,002643: 41,3415           04655                          TC       POSTJUMP                              
016572,002644: 41,3416           10007                          CADR     MODROUTB                              #  GO THRU STANDARD LOC.
016573,002645: 
016574,002646: 41,3417  04,2007               MODROUTB          =        V37                                   
016575,002647: 41,3417           40002        REQMM             CS       Q                                     
016576,002648: 41,3420           55216                          TS       REQRET                                
016577,002649: 41,3421           34352                          CAF      ND1                                   
016578,002650: 41,3422           55202                          TS       DSPCOUNT                              
016579,002651: 41,3423           34772                          CAF      ZERO                                  
016580,002652: 41,3424           55205                          TS       NOUNREG                               
016581,002653: 41,3425           04636                          TC       BANKCALL                              
016582,002654: 41,3426           60473                          CADR     2BLANK                                
016583,002655: 41,3427           04360                          TC       FLASHON                               
016584,002656: 41,3430           34770                          CAF      ONE                                   
016585,002657: 41,3431           55203                          TS       DECBRNCH                              #  SET FOR DEC
016586,002658: 41,3432           00136                          TC       ENTEXIT                               
016587,002659: 
016588,002660:                                                                                                 #  VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
016589,002661:                                                                                                 #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
016590,002662:                                                                                                 #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
016591,002663:                                                                                                 #         COMPONENT 1     PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
016592,002664:                                                                                                 #         COMPONENT 2     JOB ADRES (12 BIT)
016593,002665:                                                                                                 #         COMPONENT 3     BBCON
016594,002666: 

Page 374

016596,002668: 
016597,002669: 41,3433           34770        VBRQEXEC          CAF      BIT1                                  
016598,002670: 41,3434           71016                          MASK     N26/PRI                               
016599,002671: 41,3435           10000                          CCS      A                                     
016600,002672: 41,3436           03460                          TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
016601,002673: 41,3437           33277                          CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
016602,002674: 41,3440           54154        REQEX1            TS       MPAC                                  #  TC NOVAC OR TC FINDVAC INTO MPAC
016603,002675: 41,3441           37660                          CA       PRIO37                                
016604,002676: 41,3442           71016                          MASK     N26/PRI                               
016605,002677: 41,3443           54160                 -1       TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
016606,002678: 41,3444           04432        REQUESTC          TC       RELDSP                                
016607,002679: 41,3445           31016                          CA       N26/PRI                               
016608,002680: 41,3446           00006                          EXTEND                                         
016609,002681: 41,3447           12350                          BZF      GODSPALM                              #  OP ERROR AND EOJ IF R1 OF N26 = 0
016610,002682: 41,3450           34170                          CA       ENDINST                               
016611,002683: 41,3451           54157                          TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
016612,002684: 41,3452           00006                          EXTEND                                         
016613,002685: 41,3453           31020                          DCA      N26/2CAD                              #  JOB ADRES INTO MPAC+1
016614,002686: 41,3454           52156                          DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
016615,002687: 41,3455           30160                          CA       MPAC       +4                         #  PRIO IN A
016616,002688: 41,3456           00004                          INHINT                                         
016617,002689: 41,3457           00154                          TC       MPAC                                  
016618,002690: 
016619,002691: 41,3460           34345        SETVAC            CAF      TCFINDVC                              
016620,002692: 41,3461           03440                          TC       REQEX1                                
016621,002693: 
016622,002694:                                                                                                 #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
016623,002695:                                                                                                 #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
016624,002696:                                                                                                 #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WTIH
016625,002697:                                                                                                 #         COMPONENT 1     DELAY (LOW BITS)
016626,002698:                                                                                                 #         COMPONENT 2     TASK ADRES (12 BIT)
016627,002699:                                                                                                 #         COMPONENT 3     BBCON
016628,002700: 
016629,002701: 41,3462           33273        VBRQWAIT          CAF      TCWAIT                                
016630,002702: 41,3463           54154                          TS       MPAC                                  #  TC WAITLIST INTO MPAC
016631,002703: 41,3464           31016                          CA       N26/PRI                               #  TIME DELAY
016632,002704: 41,3465           03443        ENDRQWT           TC       REQUESTC   -1                         
016633,002705: 
016634,002706:                                                                                                 #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
016635,002707:                                                                                                 #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
016636,002708:                                                                                                 #  LEAVE IT IN A, INHINT AND TC MPAC.
016637,002709: 
016638,002710: 40,2000                                          SETLOC   PINBALL1                              
016639,002711: 40,2000                                          BANK                                           
016640,002712: 40,3301                                          COUNT*   $$/PIN                                
016641,002713: 40,3301           44770        VBPROC            CS       ONE                                   
016642,002714: 40,3302           55217                 +1       TS       LOADSTAT                              
016643,002715: 40,3303           04235                          TC       KILMONON                              #  TURN ON KILL MONITOR BIT
016644,002716: 40,3304           04432                          TC       RELDSP                                
016645,002717: 40,3305           04417                          TC       FLASHOFF                              

Page 375

016647,002719: 40,3306           03412                          TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
016648,002720: 
016649,002721: 40,3307           44767        VBTERM            CS       TWO                                   
016650,002722: 40,3310           03302                          TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
016651,002723: 
016652,002724:                                                                                                 #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
016653,002725:                                                                                                 #  EXECUTIVE CONTROL, WITH CHRPRIO.
016654,002726: 
016655,002727: 40,3311           41204        PROCKEY           CS       VERBREG                               #  DONT ALLOW PROCEED DURING LOAD.
016656,002728: 40,3312           64354                          AD       VBSP2LD                               
016657,002729: 40,3313           00006                          EXTEND                                         
016658,002730: 40,3314           26000                          DIM      A                                     
016659,002731: 40,3315           00006                          EXTEND                                         
016660,002732: 40,3316           13275                          BZF      CHARALRM                              
016661,002733: 40,3317           34772        PROCKEY1          CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
016662,002734: 40,3320           55216                          TS       REQRET                                
016663,002735: 40,3321           04261                          TC       -VD1SET                               
016664,002736: 40,3322           03301                          TC       VBPROC                                
016665,002737: 
016666,002738:                                                                                                 #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
016667,002739:                                                                                                 #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
016668,002740:                                                                                                 #  DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
016669,002741:                                                                                                 #  OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
016670,002742: 
016671,002743: 40,3323           44772        VBRESEQ           CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
016672,002744: 40,3324           03302                          TC       VBPROC     +1                         
016673,002745: 
016674,002746:                                                                                                 #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
016675,002747:                                                                                                 #  END OF LOAD.
016676,002748: 

Page 376

016678,002750: 
016679,002751:                                                                                                 #  KEY RELEASE ROUTINE
016680,002752: 
016681,002753:                                                                                                 #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
016682,002754: 
016683,002755:                                                                                                 #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
016684,002756:                                                                                                 #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
016685,002757:                                                                                                 #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
016686,002758:                                                                                                 #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
016687,002759: 
016688,002760:                                                                                                 #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
016689,002761:                                                                                                 #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
016690,002762:                                                                                                 #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
016691,002763: 
016692,002764:                                                                                                 #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
016693,002765:                                                                                                 #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
016694,002766:                                                                                                 #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
016695,002767:                                                                                                 #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
016696,002768:                                                                                                 #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
016697,002769:                                                                                                 #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
016698,002770:                                                                                                 #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
016699,002771:                                                                                                 #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEOFRE HE OBSCURED
016700,002772:                                                                                                 #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
016701,002773:                                                                                                 #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
016702,002774:                                                                                                 #  SUBROUTINES.
016703,002775: 
016704,002776: 40,3325           44766        VBRELDSP          CS       BIT3                                  
016705,002777: 40,3326           00006                          EXTEND                                         
016706,002778: 40,3327           03011                          WAND     DSALMOUT                              #  TURN OFF UPACT LITE
016707,002779: 40,3330           10115                          CCS      21/22REG                              #  OLD DSPLOCK
016708,002780: 40,3331           34753                          CAF      BIT14                                 
016709,002781: 40,3332           71224                          MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
016710,002782: 40,3333           10000                          CCS      A                                     
016711,002783: 40,3334           03343                          TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND,
016712,002784: 40,3335           04432        TSTLTS4           TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
016713,002785: 40,3336           11245                          CCS      CADRSTOR                              #   RELEASE DISPLAY SYSTEM AND
016714,002786: 40,3337           03341                          TC       +2                                    #   DO RE-ESTABLISH IF CADRSTOR IS FULL.
016715,002787: 40,3340           05205                          TC       ENDOFJOB                              
016716,002788: 40,3341           04655                          TC       POSTJUMP                              
016717,002789: 40,3342           21275                          CADR     PINBRNCH                              
016718,002790: 40,3343           34772        UNSUSPEN          CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
016719,002791: 40,3344           55215                          TS       DSPLOCK                               #   JUST UNSUSPEND IT BY CLEARING DSPLOCK.
016720,002792: 40,3345           11245                          CCS      CADRSTOR                              #   TURN KEY RELEASE LIGHT OFF IF BOTH
016721,002793: 40,3346           05205                          TC       ENDOFJOB                              #   CADRSTOR AND DSPLIST ARE EMPTY.
016722,002794: 40,3347           04455                          TC       RELDSP1                               
016723,002795: 40,3350           05205                          TC       ENDOFJOB                              
016724,002796: 

Page 377

016726,002798: 
016727,002799:                                                                                                 #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
016728,002800:                                                                                                 #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
016729,002801:                                                                                                 #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
016730,002802:                                                                                                 #  PLACE 0VVVVVVVNNNNNNN INTO A.
016731,002803:                                                                                                 #  V'S ARE THE 7-BIT VERB CODE.  N'S ARE THE 7-BIT NOUN CODE.
016732,002804: 
016733,002805:                                                                                                 #  IF NVSUB IS CALLED WTIH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
016734,002806:                                                                                                 #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
016735,002807:                                                                                                 #  -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R'S ONLY.
016736,002808: 
016737,002809:                                                                                                 #  NVSUB CAN BE USED WTIH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
016738,002810:                                                                                                 #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
016739,002811: 
016740,002812:                                                                                                 #  NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
016741,002813:                                                                                                 #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
016742,002814:                                                                                                 #  IF V'S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
016743,002815:                                                                                                 #  ACTION). IF N'S =0, THE NEW VERB CODE IS DISPLAYED ONLY (RETURN WITH NO
016744,002816:                                                                                                 #  FURTHER ACTION).
016745,002817: 
016746,002818:                                                                                                 #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
016747,002819:                                                                                                 #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
016748,002820:                                                                                                 #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
016749,002821:                                                                                                 #  ALARM CONDITION BEFORE RETURN TO CALLER.
016750,002822: 
016751,002823:                                                                                                 #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
016752,002824:                                                                                                 #  KEY, EXCEPT ERROR LIGHT RESET
016753,002825:                                                                                                 #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
016754,002826:                                                                                                 #  PROCEED WITOHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
016755,002827:                                                                                                 #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
016756,002828:                                                                                                 #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
016757,002829:                                                                                                 #  MONITOR SET UP.
016758,002830: 
016759,002831:                                                                                                 #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
016760,002832:                                                                                                 #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
016761,002833: 
016762,002834:                                                                                                 #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
016763,002835:                                                                                                 #  MONITOR.
016764,002836: 
016765,002837:                                                                                                 #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
016766,002838:                                                                                                 #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
016767,002839: 
016768,002840:                                                                                                 #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR 'PLEASE PERFORM' SITUATIONS
016769,002841:                                                                                                 #  (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
016770,002842:                                                                                                 #  ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
016771,002843:                                                                                                 #  'CHECKLIST' NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE 'CHECKLIST'
016772,002844:                                                                                                 #  NOUN. GO TO NVSUB AGAIN WTIH THE 'PLEASE PERFORM' VERB AND ZEROS IN THE
016773,002845:                                                                                                 #  LOW 7 BITS. THIS 'PASTES UP' THE 'PLEASE PERFORM' VERB INTO THE VERB
016774,002846:                                                                                                 #  LIGHTS.
016775,002847: 
016776,002848:                                                                                                 #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL

Page 378

016778,002850:                                                                                                 #  PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
016779,002851:                                                                                                 #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASED IN THE VERB
016780,002852:                                                                                                 #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
016781,002853:                                                                                                 #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
016782,002854:                                                                                                 #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
016783,002855:                                                                                                 #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
016784,002856:                                                                                                 #  OTHER THAN ZERO, THEN THEY WILL BE USED BO BLANK DATA BY BEING FED TO
016785,002857:                                                                                                 #  BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
016786,002858:                                                                                                 #  THE PARAMETER IN L HAS NO EFFECT.
016787,002859: 
016788,002860:                                                                                                 #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
016789,002861:                                                                                                 #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
016790,002862: 
016791,002863:    4000                                          SETLOC   FFTAG8                                
016792,002864:    4000                                          BANK                                           
016793,002865:    4202                                          COUNT*   $$/PIN                                
016794,002866:    4202           22007        NVSUB             LXCH     7                                     #  ZERO NVMONOPT OPTIONS
016795,002867:    4203           54123        NVMONOPT          TS       NVTEMP                                
016796,002868:    4204           23242                          LXCH     NVQTEM                                
016797,002869:    4205           22002                          LXCH     Q                                     
016798,002870:    4206           04226                          TC       EMBDSPCK                              #  CHECK FOR DSP SYST AVAILABLE
016799,002871:    4207           23242                          LXCH     NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
016800,002872:    4210           23225                          LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
016801,002873:    4211           04235                          TC       KILMONON                              #  TURN ON KILL MONITOR BIT
016802,002874:    4212           34223        NVSUBCOM          CAF      NVSBBBNK                              
016803,002875: 
016804,002876:    4213           56006                          XCH      BBANK                                 
016805,002877:    4214           00006                          EXTEND                                         #  SAVE OLD SUPERBITS
016806,002878:    4215           04007                          ROR      SUPERBNK                              
016807,002879:    4216           55243                          TS       NVBNKTEM                              
016808,002880:    4217           34223                          CAF      PINSUPBT                              
016809,002881:    4220           00006                          EXTEND                                         
016810,002882:    4221           01007                          WRITE    SUPERBNK                              
016811,002883:    4222           03513                          TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
016812,002884:    4223     1202                                 EBANK=   DSPCOUNT                              
016813,002885:    4223           62102        NVSBBBNK          BBCON    NVSUB1                                
016814,002886: 
016815,002887:    4224     4223               PINSUPBT          =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
016816,002888: 
016817,002889:    4224           53243        NVSUBEND          DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
016818,002890:    4225           05214                          TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
016819,002891: 
016820,002892:    4226           34753        EMBDSPCK          CAF      BIT14                                 
016821,002893:    4227           71224                          MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016822,002894:    4230           61215                          AD       DSPLOCK                               
016823,002895:    4231           10000                          CCS      A                                     
016824,002896:    4232           00001                          TC       L                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
016825,002897:    4233           24001                          INCR     L                                     #  DSP SYST OK. SET RET TO 2+ CALLING LOC
016826,002898:    4234           00002                          TC       Q                                     
016827,002899: 41,2000                                          SETLOC   PINBALL2                              

Page 379

016829,002901: 
016830,002902: 41,2000                                          COUNT*   $$/PIN                                
016831,002903: 41,2000                                          BANK                                           
016832,002904: 
016833,002905:                                                                                                 #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS:
016834,002906:                                                                                                 #  -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R'S ONLY.
016835,002907: 
016836,002908: 41,3466           64774        BLANKDSP          AD       SEVEN                                 #  7,8,9,OR 10 (A HAD 0,1,2,OR 3)
016837,002909: 41,3467           00004                          INHINT                                         
016838,002910: 41,3470           54124                 +2       TS       CODE                                  #  BLANK SPECIFIED DSPTABS
016839,002911: 41,3471           44755                          CS       BIT12                                 
016840,002912: 41,3472           50124                          INDEX    CODE                                  
016841,002913: 41,3473           57226                          XCH      DSPTAB                                
016842,002914: 41,3474           10000                          CCS      A                                     
016843,002915: 41,3475           25221                          INCR     NOUT                                  
016844,002916: 41,3476           03477                          TC       +1                                    
016845,002917: 41,3477           10124                          CCS      CODE                                  
016846,002918: 41,3500           03470                          TC       BLANKDSP   +2                         
016847,002919: 41,3501           00003                          RELINT                                         
016848,002920: 41,3502           50123                          INDEX    NVTEMP                                
016849,002921: 41,3503           03510                          TC       +5                                    
016850,002922: 41,3504           03505                          TC       +1                                    #  NVTEMP HAS -4 (NEVER TOUCH MODREG)
016851,002923: 41,3505           55204                          TS       VERBREG                               #              -3
016852,002924: 41,3506           55205                          TS       NOUNREG                               #              -2
016853,002925: 41,3507           55220                          TS       CLPASS                                #              -1
016854,002926: 41,3510           04261                          TC       -VD1SET                               
016855,002927: 41,3511           04417                          TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
016856,002928: 41,3512           03534                          TC       ENTSET     -2                         #  ZEROS REQRET
016857,002929: 
016858,002930: 41,3513           33536        NVSUB1            CAF      ENTSET                                #  IN BANK
016859,002931: 41,3514           54136                          TS       ENTRET                                #  SET RETURN TO NVSUBEND
016860,002932: 41,3515           10123                          CCS      NVTEMP                                #  WHAT NOW
016861,002933: 41,3516           03522                          TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
016862,002934: 41,3517           02350                          TC       GODSPALM                              
016863,002935: 41,3520           03466                          TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
016864,002936: 41,3521           02350                          TC       GODSPALM                              
016865,002937: 41,3522           36043                          CAF      LOW7                                  
016866,002938: 41,3523           70123                          MASK     NVTEMP                                
016867,002939: 41,3524           54157                          TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
016868,002940: 41,3525           30123                          CA       NVTEMP                                #                  USES MPAC, +1, +2)
016869,002941: 41,3526           54023                          TS       EDOP                                  #  RIGHT 7
016870,002942: 41,3527           30023                          CA       EDOP                                  
016871,002943: 41,3530           54160                          TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
016872,002944:                                                                                                 #                  USES MPAC, +1, +2)
016873,002945: 41,3531           10157                          CCS      MPAC       +3                         #  TEST NOUN
016874,002946: 41,3532           03537                          TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
016875,002947: 41,3533           02335                          TC       UPDATVB    -2                         #  IF NOUN=+0, DISPLAY VERB, THEN RETURN
016876,002948: 41,3534           34772                 -2       CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
016877,002949: 41,3535           55216                          TS       REQRET                                #  BE EXECUTED BY OPERATOR.
016878,002950: 41,3536           04224        ENTSET            TC       NVSUBEND                              
016879,002951: 41,3537           10160        NVSUB2            CCS      MPAC       +4                         #  TEST VERB
016880,002952: 41,3540           13543                          TCF      +3                                    #  IF VERB NOT +0, GO ON

Page 380

016882,002954: 41,3541           02314                          TC       UPDATNN    -2                         #  IF VERB=+0, DISPLAY NOUN, THEN RETURN
016883,002955: 41,3542           04224                          TC       NVSUBEND                              
016884,002956: 41,3543           30156                          CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
016885,002957: 41,3544           54161                          TS       MPAC       +5                         #         USES MPAC, +1, +2)
016886,002958: 41,3545           02335                          TC       UPDATVB    -2                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
016887,002959: 41,3546           02314                          TC       UPDATNN    -2                         #  BOTH AND GO TO ENTPAS0.
016888,002960: 41,3547           34772                          CAF      ZERO                                  
016889,002961: 41,3550           55217                          TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
016890,002962: 41,3551           55220                          TS       CLPASS                                
016891,002963: 41,3552           55216                          TS       REQRET                                #  SET REQRET FOR PASS 0.
016892,002964: 41,3553           30161                          CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
016893,002965: 41,3554           54156                          TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
016894,002966: 41,3555           02040        ENDNVSB1          TC       ENTPAS0                               
016895,002967: 
016896,002968:                                                                                                 #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
016897,002969:                                                                                                 #  NOUNCADR IN ENTPAS0 (INTMCTBS).
016898,002970: 
016899,002971:    4000                                          SETLOC   FFTAG8                                
016900,002972:    4000                                          BANK                                           
016901,002973:    4235                                          COUNT*   $$/PIN                                
016902,002974:                                                                                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
016903,002975:    4235           34752        KILMONON          CAF      BIT15                                 #     THIS IS THE KILL MONITOR BIT.
016904,002976:    4236           55224                          TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
016905,002977:                                                                                                 #   MONITOR BIT.
016906,002978:    4237           00002                          TC       Q                                     
016907,002979: 
016908,002980:                                                                                                 #  LOADSTAT       +0      INACTIVE (WAITING FOR DATA). SET BY NVSUB
016909,002981:                                                                                                 #                 +1      PROCEED NO DATA SET BY V33 OR PROCEED
016910,002982:                                                                                                 #                 -1      TERMINATE SET BY V34
016911,002983:                                                                                                 #                 -0        DATA IN       SET BY END OF LOAD ROUTINE
016912,002984:                                                                                                 #                         OR RESEQUENCE.  SET BY VERB 32
016913,002985: 
016914,002986:                                                                                                 #  L TC ENDIDLE (FIXED FIXED)
016915,002987:                                                                                                 #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
016916,002988:                                                                                                 #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
016917,002989:                                                                                                 #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016918,002990:                                                                                                 #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016919,002991:                                                                                                 #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
016920,002992:                                                                                                 #  L+1 FOR TERMINATE, PROCEED WITHOUT DATA, DATA IN, OR RESEQUENCE
016921,002993:                                                                                                 #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
016922,002994: 
016923,002995:                                                                                                 #  ENDIDLE ABORTS (WITH CODE 21206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
016924,002996:                                                                                                 #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
016925,002997:                                                                                                 #  1) CADRSTOR NOT= +0.  THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
016926,002998:                                                                                                 #  EXCEEDED. (+-NZ INDICATES A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)

Page 381

016928,003000:                                                                                                 #  2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
016929,003001:                                                                                                 #  NVSUBUSY.
016930,003002: 
016931,003003:                                                                                                 #  ENDIDLE MOVED TO DISPLAY INTERFACE ROUTINES
016932,003004: 
016933,003005:    4240           11245        ISCADR+0          CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
016934,003006:    4241           04245                          TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
016935,003007:    4242           11246                          CCS      DSPLIST                               #  ABORT (CODE 01206) IF DSPLIST NOT = +0.
016936,003008:    4243           04245                          TC       DSPABORT                              
016937,003009:    4244           00002                          TC       Q                                     
016938,003010:    4245           05726        DSPABORT          TC       POODOO                                
016939,003011:    4246           21206                          OCT      21206                                 #  SECOND JOB TRYING TO GO TO SLEEP
016940,003012: 
016941,003013:                                                                                                 #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
016942,003014:                                                                                                 #  IT DOES ENDOFJOB.
016943,003015: 
016944,003016:    4247           34223        JAMTERM           CAF      PINSUPBT                              
016945,003017:    4250           00006                          EXTEND                                         
016946,003018:    4251           01007                          WRITE    SUPERBNK                              
016947,003019:    4252           34260                          CAF      34DEC                                 
016948,003020:    4253           55216                          TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
016949,003021:    4254           55204                          TS       VERBREG                               
016950,003022:    4255           04261                          TC       -VD1SET                               
016951,003023:    4256           04655                          TC       POSTJUMP                              
016952,003024:    4257           61307                          CADR     VBTERM                                
016953,003025: 
016954,003026:    4260           00042        34DEC             DEC      34         B-14                       
016955,003027: 
016956,003028:    4261           44351        -VD1SET           CS       VD1                                   
016957,003029:    4262           55202                          TS       DSPCOUNT                              
016958,003030:    4263           00002                          TC       Q                                     
016959,003031: 
016960,003032:                                                                                                 #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
016961,003033:                                                                                                 #  CALL WITH BLANKING CODE IN A.
016962,003034:                                                                                                 #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
016963,003035:                                                                                                 #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
016964,003036: 
016965,003037:                                                                                                 #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
016966,003038: 
016967,003039:    4264           74774        BLANKSUB          MASK     SEVEN                                 
016968,003040:    4265           54123                          TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
016969,003041:    4266           22002                          LXCH     Q                                     
016970,003042:    4267           04226                          TC       EMBDSPCK                              #  CHECK FOR DSP SYST AVAILABLE
016971,003043:    4270           10123                          CCS      NVTEMP                                
016972,003044:    4271           14273                          TCF      +2                                    
016973,003045:    4272           00001                          TC       L                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
016974,003046:    4273           34304                          CAF      BLNKBBNK                              
016975,003047:    4274           56006                          XCH      BBANK                                 
016976,003048:    4275           00006                          EXTEND                                         
016977,003049:    4276           04007                          ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
016978,003050:    4277           52131                          DXCH     BUF                                   

Page 382

016980,003052:    4300           34223                          CAF      PINSUPBT                              
016981,003053:    4301           00006                          EXTEND                                         
016982,003054:    4302           01007                          WRITE    SUPERBNK                              
016983,003055:    4303           03351                          TC       BLNKSUB1                              
016984,003056: 
016985,003057:    4304     1202                                 EBANK=   DSPCOUNT                              
016986,003058:    4304           60102        BLNKBBNK          BBCON    BLNKSUB1                              
016987,003059:    4305                        ENDBLFF           EQUALS                                         
016988,003060: 
016989,003061: 40,2000                                          SETLOC   PINBALL1                              
016990,003062: 40,2000                                          BANK                                           
016991,003063: 40,3351                                          COUNT*   $$/PIN                                
016992,003064: 40,3351           31202        BLNKSUB1          CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
016993,003065: 40,3352           54132                          TS       BUF        +2                         
016994,003066: 40,3353           34770                          CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
016995,003067: 40,3354           03373                          TC       TESTBIT                               
016996,003068: 40,3355           34321                          CAF      R1D1                                  
016997,003069: 40,3356           02430                          TC       5BLANK     -1                         
016998,003070: 40,3357           34767                          CAF      BIT2                                  #  TEST BIT 2. SEE IF R2 TO BE BLANKED.
016999,003071: 40,3360           03373                          TC       TESTBIT                               
017000,003072: 40,3361           34322                          CAF      R2D1                                  
017001,003073: 40,3362           02430                          TC       5BLANK     -1                         
017002,003074: 40,3363           34766                          CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
017003,003075: 40,3364           03373                          TC       TESTBIT                               
017004,003076: 40,3365           34323                          CAF      R3D1                                  
017005,003077: 40,3366           02430                          TC       5BLANK     -1                         
017006,003078: 40,3367           30132                          CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
017007,003079: 40,3370           55202                          TS       DSPCOUNT                              #         BEFORE BLANKSUB.
017008,003080: 40,3371           52131                          DXCH     BUF                                   #  CALL L+2 DIRECTLY.
017009,003081: 40,3372           05215                          TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
017010,003082: 
017011,003083: 40,3373           70123        TESTBIT           MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
017012,003084: 40,3374           10000                          CCS      A                                     
017013,003085: 40,3375           00002                          TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
017014,003086: 40,3376           16710                          TCF      Q+2                                   #  IF CURRENT BIT = 0, RETURN TO L+3
017015,003087: 40,3377           34353        DSPMMJB           CAF      MD1                                   #  GETS HERE THRU DSPMM
017016,003088: 40,3400           57202                          XCH      DSPCOUNT                              
017017,003089: 40,3401           54140                          TS       DSPMMTEM                              #  SAVE DSPCOUNT
017018,003090: 40,3402           11214                          CCS      MODREG                                
017019,003091: 40,3403           64770                          AD       ONE                                   
017020,003092: 40,3404           03146                          TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
017021,003093: 40,3405           03407                          TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
017022,003094: 40,3406           02473                          TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
017023,003095: 40,3407           56140                          XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
017024,003096: 40,3410           55202                          TS       DSPCOUNT                              
017025,003097: 40,3411           05205                          TC       ENDOFJOB                              
017026,003098: 
017027,003099:                                                                                                 #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
017028,003100:                                                                                                 #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS

Page 383

017030,003102:                                                                                                 #  EXECUTED.  IT WAKES UP JOB THAT DID TC ENDIDLE.
017031,003103: 
017032,003104:                                                                                                 #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
017033,003105:                                                                                                 #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
017034,003106: 
017035,003107: 40,3412           11245        RECALTST          CCS      CADRSTOR                              
017036,003108: 40,3413           03415                          TC       RECAL1                                
017037,003109: 40,3414           05205                          TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
017038,003110: 40,3415           34772        RECAL1            CAF      ZERO                                  
017039,003111: 40,3416           57245                          XCH      CADRSTOR                              
017040,003112: 40,3417           00004                          INHINT                                         
017041,003113: 40,3420           05167                          TC       JOBWAKE                               
017042,003114: 40,3421           31205                          CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
017043,003115: 40,3422           54001                          TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
017044,003116: 40,3423           31204                          CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
017045,003117: 40,3424           50064                          INDEX    LOCCTR                                #  BEEN WAKED UP.
017046,003118: 40,3425           52155                          DXCH     MPAC                                  
017047,003119: 40,3426           00003                          RELINT                                         
017048,003120: 40,3427           04432        RECAL3            TC       RELDSP                                
017049,003121: 40,3430           05205                          TC       ENDOFJOB                              
017050,003122: 
017051,003123: 40,3431           04224        NVSBENDL          TC       NVSUBEND                              
017052,003124: 40,3432  30,2000                                 SBANK=   LOWSUPER                              
017053,003125: 

Page 384

017055,003127: 
017056,003128:                                                                                                 #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
017057,003129: 
017058,003130:    4000                                          SETLOC   FFTAG8                                
017059,003131:    4000                                          BANK                                           
017060,003132:    4305                                          COUNT*   $$/PIN                                
017061,003133: 
017062,003134:                                                                                                 #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
017063,003135:                                                                                                 #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
017064,003136: 
017065,003137:    4305           55222        SETNCADR          TS       NOUNCADR                              #  STORE ECADR
017066,003138:    4306           54003                 +1       TS       EBANK                                 #  SET EBANK BITS
017067,003139:    4307           74350                          MASK     LOW8                                  
017068,003140:    4310           65024                          AD       OCT1400                               
017069,003141:    4311           54145                          TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
017070,003142:    4312           00002                          TC       Q                                     
017071,003143: 
017072,003144:                                                                                                 #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
017073,003145:                                                                                                 #                 E ADRES AND PUTS IT INTO NOUNADD.
017074,003146: 
017075,003147:    4313           31222        SETNADD           CA       NOUNCADR                              
017076,003148:    4314           14306                          TCF      SETNCADR   +1                         
017077,003149: 
017078,003150:                                                                                                 #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
017079,003151:                                                                                                 #                 DERIVED AND LEFT IN A.
017080,003152: 
017081,003153:    4315           54003        SETEBANK          TS       EBANK                                 #  SET EBANK BITS
017082,003154:    4316           74350                          MASK     LOW8                                  
017083,003155:    4317           65024                          AD       OCT1400                               #  E ADRES LEFT IN A
017084,003156:    4320           00002                          TC       Q                                     
017085,003157: 
017086,003158:    4321           00016        R1D1              OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017087,003159:    4322           00011        R2D1              OCT      11                                    #  DONT SEPARATE.
017088,003160:    4323           00004        R3D1              OCT      4                                     
017089,003161: 
017090,003162:    4324           54020        RIGHT5            TS       CYR                                   
017091,003163:    4325           40020                          CS       CYR                                   
017092,003164:    4326           40020                          CS       CYR                                   
017093,003165:    4327           40020                          CS       CYR                                   
017094,003166:    4330           40020                          CS       CYR                                   
017095,003167:    4331           56020                          XCH      CYR                                   
017096,003168:    4332           00002                          TC       Q                                     
017097,003169: 
017098,003170:    4333           54022        LEFT5             TS       CYL                                   
017099,003171:    4334           40022                          CS       CYL                                   
017100,003172:    4335           40022                          CS       CYL                                   
017101,003173:    4336           40022                          CS       CYL                                   
017102,003174:    4337           40022                          CS       CYL                                   

Page 385

017104,003176:    4340           56022                          XCH      CYL                                   
017105,003177:    4341           00002                          TC       Q                                     
017106,003178: 
017107,003179:    4342           00037        LOW5              OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017108,003180:    4343           01740        MID5              OCT      1740                                  #  DONT SEPARATE.
017109,003181:    4344           76000        HI5               OCT      76000                                 #  MUST STAY HERE
017110,003182: 
017111,003183:    4345     5313               TCTSKOVR          EQUALS   TSKOVCDR                              
017112,003184:    4345           05135        TCFINDVC          TC       FINDVAC                               
017113,003185: 
017114,003186:    4346           30000        CHRPRIO           OCT      30000                                 #  EXEC PRIORITY OF CHARIN
017115,003187: 
017116,003188:    4347           03777        LOW11             OCT      3777                                  
017117,003189:    4350           00377        LOW8              OCT      377                                   
017118,003190: 
017119,003191:    4351           00023        VD1               OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017120,003192:    4352           00021        ND1               OCT      21                                    #  DONT SEPARATE.
017121,003193:    4353           00025        MD1               OCT      25                                    
017122,003194: 
017123,003195:    4354     4353               VBSP1LD           EQUALS   MD1                                   #  VB21 = ALOAD
017124,003196:    4354           00026        VBSP2LD           DEC      22         B-14                       #  VB22 = BLOAD
017125,003197:    4355     4615               VBSP3LD           EQUALS   DEC23                                 #  VB23 = CLOAD
017126,003198:    4355           00012        BINCON            DEC      10         B-14                       
017127,003199: 
017128,003200:    4356           34764        RELDSPON          CAF      BIT5                                  
017129,003201:    4357           14363                          TCF      +4                                    
017130,003202:    4360           34763        FLASHON           CAF      BIT6                                  
017131,003203:    4361           14363                          TCF      +2                                    
017132,003204:    4362           34762        FALTON            CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
017133,003205:    4363           00006                          EXTEND                                         
017134,003206:    4364           05011                          WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
017135,003207:    4365           00002                          TC       Q                                     
017136,003208: 
017137,003209:    4366           00006        LODSAMPT          EXTEND                                         
017138,003210:    4367           30025                          DCA      TIME2                                 
017139,003211:    4370           52014                          DXCH     SAMPTIME                              
017140,003212:    4371           00002                          TC       Q                                     
017141,003213: 
017142,003214:    4372           00006        TPSL1             EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
017143,003215:    4373           30156                          DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
017144,003216:    4374           20156                          DAS      MPAC       +1                         
017145,003217:    4375           60154                          AD       MPAC                                  
017146,003218:    4376           26154                 +4       ADS      MPAC                                  
017147,003219:    4377           54007                          TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
017148,003220:    4400           00002                          TC       Q                                     #  NO NET OF/UF
017149,003221:    4401           54162                          TS       MPAC+6                                #  MPAC +6 SET TO +/-1 FOR OF/UF

Page 386

017151,003223:    4402           00002                          TC       Q                                     
017152,003224: 
017153,003225:                                                                                                 #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
017154,003226:                                                                                                 #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
017155,003227:                                                                                                 #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
017156,003228:                                                                                                 #  SETTING RESULT TO -0.
017157,003229:                                                                                                 #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
017158,003230:                                                                                                 #   WHEN THEY CONTAIN THE SF CONSTANTS.)
017159,003231: 
017160,003232:    4403           54135        PRSHRTMP          TS       MPTEMP                                
017161,003233:    4404           10000                          CCS      A                                     
017162,003234:    4405           30135                          CA       MPTEMP                                #  C(A) +,  DO REGULAR SHORTMP
017163,003235:    4406           17257                          TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
017164,003236:    4407           14405                          TCF      -2                                    #  C(A) -,  DO REGULAR SHORTMP
017165,003237:    4410           44772                          CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
017166,003238:    4411           54154                          TS       MPAC                                  
017167,003239:    4412           54155                          TS       MPAC       +1                         
017168,003240:    4413           54156                          TS       MPAC       +2                         
017169,003241:    4414           00002                          TC       Q                                     
017170,003242: 
017171,003243:    4415           44766        UPACTOFF          CS       BIT3                                  #  TURN OFF UPLINK ACTIVITY
017172,003244:    4416           14420                          TCF      +2                                    
017173,003245: 
017174,003246:    4417           44763        FLASHOFF          CS       BIT6                                  #  TURN OFF V/N FLASH
017175,003247:    4420           00006                          EXTEND                                         
017176,003248:    4421           03011                          WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
017177,003249:    4422           00002                          TC       Q                                     
017178,003250: 
017179,003251:    4423           50000        CODSTOR           INDEX    A                                     
017180,003252:    4424           34063                          CAF      RELTAB                                
017181,003253:    4425           74342                          MASK     LOW5                                  
017182,003254:    4426           54124                          TS       CODE                                  
017183,003255:    4427           31202                          CA       DSPCOUNT                              
017184,003256:    4430           54143                          TS       COUNT                                 
017185,003257:    4431           00002                          TC       Q                                     
017186,003258: 

Page 387

017188,003260:                                                                                                 #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM.
017189,003261: 
017190,003262:                                                                                                 #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
017191,003263:                                                                                                 #  CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
017192,003264:                                                                                                 #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
017193,003265:                                                                                                 #  OFFERED.
017194,003266: 
017195,003267:                                                                                                 #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY TEH KEYBOARD + DISPLAY
017196,003268:                                                                                                 #  PROGRAM.       1) BY ENDIDLE
017197,003269:                                                                                                 #                 2) BY NVSUBUSY
017198,003270:                                                                                                 #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
017199,003271:                                                                                                 #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
017200,003272:                                                                                                 #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY AJOB ASLEEP THAT WAS
017201,003273:                                                                                                 #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
017202,003274: 
017203,003275:                                                                                                 #  THE CALLING SEQUENCE FOR NVSUB IS
017204,003276:                                                                                                 #                 CAF     V/N
017205,003277:                                                                                                 #         L       TC      NVSUB
017206,003278:                                                                                                 #         L+1     RETURN HERE IF OPERATOR HAS INTERVENED
017207,003279:                                                                                                 #         L+2     RETURN HERE AFTER EXECUTION
017208,003280: 
017209,003281:                                                                                                 #  A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
017210,003282:                                                                                                 #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
017211,003283:                                                                                                 #  SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
017212,003284:                                                                                                 #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
017213,003285:                                                                                                 #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
017214,003286: 
017215,003287:                                                                                                 #  THE CALLING SEQUENCE IS
017216,003288:                                                                                                 #         CAF     WAKEFCADR
017217,003289:                                                                                                 #         TC      NVSUBUSY
017218,003290:                                                                                                 #  .
017219,003291: 
017220,003292:                                                                                                 #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
017221,003293:                                                                                                 #  IS NOT USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
017222,003294:                                                                                                 #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
017223,003295:                                                                                                 #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
017224,003296: 
017225,003297:                                                                                                 #  NVSUBUSY ABORTS (WITH CODE 21206) IF A SECOND JOB ATTEMPTS TO GO TO
017226,003298:                                                                                                 #  SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MAKE TO GO TO NVSUBUSY
017227,003299:                                                                                                 #  WHEN
017228,003300:                                                                                                 #  1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
017229,003301:                                                                                                 #     IS EXCEEDED.
017230,003302:                                                                                                 #  2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING

Page 388

017232,003304:                                                                                                 #  ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
017233,003305: 
017234,003306:                                                                                                 #  NVSUBUSY MOVED TO DISPLAY INTERFACE ROUTINES
017235,003307: 
017236,003308:                                                                                                 #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
017237,003309:                                                                                                 #  VERB DISPATCHER, VBRESEQ, RECALTST.
017238,003310:                                                                                                 #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
017239,003311: 
017240,003312:    4432           56002        RELDSP            XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
017241,003313:    4433           54144                          TS       RELRET                                #  OFF, SEARCH DSPLIST
017242,003314:    4434           44753                          CS       BIT14                                 
017243,003315:    4435           00004                          INHINT                                         
017244,003316:    4436           71224                          MASK     MONSAVE1                              
017245,003317:    4437           55224                          TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
017246,003318:    4440           11246                          CCS      DSPLIST                               
017247,003319:    4441           04443                          TC       +2                                    
017248,003320:    4442           04446                          TC       RELDSP2                               #  LIST EMPTY
017249,003321:    4443           34772                          CAF      ZERO                                  
017250,003322:    4444           57246                          XCH      DSPLIST                               
017251,003323:    4445           05167                          TC       JOBWAKE                               
017252,003324:    4446           00003        RELDSP2           RELINT                                         
017253,003325:    4447           44764                          CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
017254,003326:    4450           00006                          EXTEND                                         #  (BIT 5 OF CHANNEL 11)
017255,003327:    4451           03011                          WAND     DSALMOUT                              
017256,003328:    4452           34772                 +4       CAF      ZERO                                  
017257,003329:    4453           55215                          TS       DSPLOCK                               
017258,003330:    4454           00144                          TC       RELRET                                
017259,003331:    4455           56002        RELDSP1           XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
017260,003332:    4456           54144                          TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
017261,003333:                                                                                                 #  EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
017262,003334:                                                                                                 #  DSPLIST IS NOT EMPTY.
017263,003335:    4457           11246                          CCS      DSPLIST                               
017264,003336:    4460           04462                          TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE.
017265,003337:    4461           04446                          TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
017266,003338:    4462           14452                          TCF      RELDSP2    +4                         #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
017267,003339:    4463                        ENDPINBF          EQUALS                                         
017268,003340: 

Page 389

017270,003342:                                                                                                 #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
017271,003343: 
017272,003344:    4463  43,2002               PINTEST           EQUALS   LST2FAN                               
017273,003345: 

Page 390

017275,003347:                                                                                                 #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
017276,003348:                                                                                                 #  OFF THE CAUTION AND STATUS LIGHTS.
017277,003349: 
017278,003350: 40,2000                                          SETLOC   PINBALL1                              
017279,003351: 40,2000                                          BANK                                           
017280,003352: 40,3432                                          COUNT*   $$/PIN                                
017281,003353: 40,3432           04636        VBTSTLTS          TC       BANKCALL                              
017282,003354: 40,3433           66714                          CADR     CHKPOOH                               
017283,003355: 
017284,003356: 40,3434           00004                          INHINT                                         
017285,003357: 40,3435           41334                          CS       IMODES33                              #  SET BIT 1 OF IMODES33 SO IMUMON WONT
017286,003358: 40,3436           74770                          MASK     LMPTSTBT                              #  TURN OUT ANY LAMPS.
017287,003359: 40,3437           27334                          ADS      IMODES33                              
017288,003360: 40,3440           33550                          CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
017289,003361: 40,3441           00006                          EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
017290,003362: 40,3442           05011                          WOR      DSALMOUT                              
017291,003363: 40,3443           33551                          CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
017292,003364: 40,3444           55241                          TS       DSPTAB     +11D                       #  PROG ALM.
017293,003365: 40,3445           34757                          CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
017294,003366: 40,3446           00006                          EXTEND                                         
017295,003367: 40,3447           05013                          WOR      CHAN13                                
017296,003368: 40,3450           34355                          CAF      TEN                                   
017297,003369: 40,3451           54117        TSTLTS1           TS       ERCNT                                 
017298,003370: 40,3452           43546                          CS       FULLDSP                               
017299,003371: 40,3453           50117                          INDEX    ERCNT                                 
017300,003372: 40,3454           55226                          TS       DSPTAB                                
017301,003373: 40,3455           10117                          CCS      ERCNT                                 
017302,003374: 40,3456           03451                          TC       TSTLTS1                               
017303,003375: 40,3457           43547                          CS       FULLDSP1                              
017304,003376: 40,3460           55227                          TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
017305,003377: 40,3461           55232                          TS       DSPTAB     +4                         
017306,003378: 40,3462           55234                          TS       DSPTAB     +6                         
017307,003379: 40,3463           34775                          CAF      ELEVEN                                
017308,003380: 40,3464           55221                          TS       NOUT                                  
017309,003381: 40,3465           37704                          CAF      SHOLTS                                
017310,003382: 40,3466           04636                          TC       BANKCALL                              
017311,003383: 40,3467           01731                          CADR     DELAYJOB                              
017312,003384:                                                                                                 #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
017313,003385:                                                                                                 #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
017314,003386:                                                                                                 #  LIGHTS TEST WILL BE SEEN.
017315,003387: 
017316,003388: 40,3470     7704               SHOLTS            =        DEC500                                #  5 SEC
017317,003389: 40,3470           43552        TSTLTS3           CS       TSTCON3                               #  CALLED BY EXECUTIVE
017318,003390: 40,3471           00004                          INHINT                                         
017319,003391: 40,3472           00006                          EXTEND                                         #  TURN OFF UPLINK ACTIVITY, TEMP,
017320,003392: 40,3473           03011                          WAND     DSALMOUT                              #  OPERATOR ERROR.
017321,003393: 40,3474           44757                          CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
017322,003394: 40,3475           00006                          EXTEND                                         
017323,003395: 40,3476           03013                          WAND     CHAN13                                

Page 391

017325,003397: 40,3477           34765                          CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
017326,003398: 40,3500           00006                          EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
017327,003399: 40,3501           02012                          RAND     CHAN12                                
017328,003400: 40,3502           64752                          AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
017329,003401: 40,3503           55241                          TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
017330,003402: 40,3504           44770                          CS       LMPTSTBT                              
017331,003403: 40,3505           71334                          MASK     IMODES33                              
017332,003404: 40,3506           55334                          TS       IMODES33                              
017333,003405: 40,3507           40000                          COM                                            
017334,003406: 40,3510           74754                          MASK     PIP2FLBT                              
017335,003407: 40,3511           27334                          ADS      IMODES33                              
017336,003408: 40,3512           40000                          COM                                            
017337,003409: 40,3513           74755                          MASK     DNLKFAIL                              
017338,003410: 40,3514           27334                          ADS      IMODES33                              
017339,003411: 40,3515           40000                          COM                                            
017340,003412: 40,3516           74756                          MASK     UPLKFAIL                              
017341,003413: 40,3517           27334                          ADS      IMODES33                              
017342,003414: 40,3520           44752                          CS       TLIMBIT                               
017343,003415: 40,3521           71333                          MASK     IMODES30                              
017344,003416: 40,3522           55333                          TS       IMODES30                              
017345,003417: 40,3523           40000                          COM                                            
017346,003418: 40,3524           74754                          MASK     IMUFLBIT                              
017347,003419: 40,3525           27333                          ADS      IMODES30                              
017348,003420: 40,3526           40000                          COM                                            
017349,003421: 40,3527           74755                          MASK     ICDUFLBT                              
017350,003422: 40,3530           27333                          ADS      IMODES30                              
017351,003423: 40,3531           40000                          COM                                            
017352,003424: 40,3532           74757                          MASK     PIPAFLBT                              
017353,003425: 40,3533           27333                          ADS      IMODES30                              
017354,003426: 40,3534           41337                          CS       OPTMODES                              
017355,003427: 40,3535           74762                          MASK     OCDUFBIT                              
017356,003428: 40,3536           27337                          ADS      OPTMODES                              
017357,003429: 40,3537           00003                          RELINT                                         
017358,003430: 
017359,003431: 40,3540           05120                          TC       NOVAC30                               
017360,003432: 40,3541     1202                                 EBANK=   DSPCOUNT                              
017361,003433: 40,3541           03377 60102                    2CADR    DSPMMJOB                              
017362,003434: 
017363,003435: 40,3543           04235                          TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
017364,003436: 40,3544           04417                          TC       FLASHOFF                              #  TURN OFF V/N FLASH.
017365,003437: 40,3545           13335                          TCF      TSTLTS4                               
017366,003438: 40,3546           05675        FULLDSP           OCT      05675                                 #  DISPLAY ALL 8'S
017367,003439: 40,3547           07675        FULLDSP1          OCT      07675                                 #  DISPLAY ALL 8'S AND +
017368,003440: 40,3550           00175        TSTCON1           OCT      00175                                 
017369,003441:                                                                                                 #  UPLINK ACTIVITY, TEMP, KEY RLSE, 
017370,003442:                                                                                                 #  V/N FLASH, OPERATOR ERROR.
017371,003443: 40,3551           40650        TSTCON2           OCT      40650                                 #  DSPTAB+11D  BITS 4,6,8,9.
017372,003444:                                                                                                 #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
017373,003445: 40,3552           00115        TSTCON3           OCT      00115                                 #  CHAN 11  BITS 1, 3, 4, 7.
017374,003446:                                                                                                 #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.

Page 392

017376,003448: 
017377,003449:                                                                                                 #  ERROR LIGHT RESET (RSET) TURNS OFF:
017378,003450:                                                                                                 #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
017379,003451:                                                                                                 #  PROG ALM, TRACKER FAIL.
017380,003452:                                                                                                 #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
017381,003453:                                                                                                 #  IT ALSO ZEROS THE 'TEST ALARM' OUT BIT, WHICH TURNS OFF STBY, RESTART.
017382,003454:                                                                                                 #  IT ALSO SETS 'CAUTION RESET' TO 1.
017383,003455:                                                                                                 #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
017384,003456: 
017385,003457: 40,2000                                          SETLOC   PINBALL1                              
017386,003458: 40,2000                                          BANK                                           
017387,003459: 40,3553                                          COUNT*   $$/PIN                                
017388,003460: 40,3553           56115        ERROR             XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
017389,003461: 40,3554           55215                          TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
017390,003462: 40,3555           00004                          INHINT                                         
017391,003463: 40,3556           34757                          CAF      BIT10                                 #  TURN ON 'CAUTION RESET' OUTBIT
017392,003464: 40,3557           00006                          EXTEND                                         
017393,003465: 40,3560           05011                          WOR      DSALMOUT                              #  BIT10 CHAN 11
017394,003466: 40,3561           35004                          CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
017395,003467: 40,3562           71241                          MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
017396,003468: 40,3563           64752                          AD       BIT15                                 #  PROG ALARM, AND TRACKER.
017397,003469: 40,3564           55241                          TS       DSPTAB     +11D                       
017398,003470: 40,3565           41334                          CS       IMODES33                              #  RESET FAIL BITS WHICH GENERATE PROG
017399,003471: 40,3566           75055                          MASK     PRIO16                                #  ALARM SO THAT IF THE FAILURE STILL
017400,003472: 40,3567           27334                          ADS      IMODES33                              #  EXISTS, THE ALARM WILL COME BACK ON
017401,003473: 40,3570           41333                          CS       IMODES30                              
017402,003474: 40,3571           74757                          MASK     PIPAFLBT                              
017403,003475: 40,3572           27333                          ADS      IMODES30                              
017404,003476: 
017405,003477: 40,3573           41337                          CS       OPTMODES                              
017406,003478: 40,3574           74762                          MASK     OCDUFBIT                              
017407,003479: 40,3575           27337                          ADS      OPTMODES                              
017408,003480: 40,3576           04542                          TC       C13STALL                              
017409,003481: 40,3577           44757                          CS       BIT10                                 #  TURN OFF 'TEST ALARM' OUTBIT.
017410,003482: 40,3600           00006                          EXTEND                                         
017411,003483: 40,3601           03013                          WAND     CHAN13                                
017412,003484: 40,3602           43216                          CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
017413,003485: 40,3603           00006                          EXTEND                                         #  OPERATOR ERROR.
017414,003486: 40,3604           03011                          WAND     DSALMOUT                              
017415,003487: 40,3605           34355        TSTAB             CAF      BINCON                                #  (DEC 10)
017416,003488: 40,3606           54117                 +1       TS       ERCNT                                 #  ERCNT = COUNT
017417,003489: 40,3607           00004                          INHINT                                         
017418,003490: 40,3610           50117                          INDEX    ERCNT                                 
017419,003491: 40,3611           11226                          CCS      DSPTAB                                
017420,003492: 40,3612           64770                          AD       ONE                                   
017421,003493: 40,3613           03620                          TC       ERPLUS                                
017422,003494: 40,3614           64770                          AD       ONE                                   
017423,003495: 40,3615           40000        ERMINUS           CS       A                                     
017424,003496: 40,3616           77674                          MASK     NOTBIT12                              
017425,003497: 40,3617           03623                          TC       ERCOM                                 
017426,003498: 40,3620           40000        ERPLUS            CS       A                                     

Page 393

017428,003500: 40,3621           77674                          MASK     NOTBIT12                              
017429,003501: 40,3622           40000                          CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
017430,003502: 40,3623           50117        ERCOM             INDEX    ERCNT                                 #  ETC.
017431,003503: 40,3624           55226                          TS       DSPTAB                                
017432,003504: 40,3625           00003                          RELINT                                         
017433,003505: 40,3626           10117                          CCS      ERCNT                                 
017434,003506: 40,3627           03606                          TC       TSTAB      +1                         
017435,003507: 40,3630           54375                          TS       FAILREG                               
017436,003508: 40,3631           54376                          TS       FAILREG    +1                         
017437,003509: 40,3632           55357                          TS       SFAIL                                 
017438,003510: 40,3633           05205                          TC       ENDOFJOB                              
017439,003511: 
017440,003512: 40,3634           55000        OCT55000          OCT      55000                                 
017441,003513: 40,3635           16001        13-11,1           OCT      16001                                 
017442,003514: 40,3636     5004               GL+NOATT          EQUALS   OCT50                                 #  NO ATT AND GIMBAL LOCK LAMPS
017443,003515: 40,3636     7674               NOTBIT12          EQUALS   -1/8                                  
017444,003516: 40,3636                        ENDPINS1          EQUALS                                         
017445,003517: 
017446,003518: 40,3636  30,2000                                 SBANK=   LOWSUPER                              

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