Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

013229,000002:                                                                                                  ## Copyright:   Public domain.
013230,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
013231,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
013232,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
013233,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
013234,000007:                                                                                                  ## Assembler:   yaYUL
013235,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
013236,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
013237,000010:                                                                                                  ## Pages:       307-389
013238,000011:                                                                                                  ## Mod history: 2009-05-08 RSB  Started adapting from the Colossus249/ file 
013239,000012:                                                                                                  ##                              of the same name, using Comanche055 page 
013240,000013:                                                                                                  ##                              images.  Finished through page 329.
013241,000014:                                                                                                  ##              2009-05-09 RSB  Finished first draft.
013242,000015:                                                                                                  ##              2009-05-20 RSB  Corrected a CHKPOOH to CHKP00H.
013243,000016:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
013244,000017:                                                                                                  ##                              and fixed the errors found.
013245,000018:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
013246,000019:                                                                                                  ##                              vs Colossus 249.
013247,000020:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
013248,000021:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
013249,000022:                                                                                                  ##              2017-02-23 RSB  CHKP00H -> CHKPOOH.  My 2009 correction the other
013250,000023:                                                                                                  ##                              direction had been in error.
013251,000024:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
013252,000025:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
013253,000026:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
013254,000027:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
013255,000028: 
013256,000029:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
013257,000030:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
013258,000031:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
013259,000032:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
013260,000033:                                                                                                  ## consequent reduction in image quality as well) are available online at
013261,000034:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
013262,000035:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
013263,000036:                                                                                                  ## (much) higher-quality images which Paul actually created.
013264,000037:                                                                                                  ##
013265,000038:                                                                                                  ## Notations on the hardcopy document read, in part:
013266,000039:                                                                                                  ##
013267,000040:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
013268,000041:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
013269,000042:                                                                                                  ##
013270,000043:                                                                                                  ##      This AGC program shall also be referred to as
013271,000044:                                                                                                  ##                      Colossus 2A
013272,000045: 

Page 307

013274,000047:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
013275,000048:                                                                                                  #  MOD NO - 4            DATE - 27 APRIL 1967            ASSEMBLY - PINDISK REV 17
013276,000049:                                                                                                  #  MOD BY - FILENE
013277,000050:                                                                                                  #  LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
013278,000051: 
013279,000052:                                                                                                  #  FUNCTIONAL DESCRIPTION-
013280,000053: 
013281,000054:                                                                                                  #  THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
013282,000055:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
013283,000056:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
013284,000057:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
013285,000058: 
013286,000059:                                                                                                  #  THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
013287,000060:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
013288,000061:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
013289,000062:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
013290,000063:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
013291,000064: 
013292,000065:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
013293,000066:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
013294,000067:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
013295,000068:                                                                                                  #  :EXTENDED VERBS:).
013296,000069: 
013297,000070:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
013298,000071:                                                                                                  #  OPERATION INFORMATION:.
013299,000072: 
013300,000073:                                                                                                  #  CALLING SEQUENCES-
013301,000074: 
013302,000075:                                                                                                  #  KEYBOARD:
013303,000076:                                                                                                  #  EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
013304,000077:                                                                                                  #  INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO 
013305,000078:                                                                                                  #  CHANNEL 15 (CHANNEL 16).  KEYRUPT1 (KEYRUPT2) PLACES THE KEY
013306,000079:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
013307,000080:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
013308,000081: 
013309,000082:                                                                                                  #  UPLINK:
013310,000083:                                                                                                  #  EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
013311,000084:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
013312,000085:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT :CHARIN:) AND EXECUTES A RESUME.
013313,000086: 
013314,000087:                                                                                                  #  INTERNAL PROGRAMS:
013315,000088:                                                                                                  #  INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
013316,000089:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
013317,000090:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
013318,000091:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
013319,000092: 
013320,000093:                                                                                                  #  NORMAL EXIT MODES-
013321,000094: 
013322,000095:                                                                                                  #        IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
013323,000096:                                                                                                  #                1)      ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.

Page 308

013325,000098:                                                                                                  #                2)      EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
013326,000099:                                                                                                  #                        PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
013327,000100:                                                                                                  #                        RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
013328,000101:                                                                                                  #                        CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
013329,000102:                                                                                                  #                        ALSO PINBALL IS A NOVAC JOB.  EBANK SET FOR COMMON.
013330,000103:                                                                                                  #                3)      VERB 37.  CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
013331,000104:                                                                                                  #                        SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
013332,000105:                                                                                                  #                        30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
013333,000106:                                                                                                  #                4)      KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
013334,000107:                                                                                                  #                        ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
013335,000108:                                                                                                  #                        THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
013336,000109: 
013337,000110:                                                                                                  #  IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
013338,000111:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
013339,000112:                                                                                                  #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
013340,000113: 
013341,000114:                                                                                                  #  ALARM OR ABORT EXIT MODES-
013342,000115: 
013343,000116:                                                                                                  #        EXTERNAL INITIATION:
013344,000117:                                                                                                  #                IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
013345,000118:                                                                                                  #                ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
013346,000119: 
013347,000120:                                                                                                  #        INTERNAL PROGRAM INITIATION:
013348,000121:                                                                                                  #                IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
013349,000122:                                                                                                  #                (WITH OCTAL 01501).
013350,000123:                                                                                                  #                IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
013351,000124:                                                                                                  #                CAUSED (WITH OCTAL 01206).  THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
013352,000125:                                                                                                  #                1)      ENDIDLE OR DATAWAIT.
013353,000126:                                                                                                  #                2)      NVSBWAIT, PRENVBSY, OR NVSUBUSY.
013354,000127: 
013355,000128:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
013356,000129:                                                                                                  #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
013357,000130: 
013358,000131:                                                                                                  #  OUTPUT-
013359,000132: 
013360,000133:                                                                                                  #  INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
013361,000134:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
013362,000135:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
013363,000136:                                                                                                  #  IN INTERRUPT.
013364,000137: 
013365,000138:                                                                                                  #  ERASABLE INITIALIZATION-
013366,000139: 
013367,000140:                                                                                                  #  FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
013368,000141:                                                                                                  #  PINBALL IN :STARTSUB:.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
013369,000142:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
013370,000143:                                                                                                  #  DSPCOUNT, NOUT.
013371,000144: 

Page 309

013373,000146:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
013374,000147:                                                                                                  #  PINBALL IS GIVEN BELOW.
013375,000148: 
013376,000149:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
013377,000150: 
013378,000151:                                                                                                  #  REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
013379,000152:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
013380,000153: 
013381,000154:                                                                                                  #        NVSUB           CALLING POINT FOR INTERNAL USE OF PINBALL.
013382,000155:                                                                                                  #                        OF RELATED INTEREST     NVSBWAIT
013383,000156:                                                                                                  #                                                NVSUBUSY
013384,000157:                                                                                                  #                                                PRENVBSY
013385,000158: 
013386,000159:                                                                                                  #        ENDIDLE         ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
013387,000160:                                                                                                  #                        AWAITING OPERATORS RESPONSE.
013388,000161: 
013389,000162:                                                                                                  #        DSPMM           ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
013390,000163:                                                                                                  #                        PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
013391,000164:                                                                                                  #                        (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
013392,000165:                                                                                                  #                        FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
013393,000166: 
013394,000167:                                                                                                  #        BLANKSUB        ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
013395,000168:                                                                                                  #                        COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
013396,000169: 
013397,000170:                                                                                                  #        JAMTERM         ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
013398,000171:                                                                                                  #        JAMPROC         TERMINATE (V 34) OR PROCEED (V33) FUNCTION.
013399,000172: 
013400,000173:                                                                                                  #        MONITOR         VERBS FOR PERIODIC (1 PER SEC) DISPLAY.
013401,000174: 
013402,000175:                                                                                                  #        PLEASE PERFORM, PLEASE MARK SITUATIONS
013403,000176:                                                                                                  #                REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
013404,000177:                                                                                                  #                THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
013405,000178:                                                                                                  #                SYMBOL TABLE FOR PAGE NUMBER).
013406,000179: 
013407,000180:                                                                                                  #        THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
013408,000181:                                                                                                  #        BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
013409,000182: 
013410,000183:                                                                                                  #        THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
013411,000184:                                                                                                  #        TABLES:.
013412,000185: 
013413,000186:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
013414,000187:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
013415,000188:                                                                                                  #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.

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

013418,000191: 
013419,000192:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
013420,000193: 
013421,000194:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT

Page 310

013423,000196:                                                                                                  #        USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
013424,000197:                                                                                                  #        CHRISTIAN EAR CAN ENDURE TO HEAR.::
013425,000198:                                                                                                  #                                        HENRY 6, ACT 2, SCENE 4
013426,000199: 
013427,000200:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
013428,000201: 
013429,000202:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
013430,000203: 
013431,000204:                                                                                                  # DSPCOUNT       ERASE                   DISPLAY POSITION INDICATOR
013432,000205:                                                                                                  # DECBRNCH       ERASE                   +DEC, -DEC, OCT INDICATOR
013433,000206:                                                                                                  # VERBREG        ERASE                   VERB CODE
013434,000207:                                                                                                  # NOUNREG        ERASE                   NOUN CODE
013435,000208:                                                                                                  # XREG           ERASE                   R1 INPUT BUFFER
013436,000209:                                                                                                  # YREG           ERASE                   R2 INPUT BUFFER
013437,000210:                                                                                                  # ZREG           ERASE                   R3 INPUT BUFFER
013438,000211:                                                                                                  # XREGLP         ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
013439,000212:                                                                                                  # YREGLP         ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
013440,000213:                                                                                                  # HITEMOUT       =       YREGLP          TEMP FOR DISPLAY OF HRS,MIN,SEC
013441,000214:                                                                                                  #                                                 MUST = LOTEMOUT-1.
013442,000215:                                                                                                  # ZREGLP         ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
013443,000216:                                                                                                  # LOTEMOUT       =       ZREGLP          TEMP FOR DISPLAY OF HRS,MIN,SEC
013444,000217:                                                                                                  #                                                 MUST = HITEMOUT+1.
013445,000218:                                                                                                  # MODREG         ERASE                   MODE CODE
013446,000219:                                                                                                  # DSPLOCK        ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
013447,000220:                                                                                                  # REQRET         ERASE                   RETURN REGISTER FOR LOAD
013448,000221:                                                                                                  # LOADSTAT       ERASE                   STATUS INDICATOR FOR LOADTST
013449,000222:                                                                                                  # CLPASS         ERASE                   PASS INDICATOR CLEAR
013450,000223:                                                                                                  # NOUT           ERASE                   ACTIVITY COUNTER FOR DSPTAB
013451,000224:                                                                                                  # NOUNCADR       ERASE                   MACHINE CADR FOR NOUN
013452,000225:                                                                                                  # MONSAVE        ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
013453,000226:                                                                                                  # MONSAVE1       ERASE                   NOUNCADR FOR MONITOR(MATBS) = MONSAVE+1
013454,000227:                                                                                                  # MONSAVE2       ERASE                   NVMONOPT OPTIONS
013455,000228:                                                                                                  # DSPTAB         ERASE   +13D            0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS
013456,000229:                                                                                                  # CADRSTOR       ERASE                   ENDIDLE STORAGE
013457,000230:                                                                                                  # NVQTEM         ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
013458,000231:                                                                                                  #                                        MUST = NVBNKTEM-1
013459,000232:                                                                                                  # NVBNKTEM       ERASE                   NVSUB STORAGE FOR CALLING BANK
013460,000233:                                                                                                  #                                        MUST = NVQTEM+1
013461,000234:                                                                                                  # VERBSAVE       ERASE                   NEEDED FOR RECYCLE
013462,000235:                                                                                                  # DSPLIST        ERASE                   WAITING REG FOR DSP SYST INTERNAL USE
013463,000236:                                                                                                  # EXTVBACT       REASE                   EXTENDED VERB ACTIVITY INTERLOCK
013464,000237:                                                                                                  # DSPTEM1        ERASE   +2              BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
013465,000238:                                                                                                  # DSPTEM2        ERASE   +2              BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
013466,000239: 
013467,000240:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
013468,000241: 
013469,000242:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION

Page 311

013471,000244:                                                                                                  # DSEXIT         =       INTB15+         RETURN FOR DSPIN
013472,000245:                                                                                                  # EXITEM         =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
013473,000246:                                                                                                  # BLANKRET       =       INTB15+         RETURN FOR 2BLANK
013474,000247:                                                                                                  # WRDRET         =       INTBIT15        RETURN FOR 5BLANK
013475,000248:                                                                                                  # WDRET          =       INTBIT15        RETURN FOR DSPWD
013476,000249:                                                                                                  # DECRET         =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
013477,000250:                                                                                                  # 21/22REG       =       INTBIT15        TEMP FOR CHARIN
013478,000251:                                                                                                  # UPDATRET       =       POLISH          RETURN FOR UPDATNN, UPDATVB
013479,000252:                                                                                                  # CHAR           =       POLISH          TEMP FOR CHARIN
013480,000253:                                                                                                  # ERCNT          =       POLISH          COUNTER FOR ERROR LIGHT RESET
013481,000254:                                                                                                  # DECOUNT        =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
013482,000255:                                                                                                  # SGNON          =       VBUF            TEMP FOR +,- ON
013483,000256:                                                                                                  # NOUNTEM        =       VBUF            COUNTER FOR MIXNOUN FETCH
013484,000257:                                                                                                  # DISTEM         =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
013485,000258:                                                                                                  # DECTEM         =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
013486,000259:                                                                                                  # SGNOFF         =       VBUF +1         TEMP FOR +,- ON
013487,000260:                                                                                                  # NVTEMP         =       VBUF +1         TEMP FOR NVSUB
013488,000261:                                                                                                  # SFTEMP1        =       VBUF +1         STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
013489,000262:                                                                                                  # HITEMIN        =       VBUF +1         TEMP FOR LOAD OF HRS,MIN,SEC
013490,000263:                                                                                                  #                                                MUST = LOTEMIN-1.
013491,000264:                                                                                                  # CODE           =       VBUF +2         FOR DSPIN
013492,000265:                                                                                                  # SFTEMP2        =       VBUF +2         STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
013493,000266:                                                                                                  # LOTEMIN        =       VBUF +2         TEMP FOR LOAD OF HRS,MIN,SEC
013494,000267:                                                                                                  #                                                MUST = HITEMIN+1.
013495,000268:                                                                                                  # MIXTEMP        =       VBUF +3         FOR MIXNOUN DATA
013496,000269:                                                                                                  # SIGNRET        =       VBUF +3         RETURN FOR +,- ON
013497,000270:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
013498,000271:                                                                                                  # ENTRET         =       DOTINC          EXIT FROM ENTER
013499,000272:                                                                                                  # WDCNT          =       DOTRET          CHAR COUNTER FOR DSPWD
013500,000273:                                                                                                  # INREL          =       DOTRET          INPUT BUFFER SELECTOR (X,Y,Z, REG )
013501,000274:                                                                                                  # DSPMMTEM       =       MATINC          DSPCOUNT SAVE FOR DSPMM
013502,000275:                                                                                                  # MIXBR          =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
013503,000276:                                                                                                  # TEM1           ERASE                   EXEC TEMP
013504,000277:                                                                                                  # DSREL          =       TEM1            REL ADDRESS FOR DSPIN
013505,000278:                                                                                                  # TEM2           ERASE                   EXEC TEMP
013506,000279:                                                                                                  # DSMAG          =       TEM2            MAGNITUDE STORE FOR DSPIN
013507,000280:                                                                                                  # IDADDTEM       =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
013508,000281:                                                                                                  # TEM3           ERASE                   EXEC TEMP
013509,000282:                                                                                                  # COUNT          =       TEM3            FOR DSPIN

Page 312

013511,000284:                                                                                                  # TEM4           ERASE                   EXEC TEMP
013512,000285:                                                                                                  # LSTPTR         =       TEM4            LIST POINTER FOR GRABUSY
013513,000286:                                                                                                  # RELRET         =       TEM4            RETURN FOR RELDSP
013514,000287:                                                                                                  # FREERET        =       TEM4            RETURN FOR FREEDSP
013515,000288:                                                                                                  # DSPWDRET       =       TEM4            RETURN FOR DSPSIGN
013516,000289:                                                                                                  # SEPSCRET       =       TEM4            RETURN FOR SEPSEC
013517,000290:                                                                                                  # SEPMNRET       =       TEM4            RETURN FOR SEPMIN
013518,000291:                                                                                                  # TEM5           ERASE                   EXEC TEMP
013519,000292:                                                                                                  # NOUNADD        =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
013520,000293:                                                                                                  # NNADTEM        ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
013521,000294:                                                                                                  # NNTYPTEM       ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
013522,000295:                                                                                                  # IDAD1TEM       ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
013523,000296:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
013524,000297:                                                                                                  # IDAD2TEM       ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
013525,000298:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
013526,000299:                                                                                                  # IDAD3TEM       ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
013527,000300:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
013528,000301:                                                                                                  # RUTMXTEM       ERASE                   TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
013529,000302: 
013530,000303:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013531,000304: 
013532,000305:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013533,000306: 
013534,000307:                                                                                                  #        MPAC, THRU MPAC +6
013535,000308:                                                                                                  #        BUF, +1, +2
013536,000309:                                                                                                  #        BUF2, +1, +2
013537,000310:                                                                                                  #        MPTEMP
013538,000311:                                                                                                  #        ADDRWD
013539,000312: 
013540,000313:                                                                                                  #  END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
013541,000314: 
013542,000315:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
013543,000316: 
013544,000317:                                                                                                  # DSPCNT         ERASE                   COUNTER FOR DSPOUT
013545,000318:                                                                                                  # UPLOCK         ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
013546,000319:                                                                                                  #                                        RECEPTION OF A BAD MESSAGE IN UPLINK)
013547,000320: 
013548,000321:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
013549,000322: 
013550,000323:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
013551,000324: 
013552,000325:                                                                                                  # KEYTEMP1       =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
013553,000326:                                                                                                  # DSRUPTEM       =       WAITEXIT        TEMP FOR DSPOUT
013554,000327:                                                                                                  # KEYTEMP2       =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
013555,000328: 
013556,000329:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
013557,000330: 

Page 313

013559,000332:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
013560,000333:                                                                                                  #        0               10000
013561,000334:                                                                                                  #        1               00001
013562,000335:                                                                                                  #        9               01001
013563,000336:                                                                                                  #        VERB            10001
013564,000337:                                                                                                  #        ERROR RES       10010
013565,000338:                                                                                                  #        KEY RLSE        11001
013566,000339:                                                                                                  #        +               11010
013567,000340:                                                                                                  #        -               11011
013568,000341:                                                                                                  #        ENTER           11100
013569,000342:                                                                                                  #        CLEAR           11110
013570,000343:                                                                                                  #        NOUN            11111
013571,000344: 
013572,000345:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL.  SET OUT0 TO AAAABCCCCCDDDDD.
013573,000346:                                                                                                  #  A-S   SELECT A RELAYWORD.  THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
013574,000347:                                                                                                  #        ENERGIZED.
013575,000348:                                                                                                  #  B     FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
013576,000349:                                                                                                  #  C-S   5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
013577,000350:                                                                                                  #  D-S   5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
013578,000351: 
013579,000352:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
013580,000353:                                                                                                  #        MD1             MD2 (MAJOR MODE)
013581,000354:                                                                                                  #        VD1             VD2 (VERB)                      ND1             ND2 (NOUN)
013582,000355:                                                                                                  #        R1D1            R1D2            R1D3            R1D4            R1D5 (R1)
013583,000356:                                                                                                  #        R2D1            R2D2            R2D3            R2D4            R2D5 (R2)
013584,000357:                                                                                                  #        R3D1            R3D2            R3D3            R3D4            R3D5 (R3)
013585,000358: 
013586,000359:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
013587,000360: 
013588,000361:                                                                                                  #        MD1     25              R2D1    11              ALL ARE OCTAL
013589,000362:                                                                                                  #        MD2     24              R2D2    10
013590,000363:                                                                                                  #        VD1     23              R2D3    7
013591,000364:                                                                                                  #        VD2     22              R2D4    6
013592,000365:                                                                                                  #        ND1     21              R2D5    5
013593,000366:                                                                                                  #        ND2     20              R3D1    4
013594,000367:                                                                                                  #        R1D1    16              R3D2    3
013595,000368:                                                                                                  #        R1D2    15              R3D3    2
013596,000369:                                                                                                  #        R1D3    14              R3D4    1
013597,000370:                                                                                                  #        R1D4    13              R3D5    0
013598,000371:                                                                                                  #        R1D5    12
013599,000372: 
013600,000373:                                                                                                  #  THERE IS AN 11REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
013601,000374: 
013602,000375:                                                                                                  #        DSPTAB          RELAYWD         BIT11           BITS 10-6       BITS 5-1
013603,000376:                                                                                                  #        RELADD
013604,000377:                                                                                                  #        10              1011                            MD1 (25)        MD2  (24)
013605,000378:                                                                                                  #        9               1010                            VD1 (23)        VD2  (22)
013606,000379:                                                                                                  #        8               1001                            ND1 (21)        ND2  (20)
013607,000380:                                                                                                  #        7               1000                                            R1D1 (16)

Page 314

013609,000382:                                                                                                  #        6               0111            +R1             R1D2 (15)       R1D3 (14)
013610,000383:                                                                                                  #        5               0110            -R1             R1D4 (13)       R1D5 (12)
013611,000384:                                                                                                  #        4               0101            +R2             R2D1 (11)       R2D2 (10)
013612,000385:                                                                                                  #        3               0100            -R2             R2D3 (7)        R2D4 (6)
013613,000386:                                                                                                  #        2               0011                            R2D5 (5)        R3D1 (4)
013614,000387:                                                                                                  #        1               0010            +R3             R3D2 (3)        R3D3 (2)
013615,000388:                                                                                                  #        0               0001            -R3             R3D4 (1)        R3D5 (0)
013616,000389:                                                                                                  #                        0000        NO RELAYWORD
013617,000390: 
013618,000391:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
013619,000392: 
013620,000393:                                                                                                  #        BLANK   00000
013621,000394:                                                                                                  #        0       10101
013622,000395:                                                                                                  #        1       00011
013623,000396:                                                                                                  #        2       11001
013624,000397:                                                                                                  #        3       11011
013625,000398:                                                                                                  #        4       01111
013626,000399:                                                                                                  #        5       11110
013627,000400:                                                                                                  #        6       11100
013628,000401:                                                                                                  #        7       10011
013629,000402:                                                                                                  #        8       11101
013630,000403:                                                                                                  #        9       11111
013631,000404: 
013632,000405:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
013633,000406: 
013634,000407:                                                                                                  #        KEY RELEASE LIGHT       -       BIT 5 OF CHANNEL 11
013635,000408:                                                                                                  #        VERB/NOUN FLASH         -       BIT 6 OF CHANNEL 11
013636,000409:                                                                                                  #        OPERATOR ERROR LIGHT    -       BIT 7 OF CHANNEL 11
013637,000410: 

Page 315

013639,000412:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
013640,000413: 
013641,000414: 40,2000                                           BANK     40                                    
013642,000415: 40,2000                                           SETLOC   PINBALL1                              
013643,000416: 40,2000                                           BANK                                           
013644,000417: 
013645,000418: 40,2000                                           COUNT    40/PIN                                
013646,000419: 
013647,000420: 40,2000           35017        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
013648,000421: 40,2001           57012                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
013649,000422: 40,2002           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
013650,000423: 40,2003           11042                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
013651,000424: 40,2004           02006                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
013652,000425: 40,2005           02013                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
013653,000426: 40,2006           42057                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
013654,000427: 40,2007           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
013655,000428: 40,2010           00006                           EXTEND                                         #  VBRELDSP).
013656,000429: 40,2011           12013                           BZF      CHARIN2                               
013657,000430: 40,2012           04410                           TC       RELDSPON                              
013658,000431: 40,2013           56154        CHARIN2            XCH      MPAC                                  
013659,000432: 40,2014           54117                           TS       CHAR                                  
013660,000433: 40,2015           50000                           INDEX    A                                     
013661,000434: 40,2016           02017                           TC       +1                                    #    INPUT CODE      FUNCTION
013662,000435: 40,2017           03341                           TC       CHARALRM                              #        0
013663,000436: 40,2020           02076                           TC       NUM                                   #        1
013664,000437: 40,2021           02076                           TC       NUM                                   #        2
013665,000438: 40,2022           02076                           TC       NUM                                   #        3
013666,000439: 40,2023           02076                           TC       NUM                                   #        4
013667,000440: 40,2024           02076                           TC       NUM                                   #        5
013668,000441: 40,2025           02076                           TC       NUM                                   #        6
013669,000442: 40,2026           02076                           TC       NUM                                   #        7
013670,000443: 40,2027           02062                           TC       89TEST                                #        10              8
013671,000444: 40,2030           02062                           TC       89TEST                                #        11              9
013672,000445: 40,2031           03341                           TC       CHARALRM                              #        12
013673,000446: 40,2032           03341                           TC       CHARALRM                              #        13
013674,000447: 40,2033           03341                           TC       CHARALRM                              #        14
013675,000448: 40,2034           03341                           TC       CHARALRM                              #        15
013676,000449: 40,2035           03341                           TC       CHARALRM                              #        16
013677,000450: 40,2036           03341                           TC       CHARALRM                              #        17
013678,000451: 40,2037           02074                           TC       NUM        -2                         #        20              0
013679,000452: 40,2040           02255                           TC       VERB                                  #        21              VERB
013680,000453: 40,2041           03510                           TC       ERROR                                 #        22              ERROR LIGHT RESET
013681,000454: 40,2042           03341                           TC       CHARALRM                              #        23
013682,000455: 40,2043           03341                           TC       CHARALRM                              #        24
013683,000456: 40,2044           03341                           TC       CHARALRM                              #        25
013684,000457: 40,2045           03341                           TC       CHARALRM                              #        26
013685,000458: 40,2046           03341                           TC       CHARALRM                              #        27
013686,000459: 40,2047           03341                           TC       CHARALRM                              #        30
013687,000460: 40,2050           03366                           TC       VBRELDSP                              #        31              KEY RELEASE

Page 316

