Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

012871,000002:                                                                                                 #  Copyright:    Public domain.
012872,000003:                                                                                                 #  Filename:      PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
012873,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
012874,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
012875,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
012876,000007:                                                                                                 #  Assembler:    yaYUL
012877,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
012878,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
012879,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
012880,000011:                                                                                                 #  Mod history:  2011-01-23 JL   Adapted from corresponding Colossus 249 file.
012881,000012: 
012882,000013:                                                                                                 # # Page 300
012883,000014: 
012884,000015:                                                                                                 #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
012885,000016:                                                                                                 #  MOD NO - 4      DATE - 27 APRIL 1967      ASSEMBLY - PINDISK REV 17
012886,000017:                                                                                                 #  MOD BY - FILENE
012887,000018:                                                                                                 #  LOG SECTION - PINBALL GAME  BUTTONS AND LIGHTS
012888,000019: 
012889,000020:                                                                                                 #  FUNCTIONAL DESCRIPTION-
012890,000021: 
012891,000022:                                                                                                 #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
012892,000023:                                                                                                 #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
012893,000024:                                                                                                 #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
012894,000025:                                                                                                 #  FROM INTERNAL PROGRAM, AND FROM THE UPLINK.
012895,000026:                                                                                                 #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
012896,000027:                                                                                                 #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
012897,000028:                                                                                                 #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
012898,000029:                                                                                                 #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
012899,000030:                                                                                                 #  REFER TO A GROUP OF ERASABLE REGISTERS.
012900,000031: 
012901,000032:                                                                                                 #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
012902,000033:                                                                                                 #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
012903,000034:                                                                                                 #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
012904,000035:                                                                                                 #  :EXTENDED VERBS:).
012905,000036:                                                                                                 #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
012906,000037:                                                                                                 #  OPERATION INFORMATION:.
012907,000038: 
012908,000039: 
012909,000040:                                                                                                 #  CALLING SEQUENCES-
012910,000041: 
012911,000042:                                                                                                 #  KEYBOARD:
012912,000043:                                                                                                 #     EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
012913,000044:                                                                                                 #  INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO 
012914,000045:                                                                                                 #  CHANNEL 15 (CHANNEL 16).  KEYRUPT1 (KEYRUPT2) PLACES THE KEY
012915,000046:                                                                                                 #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
012916,000047:                                                                                                 #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
012917,000048: 
012918,000049:                                                                                                 #  UPLINK:
012919,000050:                                                                                                 #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
012920,000051:                                                                                                 #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
012921,000052:                                                                                                 #  KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
012922,000053: 
012923,000054:                                                                                                 #  INTERNAL PROGRAMS:
012924,000055:                                                                                                 #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
012925,000056:                                                                                                 #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
012926,000057:                                                                                                 #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
012927,000058:                                                                                                 #  SYMBOL TABLE FOR PAGE NUMBERS).
012928,000059: 
012929,000060: 
012930,000061:                                                                                                 #  NORMAL EXIT MODES-
012931,000062: 
012932,000063:                                                                                                 #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
012933,000064:                                                                                                 #            1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
012934,000065:                                                                                                 # # Page 301
012935,000066:                                                                                                 #            2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
012936,000067:                                                                                                 #               PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
012937,000068:                                                                                                 #               RESPONSIBILITY OF THE EXTEDED VERB CALLED TO EVENTUALLY
012938,000069:                                                                                                 #               CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
012939,000070:                                                                                                 #               ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
012940,000071:                                                                                                 #            3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
012941,000072:                                                                                                 #               SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
012942,000073:                                                                                                 #               30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
012943,000074:                                                                                                 #            4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
012944,000075:                                                                                                 #               ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
012945,000076:                                                                                                 #               THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT 40.
012946,000077: 
012947,000078:                                                                                                 #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
012948,000079:                                                                                                 #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
012949,000080:                                                                                                 #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
012950,000081: 
012951,000082: 
012952,000083:                                                                                                 #  ALARM OR ABORT EXIT MODES-
012953,000084: 
012954,000085:                                                                                                 #  EXTERNAL INITIATION:
012955,000086:                                                                                                 #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
012956,000087:                                                                                                 #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
012957,000088: 
012958,000089:                                                                                                 #  INTERNAL PROGRAM INITIATION:
012959,000090:                                                                                                 #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
012960,000091:                                                                                                 #  (WITH OCTAL 01501).
012961,000092:                                                                                                 #     IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
012962,000093:                                                                                                 #  CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
012963,000094:                                                                                                 #            1) ENDIDLE OR DATAWAIT.
012964,000095:                                                                                                 #            2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
012965,000096: 
012966,000097:                                                                                                 #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
012967,000098:                                                                                                 #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
012968,000099: 
012969,000100: 
012970,000101:                                                                                                 #  OUTPUT-
012971,000102: 
012972,000103:                                                                                                 #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
012973,000104:                                                                                                 #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
012974,000105:                                                                                                 #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
012975,000106:                                                                                                 #  IN INTERRUPT.
012976,000107: 
012977,000108: 
012978,000109:                                                                                                 #  ERASABLE INITIALIZATION-
012979,000110: 
012980,000111:                                                                                                 #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
012981,000112:                                                                                                 #  PINBALL IN :STARTSUB:.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
012982,000113:                                                                                                 #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
012983,000114:                                                                                                 #  DSPCOUNT, NOUT.
012984,000115: 
012985,000116:                                                                                                 # # Page 302
012986,000117: 
012987,000118:                                                                                                 #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
012988,000119:                                                                                                 #  PINBALL IS GIVEN BELOW.
012989,000120: 
012990,000121: 
012991,000122:                                                                                                 #  THE FOLLOWING ARE OF GENERAL INTEREST-
012992,000123: 
012993,000124:                                                                                                 #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
012994,000125:                                                                                                 #  TABLE TO FIND APPROPRIATE PACE NUMBERS.
012995,000126: 
012996,000127:                                                                                                 #     NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
012997,000128:                                                                                                 #               OF RELATED INTEREST   NVSBWAIT
012998,000129:                                                                                                 #                                      NVSUBUSY
012999,000130:                                                                                                 #                                      PRENVBSY
013000,000131: 
013001,000132:                                                                                                 #     ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO TO SLEEP WHILE
013002,000133:                                                                                                 #                AWAITING OPERATORS RESPONSE.
013003,000134: 
013004,000135:                                                                                                 #     DSPMM   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
013005,000136:                                                                                                 #              PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
013006,000137:                                                                                                 #              (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
013007,000138:                                                                                                 #              FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
013008,000139: 
013009,000140:                                                                                                 #     BLANKSUB   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
013010,000141:                                                                                                 #                 COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
013011,000142: 
013012,000143:                                                                                                 #     JAMTERM   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
013013,000144:                                                                                                 #     JAMPROC   TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
013014,000145: 
013015,000146:                                                                                                 #     MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
013016,000147: 
013017,000148:                                                                                                 #     PLEASE PERFORM, PLEASE MARK SITUATIONS
013018,000149:                                                                                                 #                   REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
013019,000150:                                                                                                 #                   THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
013020,000151:                                                                                                 #                   SYMBOL TABLE FOR PAGE NUMBER).
013021,000152: 
013022,000153:                                                                                                 #     THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
013023,000154:                                                                                                 #     BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
013024,000155: 
013025,000156:                                                                                                 #     THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
013026,000157:                                                                                                 #     TABLES:.
013027,000158: 
013028,000159: 
013029,000160:                                                                                                 #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
013030,000161:                                                                                                 #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
013031,000162:                                                                                                 #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
013032,000163: 
013033,000164: 
013034,000165:                                                                                                 #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
013035,000166: 
013036,000167:                                                                                                 #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
013037,000168:                                                                                                 # # Page 303
013038,000169:                                                                                                 #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
013039,000170:                                                                                                 #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
013040,000171: 
013041,000172:                                                                                                 #                        HENRY 6, ACT 2, SCENE 4
013042,000173: 
013043,000174: 
013044,000175:                                                                                                 #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
013045,000176: 
013046,000177: 
013047,000178:                                                                                                 #  RESERVED FOR PINBALL EXECUTIVE ACTION
013048,000179: 
013049,000180:                                                                                                 #  DSPCOUNT       ERASE                   # DISPLAY POSITION INDICATOR
013050,000181:                                                                                                 #  DECBRNCH       ERASE                   # +DEC, - DEC, OCT INDICATOR
013051,000182:                                                                                                 #  VERBREG        ERASE                   # VERB CODE
013052,000183:                                                                                                 #  NOUNREG        ERASE                   # NOUN CODE
013053,000184:                                                                                                 #  XREG           ERASE                   # R1 INPUT BUFFER
013054,000185:                                                                                                 #  YREG           ERASE                   # R2 INPUT BUFFER
013055,000186:                                                                                                 #  ZREG           ERASE                   # R3 INPUT BUFFER
013056,000187:                                                                                                 #  XREGLP ERASE                   # LO PART OF XREG (FOR DEC CONV ONLY)
013057,000188:                                                                                                 #  YREGLP ERASE                   # LO PART OF YREG (FOR DEC CONV ONLY)
013058,000189:                                                                                                 #  HITEMOUT       =       YREGLP          # TEMP FOR DISPLAY OF HRS, MIN, SEC
013059,000190:                                                                                                 #                                         #          MUST = LOTEMOUT-1.
013060,000191:                                                                                                 #  ZREGLP ERASE                   # LO PART OF ZREG (FOR DEC CONV ONLY)
013061,000192:                                                                                                 #  LOTEMOUT       =       ZREGLP          # TEMP FOR DISPLAY OF HRS, MIN, SEC
013062,000193:                                                                                                 #                                         #          MUST = HITEMOUT+1.
013063,000194:                                                                                                 #  MODREG ERASE                   # MODE CODE
013064,000195:                                                                                                 #  DSPLOCK        ERASE                   # KEYBOARD/SUBROUTINE CALL INTERLOCK
013065,000196:                                                                                                 #  REQRET ERASE                   # RETURN REGISTER FOR LOAD
013066,000197:                                                                                                 #  LOADSTAT       ERASE                   # STATUS INDICATOR FOR LOADTST
013067,000198:                                                                                                 #  CLPASS ERASE                   # PASS INDICATOR CLEAR
013068,000199:                                                                                                 #  NOUT           ERASE                   # ACTIVITY COUNTER FOR DSPTAB
013069,000200:                                                                                                 #  NOUNCADR       ERASE                   # MACHINE CADR FOR NOUN
013070,000201:                                                                                                 #  MONSAVE        ERASE                   # N/V CODE FOR MONITOR. (= MONSAVE1-1)
013071,000202:                                                                                                 #  MONSAVE1       ERASE                   # NOUNCADR FOR MONITOR (MATBS1) =MONSAVE +1
013072,000203:                                                                                                 #  MONSAVE2       ERASE                   # NVMONOPT OPTIONS
013073,000204:                                                                                                 #  DSPTAB ERASE           +13D    # 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
013074,000205:                                                                                                 #  CADRSTOR       ERASE                   # ENDIDLE STORAGE
013075,000206:                                                                                                 #  NVQTEM ERASE                   # NVSUB STORAGE FOR CALLING ADDRESS
013076,000207:                                                                                                 #                                         # MUST = NVBNKTEM-1
013077,000208:                                                                                                 #  NVBNKTEM       ERASE                   # NVSUB STORAGE FOR CALLING BANK
013078,000209:                                                                                                 #                                         # MUST = NVQTEM+1
013079,000210:                                                                                                 #  VERBSAVE       ERASE                   # NEEDED FOR RECYCLE
013080,000211:                                                                                                 #  DSPLIST        ERASE                   # WAITING REG FOR DSP SYST INTERNAL USE
013081,000212:                                                                                                 #  EXTVBACT       ERASE                   # EXTENDED VERB ACTIVITY INTERLOCK
013082,000213:                                                                                                 #  DSPTEM1        ERASE           +2      # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
013083,000214:                                                                                                 #  DSPTEM2        ERASE           +2      # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
013084,000215:                                                                                                 #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
013085,000216: 
013086,000217: 
013087,000218:                                                                                                 #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013088,000219: 
013089,000220:                                                                                                 # # Page 304
013090,000221:                                                                                                 #  DSEXIT =       INTB15+         # RETURN FOR DSPIN
013091,000222:                                                                                                 #  EXITEM =       INTB15+         # RETURN FOR SCALE FACTOR ROUTINE SELECT
013092,000223:                                                                                                 #  BLANKRET       =       INTB15+         # RETURN FOR 2BLANK
013093,000224: 
013094,000225:                                                                                                 #  WRDRET =       INTBIT15        # RETURN FOR 5BLANK
013095,000226:                                                                                                 #  WDRET          =       INTBIT15        # RETURN FOR DSPWD
013096,000227:                                                                                                 #  DECRET =       INTBIT15        # RETURN FOR PUTCOM(DEC LOAD)
013097,000228:                                                                                                 #  21/22REG       =       INTBIT15        # TEMP FOR CHARIN
013098,000229: 
013099,000230:                                                                                                 #  UPDATRET       =       POLISH          # RETURN FOR UPDATNN, UPDATVB
013100,000231:                                                                                                 #  CHAR           =       POLISH          # TEMP FOR CHARIN
013101,000232:                                                                                                 #  ERCNT          =       POLISH          # COUNTER FOR ERROR LIGHT RESET
013102,000233:                                                                                                 #  DECOUNT        =       POLISH          # COUNTER FOR SCALING AND DISPLAY (DEC)
013103,000234: 
013104,000235:                                                                                                 #  SGNON          =       VBUF            # TEMP FOR +,- ON
013105,000236:                                                                                                 #  NOUNTEM        =       VBUF            # COUNTER FOR MIXNOUN FETCH
013106,000237:                                                                                                 #  DISTEM =       VBUF            # COUNTER FOR OCTAL DISPLAY VERB
013107,000238:                                                                                                 #  DECTEM =       VBUF            # COUNTER FOR FETCH (DEC DISPLAY VERBS)
013108,000239: 
013109,000240:                                                                                                 #  SGNOFF =       VBUF    +1      # TEMP FOR +,- ON
013110,000241:                                                                                                 #  NVTEMP =       VBUF    +1      # TEMP FOR NVSUB
013111,000242:                                                                                                 #  SFTEMP1        =       VBUF    +1      # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
013112,000243:                                                                                                 #  HITEMIN        =       VBUF    +1      # TEMP FOR LOAD OF HRS, MIN, SEC
013113,000244:                                                                                                 #                                         #          MUST = LOTEMIN-1.
013114,000245:                                                                                                 #  CODE           =       VBUF    +2      # FOR DSPIN
013115,000246:                                                                                                 #  SFTEMP2        =       VBUF    +2      # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
013116,000247:                                                                                                 #  LOTEMIN        =       VBUF    +2      # TEMP FOR LOAD OF HRS, MIN, SEC
013117,000248:                                                                                                 #                                         #          MUST = HITEMIN+1.
013118,000249:                                                                                                 #  MIXTEMP        =       VBUF    +3      # FOR MIXNOUN DATA
013119,000250:                                                                                                 #  SIGNRET        =       VBUF    +3      # RETURN FOR +,- ON
013120,000251: 
013121,000252:                                                                                                 #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
013122,000253: 
013123,000254:                                                                                                 #  ENTRET =       DOTINC          # EXIT FROM ENTER
013124,000255: 
013125,000256:                                                                                                 #  WDCNT          =       DOTRET          # CHAR COUNTER FOR DSPWD
013126,000257:                                                                                                 #  INREL          =       DOTRET          # INPUT BUFFER SELECTION ( X, Y, Z, REG )
013127,000258: 
013128,000259:                                                                                                 #  DSPMMTEM       =       MATINC          # DSPCOUNT SAVE FOR DSPMM
013129,000260:                                                                                                 #  MIXBR          =       MATINC          # INDICATOR FOR MIXED OR NORMAL NOUN
013130,000261: 
013131,000262:                                                                                                 #  TEM1           ERASE                   # EXEC TEMP
013132,000263:                                                                                                 #  DSREL          =       TEM1            # REL ADDRESS FOR DSPIN
013133,000264: 
013134,000265:                                                                                                 #  TEM2           ERASE                   # EXEC TEMP
013135,000266:                                                                                                 #  DSMAG          =       TEM2            # MAGNITUDE STORE FOR DSPIN
013136,000267:                                                                                                 #  IDADDTEM       =       TEM2            # MIXNOUN INDIRECT ADDRESS STORAGE
013137,000268: 
013138,000269:                                                                                                 #  TEM3           ERASE                   # EXEC TEMP
013139,000270:                                                                                                 #  COUNT          =       TEM3            # FOR DSPIN
013140,000271: 
013141,000272:                                                                                                 # # Page 305
013142,000273:                                                                                                 #  TEM4           ERASE                   # EXEC TEMP
013143,000274:                                                                                                 #  LSTPTR =       TEM4            # LIST POINTER FOR GRABUSY
013144,000275:                                                                                                 #  RELRET =       TEM4            # RETURN FOR RELDSP
013145,000276:                                                                                                 #  FREERET        =       TEM4            # RETURN FOR FREEDSP
013146,000277:                                                                                                 #  DSPWDRET       =       TEM4            # RETURN FOR DSPSIGN
013147,000278:                                                                                                 #  SEPSCRET       =       TEM4            # RETURN FOR SEPSEC
013148,000279:                                                                                                 #  SEPMNRET       =       TEM4            # RETURN FOR SEPMIN
013149,000280: 
013150,000281:                                                                                                 #  TEM5           ERASE                   # EXEC TEMP
013151,000282:                                                                                                 #  NOUNADD        =       TEM5            # TEMP STORAGE FOR NOUN ADDRESS
013152,000283: 
013153,000284:                                                                                                 #  NNADTEM        ERASE                   # TEMP FOR NOUN ADDRESS TABLE ENTRY
013154,000285:                                                                                                 #  NNTYPTEM       ERASE                   # TEMP FOR NOUN TYPE TABLE ENTRY
013155,000286:                                                                                                 #  IDAD1TEM       ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY(MIXNN)
013156,000287:                                                                                                 #                                         # MUST = IDAD2TEM-1, = IDAD3TEM-2.
013157,000288:                                                                                                 #  IDAD2TEM       ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY(MIXNN)
013158,000289:                                                                                                 #                                         # MUST = IDAD1TEM+1, = IDAD3TEM-1.
013159,000290:                                                                                                 #  IDAD3TEM       ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY(MIXNN)
013160,000291:                                                                                                 #                                         # MUST = IDAD1TEM+2, = IDAD2TEM+1.
013161,000292:                                                                                                 #  RUTMXTEM       ERASE                   # TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
013162,000293:                                                                                                 #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013163,000294: 
013164,000295: 
013165,000296:                                                                                                 #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013166,000297: 
013167,000298:                                                                                                 #  MPAC, THRU MPAC +6
013168,000299:                                                                                                 #  BUF, +1, +2
013169,000300:                                                                                                 #  BUF2, +1, +2
013170,000301:                                                                                                 #  MPTEMP
013171,000302:                                                                                                 #  ADDRWD
013172,000303:                                                                                                 #    END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
013173,000304: 
013174,000305: 
013175,000306:                                                                                                 #  RESERVED FOR PINBALL INTERRUPT ACTION
013176,000307: 
013177,000308:                                                                                                 #  DSPCNT ERASE                   # COUNTER FOR DSPOUT
013178,000309:                                                                                                 #  UPLOCK ERASE                   # BIT1 = UPLINK INTERLOCK (ACTIVATED BY
013179,000310:                                                                                                 #                                         #                                         RECEPTION OF A BAD MESSAGE IN UPLINK)
013180,000311:                                                                                                 #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
013181,000312: 
013182,000313: 
013183,000314:                                                                                                 #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
013184,000315: 
013185,000316:                                                                                                 #  KEYTEMP1       =       WAITEXIT        # TEMP FOR KEYRUPT, UPRUPT
013186,000317:                                                                                                 #  DSRUPTEM       =       WAITEXIT        # TEMP FOR DSPOUT
013187,000318:                                                                                                 #  KEYTEMP2       =       RUPTAGN         # TEMP FOR KEYRUPT, UPRUPT
013188,000319:                                                                                                 #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
013189,000320: 
013190,000321:                                                                                                 # # Page 306
013191,000322:                                                                                                 #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
013192,000323:                                                                                                 #  0        10000
013193,000324:                                                                                                 #  1        00001
013194,000325:                                                                                                 #  9        01001
013195,000326:                                                                                                 #  VERB     10001
013196,000327:                                                                                                 #  ERROR RES10010
013197,000328:                                                                                                 #  KEY RLSE 11001
013198,000329:                                                                                                 #  +        11010
013199,000330:                                                                                                 #  -        11011
013200,000331:                                                                                                 #  ENTER    11100
013201,000332:                                                                                                 #  CLEAR    11110
013202,000333:                                                                                                 #  NOUN     11111
013203,000334: 
013204,000335: 
013205,000336:                                                                                                 #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
013206,000337:                                                                                                 #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
013207,000338:                                                                                                 #  ENERGIZED.
013208,000339:                                                                                                 #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
013209,000340:                                                                                                 #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
013210,000341:                                                                                                 #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
013211,000342: 
013212,000343:                                                                                                 #  THE PANEL APPEARS AS FOLLOWS,
013213,000344:                                                                                                 #  MD1    MD2                         (MAJOR MODE)
013214,000345:                                                                                                 #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
013215,000346:                                                                                                 #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
013216,000347:                                                                                                 #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
013217,000348:                                                                                                 #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
013218,000349: 
013219,000350:                                                                                                 #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
013220,000351:                                                                                                 #  MD1   25     R2D1  11         ALL ARE OCTAL
013221,000352:                                                                                                 #  MD2   24     R2D2  10
013222,000353:                                                                                                 #  VD1   23     R2D3   7
013223,000354:                                                                                                 #  VD2   22     R2D4   6
013224,000355:                                                                                                 #  ND1   21     R2D5   5
013225,000356:                                                                                                 #  ND2   20     R3D1   4
013226,000357:                                                                                                 #  R1D1  16     R3D2   3
013227,000358:                                                                                                 #  R1D2  15     R3D3   2
013228,000359:                                                                                                 #  R1D3  14     R3D4   1
013229,000360:                                                                                                 #  R1D4  13     R3D5   0
013230,000361:                                                                                                 #  R1D5  12
013231,000362: 
013232,000363: 
013233,000364:                                                                                                 #  THERE IS AN 11-REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
013234,000365: 
013235,000366:                                                                                                 #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
013236,000367:                                                                                                 #  RELADD
013237,000368:                                                                                                 #  10     1011                    MD1  (25)     MD2  (24)
013238,000369:                                                                                                 #  9      1010                    VD1  (23)     VD2  (22)
013239,000370:                                                                                                 #  8      1001                    ND1  (21)     ND2  (20)
013240,000371:                                                                                                 #  7      1000                                  R1D1 (16)
013241,000372:                                                                                                 # # Page 307
013242,000373:                                                                                                 #  6      0111          +R1       R1D2 (15)     R1D3 (14)
013243,000374:                                                                                                 #  5      0110          -R1       R1D4 (13)     R1D5 (12)
013244,000375:                                                                                                 #  4      0101          +R2       R2D1 (11)     R2D2 (10)
013245,000376:                                                                                                 #  3      0100          -R2       R2D3 (7)      R2D4 (6)
013246,000377:                                                                                                 #  2      0011                    R2D5 (5)      R3D1 (4)
013247,000378:                                                                                                 #  1      0010          +R3       R3D2 (3)      R3D3 (2)
013248,000379:                                                                                                 #  0      0001          -R3       R3D4 (1)      R3D5 (0)
013249,000380:                                                                                                 #         0000   NO RELAYWORD
013250,000381: 
013251,000382: 
013252,000383:                                                                                                 #  THE 5 BIT OUTPUT RELAY CODES ARE:
013253,000384:                                                                                                 #  BLANK      00000
013254,000385:                                                                                                 #  0          10101
013255,000386:                                                                                                 #  1          00011
013256,000387:                                                                                                 #  2          11001
013257,000388:                                                                                                 #  3          11011
013258,000389:                                                                                                 #  4          01111
013259,000390:                                                                                                 #  5          11110
013260,000391:                                                                                                 #  6          11100
013261,000392:                                                                                                 #  7          10011
013262,000393:                                                                                                 #  8          11101
013263,000394:                                                                                                 #  9          11111
013264,000395: 
013265,000396: 
013266,000397:                                                                                                 #  OUTPUT BITS USED BY PINBALL:
013267,000398: 
013268,000399:                                                                                                 #              KEY RELEASE LIGHT    - BIT 5 OF CHANNEL 11
013269,000400:                                                                                                 #              VERB/NOUN FLASH      - BIT 6 OF CHANNEL 11
013270,000401:                                                                                                 #              OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
013271,000402: 
013272,000403:                                                                                                 # # Page 308
013273,000404: 
013274,000405:                                                                                                 #  START OF EXECUTIVE SECTION OF PINBALL
013275,000406: 
013276,000407: 40,2000                                          BANK     40                                    
013277,000408: 40,2000                                          SETLOC   PINBALL1                              
013278,000409: 40,2000                                          BANK                                           
013279,000410: 
013280,000411: 40,2000                                          COUNT    40/PIN                                
013281,000412: 
013282,000413: 40,2000           34712        CHARIN            CAF      ONE                                   #  BLOCK DISPLAY SYST
013283,000414: 40,2001           57012                          XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
013284,000415: 40,2002           54115                          TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
013285,000416: 40,2003           11042                          CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
013286,000417: 40,2004           02006                          TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
013287,000418: 40,2005           02013                          TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
013288,000419: 40,2006           42057                          CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
013289,000420: 40,2007           60154                          AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
013290,000421: 40,2010           00006                          EXTEND                                         #  VBRELDSP).
013291,000422: 40,2011           12013                          BZF      CHARIN2                               
013292,000423: 40,2012           04410                          TC       RELDSPON                              
013293,000424: 40,2013           56154        CHARIN2           XCH      MPAC                                  
013294,000425: 40,2014           54117                          TS       CHAR                                  
013295,000426: 40,2015           50000                          INDEX    A                                     
013296,000427: 40,2016           02017                          TC       +1                                    #  INPUT CODE     FUNCTION
013297,000428: 40,2017           03335                          TC       CHARALRM                              #  0
013298,000429: 40,2020           02076                          TC       NUM                                   #  1
013299,000430: 40,2021           02076                          TC       NUM                                   #  2
013300,000431: 40,2022           02076                          TC       NUM                                   #  3
013301,000432: 40,2023           02076                          TC       NUM                                   #  4
013302,000433: 40,2024           02076                          TC       NUM                                   #  5
013303,000434: 40,2025           02076                          TC       NUM                                   #  6
013304,000435: 40,2026           02076                          TC       NUM                                   #  7
013305,000436: 40,2027           02062                          TC       89TEST                                #  10                 8
013306,000437: 40,2030           02062                          TC       89TEST                                #  11                 9
013307,000438: 40,2031           03335                          TC       CHARALRM                              #  12
013308,000439: 40,2032           03335                          TC       CHARALRM                              #  13
013309,000440: 40,2033           03335                          TC       CHARALRM                              #  14
013310,000441: 40,2034           03335                          TC       CHARALRM                              #  15
013311,000442: 40,2035           03335                          TC       CHARALRM                              #  16
013312,000443: 40,2036           03335                          TC       CHARALRM                              #  17
013313,000444: 40,2037           02074                          TC       NUM        -2                         #  20                 0
013314,000445: 40,2040           02255                          TC       VERB                                  #  21                 VERB
013315,000446: 40,2041           03504                          TC       ERROR                                 #  22                 ERROR LIGHT RESET
013316,000447: 40,2042           03335                          TC       CHARALRM                              #  23
013317,000448: 40,2043           03335                          TC       CHARALRM                              #  24
013318,000449: 40,2044           03335                          TC       CHARALRM                              #  25
013319,000450: 40,2045           03335                          TC       CHARALRM                              #  26
013320,000451: 40,2046           03335                          TC       CHARALRM                              #  27
013321,000452: 40,2047           03335                          TC       CHARALRM                              #  30
013322,000453: 40,2050           03362                          TC       VBRELDSP                              #  31                 KEY RELEASE
013323,000454:                                                                                                 # # Page 309
013324,000455: 40,2051           02310                          TC       POSGN                                 #  32                 +
013325,000456: 40,2052           02275                          TC       NEGSGN                                #  33                 -
013326,000457: 40,2053           02060                          TC       ENTERJMP                              #  34                 ENTER
013327,000458: 40,2054           03335                          TC       CHARALRM                              #  35
013328,000459: 40,2055           02370                          TC       CLEAR                                 #  36                 CLEAR
013329,000460: 40,2056           02271                          TC       NOUN                                  #  37                 NOUN
013330,000461: 
013331,000462: 
013332,000463: 40,2057           00022        ELRCODE1          OCT      22                                    
013333,000464: 40,2060           04574        ENTERJMP          TC       POSTJUMP                              
013334,000465: 40,2061           62002                          CADR     ENTER                                 
013335,000466: 
013336,000467: 40,2062           10777        89TEST            CCS      DSPCOUNT                              
013337,000468: 40,2063           02067                          TC       +4                                    #  +
013338,000469: 40,2064           02067                          TC       +3                                    #  +0
013339,000470: 40,2065           05112                          TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
013340,000471: 40,2066           05112                          TC       ENDOFJOB                              #  -0
013341,000472: 40,2067           36214                          CAF      THREE                                 
013342,000473: 40,2070           71000                          MASK     DECBRNCH                              
013343,000474: 40,2071           10000                          CCS      A                                     
013344,000475: 40,2072           02076                          TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
013345,000476: 40,2073           03335                          TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
013346,000477: 
013347,000478: 
013348,000479:                                                                                                 #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
013349,000480:                                                                                                 #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
013350,000481:                                                                                                 #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
013351,000482:                                                                                                 #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
013352,000483:                                                                                                 #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
013353,000484:                                                                                                 #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
013354,000485: 
013355,000486: 40,2074           34714                          CAF      ZERO                                  
013356,000487: 40,2075           54117                          TS       CHAR                                  
013357,000488: 40,2076           10777        NUM               CCS      DSPCOUNT                              
013358,000489: 40,2077           02103                          TC       +4                                    #  +
013359,000490: 40,2100           02103                          TC       +3                                    #  +0
013360,000491: 40,2101           02102                          TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
013361,000492: 40,2102           05112                          TC       ENDOFJOB                              #  -0
013362,000493: 40,2103           02225                          TC       GETINREL                              
013363,000494: 40,2104           11015                          CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
013364,000495: 40,2105           34714                          CAF      ZERO                                  
013365,000496: 40,2106           55015                          TS       CLPASS                                
013366,000497: 40,2107           02110                          TC       +1                                    
013367,000498: 40,2110           50117                          INDEX    CHAR                                  
013368,000499: 40,2111           34072                          CAF      RELTAB                                
013369,000500: 40,2112           74362                          MASK     LOW5                                  
013370,000501: 40,2113           54124                          TS       CODE                                  
013371,000502: 40,2114           30777                          CA       DSPCOUNT                              
013372,000503: 40,2115           54143                          TS       COUNT                                 
013373,000504: 40,2116           03225                          TC       DSPIN                                 
013374,000505:                                                                                                 # # Page 310
013375,000506: 40,2117           36214                          CAF      THREE                                 
013376,000507: 40,2120           71000                          MASK     DECBRNCH                              
013377,000508: 40,2121           10000                          CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
013378,000509: 40,2122           02133                          TC       DECTOBIN                              #  +
013379,000510: 40,2123           50137                          INDEX    INREL                                 #  +0 OCTAL
013380,000511: 40,2124           57001                          XCH      VERBREG                               
013381,000512: 40,2125           54022                          TS       CYL                                   
013382,000513: 40,2126           40022                          CS       CYL                                   
013383,000514: 40,2127           40022                          CS       CYL                                   
013384,000515: 40,2130           56022                          XCH      CYL                                   
013385,000516: 40,2131           60117                          AD       CHAR                                  
013386,000517: 40,2132           02150                          TC       ENDNMTST                              
013387,000518: 40,2133           50137        DECTOBIN          INDEX    INREL                                 
013388,000519: 40,2134           57001                          XCH      VERBREG                               
013389,000520: 40,2135           54154                          TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
013390,000521: 40,2136           34714                          CAF      ZERO                                  
013391,000522: 40,2137           54155                          TS       MPAC       +1                         
013392,000523: 40,2140           34377                          CAF      TEN                                   #  10 X 2EXP-14
013393,000524: 40,2141           07256                          TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
013394,000525: 40,2142           56155                          XCH      MPAC       +1                         
013395,000526: 40,2143           60117                          AD       CHAR                                  
013396,000527: 40,2144           54155                          TS       MPAC       +1                         
013397,000528: 40,2145           02150                          TC       ENDNMTST                              #  NO OF
013398,000529: 40,2146           26154                          ADS      MPAC                                  #  OF MUST BE 5TH CHAR
013399,000530: 40,2147           02166                          TC       DECEND                                
013400,000531: 40,2150           50137        ENDNMTST          INDEX    INREL                                 
013401,000532: 40,2151           55001                          TS       VERBREG                               
013402,000533: 40,2152           40777                          CS       DSPCOUNT                              
013403,000534: 40,2153           50137                          INDEX    INREL                                 
013404,000535: 40,2154           62216                          AD       CRITCON                               
013405,000536: 40,2155           00006                          EXTEND                                         
013406,000537: 40,2156           12160                          BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
013407,000538: 40,2157           02213                          TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
013408,000539: 40,2160           36214        ENDNUM            CAF      THREE                                 
013409,000540: 40,2161           71000                          MASK     DECBRNCH                              
013410,000541: 40,2162           10000                          CCS      A                                     
013411,000542: 40,2163           02166                          TC       DECEND                                
013412,000543: 40,2164           40777        ENDALL            CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
013413,000544: 40,2165           02214                          TC       MORNUM     +1                         #  NEGATIVELY
013414,000545: 40,2166           44712        DECEND            CS       ONE                                   
013415,000546: 40,2167           60137                          AD       INREL                                 
013416,000547: 40,2170           00006                          EXTEND                                         
013417,000548: 40,2171           62164                          BZMF     ENDALL                                #  IF INREL=0,1(VBREG,NNREG) LEAVE WHOLE
013418,000549: 40,2172           07052                          TC       DMP                                   #  IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC
013419,000550:                                                                                                 #                                         # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
013420,000551: 40,2173           02223                          ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
013421,000552: 40,2174           36214                          CAF      THREE                                 #  IN MPAC, +1, +2.
013422,000553: 40,2175           71000                          MASK     DECBRNCH                              
013423,000554: 40,2176           50000                          INDEX    A                                     
013424,000555: 40,2177           02177                          TC       +0                                    
013425,000556:                                                                                                 # # Page 311
013426,000557: 40,2200           02204                          TC       +DECSGN                               
013427,000558: 40,2201           00006                          EXTEND                                         #  - CASE
013428,000559: 40,2202           40156                          DCS      MPAC       +1                         
013429,000560: 40,2203           52156                          DXCH     MPAC       +1                         
013430,000561: 40,2204           56156        +DECSGN           XCH      MPAC       +2                         
013431,000562: 40,2205           50137                          INDEX    INREL                                 
013432,000563: 40,2206           55004                          TS       XREGLP     -2                         
013433,000564: 40,2207           56155                          XCH      MPAC       +1                         
013434,000565: 40,2210           50137                          INDEX    INREL                                 
013435,000566: 40,2211           55001                          TS       VERBREG                               
013436,000567: 40,2212           02164                          TC       ENDALL                                
013437,000568: 40,2213           10777        MORNUM            CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
013438,000569: 40,2214           54777                          TS       DSPCOUNT                              
013439,000570: 40,2215           05112                          TC       ENDOFJOB                              
013440,000571: 
013441,000572: 40,2216           00022        CRITCON           OCT      22                                    #  (DEC 18)
013442,000573: 40,2217           00020                          OCT      20                                    #  (DEC 16)
013443,000574: 40,2220           00012                          OCT      12                                    #  (DEC 10)
013444,000575: 40,2221           00005                          OCT      5                                     
013445,000576: 40,2222           00000                          OCT      0                                     
013446,000577: 
013447,000578: 40,2223           05174 13261  DECON             2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
013448,000579: 
013449,000580: 
013450,000581:                                                                                                 #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
013451,000582:                                                                                                 #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
013452,000583: 
013453,000584: 40,2225           50777        GETINREL          INDEX    DSPCOUNT                              
013454,000585: 40,2226           32231                          CAF      INRELTAB                              
013455,000586: 40,2227           54137                          TS       INREL                                 #  (A TEMP, REG)
013456,000587: 40,2230           00002                          TC       Q                                     
013457,000588: 
013458,000589: 40,2231           00004        INRELTAB          OCT      4                                     #  R3D5 (DSPCOUNT = 0)
013459,000590: 40,2232           00004                          OCT      4                                     #  R3D4            =(1)
013460,000591: 40,2233           00004                          OCT      4                                     #  R3D3            =(2)
013461,000592: 40,2234           00004                          OCT      4                                     #  R3D2            =(3)
013462,000593: 40,2235           00004                          OCT      4                                     #  R3D1            =(4)
013463,000594: 40,2236           00003                          OCT      3                                     #  R2D5            =(5)
013464,000595: 40,2237           00003                          OCT      3                                     #  R2D4            =(6)
013465,000596: 40,2240           00003                          OCT      3                                     #  R2D3            =(7)
013466,000597: 40,2241           00003                          OCT      3                                     #  R2D2            =(8D)
013467,000598: 40,2242           00003                          OCT      3                                     #  R2D1            =(9D)
013468,000599: 40,2243           00002                          OCT      2                                     #  R1D5            =(10D)
013469,000600: 40,2244           00002                          OCT      2                                     #  R1D4            =(11D)
013470,000601: 40,2245           00002                          OCT      2                                     #  R1D3            =(12D)
013471,000602: 40,2246           00002                          OCT      2                                     #  R1D2            =(13D)
013472,000603: 40,2247           00002                          OCT      2                                     #  R1D1            =(14D)
013473,000604: 40,2250           05642                          TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
013474,000605: 40,2251           00001                          OCT      1                                     #  ND2             =(16D)
013475,000606:                                                                                                 # # Page 312
013476,000607: 40,2252           00001                          OCT      1                                     #  ND1             =(17D)
013477,000608: 40,2253           00000                          OCT      0                                     #  VD2             =(18D)
013478,000609: 40,2254           00000                          OCT      0                                     #  VD1             =(19D)
013479,000610: 
013480,000611: 40,2255           34714        VERB              CAF      ZERO                                  
013481,000612: 40,2256           55001                          TS       VERBREG                               
013482,000613: 40,2257           34374                          CAF      VD1                                   
013483,000614: 40,2260           54777        NVCOM             TS       DSPCOUNT                              
013484,000615: 40,2261           02502                          TC       2BLANK                                
013485,000616: 40,2262           34712                          CAF      ONE                                   
013486,000617: 40,2263           55000                          TS       DECBRNCH                              #  SET FOR DEC V/N CODE
013487,000618: 40,2264           34714                          CAF      ZERO                                  
013488,000619: 40,2265           55013                          TS       REQRET                                #  SET FOR ENTPAS0
013489,000620: 40,2266           34233                          CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
013490,000621: 40,2267           54136                          TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
013491,000622:                                                                                                 #                                         # TO TC ENDOFJOB
013492,000623: 40,2270           05112                          TC       ENDOFJOB                              
013493,000624: 40,2271           34714        NOUN              CAF      ZERO                                  
013494,000625: 40,2272           55002                          TS       NOUNREG                               
013495,000626: 40,2273           34375                          CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
013496,000627: 40,2274           02260                          TC       NVCOM                                 
013497,000628: 
013498,000629: 
013499,000630: 40,2275           02347        NEGSGN            TC       SIGNTEST                              
013500,000631: 40,2276           02334                          TC       -ON                                   
013501,000632: 40,2277           34711                          CAF      TWO                                   
013502,000633: 40,2300           50137        BOTHSGN           INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
013503,000634: 40,2301           64704                          AD       BIT7                                  #  BIT 5 FOR R1.  BIT 4 FOR R2.
013504,000635: 40,2302           27000                          ADS      DECBRNCH                              #  BIT 3 FOR R3.
013505,000636: 40,2303           11015        FIXCLPAS          CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
013506,000637: 40,2304           34714                          CAF      ZERO                                  
013507,000638: 40,2305           55015                          TS       CLPASS                                
013508,000639: 40,2306           02307                          TC       +1                                    
013509,000640: 40,2307           05112                          TC       ENDOFJOB                              
013510,000641: 
013511,000642: 40,2310           02347        POSGN             TC       SIGNTEST                              
013512,000643: 40,2311           02314                          TC       +ON                                   
013513,000644: 40,2312           34712                          CAF      ONE                                   
013514,000645: 40,2313           02300                          TC       BOTHSGN                               
013515,000646: 
013516,000647: 40,2314           22002        +ON               LXCH     Q                                     
013517,000648: 40,2315           02225                          TC       GETINREL                              
013518,000649: 40,2316           50137                          INDEX    INREL                                 
013519,000650: 40,2317           32342                          CAF      SGNTAB     -2                         
013520,000651: 40,2320           54123                          TS       SGNOFF                                
013521,000652: 40,2321           64712                          AD       ONE                                   
013522,000653: 40,2322           54122                          TS       SGNON                                 
013523,000654: 40,2323           34714        SGNCOM            CAF      ZERO                                  
013524,000655: 40,2324           54124                          TS       CODE                                  
013525,000656:                                                                                                 # # Page 313
013526,000657: 40,2325           56123                          XCH      SGNOFF                                
013527,000658: 40,2326           03307                          TC       11DSPIN                               
013528,000659: 40,2327           34700                          CAF      BIT11                                 
013529,000660: 40,2330           54124                          TS       CODE                                  
013530,000661: 40,2331           56122                          XCH      SGNON                                 
013531,000662: 40,2332           03307                          TC       11DSPIN                               
013532,000663: 40,2333           00001                          TC       L                                     
013533,000664: 40,2334           22002        -ON               LXCH     Q                                     
013534,000665: 40,2335           02225                          TC       GETINREL                              
013535,000666: 40,2336           50137                          INDEX    INREL                                 
013536,000667: 40,2337           32342                          CAF      SGNTAB     -2                         
013537,000668: 40,2340           54122                          TS       SGNON                                 
013538,000669: 40,2341           64712                          AD       ONE                                   
013539,000670: 40,2342           54123                          TS       SGNOFF                                
013540,000671: 40,2343           02323                          TC       SGNCOM                                
013541,000672: 
013542,000673: 40,2344           00005        SGNTAB            OCT      5                                     #  -R1
013543,000674: 40,2345           00003                          OCT      3                                     #  -R2
013544,000675: 40,2346           00000                          OCT      0                                     #  -R3
013545,000676: 
013546,000677: 40,2347           22002        SIGNTEST          LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
013547,000678: 40,2350           36214                          CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
013548,000679: 40,2351           71000                          MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
013549,000680: 40,2352           10000                          CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT 0, SIGN
013550,000681: 40,2353           05112                          TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
013551,000682: 40,2354           44333                          CS       R1D1                                  
013552,000683: 40,2355           02363                          TC       SGNTST1                               
013553,000684: 40,2356           44334                          CS       R2D1                                  
013554,000685: 40,2357           02363                          TC       SGNTST1                               
013555,000686: 40,2360           44335                          CS       R3D1                                  
013556,000687: 40,2361           02363                          TC       SGNTST1                               
013557,000688: 40,2362           05112                          TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
013558,000689: 40,2363           60777        SGNTST1           AD       DSPCOUNT                              
013559,000690: 40,2364           00006                          EXTEND                                         
013560,000691: 40,2365           12367                          BZF      +2                                    #  MATCH FOUND
013561,000692: 40,2366           00002                          TC       Q                                     
013562,000693: 40,2367           00001                          TC       L                                     #  SIGN LEGAL
013563,000694: 
013564,000695: 
013565,000696:                                                                                                 #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
013566,000697:                                                                                                 #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
013567,000698:                                                                                                 #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION.
013568,000699: 
013569,000700:                                                                                                 #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
013570,000701:                                                                                                 #  APPROPRIATE TO BE CLEARED.
013571,000702: 
013572,000703:                                                                                                 #  CLPASS   +0  PASS0, CAN BE BACKED UP
013573,000704:                                                                                                 #            +NZ  HIPASS, CAN BE BACKED UP
013574,000705:                                                                                                 #            -NZ  PASS0, CANNOT BE BACKED UP
013575,000706: 
013576,000707:                                                                                                 # # Page 314
013577,000708: 40,2370           10777        CLEAR             CCS      DSPCOUNT                              
013578,000709: 40,2371           64712                          AD       ONE                                   
013579,000710: 40,2372           02374                          TC       +2                                    
013580,000711: 40,2373           64712                          AD       ONE                                   
013581,000712: 40,2374           50000                          INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
013582,000713: 40,2375           32231                          CAF      INRELTAB                              #  FAIL LEGALTST.
013583,000714: 40,2376           54137                          TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
013584,000715: 40,2377           11015                          CCS      CLPASS                                
013585,000716: 40,2400           02406                          TC       CLPASHI                               #  +
013586,000717: 40,2401           02403                          TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
013587,000718: 40,2402           02403                          TC       +1                                    #  -
013588,000719: 40,2403           30137                          CA       INREL                                 
013589,000720: 40,2404           02430                          TC       LEGALTST                              
013590,000721: 40,2405           02423                          TC       CLEAR1                                
013591,000722: 40,2406           10137        CLPASHI           CCS      INREL                                 
013592,000723: 40,2407           54137                          TS       INREL                                 
013593,000724: 40,2410           02430                          TC       LEGALTST                              
013594,000725: 40,2411           32500                          CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
013595,000726: 40,2412           27013                          ADS      REQRET                                
013596,000727: 40,2413           30137                          CA       INREL                                 
013597,000728: 40,2414           54125                          TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
013598,000729: 40,2415           00006                          EXTEND                                         
013599,000730: 40,2416           27001                          DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
013600,000731: 40,2417           04555                          TC       BANKCALL                              
013601,000732: 40,2420           62337                          CADR     UPDATVB                               
013602,000733: 40,2421           30125                          CA       MIXTEMP                               
013603,000734: 40,2422           54137                          TS       INREL                                 #  RESTORE INREL
013604,000735: 40,2423           02426        CLEAR1            TC       CLR5                                  
013605,000736: 40,2424           25015                          INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0.
013606,000737: 40,2425           05112                          TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
013607,000738: 40,2426           22002        CLR5              LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
013608,000739: 40,2427           02441                          TC       5BLANK     +2                         
013609,000740: 40,2430           67715        LEGALTST          AD       NEG2                                  
013610,000741: 40,2431           10000                          CCS      A                                     
013611,000742: 40,2432           00002                          TC       Q                                     #  LEGAL  INREL G/ 2
013612,000743: 40,2433           05642                          TC       CCSHOLE                               
013613,000744: 40,2434           05112                          TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
013614,000745: 40,2435           00002                          TC       Q                                     #  LEGAL    INREL = 2
013615,000746: 
013616,000747: 
013617,000748:                                                                                                 #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
013618,000749:                                                                                                 #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
013619,000750:                                                                                                 #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
013620,000751: 
013621,000752: 40,2436           54777                          TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
013622,000753: 40,2437           22002        5BLANK            LXCH     Q                                     
013623,000754: 40,2440           02225                          TC       GETINREL                              
013624,000755: 40,2441           34714                          CAF      ZERO                                  
013625,000756: 40,2442           50137                          INDEX    INREL                                 
013626,000757: 40,2443           55001                          TS       VERBREG                               #  ZERO X, Y, Z, REG.
013627,000758:                                                                                                 # # Page 315
013628,000759: 40,2444           50137                          INDEX    INREL                                 
013629,000760: 40,2445           55004                          TS       XREGLP     -2                         
013630,000761: 40,2446           54124                          TS       CODE                                  
013631,000762: 40,2447           50137                          INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
013632,000763: 40,2450           44704                          CS       BIT7                                  #  PROTECT OTHERS
013633,000764: 40,2451           71000                          MASK     DECBRNCH                              
013634,000765: 40,2452           72501                          MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
013635,000766: 40,2453           55000                          TS       DECBRNCH                              
013636,000767: 40,2454           50137                          INDEX    INREL                                 
013637,000768: 40,2455           32471                          CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
013638,000769: 40,2456           54143                          TS       COUNT                                 
013639,000770: 40,2457           03225                          TC       DSPIN                                 
013640,000771: 40,2460           50137        5BLANK1           INDEX    INREL                                 
013641,000772: 40,2461           32474                          CAF      DOUBLK     -2                         
013642,000773: 40,2462           54777                          TS       DSPCOUNT                              
013643,000774: 40,2463           02502                          TC       2BLANK                                
013644,000775: 40,2464           44711                          CS       TWO                                   
013645,000776: 40,2465           26777                          ADS      DSPCOUNT                              
013646,000777: 40,2466           02502                          TC       2BLANK                                
013647,000778: 40,2467           50137                          INDEX    INREL                                 
013648,000779: 40,2470           34331                          CAF      R1D1       -2                         
013649,000780: 40,2471           54777                          TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
013650,000781: 40,2472           00001                          TC       L                                     #  OF REG. JUST BLANKED
013651,000782: 
013652,000783: 40,2473           00016        SINBLANK          OCT      16                                    #  DEC 14
013653,000784: 40,2474           00005                          OCT      5                                     
013654,000785: 40,2475           00004                          OCT      4                                     
013655,000786: 40,2476           00015        DOUBLK            OCT      15                                    #  DEC 13
013656,000787: 40,2477           00011                          OCT      11                                    #  DEC 9
013657,000788: 40,2500           00003                          OCT      3                                     
013658,000789: 
013659,000790: 40,2501           77774        BRNCHCON          OCT      77774                                 
013660,000791: 
013661,000792:                                                                                                 #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
013662,000793:                                                                                                 #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
013663,000794: 
013664,000795: 40,2502           30777        2BLANK            CA       DSPCOUNT                              
013665,000796: 40,2503           54021                          TS       SR                                    
013666,000797: 40,2504           42515                          CS       BLANKCON                              
013667,000798: 40,2505           00004                          INHINT                                         
013668,000799: 40,2506           50021                          INDEX    SR                                    
013669,000800: 40,2507           57023                          XCH      DSPTAB                                
013670,000801: 40,2510           00006                          EXTEND                                         
013671,000802: 40,2511           62513                          BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
013672,000803: 40,2512           25016                          INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
013673,000804: 40,2513           00003                          RELINT                                         #  IF -,NOUT OK
013674,000805: 40,2514           00002                          TC       Q                                     
013675,000806: 40,2515           04000        BLANKCON          OCT      4000                                  
013676,000807: 
013677,000808: 
013678,000809:                                                                                                 # # Page 316
013679,000810: 
013680,000811:                                                                                                 #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
013681,000812:                                                                                                 #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
013682,000813:                                                                                                 #  PASSES
013683,000814: 
013684,000815: 
013685,000816:                                                                                                 #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
013686,000817:                                                                                                 #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
013687,000818:                                                                                                 #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
013688,000819: 
013689,000820: 
013690,000821: 41,2000                                          BANK     41                                    
013691,000822: 41,2000                                          SETLOC   PINBALL2                              
013692,000823: 41,2000                                          BANK                                           
013693,000824: 
013694,000825: 41,2000                                          COUNT    41/PIN                                
013695,000826: 
013696,000827: 41,2000           03534        NVSUBB            TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
013697,000828: 41,2001           02771        LOADLV1           TC       LOADLV                                
013698,000829:                                                                                                 #                                                                           END OF STANDARD LEAD INS.
013699,000830: 
013700,000831: 41,2002           34714        ENTER             CAF      ZERO                                  
013701,000832: 41,2003           55015                          TS       CLPASS                                
013702,000833: 41,2004           34233                          CAF      ENDINST                               
013703,000834: 41,2005           54136                          TS       ENTRET                                
013704,000835: 41,2006           11013                          CCS      REQRET                                
013705,000836: 41,2007           02035                          TC       ENTPAS0                               #  IF +, PASS 0
013706,000837: 41,2010           02035                          TC       ENTPAS0                               #  IF +, PASS 0
013707,000838: 41,2011           02012                          TC       +1                                    #  IF -, NOT PASS 0
013708,000839: 41,2012           32033        ENTPASHI          CAF      MMADREF                               
013709,000840: 41,2013           61013                          AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
013710,000841: 41,2014           00006                          EXTEND                                         #  AND RECYCLE (DECIDE AT MMCHANG+1).
013711,000842: 41,2015           12027                          BZF      ACCEPTWD                              
013712,000843: 41,2016           36214                          CAF      THREE                                 #  IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
013713,000844: 41,2017           71000                          MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
013714,000845: 41,2020           10000                          CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
013715,000846: 41,2021           02023                          TC       +2                                    #  CHARACTERS AND CONTINUE.
013716,000847: 41,2022           02027                          TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
013717,000848: 41,2023           10777                          CCS      DSPCOUNT                              
013718,000849: 41,2024           02350                          TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
013719,000850: 41,2025           02350                          TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
013720,000851: 41,2026           02027                          TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
013721,000852: 41,2027           41013        ACCEPTWD          CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
013722,000853: 41,2030           55013                          TS       REQRET                                #  SET REQRET +.
013723,000854: 41,2031           04447                          TC       FLASHOFF                              
013724,000855: 41,2032           01013                          TC       REQRET                                
013725,000856: 
013726,000857: 41,2033     0136               ENTEXIT           =        ENTRET                                
013727,000858: 
013728,000859: 41,2033           03421        MMADREF           ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
013729,000860: 
013730,000861:                                                                                                 # # Page 317
013731,000862: 41,2034           00034        LOWVERB           DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
013732,000863: 
013733,000864: 41,2035           34714        ENTPAS0           CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
013734,000865: 41,2036           55000                          TS       DECBRNCH                              
013735,000866: 41,2037           44374                          CS       VD1                                   #  BLOCK FURTHER NUM CHAR, SO THAT STRAY
013736,000867: 41,2040           54777                          TS       DSPCOUNT                              #  CHAR DO NOT GET INTO VERB OR NOUN LTS.
013737,000868: 41,2041           41001        TESTVB            CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
013738,000869: 41,2042           55041                          TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
013739,000870: 41,2043           62034                          AD       LOWVERB                               #  LOWVERB - VB
013740,000871: 41,2044           00006                          EXTEND                                         
013741,000872: 41,2045           62133                          BZMF     VERBFAN                               #  VERB G/ E LOWVERB
013742,000873: 41,2046           00006        TESTNN            EXTEND                                         #  VERB L/ LOWVERB
013743,000874: 41,2047           32114                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
013744,000875: 41,2050           52006                          DXCH     Z                                     #  ROUTINE.
013745,000876: 41,2051           50140                          INDEX    MIXBR                                 
013746,000877: 41,2052           02052                          TC       +0                                    
013747,000878: 41,2053           02055                          TC       +2                                    #  NORMAL
013748,000879: 41,2054           02221                          TC       MIXNOUN                               #  MIXED
013749,000880: 41,2055           10146                          CCS      NNADTEM                               #  NORMAL
013750,000881: 41,2056           02131                          TC       VERBFAN    -2                         #        NORMAL IF +
013751,000882: 41,2057           02350                          TC       GODSPALM                              #  NOT IN USE    IF +0
013752,000883: 41,2060           02064                          TC       REQADD                                #  SPECIFY MACHINE CADR IF -
013753,000884: 41,2061           25017                          INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
013754,000885: 41,2062           04325                          TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
013755,000886: 41,2063           02120                          TC       INTMCTBS   +2                         
013756,000887: 41,2064           34674        REQADD            CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
013757,000888: 41,2065           55015                          TS       CLPASS                                
013758,000889: 41,2066           44233                          CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
013759,000890: 41,2067           60136                          AD       ENTEXIT                               #              FROM EXTERNAL
013760,000891: 41,2070           00006                          EXTEND                                         
013761,000892: 41,2071           12073                          BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
013762,000893: 41,2072           02116                          TC       INTMCTBS                              
013763,000894: 41,2073           02306                          TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
013764,000895: 41,2074           11000                          CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
013765,000896: 41,2075           04161                          TC       ALMCYCLE                              #  FOR MCTBS.
013766,000897: 41,2076           44374                          CS       VD1                                   #  OCTAL USED OK
013767,000898: 41,2077           54777                          TS       DSPCOUNT                              #  BLOCK NUM CHAR IN
013768,000899: 41,2100           11042                          CCS      CADRSTOR                              
013769,000900: 41,2101           02104                          TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
013770,000901: 41,2102           02105                          TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
013771,000902: 41,2103           02104                          TC       +1                                    
013772,000903: 41,2104           04443                          TC       FLASHON                               
013773,000904: 41,2105           57005        USEADD            XCH      ZREG                                  
013774,000905: 41,2106           04317                          TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
013775,000906: 41,2107           00006                          EXTEND                                         
013776,000907: 41,2110           32114                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
013777,000908: 41,2111           52006                          DXCH     Z                                     #  ROUTINE.
013778,000909: 41,2112           02133                          TC       VERBFAN                               
013779,000910: 
013780,000911: 41,2113     0777                                 EBANK=   DSPCOUNT                              
013781,000912:                                                                                                 # # Page 318
013782,000913: 41,2113           02062 64101  LODNNLOC          2CADR    LODNNTAB                              
013783,000914: 
013784,000915: 41,2115           77772        NEG5              OCT      77772                                 
013785,000916: 
013786,000917: 41,2116           30156        INTMCTBS          CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
013787,000918: 41,2117           04317                          TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
013788,000919: 41,2120           44715                          CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
013789,000920: 41,2121           61001                          AD       VERBREG                               #  CADR TO BE SPECIFIED.
013790,000921: 41,2122           00006                          EXTEND                                         
013791,000922: 41,2123           12133                          BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
013792,000923: 41,2124           34335                          CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
013793,000924: 41,2125           54777                          TS       DSPCOUNT                              
013794,000925: 41,2126           31017                          CA       NOUNCADR                              
013795,000926: 41,2127           03353                          TC       DSPOCTWO                              
013796,000927: 41,2130           02133                          TC       VERBFAN                               
013797,000928: 
013798,000929: 41,2131           64712                          AD       ONE                                   
013799,000930: 41,2132           04317                          TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
013800,000931: 41,2133           42145        VERBFAN           CS       LST2CON                               
013801,000932: 41,2134           61001                          AD       VERBREG                               #  VERB-LST2CON
013802,000933: 41,2135           10000                          CCS      A                                     
013803,000934: 41,2136           64712                          AD       ONE                                   #  VERB G/ LST2CON
013804,000935: 41,2137           02141                          TC       +2                                    
013805,000936: 41,2140           02146                          TC       VBFANDIR                              #  VERB L/ LST2CON
013806,000937: 41,2141           54154                          TS       MPAC                                  
013807,000938: 41,2142           04473                          TC       RELDSP                                #  RELEASE DISPLAY SYST
013808,000939: 41,2143           04574                          TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
013809,000940: 41,2144           66000                          CADR     GOEXTVB                               
013810,000941: 41,2145           00050        LST2CON           DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
013811,000942: 
013812,000943: 41,2146           51001        VBFANDIR          INDEX    VERBREG                               
013813,000944: 41,2147           32151                          CAF      VERBTAB                               
013814,000945: 41,2150           04577                          TC       BANKJUMP                              
013815,000946: 
013816,000947: 41,2151           62350        VERBTAB           CADR     GODSPALM                              #  VB00 ILLEGAL
013817,000948: 41,2152           62364                          CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
013818,000949: 41,2153           62372                          CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
013819,000950: 41,2154           62377                          CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
013820,000951: 41,2155           62357                          CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
013821,000952: 41,2156           62352                          CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
013822,000953: 41,2157           62520                          CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
013823,000954: 41,2160           60675                          CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
013824,000955: 41,2161           62350                          CADR     GODSPALM                              #  VB08 SPARE
013825,000956: 41,2162           62350                          CADR     GODSPALM                              #  VB09 SPARE
013826,000957: 41,2163           61323                          CADR     DSPALARM                              #  VB10 SPARE
013827,000958: 41,2164           63220                          CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
013828,000959: 41,2165           63220                          CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
013829,000960: 41,2166           63220                          CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
013830,000961: 41,2167           63220                          CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
013831,000962:                                                                                                 # # Page 319
013832,000963: 41,2170           63220                          CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
013833,000964: 41,2171           63220                          CADR     MONITOR                               #  VB16 MONITOR DECIMAL
013834,000965: 41,2172           63220                          CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
013835,000966: 41,2173           62350                          CADR     GODSPALM                              #  VB18 SPARE
013836,000967: 41,2174           62350                          CADR     GODSPALM                              #  VB19 SPARE
013837,000968: 41,2175           62350                          CADR     GODSPALM                              #  VB20 SPARE
013838,000969: 41,2176           62726                          CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
013839,000970: 41,2177           62737                          CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
013840,000971: 41,2200           62754                          CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
013841,000972: 41,2201           62677                          CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
013842,000973: 41,2202           62612                          CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
013843,000974: 41,2203           62350                          CADR     GODSPALM                              #  VB26 SPARE
013844,000975: 41,2204           63343                          CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
013845,000976:                                                                                                 #                                                                           THE FOLLOWING VERBS MAKE NO NOUN TEST
013846,000977: 41,2205           62350                          CADR     GODSPALM                              #  VB28 SPARE
013847,000978: 41,2206           62350                          CADR     GODSPALM                              #  VB29 SPARE
013848,000979: 41,2207           63456        REQEXLQC          CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
013849,000980: 41,2210           63502                          CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
013850,000981: 41,2211           61360                          CADR     VBRESEQ                               #  VB32 RESEQUENCE
013851,000982: 41,2212           61343                          CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
013852,000983: 41,2213           61351                          CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
013853,000984: 41,2214           63603                          CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
013854,000985: 41,2215           12347                          CADR     SLAP1                                 #  VB36 FRESH START
013855,000986: 41,2216           63420                          CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
013856,000987: 41,2217           62350                          CADR     GODSPALM                              #  VB38 SPARE
013857,000988: 41,2220           62350                          CADR     GODSPALM                              #  VB39 SPARE
013858,000989: 
013859,000990: 
013860,000991:                                                                                                 #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
013861,000992: 
013862,000993:                                                                                                 # # Page 320
013863,000994: 
013864,000995:                                                                                                 #  NNADTAB CONTAINS A RELATIVE ADDRESS,  IDADDREL(IN LOW 10 BITS), REFERRING
013865,000996:                                                                                                 #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
013866,000997:                                                                                                 #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
013867,000998:                                                                                                 #   MIXTEMP.
013868,000999: 
013869,001000: 41,2221           10146        MIXNOUN           CCS      NNADTEM                               
013870,001001: 41,2222           02226                          TC       +4                                    #  +  IN USE
013871,001002: 41,2223           02350                          TC       GODSPALM                              #  +0  NOT IN USE
013872,001003: 41,2224           02226                          TC       +2                                    #  -  IN USE
013873,001004: 41,2225           02226                          TC       +1                                    #  -0  IN USE
013874,001005: 41,2226           46211                          CS       SIX                                   
013875,001006: 41,2227           61001                          AD       VERBREG                               
013876,001007: 41,2230           00006                          EXTEND                                         
013877,001008: 41,2231           62233                          BZMF     +2                                    #  VERB L/E 6
013878,001009: 41,2232           02133                          TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
013879,001010: 41,2233           34711                          CAF      TWO                                   
013880,001011: 41,2234           54117        MIXNN1            TS       DECOUNT                               
013881,001012: 41,2235           62260                          AD       MIXAD                                 
013882,001013: 41,2236           54145                          TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
013883,001014: 41,2237           50117                          INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
013884,001015: 41,2240           30150                          CA       IDAD1TEM                              #  OF NOUN.
013885,001016: 41,2241           54122                          TS       NOUNTEM                               
013886,001017:                                                                                                 #                                           TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
013887,001018:                                                                                                 #                                             MINOR PART ONLY.
013888,001019: 41,2242           03027                          TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
013889,001020: 41,2243           02261                          TC       DPTEST                                
013890,001021: 41,2244           02246                          TC       MIXNN2                                #  NO DP
013891,001022: 41,2245           24122                          INCR     NOUNTEM                               #  DP  GET MINOR PART
013892,001023: 41,2246           30122        MIXNN2            CA       NOUNTEM                               
013893,001024: 41,2247           74372                          MASK     LOW11                                 #  ESUBK (NO DP)  OR (ESUBK)+1   FOR DP.
013894,001025: 41,2250           04327                          TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
013895,001026: 41,2251           50000                          INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP.
013896,001027: 41,2252           30000                          CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
013897,001028: 41,2253           50145                          INDEX    NOUNADD                               
013898,001029: 41,2254           56000                          XCH      0                                     #  STORE IN MIXTEM + K
013899,001030: 41,2255           10117                          CCS      DECOUNT                               
013900,001031: 41,2256           02234                          TC       MIXNN1                                
013901,001032: 41,2257           02133                          TC       VERBFAN                               
013902,001033: 
013903,001034: 41,2260           00125        MIXAD             TC       MIXTEMP                               
013904,001035: 
013905,001036: 
013906,001037:                                                                                                 #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
013907,001038:                                                                                                 #           RETURNS  TO L+1 IF NO DP.
013908,001039:                                                                                                 #           RETURNS  TO L+2 IF DP.
013909,001040: 
013910,001041: 41,2261           50000        DPTEST            INDEX    A                                     
013911,001042: 41,2262           12263                          TCF      +1                                    
013912,001043: 41,2263           00002                          TC       Q                                     #  OCTAL ONLY  NO DP
013913,001044: 41,2264           00002                          TC       Q                                     #  FRACT NO DP
013914,001045:                                                                                                 # # Page 321
013915,001046: 41,2265           00002                          TC       Q                                     #  DEG  NO DP
013916,001047: 41,2266           00002                          TC       Q                                     #  ARITH  NO DP
013917,001048: 41,2267           12300                          TCF      DPTEST1                               #  DP1OUT
013918,001049: 41,2270           12300                          TCF      DPTEST1                               #  DP2OUT
013919,001050: 41,2271           00002                          TC       Q                                     #  OPDEG  NO DP
013920,001051: 41,2272           12300                          TCF      DPTEST1                               #  DP3OUT
013921,001052: 41,2273           00002                          TC       Q                                     #  HMS   NO DP
013922,001053: 41,2274           00002                          TC       Q                                     #  M/S   NO DP
013923,001054: 41,2275           12300                          TCF      DPTEST1                               #  DP4OUT
013924,001055: 41,2276           00002                          TC       Q                                     #  ARITH1   NO DP
013925,001056: 41,2277           00002                          TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
013926,001057: 41,2300           50002        DPTEST1           INDEX    Q                                     
013927,001058: 41,2301           00001                          TC       1                                     #  RETURN TO L+2
013928,001059: 
013929,001060: 
013930,001061: 41,2302           34333        REQDATX           CAF      R1D1                                  
013931,001062: 41,2303           12307                          TCF      REQCOM                                
013932,001063: 41,2304           34334        REQDATY           CAF      R2D1                                  
013933,001064: 41,2305           12307                          TCF      REQCOM                                
013934,001065: 41,2306           34335        REQDATZ           CAF      R3D1                                  
013935,001066: 41,2307           54777        REQCOM            TS       DSPCOUNT                              
013936,001067: 41,2310           40002                          CS       Q                                     
013937,001068: 41,2311           55013                          TS       REQRET                                
013938,001069: 41,2312           04555                          TC       BANKCALL                              
013939,001070: 41,2313           60437                          CADR     5BLANK                                
013940,001071: 41,2314           04443                          TC       FLASHON                               
013941,001072: 41,2315           00136        ENDRQDAT          TC       ENTEXIT                               
013942,001073: 
013943,001074: 41,2316           55002                          TS       NOUNREG                               
013944,001075: 41,2317           56002        UPDATNN           XCH      Q                                     
013945,001076: 41,2320           54117                          TS       UPDATRET                              
013946,001077: 41,2321           00006                          EXTEND                                         
013947,001078: 41,2322           32114                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
013948,001079: 41,2323           52006                          DXCH     Z                                     #  ROUTINE.
013949,001080: 41,2324           10146                          CCS      NNADTEM                               
013950,001081: 41,2325           64712                          AD       ONE                                   #  NORMAL
013951,001082: 41,2326           12331                          TCF      PUTADD                                
013952,001083: 41,2327           12332                          TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
013953,001084: 41,2330           12332                          TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
013954,001085: 41,2331           04317        PUTADD            TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
013955,001086: 41,2332           34375                          CAF      ND1                                   
013956,001087: 41,2333           54777                          TS       DSPCOUNT                              
013957,001088: 41,2334           31002                          CA       NOUNREG                               
013958,001089: 41,2335           12344                          TCF      UPDAT1                                
013959,001090: 
013960,001091: 41,2336           55001                          TS       VERBREG                               
013961,001092: 41,2337           56002        UPDATVB           XCH      Q                                     
013962,001093: 41,2340           54117                          TS       UPDATRET                              
013963,001094: 41,2341           34374                          CAF      VD1                                   
013964,001095: 41,2342           54777                          TS       DSPCOUNT                              
013965,001096:                                                                                                 # # Page 322
013966,001097: 41,2343           31001                          CA       VERBREG                               
013967,001098: 41,2344           04574        UPDAT1            TC       POSTJUMP                              #  CANT USE SWCALL TO GO TC DSPDECVN,SINCE
013968,001099: 41,2345           61222                          CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
013969,001100: 41,2346           00117                          TC       UPDATRET                              
013970,001101: 
013971,001102: 
013972,001103: 41,2347           04161        GOALMCYC          TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
013973,001104: 
013974,001105: 
013975,001106: 41,2350           04574        GODSPALM          TC       POSTJUMP                              
013976,001107: 41,2351           61323                          CADR     DSPALARM                              
013977,001108: 
013978,001109:                                                                                                 # # Page 323
013979,001110:                                                                                                 #            NOUN   TABLES
013980,001111: 
013981,001112:                                                                                                 #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
013982,001113:                                                                                                 #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
013983,001114:                                                                                                 #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
013984,001115:                                                                                                 #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
013985,001116:                                                                                                 #  OF LAST MACHINE CADR SUPPLIED.
013986,001117: 
013987,001118:                                                                                                 #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
013988,001119:                                                                                                 #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
013989,001120: 
013990,001121:                                                                                                 #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
013991,001122: 
013992,001123:                                                                                                 #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
013993,001124:                                                                                                 #                       N-S ARE THE SF ROUTINE CODE NUMBER.
013994,001125:                                                                                                 #                       P-S ARE THE SF CONSTANT CODE NUMBER.
013995,001126: 
013996,001127:                                                                                                 #  MIXED-CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
013997,001128:                                                                                                 #             N-S ARE THE SF CONSTANT2 CODE NUMBER
013998,001129:                                                                                                 #             P-S ARE THE SF CONSTANT1 CODE NUMBER
013999,001130:                                                                                                 #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
014000,001131:                                                                                                 #             P-S ARE THE SF CONSTANT1 CODE NUMBER
014001,001132:                                                                                                 #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
014002,001133: 
014003,001134:                                                                                                 #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
014004,001135:                                                                                                 #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
014005,001136:                                                                                                 #  THE FIRST OF THESE ENTRIES.
014006,001137:                                                                                                 #  THERE IS ONE ENTRY IN THIS TABEL FOR EACH COMPONENT OF A MIXED NOUN
014007,001138:                                                                                                 #  THEY ARE LISTED IN ORDER OF ASCENDING K.
014008,001139: 
014009,001140:                                                                                                 #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
014010,001141:                                                                                                 #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
014011,001142:                                                                                                 #        QQQQQRRRRRSSSSS
014012,001143:                                                                                                 #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
014013,001144:                                                                                                 #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
014014,001145:                                                                                                 #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
014015,001146:                                                                                                 #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
014016,001147:                                                                                                 #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
014017,001148: 
014018,001149: 
014019,001150:                                                                                                 #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
014020,001151:                                                                                                 #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMONENTS IN NOUN.
014021,001152:                                                                                                 #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
014022,001153: 
014023,001154: 
014024,001155:                                                                                                 #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
014025,001156:                                                                                                 #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
014026,001157: 
014027,001158:                                                                                                 #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
014028,001159:                                                                                                 #  BEFORE EACH ENTER. IF NOT, ALARM.
014029,001160: 
014030,001161:                                                                                                 # # Page 324
014031,001162: 
014032,001163:                                                                                                 #            DISPLAY VERBS
014033,001164: 41,2352           44711        DSPABC            CS       TWO                                   
014034,001165: 41,2353           02423                          TC       COMPTEST                              
014035,001166: 41,2354           50145                          INDEX    NOUNADD                               
014036,001167: 41,2355           40002                          CS       2                                     
014037,001168: 41,2356           56132                          XCH      BUF        +2                         
014038,001169: 41,2357           44712        DSPAB             CS       ONE                                   
014039,001170: 41,2360           02423                          TC       COMPTEST                              
014040,001171: 41,2361           50145                          INDEX    NOUNADD                               
014041,001172: 41,2362           40001                          CS       1                                     
014042,001173: 41,2363           56131                          XCH      BUF        +1                         
014043,001174: 41,2364           02442        DSPA              TC       DECTEST                               
014044,001175: 41,2365           02465                          TC       TSTFORDP                              
014045,001176: 41,2366           50145                          INDEX    NOUNADD                               
014046,001177: 41,2367           40000                          CS       0                                     
014047,001178: 41,2370           56130        DSPCOM1           XCH      BUF                                   
014048,001179: 41,2371           02404                          TC       DSPCOM2                               
014049,001180: 41,2372           44712        DSPB              CS       ONE                                   
014050,001181: 41,2373           02436                          TC       DCOMPTST                              
014051,001182: 41,2374           50145                          INDEX    NOUNADD                               
014052,001183: 41,2375           40001                          CS       1                                     
014053,001184: 41,2376           02370                          TC       DSPCOM1                               
014054,001185: 41,2377           44711        DSPC              CS       TWO                                   
014055,001186: 41,2400           02436                          TC       DCOMPTST                              
014056,001187: 41,2401           50145                          INDEX    NOUNADD                               
014057,001188: 41,2402           40002                          CS       2                                     
014058,001189: 41,2403           02370                          TC       DSPCOM1                               
014059,001190: 41,2404           44711        DSPCOM2           CS       TWO                                   #  A  B  C  AB  ABC
014060,001191: 41,2405           61001                          AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
014061,001192: 41,2406           10000                          CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
014062,001193: 41,2407           02412                          TC       DSPCOM3                               
014063,001194: 41,2410           00136                          TC       ENTEXIT                               
014064,001195: 41,2411           02412                          TC       +1                                    
014065,001196: 41,2412           54122        DSPCOM3           TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
014066,001197: 41,2413           50000                          INDEX    A                                     
014067,001198: 41,2414           34333                          CAF      R1D1                                  
014068,001199: 41,2415           54777                          TS       DSPCOUNT                              
014069,001200: 41,2416           50122                          INDEX    DISTEM                                
014070,001201: 41,2417           40130                          CS       BUF                                   
014071,001202: 41,2420           03353                          TC       DSPOCTWO                              
014072,001203: 41,2421           56122                          XCH      DISTEM                                
014073,001204: 41,2422           02406                          TC       DSPCOM2    +2                         
014074,001205: 
014075,001206:                                                                                                 #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
014076,001207:                                                                                                 #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
014077,001208: 41,2423           54123        COMPTEST          TS       SFTEMP1                               #  - VERB COMP
014078,001209: 41,2424           22002                          LXCH     Q                                     
014079,001210: 41,2425           02512        COMPTST1          TC       GETCOMP                               
014080,001211: 41,2426           04345                          TC       LEFT5                                 
014081,001212: 41,2427           76214                          MASK     THREE                                 #  NOUN COMP
014082,001213:                                                                                                 # # Page 325
014083,001214: 41,2430           60123                          AD       SFTEMP1                               #  NOUN COMP - VERB COMP
014084,001215: 41,2431           10000                          CCS      A                                     
014085,001216: 41,2432           00001                          TC       L                                     #  NOUN COMP G/ VERB COMP
014086,001217: 41,2433           05642                          TC       CCSHOLE                               
014087,001218: 41,2434           02350                          TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
014088,001219: 41,2435           00001        NDCMPTST          TC       L                                     #  NOUN COMP = VERB COMP
014089,001220: 
014090,001221: 
014091,001222:                                                                                                 #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
014092,001223:                                                                                                 #  IF NOT, IT PERFORMS REGULAR COMPTEST.
014093,001224: 41,2436           54123        DCOMPTST          TS       SFTEMP1                               #  - VERB COMP
014094,001225: 41,2437           22002                          LXCH     Q                                     
014095,001226: 41,2440           02442                          TC       DECTEST                               
014096,001227: 41,2441           02425                          TC       COMPTST1                              
014097,001228: 
014098,001229: 41,2442           00006        DECTEST           EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
014099,001230: 41,2443           22156                          QXCH     MPAC       +2                         #  CODE NUMBER). RETURNS IF NOT.
014100,001231: 41,2444           02512                          TC       GETCOMP                               
014101,001232: 41,2445           74675                          MASK     BIT14                                 
014102,001233: 41,2446           10000                          CCS      A                                     
014103,001234: 41,2447           02350                          TC       GODSPALM                              
014104,001235: 41,2450           00156                          TC       MPAC       +2                         
014105,001236: 
014106,001237: 
014107,001238: 41,2451           22002        DCTSTCYC          LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
014108,001239: 41,2452           02512                          TC       GETCOMP                               #  ( BIT4 OF COMP CODE NUMBER). RETURNS
014109,001240: 41,2453           74675                          MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
014110,001241: 41,2454           10000                          CCS      A                                     
014111,001242: 41,2455           04161                          TC       ALMCYCLE                              
014112,001243: 41,2456           00001                          TC       L                                     
014113,001244: 
014114,001245: 
014115,001246:                                                                                                 #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
014116,001247:                                                                                                 #  IF NOT, IT RETURNS.
014117,001248: 41,2457           22002        NOUNTEST          LXCH     Q                                     
014118,001249: 41,2460           02512                          TC       GETCOMP                               
014119,001250: 41,2461           10000                          CCS      A                                     
014120,001251: 41,2462           00001                          TC       L                                     
014121,001252: 41,2463           00001                          TC       L                                     
014122,001253: 41,2464           02350                          TC       GODSPALM                              
014123,001254: 
014124,001255: 
014125,001256: 41,2465           22002        TSTFORDP          LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
014126,001257: 41,2466           30146                          CA       NNADTEM                               
014127,001258: 41,2467           64712                          AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
014128,001259: 41,2470           00006                          EXTEND                                         
014129,001260: 41,2471           12503                          BZF      CHANDSP                               
014130,001261: 41,2472           50140                          INDEX    MIXBR                                 
014131,001262: 41,2473           02473                          TC       +0                                    
014132,001263: 41,2474           02476                          TC       +2                                    #  NORMAL
014133,001264:                                                                                                 # # Page 326
014134,001265: 41,2475           00001                          TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
014135,001266: 41,2476           03021                          TC       SFRUTNOR                              
014136,001267: 41,2477           02261                          TC       DPTEST                                
014137,001268: 41,2500           00001                          TC       L                                     #  NO DP
014138,001269: 41,2501           24145                          INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
014139,001270: 41,2502           00001                          TC       L                                     
014140,001271: 
014141,001272: 
014142,001273: 41,2503           00006        CHANDSP           EXTEND                                         
014143,001274: 41,2504           51017                          INDEX    NOUNCADR                              
014144,001275: 41,2505           00000                          READ     0                                     
014145,001276: 41,2506           40000                          CS       A                                     
014146,001277: 41,2507           12370                          TCF      DSPCOM1                               
014147,001278: 
014148,001279: 
014149,001280: 41,2510           00147        COMPICK           ADRES    NNTYPTEM                              
014150,001281: 41,2511           00146                          ADRES    NNADTEM                               
014151,001282: 
014152,001283: 41,2512           50140        GETCOMP           INDEX    MIXBR                                 #  NORMAL         MIXED
014153,001284: 41,2513           32507                          CAF      COMPICK    -1                         #  ADRES NNTYPTEM ADRES NNADTEM
014154,001285: 41,2514           50000                          INDEX    A                                     
014155,001286: 41,2515           30000                          CA       0                                     #  C(NNTYPTEM)            C(NNADTEM)
014156,001287: 41,2516           74364                          MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
014157,001288: 41,2517           00002                          TC       Q                                     
014158,001289: 
014159,001290: 
014160,001291: 41,2520           02512        DECDSP            TC       GETCOMP                               
014161,001292: 41,2521           04345                          TC       LEFT5                                 
014162,001293: 41,2522           76214                          MASK     THREE                                 
014163,001294: 41,2523           54117                          TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
014164,001295: 41,2524           54122        DSPDCGET          TS       DECTEM                                #  PICKS UP DATA
014165,001296: 41,2525           60145                          AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
014166,001297: 41,2526           50000                          INDEX    A                                     
014167,001298: 41,2527           40000                          CS       0                                     
014168,001299: 41,2530           50122                          INDEX    DECTEM                                
014169,001300: 41,2531           57003                          XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
014170,001301: 41,2532           10122                          CCS      DECTEM                                
014171,001302: 41,2533           02524                          TC       DSPDCGET                              #  MORE TO GET
014172,001303: 41,2534           34714        DSPDCPUT          CAF      ZERO                                  #  DISPLAYS DATA
014173,001304: 41,2535           54155                          TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
014174,001305: 41,2536           54156                          TS       MPAC       +2                         
014175,001306: 41,2537           50117                          INDEX    DECOUNT                               
014176,001307: 41,2540           34333                          CAF      R1D1                                  
014177,001308: 41,2541           54777                          TS       DSPCOUNT                              
014178,001309: 41,2542           50117                          INDEX    DECOUNT                               
014179,001310: 41,2543           41003                          CS       XREG                                  
014180,001311: 41,2544           54154                          TS       MPAC                                  
014181,001312: 41,2545           03042                          TC       SFCONUM                               #  2X( SF CON NUMB ) IN A
014182,001313: 41,2546           54123                          TS       SFTEMP1                               
014183,001314: 41,2547           00006                          EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
014184,001315:                                                                                                 # # Page 327
014185,001316: 41,2550           32562                          DCA      GTSFOUTL                              #     READING ROUTINE.
014186,001317: 41,2551           52006                          DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
014187,001318: 41,2552           50140                          INDEX    MIXBR                                 
014188,001319: 41,2553           02553                          TC       +0                                    
014189,001320: 41,2554           02557                          TC       DSPSFNOR                              
014190,001321: 41,2555           03027                          TC       SFRUTMIX                              
014191,001322: 41,2556           02572                          TC       DECDSP3                               
014192,001323: 
014193,001324: 41,2557           03021        DSPSFNOR          TC       SFRUTNOR                              
014194,001325: 41,2560           02572                          TC       DECDSP3                               
014195,001326: 
014196,001327: 41,2561     0777                                 EBANK=   DSPCOUNT                              
014197,001328: 41,2561           02120 64101  GTSFOUTL          2CADR    GTSFOUT                               
014198,001329: 
014199,001330: 
014200,001331: 41,2563           04555        DSPDCEND          TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
014201,001332: 41,2564           61131                          CADR     DSPDECWD                              
014202,001333: 41,2565           10117                          CCS      DECOUNT                               
014203,001334: 41,2566           02570                          TC       +2                                    
014204,001335: 41,2567           00136                          TC       ENTEXIT                               
014205,001336: 41,2570           54117                          TS       DECOUNT                               
014206,001337: 41,2571           02534                          TC       DSPDCPUT                              #  MORE TO DISPLAY
014207,001338: 
014208,001339: 
014209,001340: 41,2572           50000        DECDSP3           INDEX    A                                     
014210,001341: 41,2573           32575                          CAF      SFOUTABR                              
014211,001342: 41,2574           04577                          TC       BANKJUMP                              
014212,001343: 
014213,001344: 41,2575           61321        SFOUTABR          CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
014214,001345: 41,2576           62563                          CADR     DSPDCEND                              
014215,001346: 41,2577           60516                          CADR     DEGOUTSF                              
014216,001347: 41,2600           60603                          CADR     ARTOUTSF                              
014217,001348: 41,2601           60614                          CADR     DP1OUTSF                              
014218,001349: 41,2602           60621                          CADR     DP2OUTSF                              
014219,001350: 41,2603           60524                          CADR     OPDEGOUT                              
014220,001351: 41,2604           60623                          CADR     DP3OUTSF                              
014221,001352: 41,2605           65143                          CADR     HMSOUT                                
014222,001353: 41,2606           65216                          CADR     M/SOUT                                
014223,001354: 41,2607           60621                          CADR     DP2OUTSF                              
014224,001355: 41,2610           60610                          CADR     AROUT1SF                              
014225,001356: 41,2611           60636                          CADR     2INTOUT                               
014226,001357: 41,2612                        ENDRTOUT          EQUALS                                         
014227,001358: 
014228,001359: 
014229,001360:                                                                                                 #           THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
014230,001361:                                                                                                 #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
014231,001362: 
014232,001363: 
014233,001364: 40,2516                                          SETLOC   BLANKCON   +1                         
014234,001365:                                                                                                 # # Page 328
014235,001366: 40,2516                                          COUNT    40/PIN                                
014236,001367: 
014237,001368:                                                                                                 #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
014238,001369:                                                                                                 #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
014239,001370: 
014240,001371: 40,2516           34714        DEGOUTSF          CAF      ZERO                                  
014241,001372: 40,2517           54156                          TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
014242,001373: 40,2520           02555                          TC       FIXRANGE                              
014243,001374: 40,2521           02523                          TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
014244,001375: 40,2522           02550                          TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
014245,001376: 40,2523           02566                          TC       DEGCOM                                
014246,001377: 
014247,001378:                                                                                                 #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
014248,001379: 
014249,001380: 40,2524           10154        OPDEGOUT          CCS      MPAC                                  #  RANGE IS 90 DEG
014250,001381: 40,2525           56154                          XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
014251,001382: 40,2526           02531                          TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
014252,001383: 40,2527           02540                          TC       NEGOPT                                #  IF NEG NON ZERO
014253,001384: 40,2530           67716                          AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
014254,001385: 40,2531           62602                          AD       20BIAS                                
014255,001386: 40,2532           54154        BIASCOM           TS       MPAC                                  #  TEST FOR OVEFLOW
014256,001387: 40,2533           02536                          TC       +3                                    #  NO OVFLOW
014257,001388: 40,2534           34674                          CAF      BIT15                                 #  IF OVFLOW
014258,001389: 40,2535           26154                          ADS      MPAC                                  
014259,001390: 40,2536           34711                          CAF      TWO                                   #  SET MULTIPLIER TO .45
014260,001391: 40,2537           02517                          TC       DEGOUTSF   +1                         
014261,001392: 
014262,001393: 40,2540           56154        NEGOPT            XCH      MPAC                                  #  NEGATIVE CASE
014263,001394: 40,2541           62602                          AD       20BIAS                                
014264,001395: 40,2542           10000                          CCS      A                                     
014265,001396: 40,2543           02532                          TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECASUE OF 2SCOM
014266,001397: 40,2544           05642                          TC       CCSHOLE                               
014267,001398: 40,2545           64712                          AD       ONE                                   #  IF NEG RESTORE SUM
014268,001399: 40,2546           40000                          COM                                            #  IF NEG 0 LEAVE NEG 0
014269,001400: 40,2547           02532                          TC       BIASCOM                               
014270,001401: 
014271,001402: 40,2550           00006        SETAUG            EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
014272,001403: 40,2551           50156                          INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
014273,001404: 40,2552           32577                          DCA      DEGTAB                                
014274,001405: 40,2553           52124                          DXCH     SFTEMP1                               
014275,001406: 40,2554           00002                          TC       Q                                     
014276,001407: 
014277,001408: 40,2555           10154        FIXRANGE          CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
014278,001409: 40,2556           00002                          TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
014279,001410: 40,2557           00002                          TC       Q                                     #  MASKING OUT THE SIGN BIT
014280,001411: 40,2560           12561                          TCF      +1                                    
014281,001412: 40,2561           44674                          CS       BIT15                                 
014282,001413: 40,2562           70154                          MASK     MPAC                                  
014283,001414: 40,2563           54154                          TS       MPAC                                  
014284,001415: 40,2564           50002                          INDEX    Q                                     
014285,001416:                                                                                                 # # Page 329
014286,001417: 40,2565           00001                          TC       1                                     
014287,001418: 
014288,001419: 40,2566           00006        DEGCOM            EXTEND                                         #  LOADS MULTIPLIER , DOES SHORTMP, AND
014289,001420: 40,2567           50156                          INDEX    MPAC       +2                         #  ADDS AUTMENTER.
014290,001421: 40,2570           32577                          DCA      DEGTAB                                
014291,001422: 40,2571           52155                          DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
014292,001423: 40,2572           07256                          TC       SHORTMP                               
014293,001424: 40,2573           52124                          DXCH     SFTEMP1                               
014294,001425: 40,2574           20155                          DAS      MPAC                                  
014295,001426: 40,2575           02606                          TC       SCOUTEND                              
014296,001427: 
014297,001428: 
014298,001429: 40,2576           05605        DEGTAB            OCT      05605                                 #  HI PART OF     .18
014299,001430: 40,2577           03656                          OCT      03656                                 #  LOW PART OF    .18
014300,001431: 40,2600           16314                          OCT      16314                                 #  HI PART OF     .45
014301,001432: 40,2601           31463                          OCT      31463                                 #  LO PART OF     .45
014302,001433: 
014303,001434: 40,2602           16040        20BIAS            OCT      16040                                 #  20 DEG BIAS FOR OPTICS
014304,001435: 
014305,001436: 40,2603           52124        ARTOUTSF          DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
014306,001437: 40,2604           52155                          DXCH     MPAC                                  
014307,001438: 40,2605           04431                          TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014308,001439: 40,2606           04574        SCOUTEND          TC       POSTJUMP                              
014309,001440: 40,2607           62563                          CADR     DSPDCEND                              
014310,001441: 
014311,001442: 40,2610           52124        AROUT1SF          DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
014312,001443: 40,2611           52155                          DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
014313,001444: 40,2612           04431                          TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
014314,001445: 40,2613           02615                          TC       L14/OUT                               
014315,001446: 
014316,001447: 40,2614           02627        DP1OUTSF          TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
014317,001448: 40,2615           56156        L14/OUT           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
014318,001449: 40,2616           56155                          XCH      MPAC       +1                         #  BY B14.
014319,001450: 40,2617           54154                          TS       MPAC                                  
014320,001451: 40,2620           02606                          TC       SCOUTEND                              
014321,001452: 
014322,001453: 40,2621           02627        DP2OUTSF          TC       DPOUT                                 #  SCALES MPAC , MPAC +1 BY DP SCALE FACTOR
014323,001454: 40,2622           02606                          TC       SCOUTEND                              
014324,001455: 
014325,001456: 40,2623           02627        DP3OUTSF          TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
014326,001457: 40,2624           36211                          CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
014327,001458: 40,2625           03056                          TC       TPLEFTN                               #  SHIFT LEFT 7.
014328,001459: 40,2626           02606                          TC       SCOUTEND                              
014329,001460: 
014330,001461: 40,2627     0162               MPAC+6            =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
014331,001462: 
014332,001463:                                                                                                 # # Page 330
014333,001464: 40,2627           56002        DPOUT             XCH      Q                                     
014334,001465: 40,2630           54162                          TS       MPAC+6                                
014335,001466: 40,2631           02653                          TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
014336,001467: 40,2632           07226                          TC       TPAGREE                               #  MAKE DP DATA AGREE
014337,001468: 40,2633           07052                          TC       DMP                                   
014338,001469: 40,2634           00123                          ADRES    SFTEMP1                               
014339,001470: 40,2635           00162                          TC       MPAC+6                                
014340,001471:                                                                                                 #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
014341,001472:                                                                                                 #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
014342,001473:                                                                                                 #  BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
014343,001474:                                                                                                 #  RXD1-RXD2.
014344,001475: 
014345,001476: 40,2636           02437        2INTOUT           TC       5BLANK                                #  TO BLANK RXD3
014346,001477: 40,2637           02314                          TC       +ON                                   #  TURN ON + SIGN
014347,001478: 40,2640           30154                          CA       MPAC                                  
014348,001479: 40,2641           03211                          TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
014349,001480: 40,2642           46214                          CS       THREE                                 
014350,001481: 40,2643           50117                          INDEX    DECOUNT                               
014351,001482: 40,2644           64333                          AD       R1D1                                  #  RXD4
014352,001483: 40,2645           54777                          TS       DSPCOUNT                              
014353,001484: 40,2646           02653                          TC       READLO                                #  GET 2ND INTEGER
014354,001485: 40,2647           30155                          CA       MPAC       +1                         
014355,001486: 40,2650           03211                          TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
014356,001487: 40,2651           04574                          TC       POSTJUMP                              
014357,001488: 40,2652           62565                          CADR     DSPDCEND   +2                         
014358,001489: 
014359,001490: 
014360,001491:                                                                                                 #  READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN 
014361,001492:                                                                                                 #  MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
014362,001493:                                                                                                 #  DOES NOT FORCE TPAGREE.
014363,001494: 
014364,001495: 40,2653           56002        READLO            XCH      Q                                     
014365,001496: 40,2654           54144                          TS       TEM4                                  
014366,001497: 40,2655           50140                          INDEX    MIXBR                                 
014367,001498: 40,2656           02656                          TC       +0                                    
014368,001499: 40,2657           02673                          TC       RDLONOR                               
014369,001500: 40,2660           50117                          INDEX    DECOUNT                               
014370,001501: 40,2661           30150                          CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
014371,001502: 40,2662           74372                          MASK     LOW11                                 #  E SUBK
014372,001503: 40,2663           04327                          TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
014373,001504: 40,2664           00006        READLO1           EXTEND                                         #  MIXED         NORMAL
014374,001505: 40,2665           50000                          INDEX    A                                     #  C(ESUBK)      C(E)
014375,001506: 40,2666           30001                          DCA      0                                     #  C(E SUBK)+1)       C(E+1)
014376,001507: 40,2667           52155                          DXCH     MPAC                                  
014377,001508: 40,2670           34714                          CAF      ZERO                                  
014378,001509: 40,2671           54156                          TS       MPAC       +2                         
014379,001510: 40,2672           00144                          TC       TEM4                                  
014380,001511: 
014381,001512: 40,2673           30145        RDLONOR           CA       NOUNADD                               #  E
014382,001513: 40,2674           02664        ENDRDLO           TC       READLO1                               
014383,001514:                                                                                                 # # Page 331
014384,001515: 42,3143                                          BANK     42                                    
014385,001516: 42,2000                                          SETLOC   PINBALL3                              
014386,001517: 42,2000                                          BANK                                           
014387,001518: 
014388,001519: 42,3143                                          COUNT    42/PIN                                
014389,001520: 
014390,001521: 42,3143           04555        HMSOUT            TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC.
014391,001522: 42,3144           60653                          CADR     READLO                                #  MPAC+1.
014392,001523: 42,3145           07226                          TC       TPAGREE                               #  MAKE DP DATA AGREE
014393,001524: 42,3146           03332                          TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
014394,001525:                                                                                                 #                                           WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014395,001526: 42,3147           07052                          TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
014396,001527: 42,3150           03204                          ADRES    SECON2                                #  MULT BY .06
014397,001528: 42,3151           34335                          CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
014398,001529: 42,3152           54777                          TS       DSPCOUNT                              
014399,001530: 42,3153           04555                          TC       BANKCALL                              #  DISPLAY SEC MOD 60
014400,001531: 42,3154           61131                          CADR     DSPDECWD                              
014401,001532: 42,3155           03350                          TC       SEPMIN                                #  REMOVE REST OF SECONDS
014402,001533: 42,3156           33206                          CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
014403,001534: 42,3157           56154                          XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
014404,001535: 42,3160           55007                          TS       HITEMOUT                              #  SAVE WHOLE HOURS.
014405,001536: 42,3161           33207                          CAF      MINCON2    +1                         
014406,001537: 42,3162           56155                          XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
014407,001538: 42,3163           04431                          TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014408,001539:                                                                                                 #                                           MULT BY .0006
014409,001540: 42,3164           34334                          CAF      R2D1                                  #  GIVE MIN/10EXP5 MOD 60
014410,001541: 42,3165           54777                          TS       DSPCOUNT                              
014411,001542: 42,3166           04555                          TC       BANKCALL                              #  DISPLAY MIN MOD 60
014412,001543: 42,3167           61131                          CADR     DSPDECWD                              
014413,001544: 42,3170           00006                          EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
014414,001545: 42,3171           33213                          DCA      HRCON1                                
014415,001546: 42,3172           52155                          DXCH     MPAC                                  
014416,001547: 42,3173           31007                          CA       HITEMOUT                              #  USE WHOLE HOURS
014417,001548: 42,3174           04431                          TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014418,001549:                                                                                                 #                                           MULT BY .16384
014419,001550: 42,3175           34333                          CAF      R1D1                                  #  GIVES HOURS/10EXP5
014420,001551: 42,3176           54777                          TS       DSPCOUNT                              
014421,001552: 42,3177           04555                          TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
014422,001553: 42,3200           61131                          CADR     DSPDECWD                              
014423,001554: 42,3201           00136                          TC       ENTEXIT                               
014424,001555: 
014425,001556: 42,3202           25660 31742  SECON1            2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
014426,001557: 42,3204           01727        SECON2            OCT      01727                                 #  .06 FOR SECONDS DISPLAY
014427,001558: 42,3205           01217                          OCT      01217                                 
014428,001559: 42,3206           00011        MINCON2           OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
014429,001560: 42,3207           32445                          OCT      32445                                 
014430,001561: 42,3210           02104        MINCON1           OCT      02104                                 #  .066..66 UPPED BY 2EXP-2B
014431,001562: 42,3211           10422                          OCT      10422                                 
014432,001563: 42,3212           05174 13261  HRCON1            2DEC     .16384                                
014433,001564:                                                                                                 # # Page 332
014434,001565: 42,3214           00000                          OCT      00000                                 
014435,001566: 42,3215           00062        RNDCON            OCT      00062                                 #  .5 SEC
014436,001567: 
014437,001568: 
014438,001569: 42,3216           04555        M/SOUT            TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
014439,001570: 42,3217           60653                          CADR     READLO                                #  MPAC+1.
014440,001571: 42,3220           07226                          TC       TPAGREE                               #  MAKE DP DATA AGREE
014441,001572: 42,3221           10154                          CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
014442,001573: 42,3222           03224                          TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
014443,001574: 42,3223           03255                          TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
014444,001575: 42,3224           63312                          AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1  FOR CCS
014445,001576: 42,3225           10000                          CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
014446,001577: 42,3226           03241                          TC       M/SLIMIT                              #  G/ 59M58.5S
014447,001578: 42,3227           03255                          TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
014448,001579: 42,3230           03255                          TC       M/SNORM                               #  L/ 59M58.5S
014449,001580: 42,3231           10155                          CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
014450,001581: 42,3232           03234                          TC       +2                                    
014451,001582: 42,3233           03255                          TC       M/SNORM                               #  MPAC+1 = +0. L/ 59M58.5S
014452,001583: 42,3234           63313                          AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1  FOR CCS
014453,001584: 42,3235           10000                          CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
014454,001585: 42,3236           03241                          TC       M/SLIMIT                              #  G/ 59M58.5S
014455,001586: 42,3237           03255                          TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
014456,001587: 42,3240           03255                          TC       M/SNORM                               #  L/ 59M58.5S
014457,001588: 42,3241           10154        M/SLIMIT          CCS      MPAC                                  #  = 59M58.5S    LIMIT
014458,001589: 42,3242           33315                          CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
014459,001590: 42,3243           03252                          TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M58.5S
014460,001591: 42,3244           43315                          CS       M/SCON3                               
014461,001592: 42,3245           54154                          TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
014462,001593: 42,3246           43316                          CS       M/SCON3    +1                         
014463,001594: 42,3247           54155        LIMITCOM          TS       MPAC       +1                         
014464,001595: 42,3250           33314                          CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
014465,001596: 42,3251           03333                          TC       SEPSECNR   +1                         
014466,001597: 42,3252           54154        +LIMIT            TS       MPAC                                  
014467,001598: 42,3253           33316                          CAF      M/SCON3    +1                         
014468,001599: 42,3254           03247                          TC       LIMITCOM                              
014469,001600: 42,3255           03317        M/SNORM           TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
014470,001601:                                                                                                 #                                           WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014471,001602: 42,3256           33310                          CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
014472,001603: 42,3257           07256                          TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
014473,001604: 42,3260           46214                          CS       THREE                                 #  GIVES SEC/100 MOD 60
014474,001605: 42,3261           26777                          ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
014475,001606: 42,3262           04555                          TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
014476,001607: 42,3263           61171                          CADR     DSPDC2NR                              
014477,001608: 42,3264           34714                          CAF      ZERO                                  
014478,001609: 42,3265           54124                          TS       CODE                                  
014479,001610: 42,3266           44711                          CS       TWO                                   
014480,001611: 42,3267           50117                          INDEX    DECOUNT                               
014481,001612: 42,3270           64333                          AD       R1D1                                  #  RXD3
014482,001613: 42,3271           54143                          TS       COUNT                                 
014483,001614: 42,3272           04555                          TC       BANKCALL                              #  BLANK MIDDLE CHAR
014484,001615:                                                                                                 # # Page 333
014485,001616: 42,3273           61225                          CADR     DSPIN                                 
014486,001617: 42,3274           03350                          TC       SEPMIN                                #  REMOVE REST OF SECONDS
014487,001618: 42,3275           56155                          XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
014488,001619: 42,3276           00006                          EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
014489,001620: 42,3277           73311                          MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
014490,001621: 42,3300           52155                          DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
014491,001622: 42,3301           50117                          INDEX    DECOUNT                               
014492,001623: 42,3302           34333                          CAF      R1D1                                  #  RXD1
014493,001624: 42,3303           54777                          TS       DSPCOUNT                              
014494,001625: 42,3304           04555                          TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
014495,001626: 42,3305           61171                          CADR     DSPDC2NR                              
014496,001627: 42,3306           04574                          TC       POSTJUMP                              
014497,001628: 42,3307           62565                          CADR     DSPDCEND   +2                         
014498,001629: 
014499,001630: 42,3310           23147        HISECON           OCT      23147                                 #  .6 + 2EXP-14
014500,001631: 42,3311           23346        HIMINCON          OCT      23346                                 #  .6 + 2EXP-7
014501,001632: 
014502,001633: 42,3312           77753        M/SCON1           OCT      77753                                 #  - HI PART OF (59M58.5S) +1
014503,001634: 42,3313           41126        M/SCON2           OCT      41126                                 #  - LO PART OF (59M58.5S) +1
014504,001635: 42,3314           03256        NORMADR           ADRES    M/SNORM    +1                         
014505,001636: 42,3315           00025        M/SCON3           OCT      00025                                 #  59M 59.5S
014506,001637: 42,3316           37016                          OCT      37016                                 
014507,001638: 
014508,001639: 42,3317           10155        SEPSEC            CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
014509,001640: 42,3320           13327                          TCF      POSEC                                 #  IF -, ROUND BY SUBTRACING .5 SEC
014510,001641: 42,3321           13327                          TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
014511,001642: 42,3322           13323                          TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
014512,001643: 42,3323           00006                          EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
014513,001644: 42,3324           43215                          DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
014514,001645: 42,3325           20155        SEPSEC1           DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
014515,001646: 42,3326           13332                          TCF      SEPSECNR                              
014516,001647: 42,3327           00006        POSEC             EXTEND                                         
014517,001648: 42,3330           33215                          DCA      RNDCON     -1                         
014518,001649: 42,3331           13325                          TCF      SEPSEC1                               
014519,001650: 42,3332           56002        SEPSECNR          XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
014520,001651: 42,3333           54144                          TS       SEPSCRET                              
014521,001652: 42,3334           07052                          TC       DMP                                   #  MULT BY 2EXP12/6000
014522,001653: 42,3335           03202                          ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
014523,001654: 42,3336           00006                          EXTEND                                         #  AND BELOW.
014524,001655: 42,3337           30155                          DCA      MPAC                                  #  SAVE MINUTES AND HOURS
014525,001656: 42,3340           53010                          DXCH     HITEMOUT                              
014526,001657: 42,3341           04420                          TC       TPSL1                                 
014527,001658: 42,3342           04420                          TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
014528,001659: 42,3343           34714                          CAF      ZERO                                  
014529,001660: 42,3344           56156                          XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
014530,001661: 42,3345           56155                          XCH      MPAC       +1                         
014531,001662: 42,3346           56154                          XCH      MPAC                                  
014532,001663: 42,3347           00144                          TC       SEPSCRET                              
014533,001664: 
014534,001665:                                                                                                 # # Page 334
014535,001666: 42,3350           56002        SEPMIN            XCH      Q                                     #  FIND WHOLE MINUTES IN BIT13
014536,001667: 42,3351           54144                          TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
014537,001668: 42,3352           31010                          CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
014538,001669: 42,3353           00006                          EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
014539,001670: 42,3354           74710                          MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
014540,001671: 42,3355           00006                          EXTEND                                         #  SR 12, THROW AWAY LP.
014541,001672: 42,3356           74676                          MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
014542,001673: 42,3357           22155                          LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +.
014543,001674:                                                                                                 #                                           FORCES BITS 12-1 TO 1 IF -.
014544,001675: 42,3360           31007                          CA       HITEMOUT                              
014545,001676: 42,3361           54154                          TS       MPAC                                  
014546,001677: 42,3362           07052                          TC       DMP                                   #  MULT BY 1/15
014547,001678: 42,3363           03210                          ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
014548,001679: 42,3364           00144        ENDSPMIN          TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
014549,001680: 
014550,001681: 
014551,001682:                                                                                                 #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
014552,001683:                                                                                                 #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
014553,001684:                                                                                                 #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
014554,001685:                                                                                                 #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
014555,001686:                                                                                                 #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
014556,001687:                                                                                                 #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
014557,001688: 
014558,001689: 
014559,001690: 40,2675                                          SETLOC   ENDRDLO    +1                         
014560,001691: 
014561,001692: 40,2675                                          COUNT    40/PIN                                
014562,001693: 
014563,001694: 40,2675           50140        DSPDPDEC          INDEX    MIXBR                                 
014564,001695: 40,2676           02676                          TC       +0                                    
014565,001696: 40,2677           02701                          TC       +2                                    #  NORMAL NOUN
014566,001697: 40,2700           03323                          TC       DSPALARM                              
014567,001698: 40,2701           00006                          EXTEND                                         
014568,001699: 40,2702           50145                          INDEX    NOUNADD                               
014569,001700: 40,2703           30001                          DCA      0                                     
014570,001701: 40,2704           52155                          DXCH     MPAC                                  
014571,001702: 40,2705           34333                          CAF      R1D1                                  
014572,001703: 40,2706           54777                          TS       DSPCOUNT                              
014573,001704: 40,2707           34714                          CAF      ZERO                                  
014574,001705: 40,2710           54156                          TS       MPAC       +2                         
014575,001706: 40,2711           07226                          TC       TPAGREE                               
014576,001707: 40,2712           03176                          TC       DSP2DEC                               
014577,001708: 40,2713           00136        ENDDPDEC          TC       ENTEXIT                               
014578,001709: 
014579,001710:                                                                                                 # # Page 335
014580,001711:                                                                                                 #  LOAD VERBS           IF ALARM CONDITION IS DETECTED DURING EXECUTE,
014581,001712:                                                                                                 #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
014582,001713:                                                                                                 #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
014583,001714:                                                                                                 #  TO EXECUTE  OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY  1) DECIMAL MACHINE
014584,001715:                                                                                                 #  CADR  2) MIXTURE OF OCTAL/DECIMAL DATA  3) OCTAL DATA INTO DECIMAL
014585,001716:                                                                                                 #  ONLY NOUN  4) DEC DATA INTO OCT ONLY NOUN  5) DATA TOO LARGE FOR SCALE
014586,001717:                                                                                                 #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
014587,001718:                                                                                                 #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
014588,001719:                                                                                                 #  ENTER OF CADR.
014589,001720: 
014590,001721: 
014591,001722: 41,2612                                          SETLOC   ENDRTOUT                              
014592,001723: 
014593,001724: 41,2612                                          COUNT    41/PIN                                
014594,001725: 
014595,001726: 41,2612           44711        ABCLOAD           CS       TWO                                   
014596,001727: 41,2613           02423                          TC       COMPTEST                              
014597,001728: 41,2614           02457                          TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
014598,001729: 41,2615           33001                          CAF      VBSP1LD                               
014599,001730: 41,2616           02336                          TC       UPDATVB    -1                         
014600,001731: 41,2617           02302                          TC       REQDATX                               
014601,001732: 41,2620           33002                          CAF      VBSP2LD                               
014602,001733: 41,2621           02336                          TC       UPDATVB    -1                         
014603,001734: 41,2622           02304                          TC       REQDATY                               
014604,001735: 41,2623           33003                          CAF      VBSP3LD                               
014605,001736: 41,2624           02336                          TC       UPDATVB    -1                         
014606,001737: 41,2625           02306                          TC       REQDATZ                               
014607,001738: 
014608,001739: 41,2626           46211        PUTXYZ            CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
014609,001740: 41,2627           03004                          TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
014610,001741: 41,2630           00006                          EXTEND                                         
014611,001742: 41,2631           32114                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014612,001743: 41,2632           52006                          DXCH     Z                                     #  ROUTINE.
014613,001744: 41,2633           34714                          CAF      ZERO                                  #  X COMP
014614,001745: 41,2634           03070                          TC       PUTCOM                                
014615,001746: 41,2635           50145                          INDEX    NOUNADD                               
014616,001747: 41,2636           54000                          TS       0                                     
014617,001748: 41,2637           34712                          CAF      ONE                                   #  Y COMP
014618,001749: 41,2640           03070                          TC       PUTCOM                                
014619,001750: 41,2641           50145                          INDEX    NOUNADD                               
014620,001751: 41,2642           54001                          TS       1                                     
014621,001752: 41,2643           34711                          CAF      TWO                                   #  Z COMP
014622,001753: 41,2644           03070                          TC       PUTCOM                                
014623,001754: 41,2645           50145                          INDEX    NOUNADD                               
014624,001755: 41,2646           54002                          TS       2                                     
014625,001756: 41,2647           44716                          CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
014626,001757: 41,2650           61002                          AD       NOUNREG                               #   FLAG BITS AS SPECIFIED.
014627,001758: 41,2651           00006                          EXTEND                                         
014628,001759: 41,2652           12654                          BZF      +2                                    
014629,001760:                                                                                                 # # Page 336
014630,001761: 41,2653           02771                          TC       LOADLV                                
014631,001762: 41,2654           31003                          CA       XREG                                  #  ECADR OF FLAG WORD.
014632,001763: 41,2655           04320                          TC       SETNCADR   +1                         #   SET EBANK, NOUNADD.
014633,001764: 41,2656           31005                          CA       ZREG                                  
014634,001765: 41,2657           00004                          INHINT                                         
014635,001766: 41,2660           00006                          EXTEND                                         
014636,001767: 41,2661           12670                          BZF      BITSOFF                               
014637,001768: 41,2662           50145                          INDEX    NOUNADD                               
014638,001769: 41,2663           40000                          CS       0                                     
014639,001770: 41,2664           71004                          MASK     YREG                                  #  BITS TO BE PROCESSED.
014640,001771: 41,2665           50145                          INDEX    NOUNADD                               
014641,001772: 41,2666           26000                          ADS      0                                     #  SET BITS.
014642,001773: 41,2667           02675                          TC       BITSOFF1                              
014643,001774: 41,2670           41004        BITSOFF           CS       YREG                                  #  BITS TO BE PROCESSED.
014644,001775: 41,2671           50145                          INDEX    NOUNADD                               
014645,001776: 41,2672           70000                          MASK     0                                     
014646,001777: 41,2673           50145                          INDEX    NOUNADD                               
014647,001778: 41,2674           54000                          TS       0                                     #  RESET BITS.
014648,001779: 41,2675           00003        BITSOFF1          RELINT                                         
014649,001780: 41,2676           02771                          TC       LOADLV                                
014650,001781: 
014651,001782: 41,2677           44712        ABLOAD            CS       ONE                                   
014652,001783: 41,2700           02423                          TC       COMPTEST                              
014653,001784: 41,2701           02457                          TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
014654,001785: 41,2702           33001                          CAF      VBSP1LD                               
014655,001786: 41,2703           02336                          TC       UPDATVB    -1                         
014656,001787: 41,2704           02302                          TC       REQDATX                               
014657,001788: 41,2705           33002                          CAF      VBSP2LD                               
014658,001789: 41,2706           02336                          TC       UPDATVB    -1                         
014659,001790: 41,2707           02304                          TC       REQDATY                               
014660,001791: 41,2710           44715        PUTXY             CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
014661,001792: 41,2711           03004                          TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
014662,001793: 41,2712           00006                          EXTEND                                         
014663,001794: 41,2713           32114                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014664,001795: 41,2714           52006                          DXCH     Z                                     #  ROUTINE.
014665,001796: 41,2715           34714                          CAF      ZERO                                  #  X COMP
014666,001797: 41,2716           03070                          TC       PUTCOM                                
014667,001798: 41,2717           50145                          INDEX    NOUNADD                               
014668,001799: 41,2720           54000                          TS       0                                     
014669,001800: 41,2721           34712                          CAF      ONE                                   #  Y COMP
014670,001801: 41,2722           03070                          TC       PUTCOM                                
014671,001802: 41,2723           50145                          INDEX    NOUNADD                               
014672,001803: 41,2724           54001                          TS       1                                     
014673,001804: 41,2725           02771                          TC       LOADLV                                
014674,001805: 
014675,001806: 41,2726           02302        ALOAD             TC       REQDATX                               
014676,001807: 41,2727           00006                          EXTEND                                         
014677,001808: 41,2730           32114                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014678,001809: 41,2731           52006                          DXCH     Z                                     #  ROUTINE.
014679,001810: 41,2732           34714                          CAF      ZERO                                  #  X COMP
014680,001811:                                                                                                 # # Page 337
014681,001812: 41,2733           03070                          TC       PUTCOM                                
014682,001813: 41,2734           50145                          INDEX    NOUNADD                               
014683,001814: 41,2735           54000                          TS       0                                     
014684,001815: 41,2736           02771                          TC       LOADLV                                
014685,001816: 
014686,001817: 41,2737           44712        BLOAD             CS       ONE                                   
014687,001818: 41,2740           02423                          TC       COMPTEST                              
014688,001819: 41,2741           34674                          CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
014689,001820: 41,2742           55015                          TS       CLPASS                                
014690,001821: 41,2743           02304                          TC       REQDATY                               
014691,001822: 41,2744           00006                          EXTEND                                         
014692,001823: 41,2745           32114                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014693,001824: 41,2746           52006                          DXCH     Z                                     #  ROUTINE.
014694,001825: 41,2747           34712                          CAF      ONE                                   
014695,001826: 41,2750           03070                          TC       PUTCOM                                
014696,001827: 41,2751           50145                          INDEX    NOUNADD                               
014697,001828: 41,2752           54001                          TS       1                                     
014698,001829: 41,2753           02771                          TC       LOADLV                                
014699,001830: 
014700,001831: 41,2754           44711        CLOAD             CS       TWO                                   
014701,001832: 41,2755           02423                          TC       COMPTEST                              
014702,001833: 41,2756           34674                          CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
014703,001834: 41,2757           55015                          TS       CLPASS                                
014704,001835: 41,2760           02306                          TC       REQDATZ                               
014705,001836: 41,2761           00006                          EXTEND                                         
014706,001837: 41,2762           32114                          DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014707,001838: 41,2763           52006                          DXCH     Z                                     #  ROUTINE.
014708,001839: 41,2764           34711                          CAF      TWO                                   
014709,001840: 41,2765           03070                          TC       PUTCOM                                
014710,001841: 41,2766           50145                          INDEX    NOUNADD                               
014711,001842: 41,2767           54002                          TS       2                                     
014712,001843: 41,2770           02771                          TC       LOADLV                                
014713,001844: 
014714,001845: 41,2771           34714        LOADLV            CAF      ZERO                                  
014715,001846: 41,2772           55000                          TS       DECBRNCH                              
014716,001847: 41,2773           44714                          CS       ZERO                                  
014717,001848: 41,2774           55014                          TS       LOADSTAT                              
014718,001849: 41,2775           44374                          CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
014719,001850: 41,2776           54777                          TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
014720,001851: 41,2777           04574                          TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
014721,001852: 41,3000           61450                          CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
014722,001853: 
014723,001854: 41,3001           00025        VBSP1LD           DEC      21         B-14                       #  VB21 = ALOAD
014724,001855: 41,3002           00026        VBSP2LD           DEC      22         B-14                       #  VB22 = BLOAD
014725,001856: 41,3003           00027        VBSP3LD           DEC      23         B-14                       #  VB23 = CLOAD
014726,001857: 
014727,001858: 
014728,001859: 41,3004           54117        ALLDC/OC          TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
014729,001860: 41,3005           41000                          CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
014730,001861: 41,3006           54021                          TS       SR                                    
014731,001862:                                                                                                 # # Page 338
014732,001863: 41,3007           40021                          CS       SR                                    
014733,001864: 41,3010           40021                          CS       SR                                    #  SHIFTED RIGHT 2
014734,001865: 41,3011           10000                          CCS      A                                     #  DEC COMP BITS IN LOW 3
014735,001866: 41,3012           13014                          TCF      +2                                    #  SOME ONES IN LOW 3
014736,001867: 41,3013           00002                          TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
014737,001868: 41,3014           60117                          AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
014738,001869: 41,3015           00006                          EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
014739,001870: 41,3016           13020                          BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
014740,001871: 41,3017           04161                          TC       ALMCYCLE                              #  ALARM AND RECYCLE.
014741,001872: 41,3020           00002        GOQ               TC       Q                                     #  ALL REQUIRED ARE DEC. OK
014742,001873: 
014743,001874: 
014744,001875: 41,3021           56002        SFRUTNOR          XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
014745,001876: 41,3022           54114                          TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
014746,001877: 41,3023           34363                          CAF      MID5                                  
014747,001878: 41,3024           70147                          MASK     NNTYPTEM                              
014748,001879: 41,3025           04336                          TC       RIGHT5                                
014749,001880: 41,3026           00114                          TC       EXITEM                                #  SF ROUTINE NUMBER IN A
014750,001881: 
014751,001882: 41,3027           56002        SFRUTMIX          XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
014752,001883: 41,3030           54114                          TS       EXITEM                                
014753,001884: 41,3031           50117                          INDEX    DECOUNT                               
014754,001885: 41,3032           33061                          CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
014755,001886: 41,3033           54001                          TS       L                                     
014756,001887: 41,3034           50117                          INDEX    DECOUNT                               
014757,001888: 41,3035           34362                          CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
014758,001889: 41,3036           70153                          MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
014759,001890: 41,3037           50001                          INDEX    L                                     
014760,001891: 41,3040           00000                          TC       0                                     
014761,001892:                                                                                                 #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
014762,001893: 41,3041           00114        SFRET1            TC       EXITEM                                #  SF ROUTINE NUMBER IN A
014763,001894: 
014764,001895: 41,3042           56002        SFCONUM           XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
014765,001896: 41,3043           54114                          TS       EXITEM                                
014766,001897: 41,3044           50140                          INDEX    MIXBR                                 
014767,001898: 41,3045           03045                          TC       +0                                    
014768,001899: 41,3046           03064                          TC       CONUMNOR                              #  NORMAL NOUN
014769,001900: 41,3047           50117                          INDEX    DECOUNT                               #  MIXED NOUN
014770,001901: 41,3050           33061                          CAF      DISPLACE                              
014771,001902: 41,3051           54001                          TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
014772,001903: 41,3052           50117                          INDEX    DECOUNT                               
014773,001904: 41,3053           34362                          CAF      LOW5                                  
014774,001905: 41,3054           70147                          MASK     NNTYPTEM                              
014775,001906: 41,3055           50001                          INDEX    L                                     
014776,001907: 41,3056           00000                          TC       0                                     
014777,001908:                                                                                                 #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
014778,001909: 41,3057           60000        SFRET             DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
014779,001910: 41,3060           00114                          TC       EXITEM                                
014780,001911: 
014781,001912: 41,3061           03020        DISPLACE          TC       GOQ                                   
014782,001913:                                                                                                 # # Page 339
014783,001914: 41,3062           04336                          TC       RIGHT5                                
014784,001915: 41,3063           04345                          TC       LEFT5                                 
014785,001916: 
014786,001917: 41,3064           34362        CONUMNOR          CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
014787,001918: 41,3065           70147                          MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
014788,001919: 41,3066           60000                          DOUBLE                                         
014789,001920: 41,3067           00114                          TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
014790,001921: 
014791,001922: 41,3070           54117        PUTCOM            TS       DECOUNT                               
014792,001923: 41,3071           56002                          XCH      Q                                     
014793,001924: 41,3072           54115                          TS       DECRET                                
014794,001925: 41,3073           34714                          CAF      ZERO                                  
014795,001926: 41,3074           54162                          TS       MPAC+6                                
014796,001927: 41,3075           50117                          INDEX    DECOUNT                               
014797,001928: 41,3076           57006                          XCH      XREGLP                                
014798,001929: 41,3077           54155                          TS       MPAC       +1                         
014799,001930: 41,3100           50117                          INDEX    DECOUNT                               
014800,001931: 41,3101           57003                          XCH      XREG                                  
014801,001932: 41,3102           54154                          TS       MPAC                                  
014802,001933: 41,3103           50140                          INDEX    MIXBR                                 
014803,001934: 41,3104           03104                          TC       +0                                    
014804,001935: 41,3105           03132                          TC       PUTNORM                               #  NORMAL NOUN
014805,001936:                                                                                                 #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
014806,001937: 41,3106           50117                          INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
014807,001938: 41,3107           30150                          CA       IDAD1TEM                              #          OF NOUN.
014808,001939: 41,3110           74372                          MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
014809,001940: 41,3111           04317                          TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014810,001941: 41,3112           00006                          EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
014811,001942: 41,3113           60117                          SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
014812,001943: 41,3114           54145                          TS       NOUNADD                               
014813,001944: 41,3115           11000                          CCS      DECBRNCH                              
014814,001945: 41,3116           03165                          TC       PUTDECSF                              #  +  DEC
014815,001946: 41,3117           02451                          TC       DCTSTCYC                              #  +0 OCTAL
014816,001947: 41,3120           03027                          TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1. IF SO,
014817,001948: 41,3121           02261                          TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
014818,001949: 41,3122           03150                          TC       PUTCOM2                               #  NO DP
014819,001950:                                                                                                 #                                           TEST FOR DP SCALE FOR OCT LOAD. IF SO,
014820,001951:                                                                                                 #                                           +0 INTO MAJOR PART. SET NOUNADD FOR
014821,001952:                                                                                                 #                                           LOADING OCTAL WORD INTO MINOR PART.
014822,001953: 41,3123           24145        PUTDPCOM          INCR     NOUNADD                               #  DP (ESUBK)-K+1  OR  E+1
014823,001954: 41,3124           30145                          CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
014824,001955: 41,3125           26117                          ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
014825,001956: 41,3126           34714                          CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
014826,001957: 41,3127           50117                          INDEX    DECOUNT                               
014827,001958: 41,3130           53777                          TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
014828,001959: 41,3131           03150                          TC       PUTCOM2                               
014829,001960: 
014830,001961: 41,3132           04325        PUTNORM           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
014831,001962: 41,3133           11000                          CCS      DECBRNCH                              
014832,001963:                                                                                                 # # Page 340
014833,001964: 41,3134           03165                          TC       PUTDECSF                              #  +  DEC
014834,001965: 41,3135           02451                          TC       DCTSTCYC                              #  +0 OCTAL
014835,001966: 41,3136           03021                          TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1. IF SO,
014836,001967: 41,3137           02261                          TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
014837,001968: 41,3140           03144                          TC       PUTCOM2    -4                         #  NO DP
014838,001969: 41,3141           34714                          CAF      ZERO                                  #  DP
014839,001970: 41,3142           54117                          TS       DECOUNT                               
014840,001971: 41,3143           03123                          TC       PUTDPCOM                              
014841,001972: 
014842,001973: 41,3144           30146                          CA       NNADTEM                               
014843,001974: 41,3145           64712                          AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
014844,001975: 41,3146           00006                          EXTEND                                         
014845,001976: 41,3147           13154                          BZF      CHANLOAD                              
014846,001977: 41,3150           56154        PUTCOM2           XCH      MPAC                                  
014847,001978: 41,3151           00115                          TC       DECRET                                
014848,001979: 
014849,001980: 41,3152     0777                                 EBANK=   DSPCOUNT                              
014850,001981: 41,3152           02126 64101  GTSFINLC          2CADR    GTSFIN                                
014851,001982: 
014852,001983: 
014853,001984: 41,3154           44716        CHANLOAD          CS       SEVEN                                 #  DONT LOAD CHAN 7. (IT = SUPERBANK).
014854,001985: 41,3155           61017                          AD       NOUNCADR                              
014855,001986: 41,3156           00006                          EXTEND                                         
014856,001987: 41,3157           12771                          BZF      LOADLV                                
014857,001988: 41,3160           30154                          CA       MPAC                                  
014858,001989: 41,3161           00006                          EXTEND                                         
014859,001990: 41,3162           51017                          INDEX    NOUNCADR                              
014860,001991: 41,3163           01000                          WRITE    0                                     
014861,001992: 41,3164           02771                          TC       LOADLV                                
014862,001993: 
014863,001994: 
014864,001995:                                                                                                 #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
014865,001996: 
014866,001997: 41,3165           03042        PUTDECSF          TC       SFCONUM                               #  2X(SF CON NUMB) IN A
014867,001998: 41,3166           54123                          TS       SFTEMP1                               
014868,001999: 41,3167           00006                          EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
014869,002000: 41,3170           33153                          DCA      GTSFINLC                              #  READING ROUTINE.
014870,002001: 41,3171           52006                          DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
014871,002002: 41,3172           50140                          INDEX    MIXBR                                 
014872,002003: 41,3173           03173                          TC       +0                                    
014873,002004: 41,3174           03177                          TC       PUTSFNOR                              
014874,002005: 41,3175           03027                          TC       SFRUTMIX                              
014875,002006: 41,3176           03200                          TC       PUTDCSF2                              
014876,002007: 41,3177           03021        PUTSFNOR          TC       SFRUTNOR                              
014877,002008: 
014878,002009: 41,3200           50000        PUTDCSF2          INDEX    A                                     
014879,002010: 41,3201           33203                          CAF      SFINTABR                              
014880,002011: 41,3202           04577                          TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSION ROOM
014881,002012: 41,3203           62347        SFINTABR          CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
014882,002013:                                                                                                 # # Page 341
014883,002014:                                                                                                 #                                           WITH OCTAL ONLY NOUN.
014884,002015: 41,3204           60774                          CADR     BINROUND                              
014885,002016: 41,3205           60714                          CADR     DEGINSF                               
014886,002017: 41,3206           60764                          CADR     ARTHINSF                              
014887,002018: 41,3207           61017                          CADR     DPINSF                                
014888,002019: 41,3210           61044                          CADR     DPINSF2                               
014889,002020: 41,3211           61002                          CADR     OPTDEGIN                              
014890,002021: 41,3212           61017                          CADR     DPINSF                                #  SAME AS ARITHDP1
014891,002022: 41,3213           65365                          CADR     HMSIN                                 
014892,002023: 41,3214           61323                          CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
014893,002024: 41,3215           61051                          CADR     DPINSF4                               
014894,002025: 41,3216           60777                          CADR     ARTIN1SF                              
014895,002026: 41,3217           61323                          CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
014896,002027: 41,3220                        ENDRUTIN          EQUALS                                         
014897,002028: 
014898,002029: 
014899,002030:                                                                                                 #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
014900,002031:                                                                                                 #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET.
014901,002032: 
014902,002033: 
014903,002034: 40,2714                                          SETLOC   ENDDPDEC   +1                         
014904,002035: 
014905,002036: 40,2714                                          COUNT    40/PIN                                
014906,002037: 
014907,002038:                                                                                                 #  DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
014908,002039: 
014909,002040: 40,2714           07052        DEGINSF           TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
014910,002041: 40,2715           02757                          ADRES    DEGCON1                               #  MULT BY 5.5  5(10)X2EXP-3
014911,002042: 40,2716           10155                          CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
014912,002043: 40,2717           34700                          CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
014913,002044: 40,2720           02722                          TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
014914,002045: 40,2721           44700                          CS       BIT11                                 
014915,002046: 40,2722           60155                          AD       MPAC       +1                         
014916,002047: 40,2723           03070                          TC       2ROUND     +2                         
014917,002048: 40,2724           04420                          TC       TPSL1                                 #  LEFT 1
014918,002049: 40,2725           04420        DEGINSF2          TC       TPSL1                                 #  LEFT 2
014919,002050: 40,2726           03077                          TC       TESTOFUF                              
014920,002051: 40,2727           04420                          TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
014921,002052: 40,2730           10154                          CCS      MPAC                                  
014922,002053: 40,2731           02735                          TC       SIGNFIX                               #  IF+, GO TO SIGNFIX
014923,002054: 40,2732           02735                          TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
014924,002055: 40,2733           40000                          COM                                            #  IF - , USE -MAGNITUDE +1
014925,002056: 40,2734           54154                          TS       MPAC                                  #  IF -0, USE +0
014926,002057: 40,2735           10162        SIGNFIX           CCS      MPAC+6                                
014927,002058: 40,2736           02753                          TC       SGNTO1                                #  IF OVERFLOW
014928,002059: 40,2737           02747                          TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
014929,002060: 40,2740           10154                          CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
014930,002061: 40,2741           05642                          TC       CCSHOLE                               
014931,002062: 40,2742           02751                          TC       NEG180                                
014932,002063: 40,2743           02744                          TC       +1                                    
014933,002064:                                                                                                 # # Page 342
014934,002065: 40,2744           56154                          XCH      MPAC                                  
014935,002066: 40,2745           74672                          MASK     POSMAX                                
014936,002067: 40,2746           54154                          TS       MPAC                                  
014937,002068: 40,2747           04574        ENDSCALE          TC       POSTJUMP                              
014938,002069: 40,2750           63150                          CADR     PUTCOM2                               
014939,002070: 
014940,002071: 40,2751           44672        NEG180            CS       POSMAX                                
014941,002072: 40,2752           02746                          TC       ENDSCALE   -1                         
014942,002073: 
014943,002074: 40,2753           40154        SGNTO1            CS       MPAC                                  #  IF OF FORCE SIGN TO 1
014944,002075: 40,2754           74672                          MASK     POSMAX                                
014945,002076: 40,2755           40000                          CS       A                                     
014946,002077: 40,2756           02746                          TC       ENDSCALE   -1                         
014947,002078: 
014948,002079: 40,2757           26161 30707  DEGCON1           2DEC     5.555555555 B-3                        
014949,002080: 
014950,002081: 40,2761           21616 07071  DEGCON2           2DEC     2.222222222 B-2                        
014951,002082: 40,2763           71527        NEG.2             OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
014952,002083: 
014953,002084: 40,2764           07052        ARTHINSF          TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
014954,002085: 40,2765           00123                          ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
014955,002086: 40,2766           56156                          XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
014956,002087: 40,2767           56155                          XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
014957,002088: 40,2770           56154                          XCH      MPAC                                  
014958,002089: 40,2771           00006                          EXTEND                                         
014959,002090: 40,2772           12774                          BZF      BINROUND                              
014960,002091: 40,2773           04161                          TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
014961,002092: 40,2774           03066        BINROUND          TC       2ROUND                                
014962,002093: 40,2775           03077                          TC       TESTOFUF                              
014963,002094: 40,2776           02747                          TC       ENDSCALE                              #  RETURNS IF NO OF/UF
014964,002095: 
014965,002096: 
014966,002097: 40,2777           07052        ARTIN1SF          TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
014967,002098: 40,3000           00123                          ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
014968,002099: 40,3001           02774                          TC       BINROUND                              
014969,002100: 
014970,002101: 
014971,002102: 40,3002           10154        OPTDEGIN          CCS      MPAC                                  #  OPTICS SCALING ROUTINE
014972,002103: 40,3003           03007                          TC       +4                                    
014973,002104: 40,3004           03007                          TC       +3                                    
014974,002105: 40,3005           04161                          TC       ALMCYCLE                              #  REJECT - INPUT. ALARM AND RECYCLE.
014975,002106: 40,3006           04161                          TC       ALMCYCLE                              #  REJECT - INPUT. ALARM AND RECYCLE.
014976,002107: 40,3007           32763        OPDEGIN2          CAF      NEG.2                                 #  RANGE IS 90 DEG
014977,002108: 40,3010           26154                          ADS      MPAC                                  #  SUBTRACT BIAS
014978,002109: 40,3011           07052                          TC       DMP                                   #  MULT BY 100 / 45  B-2
014979,002110: 40,3012           02761                          ADRES    DEGCON2                               
014980,002111: 40,3013           34677                          CAF      BIT12                                 #  ROUND AS IN DEGINSF
014981,002112: 40,3014           60155                          AD       MPAC       +1                         
014982,002113:                                                                                                 # # Page 343
014983,002114: 40,3015           03070                          TC       2ROUND     +2                         
014984,002115: 40,3016           02725                          TC       DEGINSF2                              
014985,002116: 
014986,002117: 40,3017           07052        DPINSF            TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
014987,002118: 40,3020           00123                          ADRES    SFTEMP1                               #  SFTEMP. STORES LOW PART OF RESULT
014988,002119: 40,3021           56156                          XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
014989,002120: 40,3022           60000                          DOUBLE                                         
014990,002121: 40,3023           54156                          TS       MPAC       +2                         
014991,002122: 40,3024           34714                          CAF      ZERO                                  
014992,002123: 40,3025           60155                          AD       MPAC       +1                         
014993,002124: 40,3026           03070                          TC       2ROUND     +2                         
014994,002125: 40,3027           03077                          TC       TESTOFUF                              
014995,002126: 40,3030           50140                          INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
014996,002127: 40,3031           03031                          TC       +0                                    
014997,002128: 40,3032           03042                          TC       DPINORM                               
014998,002129: 40,3033           30117                          CA       DECOUNT                               #  MIXEDNOUN
014999,002130: 40,3034           60145        DPINCOM           AD       NOUNADD                               #      MIXED               NORMAL
015000,002131: 40,3035           54002                          TS       Q                                     #    E SUBK            E
015001,002132: 40,3036           56155                          XCH      MPAC       +1                         
015002,002133: 40,3037           50002                          INDEX    Q                                     
015003,002134: 40,3040           54001                          TS       1                                     #  PLACE LOW PART IN
015004,002135: 40,3041           02747                          TC       ENDSCALE                              #  (E SUBK) +1    MIXED
015005,002136: 40,3042           34714        DPINORM           CAF      ZERO                                  #  E +1         NORMAL
015006,002137: 40,3043           03034                          TC       DPINCOM                               
015007,002138: 
015008,002139: 
015009,002140: 40,3044           07052        DPINSF2           TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
015010,002141: 40,3045           00123                          ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
015011,002142: 40,3046           36211                          CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
015012,002143: 40,3047           03056                          TC       TPLEFTN                               #  SHIFT LEFT 7.
015013,002144: 40,3050           03021                          TC       DPINSF     +2                         
015014,002145: 
015015,002146: 40,3051           07052        DPINSF4           TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
015016,002147: 40,3052           00123                          ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
015017,002148: 40,3053           34711                          CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
015018,002149: 40,3054           03056                          TC       TPLEFTN                               #  SHIFT LEFT 3.
015019,002150: 40,3055           03021                          TC       DPINSF     +2                         
015020,002151: 
015021,002152: 
015022,002153: 40,3056           56002        TPLEFTN           XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
015023,002154: 40,3057           54124                          TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
015024,002155: 40,3060           56002                          XCH      Q                                     #  CALL WITH N-1 IN A.
015025,002156: 40,3061           54123        LEFTNCOM          TS       SFTEMP1                               #      LOOP TIME .37 MSEC.
015026,002157: 40,3062           04420                          TC       TPSL1                                 
015027,002158: 40,3063           10123                          CCS      SFTEMP1                               
015028,002159: 40,3064           03061                          TC       LEFTNCOM                              
015029,002160: 40,3065           00124                          TC       SFTEMP2                               
015030,002161: 
015031,002162: 
015032,002163:                                                                                                 # # Page 344
015033,002164: 40,3066           56155        2ROUND            XCH      MPAC       +1                         
015034,002165: 40,3067           60000                          DOUBLE                                         
015035,002166: 40,3070           54155                          TS       MPAC       +1                         
015036,002167: 40,3071           00002                          TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
015037,002168: 40,3072           60154                          AD       MPAC                                  
015038,002169: 40,3073           54154                          TS       MPAC                                  
015039,002170: 40,3074           00002                          TC       Q                                     #  IF MPAC DOES NOT OF/UF
015040,002171: 40,3075           54162                          TS       MPAC+6                                
015041,002172: 40,3076           00002        2RNDEND           TC       Q                                     
015042,002173: 
015043,002174: 40,3077           10162        TESTOFUF          CCS      MPAC+6                                #  RETURNS IF NO OF/UF
015044,002175: 40,3100           04161                          TC       ALMCYCLE                              #  OF   ALARM AND RECYCLE.
015045,002176: 40,3101           00002                          TC       Q                                     
015046,002177: 40,3102           04161                          TC       ALMCYCLE                              #  UF   ALARM AND RECYCLE.
015047,002178: 
015048,002179: 
015049,002180: 42,3365                                          SETLOC   ENDSPMIN   +1                         
015050,002181: 
015051,002182: 42,3365                                          COUNT    42/PIN                                
015052,002183: 
015053,002184: 42,3365           03506        HMSIN             TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
015054,002185: 42,3366           07052                          TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
015055,002186: 42,3367           03447                          ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
015056,002187: 42,3370           03456                          TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
015057,002188: 42,3371           34714                          CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383 ).
015058,002189: 42,3372           54156                          TS       MPAC       +2                         
015059,002190: 42,3373           33451                          CAF      HRCON                                 
015060,002191: 42,3374           54154                          TS       MPAC                                  
015061,002192: 42,3375           33452                          CAF      HRCON      +1                         
015062,002193: 42,3376           56155                          XCH      MPAC       +1                         
015063,002194: 42,3377           07256                          TC       SHORTMP                               
015064,002195: 42,3400           03467                          TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
015065,002196: 42,3401           52156                          DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
015066,002197: 42,3402           52124                          DXCH     HITEMIN                               
015067,002198: 42,3403           31004                          CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
015068,002199: 42,3404           23007                          LXCH     YREGLP                                
015069,002200: 42,3405           52155                          DXCH     MPAC                                  
015070,002201: 42,3406           07052                          TC       DMP                                   
015071,002202: 42,3407           03447                          ADRES    WHOLECON                              
015072,002203: 42,3410           03456                          TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
015073,002204: 42,3411           43454                          CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
015074,002205: 42,3412           03474                          TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
015075,002206: 42,3413           56155                          XCH      MPAC       +1                         
015076,002207: 42,3414           00006                          EXTEND                                         
015077,002208: 42,3415           73453                          MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
015078,002209: 42,3416           20124                          DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
015079,002210: 42,3417           00006                          EXTEND                                         #  IF THIS DAS OVEFLOWS, G/ 745 HR,39MIN
015080,002211: 42,3420           13422                          BZF      +2                                    
015081,002212: 42,3421           04161                          TC       ALMCYCLE                              
015082,002213:                                                                                                 # # Page 345
015083,002214: 42,3422           31005                          CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
015084,002215: 42,3423           23010                          LXCH     ZREGLP                                
015085,002216: 42,3424           52155                          DXCH     MPAC                                  
015086,002217: 42,3425           07052                          TC       DMP                                   
015087,002218: 42,3426           03447                          ADRES    WHOLECON                              
015088,002219: 42,3427           03456                          TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
015089,002220: 42,3430           43455                          CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
015090,002221: 42,3431           03474                          TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
015091,002222: 42,3432           52124                          DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
015092,002223: 42,3433           20155                          DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
015093,002224: 42,3434           00006                          EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
015094,002225: 42,3435           13437                          BZF      +2                                    
015095,002226: 42,3436           04161                          TC       ALMCYCLE                              #  ALARM AND RECYCLE
015096,002227: 42,3437           34714                          CAF      ZERO                                  
015097,002228: 42,3440           54156                          TS       MPAC       +2                         
015098,002229: 42,3441           07226                          TC       TPAGREE                               
015099,002230: 42,3442           52155                          DXCH     MPAC                                  
015100,002231: 42,3443           50145                          INDEX    NOUNADD                               
015101,002232: 42,3444           52001                          DXCH     0                                     
015102,002233: 42,3445           04574                          TC       POSTJUMP                              
015103,002234: 42,3446           62771                          CADR     LOADLV                                
015104,002235: 
015105,002236: 42,3447           00006        WHOLECON          OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
015106,002237: 42,3450           03240                          OCT      03240                                 
015107,002238: 42,3451           00025        HRCON             OCT      00025                                 #  1 HOUR IN CENTI-SEC
015108,002239: 42,3452           37100                          OCT      37100                                 
015109,002240: 42,3453           13560        MINCON            OCT      13560                                 #  1 MINUTE IN CENTI-SEC
015110,002241: 42,3454           00073        59MIN             OCT      00073                                 #  59 AS WHOLE
015111,002242: 42,3455           13557        59.99SEC          OCT      13557                                 #  5999 CENTI-SEC
015112,002243: 
015113,002244: 42,3456           56156        RND/TST           XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
015114,002245: 42,3457           60000                          DOUBLE                                         #  ALARMS IF MPAC NOT 0
015115,002246: 42,3460           54156                          TS       MPAC       +2                         
015116,002247: 42,3461           34714                          CAF      ZERO                                  
015117,002248: 42,3462           60155                          AD       MPAC       +1                         
015118,002249: 42,3463           54155                          TS       MPAC       +1                         
015119,002250: 42,3464           34714                          CAF      ZERO                                  
015120,002251: 42,3465           60154                          AD       MPAC                                  #  CANT OVFLOW
015121,002252: 42,3466           56154                          XCH      MPAC                                  
015122,002253: 42,3467           10154        MPACTST           CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
015123,002254: 42,3470           04161                          TC       ALMCYCLE                              #  ALARM AND RECYCLE
015124,002255: 42,3471           00002                          TC       Q                                     
015125,002256: 42,3472           04161                          TC       ALMCYCLE                              #  ALARM AND RECYCLE.
015126,002257: 42,3473           00002                          TC       Q                                     
015127,002258: 
015128,002259: 42,3474           54156        SIZETST           TS       MPAC       +2                         #  CALLED WITH - CON IN A
015129,002260: 42,3475           10155                          CCS      MPAC       +1                         #  GET MAG OF MPAC+1
015130,002261: 42,3476           64712                          AD       ONE                                   
015131,002262: 42,3477           13501                          TCF      +2                                    
015132,002263:                                                                                                 # # Page 346
015133,002264: 42,3500           64712                          AD       ONE                                   
015134,002265: 42,3501           60156                          AD       MPAC       +2                         
015135,002266: 42,3502           00006                          EXTEND                                         #  MAG OF MPAC+1 - CON
015136,002267: 42,3503           63505                          BZMF     +2                                    
015137,002268: 42,3504           04161                          TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
015138,002269: 42,3505           00002                          TC       Q                                     #  MAG OF MPAC+1 L/= CON
015139,002270: 
015140,002271: 
015141,002272:                                                                                                 #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
015142,002273:                                                                                                 #  ALARM IF NOT.( TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
015143,002274: 42,3506           43513        ALL3DEC           CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
015144,002275: 42,3507           71000                          MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
015145,002276: 42,3510           63513                          AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
015146,002277: 42,3511           10000                          CCS      A                                     
015147,002278: 42,3512           03516                          TC       FORCEV25                              
015148,002279: 42,3513           77743        OCT34BAR          OCT      77743                                 
015149,002280: 42,3514           03516                          TC       FORCEV25                              
015150,002281: 42,3515           00002                          TC       Q                                     
015151,002282: 
015152,002283: 
015153,002284: 42,3516           44113        FORCEV25          CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
015154,002285: 42,3517           55041                          TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD
015155,002286: 42,3520           04161                          TC       ALMCYCLE                              #   VERB.  ALARM AND RECYCLE.
015156,002287: 42,3521                        ENDHMSS           EQUALS                                         
015157,002288: 
015158,002289: 
015159,002290:                                                                                                 # # Page 347
015160,002291:                                                                                                 #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
015161,002292:                                                                                                 #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
015162,002293:                                                                                                 #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
015163,002294:                                                                                                 #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
015164,002295:                                                                                                 #  HE HAS INITIATED THROUGH THE KEYBOARD).
015165,002296: 
015166,002297:                                                                                                 #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
015167,002298:                                                                                                 #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
015168,002299:                                                                                                 #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
015169,002300:                                                                                                 #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
015170,002301:                                                                                                 #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
015171,002302:                                                                                                 #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
015172,002303:                                                                                                 #  MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILONON.
015173,002304: 
015174,002305:                                                                                                 #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
015175,002306:                                                                                                 #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
015176,002307:                                                                                                 #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
015177,002308: 
015178,002309:                                                                                                 #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
015179,002310:                                                                                                 #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
015180,002311: 
015181,002312:                                                                                                 #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
015182,002313:                                                                                                 #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
015183,002314: 
015184,002315:                                                                                                 #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
015185,002316: 41,3220                                          SETLOC   ENDRUTIN                              
015186,002317: 
015187,002318: 41,3220                                          COUNT    41/PIN                                
015188,002319: 
015189,002320: 41,3220           43227        MONITOR           CS       BIT15/14                              
015190,002321: 41,3221           71017                          MASK     NOUNCADR                              
015191,002322: 41,3222           54155        MONIT1            TS       MPAC       +1                         #  TEMP STORAGE
015192,002323: 41,3223           40136                          CS       ENTEXIT                               
015193,002324: 41,3224           64233                          AD       ENDINST                               
015194,002325: 41,3225           10000                          CCS      A                                     
015195,002326: 41,3226           03235                          TC       MONIT2                                
015196,002327: 41,3227           60000        BIT15/14          OCT      60000                                 
015197,002328: 41,3230           03235                          TC       MONIT2                                
015198,002329: 41,3231           34675                          CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
015199,002330: 41,3232           26155                          ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
015200,002331: 41,3233           34714                          CAF      ZERO                                  
015201,002332: 41,3234           55022                          TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
015202,002333: 41,3235           36043        MONIT2            CAF      LOW7                                  
015203,002334: 41,3236           71001                          MASK     VERBREG                               
015204,002335: 41,3237           04345                          TC       LEFT5                                 
015205,002336: 41,3240           54022                          TS       CYL                                   
015206,002337: 41,3241           40022                          CS       CYL                                   
015207,002338: 41,3242           56022                          XCH      CYL                                   
015208,002339: 41,3243           61002                          AD       NOUNREG                               
015209,002340: 41,3244           54154                          TS       MPAC                                  #  TEMP STORAGE
015210,002341:                                                                                                 # # Page 348
015211,002342: 41,3245           34714                          CAF      ZERO                                  
015212,002343: 41,3246           55012                          TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
015213,002344: 41,3247           11042                          CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
015214,002345: 41,3250           03252                          TC       +2                                    #  ARE BOTH EMPTY. (LITE COMES ON IF NEW
015215,002346: 41,3251           04516                          TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
015216,002347: 41,3252           00004                          INHINT                                         
015217,002348: 41,3253           11020                          CCS      MONSAVE                               
015218,002349: 41,3254           03261                          TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
015219,002350: 41,3255           34712                          CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
015220,002351: 41,3256           05140                          TC       WAITLIST                              
015221,002352: 41,3257     0777                                 EBANK=   DSPCOUNT                              
015222,002353: 41,3257           03265 62101                    2CADR    MONREQ                                
015223,002354: 41,3261           52155                          DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
015224,002355: 41,3262           53021                          DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
015225,002356: 41,3263           00003                          RELINT                                         #  SET UP EXTERNAL MONITOR BIT
015226,002357: 41,3264           00136                          TC       ENTRET                                
015227,002358: 
015228,002359: 
015229,002360: 41,3265           04414        MONREQ            TC       LODSAMPT                              #  CALLED BY WAITLIST
015230,002361: 41,3266           11021                          CCS      MONSAVE1                              #  TIME IS SNATCHED N RUPT FOR NOUN 65
015231,002362: 41,3267           03273                          TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
015232,002363: 41,3270           03273                          TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
015233,002364: 41,3271           03304                          TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
015234,002365: 41,3272           03304                          TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
015235,002366: 41,3273           33310                          CAF      MONDEL                                
015236,002367: 41,3274           05140                          TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
015237,002368: 41,3275     0777                                 EBANK=   DSPCOUNT                              
015238,002369: 41,3275           03265 62101                    2CADR    MONREQ                                
015239,002370: 41,3277           34371                          CAF      CHRPRIO                               
015240,002371: 41,3300           05027                          TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
015241,002372: 41,3301     0777                                 EBANK=   DSPCOUNT                              
015242,002373: 41,3301           03311 62101                    2CADR    MONDO                                 
015243,002374: 41,3303           05213                          TC       TASKOVER                              
015244,002375: 
015245,002376: 41,3304           34714        KILLMON           CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
015246,002377: 41,3305           55020                          TS       MONSAVE                               
015247,002378: 41,3306           55021                          TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
015248,002379: 41,3307           05213                          TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
015249,002380: 41,3310           00144        MONDEL            OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
015250,002381: 
015251,002382: 
015252,002383: 41,3311           11021        MONDO             CCS      MONSAVE1                              #  CALLED BY EXEC
015253,002384: 41,3312           03316                          TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
015254,002385: 41,3313           03316                          TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
015255,002386: 41,3314           05112                          TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
015256,002387: 41,3315           05112                          TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
015257,002388: 41,3316           11012                          CCS      DSPLOCK                               
015258,002389:                                                                                                 # # Page 349
015259,002390: 41,3317           03341                          TC       MONBUSY                               #  NVSUB IS BUSY
015260,002391: 41,3320           36043                          CAF      LOW7                                  
015261,002392: 41,3321           71020                          MASK     MONSAVE                               
015262,002393: 41,3322           02316                          TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
015263,002394: 41,3323           34160                          CAF      MID7                                  
015264,002395: 41,3324           71020                          MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
015265,002396: 41,3325           63337                          AD       MONREF                                #  -DEC10, STARTING IN BIT8
015266,002397: 41,3326           54023                          TS       EDOP                                  #  RIGHT 7
015267,002398: 41,3327           30023                          CA       EDOP                                  
015268,002399: 41,3330           55001                          TS       VERBREG                               
015269,002400: 41,3331           33340                          CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
015270,002401: 41,3332           54136                          TS       ENTRET                                
015271,002402: 41,3333           43227                          CS       BIT15/14                              
015272,002403: 41,3334           71021                          MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
015273,002404: 41,3335           54156                          TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
015274,002405: 41,3336           02046        ENDMONDO          TC       TESTNN                                #  EBANK.
015275,002406: 
015276,002407:    4140                                          BLOCK    2                                     
015277,002408: 
015278,002409:    4000                                          SETLOC   FFTAG8                                
015279,002410:    4000                                          BANK                                           
015280,002411: 
015281,002412:    4140                                          COUNT    02/PIN                                
015282,002413: 
015283,002414:    4140           34160        PASTEVB           CAF      MID7                                  
015284,002415:    4141           71022                          MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
015285,002416:    4142           00006                          EXTEND                                         
015286,002417:    4143           14145                          BZF      +2                                    
015287,002418:    4144           04146                          TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
015288,002419:    4145           31020                          CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
015289,002420:    4146           54023        PASTEOPT          TS       EDOP                                  #  RIGHT 7
015290,002421:    4147           30023                          CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
015291,002422:    4150           04555                          TC       BANKCALL                              #   VERBREG AND DISPLAY IT.
015292,002423:    4151           62336                          CADR     UPDATVB    -1                         
015293,002424:    4152           34714                          CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
015294,002425:    4153           55013                          TS       REQRET                                #   BE EXECUTED BY OPERATOR.
015295,002426:    4154           31022                          CA       MONSAVE2                              
015296,002427:    4155           04271                          TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
015297,002428:    4156           04157                          TC       +1                                    
015298,002429:    4157           05112        ENDPASTE          TC       ENDOFJOB                              
015299,002430: 
015300,002431:    4160           37600        MID7              OCT      37600                                 
015301,002432: 
015302,002433: 
015303,002434: 41,3337                                          SETLOC   ENDMONDO   +1                         
015304,002435: 41,3337                                          COUNT    41/PIN                                
015305,002436: 
015306,002437: 41,3337           75377        MONREF            OCT      75377                                 #  -DEC10, STARTING IN BIT8
015307,002438: 41,3340           04140        MONBACK           ADRES    PASTEVB                               
015308,002439: 
015309,002440:                                                                                                 # # Page 350
015310,002441: 41,3341           04410        MONBUSY           TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
015311,002442: 41,3342           05112                          TC       ENDOFJOB                              
015312,002443: 
015313,002444: 
015314,002445:                                                                                                 #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
015315,002446:                                                                                                 #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
015316,002447:                                                                                                 #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
015317,002448: 
015318,002449:                                                                                                 #  FOR BANKS L/E 27, THIS IS ENOUGH.
015319,002450: 
015320,002451:                                                                                                 #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
015321,002452:                                                                                                 #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
015322,002453:                                                                                                 #            V23N26 SHOULD BE USED.
015323,002454: 
015324,002455:                                                                                                 #  SUMMARY
015325,002456:                                                                                                 #  FOR BANKS L/E 27,                          V27N01E(FCADR)E
015326,002457:                                                                                                 #  FOR BANKS G/E 30,    V23N26E(SUPERBITS)E   V27N01E(FCADR)E
015327,002458: 
015328,002459: 41,3343           34333        DSPFMEM           CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
015329,002460: 41,3344           54777                          TS       DSPCOUNT                              
015330,002461: 41,3345           31047                          CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
015331,002462: 41,3346           54001                          TS       L                                     #  3RD COMPONENT OF NOUN 26.
015332,002463: 41,3347           31017                          CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
015333,002464: 41,3350           04610                          TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
015334,002465: 41,3351           03353                          TC       DSPOCTWO                              
015335,002466: 41,3352           05112        ENDSPF            TC       ENDOFJOB                              
015336,002467: 
015337,002468:                                                                                                 # # Page 351
015338,002469:                                                                                                 #  WORD DISPLAY ROUTINES
015339,002470: 
015340,002471: 40,3103                                          SETLOC   TESTOFUF   +4                         
015341,002472: 40,3103                                          COUNT    40/PIN                                
015342,002473: 
015343,002474: 40,3103           56002        DSPSIGN           XCH      Q                                     
015344,002475: 40,3104           54144                          TS       DSPWDRET                              
015345,002476: 40,3105           10154                          CCS      MPAC                                  
015346,002477: 40,3106           03116                          TC       +8D                                   
015347,002478: 40,3107           03116                          TC       +7                                    
015348,002479: 40,3110           64712                          AD       ONE                                   
015349,002480: 40,3111           54154                          TS       MPAC                                  
015350,002481: 40,3112           02334                          TC       -ON                                   
015351,002482: 40,3113           40155                          CS       MPAC       +1                         
015352,002483: 40,3114           54155                          TS       MPAC       +1                         
015353,002484: 40,3115           00144                          TC       DSPWDRET                              
015354,002485: 40,3116           02314                          TC       +ON                                   
015355,002486: 40,3117           00144                          TC       DSPWDRET                              
015356,002487: 
015357,002488: 40,3120           00006        DSPRND            EXTEND                                         #  ROUND BY 5 EXP-6
015358,002489: 40,3121           33164                          DCA      DECROUND   -1                         
015359,002490: 40,3122           20155                          DAS      MPAC                                  
015360,002491: 40,3123           00006                          EXTEND                                         
015361,002492: 40,3124           13130                          BZF      +4                                    
015362,002493: 40,3125           00006                          EXTEND                                         
015363,002494: 40,3126           34672                          DCA      DPOSMAX                               
015364,002495: 40,3127           52155                          DXCH     MPAC                                  
015365,002496: 40,3130           00002                          TC       Q                                     
015366,002497: 
015367,002498:                                                                                                 #  DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015368,002499:                                                                                                 #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
015369,002500: 
015370,002501: 40,3131           56002        DSPDECWD          XCH      Q                                     
015371,002502: 40,3132           54115                          TS       WDRET                                 
015372,002503: 40,3133           03103                          TC       DSPSIGN                               
015373,002504: 40,3134           03120                          TC       DSPRND                                
015374,002505: 40,3135           34710                          CAF      FOUR                                  
015375,002506: 40,3136           54137        DSPDCWD1          TS       WDCNT                                 
015376,002507: 40,3137           34377                          CAF      BINCON                                
015377,002508: 40,3140           07256                          TC       SHORTMP                               
015378,002509: 40,3141           50154        TRACE1            INDEX    MPAC                                  
015379,002510: 40,3142           34072                          CAF      RELTAB                                
015380,002511: 40,3143           74362                          MASK     LOW5                                  
015381,002512: 40,3144           54124                          TS       CODE                                  
015382,002513: 40,3145           34714                          CAF      ZERO                                  
015383,002514: 40,3146           56156                          XCH      MPAC       +2                         
015384,002515: 40,3147           56155                          XCH      MPAC       +1                         
015385,002516: 40,3150           54154                          TS       MPAC                                  
015386,002517: 40,3151           56777                          XCH      DSPCOUNT                              
015387,002518: 40,3152           54143        TRACE1S           TS       COUNT                                 
015388,002519: 
015389,002520:                                                                                                 # # Page 351
015390,002521: 40,3153           10000                          CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
015391,002522: 40,3154           54777                          TS       DSPCOUNT                              
015392,002523: 40,3155           03225                          TC       DSPIN                                 
015393,002524: 40,3156           10137                          CCS      WDCNT                                 
015394,002525: 40,3157           03136                          TC       DSPDCWD1                              
015395,002526: 40,3160           44374                          CS       VD1                                   
015396,002527: 40,3161           54777                          TS       DSPCOUNT                              
015397,002528: 40,3162           00115                          TC       WDRET                                 
015398,002529: 
015399,002530: 40,3163           00000                          OCT      00000                                 
015400,002531: 40,3164           02476        DECROUND          OCT      02476                                 
015401,002532: 
015402,002533:                                                                                                 #  DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015403,002534:                                                                                                 #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
015404,002535: 
015405,002536: 40,3165           56002        DSPDECNR          XCH      Q                                     
015406,002537: 40,3166           54115                          TS       WDRET                                 
015407,002538: 40,3167           03103                          TC       DSPSIGN                               
015408,002539: 40,3170           03135                          TC       DSPDCWD1   -1                         
015409,002540: 
015410,002541:                                                                                                 #  DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
015411,002542:                                                                                                 #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
015412,002543: 
015413,002544: 40,3171           56002        DSPDC2NR          XCH      Q                                     
015414,002545: 40,3172           54115                          TS       WDRET                                 
015415,002546: 40,3173           03103                          TC       DSPSIGN                               
015416,002547: 40,3174           34712                          CAF      ONE                                   
015417,002548: 40,3175           03136                          TC       DSPDCWD1                              
015418,002549: 
015419,002550: 
015420,002551:                                                                                                 #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
015421,002552:                                                                                                 #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
015422,002553: 
015423,002554: 40,3176           56002        DSP2DEC           XCH      Q                                     
015424,002555: 40,3177           54115                          TS       WDRET                                 
015425,002556: 40,3200           34714                          CAF      ZERO                                  
015426,002557: 40,3201           54124                          TS       CODE                                  
015427,002558: 40,3202           36214                          CAF      THREE                                 
015428,002559: 40,3203           03307                          TC       11DSPIN                               #  -R2 OFF
015429,002560: 40,3204           34710                          CAF      FOUR                                  
015430,002561: 40,3205           03307                          TC       11DSPIN                               #  +R2 OFF
015431,002562: 40,3206           03103                          TC       DSPSIGN                               
015432,002563: 40,3207           34334                          CAF      R2D1                                  
015433,002564: 40,3210           03136        END2DEC           TC       DSPDCWD1                              
015434,002565: 
015435,002566: 
015436,002567:                                                                                                 #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
015437,002568:                                                                                                 #  DSP LOC SPECIFIED IN DSPCOUNT.
015438,002569:                                                                                                 #  C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
015439,002570:                                                                                                 #  DISPLAY CONVERSION.
015440,002571: 
015441,002572:                                                                                                 # # Page 353
015442,002573: 40,3211           00006        DSPDECVN          EXTEND                                         
015443,002574: 40,3212           73221                          MP       VNDSPCON                              #  MULT BY .01
015444,002575: 40,3213           22154                          LXCH     MPAC                                  #  TAKE RESULTS FROM L.(MULT BY 2EXP14).
015445,002576: 40,3214           34714                          CAF      ZERO                                  
015446,002577: 40,3215           54155                          TS       MPAC       +1                         
015447,002578: 40,3216           56002                          XCH      Q                                     
015448,002579: 40,3217           54115                          TS       WDRET                                 
015449,002580: 40,3220           03174                          TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
015450,002581: 
015451,002582: 40,3221           00244        VNDSPCON          OCT      00244                                 #  .01 ROUNDED UP
015452,002583: 
015453,002584: 
015454,002585: 40,3222           03211        GOVNUPDT          TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE. REALLY PART
015455,002586: 40,3223           04574                          TC       POSTJUMP                              #  OF UPDATVB.
015456,002587: 40,3224           62346                          CADR     UPDAT1     +2                         
015457,002588: 
015458,002589: 40,3225                        ENDECVN           EQUALS                                         
015459,002590: 
015460,002591: 
015461,002592: 41,3353                                          SETLOC   ENDSPF     +1                         
015462,002593: 41,3353                                          COUNT    41/PIN                                
015463,002594: 
015464,002595:                                                                                                 #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
015465,002596:                                                                                                 #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
015466,002597: 
015467,002598: 41,3353           54022        DSPOCTWO          TS       CYL                                   
015468,002599: 41,3354           56002                          XCH      Q                                     
015469,002600: 41,3355           54115                          TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT
015470,002601: 41,3356           34675                          CAF      BIT14                                 #  TO BLANK SIGNS
015471,002602: 41,3357           26777                          ADS      DSPCOUNT                              
015472,002603: 41,3360           34710                          CAF      FOUR                                  
015473,002604: 41,3361           54137        WDAGAIN           TS       WDCNT                                 
015474,002605: 41,3362           40022                          CS       CYL                                   
015475,002606: 41,3363           40022                          CS       CYL                                   
015476,002607: 41,3364           40022                          CS       CYL                                   
015477,002608: 41,3365           40000                          CS       A                                     
015478,002609: 41,3366           74716                          MASK     DSPMSK                                
015479,002610: 41,3367           50000                          INDEX    A                                     
015480,002611: 41,3370           34072                          CAF      RELTAB                                
015481,002612: 41,3371           74362                          MASK     LOW5                                  
015482,002613: 41,3372           54124                          TS       CODE                                  
015483,002614: 41,3373           56777                          XCH      DSPCOUNT                              
015484,002615: 41,3374           54143                          TS       COUNT                                 
015485,002616: 41,3375           10000                          CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
015486,002617: 41,3376           54777                          TS       DSPCOUNT                              
015487,002618: 41,3377           04574                          TC       POSTJUMP                              
015488,002619: 41,3400           61315                          CADR     DSPOCTIN                              
015489,002620: 41,3401           10137        OCTBACK           CCS      WDCNT                                 
015490,002621: 41,3402           03361                          TC       WDAGAIN                               #  +
015491,002622: 41,3403           44374        DSPLV             CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
015492,002623:                                                                                                 # # Page 354
015493,002624: 41,3404           54777                          TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
015494,002625: 41,3405           00115                          TC       WDRET                                 
015495,002626: 
015496,002627: 41,3406     4716               DSPMSK            =        SEVEN                                 
015497,002628: 
015498,002629: 
015499,002630:                                                                                                 #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
015500,002631:                                                                                                 #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
015501,002632:                                                                                                 #  OF THE 5 CHAR OCTAL DISPLAY
015502,002633: 
015503,002634: 41,3406           54020        DSP2BIT           TS       CYR                                   
015504,002635: 41,3407           56002                          XCH      Q                                     
015505,002636: 41,3410           54115                          TS       WDRET                                 
015506,002637: 41,3411           34712                          CAF      ONE                                   
015507,002638: 41,3412           54137                          TS       WDCNT                                 
015508,002639: 41,3413           40020                          CS       CYR                                   
015509,002640: 41,3414           40020                          CS       CYR                                   
015510,002641: 41,3415           56020                          XCH      CYR                                   
015511,002642: 41,3416           54022                          TS       CYL                                   
015512,002643: 41,3417           03366                          TC       WDAGAIN    +5                         
015513,002644: 
015514,002645: 
015515,002646:                                                                                                 #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
015516,002647:                                                                                                 #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
015517,002648:                                                                                                 #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
015518,002649:                                                                                                 #  DSPTAB ENTRY INTO DSREL.
015519,002650: 
015520,002651: 40,3225                                          SETLOC   ENDECVN                               
015521,002652: 
015522,002653: 40,3225                                          COUNT    40/PIN                                
015523,002654: 
015524,002655: 40,3225           56002        DSPIN             XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
015525,002656: 40,3226           54114                          TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
015526,002657: 40,3227           34362                          CAF      LOW5                                  
015527,002658: 40,3230           70143                          MASK     COUNT                                 
015528,002659: 40,3231           54021                          TS       SR                                    
015529,002660: 40,3232           56021                          XCH      SR                                    
015530,002661: 40,3233           54141                          TS       DSREL                                 
015531,002662: 40,3234           34712                          CAF      BIT1                                  
015532,002663: 40,3235           70143                          MASK     COUNT                                 
015533,002664: 40,3236           10000                          CCS      A                                     
015534,002665: 40,3237           03241                          TC       +2                                    #  LEFT IF COUNT IS ODD
015535,002666: 40,3240           03251                          TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
015536,002667: 40,3241           56124                          XCH      CODE                                  
015537,002668: 40,3242           04354                          TC       SLEFT5                                #  DOES NOT USE CYL
015538,002669: 40,3243           54124                          TS       CODE                                  
015539,002670: 40,3244           34675                          CAF      BIT14                                 
015540,002671: 40,3245           70143                          MASK     COUNT                                 
015541,002672: 40,3246           10000                          CCS      A                                     
015542,002673: 40,3247           34711                          CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
015543,002674:                                                                                                 # # Page 355
015544,002675: 40,3250           64712                          AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
015545,002676: 40,3251           54143                          TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
015546,002677:                                                                                                 #                                           +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
015547,002678:                                                                                                 #                                           +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
015548,002679: 40,3252           00004        DSPIN1            INHINT                                         
015549,002680: 40,3253           50141                          INDEX    DSREL                                 
015550,002681: 40,3254           11023                          CCS      DSPTAB                                
015551,002682: 40,3255           03257                          TC       +2                                    #  IF +
015552,002683: 40,3256           05642                          TC       CCSHOLE                               
015553,002684: 40,3257           64712                          AD       ONE                                   #  IF-
015554,002685: 40,3260           54142                          TS       DSMAG                                 
015555,002686: 40,3261           50143                          INDEX    COUNT                                 
015556,002687: 40,3262           73303                          MASK     DSMSK                                 
015557,002688: 40,3263           00006                          EXTEND                                         
015558,002689: 40,3264           60124                          SU       CODE                                  
015559,002690: 40,3265           00006                          EXTEND                                         
015560,002691: 40,3266           13301                          BZF      DSLV                                  #  SAME
015561,002692: 40,3267           50143        DFRNT             INDEX    COUNT                                 
015562,002693: 40,3270           43303                          CS       DSMSK                                 #  MASK WITH 77740,76037,75777, OR 74037
015563,002694: 40,3271           70142                          MASK     DSMAG                                 
015564,002695: 40,3272           60124                          AD       CODE                                  
015565,002696: 40,3273           40000                          CS       A                                     
015566,002697: 40,3274           50141                          INDEX    DSREL                                 
015567,002698: 40,3275           57023                          XCH      DSPTAB                                
015568,002699: 40,3276           00006                          EXTEND                                         
015569,002700: 40,3277           63301                          BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
015570,002701: 40,3300           25016                          INCR     NOUT                                  #  DSPTAB ENTRY WAS +
015571,002702: 40,3301           00003        DSLV              RELINT                                         
015572,002703: 40,3302           00114                          TC       DSEXIT                                
015573,002704: 
015574,002705: 40,3303           00037        DSMSK             OCT      37                                    
015575,002706: 40,3304           01740                          OCT      1740                                  
015576,002707: 40,3305           02000                          OCT      2000                                  
015577,002708: 40,3306           03740                          OCT      3740                                  
015578,002709: 
015579,002710: 
015580,002711:                                                                                                 #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
015581,002712:                                                                                                 #  BIT11 OF CODE.
015582,002713: 
015583,002714: 40,3307           54141        11DSPIN           TS       DSREL                                 
015584,002715: 40,3310           34711                          CAF      TWO                                   
015585,002716: 40,3311           54143                          TS       COUNT                                 
015586,002717: 40,3312           56002                          XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
015587,002718: 40,3313           54114                          TS       DSEXIT                                
015588,002719: 40,3314           03252                          TC       DSPIN1                                
015589,002720: 
015590,002721: 
015591,002722: 40,3315           03225        DSPOCTIN          TC       DSPIN                                 #  SO DSPOCTWO DOESNT USE SWCALL
015592,002723: 40,3316           33320                          CAF      +2                                    
015593,002724: 40,3317           04577                          TC       BANKJUMP                              
015594,002725:                                                                                                 # # Page 356
015595,002726: 40,3320           63401        ENDSPOCT          CADR     OCTBACK                               
015596,002727: 
015597,002728: 
015598,002729:                                                                                                 #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
015599,002730:                                                                                                 #  ABORT WITH 01501.
015600,002731:                                                                                                 #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
015601,002732:                                                                                                 #  DO TC ENTRET.
015602,002733: 
015603,002734: 40,3321           44374        PREDSPAL          CS       VD1                                   
015604,002735: 40,3322           54777                          TS       DSPCOUNT                              
015605,002736: 40,3323           43342        DSPALARM          CS       NVSBENDL                              
015606,002737: 40,3324           60136                          AD       ENTEXIT                               
015607,002738: 40,3325           00006                          EXTEND                                         
015608,002739: 40,3326           13337                          BZF      CHARALRM   +2                         
015609,002740: 40,3327           43341                          CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
015610,002741: 40,3330           60136                          AD       ENTEXIT                               
015611,002742: 40,3331           00006                          EXTEND                                         
015612,002743: 40,3332           13334                          BZF      +2                                    
015613,002744: 40,3333           03335                          TC       +2                                    
015614,002745: 40,3334           04220                          TC       KILMONON                              
015615,002746: 40,3335           04400        CHARALRM          TC       FALTON                                #  NOT NVSUB INITATED. TURN ON OPR ERROR
015616,002747: 40,3336           05112                          TC       ENDOFJOB                              
015617,002748: 40,3337           05622                          TC       POODOO                                
015618,002749: 40,3340           01501                          OCT      01501                                 
015619,002750: 40,3341           04140        MONADR            GENADR   PASTEVB                               
015620,002751: 40,3342           04216        NVSBENDL          TC       NVSUBEND                              
015621,002752: 
015622,002753: 
015623,002754:                                                                                                 #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
015624,002755:                                                                                                 #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
015625,002756:                                                                                                 #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
015626,002757:                                                                                                 #  MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
015627,002758:                                                                                                 #  FOR MM CODE.
015628,002759: 
015629,002760:    4161                                          SETLOC   MID7       +1                         
015630,002761:    4161                                          COUNT    02/PIN                                
015631,002762: 
015632,002763:    4161           04400        ALMCYCLE          TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
015633,002764:    4162           41041                          CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
015634,002765:    4163           55013                          TS       REQRET                                #  SET FOR ENTPAS0
015635,002766:    4164           04555                          TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
015636,002767:    4165           62336                          CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
015637,002768:    4166           04574                          TC       POSTJUMP                              
015638,002769:    4167           62002        ENDALM            CADR     ENTER                                 
015639,002770: 
015640,002771: 
015641,002772:                                                                                                 #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
015642,002773:                                                                                                 #  IT GOES TO MODROUT WITH THE NEW MM CODE IN A, BUT NOT DISPLAYED IN
015643,002774:                                                                                                 #  MM LIGHTS.
015644,002775:                                                                                                 #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
015645,002776:                                                                                                 # # Page 357
015646,002777:                                                                                                 #  IF NOT, IT RECYCLES.
015647,002778: 
015648,002779: 41,3420                                          SETLOC   DSP2BIT    +10D                       
015649,002780: 
015650,002781: 41,3420                                          COUNT    41/PIN                                
015651,002782: 
015652,002783: 41,3420           03442        MMCHANG           TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
015653,002784:                                                                                                 #  IF THIS MOVES AT ALL, MUST CHANGE
015654,002785:                                                                                                 #  MMADREF AT ENTPASHI.
015655,002786: 41,3421           34706                          CAF      BIT5                                  #  OCT20 = ND2.
015656,002787: 41,3422           60777                          AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
015657,002788: 41,3423           00006                          EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
015658,002789: 41,3424           13426                          BZF      +2                                    
015659,002790: 41,3425           04161                          TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
015660,002791: 41,3426           34714                          CAF      ZERO                                  #  DSPCOUNT = -ND2.
015661,002792: 41,3427           57002                          XCH      NOUNREG                               
015662,002793: 41,3430           54154                          TS       MPAC                                  
015663,002794: 41,3431           34375                          CAF      ND1                                   
015664,002795: 41,3432           54777                          TS       DSPCOUNT                              
015665,002796: 41,3433           04555                          TC       BANKCALL                              
015666,002797: 41,3434           60502                          CADR     2BLANK                                
015667,002798: 41,3435           44374                          CS       VD1                                   #  BLOCK NUM CHAR IN
015668,002799: 41,3436           54777                          TS       DSPCOUNT                              
015669,002800: 41,3437           30154                          CA       MPAC                                  
015670,002801: 41,3440           04574                          TC       POSTJUMP                              
015671,002802: 41,3441           10010                          CADR     MODROUTB                              #  GO THRU STANDARD LOC.
015672,002803: 
015673,002804: 
015674,002805: 41,3442  04,2010               MODROUTB          =        V37                                   
015675,002806: 41,3442           40002        REQMM             CS       Q                                     
015676,002807: 41,3443           55013                          TS       REQRET                                
015677,002808: 41,3444           34375                          CAF      ND1                                   
015678,002809: 41,3445           54777                          TS       DSPCOUNT                              
015679,002810: 41,3446           34714                          CAF      ZERO                                  
015680,002811: 41,3447           55002                          TS       NOUNREG                               
015681,002812: 41,3450           04555                          TC       BANKCALL                              
015682,002813: 41,3451           60502                          CADR     2BLANK                                
015683,002814: 41,3452           04443                          TC       FLASHON                               
015684,002815: 41,3453           34712                          CAF      ONE                                   
015685,002816: 41,3454           55000                          TS       DECBRNCH                              #  SET FOR DEC
015686,002817: 41,3455           00136                          TC       ENTEXIT                               
015687,002818: 
015688,002819: 
015689,002820:                                                                                                 #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
015690,002821:                                                                                                 #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
015691,002822:                                                                                                 #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
015692,002823:                                                                                                 #  COMPONENT 1  PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
015693,002824:                                                                                                 #  COMPONENT 2  JOB ADRES (12 BIT )
015694,002825:                                                                                                 #  COMPONENT 3  BBCON
015695,002826: 
015696,002827:                                                                                                 # # Page 358
015697,002828: 41,3456           34712        VBRQEXEC          CAF      BIT1                                  
015698,002829: 41,3457           71045                          MASK     DSPTEM1                               
015699,002830: 41,3460           10000                          CCS      A                                     
015700,002831: 41,3461           03500                          TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
015701,002832: 41,3462           34365                          CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
015702,002833: 41,3463           54154        REQEX1            TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
015703,002834: 41,3464           44712                          CS       BIT1                                  
015704,002835: 41,3465           71045                          MASK     DSPTEM1                               
015705,002836: 41,3466           54160                          TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
015706,002837: 41,3467           04473        REQUESTC          TC       RELDSP                                
015707,002838: 41,3470           34233                          CA       ENDINST                               
015708,002839: 41,3471           54157                          TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
015709,002840: 41,3472           00006                          EXTEND                                         
015710,002841: 41,3473           31047                          DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
015711,002842: 41,3474           52156                          DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
015712,002843: 41,3475           30160                          CA       MPAC       +4                         #  PRIO IN A
015713,002844: 41,3476           00004                          INHINT                                         
015714,002845: 41,3477           00154                          TC       MPAC                                  
015715,002846: 
015716,002847: 41,3500           34370        SETVAC            CAF      TCFINDVC                              
015717,002848: 41,3501           03463                          TC       REQEX1                                
015718,002849: 
015719,002850:                                                                                                 #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
015720,002851:                                                                                                 #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
015721,002852:                                                                                                 #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WTIH
015722,002853:                                                                                                 #  COMPONENT 1  DELAY (LOW BITS)
015723,002854:                                                                                                 #  COMPONENT 2  TASK ADRES (12 BIT)
015724,002855:                                                                                                 #  COMPONENT 3  BBCON
015725,002856: 
015726,002857: 41,3502           34366        VBRQWAIT          CAF      TCWAIT                                
015727,002858: 41,3503           54154                          TS       MPAC                                  #  TC WAITLIST INTO MPAC
015728,002859: 41,3504           31045                          CA       DSPTEM1                               #  TIME DELAY
015729,002860: 41,3505           03466        ENDRQWT           TC       REQUESTC   -1                         
015730,002861: 
015731,002862:                                                                                                 #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
015732,002863:                                                                                                 #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
015733,002864:                                                                                                 #  LEAVE IT IN A, INHINT AND TC MPAC.
015734,002865: 
015735,002866: 
015736,002867: 40,3343                                          SETLOC   NVSBENDL   +1                         
015737,002868: 40,3343                                          COUNT    40/PIN                                
015738,002869: 
015739,002870: 40,3343           34712        VBPROC            CAF      ONE                                   #  PROCEED WITHOUT DATA
015740,002871: 40,3344           55014                          TS       LOADSTAT                              
015741,002872: 40,3345           04220                          TC       KILMONON                              #  TURN ON KILL MONITOR BIT
015742,002873: 40,3346           04473                          TC       RELDSP                                
015743,002874: 40,3347           04447                          TC       FLASHOFF                              
015744,002875: 40,3350           03450                          TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
015745,002876: 
015746,002877:                                                                                                 # # Page 359
015747,002878: 40,3351           44712        VBTERM            CS       ONE                                   
015748,002879: 40,3352           03344                          TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
015749,002880: 
015750,002881: 
015751,002882:                                                                                                 #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
015752,002883:                                                                                                 #  EXECUTIVE CONTROL, WITH CHRPRIO.
015753,002884: 40,3353           34714        PROCKEY           CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
015754,002885: 40,3354           55013                          TS       REQRET                                
015755,002886: 40,3355           44374                          CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
015756,002887: 40,3356           54777                          TS       DSPCOUNT                              
015757,002888: 40,3357           03343                          TC       VBPROC                                
015758,002889: 
015759,002890: 
015760,002891:                                                                                                 #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
015761,002892:                                                                                                 #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
015762,002893:                                                                                                 #   DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
015763,002894:                                                                                                 #   OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
015764,002895: 
015765,002896: 40,3360           44714        VBRESEQ           CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
015766,002897: 40,3361           03344                          TC       VBPROC     +1                         
015767,002898: 
015768,002899: 
015769,002900:                                                                                                 #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
015770,002901:                                                                                                 #  END OF LOAD.
015771,002902: 
015772,002903:                                                                                                 # # Page 360
015773,002904:                                                                                                 #  KEY RELEASE ROUTINE
015774,002905: 
015775,002906:                                                                                                 #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
015776,002907: 
015777,002908:                                                                                                 #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
015778,002909:                                                                                                 #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
015779,002910:                                                                                                 #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
015780,002911:                                                                                                 #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
015781,002912: 
015782,002913:                                                                                                 #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
015783,002914:                                                                                                 #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
015784,002915:                                                                                                 #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
015785,002916: 
015786,002917:                                                                                                 #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
015787,002918:                                                                                                 #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
015788,002919:                                                                                                 #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
015789,002920:                                                                                                 #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
015790,002921:                                                                                                 #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
015791,002922:                                                                                                 #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
015792,002923:                                                                                                 #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
015793,002924:                                                                                                 #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEOFRE HE OBSCURED
015794,002925:                                                                                                 #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
015795,002926:                                                                                                 #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
015796,002927:                                                                                                 #  SUBROUTINES.
015797,002928: 
015798,002929: 40,3362           44710        VBRELDSP          CS       BIT3                                  
015799,002930: 40,3363           00006                          EXTEND                                         
015800,002931: 40,3364           03011                          WAND     DSALMOUT                              #  TURN OF UPACT LITE
015801,002932: 40,3365           10115                          CCS      21/22REG                              #  OLD DSPLOCK
015802,002933: 40,3366           34675                          CAF      BIT14                                 
015803,002934: 40,3367           71021                          MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
015804,002935: 40,3370           10000                          CCS      A                                     
015805,002936: 40,3371           03400                          TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND,
015806,002937: 40,3372           04473        TSTLTS4           TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
015807,002938: 40,3373           11042                          CCS      CADRSTOR                              #   RELEASE DISPLAY SYSTEM AND
015808,002939: 40,3374           03376                          TC       +2                                    #   DO RE-ESTABLISH IF CADRSTOR IS FULL.
015809,002940: 40,3375           05112                          TC       ENDOFJOB                              
015810,002941: 40,3376           04574                          TC       POSTJUMP                              
015811,002942: 40,3377           21176                          CADR     PINBRNCH                              
015812,002943: 40,3400           34714        UNSUSPEN          CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
015813,002944: 40,3401           55012                          TS       DSPLOCK                               #   JUST UNSUSPEND IT BY CLEARING DSPLOCK.
015814,002945: 40,3402           11042                          CCS      CADRSTOR                              #   TURN KEY RELEASE LIGHT OFF IF BOTH
015815,002946: 40,3403           05112                          TC       ENDOFJOB                              #   CADRSTOR AND DSPLIST ARE EMPTY.
015816,002947: 40,3404           04516                          TC       RELDSP1                               
015817,002948: 40,3405           05112                          TC       ENDOFJOB                              
015818,002949: 
015819,002950: 40,3406                        ENDRELDS          EQUALS                                         
015820,002951: 
015821,002952:                                                                                                 # # Page 361
015822,002953:                                                                                                 #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
015823,002954:                                                                                                 #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
015824,002955:                                                                                                 #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
015825,002956:                                                                                                 #  PLACE 0VVVVVVVNNNNNNN INTO A.
015826,002957:                                                                                                 #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
015827,002958: 
015828,002959:                                                                                                 #  IF NVSUB IS CALLED WTIH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
015829,002960:                                                                                                 #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
015830,002961:                                                                                                 #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
015831,002962: 
015832,002963:                                                                                                 #  NVSUB CAN BE USED WTIH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
015833,002964:                                                                                                 #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
015834,002965: 
015835,002966:                                                                                                 #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
015836,002967:                                                                                                 #  SYSTEM IS AVAIALBLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
015837,002968:                                                                                                 #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
015838,002969:                                                                                                 #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
015839,002970:                                                                                                 #  FURTHER ACTION).
015840,002971: 
015841,002972:                                                                                                 #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
015842,002973:                                                                                                 #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
015843,002974:                                                                                                 #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
015844,002975:                                                                                                 #  ALARM CONDITION BEFORE RETURN TO CALLER.
015845,002976: 
015846,002977:                                                                                                 #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
015847,002978:                                                                                                 #  KEY, EXCEPT ERROR LIGHT RESET
015848,002979:                                                                                                 #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
015849,002980:                                                                                                 #  PROCED WITOHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
015850,002981:                                                                                                 #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
015851,002982:                                                                                                 #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
015852,002983:                                                                                                 #  MONITOR SET UP.
015853,002984: 
015854,002985:                                                                                                 #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
015855,002986:                                                                                                 #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
015856,002987: 
015857,002988:                                                                                                 #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
015858,002989:                                                                                                 #  MONITOR.
015859,002990: 
015860,002991:                                                                                                 #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
015861,002992:                                                                                                 #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
015862,002993: 
015863,002994:                                                                                                 #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
015864,002995:                                                                                                 #  (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
015865,002996:                                                                                                 #  ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE
015866,002997:                                                                                                 #  :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
015867,002998:                                                                                                 #  NOUN. GO TO NVSUB AGAIN WTIH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
015868,002999:                                                                                                 #  LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
015869,003000:                                                                                                 #  LIGHTS.
015870,003001: 
015871,003002:                                                                                                 #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL
015872,003003:                                                                                                 # # Page 362
015873,003004:                                                                                                 #  PARAMETER IN L.  IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
015874,003005:                                                                                                 #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
015875,003006:                                                                                                 #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
015876,003007:                                                                                                 #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
015877,003008:                                                                                                 #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
015878,003009:                                                                                                 #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
015879,003010:                                                                                                 #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
015880,003011:                                                                                                 #  BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
015881,003012:                                                                                                 #  THE PARAMETER IN L HAS NO EFFECT.
015882,003013: 
015883,003014:                                                                                                 #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
015884,003015:                                                                                                 #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
015885,003016: 
015886,003017:    4170                                          SETLOC   ENDALM     +1                         
015887,003018: 
015888,003019:    4170                                          COUNT    02/PIN                                
015889,003020: 
015890,003021:    4170           22007        NVSUB             LXCH     7                                     #  ZERO NVMONOPT OPTIONS
015891,003022:    4171           54123        NVMONOPT          TS       NVTEMP                                
015892,003023:    4172           34675                          CAF      BIT14                                 
015893,003024:    4173           71021                          MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
015894,003025:    4174           61012                          AD       DSPLOCK                               
015895,003026:    4175           10000                          CCS      A                                     
015896,003027:    4176           00002                          TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
015897,003028:    4177           34712                          CAF      ONE                                   #  DSP SYST AVAILABLE
015898,003029:    4200           60002        NVSBCOM           AD       Q                                     
015899,003030:    4201           55037                          TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
015900,003031:    4202           23022                          LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
015901,003032:    4203           04220                          TC       KILMONON                              #  TURN ON KILL MONITOR BIT
015902,003033:    4204           34215        NVSUBCOM          CAF      NVSBBBNK                              
015903,003034: 
015904,003035:    4205           56006                          XCH      BBANK                                 
015905,003036:    4206           00006                          EXTEND                                         #  SAVE OLD SUPERBITS
015906,003037:    4207           04007                          ROR      SUPERBNK                              
015907,003038:    4210           55040                          TS       NVBNKTEM                              
015908,003039:    4211           34215                          CAF      PINSUPBT                              
015909,003040:    4212           00006                          EXTEND                                         
015910,003041:    4213           01007                          WRITE    SUPERBNK                              
015911,003042:    4214           02000                          TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
015912,003043:    4215     0777                                 EBANK=   DSPCOUNT                              
015913,003044:    4215           62101        NVSBBBNK          BBCON    NVSUB1                                
015914,003045: 
015915,003046:    4216     4215               PINSUPBT          =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
015916,003047: 
015917,003048:    4216           53040        NVSUBEND          DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
015918,003049:    4217           05122                          TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
015919,003050: 
015920,003051: 41,3506                                          SETLOC   ENDRQWT    +1                         
015921,003052: 
015922,003053: 41,3506                                          COUNT    41/PIN                                
015923,003054:                                                                                                 # # Page 363
015924,003055:                                                                                                 #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
015925,003056:                                                                                                 #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
015926,003057: 
015927,003058: 41,3506           64716        BLANKDSP          AD       SEVEN                                 #  7,8,9,OR 10 (A HAD 0,1,2,OR 3)
015928,003059: 41,3507           00004                          INHINT                                         
015929,003060: 41,3510           54124                          TS       CODE                                  #  BLANK SPECIFIED DSPTABS
015930,003061: 41,3511           44677                          CS       BIT12                                 
015931,003062: 41,3512           50124                          INDEX    CODE                                  
015932,003063: 41,3513           57023                          XCH      DSPTAB                                
015933,003064: 41,3514           10000                          CCS      A                                     
015934,003065: 41,3515           25016                          INCR     NOUT                                  
015935,003066: 41,3516           03517                          TC       +1                                    
015936,003067: 41,3517           10124                          CCS      CODE                                  
015937,003068: 41,3520           03510                          TC       BLANKDSP   +2                         
015938,003069: 41,3521           00003                          RELINT                                         
015939,003070: 41,3522           50123                          INDEX    NVTEMP                                
015940,003071: 41,3523           03530                          TC       +5                                    
015941,003072: 41,3524           03525                          TC       +1                                    #  NVTEMP HAS -4 (NEVER TOUCH MODREG)
015942,003073: 41,3525           55001                          TS       VERBREG                               #             -3
015943,003074: 41,3526           55002                          TS       NOUNREG                               #             -2
015944,003075: 41,3527           55015                          TS       CLPASS                                #             -1
015945,003076: 41,3530           44374                          CS       VD1                                   
015946,003077: 41,3531           54777                          TS       DSPCOUNT                              
015947,003078: 41,3532           04447                          TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
015948,003079: 41,3533           03556                          TC       ENTSET     -2                         #  ZEROS REQRET
015949,003080: 
015950,003081: 41,3534           33560        NVSUB1            CAF      ENTSET                                #  IN BANK
015951,003082: 41,3535           54136                          TS       ENTRET                                #  SET RETURN TO NVSUBEND
015952,003083: 41,3536           10123                          CCS      NVTEMP                                #  WHAT NOW
015953,003084: 41,3537           03543                          TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
015954,003085: 41,3540           02350                          TC       GODSPALM                              
015955,003086: 41,3541           03506                          TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
015956,003087: 41,3542           02350                          TC       GODSPALM                              
015957,003088: 41,3543           36043                          CAF      LOW7                                  
015958,003089: 41,3544           70123                          MASK     NVTEMP                                
015959,003090: 41,3545           54157                          TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
015960,003091: 41,3546           30123                          CA       NVTEMP                                #                  USES MPAC, +1, +2
015961,003092: 41,3547           54023                          TS       EDOP                                  #  RIGHT 7
015962,003093: 41,3550           30023                          CA       EDOP                                  
015963,003094: 41,3551           54160                          TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
015964,003095:                                                                                                 #                                                           USES MPAC, +1, +2)
015965,003096: 41,3552           10157                          CCS      MPAC       +3                         #  TEST NOUN
015966,003097: 41,3553           03561                          TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
015967,003098: 41,3554           30160                          CA       MPAC       +4                         
015968,003099: 41,3555           02336                          TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
015969,003100: 41,3556           34714                          CAF      ZERO                                  #  XERO REQRET SO THAT PASTED VERBS CAN
015970,003101: 41,3557           55013                          TS       REQRET                                #  BE EXECUTED BY OPERATOR.
015971,003102: 41,3560           04216        ENTSET            TC       NVSUBEND                              
015972,003103: 41,3561           10160        NVSUB2            CCS      MPAC       +4                         #  TEST VERB
015973,003104: 41,3562           03566                          TC       +4                                    #  IF VERB NOT +0, GO ON
015974,003105:                                                                                                 # # Page 364
015975,003106: 41,3563           30157                          CA       MPAC       +3                         
015976,003107: 41,3564           02316                          TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
015977,003108: 41,3565           04216                          TC       NVSUBEND                              
015978,003109: 41,3566           30156                          CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
015979,003110: 41,3567           54161                          TS       MPAC       +5                         #               USES MPAC, +1, +2)
015980,003111: 41,3570           30160                          CA       MPAC       +4                         
015981,003112: 41,3571           02336                          TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
015982,003113: 41,3572           30157                          CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
015983,003114: 41,3573           02316                          TC       UPDATNN    -1                         
015984,003115: 41,3574           34714                          CAF      ZERO                                  
015985,003116: 41,3575           55014                          TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
015986,003117: 41,3576           55015                          TS       CLPASS                                
015987,003118: 41,3577           55013                          TS       REQRET                                #  SET REQRET FOR PASS 0.
015988,003119: 41,3600           30161                          CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
015989,003120: 41,3601           54156                          TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
015990,003121: 41,3602           02035        ENDNVSB1          TC       ENTPAS0                               
015991,003122: 
015992,003123: 
015993,003124:                                                                                                 #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
015994,003125:                                                                                                 #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
015995,003126: 
015996,003127: 
015997,003128:    4220                                          SETLOC   NVSUBEND   +2                         
015998,003129:    4220                                          COUNT    02/PIN                                
015999,003130: 
016000,003131:                                                                                                 #                                           FORCE BIT 15 OF MONSAVE1 TO 1.
016001,003132:    4220           34674        KILMONON          CAF      BIT15                                 #     THIS IS THE KILL MONITOR BIT.
016002,003133:    4221           55021                          TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
016003,003134:                                                                                                 #                                            MONITOR BIT.
016004,003135:    4222           00002                          TC       Q                                     
016005,003136: 
016006,003137: 
016007,003138:                                                                                                 #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
016008,003139:                                                                                                 #             +1  PROCEED NO DATA. SET BY SPECIAL VERB
016009,003140:                                                                                                 #            -1 TERMINATE   SET BY SPECIAL VERB
016010,003141:                                                                                                 #            -0    DATA IN      SET BY END OF LOAD ROUTINE
016011,003142:                                                                                                 #               OR RESEQUENCE   SET BY VERB 32
016012,003143: 
016013,003144: 
016014,003145:                                                                                                 #  L  TC ENDIDLE  (FIXED FIXED)
016015,003146:                                                                                                 #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
016016,003147:                                                                                                 #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
016017,003148:                                                                                                 #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016018,003149:                                                                                                 #  SINCE JOB SLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016019,003150:                                                                                                 #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
016020,003151:                                                                                                 #  L+1      FOR TERMINATE
016021,003152:                                                                                                 #  L+2      FOR PROCEED WITHOUT DATA
016022,003153:                                                                                                 #  L+3      FOR DATA IN, OR RESEQUENCE
016023,003154:                                                                                                 #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
016024,003155: 
016025,003156:                                                                                                 # # Page 365
016026,003157: 
016027,003158:                                                                                                 #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
016028,003159:                                                                                                 #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
016029,003160:                                                                                                 #  1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
016030,003161:                                                                                                 #  EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDDLE.)
016031,003162:                                                                                                 #  2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
016032,003163:                                                                                                 #  NVSUBUSY.
016033,003164: 
016034,003165:    4223           22002        ENDIDLE           LXCH     Q                                     #  RETURN ADDRESS INTO L.
016035,003166:    4224           04234                          TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
016036,003167:    4225           04240                          TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
016037,003168:    4226           30001                          CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
016038,003169:    4227           74747                          MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
016039,003170:    4230           60004                          AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
016040,003171:    4231           55042                          TS       CADRSTOR                              
016041,003172:    4232           05070                          TC       JOBSLEEP                              
016042,003173: 
016043,003174: 
016044,003175:    4233           05112        ENDINST           TC       ENDOFJOB                              
016045,003176: 
016046,003177: 
016047,003178:    4234           11042        ISCADR+0          CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
016048,003179:    4235           04243                          TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
016049,003180:    4236           00002                          TC       Q                                     
016050,003181:    4237           04243                          TC       DSPABORT                              
016051,003182: 
016052,003183:    4240           11043        ISLIST+0          CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
016053,003184:    4241           04243                          TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
016054,003185:    4242           00002                          TC       Q                                     
016055,003186:    4243           05622        DSPABORT          TC       POODOO                                
016056,003187:    4244           01206                          OCT      01206                                 
016057,003188: 
016058,003189: 
016059,003190:                                                                                                 #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
016060,003191:                                                                                                 #  IT DOES ENDOFJOB.
016061,003192: 
016062,003193:    4245           34215        JAMTERM           CAF      PINSUPBT                              
016063,003194:    4246           00006                          EXTEND                                         
016064,003195:    4247           01007                          WRITE    SUPERBNK                              
016065,003196:    4250           34256                          CAF      34DEC                                 
016066,003197:    4251           55013                          TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
016067,003198:    4252           44374                          CS       VD1                                   
016068,003199:    4253           54777                          TS       DSPCOUNT                              
016069,003200:    4254           04574                          TC       POSTJUMP                              
016070,003201:    4255           61351                          CADR     VBTERM                                
016071,003202: 
016072,003203:    4256           00042        34DEC             DEC      34         B-14                       
016073,003204: 
016074,003205: 
016075,003206:                                                                                                 #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
016076,003207:                                                                                                 #  FUNCTION. IT DOES ENDOFJOB.
016077,003208: 
016078,003209:                                                                                                 # # Page 366
016079,003210:    4257           34215        JAMPROC           CAF      PINSUPBT                              
016080,003211:    4260           00006                          EXTEND                                         
016081,003212:    4261           01007                          WRITE    SUPERBNK                              
016082,003213:    4262           34270                          CAF      33DEC                                 
016083,003214:    4263           55013                          TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
016084,003215:    4264           44374                          CS       VD1                                   
016085,003216:    4265           54777                          TS       DSPCOUNT                              
016086,003217:    4266           04574                          TC       POSTJUMP                              
016087,003218:    4267           61343                          CADR     VBPROC                                
016088,003219: 
016089,003220:    4270           00041        33DEC             DEC      33         B-14                       
016090,003221: 
016091,003222: 
016092,003223:                                                                                                 #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
016093,003224:                                                                                                 #  CALL WITH BLANKING CODE IN A.
016094,003225:                                                                                                 #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
016095,003226:                                                                                                 #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
016096,003227: 
016097,003228:                                                                                                 #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
016098,003229: 
016099,003230:    4271           74716        BLANKSUB          MASK     SEVEN                                 
016100,003231:    4272           54123                          TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
016101,003232:    4273           34675                          CAF      BIT14                                 
016102,003233:    4274           71021                          MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016103,003234:    4275           61012                          AD       DSPLOCK                               
016104,003235:    4276           10000                          CCS      A                                     
016105,003236:    4277           00002                          TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
016106,003237:    4300           24002                          INCR     Q                                     #  DSP SYST AVAILABLE
016107,003238:                                                                                                 #                                           SET RETURN FOR 2+ CALLING LOC
016108,003239:    4301           10123                          CCS      NVTEMP                                
016109,003240:    4302           14304                          TCF      +2                                    
016110,003241:    4303           00002                          TC       Q                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
016111,003242:    4304           22002                          LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
016112,003243:    4305           34316                          CAF      BLNKBBNK                              
016113,003244:    4306           56006                          XCH      BBANK                                 
016114,003245:    4307           00006                          EXTEND                                         
016115,003246:    4310           04007                          ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
016116,003247:    4311           52131                          DXCH     BUF                                   
016117,003248:    4312           34215                          CAF      PINSUPBT                              
016118,003249:    4313           00006                          EXTEND                                         
016119,003250:    4314           01007                          WRITE    SUPERBNK                              
016120,003251:    4315           03406                          TC       BLNKSUB1                              
016121,003252: 
016122,003253:    4316     0777                                 EBANK=   DSPCOUNT                              
016123,003254:    4316           60101        BLNKBBNK          BBCON    BLNKSUB1                              
016124,003255:    4317                        ENDBLFF           EQUALS                                         
016125,003256: 
016126,003257: 40,3406                                          SETLOC   ENDRELDS                              
016127,003258: 40,3406                                          COUNT    40/PIN                                
016128,003259: 
016129,003260:                                                                                                 # # Page 367
016130,003261: 40,3406           30777        BLNKSUB1          CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
016131,003262: 40,3407           54132                          TS       BUF        +2                         
016132,003263: 40,3410           34712                          CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
016133,003264: 40,3411           03430                          TC       TESTBIT                               
016134,003265: 40,3412           34333                          CAF      R1D1                                  
016135,003266: 40,3413           02436                          TC       5BLANK     -1                         
016136,003267: 40,3414           34711                          CAF      BIT2                                  #  TEST BIT2. SEE IF R2 TO BE BLANKED.
016137,003268: 40,3415           03430                          TC       TESTBIT                               
016138,003269: 40,3416           34334                          CAF      R2D1                                  
016139,003270: 40,3417           02436                          TC       5BLANK     -1                         
016140,003271: 40,3420           34710                          CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
016141,003272: 40,3421           03430                          TC       TESTBIT                               
016142,003273: 40,3422           34335                          CAF      R3D1                                  
016143,003274: 40,3423           02436                          TC       5BLANK     -1                         
016144,003275: 40,3424           30132                          CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
016145,003276: 40,3425           54777                          TS       DSPCOUNT                              #       BEFORE BLANKSUB.
016146,003277: 40,3426           52131                          DXCH     BUF                                   #  CALL L+2 DIRECTLY.
016147,003278: 40,3427           05123                          TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
016148,003279: 
016149,003280: 40,3430           70123        TESTBIT           MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
016150,003281: 40,3431           10000                          CCS      A                                     
016151,003282: 40,3432           00002                          TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
016152,003283: 40,3433           50002                          INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
016153,003284: 40,3434           00002                          TC       2                                     
016154,003285: 
016155,003286: 40,3435                        ENDBSUB1          EQUALS                                         
016156,003287: 
016157,003288: 
016158,003289:                                                                                                 #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
016159,003290:                                                                                                 #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
016160,003291: 
016161,003292:                                                                                                 #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
016162,003293: 
016163,003294:                                                                                                 #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
016164,003295: 
016165,003296: 07,2440                                          BANK     7                                     
016166,003297: 04,2000                                          SETLOC   PINBALL4                              
016167,003298: 04,2000                                          BANK                                           
016168,003299: 
016169,003300: 04,2537                                          COUNT    07/PIN                                
016170,003301: 
016171,003302: 04,2537           56002        DSPMM             XCH      Q                                     
016172,003303: 04,2540           54154                          TS       MPAC                                  
016173,003304: 04,2541           00004                          INHINT                                         
016174,003305: 04,2542           34371                          CAF      CHRPRIO                               
016175,003306: 04,2543           05027                          TC       NOVAC                                 
016176,003307: 04,2544     0777                                 EBANK=   DSPCOUNT                              
016177,003308: 04,2544           03435 60101                    2CADR    DSPMMJB                               
016178,003309: 04,2546           00003                          RELINT                                         
016179,003310:                                                                                                 # # Page 368
016180,003311: 04,2547           00154        ENDSPMM           TC       MPAC                                  
016181,003312: 
016182,003313:                                                                                                 #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
016183,003314: 
016184,003315: 40,3435                                          SETLOC   ENDBSUB1                              
016185,003316: 
016186,003317: 40,3435                                          COUNT    40/PIN                                
016187,003318: 
016188,003319: 40,3435           34376        DSPMMJB           CAF      MD1                                   #  GETS HERE THRU DSPMM
016189,003320: 40,3436           56777                          XCH      DSPCOUNT                              
016190,003321: 40,3437           54140                          TS       DSPMMTEM                              #  SAVE DSPCOUNT
016191,003322: 40,3440           11011                          CCS      MODREG                                
016192,003323: 40,3441           64712                          AD       ONE                                   
016193,003324: 40,3442           03211                          TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
016194,003325: 40,3443           03445                          TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
016195,003326: 40,3444           02502                          TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
016196,003327: 40,3445           56140                          XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
016197,003328: 40,3446           54777                          TS       DSPCOUNT                              
016198,003329: 40,3447           05112                          TC       ENDOFJOB                              
016199,003330: 
016200,003331: 
016201,003332:                                                                                                 #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
016202,003333:                                                                                                 #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
016203,003334:                                                                                                 #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
016204,003335: 
016205,003336:                                                                                                 #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
016206,003337:                                                                                                 #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LLIGHT ALONE IF NOT EMPTY).
016207,003338: 
016208,003339: 40,3450           11042        RECALTST          CCS      CADRSTOR                              
016209,003340: 40,3451           03453                          TC       RECAL1                                
016210,003341: 40,3452           05112                          TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
016211,003342: 40,3453           34714        RECAL1            CAF      ZERO                                  
016212,003343: 40,3454           57042                          XCH      CADRSTOR                              
016213,003344: 40,3455           00004                          INHINT                                         
016214,003345: 40,3456           05074                          TC       JOBWAKE                               
016215,003346: 40,3457           11014                          CCS      LOADSTAT                              
016216,003347: 40,3460           03502                          TC       DOPROC                                #  + PROCEED WITHOUT DATA
016217,003348: 40,3461           05112                          TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
016218,003349: 40,3462           03500                          TC       DOTERM                                #  -   TERMINATE
016219,003350: 40,3463           34711                          CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
016220,003351: 40,3464           50064        RECAL2            INDEX    LOCCTR                                
016221,003352: 40,3465           60164                          AD       LOC                                   #  LOC IS + FOR BASIC JOBS
016222,003353: 40,3466           50064                          INDEX    LOCCTR                                
016223,003354: 40,3467           54164                          TS       LOC                                   
016224,003355: 40,3470           31002                          CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
016225,003356: 40,3471           54001                          TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
016226,003357: 40,3472           31001                          CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
016227,003358: 40,3473           50064                          INDEX    LOCCTR                                #  BEEN WAKED UP.
016228,003359: 40,3474           52155                          DXCH     MPAC                                  
016229,003360: 40,3475           00003                          RELINT                                         
016230,003361:                                                                                                 # # Page 369
016231,003362: 40,3476           04473        RECAL3            TC       RELDSP                                
016232,003363: 40,3477           05112                          TC       ENDOFJOB                              
016233,003364: 
016234,003365: 40,3500           34714        DOTERM            CAF      ZERO                                  
016235,003366: 40,3501           03464                          TC       RECAL2                                
016236,003367: 
016237,003368: 40,3502           34712        DOPROC            CAF      ONE                                   
016238,003369: 40,3503           03464                          TC       RECAL2                                
016239,003370: 
016240,003371:                                                                                                 # # Page 370
016241,003372:                                                                                                 #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
016242,003373: 
016243,003374: 
016244,003375:    4317                                          SETLOC   ENDBLFF                               
016245,003376: 
016246,003377:    4317                                          COUNT    02/PIN                                
016247,003378: 
016248,003379:                                                                                                 #  SETNCADR        E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
016249,003380:                                                                                                 #                  ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
016250,003381: 
016251,003382:    4317           55017        SETNCADR          TS       NOUNCADR                              #  STORE ECADR
016252,003383:    4320           54003                          TS       EBANK                                 #  SET EBANK BITS
016253,003384:    4321           74373                          MASK     LOW8                                  
016254,003385:    4322           64744                          AD       OCT1400                               
016255,003386:    4323           54145                          TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
016256,003387:    4324           00002                          TC       Q                                     
016257,003388: 
016258,003389: 
016259,003390:                                                                                                 #  SETNADD         GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
016260,003391:                                                                                                 #                  E ADRES AND PUTS IT INTO NOUNADD.
016261,003392: 
016262,003393:    4325           31017        SETNADD           CA       NOUNCADR                              
016263,003394:    4326           14320                          TCF      SETNCADR   +1                         
016264,003395: 
016265,003396: 
016266,003397:                                                                                                 #  SETEBANK        E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
016267,003398:                                                                                                 #                  DERIVED AND LEFT IN A.
016268,003399: 
016269,003400:    4327           54003        SETEBANK          TS       EBANK                                 #  SET EBANK BITS
016270,003401:    4330           74373                          MASK     LOW8                                  
016271,003402:    4331           64744                          AD       OCT1400                               #  E ADRES LEFT IN A
016272,003403:    4332           00002                          TC       Q                                     
016273,003404: 
016274,003405: 
016275,003406:    4333           00016        R1D1              OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016276,003407:    4334           00011        R2D1              OCT      11                                    #  DONT SEPARATE.
016277,003408:    4335           00004        R3D1              OCT      4                                     
016278,003409: 
016279,003410:    4336           54020        RIGHT5            TS       CYR                                   
016280,003411:    4337           40020                          CS       CYR                                   
016281,003412:    4340           40020                          CS       CYR                                   
016282,003413:    4341           40020                          CS       CYR                                   
016283,003414:    4342           40020                          CS       CYR                                   
016284,003415:    4343           56020                          XCH      CYR                                   
016285,003416:    4344           00002                          TC       Q                                     
016286,003417: 
016287,003418:    4345           54022        LEFT5             TS       CYL                                   
016288,003419:    4346           40022                          CS       CYL                                   
016289,003420:    4347           40022                          CS       CYL                                   
016290,003421:    4350           40022                          CS       CYL                                   
016291,003422:                                                                                                 # # Page 371
016292,003423:    4351           40022                          CS       CYL                                   
016293,003424:    4352           56022                          XCH      CYL                                   
016294,003425:    4353           00002                          TC       Q                                     
016295,003426: 
016296,003427:    4354           60000        SLEFT5            DOUBLE                                         
016297,003428:    4355           60000                          DOUBLE                                         
016298,003429:    4356           60000                          DOUBLE                                         
016299,003430:    4357           60000                          DOUBLE                                         
016300,003431:    4360           60000                          DOUBLE                                         
016301,003432:    4361           00002                          TC       Q                                     
016302,003433: 
016303,003434: 
016304,003435:    4362           00037        LOW5              OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016305,003436:    4363           01740        MID5              OCT      1740                                  #  DONT SEPARATE.
016306,003437:    4364           76000        HI5               OCT      76000                                 #  MUST STAY HERE
016307,003438: 
016308,003439:    4365           05027        TCNOVAC           TC       NOVAC                                 
016309,003440:    4366           05140        TCWAIT            TC       WAITLIST                              
016310,003441:    4367           05213        TCTSKOVR          TC       TASKOVER                              
016311,003442:    4370           05042        TCFINDVC          TC       FINDVAC                               
016312,003443: 
016313,003444: 
016314,003445:    4371           30000        CHRPRIO           OCT      30000                                 #  EXEC PRIORITY OF CHARIN
016315,003446: 
016316,003447: 
016317,003448:    4372           03777        LOW11             OCT      3777                                  
016318,003449:    4373     4372               B12-1             EQUALS   LOW11                                 
016319,003450:    4373           00377        LOW8              OCT      377                                   
016320,003451: 
016321,003452: 
016322,003453:    4374           00023        VD1               OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016323,003454:    4375           00021        ND1               OCT      21                                    #  DONT SEPARATE.
016324,003455:    4376           00025        MD1               OCT      25                                    
016325,003456: 
016326,003457:    4377           00012        BINCON            DEC      10         B-14                       
016327,003458: 
016328,003459:    4400           34704        FALTON            CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
016329,003460:    4401           00006                          EXTEND                                         
016330,003461:    4402           05011                          WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
016331,003462:    4403           00002                          TC       Q                                     
016332,003463: 
016333,003464:    4404           44704        FALTOF            CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
016334,003465:    4405           00006                          EXTEND                                         
016335,003466:    4406           03011                          WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
016336,003467:    4407           00002                          TC       Q                                     
016337,003468: 
016338,003469:    4410           34706        RELDSPON          CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
016339,003470:    4411           00006                          EXTEND                                         
016340,003471:    4412           05011                          WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
016341,003472:    4413           00002                          TC       Q                                     
016342,003473: 
016343,003474:                                                                                                 # # Page 372
016344,003475:    4414           00006        LODSAMPT          EXTEND                                         
016345,003476:    4415           30025                          DCA      TIME2                                 
016346,003477:    4416           52014                          DXCH     SAMPTIME                              
016347,003478:    4417           00002                          TC       Q                                     
016348,003479: 
016349,003480: 
016350,003481:    4420           00006        TPSL1             EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
016351,003482:    4421           30156                          DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
016352,003483:    4422           20156                          DAS      MPAC       +1                         
016353,003484:    4423           60154                          AD       MPAC                                  
016354,003485:    4424           26154                          ADS      MPAC                                  
016355,003486:    4425           54007                          TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
016356,003487:    4426           00002                          TC       Q                                     #  NO NET OF/UF
016357,003488:    4427           54162                          TS       MPAC+6                                #  MPAC +6 SET TO +/- 1 FOR OF/UF
016358,003489:    4430           00002                          TC       Q                                     
016359,003490: 
016360,003491: 
016361,003492:                                                                                                 #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
016362,003493:                                                                                                 #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
016363,003494:                                                                                                 #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
016364,003495:                                                                                                 #  SETTING RESULT TO -0.
016365,003496:                                                                                                 #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
016366,003497:                                                                                                 #   WHEN THEY CONTAIN TH E SF CONSTANTS.)
016367,003498: 
016368,003499:    4431           54135        PRSHRTMP          TS       MPTEMP                                
016369,003500:    4432           10000                          CCS      A                                     
016370,003501:    4433           30135                          CA       MPTEMP                                #  C(A) +, DO REGULAR SHORTMP
016371,003502:    4434           17257                          TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
016372,003503:    4435           14433                          TCF      -2                                    #  C(A) -, DO REGULAR SHORTMP
016373,003504:    4436           44714                          CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
016374,003505:    4437           54154                          TS       MPAC                                  
016375,003506:    4440           54155                          TS       MPAC       +1                         
016376,003507:    4441           54156                          TS       MPAC       +2                         
016377,003508:    4442           00002                          TC       Q                                     
016378,003509: 
016379,003510: 
016380,003511:    4443           34705        FLASHON           CAF      BIT6                                  #  TURN ON V/N FLASH
016381,003512:    4444           00006                          EXTEND                                         #  BIT 6 OF CHANNEL 11
016382,003513:    4445           05011                          WOR      DSALMOUT                              
016383,003514:    4446           00002                          TC       Q                                     
016384,003515: 
016385,003516: 
016386,003517:    4447           44705        FLASHOFF          CS       BIT6                                  #  TURN OFF V/N FLASH
016387,003518:    4450           00006                          EXTEND                                         
016388,003519:    4451           03011                          WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
016389,003520:    4452           00002                          TC       Q                                     
016390,003521: 
016391,003522:                                                                                                 # # Page 373
016392,003523:                                                                                                 #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
016393,003524: 
016394,003525:                                                                                                 #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
016395,003526:                                                                                                 #  CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
016396,003527:                                                                                                 #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
016397,003528:                                                                                                 #  OFFERED.
016398,003529: 
016399,003530:                                                                                                 #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY TEH KEYBOARD + DISPLAY
016400,003531:                                                                                                 #  PROGRAM.    1) BY ENDIDLE
016401,003532:                                                                                                 #              2) BY NVSUBUSY
016402,003533:                                                                                                 #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
016403,003534:                                                                                                 #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
016404,003535:                                                                                                 #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
016405,003536:                                                                                                 #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
016406,003537: 
016407,003538: 
016408,003539:                                                                                                 #  THE CALLING SEQUENCE FOR NVSUB IS
016409,003540:                                                                                                 #            CAF    V/N
016410,003541:                                                                                                 #  L         TC     NVSUB
016411,003542:                                                                                                 #  L+1       RETURN HERE IF OPERATOR HAS INTERVENED
016412,003543:                                                                                                 #  L+2       RETURN HERE AFTER EXECUTION
016413,003544: 
016414,003545: 
016415,003546:                                                                                                 #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
016416,003547:                                                                                                 #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
016417,003548:                                                                                                 #  SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
016418,003549:                                                                                                 #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016419,003550:                                                                                                 #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016420,003551: 
016421,003552: 
016422,003553:                                                                                                 #          THE CALLING SEQUENCE IS
016423,003554:                                                                                                 #            CAF    WAKEFCADR
016424,003555:                                                                                                 #            TC     NVSUBUSY
016425,003556: 
016426,003557: 
016427,003558:                                                                                                 #  .
016428,003559: 
016429,003560: 
016430,003561:                                                                                                 #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
016431,003562:                                                                                                 #  IS NOT USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
016432,003563:                                                                                                 #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL 
016433,003564:                                                                                                 #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
016434,003565: 
016435,003566: 
016436,003567:                                                                                                 #  NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
016437,003568:                                                                                                 #  SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MAKE TO GO TO NVSUBUSY
016438,003569:                                                                                                 #  WHEN
016439,003570:                                                                                                 #  1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
016440,003571:                                                                                                 #     IS EXCEEDED.
016441,003572:                                                                                                 #  2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING
016442,003573:                                                                                                 # # Page 374
016443,003574:                                                                                                 #  ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
016444,003575: 
016445,003576:    4453           44460        PRENVBSY          CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
016446,003577:    4454           60002                          AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
016447,003578:    4455           60004                          AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
016448,003579:    4456           04574        NVSUBUSY          TC       POSTJUMP                              #  TO BE ENTERED.
016449,003580:    4457           10550                          CADR     NVSUBSY1                              
016450,003581:    4460           02003        2K+3              OCT      2003                                  
016451,003582: 
016452,003583:                                                                                                 #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
016453,003584:                                                                                                 #  WITH HIS PROPER SUPERBITS.
016454,003585: 
016455,003586: 04,2550                                          SETLOC   ENDSPMM    +1                         
016456,003587: 04,2550                                          COUNT    07/PIN                                
016457,003588: 
016458,003589: 04,2550           54001        NVSUBSY1          TS       L                                     
016459,003590: 04,2551           04234                          TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
016460,003591: 04,2552           04240                          TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
016461,003592: 04,2553           04410                          TC       RELDSPON                              
016462,003593: 04,2554           30001                          CA       L                                     
016463,003594: 04,2555           55043                          TS       DSPLIST                               
016464,003595: 04,2556           05070        ENDNVBSY          TC       JOBSLEEP                              
016465,003596: 
016466,003597: 
016467,003598:                                                                                                 #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
016468,003599:                                                                                                 #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
016469,003600:                                                                                                 #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
016470,003601:                                                                                                 #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
016471,003602:                                                                                                 #  IS NOT BUSY.
016472,003603: 
016473,003604:    4461                                          SETLOC   NVSUBUSY   +3                         
016474,003605:    4461                                          COUNT    02/PIN                                
016475,003606: 
016476,003607:    4461           22007        NVSBWAIT          LXCH     7                                     #  ZERO NVMONOPT OPTIONS
016477,003608:    4462           54123                          TS       NVTEMP                                
016478,003609:    4463           34675                          CAF      BIT14                                 
016479,003610:    4464           71021                          MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016480,003611:    4465           61012                          AD       DSPLOCK                               
016481,003612:    4466           10000                          CCS      A                                     
016482,003613:    4467           14471                          TCF      NVSBWT1                               #  BUSY
016483,003614:    4470           14200                          TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
016484,003615:                                                                                                 #                                           AFTER EXECUTION.
016485,003616:    4471           24002        NVSBWT1           INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
016486,003617:    4472           14453                          TCF      PRENVBSY                              #  GO TO SLEEP.
016487,003618: 
016488,003619: 
016489,003620:                                                                                                 #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
016490,003621:                                                                                                 #  VERB DISPATCHER, VBRESEQ, RECALTST.
016491,003622:                                                                                                 #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
016492,003623:    4473           56002        RELDSP            XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
016493,003624:                                                                                                 # # Page 375
016494,003625:    4474           54144                          TS       RELRET                                #  OFF,  SEARCH DSPLIST
016495,003626:    4475           44675                          CS       BIT14                                 
016496,003627:    4476           00004                          INHINT                                         
016497,003628:    4477           71021                          MASK     MONSAVE1                              
016498,003629:    4500           55021                          TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
016499,003630:    4501           11043                          CCS      DSPLIST                               
016500,003631:    4502           04504                          TC       +2                                    
016501,003632:    4503           04507                          TC       RELDSP2                               #  LIST EMPTY
016502,003633:    4504           34714                          CAF      ZERO                                  
016503,003634:    4505           57043                          XCH      DSPLIST                               
016504,003635:    4506           05074                          TC       JOBWAKE                               
016505,003636:    4507           00003        RELDSP2           RELINT                                         
016506,003637:    4510           44706                          CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
016507,003638:    4511           00006                          EXTEND                                         #  (BIT 5 OF CHANNEL 11)
016508,003639:    4512           03011                          WAND     DSALMOUT                              
016509,003640:    4513           34714                          CAF      ZERO                                  
016510,003641:    4514           55012                          TS       DSPLOCK                               
016511,003642:    4515           00144                          TC       RELRET                                
016512,003643:    4516           56002        RELDSP1           XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
016513,003644:    4517           54144                          TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
016514,003645:                                                                                                 #                                           EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
016515,003646:                                                                                                 #                                           DSPLIST IS NOT EMPTY.
016516,003647:    4520           11043                          CCS      DSPLIST                               
016517,003648:    4521           04523                          TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
016518,003649:    4522           04507                          TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
016519,003650:    4523           34714                          CAF      ZERO                                  #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
016520,003651:    4524           55012                          TS       DSPLOCK                               
016521,003652:    4525           00144                          TC       RELRET                                
016522,003653: 
016523,003654: 
016524,003655:    4526                        ENDPINBF          EQUALS                                         
016525,003656: 
016526,003657:                                                                                                 # # Page 376
016527,003658:                                                                                                 #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
016528,003659: 
016529,003660:    4526  43,2002               PINTEST           EQUALS   LST2FAN                               
016530,003661: 
016531,003662:                                                                                                 # # Page 377
016532,003663:                                                                                                 #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
016533,003664:                                                                                                 #  OFF THE CAUTION AND STATUS LIGHTS.
016534,003665: 
016535,003666: 41,3603                                          SETLOC   ENDNVSB1   +1                         
016536,003667: 
016537,003668: 41,3603                                          COUNT    41/PIN                                
016538,003669: 
016539,003670: 41,3603           00004        VBTSTLTS          INHINT                                         
016540,003671: 41,3604           44712                          CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
016541,003672: 41,3605           71321                          MASK     IMODES33                              #  TURN OUT ANY LAMPS.
016542,003673: 41,3606           64712                          AD       BIT1                                  
016543,003674: 41,3607           55321                          TS       IMODES33                              
016544,003675: 
016545,003676: 41,3610           33644                          CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
016546,003677: 41,3611           00006                          EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
016547,003678: 41,3612           05011                          WOR      DSALMOUT                              
016548,003679: 41,3613           33645                          CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
016549,003680: 41,3614           55036                          TS       DSPTAB     +11D                       #  PROG ALM.
016550,003681: 41,3615           34701                          CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
016551,003682: 41,3616           00006                          EXTEND                                         
016552,003683: 41,3617           05013                          WOR      CHAN13                                
016553,003684: 41,3620           34377                          CAF      TEN                                   
016554,003685: 41,3621           54117        TSTLTS1           TS       ERCNT                                 
016555,003686: 41,3622           43642                          CS       FULLDSP                               
016556,003687: 41,3623           50117                          INDEX    ERCNT                                 
016557,003688: 41,3624           55023                          TS       DSPTAB                                
016558,003689: 41,3625           10117                          CCS      ERCNT                                 
016559,003690: 41,3626           03621                          TC       TSTLTS1                               
016560,003691: 41,3627           43643                          CS       FULLDSP1                              
016561,003692: 41,3630           55024                          TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
016562,003693: 41,3631           55027                          TS       DSPTAB     +4                         
016563,003694: 41,3632           55031                          TS       DSPTAB     +6                         
016564,003695: 41,3633           34717                          CAF      ELEVEN                                
016565,003696: 41,3634           55016                          TS       NOUT                                  
016566,003697: 41,3635           33647                          CAF      SHOLTS                                
016567,003698: 41,3636           05140                          TC       WAITLIST                              
016568,003699: 41,3637     1023                                 EBANK=   DSPTAB                                
016569,003700: 41,3637           03650 62102                    2CADR    TSTLTS2                               
016570,003701: 41,3641           05112                          TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
016571,003702:                                                                                                 #                                           ACTION) UNTIL TSTLTS3 TO INSURE THAT
016572,003703:                                                                                                 #                                           LIGHTS TEST WILL BE SEEN.
016573,003704: 
016574,003705: 
016575,003706: 41,3642           05675        FULLDSP           OCT      05675                                 #  DISPLAY ALL 8:S
016576,003707: 41,3643           07675        FULLDSP1          OCT      07675                                 #  DISPLAY ALL 8:S AND +
016577,003708: 41,3644           00175        TSTCON1           OCT      00175                                 
016578,003709:                                                                                                 #                                           UPLINK ACTIVITY, TEMP, KEY RLSE,
016579,003710:                                                                                                 #                                           V/N FLASH, OPERATOR ERROR.
016580,003711: 41,3645           40650        TSTCON2           OCT      40650                                 #  DSPTAB+11D  BITS 4,6,8,9.
016581,003712:                                                                                                 # # Page 378
016582,003713:                                                                                                 #                                           NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
016583,003714: 41,3646           00115        TSTCON3           OCT      00115                                 #  CHAN 11  BITS 1, 3, 4, 7.
016584,003715:                                                                                                 #                                           UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
016585,003716: 41,3647           00764        SHOLTS            OCT      764                                   #  5 SEC
016586,003717: 
016587,003718: 
016588,003719: 41,3650           34371        TSTLTS2           CAF      CHRPRIO                               #  CALLED BY WAITLIST
016589,003720: 41,3651           05027                          TC       NOVAC                                 
016590,003721: 41,3652     1023                                 EBANK=   DSPTAB                                
016591,003722: 41,3652           03655 62102                    2CADR    TSTLTS3                               
016592,003723: 41,3654           05213                          TC       TASKOVER                              
016593,003724: 
016594,003725: 
016595,003726: 41,3655           43646        TSTLTS3           CS       TSTCON3                               #  CALLED BY EXECUTIVE
016596,003727: 41,3656           00004                          INHINT                                         
016597,003728: 41,3657           00006                          EXTEND                                         #  TURN OFF UPLINK ACTIVITY, TEMP,
016598,003729: 41,3660           03011                          WAND     DSALMOUT                              #  OPERATOR ERROR.
016599,003730: 41,3661           44701                          CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
016600,003731: 41,3662           00006                          EXTEND                                         
016601,003732: 41,3663           03013                          WAND     CHAN13                                
016602,003733: 41,3664           34707                          CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
016603,003734: 41,3665           00006                          EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
016604,003735: 41,3666           02012                          RAND     CHAN12                                
016605,003736: 41,3667           64674                          AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
016606,003737: 41,3670           55036                          TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
016607,003738: 41,3671           43710                          CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
016608,003739: 41,3672           71321                          MASK     IMODES33                              #  LIGHTS COMPLETE.
016609,003740: 41,3673           64763                          AD       PRIO16                                
016610,003741: 41,3674           55321                          TS       IMODES33                              
016611,003742: 
016612,003743: 41,3675           43711                          CS       OCT55000                              
016613,003744: 41,3676           71320                          MASK     IMODES30                              
016614,003745: 41,3677           64762                          AD       PRIO15                                #  15000.
016615,003746: 41,3700           55320                          TS       IMODES30                              
016616,003747: 
016617,003748: 41,3701           00003                          RELINT                                         
016618,003749: 
016619,003750: 41,3702           04555                          TC       BANKCALL                              #  REDISPLAY C(MODREG)
016620,003751: 41,3703           10537                          CADR     DSPMM                                 
016621,003752: 41,3704           04220                          TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
016622,003753: 41,3705           04447                          TC       FLASHOFF                              #  TURN OFF V/N FLASH.
016623,003754: 41,3706           04574                          TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
016624,003755: 41,3707           61372                          CADR     TSTLTS4                               #   ENDIDLE IS AWAITING OPERATOR RESPONSE.
016625,003756: 41,3710           16001        13-11,1           OCT      16001                                 
016626,003757: 41,3711           55000        OCT55000          OCT      55000                                 
016627,003758: 41,3712                        ENDPINS2          EQUALS                                         
016628,003759: 
016629,003760:                                                                                                 # # Page 379
016630,003761:                                                                                                 #  ERROR LIGHT RESET (RSET) TURNS OFF,
016631,003762:                                                                                                 #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
016632,003763:                                                                                                 #  PROG ALM, TRACKER FAIL.
016633,003764:                                                                                                 #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
016634,003765:                                                                                                 #  IT ALSO ZEROS THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
016635,003766:                                                                                                 #  IT ALSO SETS :CAUTION RESET: TO 1.
016636,003767:                                                                                                 #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
016637,003768: 
016638,003769: 40,3504                                          SETLOC   DOPROC     +2                         
016639,003770: 40,3504                                          COUNT    40/PIN                                
016640,003771: 
016641,003772: 40,3504           56115        ERROR             XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
016642,003773: 40,3505           55012                          TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK CHANGED.
016643,003774: 40,3506           00004                          INHINT                                         
016644,003775: 40,3507           34701                          CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
016645,003776: 40,3510           00006                          EXTEND                                         
016646,003777: 40,3511           05011                          WOR      DSALMOUT                              #  BIT10 CHAN 11
016647,003778: 40,3512           33567                          CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
016648,003779: 40,3513           71036                          MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
016649,003780: 40,3514           64674                          AD       BIT15                                 #  PROG ALARM, AND TRACKER.
016650,003781: 40,3515           55036                          TS       DSPTAB     +11D                       
016651,003782: 40,3516           44763                          CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
016652,003783: 40,3517           71321                          MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
016653,003784: 40,3520           64763                          AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
016654,003785: 40,3521           55321                          TS       IMODES33                              
016655,003786: 40,3522           44701                          CS       BIT10                                 
016656,003787: 40,3523           71320                          MASK     IMODES30                              
016657,003788: 40,3524           64701                          AD       BIT10                                 
016658,003789: 40,3525           55320                          TS       IMODES30                              
016659,003790: 
016660,003791: 40,3526           44701                          CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
016661,003792: 40,3527           00006                          EXTEND                                         
016662,003793: 40,3530           03013                          WAND     CHAN13                                
016663,003794: 40,3531           43565                          CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
016664,003795: 40,3532           00006                          EXTEND                                         #  OPERATOR ERROR.
016665,003796: 40,3533           03011                          WAND     DSALMOUT                              
016666,003797: 40,3534           34377        TSTAB             CAF      BINCON                                #  (DEC 10)
016667,003798: 40,3535           54117                          TS       ERCNT                                 #  ERCNT = COUNT
016668,003799: 40,3536           00004                          INHINT                                         
016669,003800: 40,3537           50117                          INDEX    ERCNT                                 
016670,003801: 40,3540           11023                          CCS      DSPTAB                                
016671,003802: 40,3541           64712                          AD       ONE                                   
016672,003803: 40,3542           03547                          TC       ERPLUS                                
016673,003804: 40,3543           64712                          AD       ONE                                   
016674,003805: 40,3544           40000        ERMINUS           CS       A                                     
016675,003806: 40,3545           73570                          MASK     NOTBIT12                              
016676,003807: 40,3546           03552                          TC       ERCOM                                 
016677,003808: 40,3547           40000        ERPLUS            CS       A                                     
016678,003809: 40,3550           73570                          MASK     NOTBIT12                              
016679,003810: 40,3551           40000                          CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
016680,003811:                                                                                                 # # Page 380
016681,003812: 40,3552           50117        ERCOM             INDEX    ERCNT                                 #  ETC.
016682,003813: 40,3553           55023                          TS       DSPTAB                                
016683,003814: 40,3554           00003                          RELINT                                         
016684,003815: 40,3555           10117                          CCS      ERCNT                                 
016685,003816: 40,3556           03535                          TC       TSTAB      +1                         
016686,003817: 40,3557           34714                          CAF      ZERO                                  
016687,003818: 40,3560           54375                          TS       FAILREG                               
016688,003819: 40,3561           54376                          TS       FAILREG    +1                         
016689,003820: 40,3562           54377                          TS       FAILREG    +2                         
016690,003821: 40,3563           55357                          TS       SFAIL                                 
016691,003822: 40,3564           05112                          TC       ENDOFJOB                              
016692,003823: 
016693,003824: 40,3565           00104        ERCON             OCT      104                                   #  CHAN 11 BITS 3,7.
016694,003825:                                                                                                 #                                           UPLINK ACTIVITY, AND OPERATOR ERROR.
016695,003826: 40,3566           00240        BITS6,8           OCT      240                                   
016696,003827: 40,3567           00050        GL+NOATT          OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS
016697,003828: 40,3570           73777        NOTBIT12          OCT      73777                                 
016698,003829: 
016699,003830: 
016700,003831: 40,3571                        ENDPINS1          EQUALS                                         

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