013689,000462: 40,2051           02310                           TC       POSGN                                 #        32              +
013690,000463: 40,2052           02275                           TC       NEGSGN                                #        33              -
013691,000464: 40,2053           02060                           TC       ENTERJMP                              #        34              ENTER
013692,000465: 40,2054           03341                           TC       CHARALRM                              #        35
013693,000466: 40,2055           02370                           TC       CLEAR                                 #        36              CLEAR
013694,000467: 40,2056           02271                           TC       NOUN                                  #        37              NOUN
013695,000468: 
013696,000469: 40,2057           00022        ELRCODE1           OCT      22                                    
013697,000470: 40,2060           04701        ENTERJMP           TC       POSTJUMP                              
013698,000471: 40,2061           62002                           CADR     ENTER                                 
013699,000472: 
013700,000473: 40,2062           10777        89TEST             CCS      DSPCOUNT                              
013701,000474: 40,2063           02067                           TC       +4                                    #  +
013702,000475: 40,2064           02067                           TC       +3                                    #  +0
013703,000476: 40,2065           05217                           TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
013704,000477: 40,2066           05217                           TC       ENDOFJOB                              #  -0
013705,000478: 40,2067           36214                           CAF      THREE                                 
013706,000479: 40,2070           71000                           MASK     DECBRNCH                              
013707,000480: 40,2071           10000                           CCS      A                                     
013708,000481: 40,2072           02076                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
013709,000482: 40,2073           03341                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
013710,000483: 
013711,000484:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME.  FOR DECIMAL IT CONVERTS INCOMING
013712,000485:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
013713,000486:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG.  HI PART OF DEC IN XREG,
013714,000487:                                                                                                  #  YREG, ZREG.  THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
013715,000488:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
013716,000489:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
013717,000490: 
013718,000491: 40,2074           35021                           CAF      ZERO                                  
013719,000492: 40,2075           54117                           TS       CHAR                                  
013720,000493: 40,2076           10777        NUM                CCS      DSPCOUNT                              
013721,000494: 40,2077           02103                           TC       +4                                    #  +
013722,000495: 40,2100           02103                           TC       +3                                    #  +0
013723,000496: 40,2101           02102                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
013724,000497: 40,2102           05217                           TC       ENDOFJOB                              #  -0
013725,000498: 40,2103           02225                           TC       GETINREL                              
013726,000499: 40,2104           11015                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
013727,000500: 40,2105           35021                           CAF      ZERO                                  
013728,000501: 40,2106           55015                           TS       CLPASS                                
013729,000502: 40,2107           02110                           TC       +1                                    
013730,000503: 40,2110           50117                           INDEX    CHAR                                  
013731,000504: 40,2111           34072                           CAF      RELTAB                                
013732,000505: 40,2112           74362                           MASK     LOW5                                  
013733,000506: 40,2113           54124                           TS       CODE                                  
013734,000507: 40,2114           30777                           CA       DSPCOUNT                              
013735,000508: 40,2115           54143                           TS       COUNT                                 
013736,000509: 40,2116           03227                           TC       DSPIN                                 

Page 317

013738,000511: 40,2117           36214                           CAF      THREE                                 
013739,000512: 40,2120           71000                           MASK     DECBRNCH                              
013740,000513: 40,2121           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
013741,000514: 40,2122           02133                           TC       DECTOBIN                              #  +
013742,000515: 40,2123           50137                           INDEX    INREL                                 #  +0 OCTAL
013743,000516: 40,2124           57001                           XCH      VERBREG                               
013744,000517: 40,2125           54022                           TS       CYL                                   
013745,000518: 40,2126           40022                           CS       CYL                                   
013746,000519: 40,2127           40022                           CS       CYL                                   
013747,000520: 40,2130           56022                           XCH      CYL                                   
013748,000521: 40,2131           60117                           AD       CHAR                                  
013749,000522: 40,2132           02150                           TC       ENDNMTST                              
013750,000523: 40,2133           50137        DECTOBIN           INDEX    INREL                                 
013751,000524: 40,2134           57001                           XCH      VERBREG                               
013752,000525: 40,2135           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
013753,000526: 40,2136           35021                           CAF      ZERO                                  
013754,000527: 40,2137           54155                           TS       MPAC       +1                         
013755,000528: 40,2140           34377                           CAF      TEN                                   #  10 X 2EXP-14
013756,000529: 40,2141           07256                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
013757,000530: 40,2142           56155                           XCH      MPAC       +1                         
013758,000531: 40,2143           60117                           AD       CHAR                                  
013759,000532: 40,2144           54155                           TS       MPAC       +1                         
013760,000533: 40,2145           02150                           TC       ENDNMTST                              #  NO OF
013761,000534: 40,2146           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
013762,000535: 40,2147           02166                           TC       DECEND                                
013763,000536: 40,2150           50137        ENDNMTST           INDEX    INREL                                 
013764,000537: 40,2151           55001                           TS       VERBREG                               
013765,000538: 40,2152           40777                           CS       DSPCOUNT                              
013766,000539: 40,2153           50137                           INDEX    INREL                                 
013767,000540: 40,2154           62216                           AD       CRITCON                               
013768,000541: 40,2155           00006                           EXTEND                                         
013769,000542: 40,2156           12160                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
013770,000543: 40,2157           02213                           TC       MORNUM                                #  -, DSPCOUNT G/ CRITCON
013771,000544: 40,2160           36214        ENDNUM             CAF      THREE                                 
013772,000545: 40,2161           71000                           MASK     DECBRNCH                              
013773,000546: 40,2162           10000                           CCS      A                                     
013774,000547: 40,2163           02166                           TC       DECEND                                
013775,000548: 40,2164           40777        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
013776,000549: 40,2165           02214                           TC       MORNUM     +1                         #  NEGATIVELY
013777,000550: 40,2166           45017        DECEND             CS       ONE                                   
013778,000551: 40,2167           60137                           AD       INREL                                 
013779,000552: 40,2170           00006                           EXTEND                                         
013780,000553: 40,2171           62164                           BZMF     ENDALL                                #  IF INREL=0,1 (VBREG,NNREG), LEAVE WHOLE
013781,000554: 40,2172           07052                           TC       DMP                                   #  IF INREL=2,3,4 (R1,R2,R3), CONVERT TO FRAC
013782,000555:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
013783,000556: 40,2173           02223                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
013784,000557: 40,2174           36214                           CAF      THREE                                 #  IN MPAC, +1, +2.
013785,000558: 40,2175           71000                           MASK     DECBRNCH                              
013786,000559: 40,2176           50000                           INDEX    A                                     
013787,000560: 40,2177           02177                           TC       +0                                    

Page 318

013789,000562: 40,2200           02204                           TC       +DECSGN                               
013790,000563: 40,2201           00006                           EXTEND                                         #  - CASE
013791,000564: 40,2202           40156                           DCS      MPAC       +1                         
013792,000565: 40,2203           52156                           DXCH     MPAC       +1                         
013793,000566: 40,2204           56156        +DECSGN            XCH      MPAC       +2                         
013794,000567: 40,2205           50137                           INDEX    INREL                                 
013795,000568: 40,2206           55004                           TS       XREGLP     -2                         
013796,000569: 40,2207           56155                           XCH      MPAC       +1                         
013797,000570: 40,2210           50137                           INDEX    INREL                                 
013798,000571: 40,2211           55001                           TS       VERBREG                               
013799,000572: 40,2212           02164                           TC       ENDALL                                
013800,000573: 40,2213           10777        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
013801,000574: 40,2214           54777                           TS       DSPCOUNT                              
013802,000575: 40,2215           05217                           TC       ENDOFJOB                              
013803,000576: 
013804,000577: 40,2216           00022        CRITCON            OCT      22                                    #  (DEC 18)
013805,000578: 40,2217           00020                           OCT      20                                    #  (DEC 16)
013806,000579: 40,2220           00012                           OCT      12                                    #  (DEC 10)
013807,000580: 40,2221           00005                           OCT      5                                     
013808,000581: 40,2222           00000                           OCT      0                                     
013809,000582: 
013810,000583: 40,2223           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
013811,000584: 
013812,000585:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
013813,000586:                                                                                                  #  PUTS IN INTO INREL.  +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
013814,000587: 
013815,000588: 40,2225           50777        GETINREL           INDEX    DSPCOUNT                              
013816,000589: 40,2226           32231                           CAF      INRELTAB                              
013817,000590: 40,2227           54137                           TS       INREL                                 #  (A TEMP, REG)
013818,000591: 40,2230           00002                           TC       Q                                     
013819,000592: 
013820,000593: 40,2231           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
013821,000594: 40,2232           00004                           OCT      4                                     #  R3D4           =(1)
013822,000595: 40,2233           00004                           OCT      4                                     #  R3D3           =(2)
013823,000596: 40,2234           00004                           OCT      4                                     #  R3D2           =(3)
013824,000597: 40,2235           00004                           OCT      4                                     #  R3D1           =(4)
013825,000598: 40,2236           00003                           OCT      3                                     #  R2D5           =(5)
013826,000599: 40,2237           00003                           OCT      3                                     #  R2D4           =(6)
013827,000600: 40,2240           00003                           OCT      3                                     #  R2D3           =(7)
013828,000601: 40,2241           00003                           OCT      3                                     #  R2D2           =(8D)
013829,000602: 40,2242           00003                           OCT      3                                     #  R2D1           =(9D)
013830,000603: 40,2243           00002                           OCT      2                                     #  R1D5           =(10D)
013831,000604: 40,2244           00002                           OCT      2                                     #  R1D4           =(11D)
013832,000605: 40,2245           00002                           OCT      2                                     #  R1D3           =(12D)
013833,000606: 40,2246           00002                           OCT      2                                     #  R1D2           =(13D)
013834,000607: 40,2247           00002                           OCT      2                                     #  R1D1           =(14D)
013835,000608: 40,2250           05747                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
013836,000609: 40,2251           00001                           OCT      1                                     #  ND2            =(16D)

Page 319

013838,000611: 40,2252           00001                           OCT      1                                     #  ND1            =(17D)
013839,000612: 40,2253           00000                           OCT      0                                     #  VD2            =(18D)
013840,000613: 40,2254           00000                           OCT      0                                     #  VD1            =(19D)
013841,000614: 
013842,000615: 40,2255           35021        VERB               CAF      ZERO                                  
013843,000616: 40,2256           55001                           TS       VERBREG                               
013844,000617: 40,2257           34374                           CAF      VD1                                   
013845,000618: 40,2260           54777        NVCOM              TS       DSPCOUNT                              
013846,000619: 40,2261           02502                           TC       2BLANK                                
013847,000620: 40,2262           35017                           CAF      ONE                                   
013848,000621: 40,2263           55000                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
013849,000622: 40,2264           35021                           CAF      ZERO                                  
013850,000623: 40,2265           55013                           TS       REQRET                                #  SET FOR ENTPAS0
013851,000624: 40,2266           34233                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
013852,000625: 40,2267           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
013853,000626:                                                                                                  #  TO TC ENDOFJOB
013854,000627: 40,2270           05217                           TC       ENDOFJOB                              
013855,000628: 40,2271           35021        NOUN               CAF      ZERO                                  
013856,000629: 40,2272           55002                           TS       NOUNREG                               
013857,000630: 40,2273           34375                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
013858,000631: 40,2274           02260                           TC       NVCOM                                 
013859,000632: 
013860,000633: 40,2275           02347        NEGSGN             TC       SIGNTEST                              
013861,000634: 40,2276           02334                           TC       -ON                                   
013862,000635: 40,2277           35016                           CAF      TWO                                   
013863,000636: 40,2300           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
013864,000637: 40,2301           65011                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
013865,000638: 40,2302           27000                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
013866,000639: 40,2303           11015        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
013867,000640: 40,2304           35021                           CAF      ZERO                                  
013868,000641: 40,2305           55015                           TS       CLPASS                                
013869,000642: 40,2306           02307                           TC       +1                                    
013870,000643: 40,2307           05217                           TC       ENDOFJOB                              
013871,000644: 
013872,000645: 40,2310           02347        POSGN              TC       SIGNTEST                              
013873,000646: 40,2311           02314                           TC       +ON                                   
013874,000647: 40,2312           35017                           CAF      ONE                                   
013875,000648: 40,2313           02300                           TC       BOTHSGN                               
013876,000649: 
013877,000650: 40,2314           22002        +ON                LXCH     Q                                     
013878,000651: 40,2315           02225                           TC       GETINREL                              
013879,000652: 40,2316           50137                           INDEX    INREL                                 
013880,000653: 40,2317           32342                           CAF      SGNTAB     -2                         
013881,000654: 40,2320           54123                           TS       SGNOFF                                
013882,000655: 40,2321           65017                           AD       ONE                                   
013883,000656: 40,2322           54122                           TS       SGNON                                 
013884,000657: 40,2323           35021        SGNCOM             CAF      ZERO                                  
013885,000658: 40,2324           54124                           TS       CODE                                  

Page 320

013887,000660: 40,2325           56123                           XCH      SGNOFF                                
013888,000661: 40,2326           03311                           TC       11DSPIN                               
013889,000662: 40,2327           35005                           CAF      BIT11                                 
013890,000663: 40,2330           54124                           TS       CODE                                  
013891,000664: 40,2331           56122                           XCH      SGNON                                 
013892,000665: 40,2332           03311                           TC       11DSPIN                               
013893,000666: 40,2333           00001                           TC       L                                     
013894,000667: 40,2334           22002        -ON                LXCH     Q                                     
013895,000668: 40,2335           02225                           TC       GETINREL                              
013896,000669: 40,2336           50137                           INDEX    INREL                                 
013897,000670: 40,2337           32342                           CAF      SGNTAB     -2                         
013898,000671: 40,2340           54122                           TS       SGNON                                 
013899,000672: 40,2341           65017                           AD       ONE                                   
013900,000673: 40,2342           54123                           TS       SGNOFF                                
013901,000674: 40,2343           02323                           TC       SGNCOM                                
013902,000675: 
013903,000676: 40,2344           00005        SGNTAB             OCT      5                                     #  -R1
013904,000677: 40,2345           00003                           OCT      3                                     #  -R2
013905,000678: 40,2346           00000                           OCT      0                                     #  -R3
013906,000679: 
013907,000680: 40,2347           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
013908,000681: 40,2350           36214                           CAF      THREE                                 #  R2D1, OR R3D1.  ALLOWS ONLY FIRST OF
013909,000682: 40,2351           71000                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
013910,000683: 40,2352           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
013911,000684: 40,2353           05217                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN.  REJECT.
013912,000685: 40,2354           44333                           CS       R1D1                                  
013913,000686: 40,2355           02363                           TC       SGNTST1                               
013914,000687: 40,2356           44334                           CS       R2D1                                  
013915,000688: 40,2357           02363                           TC       SGNTST1                               
013916,000689: 40,2360           44335                           CS       R3D1                                  
013917,000690: 40,2361           02363                           TC       SGNTST1                               
013918,000691: 40,2362           05217                           TC       ENDOFJOB                              #  NO MATCH FOUND.  SIGN ILLEGAL
013919,000692: 40,2363           60777        SGNTST1            AD       DSPCOUNT                              
013920,000693: 40,2364           00006                           EXTEND                                         
013921,000694: 40,2365           12367                           BZF      +2                                    #  MATCH FOUND
013922,000695: 40,2366           00002                           TC       Q                                     
013923,000696: 40,2367           00001                           TC       L                                     #  SIGN LEGAL
013924,000697: 
013925,000698:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
013926,000699:                                                                                                  #  NT XREG, YREG, ZREG IS CLEARED).  SUCCESSIVE CLEARS TAKE CARE OF EACH RX
013927,000700:                                                                                                  #  L/ RC UNTIL R1 IS DONE.  THEN NO FURTHER ACTION
013928,000701: 
013929,000702:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
013930,000703:                                                                                                  #  APPROPRIATE TO BE CLEARED.
013931,000704: 
013932,000705:                                                                                                  #  CLPASS        +0 PASS0, CAN BE BACKED UP
013933,000706:                                                                                                  #                +NZ HIPASS, CAN BE BACKED UP
013934,000707:                                                                                                  #                -NZ PASS0, CANNOT BE BACKED UP

Page 321

013936,000709: 40,2370           10777        CLEAR              CCS      DSPCOUNT                              
013937,000710: 40,2371           65017                           AD       ONE                                   
013938,000711: 40,2372           02374                           TC       +2                                    
013939,000712: 40,2373           65017                           AD       ONE                                   
013940,000713: 40,2374           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
013941,000714: 40,2375           32231                           CAF      INRELTAB                              #  FAIL LEGALTST.
013942,000715: 40,2376           54137                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
013943,000716: 40,2377           11015                           CCS      CLPASS                                
013944,000717: 40,2400           02406                           TC       CLPASHI                               #  +
013945,000718: 40,2401           02403                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
013946,000719: 40,2402           02403                           TC       +1                                    #  -
013947,000720: 40,2403           30137                           CA       INREL                                 
013948,000721: 40,2404           02430                           TC       LEGALTST                              
013949,000722: 40,2405           02423                           TC       CLEAR1                                
013950,000723: 40,2406           10137        CLPASHI            CCS      INREL                                 
013951,000724: 40,2407           54137                           TS       INREL                                 
013952,000725: 40,2410           02430                           TC       LEGALTST                              
013953,000726: 40,2411           32500                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
013954,000727: 40,2412           27013                           ADS      REQRET                                
013955,000728: 40,2413           30137                           CA       INREL                                 
013956,000729: 40,2414           54125                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
013957,000730: 40,2415           00006                           EXTEND                                         
013958,000731: 40,2416           27001                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
013959,000732: 40,2417           04662                           TC       BANKCALL                              
013960,000733: 40,2420           62340                           CADR     UPDATVB                               
013961,000734: 40,2421           30125                           CA       MIXTEMP                               
013962,000735: 40,2422           54137                           TS       INREL                                 #  RESTORE INREL
013963,000736: 40,2423           02426        CLEAR1             TC       CLR5                                  
013964,000737: 40,2424           25015                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
013965,000738: 40,2425           05217                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
013966,000739: 40,2426           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
013967,000740: 40,2427           02441                           TC       5BLANK     +2                         
013968,000741: 40,2430           67715        LEGALTST           AD       NEG2                                  
013969,000742: 40,2431           10000                           CCS      A                                     
013970,000743: 40,2432           00002                           TC       Q                                     #  LEGAL         INREL G/2
013971,000744: 40,2433           05747                           TC       CCSHOLE                               
013972,000745: 40,2434           05217                           TC       ENDOFJOB                              #  ILLEGAL       INREL=0,1
013973,000746: 40,2435           00002                           TC       Q                                     #  LEGAL         INREL=2
013974,000747: 
013975,000748:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3.  IT ALSO ZEROES XREG,
013976,000749:                                                                                                  #  YREG, OR ZREG.  PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
013977,000750:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
013978,000751: 
013979,000752: 40,2436           54777                           TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
013980,000753: 40,2437           22002        5BLANK             LXCH     Q                                     
013981,000754: 40,2440           02225                           TC       GETINREL                              
013982,000755: 40,2441           35021                           CAF      ZERO                                  
013983,000756: 40,2442           50137                           INDEX    INREL                                 
013984,000757: 40,2443           55001                           TS       VERBREG                               #  ZERO X, Y, Z REG.

Page 322

013986,000759: 40,2444           50137                           INDEX    INREL                                 
013987,000760: 40,2445           55004                           TS       XREGLP     -2                         
013988,000761: 40,2446           54124                           TS       CODE                                  
013989,000762: 40,2447           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
013990,000763: 40,2450           45011                           CS       BIT7                                  #  PROTECT OTHERS
013991,000764: 40,2451           71000                           MASK     DECBRNCH                              
013992,000765: 40,2452           72501                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
013993,000766: 40,2453           55000                           TS       DECBRNCH                              
013994,000767: 40,2454           50137                           INDEX    INREL                                 
013995,000768: 40,2455           32471                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
013996,000769: 40,2456           54143                           TS       COUNT                                 
013997,000770: 40,2457           03227                           TC       DSPIN                                 
013998,000771: 40,2460           50137        5BLANK1            INDEX    INREL                                 
013999,000772: 40,2461           32474                           CAF      DOUBLK     -2                         
014000,000773: 40,2462           54777                           TS       DSPCOUNT                              
014001,000774: 40,2463           02502                           TC       2BLANK                                
014002,000775: 40,2464           45016                           CS       TWO                                   
014003,000776: 40,2465           26777                           ADS      DSPCOUNT                              
014004,000777: 40,2466           02502                           TC       2BLANK                                
014005,000778: 40,2467           50137                           INDEX    INREL                                 
014006,000779: 40,2470           34331                           CAF      R1D1       -2                         
014007,000780: 40,2471           54777                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
014008,000781: 40,2472           00001                           TC       L                                     #  OF REG. JUST BLANKED
014009,000782: 
014010,000783: 40,2473           00016        SINBLANK           OCT      16                                    #  DEC 14
014011,000784: 40,2474           00005                           OCT      5                                     
014012,000785: 40,2475           00004                           OCT      4                                     
014013,000786: 40,2476           00015        DOUBLK             OCT      15                                    #  DEC 13
014014,000787: 40,2477           00011                           OCT      11                                    #  DEC 9
014015,000788: 40,2500           00003                           OCT      3                                     
014016,000789: 
014017,000790: 40,2501           77774        BRNCHCON           OCT      77774                                 
014018,000791: 
014019,000792:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
014020,000793:                                                                                                  #  DSPCOUNT.  THIS NUMBER IS LEFT IN DSPCOUNT
014021,000794: 
014022,000795: 40,2502           30777        2BLANK             CA       DSPCOUNT                              
014023,000796: 40,2503           54021                           TS       SR                                    
014024,000797: 40,2504           42515                           CS       BLANKCON                              
014025,000798: 40,2505           00004                           INHINT                                         
014026,000799: 40,2506           50021                           INDEX    SR                                    
014027,000800: 40,2507           57023                           XCH      DSPTAB                                
014028,000801: 40,2510           00006                           EXTEND                                         
014029,000802: 40,2511           62513                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
014030,000803: 40,2512           25016                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
014031,000804: 40,2513           00003                           RELINT                                         #  IF -, NOUT OK
014032,000805: 40,2514           00002                           TC       Q                                     
014033,000806: 40,2515           04000        BLANKCON           OCT      4000                                  
014034,000807: 

Page 323

014036,000809:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION.  HIGHER ORDER ENTERS ARE TO LOAD
014037,000810:                                                                                                  #  DATA.  THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
014038,000811:                                                                                                  #  PASSES.
014039,000812: 
014040,000813:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
014041,000814:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
014042,000815:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
014043,000816: 
014044,000817: 41,2000                                           BANK     41                                    
014045,000818: 41,2000                                           SETLOC   PINBALL2                              
014046,000819: 41,2000                                           BANK                                           
014047,000820: 
014048,000821: 41,2000                                           COUNT    41/PIN                                
014049,000822: 
014050,000823: 41,2000           03544        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS.  DONT MOVE.
014051,000824: 41,2001           02775        LOADLV1            TC       LOADLV                                
014052,000825: 
014053,000826:                                                                                                  #  END OF STANDARD LEAD INS.
014054,000827: 
014055,000828: 41,2002           35021        ENTER              CAF      ZERO                                  
014056,000829: 41,2003           55015                           TS       CLPASS                                
014057,000830: 41,2004           34233                           CAF      ENDINST                               
014058,000831: 41,2005           54136                           TS       ENTRET                                
014059,000832: 41,2006           11013                           CCS      REQRET                                
014060,000833: 41,2007           02035                           TC       ENTPAS0                               #  IF +, PASS 0
014061,000834: 41,2010           02035                           TC       ENTPAS0                               #  IF +, PASS 0
014062,000835: 41,2011           02012                           TC       +1                                    #  IF -, NOT PASS 0
014063,000836: 41,2012           32033        ENTPASHI           CAF      MMADREF                               
014064,000837: 41,2013           61013                           AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
014065,000838: 41,2014           00006                           EXTEND                                         #  AND RECYCLE (DECIDE AT MMCHANG+1).
014066,000839: 41,2015           12027                           BZF      ACCEPTWD                              
014067,000840: 41,2016           36214                           CAF      THREE                                 #  IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
014068,000841: 41,2017           71000                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
014069,000842: 41,2020           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
014070,000843: 41,2021           02023                           TC       +2                                    #  CHARACTERS AND CONTINUE.
014071,000844: 41,2022           02027                           TC       ACCEPTWD                              #  OCTAL.  ANY NUMBER OF CHAR OK.
014072,000845: 41,2023           10777                           CCS      DSPCOUNT                              
014073,000846: 41,2024           02351                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
014074,000847: 41,2025           02351                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
014075,000848: 41,2026           02027                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
014076,000849: 41,2027           41013        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
014077,000850: 41,2030           55013                           TS       REQRET                                #  SET REQRET +.
014078,000851: 41,2031           04447                           TC       FLASHOFF                              
014079,000852: 41,2032           01013                           TC       REQRET                                
014080,000853: 
014081,000854: 41,2033     0136               ENTEXIT            =        ENTRET                                
014082,000855: 
014083,000856: 41,2033           03431        MMADREF            ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
014084,000857: 

Page 324

014086,000859: 41,2034           00034        LOWVERB            DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
014087,000860: 
014088,000861: 41,2035           35021        ENTPAS0            CAF      ZERO                                  #  NOUN VERB SUB ENTERS HERE
014089,000862: 41,2036           55000                           TS       DECBRNCH                              
014090,000863: 41,2037           44374                           CS       VD1                                   #  BLOCK FURTHER NUM CHAR, SO THAT STRAY
014091,000864: 41,2040           54777                           TS       DSPCOUNT                              #  CHAR DO NOT GET INTO VERB OR NOUN LTS.
014092,000865: 41,2041           41001        TESTVB             CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
014093,000866: 41,2042           55041                           TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
014094,000867: 41,2043           62034                           AD       LOWVERB                               #  LOWVERB - VB
014095,000868: 41,2044           00006                           EXTEND                                         
014096,000869: 41,2045           62133                           BZMF     VERBFAN                               #  VERB G/ E LOWVERB
014097,000870: 41,2046           00006        TESTNN             EXTEND                                         #  VERB L/ LOWVERB
014098,000871: 41,2047           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014099,000872: 41,2050           52006                           DXCH     Z                                     #  ROUTINE.
014100,000873: 41,2051           50140                           INDEX    MIXBR                                 
014101,000874: 41,2052           02052                           TC       +0                                    
014102,000875: 41,2053           02055                           TC       +2                                    #  NORMAL
014103,000876: 41,2054           02221                           TC       MIXNOUN                               #  MIXED
014104,000877: 41,2055           10146                           CCS      NNADTEM                               #  NORMAL
014105,000878: 41,2056           02131                           TC       VERBFAN    -2                         #        NORMAL  IF +
014106,000879: 41,2057           02351                           TC       GODSPALM                              #  NOT IN USE    IF +0
014107,000880: 41,2060           02064                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
014108,000881: 41,2061           25017                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
014109,000882: 41,2062           04325                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
014110,000883: 41,2063           02120                           TC       INTMCTBS   +2                         
014111,000884: 41,2064           35001        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
014112,000885: 41,2065           55015                           TS       CLPASS                                
014113,000886: 41,2066           44233                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
014114,000887: 41,2067           60136                           AD       ENTEXIT                               #        FROM EXTERNAL
014115,000888: 41,2070           00006                           EXTEND                                         
014116,000889: 41,2071           12073                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
014117,000890: 41,2072           02116                           TC       INTMCTBS                              
014118,000891: 41,2073           02307                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
014119,000892: 41,2074           11000                           CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
014120,000893: 41,2075           04161                           TC       ALMCYCLE                              #  FOR MCTBS.
014121,000894: 41,2076           44374                           CS       VD1                                   #  OCTAL USED OK
014122,000895: 41,2077           54777                           TS       DSPCOUNT                              #  BLOCK NUM CHAR IN
014123,000896: 41,2100           11042                           CCS      CADRSTOR                              
014124,000897: 41,2101           02104                           TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
014125,000898: 41,2102           02105                           TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
014126,000899: 41,2103           02104                           TC       +1                                    
014127,000900: 41,2104           04443                           TC       FLASHON                               
014128,000901: 41,2105           57005        USEADD             XCH      ZREG                                  
014129,000902: 41,2106           04317                           TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SET EB, NOUNADD.
014130,000903: 41,2107           00006                           EXTEND                                         
014131,000904: 41,2110           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014132,000905: 41,2111           52006                           DXCH     Z                                     #  ROUTINE.
014133,000906: 41,2112           02133                           TC       VERBFAN                               
014134,000907: 
014135,000908: 41,2113     0777                                  EBANK=   DSPCOUNT                              

Page 325

014137,000910: 41,2113           02062 64101  LODNNLOC           2CADR    LODNNTAB                              
014138,000911: 
014139,000912: 41,2115           77772        NEG5               OCT      77772                                 
014140,000913: 
014141,000914: 41,2116           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
014142,000915: 41,2117           04317                           TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SET EB, NOUNADD.
014143,000916: 41,2120           45022                           CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
014144,000917: 41,2121           61001                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
014145,000918: 41,2122           00006                           EXTEND                                         
014146,000919: 41,2123           12133                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
014147,000920: 41,2124           34335                           CAF      R3D1                                  #  VB NOT = 05.  DISPLAY CADR.
014148,000921: 41,2125           54777                           TS       DSPCOUNT                              
014149,000922: 41,2126           31017                           CA       NOUNCADR                              
014150,000923: 41,2127           03363                           TC       DSPOCTWD                              
014151,000924: 41,2130           02133                           TC       VERBFAN                               
014152,000925: 
014153,000926: 41,2131           65017                           AD       ONE                                   
014154,000927: 41,2132           04317                           TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SETS EB, NOUNADD.
014155,000928: 41,2133           42145        VERBFAN            CS       LST2CON                               
014156,000929: 41,2134           61001                           AD       VERBREG                               #  VERB-LST2CON
014157,000930: 41,2135           10000                           CCS      A                                     
014158,000931: 41,2136           65017                           AD       ONE                                   #  VERB G/ LST2CON
014159,000932: 41,2137           02141                           TC       +2                                    
014160,000933: 41,2140           02146                           TC       VBFANDIR                              #  VERB L/ LST2CON
014161,000934: 41,2141           54154                           TS       MPAC                                  
014162,000935: 41,2142           04473                           TC       RELDSP                                #  RELEASE DISPLAY SYST
014163,000936: 41,2143           04701                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
014164,000937: 41,2144           66000                           CADR     GOEXTVB                               
014165,000938: 41,2145           00050        LST2CON            DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
014166,000939: 
014167,000940: 41,2146           51001        VBFANDIR           INDEX    VERBREG                               
014168,000941: 41,2147           32151                           CAF      VERBTAB                               
014169,000942: 41,2150           04704                           TC       BANKJUMP                              
014170,000943: 
014171,000944: 41,2151           62351        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
014172,000945: 41,2152           62365                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
014173,000946: 41,2153           62373                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
014174,000947: 41,2154           62400                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
014175,000948: 41,2155           62360                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
014176,000949: 41,2156           62353                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
014177,000950: 41,2157           62523                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
014178,000951: 41,2160           60677                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
014179,000952: 41,2161           62351                           CADR     GODSPALM                              #  VB08 SPARE
014180,000953: 41,2162           62351                           CADR     GODSPALM                              #  VB09 SPARE
014181,000954: 41,2163           61325                           CADR     DSPALARM                              #  VB10 SPARE
014182,000955: 41,2164           63230                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
014183,000956: 41,2165           63230                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
014184,000957: 41,2166           63230                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
014185,000958: 41,2167           63230                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)

Page 326

014187,000960: 41,2170           63230                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
014188,000961: 41,2171           63230                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
014189,000962: 41,2172           63230                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
014190,000963: 41,2173           62351                           CADR     GODSPALM                              #  VB18 SPARE
014191,000964: 41,2174           62351                           CADR     GODSPALM                              #  VB19 SPARE
014192,000965: 41,2175           62351                           CADR     GODSPALM                              #  VB20 SPARE
014193,000966: 41,2176           62732                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
014194,000967: 41,2177           62743                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
014195,000968: 41,2200           62760                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
014196,000969: 41,2201           62703                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
014197,000970: 41,2202           62616                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
014198,000971: 41,2203           62351                           CADR     GODSPALM                              #  VB26 SPARE
014199,000972: 41,2204           63353                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
014200,000973:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
014201,000974: 41,2205           62351                           CADR     GODSPALM                              #  VB28 SPARE
014202,000975: 41,2206           62351                           CADR     GODSPALM                              #  VB29 SPARE
014203,000976: 41,2207           63466        REQEXLQC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
014204,000977: 41,2210           63512                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
014205,000978: 41,2211           61364                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
014206,000979: 41,2212           61347                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
014207,000980: 41,2213           61355                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
014208,000981: 41,2214           63613                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
014209,000982: 41,2215           12342                           CADR     SLAP1                                 #  VB36 FRESH START
014210,000983: 41,2216           63430                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
014211,000984: 41,2217           62351                           CADR     GODSPALM                              #  VB38 SPARE
014212,000985: 41,2220           62351                           CADR     GODSPALM                              #  VB39 SPARE
014213,000986: 
014214,000987:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.

Page 327

014216,000989:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
014217,000990:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
014218,000991:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2.  IT SETS NOUNADD FOR
014219,000992:                                                                                                  #  MIXTEMP.
014220,000993: 
014221,000994: 41,2221           10146        MIXNOUN            CCS      NNADTEM                               
014222,000995: 41,2222           02226                           TC       +4                                    #  + IN USE
014223,000996: 41,2223           02351                           TC       GODSPALM                              #  +0 NOT IN USE
014224,000997: 41,2224           02226                           TC       +2                                    #  - IN USE
014225,000998: 41,2225           02226                           TC       +1                                    #  -0 IN USE
014226,000999: 41,2226           46211                           CS       SIX                                   
014227,001000: 41,2227           61001                           AD       VERBREG                               
014228,001001: 41,2230           00006                           EXTEND                                         
014229,001002: 41,2231           62233                           BZMF     +2                                    #  VERB L/E 6
014230,001003: 41,2232           02133                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
014231,001004: 41,2233           35016                           CAF      TWO                                   
014232,001005: 41,2234           54117        MIXNN1             TS       DECOUNT                               
014233,001006: 41,2235           62260                           AD       MIXAD                                 
014234,001007: 41,2236           54145                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP +K
014235,001008: 41,2237           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
014236,001009: 41,2240           30150                           CA       IDAD1TEM                              #  OF NOUN.
014237,001010: 41,2241           54122                           TS       NOUNTEM                               
014238,001011:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY).  IF SO, GET
014239,001012:                                                                                                  #        MINOR PART ONLY.
014240,001013: 41,2242           03034                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
014241,001014: 41,2243           02261                           TC       DPTEST                                
014242,001015: 41,2244           02246                           TC       MIXNN2                                #  NO DP
014243,001016: 41,2245           24122                           INCR     NOUNTEM                               #  DP GET MINOR PART
014244,001017: 41,2246           30122        MIXNN2             CA       NOUNTEM                               
014245,001018: 41,2247           74372                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1  FOR DP
014246,001019: 41,2250           04327                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
014247,001020: 41,2251           50000                           INDEX    A                                     #  PICK UP C(ESUBK) NOT DP
014248,001021: 41,2252           30000                           CA       0                                     #  OR C((ESUBK)+1) FOR DP MINOR PART
014249,001022: 41,2253           50145                           INDEX    NOUNADD                               
014250,001023: 41,2254           56000                           XCH      0                                     #  STORE IN MIXTEM + K
014251,001024: 41,2255           10117                           CCS      DECOUNT                               
014252,001025: 41,2256           02234                           TC       MIXNN1                                
014253,001026: 41,2257           02133                           TC       VERBFAN                               
014254,001027: 
014255,001028: 41,2260           00125        MIXAD              TC       MIXTEMP                               
014256,001029: 
014257,001030:                                                                                                  #  DPTEST        ENTER WITH SF ROUT NUMBER IN A.
014258,001031:                                                                                                  #                RETURNS TO L+1 IF NO DP.
014259,001032:                                                                                                  #                RETURNS TO L+2 IF DP.
014260,001033: 
014261,001034: 41,2261           50000        DPTEST             INDEX    A                                     
014262,001035: 41,2262           12263                           TCF      +1                                    
014263,001036: 41,2263           00002                           TC       Q                                     #  OCTAL ONLY NO DP
014264,001037: 41,2264           00002                           TC       Q                                     #  FRACT NO DP

Page 328

014266,001039: 41,2265           00002                           TC       Q                                     #  DEG NO DP
014267,001040: 41,2266           00002                           TC       Q                                     #  ARITH NO DP
014268,001041: 41,2267           12301                           TCF      DPTEST1                               #  DP1OUT
014269,001042: 41,2270           12301                           TCF      DPTEST1                               #  DP2OUT
014270,001043: 41,2271           00002                           TC       Q                                     #  OPDEG NO DP
014271,001044: 41,2272           12301                           TCF      DPTEST1                               #  DP3OUT
014272,001045: 41,2273           00002                           TC       Q                                     #  HMS NO DP
014273,001046: 41,2274           00002                           TC       Q                                     #  M/S NO DP
014274,001047: 41,2275           12301                           TCF      DPTEST1                               #  DP4OUT
014275,001048: 41,2276           00002                           TC       Q                                     #  ARITH1 NO DP
014276,001049: 41,2277           00002                           TC       Q                                     #  2INTOUT NO DP TO GET HI PART IN MPAC
014277,001050: 41,2300           12301                           TCF      DPTEST1                               #  DPFRACOT
014278,001051: 41,2301           50002        DPTEST1            INDEX    Q                                     
014279,001052: 41,2302           00001                           TC       1                                     #  RETURN TO L+2
014280,001053: 
014281,001054: 41,2303           34333        REQDATX            CAF      R1D1                                  
014282,001055: 41,2304           12310                           TCF      REQCOM                                
014283,001056: 41,2305           34334        REQDATY            CAF      R2D1                                  
014284,001057: 41,2306           12310                           TCF      REQCOM                                
014285,001058: 41,2307           34335        REQDATZ            CAF      R3D1                                  
014286,001059: 41,2310           54777        REQCOM             TS       DSPCOUNT                              
014287,001060: 41,2311           40002                           CS       Q                                     
014288,001061: 41,2312           55013                           TS       REQRET                                
014289,001062: 41,2313           04662                           TC       BANKCALL                              
014290,001063: 41,2314           60437                           CADR     5BLANK                                
014291,001064: 41,2315           04443                           TC       FLASHON                               
014292,001065: 41,2316           00136        ENDRQDAT           TC       ENTEXIT                               
014293,001066: 
014294,001067: 41,2317           55002                           TS       NOUNREG                               
014295,001068: 41,2320           56002        UPDATNN            XCH      Q                                     
014296,001069: 41,2321           54117                           TS       UPDATRET                              
014297,001070: 41,2322           00006                           EXTEND                                         
014298,001071: 41,2323           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014299,001072: 41,2324           52006                           DXCH     Z                                     #  ROUTINE.
014300,001073: 41,2325           10146                           CCS      NNADTEM                               
014301,001074: 41,2326           65017                           AD       ONE                                   #  NORMAL
014302,001075: 41,2327           12332                           TCF      PUTADD                                
014303,001076: 41,2330           12333                           TCF      PUTADD     +1                         #  MCTBS         DONT CHANGE NOUNADD
014304,001077: 41,2331           12333                           TCF      PUTADD     +1                         #  MCTBI         DONT CHANGE NOUNADD
014305,001078: 41,2332           04317        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SETS EB, NOUNADD.
014306,001079: 41,2333           34375                           CAF      ND1                                   
014307,001080: 41,2334           54777                           TS       DSPCOUNT                              
014308,001081: 41,2335           31002                           CA       NOUNREG                               
014309,001082: 41,2336           12345                           TCF      UPDAT1                                
014310,001083: 
014311,001084: 41,2337           55001                           TS       VERBREG                               
014312,001085: 41,2340           56002        UPDATVB            XCH      Q                                     
014313,001086: 41,2341           54117                           TS       UPDATRET                              
014314,001087: 41,2342           34374                           CAF      VD1                                   

Page 329

014316,001089: 41,2343           54777                           TS       DSPCOUNT                              
014317,001090: 41,2344           31001                           CA       VERBREG                               
014318,001091: 41,2345           04701        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN, SINCE
014319,001092: 41,2346           61224                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
014320,001093: 41,2347           00117                           TC       UPDATRET                              
014321,001094: 
014322,001095: 41,2350           04161        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
014323,001096: 
014324,001097: 41,2351           04701        GODSPALM           TC       POSTJUMP                              
014325,001098: 41,2352           61325                           CADR     DSPALARM                              
014326,001099: 

Page 330

014328,001101:                                                                                                  #  NOUN TABLES
014329,001102: 
014330,001103:                                                                                                  #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
014331,001104:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
014332,001105:                                                                                                  #  +0 INDICATES NOUN NOT USED.  - ENTRY INDICATES MACHINE CADR (E OR F) TO
014333,001106:                                                                                                  #  BE SPECIFIED.  -1 INDICATES CHANNEL TO BE SPECIFIED.  -0 INDICATES AUGMENT
014334,001107:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
014335,001108: 
014336,001109:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS (IDADDREL) IN LOW
014337,001110:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
014338,001111: 
014339,001112:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
014340,001113: 
014341,001114:                                                                                                  #  FOR THE NORMAL CASE,  M-S ARE THE COMPONENT CODE NUMBER.
014342,001115:                                                                                                  #                        N-S ARE THE SF ROUTINE CODE NUMBER.
014343,001116:                                                                                                  #                        P-S ARE THE SF CONSTANT CODE NUMBER.
014344,001117: 
014345,001118:                                                                                                  #  MIXED CASE,           M-S ARE THE SF CONSTANT3 CODE NUMBER    3 COMPONENT CASE
014346,001119:                                                                                                  #                        N-S ARE THE SF CONSTANT2 CODE NUMBER
014347,001120:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER
014348,001121:                                                                                                  #                        N-S ARE THE SF CONSTANT2 CODE NUMBER    2 COMPONENT CASE
014349,001122:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER
014350,001123:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER    1 COMPONENT CASE
014351,001124: 
014352,001125:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE (IDADDTAB) FOR MIXED CASE ONLY.
014353,001126:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.  IDADDREL IS THE RELATIVE ADDRESS OF
014354,001127:                                                                                                  #  THE FIRST OF THESE ENTRIES.
014355,001128: 
014356,001129:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
014357,001130:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
014358,001131: 
014359,001132:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE (RUTMXTAB) FOR MIXED
014360,001133:                                                                                                  #  CASE ONLY.  THERE IS ONE ENTRY PER MIXED NOUN.  THE FORM IS,
014361,001134: 
014362,001135:                                                                                                  #        QQQQQRRRRRSSSSS
014363,001136: 
014364,001137:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER          3 COMPONENT CASE
014365,001138:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
014366,001139:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
014367,001140:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER          2 COMPONENT CASE
014368,001141:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
014369,001142: 
014370,001143:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
014371,001144:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
014372,001145:                                                                                                  #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
014373,001146: 
014374,001147:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
014375,001148:                                                                                                  #  COMPONENT WORDS IS ALLOWED.  ALARM IF VIOLATION.
014376,001149: 
014377,001150:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
014378,001151:                                                                                                  #  BEFORE EACH ENTER.  IF NOT, ALARM.
014379,001152: 

Page 331

014381,001154:                                                                                                  #  DISPLAY VERBS
014382,001155: 
014383,001156: 41,2353           45016        DSPABC             CS       TWO                                   
014384,001157: 41,2354           02424                           TC       COMPTEST                              
014385,001158: 41,2355           50145                           INDEX    NOUNADD                               
014386,001159: 41,2356           40002                           CS       2                                     
014387,001160: 41,2357           56132                           XCH      BUF        +2                         
014388,001161: 41,2360           45017        DSPAB              CS       ONE                                   
014389,001162: 41,2361           02424                           TC       COMPTEST                              
014390,001163: 41,2362           50145                           INDEX    NOUNADD                               
014391,001164: 41,2363           40001                           CS       1                                     
014392,001165: 41,2364           56131                           XCH      BUF        +1                         
014393,001166: 41,2365           02443        DSPA               TC       DECTEST                               
014394,001167: 41,2366           02466                           TC       TSTFORDP                              
014395,001168: 41,2367           50145                           INDEX    NOUNADD                               
014396,001169: 41,2370           40000                           CS       0                                     
014397,001170: 41,2371           56130        DSPCOM1            XCH      BUF                                   
014398,001171: 41,2372           02405                           TC       DSPCOM2                               
014399,001172: 41,2373           45017        DSPB               CS       ONE                                   
014400,001173: 41,2374           02437                           TC       DCOMPTST                              
014401,001174: 41,2375           50145                           INDEX    NOUNADD                               
014402,001175: 41,2376           40001                           CS       1                                     
014403,001176: 41,2377           02371                           TC       DSPCOM1                               
014404,001177: 41,2400           45016        DSPC               CS       TWO                                   
014405,001178: 41,2401           02437                           TC       DCOMPTST                              
014406,001179: 41,2402           50145                           INDEX    NOUNADD                               
014407,001180: 41,2403           40002                           CS       2                                     
014408,001181: 41,2404           02371                           TC       DSPCOM1                               
014409,001182: 41,2405           45016        DSPCOM2            CS       TWO                                   #  A B C AB ABC
014410,001183: 41,2406           61001                           AD       VERBREG                               #  -1 -0 +1 +2 +3 IN A
014411,001184: 41,2407           10000                           CCS      A                                     #  +0 +0 +0 +1 +2 IN A AFTER CCS
014412,001185: 41,2410           02413                           TC       DSPCOM3                               
014413,001186: 41,2411           00136                           TC       ENTEXIT                               
014414,001187: 41,2412           02413                           TC       +1                                    
014415,001188: 41,2413           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
014416,001189: 41,2414           50000                           INDEX    A                                     
014417,001190: 41,2415           34333                           CAF      R1D1                                  
014418,001191: 41,2416           54777                           TS       DSPCOUNT                              
014419,001192: 41,2417           50122                           INDEX    DISTEM                                
014420,001193: 41,2420           40130                           CS       BUF                                   
014421,001194: 41,2421           03363                           TC       DSPOCTWD                              
014422,001195: 41,2422           56122                           XCH      DISTEM                                
014423,001196: 41,2423           02407                           TC       DSPCOM2    +2                         
014424,001197: 
014425,001198:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
014426,001199:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
014427,001200: 
014428,001201: 41,2424           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
014429,001202: 41,2425           22002                           LXCH     Q                                     
014430,001203: 41,2426           02515        COMPTST1           TC       GETCOMP                               
014431,001204: 41,2427           04345                           TC       LEFT5                                 
014432,001205: 41,2430           76214                           MASK     THREE                                 #  NOUN COMP

Page 332

014434,001207: 41,2431           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
014435,001208: 41,2432           10000                           CCS      A                                     
014436,001209: 41,2433           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
014437,001210: 41,2434           05747                           TC       CCSHOLE                               
014438,001211: 41,2435           02351                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
014439,001212: 41,2436           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
014440,001213: 
014441,001214:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
014442,001215:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
014443,001216: 
014444,001217: 41,2437           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
014445,001218: 41,2440           22002                           LXCH     Q                                     
014446,001219: 41,2441           02443                           TC       DECTEST                               
014447,001220: 41,2442           02426                           TC       COMPTST1                              
014448,001221: 
014449,001222: 41,2443           00006        DECTEST            EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
014450,001223: 41,2444           22156                           QXCH     MPAC       +2                         #  CODE NUMBER).  RETURNS IF NOT.
014451,001224: 41,2445           02515                           TC       GETCOMP                               
014452,001225: 41,2446           75002                           MASK     BIT14                                 
014453,001226: 41,2447           10000                           CCS      A                                     
014454,001227: 41,2450           02351                           TC       GODSPALM                              
014455,001228: 41,2451           00156                           TC       MPAC       +2                         
014456,001229: 
014457,001230: 41,2452           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
014458,001231: 41,2453           02515                           TC       GETCOMP                               #  (BIT4 OF COMP CODE NUMBER). RETURNS
014459,001232: 41,2454           75002                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
014460,001233: 41,2455           10000                           CCS      A                                     
014461,001234: 41,2456           04161                           TC       ALMCYCLE                              
014462,001235: 41,2457           00001                           TC       L                                     
014463,001236: 
014464,001237:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
014465,001238:                                                                                                  #  IF NOT, IT RETURNS.
014466,001239: 
014467,001240: 41,2460           22002        NOUNTEST           LXCH     Q                                     
014468,001241: 41,2461           02515                           TC       GETCOMP                               
014469,001242: 41,2462           10000                           CCS      A                                     
014470,001243: 41,2463           00001                           TC       L                                     
014471,001244: 41,2464           00001                           TC       L                                     
014472,001245: 41,2465           02351                           TC       GODSPALM                              
014473,001246: 
014474,001247: 41,2466           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP.  IF SO, GET MINOR PART ONLY.
014475,001248: 41,2467           30146                           CA       NNADTEM                               
014476,001249: 41,2470           65017                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
014477,001250: 41,2471           00006                           EXTEND                                         
014478,001251: 41,2472           12504                           BZF      CHANDSP                               
014479,001252: 41,2473           50140                           INDEX    MIXBR                                 
014480,001253: 41,2474           02474                           TC       +0                                    
014481,001254: 41,2475           02477                           TC       +2                                    #  NORMAL

Page 333

014483,001256: 41,2476           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
014484,001257: 41,2477           03026                           TC       SFRUTNOR                              
014485,001258: 41,2500           02261                           TC       DPTEST                                
014486,001259: 41,2501           00001                           TC       L                                     #  NO DP
014487,001260: 41,2502           24145                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
014488,001261: 41,2503           00001                           TC       L                                     
014489,001262: 
014490,001263: 41,2504           31017        CHANDSP            CA       NOUNCADR                              
014491,001264: 41,2505           75046                           MASK     LOW9                                  
014492,001265: 41,2506           00006                           EXTEND                                         
014493,001266: 41,2507           50000                           INDEX    A                                     
014494,001267: 41,2510           00000                           READ     0                                     
014495,001268: 41,2511           40000                           CS       A                                     
014496,001269: 41,2512           12371                           TCF      DSPCOM1                               
014497,001270: 
014498,001271: 41,2513           00147        COMPICK            ADRES    NNTYPTEM                              
014499,001272: 41,2514           00146                           ADRES    NNADTEM                               
014500,001273: 
014501,001274: 41,2515           50140        GETCOMP            INDEX    MIXBR                                 #        NORMAL                          MIXED
014502,001275: 41,2516           32512                           CAF      COMPICK    -1                         #        ADRES NNTYPTEM                  ADRES NNADTEM
014503,001276: 41,2517           50000                           INDEX    A                                     
014504,001277: 41,2520           30000                           CA       0                                     #        C(NNTYPTEM)                     C(NNADTEM)
014505,001278: 41,2521           74364                           MASK     HI5                                   #        GET HI5 OF NNTYPTAB (NORM)      OF NNADTAB (MIX)
014506,001279: 41,2522           00002                           TC       Q                                     
014507,001280: 
014508,001281: 41,2523           02515        DECDSP             TC       GETCOMP                               
014509,001282: 41,2524           04345                           TC       LEFT5                                 
014510,001283: 41,2525           76214                           MASK     THREE                                 
014511,001284: 41,2526           54117                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
014512,001285: 41,2527           54122        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
014513,001286: 41,2530           60145                           AD       NOUNADD                               #  DECTEM 1COMP +0, 2COMP +1, 3COMP +2
014514,001287: 41,2531           50000                           INDEX    A                                     
014515,001288: 41,2532           40000                           CS       0                                     
014516,001289: 41,2533           50122                           INDEX    DECTEM                                
014517,001290: 41,2534           57003                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
014518,001291: 41,2535           10122                           CCS      DECTEM                                
014519,001292: 41,2536           02527                           TC       DSPDCGET                              #  MORE TO GET
014520,001293: 41,2537           35021        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
014521,001294: 41,2540           54155                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
014522,001295: 41,2541           54156                           TS       MPAC       +2                         
014523,001296: 41,2542           50117                           INDEX    DECOUNT                               
014524,001297: 41,2543           34333                           CAF      R1D1                                  
014525,001298: 41,2544           54777                           TS       DSPCOUNT                              
014526,001299: 41,2545           50117                           INDEX    DECOUNT                               
014527,001300: 41,2546           41003                           CS       XREG                                  
014528,001301: 41,2547           54154                           TS       MPAC                                  
014529,001302: 41,2550           03047                           TC       SFCONUM                               #  2X (SF CON NUMB) IN A

Page 334

014531,001304: 41,2551           54123                           TS       SFTEMP1                               
014532,001305: 41,2552           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
014533,001306: 41,2553           32565                           DCA      GTSFOUTL                              #        READING ROUTINE.
014534,001307: 41,2554           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
014535,001308: 41,2555           50140                           INDEX    MIXBR                                 
014536,001309: 41,2556           02556                           TC       +0                                    
014537,001310: 41,2557           02562                           TC       DSPSFNOR                              
014538,001311: 41,2560           03034                           TC       SFRUTMIX                              
014539,001312: 41,2561           02575                           TC       DECDSP3                               
014540,001313: 
014541,001314: 41,2562           03026        DSPSFNOR           TC       SFRUTNOR                              
014542,001315: 41,2563           02575                           TC       DECDSP3                               
014543,001316: 
014544,001317: 41,2564     0777                                  EBANK=   DSPCOUNT                              
014545,001318: 41,2564           02120 64101  GTSFOUTL           2CADR    GTSFOUT                               
014546,001319: 
014547,001320: 41,2566           04662        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
014548,001321: 41,2567           61133                           CADR     DSPDECWD                              
014549,001322: 41,2570           10117                           CCS      DECOUNT                               
014550,001323: 41,2571           02573                           TC       +2                                    
014551,001324: 41,2572           00136                           TC       ENTEXIT                               
014552,001325: 41,2573           54117                           TS       DECOUNT                               
014553,001326: 41,2574           02537                           TC       DSPDCPUT                              #  MORE TO DISPLAY
014554,001327: 
014555,001328: 41,2575           50000        DECDSP3            INDEX    A                                     
014556,001329: 41,2576           32600                           CAF      SFOUTABR                              
014557,001330: 41,2577           04704                           TC       BANKJUMP                              
014558,001331: 
014559,001332: 41,2600           61323        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
014560,001333: 41,2601           62566                           CADR     DSPDCEND                              
014561,001334: 41,2602           60516                           CADR     DEGOUTSF                              
014562,001335: 41,2603           60603                           CADR     ARTOUTSF                              
014563,001336: 41,2604           60614                           CADR     DP1OUTSF                              
014564,001337: 41,2605           60621                           CADR     DP2OUTSF                              
014565,001338: 41,2606           60524                           CADR     OPDEGOUT                              
014566,001339: 41,2607           60623                           CADR     DP3OUTSF                              
014567,001340: 41,2610           65143                           CADR     HMSOUT                                
014568,001341: 41,2611           65216                           CADR     M/SOUT                                
014569,001342: 41,2612           60621                           CADR     DP2OUTSF                              
014570,001343: 41,2613           60610                           CADR     AROUT1SF                              
014571,001344: 41,2614           60636                           CADR     2INTOUT                               
014572,001345: 41,2615           60653                           CADR     DPFRACOT                              
014573,001346: 41,2616                        ENDRTOUT           EQUALS                                         
014574,001347: 
014575,001348:                                                                                                  #  THE FOLLOWING IS ATYPICAL SF ROUTINE.  IT USES MPAC.  LEAVES RESU
014576,001349:                                                                                                  #  LTS IN MPAC, MPAC+1.  ENDS WITH TC DSPDCEND
014577,001350: 

Page 335

014579,001352: 
014580,001353: 40,2516                                           SETLOC   BLANKCON   +1                         
014581,001354: 
014582,001355: 40,2516                                           COUNT    40/PIN                                
014583,001356:                                                                                                  #  DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
014584,001357:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
014585,001358: 
014586,001359: 40,2516           35021        DEGOUTSF           CAF      ZERO                                  
014587,001360: 40,2517           54156                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
014588,001361: 40,2520           02555                           TC       FIXRANGE                              
014589,001362: 40,2521           02523                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
014590,001363: 40,2522           02550                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
014591,001364: 40,2523           02566                           TC       DEGCOM                                
014592,001365: 
014593,001366:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
014594,001367: 
014595,001368: 40,2524           10154        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
014596,001369: 40,2525           56154                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
014597,001370: 40,2526           02531                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
014598,001371: 40,2527           02540                           TC       NEGOPT                                #  IF NEG NON ZERO
014599,001372: 40,2530           67716                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
014600,001373: 40,2531           62602                           AD       20BIAS                                
014601,001374: 40,2532           54154        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
014602,001375: 40,2533           02536                           TC       +3                                    #  NO OVFLOW
014603,001376: 40,2534           35001                           CAF      BIT15                                 #  IF OVFLOW
014604,001377: 40,2535           26154                           ADS      MPAC                                  
014605,001378: 40,2536           35016                           CAF      TWO                                   #  SET MULTIPLIER TO .45
014606,001379: 40,2537           02517                           TC       DEGOUTSF   +1                         
014607,001380: 
014608,001381: 40,2540           56154        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
014609,001382: 40,2541           62602                           AD       20BIAS                                
014610,001383: 40,2542           10000                           CCS      A                                     
014611,001384: 40,2543           02532                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
014612,001385: 40,2544           05747                           TC       CCSHOLE                               
014613,001386: 40,2545           65017                           AD       ONE                                   #  IF NEG RESTORE SUM
014614,001387: 40,2546           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
014615,001388: 40,2547           02532                           TC       BIASCOM                               
014616,001389: 
014617,001390: 40,2550           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
014618,001391: 40,2551           50156                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
014619,001392: 40,2552           32577                           DCA      DEGTAB                                
014620,001393: 40,2553           52124                           DXCH     SFTEMP1                               
014621,001394: 40,2554           00002                           TC       Q                                     
014622,001395: 
014623,001396: 40,2555           10154        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
014624,001397: 40,2556           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
014625,001398: 40,2557           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
014626,001399: 40,2560           12561                           TCF      +1                                    
014627,001400: 40,2561           45001                           CS       BIT15                                 
014628,001401: 40,2562           70154                           MASK     MPAC                                  

Page 336

014630,001403: 40,2563           54154                           TS       MPAC                                  
014631,001404: 40,2564           50002                           INDEX    Q                                     
014632,001405: 40,2565           00001                           TC       1                                     
014633,001406: 
014634,001407: 40,2566           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
014635,001408: 40,2567           50156                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
014636,001409: 40,2570           32577                           DCA      DEGTAB                                
014637,001410: 40,2571           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
014638,001411: 40,2572           07256                           TC       SHORTMP                               
014639,001412: 40,2573           52124                           DXCH     SFTEMP1                               
014640,001413: 40,2574           20155                           DAS      MPAC                                  
014641,001414: 40,2575           02606                           TC       SCOUTEND                              
014642,001415: 
014643,001416: 40,2576           05605        DEGTAB             OCT      05605                                 #  HI PART OF    .18
014644,001417: 40,2577           03656                           OCT      03656                                 #  LOW PART OF   .18
014645,001418: 40,2600           16314                           OCT      16314                                 #  HI PART OF    .45
014646,001419: 40,2601           31463                           OCT      31463                                 #  LO PART OF    .45
014647,001420: 
014648,001421: 40,2602           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
014649,001422: 
014650,001423: 40,2603           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
014651,001424: 40,2604           52155                           DXCH     MPAC                                  
014652,001425: 40,2605           04431                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014653,001426: 40,2606           04701        SCOUTEND           TC       POSTJUMP                              
014654,001427: 40,2607           62566                           CADR     DSPDCEND                              
014655,001428: 
014656,001429: 40,2610           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
014657,001430: 40,2611           52155                           DXCH     MPAC                                  #  DP SFCON.  SHIFTS RESULTS LEFT 14, BY
014658,001431: 40,2612           04431                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
014659,001432: 40,2613           02615                           TC       L14/OUT                               
014660,001433: 
014661,001434: 40,2614           02627        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
014662,001435: 40,2615           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
014663,001436: 40,2616           56155                           XCH      MPAC       +1                         #  BY B14.
014664,001437: 40,2617           54154                           TS       MPAC                                  
014665,001438: 40,2620           02606                           TC       SCOUTEND                              
014666,001439: 
014667,001440: 40,2621           02627        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
014668,001441: 40,2622           02606                           TC       SCOUTEND                              
014669,001442: 
014670,001443: 40,2623           02627        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
014671,001444: 40,2624           36211                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
014672,001445: 40,2625           03060                           TC       TPLEFTN                               #  SHIFT LEFT 7.
014673,001446: 40,2626           02606                           TC       SCOUTEND                              
014674,001447: 

Page 337

014676,001449: 
014677,001450: 40,2627     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
014678,001451: 
014679,001452: 40,2627           56002        DPOUT              XCH      Q                                     
014680,001453: 40,2630           54162                           TS       MPAC+6                                
014681,001454: 40,2631           02655                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
014682,001455: 40,2632           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
014683,001456: 40,2633           07052                           TC       DMP                                   
014684,001457: 40,2634           00123                           ADRES    SFTEMP1                               
014685,001458: 40,2635           00162                           TC       MPAC+6                                
014686,001459: 
014687,001460:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
014688,001461:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
014689,001462:                                                                                                  #  BLANKED).  THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
014690,001463:                                                                                                  #  RXD1-RXD2.
014691,001464: 
014692,001465: 40,2636           02437        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
014693,001466: 40,2637           02314                           TC       +ON                                   #  TURN ON + SIGN
014694,001467: 40,2640           30154                           CA       MPAC                                  
014695,001468: 40,2641           03213                           TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
014696,001469: 40,2642           46214                           CS       THREE                                 
014697,001470: 40,2643           50117                           INDEX    DECOUNT                               
014698,001471: 40,2644           64333                           AD       R1D1                                  #  RXD4
014699,001472: 40,2645           54777                           TS       DSPCOUNT                              
014700,001473: 40,2646           02655                           TC       READLO                                #  GET 2ND INTEGER
014701,001474: 40,2647           30155                           CA       MPAC       +1                         
014702,001475: 40,2650           03213                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
014703,001476: 40,2651           04701                           TC       POSTJUMP                              
014704,001477: 40,2652           62570                           CADR     DSPDCEND   +2                         
014705,001478: 
014706,001479: 40,2653           02655        DPFRACOT           TC       READLO                                #  DP FRACTION TO MPAC,+1
014707,001480: 40,2654           02606                           TC       SCOUTEND                              
014708,001481: 
014709,001482:                                                                                                  #  READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN 
014710,001483:                                                                                                  #  MPAC, MPAC+1.  THIS IS NEEDED FOR TIME DISPLAY.  IT ZEROES MPAC+2, BUT
014711,001484:                                                                                                  #  DOES NOT FORCE TPAGREE.
014712,001485: 
014713,001486: 40,2655           56002        READLO             XCH      Q                                     
014714,001487: 40,2656           54144                           TS       TEM4                                  
014715,001488: 40,2657           50140                           INDEX    MIXBR                                 
014716,001489: 40,2660           02660                           TC       +0                                    
014717,001490: 40,2661           02675                           TC       RDLONOR                               
014718,001491: 40,2662           50117                           INDEX    DECOUNT                               
014719,001492: 40,2663           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
014720,001493: 40,2664           74372                           MASK     LOW11                                 #  E SUBK
014721,001494: 40,2665           04327                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
014722,001495: 40,2666           00006        READLO1            EXTEND                                         #  MIXED                         NORMAL
014723,001496: 40,2667           50000                           INDEX    A                                     #  C(ESUBK)                      C(E)
014724,001497: 40,2670           30001                           DCA      0                                     #  C((E SUBK)+1)                 C(E+1)
014725,001498: 40,2671           52155                           DXCH     MPAC                                  

Page 338

014727,001500: 40,2672           35021                           CAF      ZERO                                  
014728,001501: 40,2673           54156                           TS       MPAC       +2                         
014729,001502: 40,2674           00144                           TC       TEM4                                  
014730,001503: 
014731,001504: 40,2675           30145        RDLONOR            CA       NOUNADD                               #  E
014732,001505: 40,2676           02666        ENDRDLO            TC       READLO1                               
014733,001506: 
014734,001507: 42,3143                                           BANK     42                                    
014735,001508: 42,2000                                           SETLOC   PINBALL3                              
014736,001509: 42,2000                                           BANK                                           
014737,001510: 
014738,001511: 42,3143                                           COUNT    42/PIN                                
014739,001512: 
014740,001513: 42,3143           04662        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
014741,001514: 42,3144           60655                           CADR     READLO                                #  MPAC+1.
014742,001515: 42,3145           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
014743,001516: 42,3146           03332                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.  LEAVE
014744,001517:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014745,001518: 42,3147           07052                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
014746,001519: 42,3150           03204                           ADRES    SECON2                                #  MULT BY .06
014747,001520: 42,3151           34335                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
014748,001521: 42,3152           54777                           TS       DSPCOUNT                              
014749,001522: 42,3153           04662                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
014750,001523: 42,3154           61133                           CADR     DSPDECWD                              
014751,001524: 42,3155           03350                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
014752,001525: 42,3156           33206                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1.  LEAVE
014753,001526: 42,3157           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
014754,001527: 42,3160           55007                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
014755,001528: 42,3161           33207                           CAF      MINCON2    +1                         
014756,001529: 42,3162           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
014757,001530: 42,3163           04431                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014758,001531:                                                                                                  #  MULT BY .0006
014759,001532: 42,3164           34334                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
014760,001533: 42,3165           54777                           TS       DSPCOUNT                              
014761,001534: 42,3166           04662                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
014762,001535: 42,3167           61133                           CADR     DSPDECWD                              
014763,001536: 42,3170           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
014764,001537: 42,3171           33213                           DCA      HRCON1                                
014765,001538: 42,3172           52155                           DXCH     MPAC                                  
014766,001539: 42,3173           31007                           CA       HITEMOUT                              #  USE WHOLE HOURS
014767,001540: 42,3174           04431                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014768,001541:                                                                                                  #  MULT BY .16384
014769,001542: 42,3175           34333                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
014770,001543: 42,3176           54777                           TS       DSPCOUNT                              
014771,001544: 42,3177           04662                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
014772,001545: 42,3200           61133                           CADR     DSPDECWD                              
014773,001546: 42,3201           00136                           TC       ENTEXIT                               
014774,001547: 
014775,001548: 42,3202           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000

Page 339

014777,001550: 42,3204           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
014778,001551: 42,3205           01217                           OCT      01217                                 
014779,001552: 42,3206           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
014780,001553: 42,3207           32445                           OCT      32445                                 
014781,001554: 42,3210           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
014782,001555: 42,3211           10422                           OCT      10422                                 
014783,001556: 42,3212           05174 13261  HRCON1             2DEC     .16384                                
014784,001557: 42,3214           00000                           OCT      00000                                 
014785,001558: 42,3215           00062        RNDCON             OCT      00062                                 #  .5 SEC
014786,001559: 
014787,001560: 42,3216           04662        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
014788,001561: 42,3217           60655                           CADR     READLO                                #  MPAC+1.
014789,001562: 42,3220           07226                           TC       TPAGREE                               #  MAKE DP DATA AGREE
014790,001563: 42,3221           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
014791,001564: 42,3222           03224                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
014792,001565: 42,3223           03255                           TC       M/SNORM                               #  MPAC = +0.  L/ 59M58.5S
014793,001566: 42,3224           63312                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1 FOR CCS
014794,001567: 42,3225           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
014795,001568: 42,3226           03241                           TC       M/SLIMIT                              #  G/ 59M58.5S
014796,001569: 42,3227           03255                           TC       M/SNORM                               #  ORIGINAL MPAC = -0.  L/59M58.5S
014797,001570: 42,3230           03255                           TC       M/SNORM                               #  L/ 59M58.5S
014798,001571: 42,3231           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
014799,001572: 42,3232           03234                           TC       +2                                    
014800,001573: 42,3233           03255                           TC       M/SNORM                               #  MPAC+1 = +0.  L/ 59M58.5S
014801,001574: 42,3234           63313                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1 FOR CCS
014802,001575: 42,3235           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
014803,001576: 42,3236           03241                           TC       M/SLIMIT                              #  G/ 59M58.5S
014804,001577: 42,3237           03255                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0.  L/ 59M58.5S
014805,001578: 42,3240           03255                           TC       M/SNORM                               #  L/ 59M58.5S
014806,001579: 42,3241           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
014807,001580: 42,3242           33315                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
014808,001581: 42,3243           03252                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
014809,001582: 42,3244           43315                           CS       M/SCON3                               
014810,001583: 42,3245           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
014811,001584: 42,3246           43316                           CS       M/SCON3    +1                         
014812,001585: 42,3247           54155        LIMITCOM           TS       MPAC       +1                         
014813,001586: 42,3250           33314                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
014814,001587: 42,3251           03333                           TC       SEPSECNR   +1                         
014815,001588: 42,3252           54154        +LIMIT             TS       MPAC                                  
014816,001589: 42,3253           33316                           CAF      M/SCON3    +1                         
014817,001590: 42,3254           03247                           TC       LIMITCOM                              
014818,001591: 42,3255           03317        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1.  LEAVE
014819,001592:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014820,001593: 42,3256           33310                           CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
014821,001594: 42,3257           07256                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
014822,001595: 42,3260           46214                           CS       THREE                                 #  GIVES SEC/100 MOD 60
014823,001596: 42,3261           26777                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
014824,001597: 42,3262           04662                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.

Page 340

014826,001599: 42,3263           61173                           CADR     DSPDC2NR                              
014827,001600: 42,3264           35021                           CAF      ZERO                                  
014828,001601: 42,3265           54124                           TS       CODE                                  
014829,001602: 42,3266           45016                           CS       TWO                                   
014830,001603: 42,3267           50117                           INDEX    DECOUNT                               
014831,001604: 42,3270           64333                           AD       R1D1                                  #  RXD3
014832,001605: 42,3271           54143                           TS       COUNT                                 
014833,001606: 42,3272           04662                           TC       BANKCALL                              #  BLANK MIDDLE CHAR
014834,001607: 42,3273           61227                           CADR     DSPIN                                 
014835,001608: 42,3274           03350                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
014836,001609: 42,3275           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
014837,001610: 42,3276           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
014838,001611: 42,3277           73311                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
014839,001612: 42,3300           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
014840,001613: 42,3301           50117                           INDEX    DECOUNT                               
014841,001614: 42,3302           34333                           CAF      R1D1                                  #  RXD1
014842,001615: 42,3303           54777                           TS       DSPCOUNT                              
014843,001616: 42,3304           04662                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
014844,001617: 42,3305           61173                           CADR     DSPDC2NR                              
014845,001618: 42,3306           04701                           TC       POSTJUMP                              
014846,001619: 42,3307           62570                           CADR     DSPDCEND   +2                         
014847,001620: 
014848,001621: 42,3310           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
014849,001622: 42,3311           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
014850,001623: 
014851,001624: 42,3312           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
014852,001625: 42,3313           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
014853,001626: 42,3314           03256        NORMADR            ADRES    M/SNORM    +1                         
014854,001627: 42,3315           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
014855,001628: 42,3316           37016                           OCT      37016                                 
014856,001629: 
014857,001630: 42,3317           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
014858,001631: 42,3320           13327                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
014859,001632: 42,3321           13327                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
014860,001633: 42,3322           13323                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
014861,001634: 42,3323           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
014862,001635: 42,3324           43215                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
014863,001636: 42,3325           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
014864,001637: 42,3326           13332                           TCF      SEPSECNR                              
014865,001638: 42,3327           00006        POSEC              EXTEND                                         
014866,001639: 42,3330           33215                           DCA      RNDCON     -1                         
014867,001640: 42,3331           13325                           TCF      SEPSEC1                               
014868,001641: 42,3332           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
014869,001642: 42,3333           54144                           TS       SEPSCRET                              
014870,001643: 42,3334           07052                           TC       DMP                                   #  MULT BY 2EXP12/6000
014871,001644: 42,3335           03202                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
014872,001645: 42,3336           00006                           EXTEND                                         #  AND BELOW.
014873,001646: 42,3337           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
014874,001647: 42,3340           53010                           DXCH     HITEMOUT                              

Page 341

014876,001649: 42,3341           04420                           TC       TPSL1                                 
014877,001650: 42,3342           04420                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
014878,001651: 42,3343           35021                           CAF      ZERO                                  
014879,001652: 42,3344           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
014880,001653: 42,3345           56155                           XCH      MPAC       +1                         
014881,001654: 42,3346           56154                           XCH      MPAC                                  
014882,001655: 42,3347           00144                           TC       SEPSCRET                              
014883,001656: 
014884,001657: 42,3350           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
014885,001658: 42,3351           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
014886,001659: 42,3352           31010                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
014887,001660: 42,3353           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
014888,001661: 42,3354           75015                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
014889,001662: 42,3355           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
014890,001663: 42,3356           75003                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
014891,001664: 42,3357           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
014892,001665:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
014893,001666: 42,3360           31007                           CA       HITEMOUT                              
014894,001667: 42,3361           54154                           TS       MPAC                                  
014895,001668: 42,3362           07052                           TC       DMP                                   #  MULT BY 1/15
014896,001669: 42,3363           03210                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
014897,001670: 42,3364           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
014898,001671: 
014899,001672:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
014900,001673:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
014901,001674:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS.  IT DISPLAYS THE CONTENTS
014902,001675:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO.  IF USED WITH NOUNS WHICH ARE
014903,001676:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
014904,001677:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
014905,001678: 
014906,001679: 40,2677                                           SETLOC   ENDRDLO    +1                         
014907,001680: 
014908,001681: 40,2677                                           COUNT    40/PIN                                
014909,001682: 
014910,001683: 40,2677           50140        DSPDPDEC           INDEX    MIXBR                                 
014911,001684: 40,2700           02700                           TC       +0                                    
014912,001685: 40,2701           02703                           TC       +2                                    #  NORMAL NOUN
014913,001686: 40,2702           03325                           TC       DSPALARM                              
014914,001687: 40,2703           00006                           EXTEND                                         
014915,001688: 40,2704           50145                           INDEX    NOUNADD                               
014916,001689: 40,2705           30001                           DCA      0                                     
014917,001690: 40,2706           52155                           DXCH     MPAC                                  
014918,001691: 40,2707           34333                           CAF      R1D1                                  
014919,001692: 40,2710           54777                           TS       DSPCOUNT                              
014920,001693: 40,2711           35021                           CAF      ZERO                                  
014921,001694: 40,2712           54156                           TS       MPAC       +2                         
014922,001695: 40,2713           07226                           TC       TPAGREE                               

Page 342

014924,001697: 40,2714           03200                           TC       DSP2DEC                               
014925,001698: 40,2715           00136        ENDDPDEC           TC       ENTEXIT                               
014926,001699: 

Page 343

014928,001701: 
014929,001702:                                                                                                  #  LOAD VERBS            IF ALARM CONDITION IS DETECTED DURING EXECUTE,
014930,001703:                                                                                                  #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB.  IF ALARM CONDITION IS
014931,001704:                                                                                                  #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
014932,001705:                                                                                                  #  TO EXECUTE OF ORIGINAL LOAD VERB.  RECYCLE CAUSED BY          1) DECIMAL MACHINE
014933,001706:                                                                                                  #  CADR          2) MIXTURE OF OCTAL/DECIMAL DATA        3) OCTAL DATA INTO DECIMAL
014934,001707:                                                                                                  #  ONLY NOUN     4) DEC DATA INTO OCT ONLY NOUN          5) DATA TOO LARGE FOR SCALE
014935,001708:                                                                                                  #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8  (2)-(6) ALARM
014936,001709:                                                                                                  #  AND RECYCLE OCCUR AT FINAL ENTER OF SET.      (1) ALARM AND RECYCLE OCCUR AT
014937,001710:                                                                                                  #  ENTER OF CADR.
014938,001711: 
014939,001712: 41,2616                                           SETLOC   ENDRTOUT                              
014940,001713: 
014941,001714: 41,2616                                           COUNT    41/PIN                                
014942,001715: 
014943,001716: 41,2616           45016        ABCLOAD            CS       TWO                                   
014944,001717: 41,2617           02424                           TC       COMPTEST                              
014945,001718: 41,2620           02460                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
014946,001719: 41,2621           33006                           CAF      VBSP1LD                               
014947,001720: 41,2622           02337                           TC       UPDATVB    -1                         
014948,001721: 41,2623           02303                           TC       REQDATX                               
014949,001722: 41,2624           33007                           CAF      VBSP2LD                               
014950,001723: 41,2625           02337                           TC       UPDATVB    -1                         
014951,001724: 41,2626           02305                           TC       REQDATY                               
014952,001725: 41,2627           33010                           CAF      VBSP3LD                               
014953,001726: 41,2630           02337                           TC       UPDATVB    -1                         
014954,001727: 41,2631           02307                           TC       REQDATZ                               
014955,001728: 
014956,001729: 41,2632           46211        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
014957,001730: 41,2633           03011                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
014958,001731: 41,2634           00006                           EXTEND                                         
014959,001732: 41,2635           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
014960,001733: 41,2636           52006                           DXCH     Z                                     #  ROUTINE.
014961,001734: 41,2637           35021                           CAF      ZERO                                  #  X COMP
014962,001735: 41,2640           03075                           TC       PUTCOM                                
014963,001736: 41,2641           50145                           INDEX    NOUNADD                               
014964,001737: 41,2642           54000                           TS       0                                     
014965,001738: 41,2643           35017                           CAF      ONE                                   #  Y COMP
014966,001739: 41,2644           03075                           TC       PUTCOM                                
014967,001740: 41,2645           50145                           INDEX    NOUNADD                               
014968,001741: 41,2646           54001                           TS       1                                     
014969,001742: 41,2647           35016                           CAF      TWO                                   #  Z COMP
014970,001743: 41,2650           03075                           TC       PUTCOM                                
014971,001744: 41,2651           50145                           INDEX    NOUNADD                               
014972,001745: 41,2652           54002                           TS       2                                     
014973,001746: 41,2653           45023                           CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
014974,001747: 41,2654           61002                           AD       NOUNREG                               #  FLAG BITS AS SPECIFIED.
014975,001748: 41,2655           00006                           EXTEND                                         
014976,001749: 41,2656           12660                           BZF      +2                                    

Page 344

014978,001751: 41,2657           02775                           TC       LOADLV                                
014979,001752: 41,2660           31003                           CA       XREG                                  #  ECADR OF FLAG WORD.
014980,001753: 41,2661           04320                           TC       SETNCADR   +1                         #  SET EBANK, NOUNADD.
014981,001754: 41,2662           31005                           CA       ZREG                                  #  ZERO TO RESET BITS, NON-ZERO TO SET BITS
014982,001755: 41,2663           00004                           INHINT                                         
014983,001756: 41,2664           00006                           EXTEND                                         
014984,001757: 41,2665           12674                           BZF      BITSOFF                               
014985,001758: 41,2666           50145                           INDEX    NOUNADD                               
014986,001759: 41,2667           40000                           CS       0                                     
014987,001760: 41,2670           71004                           MASK     YREG                                  #  BITS TO BE PROCESSED.
014988,001761: 41,2671           50145                           INDEX    NOUNADD                               
014989,001762: 41,2672           26000                           ADS      0                                     #  SET BITS.
014990,001763: 41,2673           02701                           TC       BITSOFF1                              
014991,001764: 
014992,001765: 41,2674           41004        BITSOFF            CS       YREG                                  #  BITS TO BE PROCESSED.
014993,001766: 41,2675           50145                           INDEX    NOUNADD                               
014994,001767: 41,2676           70000                           MASK     0                                     
014995,001768: 41,2677           50145                           INDEX    NOUNADD                               
014996,001769: 41,2700           54000                           TS       0                                     #  RESET BITS.
014997,001770: 41,2701           00003        BITSOFF1           RELINT                                         
014998,001771: 41,2702           02775                           TC       LOADLV                                
014999,001772: 
015000,001773: 41,2703           45017        ABLOAD             CS       ONE                                   
015001,001774: 41,2704           02424                           TC       COMPTEST                              
015002,001775: 41,2705           02460                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
015003,001776: 41,2706           33006                           CAF      VBSP1LD                               
015004,001777: 41,2707           02337                           TC       UPDATVB    -1                         
015005,001778: 41,2710           02303                           TC       REQDATX                               
015006,001779: 41,2711           33007                           CAF      VBSP2LD                               
015007,001780: 41,2712           02337                           TC       UPDATVB    -1                         
015008,001781: 41,2713           02305                           TC       REQDATY                               
015009,001782: 41,2714           45022        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
015010,001783: 41,2715           03011                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
015011,001784: 41,2716           00006                           EXTEND                                         
015012,001785: 41,2717           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015013,001786: 41,2720           52006                           DXCH     Z                                     #  ROUTINE.
015014,001787: 41,2721           35021                           CAF      ZERO                                  #  X COMP
015015,001788: 41,2722           03075                           TC       PUTCOM                                
015016,001789: 41,2723           50145                           INDEX    NOUNADD                               
015017,001790: 41,2724           54000                           TS       0                                     
015018,001791: 41,2725           35017                           CAF      ONE                                   #  Y COMP
015019,001792: 41,2726           03075                           TC       PUTCOM                                
015020,001793: 41,2727           50145                           INDEX    NOUNADD                               
015021,001794: 41,2730           54001                           TS       1                                     
015022,001795: 41,2731           02775                           TC       LOADLV                                
015023,001796: 
015024,001797: 41,2732           02303        ALOAD              TC       REQDATX                               
015025,001798: 41,2733           00006                           EXTEND                                         
015026,001799: 41,2734           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015027,001800: 41,2735           52006                           DXCH     Z                                     #  ROUTINE.
015028,001801: 41,2736           35021                           CAF      ZERO                                  #  X COMP

Page 345

015030,001803: 41,2737           03075                           TC       PUTCOM                                
015031,001804: 41,2740           50145                           INDEX    NOUNADD                               
015032,001805: 41,2741           54000                           TS       0                                     
015033,001806: 41,2742           02775                           TC       LOADLV                                
015034,001807: 
015035,001808: 41,2743           45017        BLOAD              CS       ONE                                   
015036,001809: 41,2744           02424                           TC       COMPTEST                              
015037,001810: 41,2745           35001                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
015038,001811: 41,2746           55015                           TS       CLPASS                                
015039,001812: 41,2747           02305                           TC       REQDATY                               
015040,001813: 41,2750           00006                           EXTEND                                         
015041,001814: 41,2751           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015042,001815: 41,2752           52006                           DXCH     Z                                     #  ROUTINE.
015043,001816: 41,2753           35017                           CAF      ONE                                   
015044,001817: 41,2754           03075                           TC       PUTCOM                                
015045,001818: 41,2755           50145                           INDEX    NOUNADD                               
015046,001819: 41,2756           54001                           TS       1                                     
015047,001820: 41,2757           02775                           TC       LOADLV                                
015048,001821: 
015049,001822: 41,2760           45016        CLOAD              CS       TWO                                   
015050,001823: 41,2761           02424                           TC       COMPTEST                              
015051,001824: 41,2762           35001                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
015052,001825: 41,2763           55015                           TS       CLPASS                                
015053,001826: 41,2764           02307                           TC       REQDATZ                               
015054,001827: 41,2765           00006                           EXTEND                                         
015055,001828: 41,2766           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015056,001829: 41,2767           52006                           DXCH     Z                                     #  ROUTINE.
015057,001830: 41,2770           35016                           CAF      TWO                                   
015058,001831: 41,2771           03075                           TC       PUTCOM                                
015059,001832: 41,2772           50145                           INDEX    NOUNADD                               
015060,001833: 41,2773           54002                           TS       2                                     
015061,001834: 41,2774           02775                           TC       LOADLV                                
015062,001835: 
015063,001836: 41,2775           35021        LOADLV             CAF      ZERO                                  
015064,001837: 41,2776           55000                           TS       DECBRNCH                              
015065,001838: 41,2777           45021                           CS       ZERO                                  
015066,001839: 41,3000           55014                           TS       LOADSTAT                              
015067,001840: 41,3001           04473                           TC       RELDSP                                #  RELEASE FOR PRIORITY DISPLAY PROBLEM.
015068,001841: 41,3002           44374                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
015069,001842: 41,3003           54777                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
015070,001843: 41,3004           04701                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
015071,001844: 41,3005           61454                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
015072,001845: 
015073,001846: 41,3006           00025        VBSP1LD            DEC      21         B-14                       #  VB21 = ALOAD
015074,001847: 41,3007           00026        VBSP2LD            DEC      22         B-14                       #  VB22 = BLOAD
015075,001848: 41,3010           00027        VBSP3LD            DEC      23         B-14                       #  VB23 = CLOAD
015076,001849: 
015077,001850: 41,3011           54117        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
015078,001851: 41,3012           41000                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT.  ALARMS IF NOT.

Page 346

015080,001853: 41,3013           54021                           TS       SR                                    
015081,001854: 41,3014           40021                           CS       SR                                    
015082,001855: 41,3015           40021                           CS       SR                                    #  SHIFTED RIGHT 2
015083,001856: 41,3016           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
015084,001857: 41,3017           13021                           TCF      +2                                    #  SOME ONES IN LOW 3
015085,001858: 41,3020           00002                           TC       Q                                     #  ALL ZEROS.  ALL OCTAL.  OK
015086,001859: 41,3021           60117                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
015087,001860: 41,3022           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
015088,001861: 41,3023           13025                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
015089,001862: 41,3024           04161                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
015090,001863: 41,3025           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC.  OK
015091,001864: 
015092,001865: 41,3026           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
015093,001866: 41,3027           54114                           TS       EXITEM                                #  CANT USE L FOR RETURN.  TSTFORDP USES L.
015094,001867: 41,3030           34363                           CAF      MID5                                  
015095,001868: 41,3031           70147                           MASK     NNTYPTEM                              
015096,001869: 41,3032           04336                           TC       RIGHT5                                
015097,001870: 41,3033           00114                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
015098,001871: 
015099,001872: 41,3034           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
015100,001873: 41,3035           54114                           TS       EXITEM                                
015101,001874: 41,3036           50117                           INDEX    DECOUNT                               
015102,001875: 41,3037           33066                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
015103,001876: 41,3040           54001                           TS       L                                     
015104,001877: 41,3041           50117                           INDEX    DECOUNT                               
015105,001878: 41,3042           34362                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
015106,001879: 41,3043           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
015107,001880: 41,3044           50001                           INDEX    L                                     
015108,001881: 41,3045           00000                           TC       0                                     
015109,001882: 
015110,001883:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
015111,001884: 
015112,001885: 41,3046           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
015113,001886: 
015114,001887: 41,3047           56002        SFCONUM            XCH      Q                                     #  GETS 2X(SF CONSTANT NUMBER)
015115,001888: 41,3050           54114                           TS       EXITEM                                
015116,001889: 41,3051           50140                           INDEX    MIXBR                                 
015117,001890: 41,3052           03052                           TC       +0                                    
015118,001891: 41,3053           03071                           TC       CONUMNOR                              #  NORMAL NOUN
015119,001892: 41,3054           50117                           INDEX    DECOUNT                               #  MIXED NOUN
015120,001893: 41,3055           33066                           CAF      DISPLACE                              
015121,001894: 41,3056           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
015122,001895: 41,3057           50117                           INDEX    DECOUNT                               
015123,001896: 41,3060           34362                           CAF      LOW5                                  
015124,001897: 41,3061           70147                           MASK     NNTYPTEM                              
015125,001898: 41,3062           50001                           INDEX    L                                     
015126,001899: 41,3063           00000                           TC       0                                     
015127,001900: 
015128,001901:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
015129,001902: 
015130,001903: 41,3064           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER) IN A
015131,001904: 41,3065           00114                           TC       EXITEM                                
015132,001905: 

Page 347

015134,001907: 
015135,001908: 41,3066           03025        DISPLACE           TC       GOQ                                   
015136,001909: 41,3067           04336                           TC       RIGHT5                                
015137,001910: 41,3070           04345                           TC       LEFT5                                 
015138,001911: 
015139,001912: 41,3071           34362        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
015140,001913: 41,3072           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
015141,001914: 41,3073           60000                           DOUBLE                                         
015142,001915: 41,3074           00114                           TC       EXITEM                                #  2X(SF CONSTANT NUMBER) IN A
015143,001916: 
015144,001917: 41,3075           54117        PUTCOM             TS       DECOUNT                               
015145,001918: 41,3076           56002                           XCH      Q                                     
015146,001919: 41,3077           54115                           TS       DECRET                                
015147,001920: 41,3100           35021                           CAF      ZERO                                  
015148,001921: 41,3101           54162                           TS       MPAC+6                                
015149,001922: 41,3102           50117                           INDEX    DECOUNT                               
015150,001923: 41,3103           57006                           XCH      XREGLP                                
015151,001924: 41,3104           54155                           TS       MPAC       +1                         
015152,001925: 41,3105           50117                           INDEX    DECOUNT                               
015153,001926: 41,3106           57003                           XCH      XREG                                  
015154,001927: 41,3107           54154                           TS       MPAC                                  
015155,001928: 41,3110           50140                           INDEX    MIXBR                                 
015156,001929: 41,3111           03111                           TC       +0                                    
015157,001930: 41,3112           03137                           TC       PUTNORM                               #  NORMAL NOUN
015158,001931: 
015159,001932:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
015160,001933: 
015161,001934: 41,3113           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
015162,001935: 41,3114           30150                           CA       IDAD1TEM                              #        OF NOUN.
015163,001936: 41,3115           74372                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
015164,001937: 41,3116           04317                           TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SETS EB, NOUNADD.
015165,001938: 41,3117           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
015166,001939: 41,3120           60117                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
015167,001940: 41,3121           54145                           TS       NOUNADD                               
015168,001941: 41,3122           11000                           CCS      DECBRNCH                              
015169,001942: 41,3123           03174                           TC       PUTDECSF                              #  + DEC
015170,001943: 41,3124           02452                           TC       DCTSTCYC                              #  +0 OCTAL
015171,001944: 41,3125           03034                           TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1.  IF SO,
015172,001945: 41,3126           02261                           TC       DPTEST                                #  ALARM AND RECYCLE.  IF NOT, CONTINUE.
015173,001946: 41,3127           03155                           TC       PUTCOM2                               #  NO DP
015174,001947:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD.  IF SO,
015175,001948:                                                                                                  #  +0 INTO MAJOR PART.  SET NOUNADD FOR
015176,001949:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
015177,001950: 41,3130           24145        PUTDPCOM           INCR     NOUNADD                               #  DP (ESUBK)-K+1 OR E+1
015178,001951: 41,3131           30145                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
015179,001952: 41,3132           26117                           ADS      DECOUNT                               #  (ESUBK)+1 OR E+1 INTO DECOUNT
015180,001953: 41,3133           35021                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
015181,001954: 41,3134           50117                           INDEX    DECOUNT                               
015182,001955: 41,3135           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
015183,001956: 41,3136           03155                           TC       PUTCOM2                               
015184,001957: 
015185,001958: 41,3137           04325        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR.  SETS EB, NOUNADD.

Page 348

015187,001960: 41,3140           11000                           CCS      DECBRNCH                              
015188,001961: 41,3141           03174                           TC       PUTDECSF                              #  + DEC
015189,001962: 41,3142           02452                           TC       DCTSTCYC                              #  +0 OCTAL
015190,001963: 41,3143           03026                           TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1.  IF SO,
015191,001964: 41,3144           02261                           TC       DPTEST                                #  ALARM AND RECYCLE.  IF NOT, CONTINUE.
015192,001965: 41,3145           03151                           TC       PUTCOM2    -4                         #  NO DP
015193,001966: 41,3146           35021                           CAF      ZERO                                  #  DP
015194,001967: 41,3147           54117                           TS       DECOUNT                               
015195,001968: 41,3150           03130                           TC       PUTDPCOM                              
015196,001969: 
015197,001970: 41,3151           30146                           CA       NNADTEM                               
015198,001971: 41,3152           65017                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015199,001972: 41,3153           00006                           EXTEND                                         
015200,001973: 41,3154           13161                           BZF      CHANLOAD                              
015201,001974: 41,3155           56154        PUTCOM2            XCH      MPAC                                  
015202,001975: 41,3156           00115                           TC       DECRET                                
015203,001976: 
015204,001977: 41,3157     0777                                  EBANK=   DSPCOUNT                              
015205,001978: 41,3157           02126 64101  GTSFINLC           2CADR    GTSFIN                                
015206,001979: 
015207,001980: 41,3161           45023        CHANLOAD           CS       SEVEN                                 #  DONT LOAD CHAN 7.  (IT = SUPERBANK).
015208,001981: 41,3162           61017                           AD       NOUNCADR                              
015209,001982: 41,3163           00006                           EXTEND                                         
015210,001983: 41,3164           12775                           BZF      LOADLV                                
015211,001984: 41,3165           31017                           CA       NOUNCADR                              
015212,001985: 41,3166           75046                           MASK     LOW9                                  
015213,001986: 41,3167           56154                           XCH      MPAC                                  
015214,001987: 41,3170           00006                           EXTEND                                         
015215,001988: 41,3171           50154                           INDEX    MPAC                                  
015216,001989: 41,3172           01000                           WRITE    0                                     
015217,001990: 41,3173           02775                           TC       LOADLV                                
015218,001991: 
015219,001992:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
015220,001993: 
015221,001994: 41,3174           03047        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
015222,001995: 41,3175           54123                           TS       SFTEMP1                               
015223,001996: 41,3176           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
015224,001997: 41,3177           33160                           DCA      GTSFINLC                              #  READING ROUTINE.
015225,001998: 41,3200           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
015226,001999: 41,3201           50140                           INDEX    MIXBR                                 
015227,002000: 41,3202           03202                           TC       +0                                    
015228,002001: 41,3203           03206                           TC       PUTSFNOR                              
015229,002002: 41,3204           03034                           TC       SFRUTMIX                              
015230,002003: 41,3205           03207                           TC       PUTDCSF2                              
015231,002004: 41,3206           03026        PUTSFNOR           TC       SFRUTNOR                              
015232,002005: 
015233,002006: 41,3207           50000        PUTDCSF2           INDEX    A                                     

Page 349

015235,002008: 41,3210           33212                           CAF      SFINTABR                              
015236,002009: 41,3211           04704                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
015237,002010: 41,3212           62350        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
015238,002011:                                                                                                  #  WITH OCTAL ONLY NOUN.
015239,002012: 41,3213           60776                           CADR     BINROUND                              
015240,002013: 41,3214           60716                           CADR     DEGINSF                               
015241,002014: 41,3215           60766                           CADR     ARTHINSF                              
015242,002015: 41,3216           61021                           CADR     DPINSF                                
015243,002016: 41,3217           61046                           CADR     DPINSF2                               
015244,002017: 41,3220           61004                           CADR     OPTDEGIN                              
015245,002018: 41,3221           61021                           CADR     DPINSF                                #  SAME AS ARITHDP1
015246,002019: 41,3222           65365                           CADR     HMSIN                                 
015247,002020: 41,3223           61325                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
015248,002021: 41,3224           61053                           CADR     DPINSF4                               
015249,002022: 41,3225           61001                           CADR     ARTIN1SF                              
015250,002023: 41,3226           61325                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
015251,002024: 41,3227           61032                           CADR     DPFRACIN                              
015252,002025: 41,3230                        ENDRUTIN           EQUALS                                         
015253,002026: 
015254,002027:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
015255,002028:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1.  LEAVE RESULT IN A.  END WITH TC DECRET
015256,002029: 
015257,002030: 40,2716                                           SETLOC   ENDDPDEC   +1                         
015258,002031: 
015259,002032: 40,2716                                           COUNT    40/PIN                                
015260,002033: 
015261,002034:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
015262,002035: 
015263,002036: 40,2716           07052        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
015264,002037: 40,2717           02761                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
015265,002038: 40,2720           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
015266,002039: 40,2721           35005                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
015267,002040: 40,2722           02724                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
015268,002041: 40,2723           45005                           CS       BIT11                                 
015269,002042: 40,2724           60155                           AD       MPAC       +1                         
015270,002043: 40,2725           03072                           TC       2ROUND     +2                         
015271,002044: 40,2726           04420                           TC       TPSL1                                 #  LEFT 1
015272,002045: 40,2727           04420        DEGINSF2           TC       TPSL1                                 #  LEFT 2
015273,002046: 40,2730           03101                           TC       TESTOFUF                              
015274,002047: 40,2731           04420                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
015275,002048: 40,2732           10154                           CCS      MPAC                                  
015276,002049: 40,2733           02737                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
015277,002050: 40,2734           02737                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
015278,002051: 40,2735           40000                           COM                                            #  IF -, USE -MAGNITUDE +1
015279,002052: 40,2736           54154                           TS       MPAC                                  #  IF -0, USE +0
015280,002053: 40,2737           10162        SIGNFIX            CCS      MPAC+6                                
015281,002054: 40,2740           02755                           TC       SGNTO1                                #  IF OVERFLOW
015282,002055: 40,2741           02751                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW

Page 350

015284,002057: 40,2742           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
015285,002058: 40,2743           05747                           TC       CCSHOLE                               
015286,002059: 40,2744           02753                           TC       NEG180                                
015287,002060: 40,2745           02746                           TC       +1                                    
015288,002061: 40,2746           56154                           XCH      MPAC                                  
015289,002062: 40,2747           74777                           MASK     POSMAX                                
015290,002063: 40,2750           54154                           TS       MPAC                                  
015291,002064: 40,2751           04701        ENDSCALE           TC       POSTJUMP                              
015292,002065: 40,2752           63155                           CADR     PUTCOM2                               
015293,002066: 
015294,002067: 40,2753           44777        NEG180             CS       POSMAX                                
015295,002068: 40,2754           02750                           TC       ENDSCALE   -1                         
015296,002069: 
015297,002070: 40,2755           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
015298,002071: 40,2756           74777                           MASK     POSMAX                                
015299,002072: 40,2757           40000                           CS       A                                     
015300,002073: 40,2760           02750                           TC       ENDSCALE   -1                         
015301,002074: 
015302,002075: 40,2761           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
015303,002076: 
015304,002077: 40,2763           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
015305,002078: 
015306,002079: 40,2765           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
015307,002080: 
015308,002081: 40,2766           07052        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
015309,002082: 40,2767           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
015310,002083: 40,2770           56156                           XCH      MPAC       +2                         #  OF SFCON.  SHIFTS RESULTS LEFT BY 14.
015311,002084: 40,2771           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
015312,002085: 40,2772           56154                           XCH      MPAC                                  
015313,002086: 40,2773           00006                           EXTEND                                         
015314,002087: 40,2774           12776                           BZF      BINROUND                              
015315,002088: 40,2775           04161                           TC       ALMCYCLE                              #  TOO LARGE A LOAD.  ALARM AND RECYCLE.
015316,002089: 40,2776           03070        BINROUND           TC       2ROUND                                
015317,002090: 40,2777           03101                           TC       TESTOFUF                              
015318,002091: 40,3000           02751                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
015319,002092: 
015320,002093: 40,3001           07052        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
015321,002094: 40,3002           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
015322,002095: 40,3003           02776                           TC       BINROUND                              
015323,002096: 
015324,002097: 40,3004           10154        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
015325,002098: 40,3005           03011                           TC       +4                                    
015326,002099: 40,3006           03011                           TC       +3                                    
015327,002100: 40,3007           04161                           TC       ALMCYCLE                              #  REJECT - INPUT.  ALARM AND RECYCLE.
015328,002101: 40,3010           04161                           TC       ALMCYCLE                              #  REJECT - INPUT.  ALARM AND RECYCLE.
015329,002102: 40,3011           32765        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
015330,002103: 40,3012           26154                           ADS      MPAC                                  #  SUBTRACT BIAS

Page 351

015332,002105: 40,3013           07052                           TC       DMP                                   #  MULT BY 100 / 45 B-2
015333,002106: 40,3014           02763                           ADRES    DEGCON2                               
015334,002107: 40,3015           35004                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
015335,002108: 40,3016           60155                           AD       MPAC       +1                         
015336,002109: 40,3017           03072                           TC       2ROUND     +2                         
015337,002110: 40,3020           02727                           TC       DEGINSF2                              
015338,002111: 
015339,002112: 40,3021           07052        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
015340,002113: 40,3022           00123                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
015341,002114: 40,3023           56156                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
015342,002115: 40,3024           60000                           DOUBLE                                         
015343,002116: 40,3025           54156                           TS       MPAC       +2                         
015344,002117: 40,3026           35021                           CAF      ZERO                                  
015345,002118: 40,3027           60155                           AD       MPAC       +1                         
015346,002119: 40,3030           03072                           TC       2ROUND     +2                         
015347,002120: 40,3031           03101                           TC       TESTOFUF                              
015348,002121: 40,3032           50140        DPFRACIN           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
015349,002122: 40,3033           03033                           TC       +0                                    
015350,002123: 40,3034           03044                           TC       DPINORM                               
015351,002124: 40,3035           30117                           CA       DECOUNT                               #  MIXED NOUN
015352,002125: 40,3036           60145        DPINCOM            AD       NOUNADD                               #        MIXED           NORMAL
015353,002126: 40,3037           54002                           TS       Q                                     #        E SUBK          E
015354,002127: 40,3040           56155                           XCH      MPAC       +1                         
015355,002128: 40,3041           50002                           INDEX    Q                                     
015356,002129: 40,3042           54001                           TS       1                                     #  PLACE LOW PART IN
015357,002130: 40,3043           02751                           TC       ENDSCALE                              #        (E SUBK) +1     MIXED
015358,002131: 
015359,002132: 40,3044           35021        DPINORM            CAF      ZERO                                  #        E +1            NORMAL
015360,002133: 40,3045           03036                           TC       DPINCOM                               
015361,002134: 
015362,002135: 40,3046           07052        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
015363,002136: 40,3047           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST.  DPINSF2 SHIFTS RESULTS
015364,002137: 40,3050           36211                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
015365,002138: 40,3051           03060                           TC       TPLEFTN                               #  SHIFT LEFT 7.
015366,002139: 40,3052           03023                           TC       DPINSF     +2                         
015367,002140: 
015368,002141: 40,3053           07052        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
015369,002142: 40,3054           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST.  DPINSF2 SHIFTS RESULTS
015370,002143: 40,3055           35016                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
015371,002144: 40,3056           03060                           TC       TPLEFTN                               #  SHIFT LEFT 3.
015372,002145: 40,3057           03023                           TC       DPINSF     +2                         
015373,002146: 
015374,002147: 40,3060           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N.  SETS OVFIND
015375,002148: 40,3061           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
015376,002149: 40,3062           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
015377,002150: 40,3063           54123        LEFTNCOM           TS       SFTEMP1                               #        LOOP TIME .37 MSEC.
015378,002151: 40,3064           04420                           TC       TPSL1                                 
015379,002152: 40,3065           10123                           CCS      SFTEMP1                               

Page 352

015381,002154: 40,3066           03063                           TC       LEFTNCOM                              
015382,002155: 40,3067           00124                           TC       SFTEMP2                               
015383,002156: 
015384,002157: 40,3070           56155        2ROUND             XCH      MPAC       +1                         
015385,002158: 40,3071           60000                           DOUBLE                                         
015386,002159: 40,3072           54155                           TS       MPAC       +1                         
015387,002160: 40,3073           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
015388,002161: 40,3074           60154                           AD       MPAC                                  
015389,002162: 40,3075           54154                           TS       MPAC                                  
015390,002163: 40,3076           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
015391,002164: 40,3077           54162                           TS       MPAC+6                                
015392,002165: 40,3100           00002        2RNDEND            TC       Q                                     
015393,002166: 
015394,002167: 40,3101           10162        TESTOFUF           CCS      MPAC+6                                #  RETURNS IF NO OF/UF
015395,002168: 40,3102           04161                           TC       ALMCYCLE                              #  OF    ALARM AND RECYCLE.
015396,002169: 40,3103           00002                           TC       Q                                     
015397,002170: 40,3104           04161                           TC       ALMCYCLE                              #  UF    ALARM AND RECYCLE.
015398,002171: 
015399,002172: 42,3365                                           SETLOC   ENDSPMIN   +1                         
015400,002173: 
015401,002174: 42,3365                                           COUNT    42/PIN                                
015402,002175: 
015403,002176: 42,3365           03506        HMSIN              TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
015404,002177: 42,3366           07052                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
015405,002178: 42,3367           03447                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
015406,002179: 42,3370           03456                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
015407,002180: 42,3371           35021                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383).
015408,002181: 42,3372           54156                           TS       MPAC       +2                         
015409,002182: 42,3373           33451                           CAF      HRCON                                 
015410,002183: 42,3374           54154                           TS       MPAC                                  
015411,002184: 42,3375           33452                           CAF      HRCON      +1                         
015412,002185: 42,3376           56155                           XCH      MPAC       +1                         
015413,002186: 42,3377           07256                           TC       SHORTMP                               
015414,002187: 42,3400           03467                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
015415,002188: 42,3401           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
015416,002189: 42,3402           52124                           DXCH     HITEMIN                               
015417,002190: 42,3403           31004                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
015418,002191: 42,3404           23007                           LXCH     YREGLP                                
015419,002192: 42,3405           52155                           DXCH     MPAC                                  
015420,002193: 42,3406           07052                           TC       DMP                                   
015421,002194: 42,3407           03447                           ADRES    WHOLECON                              
015422,002195: 42,3410           03456                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
015423,002196: 42,3411           43454                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
015424,002197: 42,3412           03474                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
015425,002198: 42,3413           56155                           XCH      MPAC       +1                         
015426,002199: 42,3414           00006                           EXTEND                                         
015427,002200: 42,3415           73453                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L

Page 353

015429,002202: 42,3416           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
015430,002203: 42,3417           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745 HR, 39MIN
015431,002204: 42,3420           13422                           BZF      +2                                    
015432,002205: 42,3421           04161                           TC       ALMCYCLE                              
015433,002206: 42,3422           31005                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
015434,002207: 42,3423           23010                           LXCH     ZREGLP                                
015435,002208: 42,3424           52155                           DXCH     MPAC                                  
015436,002209: 42,3425           07052                           TC       DMP                                   
015437,002210: 42,3426           03447                           ADRES    WHOLECON                              
015438,002211: 42,3427           03456                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
015439,002212: 42,3430           43455                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
015440,002213: 42,3431           03474                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
015441,002214: 42,3432           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
015442,002215: 42,3433           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
015443,002216: 42,3434           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
015444,002217: 42,3435           13437                           BZF      +2                                    
015445,002218: 42,3436           04161                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
015446,002219: 42,3437           35021                           CAF      ZERO                                  
015447,002220: 42,3440           54156                           TS       MPAC       +2                         
015448,002221: 42,3441           07226                           TC       TPAGREE                               
015449,002222: 42,3442           52155                           DXCH     MPAC                                  
015450,002223: 42,3443           50145                           INDEX    NOUNADD                               
015451,002224: 42,3444           52001                           DXCH     0                                     
015452,002225: 42,3445           04701                           TC       POSTJUMP                              
015453,002226: 42,3446           62775                           CADR     LOADLV                                
015454,002227: 
015455,002228: 42,3447           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
015456,002229: 42,3450           03240                           OCT      03240                                 
015457,002230: 42,3451           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
015458,002231: 42,3452           37100                           OCT      37100                                 
015459,002232: 42,3453           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
015460,002233: 42,3454           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
015461,002234: 42,3455           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
015462,002235: 
015463,002236: 42,3456           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
015464,002237: 42,3457           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
015465,002238: 42,3460           54156                           TS       MPAC       +2                         
015466,002239: 42,3461           35021                           CAF      ZERO                                  
015467,002240: 42,3462           60155                           AD       MPAC       +1                         
015468,002241: 42,3463           54155                           TS       MPAC       +1                         
015469,002242: 42,3464           35021                           CAF      ZERO                                  
015470,002243: 42,3465           60154                           AD       MPAC                                  #  CANT OVFLOW
015471,002244: 42,3466           56154                           XCH      MPAC                                  
015472,002245: 42,3467           10154        MPACTST            CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
015473,002246: 42,3470           04161                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
015474,002247: 42,3471           00002                           TC       Q                                     
015475,002248: 42,3472           04161                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
015476,002249: 42,3473           00002                           TC       Q                                     
015477,002250: 

Page 354

015479,002252: 
015480,002253: 42,3474           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
015481,002254: 42,3475           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1
015482,002255: 42,3476           65017                           AD       ONE                                   
015483,002256: 42,3477           13501                           TCF      +2                                    
015484,002257: 42,3500           65017                           AD       ONE                                   
015485,002258: 42,3501           60156                           AD       MPAC       +2                         
015486,002259: 42,3502           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
015487,002260: 42,3503           63505                           BZMF     +2                                    
015488,002261: 42,3504           04161                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON.  ALARM AND RECYCLE.
015489,002262: 42,3505           00002                           TC       Q                                     #  MAG OF MPAC+1 L/= CON
015490,002263: 
015491,002264:                                                                                                  #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
015492,002265:                                                                                                  #  ALARM IF NOT.(TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
015493,002266: 
015494,002267: 42,3506           43513        ALL3DEC            CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
015495,002268: 42,3507           71000                           MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
015496,002269: 42,3510           63513                           AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
015497,002270: 42,3511           10000                           CCS      A                                     
015498,002271: 42,3512           03516                           TC       FORCEV25                              
015499,002272: 42,3513           77743        OCT34BAR           OCT      77743                                 
015500,002273: 42,3514           03516                           TC       FORCEV25                              
015501,002274: 42,3515           00002                           TC       Q                                     
015502,002275: 
015503,002276: 42,3516           44113        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
015504,002277: 42,3517           55041                           TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD
015505,002278: 42,3520           04161                           TC       ALMCYCLE                              #   VERB.  ALARM AND RECYCLE.
015506,002279: 42,3521                        ENDHMSS            EQUALS                                         
015507,002280: 

Page 355

015509,002282:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY.  IT IS ENDED BY VERB TERMINATE,
015510,002283:                                                                                                  #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
015511,002284:                                                                                                  #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
015512,002285:                                                                                                  #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
015513,002286:                                                                                                  #  HE HAS INITIATED THROUGH THE KEYBOARD).
015514,002287: 
015515,002288:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
015516,002289:                                                                                                  #  EXCEPT ERROR LIGHT RESET.  IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
015517,002290:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE.  IT SAVES
015518,002291:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED.  BIT 15 OF
015519,002292:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).  BIT 14 OF MONSAVE1
015520,002293:                                                                                                  #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
015521,002294:                                                                                                  #  MONITOR BIT).  IT IS TURNED OFF BY RELDSP AND KILMONON.
015522,002295: 
015523,002296:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
015524,002297:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
015525,002298:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
015526,002299: 
015527,002300:                                                                                                  #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
015528,002301:                                                                                                  #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
015529,002302: 
015530,002303:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
015531,002304:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
015532,002305: 
015533,002306:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
015534,002307: 
015535,002308: 41,3230                                           SETLOC   ENDRUTIN                              
015536,002309: 
015537,002310: 41,3230                                           COUNT    41/PIN                                
015538,002311: 
015539,002312: 41,3230           43237        MONITOR            CS       BIT15/14                              
015540,002313: 41,3231           71017                           MASK     NOUNCADR                              
015541,002314: 41,3232           54155        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
015542,002315: 41,3233           40136                           CS       ENTEXIT                               
015543,002316: 41,3234           64233                           AD       ENDINST                               
015544,002317: 41,3235           10000                           CCS      A                                     
015545,002318: 41,3236           03245                           TC       MONIT2                                
015546,002319: 41,3237           60000        BIT15/14           OCT      60000                                 
015547,002320: 41,3240           03245                           TC       MONIT2                                
015548,002321: 41,3241           35002                           CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
015549,002322: 41,3242           26155                           ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
015550,002323: 41,3243           35021                           CAF      ZERO                                  
015551,002324: 41,3244           55022                           TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
015552,002325: 41,3245           36043        MONIT2             CAF      LOW7                                  
015553,002326: 41,3246           71001                           MASK     VERBREG                               
015554,002327: 41,3247           04345                           TC       LEFT5                                 
015555,002328: 41,3250           54022                           TS       CYL                                   
015556,002329: 41,3251           40022                           CS       CYL                                   
015557,002330: 41,3252           56022                           XCH      CYL                                   
015558,002331: 41,3253           61002                           AD       NOUNREG                               
015559,002332: 41,3254           54154                           TS       MPAC                                  #  TEMP STORAGE

Page 356

015561,002334: 41,3255           35021                           CAF      ZERO                                  
015562,002335: 41,3256           55012                           TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
015563,002336: 41,3257           11042                           CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
015564,002337: 41,3260           03262                           TC       +2                                    #  ARE BOTH EMPTY.  (LITE COMES ON IF NEW
015565,002338: 41,3261           04516                           TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
015566,002339: 41,3262           00004                           INHINT                                         
015567,002340: 41,3263           11020                           CCS      MONSAVE                               
015568,002341: 41,3264           03271                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
015569,002342: 41,3265           35017                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
015570,002343: 41,3266           05245                           TC       WAITLIST                              
015571,002344: 41,3267     0777                                  EBANK=   DSPCOUNT                              
015572,002345: 41,3267           03275 62101                     2CADR    MONREQ                                
015573,002346: 
015574,002347: 41,3271           52155                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
015575,002348: 41,3272           53021                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
015576,002349: 41,3273           00003                           RELINT                                         #  SET UP EXTERNAL MONITOR BIT
015577,002350: 41,3274           00136                           TC       ENTRET                                
015578,002351: 
015579,002352: 41,3275           04414        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
015580,002353: 41,3276           11021                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
015581,002354: 41,3277           03303                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
015582,002355: 41,3300           03303                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
015583,002356: 41,3301           03314                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
015584,002357: 41,3302           03314                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
015585,002358: 41,3303           33320                           CAF      MONDEL                                
015586,002359: 41,3304           05245                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
015587,002360: 41,3305     0777                                  EBANK=   DSPCOUNT                              
015588,002361: 41,3305           03275 62101                     2CADR    MONREQ                                
015589,002362: 
015590,002363: 41,3307           34371                           CAF      CHRPRIO                               
015591,002364: 41,3310           05134                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
015592,002365: 41,3311     0777                                  EBANK=   DSPCOUNT                              
015593,002366: 41,3311           03321 62101                     2CADR    MONDO                                 
015594,002367: 
015595,002368: 41,3313           05324                           TC       TASKOVER                              
015596,002369: 
015597,002370: 41,3314           35021        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
015598,002371: 41,3315           55020                           TS       MONSAVE                               
015599,002372: 41,3316           55021                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
015600,002373: 41,3317           05324                           TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
015601,002374: 41,3320           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
015602,002375: 
015603,002376: 41,3321           11021        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
015604,002377: 41,3322           03326                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
015605,002378: 41,3323           03326                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
015606,002379: 41,3324           05217                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
015607,002380: 41,3325           05217                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
015608,002381: 41,3326           11012                           CCS      DSPLOCK                               

Page 357

015610,002383: 41,3327           03351                           TC       MONBUSY                               #  NVSUB IS BUSY
015611,002384: 41,3330           36043                           CAF      LOW7                                  
015612,002385: 41,3331           71020                           MASK     MONSAVE                               
015613,002386: 41,3332           02317                           TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
015614,002387: 41,3333           34160                           CAF      MID7                                  
015615,002388: 41,3334           71020                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
015616,002389: 41,3335           63347                           AD       MONREF                                #  -DEC10, STARTING IN BIT8
015617,002390: 41,3336           54023                           TS       EDOP                                  #  RIGHT 7
015618,002391: 41,3337           30023                           CA       EDOP                                  
015619,002392: 41,3340           55001                           TS       VERBREG                               
015620,002393: 41,3341           33350                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
015621,002394: 41,3342           54136                           TS       ENTRET                                
015622,002395: 41,3343           43237                           CS       BIT15/14                              
015623,002396: 41,3344           71021                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2.  INTMCTBS WILL
015624,002397: 41,3345           54156                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
015625,002398: 41,3346           02046        ENDMONDO           TC       TESTNN                                #  EBANK.
015626,002399: 
015627,002400:    4140                                           BLOCK    2                                     
015628,002401: 
015629,002402:    4000                                           SETLOC   FFTAG8                                
015630,002403:    4000                                           BANK                                           
015631,002404: 
015632,002405:    4140                                           COUNT    02/PIN                                
015633,002406: 
015634,002407:    4140           34160        PASTEVB            CAF      MID7                                  
015635,002408:    4141           71022                           MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
015636,002409:    4142           00006                           EXTEND                                         
015637,002410:    4143           14145                           BZF      +2                                    
015638,002411:    4144           04146                           TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
015639,002412:    4145           31020                           CA       MONSAVE                               #  PASTE MONITOR VERB -  PASTE OPTION IS 0
015640,002413:    4146           54023        PASTEOPT           TS       EDOP                                  #  RIGHT 7
015641,002414:    4147           30023                           CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
015642,002415:    4150           04662                           TC       BANKCALL                              #        VERBREG AND DISPLAY IT.
015643,002416:    4151           62337                           CADR     UPDATVB    -1                         
015644,002417:    4152           35021                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
015645,002418:    4153           55013                           TS       REQRET                                #        BE EXECUTED BY OPERATOR.
015646,002419:    4154           31022                           CA       MONSAVE2                              
015647,002420:    4155           04271                           TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
015648,002421:    4156           04157                           TC       +1                                    
015649,002422:    4157           05217        ENDPASTE           TC       ENDOFJOB                              
015650,002423: 
015651,002424:    4160           37600        MID7               OCT      37600                                 
015652,002425: 
015653,002426: 41,3347                                           SETLOC   ENDMONDO   +1                         
015654,002427: 41,3347                                           COUNT    41/PIN                                
015655,002428: 
015656,002429: 41,3347           75377        MONREF             OCT      75377                                 #  -DEC10, STARTING IN BIT8
015657,002430: 41,3350           04140        MONBACK            ADRES    PASTEVB                               
015658,002431: 

Page 358

015660,002433: 41,3351           04410        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
015661,002434: 41,3352           05217                           TC       ENDOFJOB                              
015662,002435: 
015663,002436:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
015664,002437:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED.  THE FCADR OF THE 
015665,002438:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN.  IT HANDLES F/F (FCADR 4000-7777)
015666,002439:                                                                                                  #  
015667,002440:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.
015668,002441: 
015669,002442:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
015670,002443:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
015671,002444:                                                                                                  #        V23N26 SHOULD BE USED.
015672,002445: 
015673,002446:                                                                                                  #  SUMMARY
015674,002447:                                                                                                  #  FOR BANKS L/E 27,                             V27N01E(FCADR)E
015675,002448:                                                                                                  #  FOR BANKS G/E 30,     V23N26E(SUPERBITS)E     V27N01E(FCADR)E
015676,002449: 
015677,002450: 41,3353           34333        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
015678,002451: 41,3354           54777                           TS       DSPCOUNT                              
015679,002452: 41,3355           31047                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
015680,002453: 41,3356           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
015681,002454: 41,3357           31017                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
015682,002455: 41,3360           04715                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
015683,002456: 41,3361           03363                           TC       DSPOCTWD                              
015684,002457: 41,3362           05217        ENDSPF             TC       ENDOFJOB                              
015685,002458: 

Page 359

015687,002460:                                                                                                  #  WORD DISPLAY ROUTINES
015688,002461: 40,3105                                           SETLOC   TESTOFUF   +4                         
015689,002462: 40,3105                                           COUNT    40/PIN                                
015690,002463: 
015691,002464: 40,3105           56002        DSPSIGN            XCH      Q                                     
015692,002465: 40,3106           54144                           TS       DSPWDRET                              
015693,002466: 40,3107           10154                           CCS      MPAC                                  
015694,002467: 40,3110           03120                           TC       +8D                                   
015695,002468: 40,3111           03120                           TC       +7                                    
015696,002469: 40,3112           65017                           AD       ONE                                   
015697,002470: 40,3113           54154                           TS       MPAC                                  
015698,002471: 40,3114           02334                           TC       -ON                                   
015699,002472: 40,3115           40155                           CS       MPAC       +1                         
015700,002473: 40,3116           54155                           TS       MPAC       +1                         
015701,002474: 40,3117           00144                           TC       DSPWDRET                              
015702,002475: 40,3120           02314                           TC       +ON                                   
015703,002476: 40,3121           00144                           TC       DSPWDRET                              
015704,002477: 
015705,002478: 40,3122           00006        DSPRND             EXTEND                                         #  ROUND BY 5 EXP-6
015706,002479: 40,3123           33166                           DCA      DECROUND   -1                         
015707,002480: 40,3124           20155                           DAS      MPAC                                  
015708,002481: 40,3125           00006                           EXTEND                                         
015709,002482: 40,3126           13132                           BZF      +4                                    
015710,002483: 40,3127           00006                           EXTEND                                         
015711,002484: 40,3130           34777                           DCA      DPOSMAX                               
015712,002485: 40,3131           52155                           DXCH     MPAC                                  
015713,002486: 40,3132           00002                           TC       Q                                     
015714,002487: 
015715,002488:                                                                                                  #  DSPDECWD CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015716,002489:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT.  IT ROUNDS BY 5 EXP-6.
015717,002490: 
015718,002491: 40,3133           56002        DSPDECWD           XCH      Q                                     
015719,002492: 40,3134           54115                           TS       WDRET                                 
015720,002493: 40,3135           03105                           TC       DSPSIGN                               
015721,002494: 40,3136           03122                           TC       DSPRND                                
015722,002495: 40,3137           35015                           CAF      FOUR                                  
015723,002496: 40,3140           54137        DSPDCWD1           TS       WDCNT                                 
015724,002497: 40,3141           34377                           CAF      BINCON                                
015725,002498: 40,3142           07256                           TC       SHORTMP                               
015726,002499: 40,3143           50154        TRACE1             INDEX    MPAC                                  
015727,002500: 40,3144           34072                           CAF      RELTAB                                
015728,002501: 40,3145           74362                           MASK     LOW5                                  
015729,002502: 40,3146           54124                           TS       CODE                                  
015730,002503: 40,3147           35021                           CAF      ZERO                                  
015731,002504: 40,3150           56156                           XCH      MPAC       +2                         
015732,002505: 40,3151           56155                           XCH      MPAC       +1                         
015733,002506: 40,3152           54154                           TS       MPAC                                  
015734,002507: 40,3153           56777                           XCH      DSPCOUNT                              
015735,002508: 40,3154           54143        TRACE1S            TS       COUNT                                 

Page 360

015737,002510: 40,3155           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
015738,002511: 40,3156           54777                           TS       DSPCOUNT                              
015739,002512: 40,3157           03227                           TC       DSPIN                                 
015740,002513: 40,3160           10137                           CCS      WDCNT                                 
015741,002514: 40,3161           03140                           TC       DSPDCWD1                              
015742,002515: 40,3162           44374                           CS       VD1                                   
015743,002516: 40,3163           54777                           TS       DSPCOUNT                              
015744,002517: 40,3164           00115                           TC       WDRET                                 
015745,002518: 
015746,002519: 40,3165           00000                           OCT      00000                                 
015747,002520: 40,3166           02476        DECROUND           OCT      02476                                 
015748,002521: 
015749,002522:                                                                                                  #  DSPDECNR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015750,002523:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT.  IT DOES NOT ROUND
015751,002524: 
015752,002525: 40,3167           56002        DSPDECNR           XCH      Q                                     
015753,002526: 40,3170           54115                           TS       WDRET                                 
015754,002527: 40,3171           03105                           TC       DSPSIGN                               
015755,002528: 40,3172           03137                           TC       DSPDCWD1   -1                         
015756,002529: 
015757,002530:                                                                                                  #  DSPDC2NR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
015758,002531:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT.  IT DOES NOT ROUND
015759,002532: 
015760,002533: 40,3173           56002        DSPDC2NR           XCH      Q                                     
015761,002534: 40,3174           54115                           TS       WDRET                                 
015762,002535: 40,3175           03105                           TC       DSPSIGN                               
015763,002536: 40,3176           35017                           CAF      ONE                                   
015764,002537: 40,3177           03140                           TC       DSPDCWD1                              
015765,002538: 
015766,002539:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
015767,002540:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
015768,002541: 
015769,002542: 40,3200           56002        DSP2DEC            XCH      Q                                     
015770,002543: 40,3201           54115                           TS       WDRET                                 
015771,002544: 40,3202           35021                           CAF      ZERO                                  
015772,002545: 40,3203           54124                           TS       CODE                                  
015773,002546: 40,3204           36214                           CAF      THREE                                 
015774,002547: 40,3205           03311                           TC       11DSPIN                               #  -R2 OFF
015775,002548: 40,3206           35015                           CAF      FOUR                                  
015776,002549: 40,3207           03311                           TC       11DSPIN                               #  +R2 OFF
015777,002550: 40,3210           03105                           TC       DSPSIGN                               
015778,002551: 40,3211           34334                           CAF      R2D1                                  
015779,002552: 40,3212           03140        END2DEC            TC       DSPDCWD1                              
015780,002553: 
015781,002554:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
015782,002555:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
015783,002556: 
015784,002557:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14.  THIS IS SCALED TO FORM N/100 BEFORE
015785,002558:                                                                                                  #  DISPLAY CONVERSION.

Page 361

015787,002560: 
015788,002561: 40,3213           00006        DSPDECVN           EXTEND                                         
015789,002562: 40,3214           73223                           MP       VNDSPCON                              #  MULT BY .01
015790,002563: 40,3215           22154                           LXCH     MPAC                                  #  TAKE RESULTS FROM L. (MULT BY 2EXP14).
015791,002564: 40,3216           35021                           CAF      ZERO                                  
015792,002565: 40,3217           54155                           TS       MPAC       +1                         
015793,002566: 40,3220           56002                           XCH      Q                                     
015794,002567: 40,3221           54115                           TS       WDRET                                 
015795,002568: 40,3222           03176                           TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
015796,002569: 
015797,002570: 40,3223           00244        VNDSPCON           OCT      00244                                 #  .01 ROUNDED UP
015798,002571: 
015799,002572: 40,3224           03213        GOVNUPDT           TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE.  REALLY PART
015800,002573: 40,3225           04701                           TC       POSTJUMP                              #  OF UPDATVB.
015801,002574: 40,3226           62347                           CADR     UPDAT1     +2                         
015802,002575: 
015803,002576: 40,3227                        ENDECVN            EQUALS                                         
015804,002577: 
015805,002578: 41,3363                                           SETLOC   ENDSPF     +1                         
015806,002579: 41,3363                                           COUNT    41/PIN                                
015807,002580: 
015808,002581:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
015809,002582:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT.  IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
015810,002583: 
015811,002584: 41,3363           54022        DSPOCTWD           TS       CYL                                   
015812,002585: 41,3364           56002                           XCH      Q                                     
015813,002586: 41,3365           54115                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
015814,002587: 41,3366           35002                           CAF      BIT14                                 #  TO BLANK SIGNS
015815,002588: 41,3367           26777                           ADS      DSPCOUNT                              
015816,002589: 41,3370           35015                           CAF      FOUR                                  
015817,002590: 41,3371           54137        WDAGAIN            TS       WDCNT                                 
015818,002591: 41,3372           40022                           CS       CYL                                   
015819,002592: 41,3373           40022                           CS       CYL                                   
015820,002593: 41,3374           40022                           CS       CYL                                   
015821,002594: 41,3375           40000                           CS       A                                     
015822,002595: 41,3376           75023                           MASK     DSPMSK                                
015823,002596: 41,3377           50000                           INDEX    A                                     
015824,002597: 41,3400           34072                           CAF      RELTAB                                
015825,002598: 41,3401           74362                           MASK     LOW5                                  
015826,002599: 41,3402           54124                           TS       CODE                                  
015827,002600: 41,3403           56777                           XCH      DSPCOUNT                              
015828,002601: 41,3404           54143                           TS       COUNT                                 
015829,002602: 41,3405           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
015830,002603: 41,3406           54777                           TS       DSPCOUNT                              
015831,002604: 41,3407           04701                           TC       POSTJUMP                              
015832,002605: 41,3410           61317                           CADR     DSPOCTIN                              
015833,002606: 41,3411           10137        OCTBACK            CCS      WDCNT                                 
015834,002607: 41,3412           03371                           TC       WDAGAIN                               #  +
015835,002608: 41,3413           44374        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,

Page 362

015837,002610: 41,3414           54777                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
015838,002611: 41,3415           00115                           TC       WDRET                                 
015839,002612: 
015840,002613: 41,3416     5023               DSPMSK             =        SEVEN                                 
015841,002614: 
015842,002615:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
015843,002616:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
015844,002617:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
015845,002618: 
015846,002619: 41,3416           54020        DSP2BIT            TS       CYR                                   
015847,002620: 41,3417           56002                           XCH      Q                                     
015848,002621: 41,3420           54115                           TS       WDRET                                 
015849,002622: 41,3421           35017                           CAF      ONE                                   
015850,002623: 41,3422           54137                           TS       WDCNT                                 
015851,002624: 41,3423           40020                           CS       CYR                                   
015852,002625: 41,3424           40020                           CS       CYR                                   
015853,002626: 41,3425           56020                           XCH      CYR                                   
015854,002627: 41,3426           54022                           TS       CYL                                   
015855,002628: 41,3427           03376                           TC       WDAGAIN    +5                         
015856,002629: 
015857,002630:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE.  BOTH
015858,002631:                                                                                                  #  ARE DESTROYED.  IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
015859,002632:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
015860,002633:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
015861,002634: 
015862,002635: 40,3227                                           SETLOC   ENDECVN                               
015863,002636: 
015864,002637: 40,3227                                           COUNT    40/PIN                                
015865,002638: 
015866,002639: 40,3227           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
015867,002640: 40,3230           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
015868,002641: 40,3231           34362                           CAF      LOW5                                  
015869,002642: 40,3232           70143                           MASK     COUNT                                 
015870,002643: 40,3233           54021                           TS       SR                                    
015871,002644: 40,3234           56021                           XCH      SR                                    
015872,002645: 40,3235           54141                           TS       DSREL                                 
015873,002646: 40,3236           35017                           CAF      BIT1                                  
015874,002647: 40,3237           70143                           MASK     COUNT                                 
015875,002648: 40,3240           10000                           CCS      A                                     
015876,002649: 40,3241           03243                           TC       +2                                    #  LEFT IF COUNT IS ODD
015877,002650: 40,3242           03253                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
015878,002651: 40,3243           56124                           XCH      CODE                                  
015879,002652: 40,3244           04354                           TC       SLEFT5                                #  DOES NOT USE CYL
015880,002653: 40,3245           54124                           TS       CODE                                  
015881,002654: 40,3246           35002                           CAF      BIT14                                 
015882,002655: 40,3247           70143                           MASK     COUNT                                 
015883,002656: 40,3250           10000                           CCS      A                                     
015884,002657: 40,3251           35016                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN

Page 363

015886,002659: 40,3252           65017                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
015887,002660: 40,3253           54143                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
015888,002661:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
015889,002662:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
015890,002663: 40,3254           00004        DSPIN1             INHINT                                         
015891,002664: 40,3255           50141                           INDEX    DSREL                                 
015892,002665: 40,3256           11023                           CCS      DSPTAB                                
015893,002666: 40,3257           03261                           TC       +2                                    #  IF +
015894,002667: 40,3260           05747                           TC       CCSHOLE                               
015895,002668: 40,3261           65017                           AD       ONE                                   #  IF -
015896,002669: 40,3262           54142                           TS       DSMAG                                 
015897,002670: 40,3263           50143                           INDEX    COUNT                                 
015898,002671: 40,3264           73305                           MASK     DSMSK                                 
015899,002672: 40,3265           00006                           EXTEND                                         
015900,002673: 40,3266           60124                           SU       CODE                                  
015901,002674: 40,3267           00006                           EXTEND                                         
015902,002675: 40,3270           13303                           BZF      DSLV                                  #  SAME
015903,002676: 40,3271           50143        DFRNT              INDEX    COUNT                                 
015904,002677: 40,3272           43305                           CS       DSMSK                                 #  MASK WITH 77740, 76037, 75777, OR 74037
015905,002678: 40,3273           70142                           MASK     DSMAG                                 
015906,002679: 40,3274           60124                           AD       CODE                                  
015907,002680: 40,3275           40000                           CS       A                                     
015908,002681: 40,3276           50141                           INDEX    DSREL                                 
015909,002682: 40,3277           57023                           XCH      DSPTAB                                
015910,002683: 40,3300           00006                           EXTEND                                         
015911,002684: 40,3301           63303                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
015912,002685: 40,3302           25016                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
015913,002686: 40,3303           00003        DSLV               RELINT                                         
015914,002687: 40,3304           00114                           TC       DSEXIT                                
015915,002688: 
015916,002689: 40,3305           00037        DSMSK              OCT      37                                    
015917,002690: 40,3306           01740                           OCT      1740                                  
015918,002691: 40,3307           02000                           OCT      2000                                  
015919,002692: 40,3310           03740                           OCT      3740                                  
015920,002693: 
015921,002694:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
015922,002695:                                                                                                  #  BIT11 OF CODE.
015923,002696: 
015924,002697: 40,3311           54141        11DSPIN            TS       DSREL                                 
015925,002698: 40,3312           35016                           CAF      TWO                                   
015926,002699: 40,3313           54143                           TS       COUNT                                 
015927,002700: 40,3314           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
015928,002701: 40,3315           54114                           TS       DSEXIT                                
015929,002702: 40,3316           03254                           TC       DSPIN1                                
015930,002703: 
015931,002704: 40,3317           03227        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
015932,002705: 40,3320           33322                           CAF      +2                                    
015933,002706: 40,3321           04704                           TC       BANKJUMP                              

Page 364

015935,002708: 40,3322           63411        ENDSPOCT           CADR     OCTBACK                               
015936,002709: 
015937,002710:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
015938,002711:                                                                                                  #  ABORT WITH 01501.
015939,002712: 
015940,002713:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
015941,002714:                                                                                                  #  DO TC ENTRET.
015942,002715: 
015943,002716: 40,3323           44374        PREDSPAL           CS       VD1                                   
015944,002717: 40,3324           54777                           TS       DSPCOUNT                              
015945,002718: 40,3325           43346        DSPALARM           CS       NVSBENDL                              
015946,002719: 40,3326           60136                           AD       ENTEXIT                               
015947,002720: 40,3327           00006                           EXTEND                                         
015948,002721: 40,3330           13343                           BZF      CHARALRM   +2                         
015949,002722: 40,3331           43345                           CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
015950,002723: 40,3332           60136                           AD       ENTEXIT                               
015951,002724: 40,3333           00006                           EXTEND                                         
015952,002725: 40,3334           13336                           BZF      +2                                    
015953,002726: 40,3335           03341                           TC       CHARALRM                              
015954,002727: 40,3336           04220                           TC       KILMONON                              
015955,002728: 40,3337           04400                           TC       FALTON                                
015956,002729: 40,3340           04140                           TC       PASTEVB                               #  PUT MONITOR VERB BACK IN VERBREG
015957,002730: 40,3341           04400        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
015958,002731: 40,3342           05217                           TC       ENDOFJOB                              
015959,002732: 40,3343           05721                           TC       POODOO                                
015960,002733: 40,3344           01501                           OCT      01501                                 
015961,002734: 40,3345           04140        MONADR             GENADR   PASTEVB                               
015962,002735: 40,3346           04216        NVSBENDL           TC       NVSUBEND                              
015963,002736: 
015964,002737:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
015965,002738:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
015966,002739:                                                                                                  #  THAT WAS LAST EXECUTED.  USED FOR BAD DATA DURING LOAD VERBS AND BY
015967,002740:                                                                                                  #  MCTBS.  ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
015968,002741:                                                                                                  #  FOR MM CODE.
015969,002742: 
015970,002743:    4161                                           SETLOC   MID7       +1                         
015971,002744:    4161                                           COUNT    02/PIN                                
015972,002745: 
015973,002746:    4161           04400        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
015974,002747:    4162           41041                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
015975,002748:    4163           55013                           TS       REQRET                                #  SET FOR ENTPAS0
015976,002749:    4164           04662                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
015977,002750:    4165           62337                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
015978,002751:    4166           04701                           TC       POSTJUMP                              
015979,002752:    4167           62002        ENDALM             CADR     ENTER                                 
015980,002753: 
015981,002754:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER.  THEN IT USES MODE DISP.
015982,002755:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN

Page 365

015984,002757:                                                                                                  #  MM LIGHTS.
015985,002758: 
015986,002759:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
015987,002760:                                                                                                  #  IF NOT, IT RECYCLES.
015988,002761: 
015989,002762: 41,3430                                           SETLOC   DSP2BIT    +10D                       
015990,002763: 
015991,002764: 41,3430                                           COUNT    41/PIN                                
015992,002765: 
015993,002766: 41,3430           03452        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
015994,002767:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
015995,002768:                                                                                                  #  MMADREF AT ENTPASHI.
015996,002769: 41,3431           35013                           CAF      BIT5                                  #  OCT20 = ND2.
015997,002770: 41,3432           60777                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
015998,002771: 41,3433           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
015999,002772: 41,3434           13436                           BZF      +2                                    
016000,002773: 41,3435           04161                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2.  ALARM AND RECYCLE.
016001,002774: 41,3436           35021                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
016002,002775: 41,3437           57002                           XCH      NOUNREG                               
016003,002776: 41,3440           54154                           TS       MPAC                                  
016004,002777: 41,3441           34375                           CAF      ND1                                   
016005,002778: 41,3442           54777                           TS       DSPCOUNT                              
016006,002779: 41,3443           04662                           TC       BANKCALL                              
016007,002780: 41,3444           60502                           CADR     2BLANK                                
016008,002781: 41,3445           44374                           CS       VD1                                   #  BLOCK NUM CHAR IN
016009,002782: 41,3446           54777                           TS       DSPCOUNT                              
016010,002783: 41,3447           30154                           CA       MPAC                                  
016011,002784: 41,3450           04701                           TC       POSTJUMP                              
016012,002785: 41,3451           10011                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
016013,002786: 
016014,002787: 41,3452  04,2011               MODROUTB           =        V37                                   
016015,002788: 41,3452           40002        REQMM              CS       Q                                     
016016,002789: 41,3453           55013                           TS       REQRET                                
016017,002790: 41,3454           34375                           CAF      ND1                                   
016018,002791: 41,3455           54777                           TS       DSPCOUNT                              
016019,002792: 41,3456           35021                           CAF      ZERO                                  
016020,002793: 41,3457           55002                           TS       NOUNREG                               
016021,002794: 41,3460           04662                           TC       BANKCALL                              
016022,002795: 41,3461           60502                           CADR     2BLANK                                
016023,002796: 41,3462           04443                           TC       FLASHON                               
016024,002797: 41,3463           35017                           CAF      ONE                                   
016025,002798: 41,3464           55000                           TS       DECBRNCH                              #  SET FOR DEC
016026,002799: 41,3465           00136                           TC       ENTEXIT                               
016027,002800: 
016028,002801:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
016029,002802:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.  DISPLAY SYST IS RELEASED.
016030,002803:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
016031,002804:                                                                                                  #        COMPONENT 1     PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
016032,002805:                                                                                                  #        COMPONENT 2     JOB ADRES (12 BIT)

Page 366

016034,002807:                                                                                                  #        COMPONENT 3     BBCON
016035,002808: 
016036,002809: 41,3466           35017        VBRQEXEC           CAF      BIT1                                  
016037,002810: 41,3467           71045                           MASK     DSPTEM1                               
016038,002811: 41,3470           10000                           CCS      A                                     
016039,002812: 41,3471           03510                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
016040,002813: 41,3472           34365                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
016041,002814: 41,3473           54154        REQEX1             TS       MPAC                                  #  TC NOVAC OR TC FINDVAC INTO MPAC
016042,002815: 41,3474           45017                           CS       BIT1                                  
016043,002816: 41,3475           71045                           MASK     DSPTEM1                               
016044,002817: 41,3476           54160                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
016045,002818: 41,3477           04473        REQUESTC           TC       RELDSP                                
016046,002819: 41,3500           34233                           CA       ENDINST                               
016047,002820: 41,3501           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
016048,002821: 41,3502           00006                           EXTEND                                         
016049,002822: 41,3503           31047                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
016050,002823: 41,3504           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
016051,002824: 41,3505           30160                           CA       MPAC       +4                         #  PRIO IN A
016052,002825: 41,3506           00004                           INHINT                                         
016053,002826: 41,3507           00154                           TC       MPAC                                  
016054,002827: 
016055,002828: 41,3510           34370        SETVAC             CAF      TCFINDVC                              
016056,002829: 41,3511           03473                           TC       REQEX1                                
016057,002830: 
016058,002831:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
016059,002832:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.  DISPLAY SYST IS RELEASED.
016060,002833:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
016061,002834:                                                                                                  #        COMPONENT 1     DELAY (LOW BITS)
016062,002835:                                                                                                  #        COMPONENT 2     TASK ADRES (12 BIT)
016063,002836:                                                                                                  #        COMPONENT 3     BBCON
016064,002837: 
016065,002838: 41,3512           34366        VBRQWAIT           CAF      TCWAIT                                
016066,002839: 41,3513           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
016067,002840: 41,3514           31045                           CA       DSPTEM1                               #  TIME DELAY
016068,002841: 41,3515           03476        ENDRQWT            TC       REQUESTC   -1                         
016069,002842: 
016070,002843:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
016071,002844:                                                                                                  #  TC ENDOFJOB INTO MPAC+3.  IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
016072,002845:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
016073,002846: 
016074,002847: 40,3347                                           SETLOC   NVSBENDL   +1                         
016075,002848: 40,3347                                           COUNT    40/PIN                                
016076,002849: 
016077,002850: 40,3347           35017        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
016078,002851: 40,3350           55014                           TS       LOADSTAT                              
016079,002852: 40,3351           04220                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
016080,002853: 40,3352           04473                           TC       RELDSP                                
016081,002854: 40,3353           04447                           TC       FLASHOFF                              
016082,002855: 40,3354           03454                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
016083,002856: 

Page 367

016085,002858: 40,3355           45017        VBTERM             CS       ONE                                   
016086,002859: 40,3356           03350                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
016087,002860: 
016088,002861:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
016089,002862:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
016090,002863: 
016091,002864: 40,3357           35021        PROCKEY            CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
016092,002865: 40,3360           55013                           TS       REQRET                                
016093,002866: 40,3361           44374                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
016094,002867: 40,3362           54777                           TS       DSPCOUNT                              
016095,002868: 40,3363           03347                           TC       VBPROC                                
016096,002869: 
016097,002870:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
016098,002871:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
016099,002872:                                                                                                  #  DISPLAYS IN ENDIDLE.  SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
016100,002873:                                                                                                  #  OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
016101,002874: 
016102,002875: 40,3364           45021        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
016103,002876: 40,3365           03350                           TC       VBPROC     +1                         
016104,002877: 
016105,002878:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
016106,002879:                                                                                                  #  END OF LOAD.

Page 368

016108,002881: 
016109,002882:                                                                                                  #  KEY RELEASE ROUTINE
016110,002883: 
016111,002884:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
016112,002885: 
016113,002886:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
016114,002887:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
016115,002888:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
016116,002889:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
016117,002890: 
016118,002891:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
016119,002892:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
016120,002893:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
016121,002894: 
016122,002895:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
016123,002896:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
016124,002897:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
016125,002898:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
016126,002899:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
016127,002900:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
016128,002901:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES.  HITTING KEYRLSE WILL
016129,002902:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
016130,002903:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
016131,002904:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
016132,002905:                                                                                                  #  SUBROUTINES.
016133,002906: 
016134,002907: 40,3366           45015        VBRELDSP           CS       BIT3                                  
016135,002908: 40,3367           00006                           EXTEND                                         
016136,002909: 40,3370           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
016137,002910: 40,3371           10115                           CCS      21/22REG                              #  OLD DSPLOCK
016138,002911: 40,3372           35002                           CAF      BIT14                                 
016139,002912: 40,3373           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
016140,002913: 40,3374           10000                           CCS      A                                     
016141,002914: 40,3375           03404                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
016142,002915: 40,3376           04473        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
016143,002916: 40,3377           11042                           CCS      CADRSTOR                              #        RELEASE DISPLAY SYSTEM AND
016144,002917: 40,3400           03402                           TC       +2                                    #        DO RE-ESTABLISH IF CADRSTOR IS FULL.
016145,002918: 40,3401           05217                           TC       ENDOFJOB                              
016146,002919: 40,3402           04701                           TC       POSTJUMP                              
016147,002920: 40,3403           21272                           CADR     PINBRNCH                              
016148,002921: 40,3404           35021        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
016149,002922: 40,3405           55012                           TS       DSPLOCK                               #        JUST UNSUSPEND IT BY CLEARING DSPLOCK.
016150,002923: 40,3406           11042                           CCS      CADRSTOR                              #        TURN KEY RELEASE LIGHT OFF IF BOTH
016151,002924: 40,3407           05217                           TC       ENDOFJOB                              #        CADRSTOR AND DSPLIST ARE EMPTY.
016152,002925: 40,3410           04516                           TC       RELDSP1                               
016153,002926: 40,3411           05217                           TC       ENDOFJOB                              
016154,002927: 
016155,002928: 40,3412                        ENDRELDS           EQUALS                                         
016156,002929: 

Page 369

016158,002931:                                                                                                  #  NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER.  IT CAN BE
016159,002932:                                                                                                  #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
016160,002933:                                                                                                  #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
016161,002934:                                                                                                  #  PLACE 0VVVVVVVNNNNNNN INTO A.
016162,002935:                                                                                                  #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
016163,002936: 
016164,002937:                                                                                                  #  IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
016165,002938:                                                                                                  #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
016166,002939:                                                                                                  #  -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
016167,002940: 
016168,002941:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
016169,002942:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
016170,002943: 
016171,002944:                                                                                                  #  NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
016172,002945:                                                                                                  #  SYSTEM IS AVAILABLE.  THE NEW NOUN AND VERB CODES ARE DISPLAYED.
016173,002946:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
016174,002947:                                                                                                  #  ACTION).  IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY (RETURN WITH NO
016175,002948:                                                                                                  #  FURTHER ACTION).
016176,002949: 
016177,002950:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
016178,002951:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
016179,002952:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
016180,002953:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
016181,002954: 
016182,002955:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
016183,002956:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET
016184,002957:                                                                                                  #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
016185,002958:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
016186,002959:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
016187,002960:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
016188,002961:                                                                                                  #  MONITOR SET UP.
016189,002962: 
016190,002963:                                                                                                  #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
016191,002964:                                                                                                  #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
016192,002965: 
016193,002966:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
016194,002967:                                                                                                  #  MONITOR.
016195,002968: 
016196,002969:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
016197,002970:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
016198,002971: 
016199,002972:                                                                                                  #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
016200,002973:                                                                                                  #  (SIMILARLY FOR PLEASE MARK).  FIRST PLACE THE CODED NUMBER FOR WHAT
016201,002974:                                                                                                  #  ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE
016202,002975:                                                                                                  #  :CHECKLIST: NOUN.  GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
016203,002976:                                                                                                  #  NOUN.  GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
016204,002977:                                                                                                  #  LOW 7 BITS.  THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
016205,002978:                                                                                                  #  LIGHTS.
016206,002979: 
016207,002980:                                                                                                  #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL

Page 370

016209,002982:                                                                                                  #  PARAMETER IN L.  IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
016210,002983:                                                                                                  #  A.  AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
016211,002984:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
016212,002985:                                                                                                  #  SPECIFIED IN L.  IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
016213,002986:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS.  (THIS VERB
016214,002987:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.)  IF BITS 1-3 OF L ARE
016215,002988:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
016216,002989:                                                                                                  #  BLANKSUB.  IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
016217,002990:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
016218,002991: 
016219,002992:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
016220,002993:                                                                                                  #  ENTRET.  (THIS WILL RESTORE OLD CALLING BANK BITS)
016221,002994: 
016222,002995:    4170                                           SETLOC   ENDALM     +1                         
016223,002996: 
016224,002997:    4170                                           COUNT    02/PIN                                
016225,002998: 
016226,002999:    4170           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
016227,003000:    4171           54123        NVMONOPT           TS       NVTEMP                                
016228,003001:    4172           35002                           CAF      BIT14                                 
016229,003002:    4173           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016230,003003:    4174           61012                           AD       DSPLOCK                               
016231,003004:    4175           10000                           CCS      A                                     
016232,003005:    4176           00002                           TC       Q                                     #  DSP SYST BLOCKED.  RET TO 1+ CALLING LOC
016233,003006:    4177           35017                           CAF      ONE                                   #  DSP SYST AVAILABLE
016234,003007:    4200           60002        NVSBCOM            AD       Q                                     
016235,003008:    4201           55037                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
016236,003009:    4202           23022                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
016237,003010:    4203           04220                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
016238,003011:    4204           34215        NVSUBCOM           CAF      NVSBBBNK                              
016239,003012: 
016240,003013:    4205           56006                           XCH      BBANK                                 
016241,003014:    4206           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
016242,003015:    4207           04007                           ROR      SUPERBNK                              
016243,003016:    4210           55040                           TS       NVBNKTEM                              
016244,003017:    4211           34215                           CAF      PINSUPBT                              
016245,003018:    4212           00006                           EXTEND                                         
016246,003019:    4213           01007                           WRITE    SUPERBNK                              
016247,003020:    4214           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
016248,003021:    4215     0777                                  EBANK=   DSPCOUNT                              
016249,003022:    4215           62101        NVSBBBNK           BBCON    NVSUB1                                
016250,003023: 
016251,003024:    4216     4215               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
016252,003025: 
016253,003026:    4216           53040        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
016254,003027:    4217           05227                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
016255,003028: 
016256,003029: 41,3516                                           SETLOC   ENDRQWT    +1                         
016257,003030: 
016258,003031: 41,3516                                           COUNT    41/PIN                                

Page 371

016260,003033: 
016261,003034:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
016262,003035:                                                                                                  #  -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
016263,003036: 
016264,003037: 41,3516           65023        BLANKDSP           AD       SEVEN                                 #  7,8,9, OR 10 (A HAD 0,1,2,OR 3)
016265,003038: 41,3517           00004                           INHINT                                         
016266,003039: 41,3520           54124                           TS       CODE                                  #  BLANK SPECIFIED DSPTABS
016267,003040: 41,3521           45004                           CS       BIT12                                 
016268,003041: 41,3522           50124                           INDEX    CODE                                  
016269,003042: 41,3523           57023                           XCH      DSPTAB                                
016270,003043: 41,3524           10000                           CCS      A                                     
016271,003044: 41,3525           25016                           INCR     NOUT                                  
016272,003045: 41,3526           03527                           TC       +1                                    
016273,003046: 41,3527           10124                           CCS      CODE                                  
016274,003047: 41,3530           03520                           TC       BLANKDSP   +2                         
016275,003048: 41,3531           00003                           RELINT                                         
016276,003049: 41,3532           50123                           INDEX    NVTEMP                                
016277,003050: 41,3533           03540                           TC       +5                                    
016278,003051: 41,3534           03535                           TC       +1                                    #  NVTEMP HAS    -4 (NEVER TOUCH MODREG)
016279,003052: 41,3535           55001                           TS       VERBREG                               #                -3
016280,003053: 41,3536           55002                           TS       NOUNREG                               #                -2
016281,003054: 41,3537           55015                           TS       CLPASS                                #                -1
016282,003055: 41,3540           44374                           CS       VD1                                   
016283,003056: 41,3541           54777                           TS       DSPCOUNT                              
016284,003057: 41,3542           04447                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
016285,003058: 41,3543           03566                           TC       ENTSET     -2                         #  ZEROS REQRET
016286,003059: 
016287,003060: 41,3544           33570        NVSUB1             CAF      ENTSET                                #  IN BANK
016288,003061: 41,3545           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
016289,003062: 41,3546           10123                           CCS      NVTEMP                                #  WHAT NOW
016290,003063: 41,3547           03553                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
016291,003064: 41,3550           02351                           TC       GODSPALM                              
016292,003065: 41,3551           03516                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
016293,003066: 41,3552           02351                           TC       GODSPALM                              
016294,003067: 41,3553           36043                           CAF      LOW7                                  
016295,003068: 41,3554           70123                           MASK     NVTEMP                                
016296,003069: 41,3555           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC.  DSPDECVN
016297,003070: 41,3556           30123                           CA       NVTEMP                                #                 USES MPAC, +1, +2
016298,003071: 41,3557           54023                           TS       EDOP                                  #  RIGHT 7
016299,003072: 41,3560           30023                           CA       EDOP                                  
016300,003073: 41,3561           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1.  DSPDECVN
016301,003074:                                                                                                  #                 USES MPAC, +1, +2).
016302,003075: 41,3562           10157                           CCS      MPAC       +3                         #  TEST NOUN
016303,003076: 41,3563           03571                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
016304,003077: 41,3564           30160                           CA       MPAC       +4                         
016305,003078: 41,3565           02337                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB.  THEN RETURN
016306,003079: 41,3566           35021                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
016307,003080: 41,3567           55013                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
016308,003081: 41,3570           04216        ENTSET             TC       NVSUBEND                              
016309,003082: 41,3571           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
016310,003083: 41,3572           03576                           TC       +4                                    #  IF VERB NOT +0, GO ON

Page 372

016312,003085: 41,3573           30157                           CA       MPAC       +3                         
016313,003086: 41,3574           02317                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN.  THEN RETURN
016314,003087: 41,3575           04216                           TC       NVSUBEND                              
016315,003088: 41,3576           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC.  (DSPDECVN
016316,003089: 41,3577           54161                           TS       MPAC       +5                         #        USES MPAC, +1, +2)
016317,003090: 41,3600           30160                           CA       MPAC       +4                         
016318,003091: 41,3601           02337                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
016319,003092: 41,3602           30157                           CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
016320,003093: 41,3603           02317                           TC       UPDATNN    -1                         
016321,003094: 41,3604           35021                           CAF      ZERO                                  
016322,003095: 41,3605           55014                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
016323,003096: 41,3606           55015                           TS       CLPASS                                
016324,003097: 41,3607           55013                           TS       REQRET                                #  SET REQRET FOR PASS 0.
016325,003098: 41,3610           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
016326,003099: 41,3611           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
016327,003100: 41,3612           02035        ENDNVSB1           TC       ENTPAS0                               
016328,003101: 
016329,003102:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
016330,003103:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS).
016331,003104: 
016332,003105:    4220                                           SETLOC   NVSUBEND   +2                         
016333,003106:    4220                                           COUNT    02/PIN                                
016334,003107:                                                                                                  #  FORCE BIT 15 OF MONSAVE1 TO 1.
016335,003108:    4220           35001        KILMONON           CAF      BIT15                                 #        THIS IS THE KILL MONITOR BIT.
016336,003109:    4221           55021                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
016337,003110:                                                                                                  #        MONITOR BIT.
016338,003111:    4222           00002                           TC       Q                                     
016339,003112: 
016340,003113:                                                                                                  #  LOADSTAT      +0      INACTIVE (WAITING FOR DATA).  SET BY NVSUB
016341,003114:                                                                                                  #                +1      PROCEED NO DATA.  SET BY SPECIAL VERB
016342,003115:                                                                                                  #                -1      TERMINATE       SET BY SPECIAL VERB
016343,003116:                                                                                                  #                -0      DATA IN         SET BY END OF LOAD ROUTINE
016344,003117:                                                                                                  #                        OR RESEQUENCE   SET BY VERB 32
016345,003118: 
016346,003119:                                                                                                  #  L TC ENDIDLE (FIXED FIXED)
016347,003120:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
016348,003121:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED.  ENDIDLE PUTS CURRENT JOB TO SLEEP.
016349,003122:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016350,003123:                                                                                                  #  SINCE JOB SLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016351,003124:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
016352,003125:                                                                                                  #        L+1     FOR TERMINATE
016353,003126:                                                                                                  #        L+2     FOR PROCEED WITHOUT DATA
016354,003127:                                                                                                  #        L+3     FOR DATA IN, OR RESEQUENCE
016355,003128:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.

Page 373

016357,003130: 
016358,003131:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
016359,003132:                                                                                                  #  IN PINBALL.  IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
016360,003133:                                                                                                  #        1)      CADRSTOR NOT= +0.  THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
016361,003134:                                                                                                  #                EXCEEDED.  (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
016362,003135:                                                                                                  #        2)      DSPLIST NOT= +0.  THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
016363,003136:                                                                                                  #                NVSUBUSY.
016364,003137: 
016365,003138:    4223           22002        ENDIDLE            LXCH     Q                                     #  RETURN ADDRESS INTO L.
016366,003139:    4224           04234                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
016367,003140:    4225           04240                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
016368,003141:    4226           30001                           CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
016369,003142:    4227           75054                           MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
016370,003143:    4230           60004                           AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
016371,003144:    4231           55042                           TS       CADRSTOR                              
016372,003145:    4232           05175                           TC       JOBSLEEP                              
016373,003146: 
016374,003147:    4233           05217        ENDINST            TC       ENDOFJOB                              
016375,003148: 
016376,003149:    4234           11042        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
016377,003150:    4235           04243                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
016378,003151:    4236           00002                           TC       Q                                     
016379,003152:    4237           04243                           TC       DSPABORT                              
016380,003153: 
016381,003154:    4240           11043        ISLIST+0           CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
016382,003155:    4241           04243                           TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
016383,003156:    4242           00002                           TC       Q                                     
016384,003157:    4243           05721        DSPABORT           TC       POODOO                                
016385,003158:    4244           01206                           OCT      01206                                 
016386,003159: 
016387,003160:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
016388,003161:                                                                                                  #  IT DOES ENDOFJOB.
016389,003162: 
016390,003163:    4245           34215        JAMTERM            CAF      PINSUPBT                              
016391,003164:    4246           00006                           EXTEND                                         
016392,003165:    4247           01007                           WRITE    SUPERBNK                              
016393,003166:    4250           34256                           CAF      34DEC                                 
016394,003167:    4251           55013                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
016395,003168:    4252           44374                           CS       VD1                                   
016396,003169:    4253           54777                           TS       DSPCOUNT                              
016397,003170:    4254           04701                           TC       POSTJUMP                              
016398,003171:    4255           61355                           CADR     VBTERM                                
016399,003172: 
016400,003173:    4256           00042        34DEC              DEC      34         B-14                       
016401,003174: 
016402,003175:                                                                                                  #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
016403,003176:                                                                                                  #  FUNCTION.  IT DOES ENDOFJOB.

Page 374

016405,003178: 
016406,003179:    4257           34215        JAMPROC            CAF      PINSUPBT                              
016407,003180:    4260           00006                           EXTEND                                         
016408,003181:    4261           01007                           WRITE    SUPERBNK                              
016409,003182:    4262           34270                           CAF      33DEC                                 
016410,003183:    4263           55013                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
016411,003184:    4264           44374                           CS       VD1                                   
016412,003185:    4265           54777                           TS       DSPCOUNT                              
016413,003186:    4266           04701                           TC       POSTJUMP                              
016414,003187:    4267           61347                           CADR     VBPROC                                
016415,003188: 
016416,003189:    4270           00041        33DEC              DEC      33         B-14                       
016417,003190: 
016418,003191:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
016419,003192:                                                                                                  #  CALL WITH BLANKING CODE IN A.
016420,003193:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
016421,003194:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
016422,003195: 
016423,003196:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
016424,003197: 
016425,003198:    4271           75023        BLANKSUB           MASK     SEVEN                                 
016426,003199:    4272           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
016427,003200:    4273           35002                           CAF      BIT14                                 
016428,003201:    4274           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016429,003202:    4275           61012                           AD       DSPLOCK                               
016430,003203:    4276           10000                           CCS      A                                     
016431,003204:    4277           00002                           TC       Q                                     #  DSP SYST BLOCKED.  RET TO 1+ CALLING LOC
016432,003205:    4300           24002                           INCR     Q                                     #  DSP SYST AVAILABLE
016433,003206:                                                                                                  #  SET RETURN FOR 2+ CALLING LOC
016434,003207:    4301           10123                           CCS      NVTEMP                                
016435,003208:    4302           14304                           TCF      +2                                    
016436,003209:    4303           00002                           TC       Q                                     #  NOTHING TO BLANK.  RET TO 2+ CALLING LOC
016437,003210:    4304           22002                           LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
016438,003211:    4305           34316                           CAF      BLNKBBNK                              
016439,003212:    4306           56006                           XCH      BBANK                                 
016440,003213:    4307           00006                           EXTEND                                         
016441,003214:    4310           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
016442,003215:    4311           52131                           DXCH     BUF                                   
016443,003216:    4312           34215                           CAF      PINSUPBT                              
016444,003217:    4313           00006                           EXTEND                                         
016445,003218:    4314           01007                           WRITE    SUPERBNK                              
016446,003219:    4315           03412                           TC       BLNKSUB1                              
016447,003220: 
016448,003221:    4316     0777                                  EBANK=   DSPCOUNT                              
016449,003222:    4316           60101        BLNKBBNK           BBCON    BLNKSUB1                              
016450,003223:    4317                        ENDBLFF            EQUALS                                         
016451,003224: 
016452,003225: 40,3412                                           SETLOC   ENDRELDS                              
016453,003226: 40,3412                                           COUNT    40/PIN                                
016454,003227: 

Page 375

016456,003229: 40,3412           30777        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
016457,003230: 40,3413           54132                           TS       BUF        +2                         
016458,003231: 40,3414           35017                           CAF      BIT1                                  #  TEST BIT1.  SEE IF R1 TO BE BLANKED.
016459,003232: 40,3415           03434                           TC       TESTBIT                               
016460,003233: 40,3416           34333                           CAF      R1D1                                  
016461,003234: 40,3417           02436                           TC       5BLANK     -1                         
016462,003235: 40,3420           35016                           CAF      BIT2                                  #  TEST BIT2.  SEE IF R2 TO BE BLANKED.
016463,003236: 40,3421           03434                           TC       TESTBIT                               
016464,003237: 40,3422           34334                           CAF      R2D1                                  
016465,003238: 40,3423           02436                           TC       5BLANK     -1                         
016466,003239: 40,3424           35015                           CAF      BIT3                                  #  TEST BIT3.  SEE IF R3 TO BE BLANKED.
016467,003240: 40,3425           03434                           TC       TESTBIT                               
016468,003241: 40,3426           34335                           CAF      R3D1                                  
016469,003242: 40,3427           02436                           TC       5BLANK     -1                         
016470,003243: 40,3430           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
016471,003244: 40,3431           54777                           TS       DSPCOUNT                              #        BEFORE BLANKSUB.
016472,003245: 40,3432           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
016473,003246: 40,3433           05230                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
016474,003247: 
016475,003248: 40,3434           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
016476,003249: 40,3435           10000                           CCS      A                                     
016477,003250: 40,3436           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
016478,003251: 40,3437           50002                           INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
016479,003252: 40,3440           00002                           TC       2                                     
016480,003253: 
016481,003254: 40,3441                        ENDBSUB1           EQUALS                                         
016482,003255: 
016483,003256:                                                                                                  #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY.  IT PUTS IN EXEC REQUEST WITH
016484,003257:                                                                                                  #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
016485,003258: 
016486,003259:                                                                                                  #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
016487,003260: 
016488,003261:                                                                                                  #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
016489,003262: 
016490,003263: 07,2441                                           BANK     7                                     
016491,003264: 04,2000                                           SETLOC   PINBALL4                              
016492,003265: 04,2000                                           BANK                                           
016493,003266: 
016494,003267: 04,2566                                           COUNT    07/PIN                                
016495,003268: 
016496,003269: 04,2566           56002        DSPMM              XCH      Q                                     
016497,003270: 04,2567           54154                           TS       MPAC                                  
016498,003271: 04,2570           00004                           INHINT                                         
016499,003272: 04,2571           34371                           CAF      CHRPRIO                               
016500,003273: 04,2572           05134                           TC       NOVAC                                 
016501,003274: 04,2573     0777                                  EBANK=   DSPCOUNT                              
016502,003275: 04,2573           03441 60101                     2CADR    DSPMMJB                               
016503,003276: 
016504,003277: 04,2575           00003                           RELINT                                         

Page 376

016506,003279: 04,2576           00154        ENDSPMM            TC       MPAC                                  
016507,003280: 
016508,003281:                                                                                                  #  DSPMM PLACE MAJOR MODE CODE INTO MODREG
016509,003282: 
016510,003283: 40,3441                                           SETLOC   ENDBSUB1                              
016511,003284: 
016512,003285: 40,3441                                           COUNT    40/PIN                                
016513,003286: 
016514,003287: 40,3441           34376        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
016515,003288: 40,3442           56777                           XCH      DSPCOUNT                              
016516,003289: 40,3443           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
016517,003290: 40,3444           11011                           CCS      MODREG                                
016518,003291: 40,3445           65017                           AD       ONE                                   
016519,003292: 40,3446           03213                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
016520,003293: 40,3447           03451                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
016521,003294: 40,3450           02502                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
016522,003295: 40,3451           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
016523,003296: 40,3452           54777                           TS       DSPCOUNT                              
016524,003297: 40,3453           05217                           TC       ENDOFJOB                              
016525,003298: 
016526,003299:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
016527,003300:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
016528,003301:                                                                                                  #  EXECUTED.  IT WAKES UP JOB THAT DID TC ENDIDLE.
016529,003302:                                                                                                  #  
016530,003303:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
016531,003304:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
016532,003305: 
016533,003306: 40,3454           11042        RECALTST           CCS      CADRSTOR                              
016534,003307: 40,3455           03457                           TC       RECAL1                                
016535,003308: 40,3456           05217                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
016536,003309: 40,3457           35021        RECAL1             CAF      ZERO                                  
016537,003310: 40,3460           57042                           XCH      CADRSTOR                              
016538,003311: 40,3461           00004                           INHINT                                         
016539,003312: 40,3462           05201                           TC       JOBWAKE                               
016540,003313: 40,3463           11014                           CCS      LOADSTAT                              
016541,003314: 40,3464           03506                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
016542,003315: 40,3465           05217                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
016543,003316: 40,3466           03504                           TC       DOTERM                                #  -  TERMINATE
016544,003317: 40,3467           35016                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
016545,003318: 40,3470           50064        RECAL2             INDEX    LOCCTR                                
016546,003319: 40,3471           60164                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
016547,003320: 40,3472           50064                           INDEX    LOCCTR                                
016548,003321: 40,3473           54164                           TS       LOC                                   
016549,003322: 40,3474           31002                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
016550,003323: 40,3475           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
016551,003324: 40,3476           31001                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
016552,003325: 40,3477           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
016553,003326: 40,3500           52155                           DXCH     MPAC                                  
016554,003327: 40,3501           00003                           RELINT                                         

Page 377

016556,003329: 40,3502           04473        RECAL3             TC       RELDSP                                
016557,003330: 40,3503           05217                           TC       ENDOFJOB                              
016558,003331: 
016559,003332: 40,3504           35021        DOTERM             CAF      ZERO                                  
016560,003333: 40,3505           03470                           TC       RECAL2                                
016561,003334: 
016562,003335: 40,3506           35017        DOPROC             CAF      ONE                                   
016563,003336: 40,3507           03470                           TC       RECAL2                                
016564,003337: 
016565,003338: 40,3510  30,2000                                  SBANK=   LOWSUPER                              

Page 378

016567,003340:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
016568,003341: 
016569,003342:    4317                                           SETLOC   ENDBLFF                               
016570,003343: 
016571,003344:    4317                                           COUNT    02/PIN                                
016572,003345: 
016573,003346:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A.  IT IS STORED IN NOUNCADR.  EBANK BITS
016574,003347:                                                                                                  #                ARE SET.  E ADRES IS DERIVED AND PUT INTO NOUNADD.
016575,003348: 
016576,003349:    4317           55017        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
016577,003350:    4320           54003                           TS       EBANK                                 #  SET EBANK BITS
016578,003351:    4321           74373                           MASK     LOW8                                  
016579,003352:    4322           65051                           AD       OCT1400                               
016580,003353:    4323           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
016581,003354:    4324           00002                           TC       Q                                     
016582,003355: 
016583,003356:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
016584,003357:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
016585,003358: 
016586,003359:    4325           31017        SETNADD            CA       NOUNCADR                              
016587,003360:    4326           14320                           TCF      SETNCADR   +1                         
016588,003361: 
016589,003362:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A.  EBANK BITS ARE SET.  E ADRES IS
016590,003363:                                                                                                  #                DERIVED AND LEFT IN A.
016591,003364: 
016592,003365:    4327           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
016593,003366:    4330           74373                           MASK     LOW8                                  
016594,003367:    4331           65051                           AD       OCT1400                               #  E ADRES LEFT IN A
016595,003368:    4332           00002                           TC       Q                                     
016596,003369: 
016597,003370:    4333           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016598,003371:    4334           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
016599,003372:    4335           00004        R3D1               OCT      4                                     
016600,003373: 
016601,003374:    4336           54020        RIGHT5             TS       CYR                                   
016602,003375:    4337           40020                           CS       CYR                                   
016603,003376:    4340           40020                           CS       CYR                                   
016604,003377:    4341           40020                           CS       CYR                                   
016605,003378:    4342           40020                           CS       CYR                                   
016606,003379:    4343           56020                           XCH      CYR                                   
016607,003380:    4344           00002                           TC       Q                                     
016608,003381: 
016609,003382:    4345           54022        LEFT5              TS       CYL                                   
016610,003383:    4346           40022                           CS       CYL                                   
016611,003384:    4347           40022                           CS       CYL                                   
016612,003385:    4350           40022                           CS       CYL                                   

Page 379

016614,003387:    4351           40022                           CS       CYL                                   
016615,003388:    4352           56022                           XCH      CYL                                   
016616,003389:    4353           00002                           TC       Q                                     
016617,003390: 
016618,003391:    4354           60000        SLEFT5             DOUBLE                                         
016619,003392:    4355           60000                           DOUBLE                                         
016620,003393:    4356           60000                           DOUBLE                                         
016621,003394:    4357           60000                           DOUBLE                                         
016622,003395:    4360           60000                           DOUBLE                                         
016623,003396:    4361           00002                           TC       Q                                     
016624,003397: 
016625,003398:    4362           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016626,003399:    4363           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
016627,003400:    4364           76000        HI5                OCT      76000                                 #  MUST STAY HERE
016628,003401: 
016629,003402:    4365           05134        TCNOVAC            TC       NOVAC                                 
016630,003403:    4366           05245        TCWAIT             TC       WAITLIST                              
016631,003404:    4367           05324        TCTSKOVR           TC       TASKOVER                              
016632,003405:    4370           05147        TCFINDVC           TC       FINDVAC                               
016633,003406: 
016634,003407:    4371           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
016635,003408: 
016636,003409:    4372           03777        LOW11              OCT      3777                                  
016637,003410:    4373     4372               B12-1              EQUALS   LOW11                                 
016638,003411:    4373           00377        LOW8               OCT      377                                   
016639,003412: 
016640,003413:    4374           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
016641,003414:    4375           00021        ND1                OCT      21                                    #  DONT SEPARATE.
016642,003415:    4376           00025        MD1                OCT      25                                    
016643,003416: 
016644,003417:    4377           00012        BINCON             DEC      10         B-14                       
016645,003418: 
016646,003419:    4400           35011        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
016647,003420:    4401           00006                           EXTEND                                         
016648,003421:    4402           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
016649,003422:    4403           00002                           TC       Q                                     
016650,003423: 
016651,003424:    4404           45011        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
016652,003425:    4405           00006                           EXTEND                                         
016653,003426:    4406           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
016654,003427:    4407           00002                           TC       Q                                     
016655,003428: 
016656,003429:    4410           35013        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
016657,003430:    4411           00006                           EXTEND                                         
016658,003431:    4412           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
016659,003432:    4413           00002                           TC       Q                                     
016660,003433: 

Page 380

016662,003435:    4414           00006        LODSAMPT           EXTEND                                         
016663,003436:    4415           30025                           DCA      TIME2                                 
016664,003437:    4416           52014                           DXCH     SAMPTIME                              
016665,003438:    4417           00002                           TC       Q                                     
016666,003439: 
016667,003440:    4420           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
016668,003441:    4421           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
016669,003442:    4422           20156                           DAS      MPAC       +1                         
016670,003443:    4423           60154                           AD       MPAC                                  
016671,003444:    4424           26154                           ADS      MPAC                                  
016672,003445:    4425           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
016673,003446:    4426           00002                           TC       Q                                     #  NO NET OF/UF
016674,003447:    4427           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/- 1 FOR OF/UF
016675,003448:    4430           00002                           TC       Q                                     
016676,003449: 
016677,003450:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
016678,003451:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
016679,003452:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
016680,003453:                                                                                                  #  SETTING RESULT TO -0.
016681,003454: 
016682,003455:                                                                                                  #  (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
016683,003456:                                                                                                  #  WHEN THEY CONTAIN THE SF CONSTANTS.)
016684,003457: 
016685,003458:    4431           54135        PRSHRTMP           TS       MPTEMP                                
016686,003459:    4432           10000                           CCS      A                                     
016687,003460:    4433           30135                           CA       MPTEMP                                #  C(A) +,  DO REGULAR SHORTMP
016688,003461:    4434           17257                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
016689,003462:    4435           14433                           TCF      -2                                    #  C(A) -,  DO REGULAR SHORTMP
016690,003463:    4436           45021                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
016691,003464:    4437           54154                           TS       MPAC                                  
016692,003465:    4440           54155                           TS       MPAC       +1                         
016693,003466:    4441           54156                           TS       MPAC       +2                         
016694,003467:    4442           00002                           TC       Q                                     
016695,003468: 
016696,003469:    4443           35012        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
016697,003470:    4444           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
016698,003471:    4445           05011                           WOR      DSALMOUT                              
016699,003472:    4446           00002                           TC       Q                                     
016700,003473: 
016701,003474:    4447           45012        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
016702,003475:    4450           00006                           EXTEND                                         
016703,003476:    4451           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
016704,003477:    4452           00002                           TC       Q                                     
016705,003478: 

Page 381

016707,003480:                                                                                                  #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
016708,003481: 
016709,003482:                                                                                                  #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
016710,003483:                                                                                                  #  CONFUSION TO OPERATOR.  THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
016711,003484:                                                                                                  #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
016712,003485:                                                                                                  #  OFFERED.
016713,003486: 
016714,003487:                                                                                                  #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
016715,003488:                                                                                                  #  PROGRAM.      1)      BY ENDIDLE
016716,003489:                                                                                                  #                2)      BY NVSUBUSY
016717,003490:                                                                                                  #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
016718,003491:                                                                                                  #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME.  IF A JOB ATTEMPTS TO GO TO
016719,003492:                                                                                                  #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY AJOB ASLEEP THAT WAS
016720,003493:                                                                                                  #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
016721,003494: 
016722,003495:                                                                                                  #  THE CALLING SEQUENCE FOR NVSUB IS
016723,003496:                                                                                                  #                        CAF             V/N
016724,003497:                                                                                                  #        L               TC              NVSUB
016725,003498:                                                                                                  #        L+1             RETURN HERE IF OPERATOR HAS INTERVENED
016726,003499:                                                                                                  #        L+2             RETURN HERE AFTER EXECUTION
016727,003500: 
016728,003501:                                                                                                  #  A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
016729,003502:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
016730,003503:                                                                                                  #  SYSTEM.  NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
016731,003504:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016732,003505:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016733,003506: 
016734,003507:                                                                                                  #  THE CALLING SEQUENCE IS
016735,003508:                                                                                                  #        CAF     WAKEFCADR
016736,003509:                                                                                                  #        TC      NVSUBUSY
016737,003510:                                                                                                  #  .
016738,003511: 
016739,003512:                                                                                                  #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
016740,003513:                                                                                                  #  IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION).  IT IS
016741,003514:                                                                                                  #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL 
016742,003515:                                                                                                  #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
016743,003516: 
016744,003517:                                                                                                  #  NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
016745,003518:                                                                                                  #  SLEEP IN PINBALL.  IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
016746,003519:                                                                                                  #  WHEN
016747,003520: 
016748,003521:                                                                                                  #        1)      DSPLIST NOT= +0.  THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
016749,003522:                                                                                                  #                IS EXCEEDED.
016750,003523:                                                                                                  #        2)      CADRSTOR NOT= +0.  THIS INDICATES THAT A JOB IS ALREADY USING

Page 382

016752,003525:                                                                                                  #  ENDIDLE.  (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
016753,003526: 
016754,003527:    4453           44460        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
016755,003528:    4454           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF (LOC
016756,003529:    4455           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
016757,003530:    4456           04701        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
016758,003531:    4457           10577                           CADR     NVSUBSY1                              
016759,003532:    4460           02003        2K+3               OCT      2003                                  
016760,003533: 
016761,003534:                                                                                                  #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
016762,003535:                                                                                                  #  WITH HIS PROPER SUPERBITS.
016763,003536: 
016764,003537: 04,2577                                           SETLOC   ENDSPMM    +1                         
016765,003538: 04,2577                                           COUNT    07/PIN                                
016766,003539: 
016767,003540: 04,2577           54001        NVSUBSY1           TS       L                                     
016768,003541: 04,2600           04234                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
016769,003542: 04,2601           04240                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
016770,003543: 04,2602           04410                           TC       RELDSPON                              
016771,003544: 04,2603           30001                           CA       L                                     
016772,003545: 04,2604           55043                           TS       DSPLIST                               
016773,003546: 04,2605           05175        ENDNVBSY           TC       JOBSLEEP                              
016774,003547: 
016775,003548:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
016776,003549:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
016777,003550:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE).  IF SYSTEM IS BUSY, IT PUTS CALLING JOB
016778,003551:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
016779,003552:                                                                                                  #  IS NOT BUSY.
016780,003553: 
016781,003554:    4461                                           SETLOC   NVSUBUSY   +3                         
016782,003555:    4461                                           COUNT    02/PIN                                
016783,003556: 
016784,003557:    4461           22007        NVSBWAIT           LXCH     7                                     #  ZERO NVMONOPT OPTIONS
016785,003558:    4462           54123                           TS       NVTEMP                                
016786,003559:    4463           35002                           CAF      BIT14                                 
016787,003560:    4464           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
016788,003561:    4465           61012                           AD       DSPLOCK                               
016789,003562:    4466           10000                           CCS      A                                     
016790,003563:    4467           14471                           TCF      NVSBWT1                               #  BUSY
016791,003564:    4470           14200                           TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
016792,003565:                                                                                                  #  AFTER EXECUTION.
016793,003566:    4471           24002        NVSBWT1            INCR     Q                                     #  L+2.  PRENVBSY WILL PUT L-1 INTO LIST AND
016794,003567:    4472           14453                           TCF      PRENVBSY                              #  GO TO SLEEP.
016795,003568: 
016796,003569:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
016797,003570:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
016798,003571: 
016799,003572:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
016800,003573: 
016801,003574:    4473           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT

Page 383

016803,003576:    4474           54144                           TS       RELRET                                #  OFF, SEARCH DSPLIST
016804,003577:    4475           45002                           CS       BIT14                                 
016805,003578:    4476           00004                           INHINT                                         
016806,003579:    4477           71021                           MASK     MONSAVE1                              
016807,003580:    4500           55021                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
016808,003581:    4501           11043                           CCS      DSPLIST                               
016809,003582:    4502           04504                           TC       +2                                    
016810,003583:    4503           04507                           TC       RELDSP2                               #  LIST EMPTY
016811,003584:    4504           35021                           CAF      ZERO                                  
016812,003585:    4505           57043                           XCH      DSPLIST                               
016813,003586:    4506           05201                           TC       JOBWAKE                               
016814,003587:    4507           00003        RELDSP2            RELINT                                         
016815,003588:    4510           45013                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
016816,003589:    4511           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
016817,003590:    4512           03011                           WAND     DSALMOUT                              
016818,003591:    4513           35021                           CAF      ZERO                                  
016819,003592:    4514           55012                           TS       DSPLOCK                               
016820,003593:    4515           00144                           TC       RELRET                                
016821,003594:    4516           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0.  NO DSPLIST SEARCH.
016822,003595:    4517           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
016823,003596:                                                                                                  #  EMPTY.  LEAVE KEY RLSE LIGHT ALONE IF 
016824,003597:                                                                                                  #  DSPLIST IS NOT EMPTY.
016825,003598:    4520           11043                           CCS      DSPLIST                               
016826,003599:    4521           04523                           TC       +2                                    #  +     NOT EMPTY.  LEAVE KEY RLSE LIGHT ALONE
016827,003600:    4522           04507                           TC       RELDSP2                               #  +0    EMPTY.  TURN OFF KEY RLSE LIGHT
016828,003601:    4523           35021                           CAF      ZERO                                  #  -     NOT EMPTY.  LEAVE KEY RLSE LIGHT ALONE
016829,003602:    4524           55012                           TS       DSPLOCK                               
016830,003603:    4525           00144                           TC       RELRET                                
016831,003604: 
016832,003605:    4526                        ENDPINBF           EQUALS                                         
016833,003606: 

Page 384

016835,003608:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
016836,003609: 
016837,003610:    4526  43,2002               PINTEST            EQUALS   LST2FAN                               
016838,003611: 

Page 385

016840,003613:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS.  AFTER 5 SEC, IT TURNS
016841,003614:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
016842,003615: 
016843,003616: 41,3613                                           SETLOC   ENDNVSB1   +1                         
016844,003617: 
016845,003618: 41,3613                                           COUNT    41/PIN                                
016846,003619: 
016847,003620: 41,3613           04662        VBTSTLTS           TC       BANKCALL                              
016848,003621: 41,3614           66730                           CADR     CHKPOOH                               
016849,003622: 
016850,003623: 41,3615           00004                           INHINT                                         
016851,003624: 41,3616           45017                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
016852,003625: 41,3617           71321                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
016853,003626: 41,3620           65017                           AD       BIT1                                  
016854,003627: 41,3621           55321                           TS       IMODES33                              
016855,003628: 
016856,003629: 41,3622           33656                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
016857,003630: 41,3623           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
016858,003631: 41,3624           05011                           WOR      DSALMOUT                              
016859,003632: 41,3625           33657                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
016860,003633: 41,3626           55036                           TS       DSPTAB     +11D                       #  PROG ALM.
016861,003634: 41,3627           35006                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
016862,003635: 41,3630           00006                           EXTEND                                         
016863,003636: 41,3631           05013                           WOR      CHAN13                                
016864,003637: 41,3632           34377                           CAF      TEN                                   
016865,003638: 41,3633           54117        TSTLTS1            TS       ERCNT                                 
016866,003639: 41,3634           43654                           CS       FULLDSP                               
016867,003640: 41,3635           50117                           INDEX    ERCNT                                 
016868,003641: 41,3636           55023                           TS       DSPTAB                                
016869,003642: 41,3637           10117                           CCS      ERCNT                                 
016870,003643: 41,3640           03633                           TC       TSTLTS1                               
016871,003644: 41,3641           43655                           CS       FULLDSP1                              
016872,003645: 41,3642           55024                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
016873,003646: 41,3643           55027                           TS       DSPTAB     +4                         
016874,003647: 41,3644           55031                           TS       DSPTAB     +6                         
016875,003648: 41,3645           35024                           CAF      ELEVEN                                
016876,003649: 41,3646           55016                           TS       NOUT                                  
016877,003650: 41,3647           33661                           CAF      SHOLTS                                
016878,003651: 41,3650           05245                           TC       WAITLIST                              
016879,003652: 41,3651     1023                                  EBANK=   DSPTAB                                
016880,003653: 41,3651           03662 62102                     2CADR    TSTLTS2                               
016881,003654: 
016882,003655: 41,3653           05217                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
016883,003656:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
016884,003657:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
016885,003658: 
016886,003659: 41,3654           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
016887,003660: 41,3655           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
016888,003661: 41,3656           00175        TSTCON1            OCT      00175                                 

Page 386

016890,003663:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
016891,003664:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
016892,003665: 41,3657           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D BITS 4,6,8,9.
016893,003666:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
016894,003667: 41,3660           00115        TSTCON3            OCT      00115                                 #  CHAN 11 BITS 1, 3, 4, 7.
016895,003668:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
016896,003669: 41,3661           00764        SHOLTS             OCT      764                                   #  5 SEC
016897,003670: 
016898,003671: 41,3662           34371        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
016899,003672: 41,3663           05134                           TC       NOVAC                                 
016900,003673: 41,3664     1023                                  EBANK=   DSPTAB                                
016901,003674: 41,3664           03667 62102                     2CADR    TSTLTS3                               
016902,003675: 
016903,003676: 41,3666           05324                           TC       TASKOVER                              
016904,003677: 
016905,003678: 41,3667           43660        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
016906,003679: 41,3670           00004                           INHINT                                         
016907,003680: 41,3671           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY, TEMP,
016908,003681: 41,3672           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
016909,003682: 41,3673           45006                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
016910,003683: 41,3674           00006                           EXTEND                                         
016911,003684: 41,3675           03013                           WAND     CHAN13                                
016912,003685: 41,3676           35014                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
016913,003686: 41,3677           00006                           EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
016914,003687: 41,3700           02012                           RAND     CHAN12                                
016915,003688: 41,3701           65001                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
016916,003689: 41,3702           55036                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
016917,003690: 41,3703           43725                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
016918,003691: 41,3704           71321                           MASK     IMODES33                              #  LIGHTS COMPLETE.
016919,003692: 41,3705           65070                           AD       PRIO16                                
016920,003693: 41,3706           55321                           TS       IMODES33                              
016921,003694: 
016922,003695: 41,3707           43726                           CS       OCT55000                              
016923,003696: 41,3710           71320                           MASK     IMODES30                              
016924,003697: 41,3711           65067                           AD       PRIO15                                #  15000.
016925,003698: 41,3712           55320                           TS       IMODES30                              
016926,003699: 
016927,003700: 41,3713           41331                           CS       OPTMODES                              
016928,003701: 41,3714           75011                           MASK     BIT7                                  
016929,003702: 41,3715           27331                           ADS      OPTMODES                              
016930,003703: 41,3716           00003                           RELINT                                         
016931,003704: 
016932,003705: 41,3717           04662                           TC       BANKCALL                              #  REDISPLAY C(MODREG)
016933,003706: 41,3720           10566                           CADR     DSPMM                                 
016934,003707: 41,3721           04220                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
016935,003708: 41,3722           04447                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
016936,003709: 41,3723           04701                           TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
016937,003710: 41,3724           61376                           CADR     TSTLTS4                               #  ENDIDLE IS AWAITING OPERATOR RESPONSE.

Page 387

016939,003712: 41,3725           16001        13-11,1            OCT      16001                                 
016940,003713: 41,3726           55000        OCT55000           OCT      55000                                 
016941,003714: 41,3727                        ENDPINS2           EQUALS                                         
016942,003715: 

Page 388

016944,003717:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
016945,003718:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
016946,003719:                                                                                                  #  PROG ALM, TRACKER FAIL.
016947,003720: 
016948,003721:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
016949,003722:                                                                                                  #  
016950,003723:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY, RESTART.
016951,003724:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
016952,003725:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
016953,003726: 
016954,003727: 40,3510                                           SETLOC   DOPROC     +2                         
016955,003728: 40,3510                                           COUNT    40/PIN                                
016956,003729: 
016957,003730: 40,3510           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK).  THUS ERROR
016958,003731: 40,3511           55012                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
016959,003732: 40,3512           00004                           INHINT                                         
016960,003733: 40,3513           35006                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
016961,003734: 40,3514           00006                           EXTEND                                         
016962,003735: 40,3515           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
016963,003736: 40,3516           33576                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
016964,003737: 40,3517           71036                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
016965,003738: 40,3520           65001                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
016966,003739: 40,3521           55036                           TS       DSPTAB     +11D                       
016967,003740: 40,3522           45070                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
016968,003741: 40,3523           71321                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
016969,003742: 40,3524           65070                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
016970,003743: 40,3525           55321                           TS       IMODES33                              
016971,003744: 40,3526           45006                           CS       BIT10                                 
016972,003745: 40,3527           71320                           MASK     IMODES30                              
016973,003746: 40,3530           65006                           AD       BIT10                                 
016974,003747: 40,3531           55320                           TS       IMODES30                              
016975,003748: 
016976,003749: 40,3532           41331                           CS       OPTMODES                              
016977,003750: 40,3533           75011                           MASK     BIT7                                  
016978,003751: 40,3534           27331                           ADS      OPTMODES                              
016979,003752: 40,3535           45006                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
016980,003753: 40,3536           00006                           EXTEND                                         
016981,003754: 40,3537           03013                           WAND     CHAN13                                
016982,003755: 40,3540           43574                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
016983,003756: 40,3541           00006                           EXTEND                                         #  OPERATOR ERROR.
016984,003757: 40,3542           03011                           WAND     DSALMOUT                              
016985,003758: 40,3543           34377        TSTAB              CAF      BINCON                                #  (DEC 10)
016986,003759: 40,3544           54117                           TS       ERCNT                                 #  ERCNT = COUNT
016987,003760: 40,3545           00004                           INHINT                                         
016988,003761: 40,3546           50117                           INDEX    ERCNT                                 
016989,003762: 40,3547           11023                           CCS      DSPTAB                                
016990,003763: 40,3550           65017                           AD       ONE                                   
016991,003764: 40,3551           03556                           TC       ERPLUS                                
016992,003765: 40,3552           65017                           AD       ONE                                   
016993,003766: 40,3553           40000        ERMINUS            CS       A                                     
016994,003767: 40,3554           73577                           MASK     NOTBIT12                              
016995,003768: 40,3555           03561                           TC       ERCOM                                 

Page 389

016997,003770: 40,3556           40000        ERPLUS             CS       A                                     
016998,003771: 40,3557           73577                           MASK     NOTBIT12                              
016999,003772: 40,3560           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
017000,003773: 40,3561           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
017001,003774: 40,3562           55023                           TS       DSPTAB                                
017002,003775: 40,3563           00003                           RELINT                                         
017003,003776: 40,3564           10117                           CCS      ERCNT                                 
017004,003777: 40,3565           03544                           TC       TSTAB      +1                         
017005,003778: 40,3566           35021                           CAF      ZERO                                  
017006,003779: 40,3567           54375                           TS       FAILREG                               
017007,003780: 40,3570           54376                           TS       FAILREG    +1                         
017008,003781: 40,3571           54377                           TS       FAILREG    +2                         
017009,003782: 40,3572           55357                           TS       SFAIL                                 
017010,003783: 40,3573           05217                           TC       ENDOFJOB                              
017011,003784: 
017012,003785: 40,3574           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
017013,003786:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
017014,003787: 40,3575           00240        BITS6,8            OCT      240                                   
017015,003788: 40,3576           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS
017016,003789: 40,3577           73777        NOTBIT12           OCT      73777                                 
017017,003790: 
017018,003791: 40,3600                        ENDPINS1           EQUALS                                         
017019,003792: 
017020,003793: 40,3600  30,2000                                  SBANK=   LOWSUPER                              
017021,003794: 

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