Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

016368,000002:                                                                                                  ## Copyright:   Public domain.
016369,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
016370,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
016371,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
016372,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
016373,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
016374,000008:                                                                                                  ##              that the code format has been changed to conform to the
016375,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the 
016376,000010:                                                                                                  ##              original YUL assembler.
016377,000011:                                                                                                  ## Reference:   pp. 392-475
016378,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
016379,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo
016380,000014:                                                                                                  ## Mod history: 05/11/03 RSB.   Began transcribing.
016381,000015:                                                                                                  ##              05/14/03 RSB.   First draft completed.
016382,000016:                                                                                                  ##              06/06/03 RSB.   Fixed a bunch of typos in the comments.
016383,000017:                                                                                                  ##              2010-10-25 JL   Fixed directive (COUNT# -> COUNT* on p446).
016384,000018:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
016385,000019:                                                                                                  ##                              original harcopy, as opposed to the PDF page
016386,000020:                                                                                                  ##                              numbers in 1701.pdf.
016387,000021:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
016388,000022:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
016389,000023:                                                                                                  ##              2017-02-23 RSB  CHKP00H -> CHKPOOH
016390,000024:                                                                                                  ##              2017-02-23 RSB  Proofed comment text using octopus/ProoferComments.
016391,000025:                                                                                                  ##                              Removed various half-baked (or even fully-baked) 
016392,000026:                                                                                                  ##                              "modern" comments by me.
016393,000027:                                                                                                  ##              2017-02-28 RSB  Fixed lingering typos.
016394,000028:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
016395,000029:                                                                                                  ##                              Changed DSPOCTWO to DSPOCTWD.
016396,000030:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
016397,000031:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
016398,000032:                                                                                                  ##                              Changed 360-CDUD to 360-CDUO.
016399,000033:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
016400,000034:                                                                                                  ##                              Luminary 99 vs Comanche 55.
016401,000035:                                                                                                  ##              2021-05-30 ABS  24NDEND -> 2RNDEND
016402,000036: 

Page 392

016404,000038:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
016405,000039:                                                                                                  #  MOD NO - 4            DATE - 27 APRIL 1967            ASSEMBLY - PINDANCE REV 18
016406,000040:                                                                                                  #  MOD BY - FILENE
016407,000041:                                                                                                  #  LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
016408,000042: 
016409,000043:                                                                                                  #  FUNCTIONAL DESCRIPTION-
016410,000044: 
016411,000045:                                                                                                  #  THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
016412,000046:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
016413,000047:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
016414,000048:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
016415,000049: 
016416,000050:                                                                                                  #  THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
016417,000051:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
016418,000052:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
016419,000053:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
016420,000054:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
016421,000055: 
016422,000056:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
016423,000057:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
016424,000058:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
016425,000059:                                                                                                  #  :EXTENDED VERBS:).
016426,000060: 
016427,000061:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
016428,000062:                                                                                                  #  OPERATION INFORMATION:.
016429,000063: 
016430,000064:                                                                                                  #  CALLING SEQUENCES -
016431,000065: 
016432,000066:                                                                                                  #  KEYBOARD:
016433,000067:                                                                                                  #  EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
016434,000068:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
016435,000069:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
016436,000070:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
016437,000071: 
016438,000072:                                                                                                  #  UPLINK:
016439,000073:                                                                                                  #  EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
016440,000074:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
016441,000075:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT :CHARIN:) AND EXECUTES A RESUME.
016442,000076: 
016443,000077:                                                                                                  #  INTERNAL PROGRAMS:
016444,000078:                                                                                                  #  INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
016445,000079:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
016446,000080:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
016447,000081:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
016448,000082: 
016449,000083:                                                                                                  #  NORMAL EXIT MODES -
016450,000084: 
016451,000085:                                                                                                  #        IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
016452,000086:                                                                                                  #                1)      ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
016453,000087:                                                                                                  #                2)      EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE

Page 393

016455,000089:                                                                                                  #                        PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
016456,000090:                                                                                                  #                        RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
016457,000091:                                                                                                  #                        CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
016458,000092:                                                                                                  #                        ALSO PINBALL IS A NOVAC JOB.  EBANK SET FOR COMMON.
016459,000093:                                                                                                  #                3)      VERB 37.  CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
016460,000094:                                                                                                  #                        SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
016461,000095:                                                                                                  #                        30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
016462,000096:                                                                                                  #                4)      KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
016463,000097:                                                                                                  #                        ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
016464,000098:                                                                                                  #                        THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
016465,000099: 
016466,000100:                                                                                                  #  IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
016467,000101:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
016468,000102:                                                                                                  #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
016469,000103: 
016470,000104:                                                                                                  #  ALARM OR ABORT EXIT MODES -
016471,000105: 
016472,000106:                                                                                                  #        EXTERNAL INITIATION:
016473,000107:                                                                                                  #                IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
016474,000108:                                                                                                  #                ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
016475,000109: 
016476,000110:                                                                                                  #        INTERNAL PROGRAM INITIATION:
016477,000111:                                                                                                  #                IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
016478,000112:                                                                                                  #                (WITH OCTAL 01501).
016479,000113:                                                                                                  #                IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
016480,000114:                                                                                                  #                CAUSED (WITH OCTAL 01206).  THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
016481,000115:                                                                                                  #                1)      ENDIDLE OR DATAWAIT.
016482,000116:                                                                                                  #                2)      NVSBWAIT, PRENVBSY, OR NVSUBUSY.
016483,000117: 
016484,000118:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
016485,000119:                                                                                                  #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
016486,000120: 
016487,000121:                                                                                                  #  OUTPUT -
016488,000122: 
016489,000123:                                                                                                  #  INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
016490,000124:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
016491,000125:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
016492,000126:                                                                                                  #  IN INTERRUPT.
016493,000127: 
016494,000128:                                                                                                  #  ERASABLE INITIALIZATION -
016495,000129: 
016496,000130:                                                                                                  #  FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
016497,000131:                                                                                                  #  PINBALL IN :STARTSUB:.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
016498,000132:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
016499,000133:                                                                                                  #  DSPCOUNT, NOUT.
016500,000134: 
016501,000135:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR

Page 394

016503,000137:                                                                                                  #  PINBALL IS GIVEN BELOW.
016504,000138: 
016505,000139:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST -
016506,000140: 
016507,000141:                                                                                                  #  REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
016508,000142:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
016509,000143: 
016510,000144:                                                                                                  #        NVSUB           CALLING POINT FOR INTERNAL USE OF PINBALL.
016511,000145:                                                                                                  #                        OF RELATED INTEREST     NVSBWAIT
016512,000146:                                                                                                  #                                                NVSUBUSY
016513,000147:                                                                                                  #                                                PRENVBSY
016514,000148: 
016515,000149:                                                                                                  #        ENDIDLE         ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
016516,000150:                                                                                                  #                        AWAITING OPERATORS RESPONSE.
016517,000151: 
016518,000152:                                                                                                  #        DSPMM           ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
016519,000153:                                                                                                  #                        PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
016520,000154:                                                                                                  #                        (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
016521,000155:                                                                                                  #                        FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
016522,000156: 
016523,000157:                                                                                                  #        BLANKSUB        ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
016524,000158:                                                                                                  #                        COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
016525,000159: 
016526,000160:                                                                                                  #        JAMTERM         ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
016527,000161:                                                                                                  #        JAMPROC         TERMINATE (V 34) OR PROCEED (V33) FUNCTION.
016528,000162: 
016529,000163:                                                                                                  #        MONITOR         VERBS FOR PERIODIC (1 PER SEC) DISPLAY.
016530,000164: 
016531,000165:                                                                                                  #        PLEASE PERFORM, PLEASE MARK SITUATIONS
016532,000166:                                                                                                  #                REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
016533,000167:                                                                                                  #                THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
016534,000168:                                                                                                  #                SYMBOL TABLE FOR PAGE NUMBER).
016535,000169: 
016536,000170:                                                                                                  #        THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
016537,000171:                                                                                                  #        BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
016538,000172: 
016539,000173:                                                                                                  #        THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
016540,000174:                                                                                                  #        TABLES:.
016541,000175: 
016542,000176:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
016543,000177:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
016544,000178:                                                                                                  #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
016545,000179: 
016546,000180:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
016547,000181: 
016548,000182:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
016549,000183:                                                                                                  #        USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO

Page 395

016551,000185:                                                                                                  #        CHRISTIAN EAR CAN ENDURE TO HEAR.::
016552,000186:                                                                                                  #                                        HENRY 6, ACT 2, SCENE 4
016553,000187: 
016554,000188:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
016555,000189: 
016556,000190: 
016557,000191:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
016558,000192: 
016559,000193:                                                                                                  # DSPCOUNT       ERASE                   DISPLAY POSITION INDICATOR
016560,000194:                                                                                                  # DECBRNCH       ERASE                   +DEC, -DEC, OCT INDICATOR
016561,000195:                                                                                                  # VERBREG        ERASE                   VERB CODE
016562,000196:                                                                                                  # NOUNREG        ERASE                   NOUN CODE
016563,000197:                                                                                                  # XREG           ERASE                   R1 INPUT BUFFER
016564,000198:                                                                                                  # YREG           ERASE                   R2 INPUT BUFFER
016565,000199:                                                                                                  # ZREG           ERASE                   R3 INPUT BUFFER
016566,000200:                                                                                                  # XREGLP         ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
016567,000201:                                                                                                  # YREGLP         ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
016568,000202:                                                                                                  # HITEMOUT       =       YREGLP          TEMP FOR DISPLAY OF HRS,MIN,SEC
016569,000203:                                                                                                  #                                                 MUST = LOTEMOUT-1.
016570,000204:                                                                                                  # ZREGLP         ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
016571,000205:                                                                                                  # LOTEMOUT       =       ZREGLP          TEMP FOR DISPLAY OF HRS,MIN,SEC
016572,000206:                                                                                                  #                                                 MUST = HITEMOUT+1.
016573,000207:                                                                                                  # MODREG         ERASE                   MODE CODE
016574,000208:                                                                                                  # DSPLOCK        ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
016575,000209:                                                                                                  # REQRET         ERASE                   RETURN REGISTER FOR LOAD
016576,000210:                                                                                                  # LOADSTAT       ERASE                   STATUS INDICATOR FOR LOADTST
016577,000211:                                                                                                  # CLPASS         ERASE                   PASS INDICATOR CLEAR
016578,000212:                                                                                                  # NOUT           ERASE                   ACTIVITY COUNTER FOR DSPTAB
016579,000213:                                                                                                  # NOUNCADR       ERASE                   MACHINE CADR FOR NOUN
016580,000214:                                                                                                  # MONSAVE        ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
016581,000215:                                                                                                  # MONSAVE1       ERASE                   NOUNCADR FOR MONITOR (MATBS) =MONSAVE +1
016582,000216:                                                                                                  # MONSAVE2       ERASE                   NVMONOPT OPTIONS
016583,000217:                                                                                                  # DSPTAB         ERASE   +13D            0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS
016584,000218:                                                                                                  # CADRSTOR       ERASE                   ENDIDLE STORAGE
016585,000219:                                                                                                  # NVQTEM         ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
016586,000220:                                                                                                  #                                        MUST = NVBNKTEM-1
016587,000221:                                                                                                  # NVBNKTEM       ERASE                   NVSUB STORAGE FOR CALLING BANK
016588,000222:                                                                                                  #                                        MUST = NVQTEM+1
016589,000223:                                                                                                  # VERBSAVE       ERASE                   NEEDED FOR RECYCLE
016590,000224:                                                                                                  # DSPLIST        ERASE                   WAITING REG FOR DSP SYST INTERNAL USE
016591,000225:                                                                                                  # EXTVBACT       REASE                   EXTENDED VERB ACTIVITY INTERLOCK
016592,000226:                                                                                                  # DSPTEM1        ERASE   +2              BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
016593,000227:                                                                                                  # DSPTEM2        ERASE   +2              BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
016594,000228: 
016595,000229:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
016596,000230:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION

Page 396

016598,000232:                                                                                                  # DSEXIT         =       INTB15+         RETURN FOR DSPIN
016599,000233:                                                                                                  # EXITEM         =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
016600,000234:                                                                                                  # BLANKRET       =       INTB15+         RETURN FOR 2BLANK
016601,000235: 
016602,000236:                                                                                                  # WRDRET         =       INTBIT15        RETURN FOR 5BLANK
016603,000237:                                                                                                  # WDRET          =       INTBIT15        RETURN FOR DSPWD
016604,000238:                                                                                                  # DECRET         =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
016605,000239:                                                                                                  # 21/22REG       =       INTBIT15        TEMP FOR CHARIN
016606,000240: 
016607,000241:                                                                                                  # UPDATRET       =       POLISH          RETURN FOR UPDATNN, UPDATVB
016608,000242:                                                                                                  # CHAR           =       POLISH          TEMP FOR CHARIN
016609,000243:                                                                                                  # ERCNT          =       POLISH          COUNTER FOR ERROR LIGHT RESET
016610,000244:                                                                                                  # DECOUNT        =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
016611,000245: 
016612,000246:                                                                                                  # SGNON          =       VBUF            TEMP FOR +,- ON
016613,000247:                                                                                                  # NOUNTEM        =       VBUF            COUNTER FOR MIXNOUN FETCH
016614,000248:                                                                                                  # DISTEM         =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
016615,000249:                                                                                                  # DECTEM         =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
016616,000250: 
016617,000251:                                                                                                  # SGNOFF         =       VBUF +1         TEMP FOR +,- ON
016618,000252:                                                                                                  # NVTEMP         =       VBUF +1         TEMP FOR NVSUB
016619,000253:                                                                                                  # SFTEMP1        =       VBUF +1         STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
016620,000254:                                                                                                  # HITEMIN        =       VBUF +1         TEMP FOR LOAD OF HRS,MIN,SEC
016621,000255:                                                                                                  #                                        MUST = LOTEMIN-1.
016622,000256:                                                                                                  # CODE           =       VBUF +2         FOR DSPIN
016623,000257:                                                                                                  # SFTEMP2        =       VBUF +2         STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
016624,000258:                                                                                                  # LOTEMIN        =       VBUF +2         TEMP FOR LOAD OF HRS,MIN,SEC
016625,000259:                                                                                                  #                                        MUST = HITEMIN+1.
016626,000260:                                                                                                  # MIXTEMP        =       VBUF +3         FOR MIXNOUN DATA
016627,000261:                                                                                                  # SIGNRET        =       VBUF +3         RETURN FOR +,- ON
016628,000262: 
016629,000263:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
016630,000264: 
016631,000265:                                                                                                  # ENTRET         =       DOTINC          EXIT FROM ENTER
016632,000266: 
016633,000267:                                                                                                  # WDCNT          =       DOTRET          CHAR COUNTER FOR DSPWD
016634,000268:                                                                                                  # INREL          =       DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
016635,000269: 
016636,000270:                                                                                                  # DSPMMTEM       =       MATINC          DSPCOUNT SAVE FOR DSPMM
016637,000271:                                                                                                  # MIXBR          =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
016638,000272: 
016639,000273:                                                                                                  # TEM1           ERASE                   EXEC TEMP
016640,000274:                                                                                                  # DSREL          =       TEM1            REL ADDRESS FOR DSPIN
016641,000275: 
016642,000276:                                                                                                  # TEM2           ERASE                   EXEC TEMP
016643,000277:                                                                                                  # DSMAG          =       TEM2            MAGNITUDE STORE FOR DSPIN 
016644,000278:                                                                                                  # IDADDTEM       =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
016645,000279: 
016646,000280:                                                                                                  # TEM3           ERASE                   EXEC TEMP
016647,000281:                                                                                                  # COUNT          =       TEM3            FOR DSPIN

Page 397

016649,000283:                                                                                                  # TEM4           ERASE                   EXEC TEMP
016650,000284:                                                                                                  # LSTPTR         =       TEM4            LIST POINTER FOR GRABUSY
016651,000285:                                                                                                  # RELRET         =       TEM4            RETURN FOR RELDSP
016652,000286:                                                                                                  # FREERET        =       TEM4            RETURN FOR FREEDSP
016653,000287:                                                                                                  # DSPWDRET       =       TEM4            RETURN FOR DSPSIGN
016654,000288:                                                                                                  # SEPSCRET       =       TEM4            RETURN FOR SEPSEC
016655,000289:                                                                                                  # SEPMNRET       =       TEM4            RETURN FOR SEPMIN
016656,000290:                                                                                                  # TEM5           ERASE                   EXEC TEMP
016657,000291:                                                                                                  # NOUNADD        =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
016658,000292:                                                                                                  # NNADTEM        ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
016659,000293:                                                                                                  # NNTYPTEM       ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
016660,000294:                                                                                                  # IDAD1TEM       ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
016661,000295:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
016662,000296:                                                                                                  # IDAD2TEM       ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
016663,000297:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
016664,000298:                                                                                                  # IDAD3TEM       ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
016665,000299:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
016666,000300:                                                                                                  # RUTMXTEM       ERASE                   TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
016667,000301: 
016668,000302:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
016669,000303: 
016670,000304:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
016671,000305: 
016672,000306:                                                                                                  #        MPAC, THRU MPAC +6
016673,000307:                                                                                                  #        BUF, +1, +2
016674,000308:                                                                                                  #        BUF2, +1, +2
016675,000309:                                                                                                  #        MPTEMP
016676,000310:                                                                                                  #        ADDRWD
016677,000311: 
016678,000312:                                                                                                  #  END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
016679,000313: 
016680,000314:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
016681,000315: 
016682,000316:                                                                                                  # DSPCNT         ERASE                   COUNTER FOR DSPOUT
016683,000317:                                                                                                  # UPLOCK         ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
016684,000318:                                                                                                  #                                        RECEPTION OF A BAD MESSAGE IN UPLINK)
016685,000319: 
016686,000320:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
016687,000321: 
016688,000322:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
016689,000323: 
016690,000324:                                                                                                  # KEYTEMP1       =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
016691,000325:                                                                                                  # DSRUPTEM       =       WAITEXIT        TEMP FOR DSPOUT
016692,000326:                                                                                                  # KEYTEMP2       =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
016693,000327: 
016694,000328:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
016695,000329: 

Page 398

016697,000331:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
016698,000332:                                                                                                  #        0               10000
016699,000333:                                                                                                  #        1               00001
016700,000334:                                                                                                  #        9               01001
016701,000335:                                                                                                  #        VERB            10001
016702,000336:                                                                                                  #        ERROR RES       10010
016703,000337:                                                                                                  #        KEY RLSE        11001
016704,000338:                                                                                                  #        +               11010
016705,000339:                                                                                                  #        -               11011
016706,000340:                                                                                                  #        ENTER           11100
016707,000341:                                                                                                  #        CLEAR           11110
016708,000342:                                                                                                  #        NOUN            11111
016709,000343: 
016710,000344:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL.  SET OUT0 TO AAAABCCCCCDDDDD.
016711,000345:                                                                                                  #  A-S   SELECT A RELAYWORD.  THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
016712,000346:                                                                                                  #        ENERGIZED.
016713,000347:                                                                                                  #  B     FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
016714,000348:                                                                                                  #  C-S   5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
016715,000349:                                                                                                  #  D-S   5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
016716,000350: 
016717,000351:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
016718,000352:                                                                                                  #        MD1             MD2 (MAJOR MODE)
016719,000353:                                                                                                  #        VD1             VD2 (VERB)                      ND1             ND2 (NOUN)
016720,000354:                                                                                                  #        R1D1            R1D2            R1D3            R1D4            R1D5 (R1)
016721,000355:                                                                                                  #        R2D1            R2D2            R2D3            R2D4            R2D5 (R2)
016722,000356:                                                                                                  #        R3D1            R3D2            R3D3            R3D4            R3D5 (R3)
016723,000357: 
016724,000358:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
016725,000359: 
016726,000360:                                                                                                  #        MD1     25              R2D1    11              ALL ARE OCTAL
016727,000361:                                                                                                  #        MD2     24              R2D2    10
016728,000362:                                                                                                  #        VD1     23              R2D3    7
016729,000363:                                                                                                  #        VD2     22              R2D4    6
016730,000364:                                                                                                  #        ND1     21              R2D5    5
016731,000365:                                                                                                  #        ND2     20              R3D1    4
016732,000366:                                                                                                  #        R1D1    16              R3D2    3
016733,000367:                                                                                                  #        R1D2    15              R3D3    2
016734,000368:                                                                                                  #        R1D3    14              R3D4    1
016735,000369:                                                                                                  #        R1D4    13              R3D5    0
016736,000370:                                                                                                  #        R1D5    12
016737,000371: 
016738,000372:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
016739,000373: 
016740,000374:                                                                                                  #        DSPTAB          RELAYWD         BIT11           BITS 10-6       BITS 5-1
016741,000375:                                                                                                  #        RELADD
016742,000376:                                                                                                  #        10              1011                            MD1 (25)        MD2 (24)
016743,000377:                                                                                                  #        9               1010                            VD1 (23)        VD2 (22)
016744,000378:                                                                                                  #        8               1001                            ND1 (21)        ND2 (20)
016745,000379:                                                                                                  #        7               1000                                            R1D1 (16)

Page 399

016747,000381:                                                                                                  #        6               0111            +R1             R1D2 (15)       R1D3 (14)
016748,000382:                                                                                                  #        5               0110            -R1             R1D4 (13)       R1D5 (12)
016749,000383:                                                                                                  #        4               0101            +R2             R2D1 (11)       R2D2 (10)
016750,000384:                                                                                                  #        3               0100            -R2             R2D3 (7)        R2D4 (6)
016751,000385:                                                                                                  #        2               0011                            R2D5 (5)        R3D1 (4)
016752,000386:                                                                                                  #        1               0010            +R3             R3D2 (3)        R3D3 (2)
016753,000387:                                                                                                  #        0               0001            -R3             R3D4 (1)        R3D5 (0)
016754,000388:                                                                                                  #                        0000        NO RELAYWORD
016755,000389: 
016756,000390:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
016757,000391: 
016758,000392:                                                                                                  #        BLANK   00000
016759,000393:                                                                                                  #        0       10101
016760,000394:                                                                                                  #        1       00011
016761,000395:                                                                                                  #        2       11001
016762,000396:                                                                                                  #        3       11011
016763,000397:                                                                                                  #        4       01111
016764,000398:                                                                                                  #        5       11110
016765,000399:                                                                                                  #        6       11100
016766,000400:                                                                                                  #        7       10011
016767,000401:                                                                                                  #        8       11101
016768,000402:                                                                                                  #        9       11111
016769,000403: 
016770,000404:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
016771,000405: 
016772,000406:                                                                                                  #        KEY RELEASE LIGHT       -       BIT 5 OF CHANNEL 11
016773,000407:                                                                                                  #        VERB/NOUN FLASH         -       BIT 6 OF CHANNEL 11
016774,000408:                                                                                                  #        OPERATOR ERROR LIGHT    -       BIT 7 OF CHANNEL 11
016775,000409: 

Page 400

016777,000411:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
016778,000412: 
016779,000413: 40,2077                                           BANK     40                                    
016780,000414: 40,2000                                           SETLOC   PINBALL1                              
016781,000415: 40,2000                                           BANK                                           
016782,000416: 
016783,000417: 40,2077                                           COUNT*   $$/PIN                                
016784,000418: 40,2077           34753        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
016785,000419: 40,2100           57011                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
016786,000420: 40,2101           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
016787,000421: 40,2102           11041                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
016788,000422: 40,2103           02105                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
016789,000423: 40,2104           02112                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
016790,000424: 40,2105           42156                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
016791,000425: 40,2106           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
016792,000426: 40,2107           00006                           EXTEND                                         #  VBRELDSP).
016793,000427: 40,2110           12112                           BZF      CHARIN2                               
016794,000428: 40,2111           04374                           TC       RELDSPON                              
016795,000429: 40,2112           56154        CHARIN2            XCH      MPAC                                  
016796,000430: 40,2113           54117                           TS       CHAR                                  
016797,000431: 40,2114           50000                           INDEX    A                                     
016798,000432: 40,2115           02116                           TC       +1                                    #    INPUT CODE      FUNCTION
016799,000433: 40,2116           03470                           TC       CHARALRM                              #        0
016800,000434: 40,2117           02175                           TC       NUM                                   #        1
016801,000435: 40,2120           02175                           TC       NUM                                   #        2
016802,000436: 40,2121           02175                           TC       NUM                                   #        3
016803,000437: 40,2122           02175                           TC       NUM                                   #        4
016804,000438: 40,2123           02175                           TC       NUM                                   #        5
016805,000439: 40,2124           02175                           TC       NUM                                   #        6
016806,000440: 40,2125           02175                           TC       NUM                                   #        7
016807,000441: 40,2126           02161                           TC       89TEST                                #        10              8
016808,000442: 40,2127           02161                           TC       89TEST                                #        11              9
016809,000443: 40,2130           03470                           TC       CHARALRM                              #        12
016810,000444: 40,2131           03470                           TC       CHARALRM                              #        13
016811,000445: 40,2132           03470                           TC       CHARALRM                              #        14
016812,000446: 40,2133           03470                           TC       CHARALRM                              #        15
016813,000447: 40,2134           03470                           TC       CHARALRM                              #        16
016814,000448: 40,2135           03470                           TC       CHARALRM                              #        17
016815,000449: 40,2136           02173                           TC       NUM        -2                         #        20              0
016816,000450: 40,2137           02354                           TC       VERB                                  #        21              VERB
016817,000451: 40,2140           03646                           TC       ERROR                                 #        22              ERROR LIGHT RESET
016818,000452: 40,2141           03470                           TC       CHARALRM                              #        23
016819,000453: 40,2142           03470                           TC       CHARALRM                              #        24
016820,000454: 40,2143           03470                           TC       CHARALRM                              #        25
016821,000455: 40,2144           03470                           TC       CHARALRM                              #        26
016822,000456: 40,2145           03470                           TC       CHARALRM                              #        27
016823,000457: 40,2146           03470                           TC       CHARALRM                              #        30
016824,000458: 40,2147           03524                           TC       VBRELDSP                              #        31              KEY RELEASE
016825,000459: 40,2150           02407                           TC       POSGN                                 #        32              +

Page 401

016827,000461: 40,2151           02374                           TC       NEGSGN                                #        33              -
016828,000462: 40,2152           02157                           TC       ENTERJMP                              #        34              ENTER
016829,000463: 40,2153           03470                           TC       CHARALRM                              #        35
016830,000464: 40,2154           02467                           TC       CLEAR                                 #        36              CLEAR
016831,000465: 40,2155           02370                           TC       NOUN                                  #        37              NOUN
016832,000466: 
016833,000467: 40,2156           00022        ELRCODE1           OCT      22                                    
016834,000468: 40,2157           04635        ENTERJMP           TC       POSTJUMP                              
016835,000469: 40,2160           62002                           CADR     ENTER                                 
016836,000470: 
016837,000471: 40,2161           10776        89TEST             CCS      DSPCOUNT                              
016838,000472: 40,2162           02166                           TC       +4                                    #  +
016839,000473: 40,2163           02166                           TC       +3                                    #  +0
016840,000474: 40,2164           05155                           TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
016841,000475: 40,2165           05155                           TC       ENDOFJOB                              #  -0
016842,000476: 40,2166           36250                           CAF      THREE                                 
016843,000477: 40,2167           70777                           MASK     DECBRNCH                              
016844,000478: 40,2170           10000                           CCS      A                                     
016845,000479: 40,2171           02175                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
016846,000480: 40,2172           03470                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
016847,000481: 
016848,000482:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME.  FOR DECIMAL IT CONVERTS INCOMING
016849,000483:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
016850,000484:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG.  HI PART OF DEC IN XREG,
016851,000485:                                                                                                  #  YREG, ZREG.  THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
016852,000486:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
016853,000487:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
016854,000488: 
016855,000489: 40,2173           34755                           CAF      ZERO                                  
016856,000490: 40,2174           54117                           TS       CHAR                                  
016857,000491: 40,2175           10776        NUM                CCS      DSPCOUNT                              
016858,000492: 40,2176           02202                           TC       +4                                    #  +
016859,000493: 40,2177           02202                           TC       +3                                    #  +0
016860,000494: 40,2200           02201                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
016861,000495: 40,2201           05155                           TC       ENDOFJOB                              #  -0
016862,000496: 40,2202           02324                           TC       GETINREL                              
016863,000497: 40,2203           11014                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
016864,000498: 40,2204           34755                           CAF      ZERO                                  
016865,000499: 40,2205           55014                           TS       CLPASS                                
016866,000500: 40,2206           02207                           TC       +1                                    
016867,000501: 40,2207           50117                           INDEX    CHAR                                  
016868,000502: 40,2210           34066                           CAF      RELTAB                                
016869,000503: 40,2211           74346                           MASK     LOW5                                  
016870,000504: 40,2212           54124                           TS       CODE                                  
016871,000505: 40,2213           30776                           CA       DSPCOUNT                              
016872,000506: 40,2214           54143                           TS       COUNT                                 
016873,000507: 40,2215           03356                           TC       DSPIN                                 
016874,000508: 40,2216           36250                           CAF      THREE                                 

Page 402

016876,000510: 40,2217           70777                           MASK     DECBRNCH                              
016877,000511: 40,2220           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
016878,000512: 40,2221           02232                           TC       DECTOBIN                              #  +
016879,000513: 40,2222           50137                           INDEX    INREL                                 #  +0 OCTAL
016880,000514: 40,2223           57000                           XCH      VERBREG                               
016881,000515: 40,2224           54022                           TS       CYL                                   
016882,000516: 40,2225           40022                           CS       CYL                                   
016883,000517: 40,2226           40022                           CS       CYL                                   
016884,000518: 40,2227           56022                           XCH      CYL                                   
016885,000519: 40,2230           60117                           AD       CHAR                                  
016886,000520: 40,2231           02247                           TC       ENDNMTST                              
016887,000521: 40,2232           50137        DECTOBIN           INDEX    INREL                                 
016888,000522: 40,2233           57000                           XCH      VERBREG                               
016889,000523: 40,2234           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
016890,000524: 40,2235           34755                           CAF      ZERO                                  
016891,000525: 40,2236           54155                           TS       MPAC       +1                         
016892,000526: 40,2237           34363                           CAF      TEN                                   #  10 X 2EXP-14
016893,000527: 40,2240           07312                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
016894,000528: 40,2241           56155                           XCH      MPAC       +1                         
016895,000529: 40,2242           60117                           AD       CHAR                                  
016896,000530: 40,2243           54155                           TS       MPAC       +1                         
016897,000531: 40,2244           02247                           TC       ENDNMTST                              #  NO OF
016898,000532: 40,2245           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
016899,000533: 40,2246           02265                           TC       DECEND                                
016900,000534: 40,2247           50137        ENDNMTST           INDEX    INREL                                 
016901,000535: 40,2250           55000                           TS       VERBREG                               
016902,000536: 40,2251           40776                           CS       DSPCOUNT                              
016903,000537: 40,2252           50137                           INDEX    INREL                                 
016904,000538: 40,2253           62315                           AD       CRITCON                               
016905,000539: 40,2254           00006                           EXTEND                                         
016906,000540: 40,2255           12257                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
016907,000541: 40,2256           02312                           TC       MORNUM                                #  -, DSPCOUNT G/ CRITCON
016908,000542: 40,2257           36250        ENDNUM             CAF      THREE                                 
016909,000543: 40,2260           70777                           MASK     DECBRNCH                              
016910,000544: 40,2261           10000                           CCS      A                                     
016911,000545: 40,2262           02265                           TC       DECEND                                
016912,000546: 40,2263           40776        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
016913,000547: 40,2264           02313                           TC       MORNUM     +1                         #  NEGATIVELY
016914,000548: 40,2265           44753        DECEND             CS       ONE                                   
016915,000549: 40,2266           60137                           AD       INREL                                 
016916,000550: 40,2267           00006                           EXTEND                                         
016917,000551: 40,2270           62263                           BZMF     ENDALL                                #  IF INREL=0,1 (VBREG,NNREG), LEAVE WHOLE
016918,000552: 40,2271           07106                           TC       DMP                                   #  IF INREL=2,3,4 (R1,R2,R3), CONVERT TO FRAC
016919,000553:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
016920,000554: 40,2272           02322                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
016921,000555: 40,2273           36250                           CAF      THREE                                 #  IN MPAC, +1, +2.
016922,000556: 40,2274           70777                           MASK     DECBRNCH                              
016923,000557: 40,2275           50000                           INDEX    A                                     
016924,000558: 40,2276           02276                           TC       +0                                    
016925,000559: 40,2277           02303                           TC       +DECSGN                               

Page 403

016927,000561: 40,2300           00006                           EXTEND                                         #  - CASE
016928,000562: 40,2301           40156                           DCS      MPAC       +1                         
016929,000563: 40,2302           52156                           DXCH     MPAC       +1                         
016930,000564: 40,2303           56156        +DECSGN            XCH      MPAC       +2                         
016931,000565: 40,2304           50137                           INDEX    INREL                                 
016932,000566: 40,2305           55003                           TS       XREGLP     -2                         
016933,000567: 40,2306           56155                           XCH      MPAC       +1                         
016934,000568: 40,2307           50137                           INDEX    INREL                                 
016935,000569: 40,2310           55000                           TS       VERBREG                               
016936,000570: 40,2311           02263                           TC       ENDALL                                
016937,000571: 40,2312           10776        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
016938,000572: 40,2313           54776                           TS       DSPCOUNT                              
016939,000573: 40,2314           05155                           TC       ENDOFJOB                              
016940,000574: 
016941,000575: 40,2315           00022        CRITCON            OCT      22                                    #  (DEC 18)
016942,000576: 40,2316           00020                           OCT      20                                    #  (DEC 16)
016943,000577: 40,2317           00012                           OCT      12                                    #  (DEC 10)
016944,000578: 40,2320           00005                           OCT      5                                     
016945,000579: 40,2321           00000                           OCT      0                                     
016946,000580: 
016947,000581: 40,2322           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
016948,000582: 
016949,000583:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
016950,000584:                                                                                                  #  PUTS IN INTO INREL.  +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
016951,000585: 
016952,000586: 40,2324           50776        GETINREL           INDEX    DSPCOUNT                              
016953,000587: 40,2325           32330                           CAF      INRELTAB                              
016954,000588: 40,2326           54137                           TS       INREL                                 #  (A TEMP, REG)
016955,000589: 40,2327           00002                           TC       Q                                     
016956,000590: 
016957,000591: 40,2330           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
016958,000592: 40,2331           00004                           OCT      4                                     #  R3D4           =(1)
016959,000593: 40,2332           00004                           OCT      4                                     #  R3D3           =(2)
016960,000594: 40,2333           00004                           OCT      4                                     #  R3D2           =(3)
016961,000595: 40,2334           00004                           OCT      4                                     #  R3D1           =(4)
016962,000596: 40,2335           00003                           OCT      3                                     #  R2D5           =(5)
016963,000597: 40,2336           00003                           OCT      3                                     #  R2D4           =(6)
016964,000598: 40,2337           00003                           OCT      3                                     #  R2D3           =(7)
016965,000599: 40,2340           00003                           OCT      3                                     #  R2D2           =(8D)
016966,000600: 40,2341           00003                           OCT      3                                     #  R2D1           =(9D)
016967,000601: 40,2342           00002                           OCT      2                                     #  R1D5           =(10D)
016968,000602: 40,2343           00002                           OCT      2                                     #  R1D4           =(11D)
016969,000603: 40,2344           00002                           OCT      2                                     #  R1D3           =(12D)
016970,000604: 40,2345           00002                           OCT      2                                     #  R1D2           =(13D)
016971,000605: 40,2346           00002                           OCT      2                                     #  R1D1           =(14D)
016972,000606: 40,2347           05675                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
016973,000607: 40,2350           00001                           OCT      1                                     #  ND2            =(16D)
016974,000608: 40,2351           00001                           OCT      1                                     #  ND1            =(17D)

Page 404

016976,000610: 40,2352           00000                           OCT      0                                     #  VD2            =(18D)
016977,000611: 40,2353           00000                           OCT      0                                     #  VD1            =(19D)
016978,000612: 
016979,000613: 40,2354           34755        VERB               CAF      ZERO                                  
016980,000614: 40,2355           55000                           TS       VERBREG                               
016981,000615: 40,2356           34360                           CAF      VD1                                   
016982,000616: 40,2357           54776        NVCOM              TS       DSPCOUNT                              
016983,000617: 40,2360           02601                           TC       2BLANK                                
016984,000618: 40,2361           34753                           CAF      ONE                                   
016985,000619: 40,2362           54777                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
016986,000620: 40,2363           34755                           CAF      ZERO                                  
016987,000621: 40,2364           55012                           TS       REQRET                                #  SET FOR ENTPAS0
016988,000622: 40,2365           34217                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
016989,000623: 40,2366           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
016990,000624:                                                                                                  #  TO TC ENDOFJOB
016991,000625: 40,2367           05155                           TC       ENDOFJOB                              
016992,000626: 40,2370           34755        NOUN               CAF      ZERO                                  
016993,000627: 40,2371           55001                           TS       NOUNREG                               
016994,000628: 40,2372           34361                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
016995,000629: 40,2373           02357                           TC       NVCOM                                 
016996,000630: 
016997,000631: 40,2374           02446        NEGSGN             TC       SIGNTEST                              
016998,000632: 40,2375           02433                           TC       -ON                                   
016999,000633: 40,2376           34752                           CAF      TWO                                   
017000,000634: 40,2377           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
017001,000635: 40,2400           64745                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
017002,000636: 40,2401           26777                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
017003,000637: 40,2402           11014        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
017004,000638: 40,2403           34755                           CAF      ZERO                                  
017005,000639: 40,2404           55014                           TS       CLPASS                                
017006,000640: 40,2405           02406                           TC       +1                                    
017007,000641: 40,2406           05155                           TC       ENDOFJOB                              
017008,000642: 
017009,000643: 40,2407           02446        POSGN              TC       SIGNTEST                              
017010,000644: 40,2410           02413                           TC       +ON                                   
017011,000645: 40,2411           34753                           CAF      ONE                                   
017012,000646: 40,2412           02377                           TC       BOTHSGN                               
017013,000647: 
017014,000648: 40,2413           22002        +ON                LXCH     Q                                     
017015,000649: 40,2414           02324                           TC       GETINREL                              
017016,000650: 40,2415           50137                           INDEX    INREL                                 
017017,000651: 40,2416           32441                           CAF      SGNTAB     -2                         
017018,000652: 40,2417           54123                           TS       SGNOFF                                
017019,000653: 40,2420           64753                           AD       ONE                                   
017020,000654: 40,2421           54122                           TS       SGNON                                 
017021,000655: 40,2422           34755        SGNCOM             CAF      ZERO                                  
017022,000656: 40,2423           54124                           TS       CODE                                  
017023,000657: 40,2424           56123                           XCH      SGNOFF                                

Page 405

017025,000659: 40,2425           03440                           TC       11DSPIN                               
017026,000660: 40,2426           34741                           CAF      BIT11                                 
017027,000661: 40,2427           54124                           TS       CODE                                  
017028,000662: 40,2430           56122                           XCH      SGNON                                 
017029,000663: 40,2431           03440                           TC       11DSPIN                               
017030,000664: 40,2432           00001                           TC       L                                     
017031,000665: 40,2433           22002        -ON                LXCH     Q                                     
017032,000666: 40,2434           02324                           TC       GETINREL                              
017033,000667: 40,2435           50137                           INDEX    INREL                                 
017034,000668: 40,2436           32441                           CAF      SGNTAB     -2                         
017035,000669: 40,2437           54122                           TS       SGNON                                 
017036,000670: 40,2440           64753                           AD       ONE                                   
017037,000671: 40,2441           54123                           TS       SGNOFF                                
017038,000672: 40,2442           02422                           TC       SGNCOM                                
017039,000673: 
017040,000674: 40,2443           00005        SGNTAB             OCT      5                                     #  -R1
017041,000675: 40,2444           00003                           OCT      3                                     #  -R2
017042,000676: 40,2445           00000                           OCT      0                                     #  -R3
017043,000677: 
017044,000678: 40,2446           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
017045,000679: 40,2447           36250                           CAF      THREE                                 #  R2D1, OR R3D1.  ALLOWS ONLY FIRST OF
017046,000680: 40,2450           70777                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
017047,000681: 40,2451           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
017048,000682: 40,2452           05155                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN.  REJECT.
017049,000683: 40,2453           44317                           CS       R1D1                                  
017050,000684: 40,2454           02462                           TC       SGNTST1                               
017051,000685: 40,2455           44320                           CS       R2D1                                  
017052,000686: 40,2456           02462                           TC       SGNTST1                               
017053,000687: 40,2457           44321                           CS       R3D1                                  
017054,000688: 40,2460           02462                           TC       SGNTST1                               
017055,000689: 40,2461           05155                           TC       ENDOFJOB                              #  NO MATCH FOUND.  SIGN ILLEGAL
017056,000690: 40,2462           60776        SGNTST1            AD       DSPCOUNT                              
017057,000691: 40,2463           00006                           EXTEND                                         
017058,000692: 40,2464           12466                           BZF      +2                                    #  MATCH FOUND
017059,000693: 40,2465           00002                           TC       Q                                     
017060,000694: 40,2466           00001                           TC       L                                     #  SIGN LEGAL
017061,000695: 
017062,000696:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
017063,000697:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
017064,000698:                                                                                                  #  L/ RC UNTIL R1 IS DONE.  THEN NO FURTHER ACTION
017065,000699: 
017066,000700:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
017067,000701:                                                                                                  #  APPROPRIATE TO BE CLEARED.
017068,000702: 
017069,000703:                                                                                                  #  CLPASS        +0 PASS0, CAN BE BACKED UP
017070,000704:                                                                                                  #                +NZ HIPASS, CAN BE BACKED UP
017071,000705:                                                                                                  #                -NZ PASS0, CANNOT BE BACKED UP

Page 406

017073,000707: 40,2467           10776        CLEAR              CCS      DSPCOUNT                              
017074,000708: 40,2470           64753                           AD       ONE                                   
017075,000709: 40,2471           02473                           TC       +2                                    
017076,000710: 40,2472           64753                           AD       ONE                                   
017077,000711: 40,2473           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
017078,000712: 40,2474           32330                           CAF      INRELTAB                              #  FAIL LEGALTST.
017079,000713: 40,2475           54137                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
017080,000714: 40,2476           11014                           CCS      CLPASS                                
017081,000715: 40,2477           02505                           TC       CLPASHI                               #  +
017082,000716: 40,2500           02502                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
017083,000717: 40,2501           02502                           TC       +1                                    #  -
017084,000718: 40,2502           30137                           CA       INREL                                 
017085,000719: 40,2503           02527                           TC       LEGALTST                              
017086,000720: 40,2504           02522                           TC       CLEAR1                                
017087,000721: 40,2505           10137        CLPASHI            CCS      INREL                                 
017088,000722: 40,2506           54137                           TS       INREL                                 
017089,000723: 40,2507           02527                           TC       LEGALTST                              
017090,000724: 40,2510           32577                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
017091,000725: 40,2511           27012                           ADS      REQRET                                
017092,000726: 40,2512           30137                           CA       INREL                                 
017093,000727: 40,2513           54125                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
017094,000728: 40,2514           00006                           EXTEND                                         
017095,000729: 40,2515           27000                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
017096,000730: 40,2516           04616                           TC       BANKCALL                              
017097,000731: 40,2517           62342                           CADR     UPDATVB                               
017098,000732: 40,2520           30125                           CA       MIXTEMP                               
017099,000733: 40,2521           54137                           TS       INREL                                 #  RESTORE INREL
017100,000734: 40,2522           02525        CLEAR1             TC       CLR5                                  
017101,000735: 40,2523           25014                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
017102,000736: 40,2524           05155                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
017103,000737: 40,2525           22002        CLR5               LXCH     Q                                     #  USES 5BLANK BUT AVOIDS ITS TC GETINREL
017104,000738: 40,2526           02540                           TC       5BLANK     +2                         
017105,000739: 40,2527           67751        LEGALTST           AD       NEG2                                  
017106,000740: 40,2530           10000                           CCS      A                                     
017107,000741: 40,2531           00002                           TC       Q                                     #  LEGAL         INREL G/2
017108,000742: 40,2532           05675                           TC       CCSHOLE                               
017109,000743: 40,2533           05155                           TC       ENDOFJOB                              #  ILLEGAL       INREL=0,1
017110,000744: 40,2534           00002                           TC       Q                                     #  LEGAL         INREL=2
017111,000745: 
017112,000746:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
017113,000747:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
017114,000748:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
017115,000749: 
017116,000750: 40,2535           54776                           TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
017117,000751: 40,2536           22002        5BLANK             LXCH     Q                                     
017118,000752: 40,2537           02324                           TC       GETINREL                              
017119,000753: 40,2540           34755                           CAF      ZERO                                  
017120,000754: 40,2541           50137                           INDEX    INREL                                 
017121,000755: 40,2542           55000                           TS       VERBREG                               #  ZERO X, Y, Z REG.

Page 407

017123,000757: 40,2543           50137                           INDEX    INREL                                 
017124,000758: 40,2544           55003                           TS       XREGLP     -2                         
017125,000759: 40,2545           54124                           TS       CODE                                  
017126,000760: 40,2546           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
017127,000761: 40,2547           44745                           CS       BIT7                                  #  PROTECT OTHERS
017128,000762: 40,2550           70777                           MASK     DECBRNCH                              
017129,000763: 40,2551           72600                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
017130,000764: 40,2552           54777                           TS       DECBRNCH                              
017131,000765: 40,2553           50137                           INDEX    INREL                                 
017132,000766: 40,2554           32570                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
017133,000767: 40,2555           54143                           TS       COUNT                                 
017134,000768: 40,2556           03356                           TC       DSPIN                                 
017135,000769: 40,2557           50137        5BLANK1            INDEX    INREL                                 
017136,000770: 40,2560           32573                           CAF      DOUBLK     -2                         
017137,000771: 40,2561           54776                           TS       DSPCOUNT                              
017138,000772: 40,2562           02601                           TC       2BLANK                                
017139,000773: 40,2563           44752                           CS       TWO                                   
017140,000774: 40,2564           26776                           ADS      DSPCOUNT                              
017141,000775: 40,2565           02601                           TC       2BLANK                                
017142,000776: 40,2566           50137                           INDEX    INREL                                 
017143,000777: 40,2567           34315                           CAF      R1D1       -2                         
017144,000778: 40,2570           54776                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
017145,000779: 40,2571           00001                           TC       L                                     #  OF REG. JUST BLANKED
017146,000780: 
017147,000781: 40,2572           00016        SINBLANK           OCT      16                                    #  DEC 14
017148,000782: 40,2573           00005                           OCT      5                                     
017149,000783: 40,2574           00004                           OCT      4                                     
017150,000784: 40,2575           00015        DOUBLK             OCT      15                                    #  DEC 13
017151,000785: 40,2576           00011                           OCT      11                                    #  DEC 9
017152,000786: 40,2577           00003                           OCT      3                                     
017153,000787: 
017154,000788: 40,2600           77774        BRNCHCON           OCT      77774                                 
017155,000789: 
017156,000790:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
017157,000791:                                                                                                  #  DSPCOUNT.  THIS NUMBER IS LEFT IN DSPCOUNT
017158,000792: 
017159,000793: 40,2601           30776        2BLANK             CA       DSPCOUNT                              
017160,000794: 40,2602           54021                           TS       SR                                    
017161,000795: 40,2603           42614                           CS       BLANKCON                              
017162,000796: 40,2604           00004                           INHINT                                         
017163,000797: 40,2605           50021                           INDEX    SR                                    
017164,000798: 40,2606           57022                           XCH      DSPTAB                                
017165,000799: 40,2607           00006                           EXTEND                                         
017166,000800: 40,2610           62612                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
017167,000801: 40,2611           25015                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
017168,000802: 40,2612           00003                           RELINT                                         #  IF -, NOUT OK
017169,000803: 40,2613           00002                           TC       Q                                     
017170,000804: 40,2614           04000        BLANKCON           OCT      4000                                  
017171,000805: 

Page 408

017173,000807:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION.  HIGHER ORDER ENTERS ARE TO LOAD
017174,000808:                                                                                                  #  DATA.  THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
017175,000809:                                                                                                  #  PASSES.
017176,000810: 
017177,000811:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
017178,000812:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
017179,000813:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
017180,000814: 
017181,000815: 41,2000                                           BANK     41                                    
017182,000816: 41,2000                                           SETLOC   PINBALL2                              
017183,000817: 41,2000                                           BANK                                           
017184,000818: 
017185,000819: 41,2000                                           COUNT*   $$/PIN                                
017186,000820: 41,2000           03557        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS.  DONT MOVE.
017187,000821: 41,2001           03020        LOADLV1            TC       LOADLV                                
017188,000822: 
017189,000823:                                                                                                  #  END OF STANDARD LEAD INS.
017190,000824: 
017191,000825: 41,2002           34755        ENTER              CAF      ZERO                                  
017192,000826: 41,2003           55014                           TS       CLPASS                                
017193,000827: 41,2004           34217                           CAF      ENDINST                               
017194,000828: 41,2005           54136                           TS       ENTRET                                
017195,000829: 41,2006           11012                           CCS      REQRET                                
017196,000830: 41,2007           02035                           TC       ENTPAS0                               #  IF +, PASS 0
017197,000831: 41,2010           02035                           TC       ENTPAS0                               #  IF +, PASS 0
017198,000832: 41,2011           02012                           TC       +1                                    #  IF -, NOT PASS 0
017199,000833: 41,2012           32033        ENTPASHI           CAF      MMADREF                               
017200,000834: 41,2013           61012                           AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
017201,000835: 41,2014           00006                           EXTEND                                         #  AND RECYCLE(DECIDE AT MMCHANG+1).
017202,000836: 41,2015           12027                           BZF      ACCEPTWD                              
017203,000837: 41,2016           36250                           CAF      THREE                                 #  IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
017204,000838: 41,2017           70777                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
017205,000839: 41,2020           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
017206,000840: 41,2021           02023                           TC       +2                                    #  CHARACTERS AND CONTINUE.
017207,000841: 41,2022           02027                           TC       ACCEPTWD                              #  OCTAL.  ANY NUMBER OF CHAR OK.
017208,000842: 41,2023           10776                           CCS      DSPCOUNT                              
017209,000843: 41,2024           02353                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
017210,000844: 41,2025           02353                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
017211,000845: 41,2026           02027                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
017212,000846: 41,2027           41012        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
017213,000847: 41,2030           55012                           TS       REQRET                                #  SET REQRET +.
017214,000848: 41,2031           04433                           TC       FLASHOFF                              
017215,000849: 41,2032           01012                           TC       REQRET                                
017216,000850: 
017217,000851: 41,2033     0136               ENTEXIT            =        ENTRET                                
017218,000852: 
017219,000853: 41,2033           03444        MMADREF            ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
017220,000854: 

Page 409

017222,000856: 41,2034           00034        LOWVERB            DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
017223,000857: 
017224,000858: 41,2035           34755        ENTPAS0            CAF      ZERO                                  #  NOUN VERB SUB ENTERS HERE
017225,000859: 41,2036           54777                           TS       DECBRNCH                              
017226,000860: 41,2037           44360                           CS       VD1                                   #  BLOCK FURTHER NUM CHAR, SO THAT STRAY
017227,000861: 41,2040           54776                           TS       DSPCOUNT                              #  CHAR DO NOT GET INTO VERB OR NOUN LTS.
017228,000862: 41,2041           41000        TESTVB             CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
017229,000863: 41,2042           55040                           TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
017230,000864: 41,2043           62034                           AD       LOWVERB                               #  LOWVERB - VB
017231,000865: 41,2044           00006                           EXTEND                                         
017232,000866: 41,2045           62133                           BZMF     VERBFAN                               #  VERB G/ E LOWVERB
017233,000867: 41,2046           00006        TESTNN             EXTEND                                         #  VERB L/ LOWVERB
017234,000868: 41,2047           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
017235,000869: 41,2050           52006                           DXCH     Z                                     #  ROUTINE.
017236,000870: 41,2051           50140                           INDEX    MIXBR                                 
017237,000871: 41,2052           02052                           TC       +0                                    
017238,000872: 41,2053           02055                           TC       +2                                    #  NORMAL
017239,000873: 41,2054           02221                           TC       MIXNOUN                               #  MIXED
017240,000874: 41,2055           10146                           CCS      NNADTEM                               #  NORMAL
017241,000875: 41,2056           02131                           TC       VERBFAN    -2                         #        NORMAL  IF +
017242,000876: 41,2057           02353                           TC       GODSPALM                              #  NOT IN USE    IF +0
017243,000877: 41,2060           02064                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
017244,000878: 41,2061           25016                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
017245,000879: 41,2062           04311                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
017246,000880: 41,2063           02120                           TC       INTMCTBS   +2                         
017247,000881: 41,2064           34735        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
017248,000882: 41,2065           55014                           TS       CLPASS                                
017249,000883: 41,2066           44217                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
017250,000884: 41,2067           60136                           AD       ENTEXIT                               #        FROM EXTERNAL
017251,000885: 41,2070           00006                           EXTEND                                         
017252,000886: 41,2071           12073                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
017253,000887: 41,2072           02116                           TC       INTMCTBS                              
017254,000888: 41,2073           02311                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
017255,000889: 41,2074           10777                           CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
017256,000890: 41,2075           04145                           TC       ALMCYCLE                              #  FOR MCTBS.
017257,000891: 41,2076           44360                           CS       VD1                                   #  OCTAL USED OK
017258,000892: 41,2077           54776                           TS       DSPCOUNT                              #  BLOCK NUM CHAR IN
017259,000893: 41,2100           11041                           CCS      CADRSTOR                              
017260,000894: 41,2101           02104                           TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
017261,000895: 41,2102           02105                           TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
017262,000896: 41,2103           02104                           TC       +1                                    
017263,000897: 41,2104           04427                           TC       FLASHON                               
017264,000898: 41,2105           57004        USEADD             XCH      ZREG                                  
017265,000899: 41,2106           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SET EB, NOUNADD.
017266,000900: 41,2107           00006                           EXTEND                                         
017267,000901: 41,2110           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
017268,000902: 41,2111           52006                           DXCH     Z                                     #  ROUTINE.
017269,000903: 41,2112           02133                           TC       VERBFAN                               
017270,000904: 
017271,000905: 41,2113     0776                                  EBANK=   DSPCOUNT                              

Page 410

017273,000907: 41,2113           02103 64101  LODNNLOC           2CADR    LODNNTAB                              
017274,000908: 
017275,000909: 41,2115           77772        NEG5               OCT      77772                                 
017276,000910: 
017277,000911: 41,2116           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
017278,000912: 41,2117           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SET EB, NOUNADD.
017279,000913: 41,2120           44756                           CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
017280,000914: 41,2121           61000                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
017281,000915: 41,2122           00006                           EXTEND                                         
017282,000916: 41,2123           12133                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
017283,000917: 41,2124           34321                           CAF      R3D1                                  #  VB NOT = 05.  DISPLAY CADR.
017284,000918: 41,2125           54776                           TS       DSPCOUNT                              
017285,000919: 41,2126           31016                           CA       NOUNCADR                              
017286,000920: 41,2127           03410                           TC       DSPOCTWD                              
017287,000921: 41,2130           02133                           TC       VERBFAN                               
017288,000922: 
017289,000923: 41,2131           64753                           AD       ONE                                   
017290,000924: 41,2132           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SETS EB, NOUNADD.
017291,000925: 41,2133           42145        VERBFAN            CS       LST2CON                               
017292,000926: 41,2134           61000                           AD       VERBREG                               #  VERB - LST2CON
017293,000927: 41,2135           10000                           CCS      A                                     
017294,000928: 41,2136           64753                           AD       ONE                                   #  VERB G/ LST2CON
017295,000929: 41,2137           02141                           TC       +2                                    
017296,000930: 41,2140           02146                           TC       VBFANDIR                              #  VERB L/ LST2CON
017297,000931: 41,2141           54154                           TS       MPAC                                  
017298,000932: 41,2142           04457                           TC       RELDSP                                #  RELEASE DISPLAY SYST
017299,000933: 41,2143           04635                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
017300,000934: 41,2144           66000                           CADR     GOEXTVB                               
017301,000935: 41,2145           00050        LST2CON            DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
017302,000936: 
017303,000937: 41,2146           51000        VBFANDIR           INDEX    VERBREG                               
017304,000938: 41,2147           32151                           CAF      VERBTAB                               
017305,000939: 41,2150           04640                           TC       BANKJUMP                              
017306,000940: 
017307,000941: 41,2151           62353        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
017308,000942: 41,2152           62367                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
017309,000943: 41,2153           62375                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
017310,000944: 41,2154           62402                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
017311,000945: 41,2155           62362                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
017312,000946: 41,2156           62355                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
017313,000947: 41,2157           62525                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
017314,000948: 41,2160           61025                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
017315,000949: 41,2161           62353                           CADR     GODSPALM                              #  VB08 SPARE
017316,000950: 41,2162           62353                           CADR     GODSPALM                              #  VB09 SPARE
017317,000951: 41,2163           61454                           CADR     DSPALARM                              #  VB10 SPARE
017318,000952: 41,2164           63255                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
017319,000953: 41,2165           63255                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
017320,000954: 41,2166           63255                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
017321,000955: 41,2167           63255                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)

Page 411

017323,000957: 41,2170           63255                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
017324,000958: 41,2171           63255                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
017325,000959: 41,2172           63255                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
017326,000960: 41,2173           62353                           CADR     GODSPALM                              #  VB18 SPARE
017327,000961: 41,2174           62353                           CADR     GODSPALM                              #  VB19 SPARE
017328,000962: 41,2175           62353                           CADR     GODSPALM                              #  VB20 SPARE
017329,000963: 41,2176           62755                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
017330,000964: 41,2177           62766                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
017331,000965: 41,2200           63003                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
017332,000966: 41,2201           62726                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
017333,000967: 41,2202           62622                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
017334,000968: 41,2203           62353                           CADR     GODSPALM                              #  VB26 SPARE
017335,000969: 41,2204           63400                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
017336,000970:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
017337,000971: 41,2205           62353                           CADR     GODSPALM                              #  VB28 SPARE
017338,000972: 41,2206           62353                           CADR     GODSPALM                              #  VB29 SPARE
017339,000973: 41,2207           63501        REQEXLQC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
017340,000974: 41,2210           63525                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
017341,000975: 41,2211           61521                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
017342,000976: 41,2212           61476                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
017343,000977: 41,2213           61504                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
017344,000978: 41,2214           63626                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
017345,000979: 41,2215           12447                           CADR     SLAP1                                 #  VB36 FRESH START
017346,000980: 41,2216           63443                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
017347,000981: 41,2217           62353                           CADR     GODSPALM                              #  VB38 SPARE
017348,000982: 41,2220           62353                           CADR     GODSPALM                              #  VB39 SPARE
017349,000983: 
017350,000984:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.

Page 412

017352,000986:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
017353,000987:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
017354,000988:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2.  IT SETS NOUNADD FOR
017355,000989:                                                                                                  #  MIXTEMP.
017356,000990: 
017357,000991: 41,2221           10146        MIXNOUN            CCS      NNADTEM                               
017358,000992: 41,2222           02226                           TC       +4                                    #  + IN USE
017359,000993: 41,2223           02353                           TC       GODSPALM                              #  +0 NOT IN USE
017360,000994: 41,2224           02226                           TC       +2                                    #  - IN USE
017361,000995: 41,2225           02226                           TC       +1                                    #  -0 IN USE
017362,000996: 41,2226           46245                           CS       SIX                                   
017363,000997: 41,2227           61000                           AD       VERBREG                               
017364,000998: 41,2230           00006                           EXTEND                                         
017365,000999: 41,2231           62233                           BZMF     +2                                    #  VERB L/E 6
017366,001000: 41,2232           02133                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
017367,001001: 41,2233           34752                           CAF      TWO                                   
017368,001002: 41,2234           54117        MIXNN1             TS       DECOUNT                               
017369,001003: 41,2235           62260                           AD       MIXAD                                 
017370,001004: 41,2236           54145                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP +K
017371,001005: 41,2237           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
017372,001006: 41,2240           30150                           CA       IDAD1TEM                              #  OF NOUN.
017373,001007: 41,2241           54122                           TS       NOUNTEM                               
017374,001008:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY).  IF SO, GET
017375,001009:                                                                                                  #        MINOR PART ONLY.
017376,001010: 41,2242           03057                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
017377,001011: 41,2243           02261                           TC       DPTEST                                
017378,001012: 41,2244           02246                           TC       MIXNN2                                #  NO DP
017379,001013: 41,2245           24122                           INCR     NOUNTEM                               #  DP GET MINOR PART
017380,001014: 41,2246           30122        MIXNN2             CA       NOUNTEM                               
017381,001015: 41,2247           74356                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1      FOR DP
017382,001016: 41,2250           04313                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
017383,001017: 41,2251           50000                           INDEX    A                                     #  PICK UP C(ESUBK) NOT DP
017384,001018: 41,2252           30000                           CA       0                                     #  OR C((ESUBK)+1) FOR DP MINOR PART
017385,001019: 41,2253           50145                           INDEX    NOUNADD                               
017386,001020: 41,2254           56000                           XCH      0                                     #  STORE IN MIXTEM + K
017387,001021: 41,2255           10117                           CCS      DECOUNT                               
017388,001022: 41,2256           02234                           TC       MIXNN1                                
017389,001023: 41,2257           02133                           TC       VERBFAN                               
017390,001024: 
017391,001025: 41,2260           00125        MIXAD              TC       MIXTEMP                               
017392,001026: 
017393,001027:                                                                                                  #  DPTEST        ENTER WITH SF ROUT NUMBER IN A.
017394,001028:                                                                                                  #                RETURNS TO L+1 IF NO DP.
017395,001029:                                                                                                  #                RETURNS TO L+2 IF DP.
017396,001030: 
017397,001031: 41,2261           50000        DPTEST             INDEX    A                                     
017398,001032: 41,2262           12263                           TCF      +1                                    
017399,001033: 41,2263           00002                           TC       Q                                     #  OCTAL ONLY NO DP
017400,001034: 41,2264           00002                           TC       Q                                     #  FRACT NO DP

Page 413

017402,001036: 41,2265           00002                           TC       Q                                     #  DEG NO DP
017403,001037: 41,2266           00002                           TC       Q                                     #  ARITH NO DP
017404,001038: 41,2267           12303                           TCF      DPTEST1                               #  DP1OUT
017405,001039: 41,2270           12303                           TCF      DPTEST1                               #  DP2OUT
017406,001040: 41,2271           00002                           TC       Q                                     #  LRPOSOUT NO DP (DATA IN CHANNEL 33)
017407,001041: 41,2272           12303                           TCF      DPTEST1                               #  DP3OUT
017408,001042: 41,2273           00002                           TC       Q                                     #  HMS NO DP
017409,001043: 41,2274           00002                           TC       Q                                     #  M/S NO DP
017410,001044: 41,2275           12303                           TCF      DPTEST1                               #  DP4OUT
017411,001045: 41,2276           00002                           TC       Q                                     #  ARITH1 NO DP
017412,001046: 41,2277           00002                           TC       Q                                     #  2INTOUT NO DP TO GET HI PART IN MPAC
017413,001047: 41,2300           00002                           TC       Q                                     #  360-CDU NO DP
017414,001048: 41,2301           00002                           TC       Q                                     #  RRANGOUT NO DP
017415,001049: 41,2302           00002                           TC       Q                                     #  RRDOTOUT NO DP
017416,001050: 41,2303           50002        DPTEST1            INDEX    Q                                     
017417,001051: 41,2304           00001                           TC       1                                     #  RETURN TO L+2
017418,001052: 
017419,001053: 41,2305           34317        REQDATX            CAF      R1D1                                  
017420,001054: 41,2306           12312                           TCF      REQCOM                                
017421,001055: 41,2307           34320        REQDATY            CAF      R2D1                                  
017422,001056: 41,2310           12312                           TCF      REQCOM                                
017423,001057: 41,2311           34321        REQDATZ            CAF      R3D1                                  
017424,001058: 41,2312           54776        REQCOM             TS       DSPCOUNT                              
017425,001059: 41,2313           40002                           CS       Q                                     
017426,001060: 41,2314           55012                           TS       REQRET                                
017427,001061: 41,2315           04616                           TC       BANKCALL                              
017428,001062: 41,2316           60536                           CADR     5BLANK                                
017429,001063: 41,2317           04427                           TC       FLASHON                               
017430,001064: 41,2320           00136        ENDRQDAT           TC       ENTEXIT                               
017431,001065: 
017432,001066: 41,2321           55001                           TS       NOUNREG                               
017433,001067: 41,2322           56002        UPDATNN            XCH      Q                                     
017434,001068: 41,2323           54117                           TS       UPDATRET                              
017435,001069: 41,2324           00006                           EXTEND                                         
017436,001070: 41,2325           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
017437,001071: 41,2326           52006                           DXCH     Z                                     #  ROUTINE.
017438,001072: 41,2327           10146                           CCS      NNADTEM                               
017439,001073: 41,2330           64753                           AD       ONE                                   #  NORMAL
017440,001074: 41,2331           12334                           TCF      PUTADD                                
017441,001075: 41,2332           12335                           TCF      PUTADD     +1                         #  MCTBS         DONT CHANGE NOUNADD
017442,001076: 41,2333           12335                           TCF      PUTADD     +1                         #  MCTBI         DONT CHANGE NOUNADD
017443,001077: 41,2334           04303        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SETS EB, NOUNADD.
017444,001078: 41,2335           34361                           CAF      ND1                                   
017445,001079: 41,2336           54776                           TS       DSPCOUNT                              
017446,001080: 41,2337           31001                           CA       NOUNREG                               
017447,001081: 41,2340           12347                           TCF      UPDAT1                                
017448,001082: 
017449,001083: 41,2341           55000                           TS       VERBREG                               
017450,001084: 41,2342           56002        UPDATVB            XCH      Q                                     

Page 414

017452,001086: 41,2343           54117                           TS       UPDATRET                              
017453,001087: 41,2344           34360                           CAF      VD1                                   
017454,001088: 41,2345           54776                           TS       DSPCOUNT                              
017455,001089: 41,2346           31000                           CA       VERBREG                               
017456,001090: 41,2347           04635        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN,SINCE
017457,001091: 41,2350           61353                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
017458,001092: 41,2351           00117                           TC       UPDATRET                              
017459,001093: 
017460,001094: 41,2352           04145        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
017461,001095: 
017462,001096: 41,2353           04635        GODSPALM           TC       POSTJUMP                              
017463,001097: 41,2354           61454                           CADR     DSPALARM                              
017464,001098: 

Page 415

017466,001100:                                                                                                  #  NOUN TABLES
017467,001101: 
017468,001102:                                                                                                  #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
017469,001103:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
017470,001104:                                                                                                  #  +0 INDICATES NOUN NOT USED.  - ENTRY INDICATES MACHINE CADR (E OR F) TO
017471,001105:                                                                                                  #  BE SPECIFIED.  -1 INDICATES CHANNEL TO BE SPECIFIED.  -0 INDICATES AUGMENT
017472,001106:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
017473,001107: 
017474,001108:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS (IDADDREL) IN LOW
017475,001109:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
017476,001110: 
017477,001111:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
017478,001112: 
017479,001113:                                                                                                  #  FOR THE NORMAL CASE,  M-S ARE THE COMPONENT CODE NUMBER.
017480,001114:                                                                                                  #                        N-S ARE THE SF ROUTINE CODE NUMBER.
017481,001115:                                                                                                  #                        P-S ARE THE SF CONSTANT CODE NUMBER.
017482,001116: 
017483,001117:                                                                                                  #  MIXED CASE,           M-S ARE THE SF CONSTANT3 CODE NUMBER    3 COMPONENT CASE
017484,001118:                                                                                                  #                        N-S ARE THE SF CONSTANT2 CODE NUMBER
017485,001119:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER
017486,001120:                                                                                                  #                        N-S ARE THE SF CONSTANT2 CODE NUMBER    2 COMPONENT CASE
017487,001121:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER
017488,001122:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER    1 COMPONENT CASE
017489,001123: 
017490,001124:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE (IDADDTAB) FOR MIXED CASE ONLY.
017491,001125:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.  IDADDREL IS THE RELATIVE ADDRESS OF
017492,001126:                                                                                                  #  THE FIRST OF THESE ENTRIES.
017493,001127:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
017494,001128:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
017495,001129: 
017496,001130:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE (RUTMXTAB) FOR MIXED
017497,001131:                                                                                                  #  CASE ONLY.  THERE IS ONE ENTRY PER MIXED NOUN.  THE FORM IS,
017498,001132: 
017499,001133:                                                                                                  #        QQQQQRRRRRSSSSS
017500,001134: 
017501,001135:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER          3 COMPONENT CASE
017502,001136:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
017503,001137:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
017504,001138:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER          2 COMPONENT CASE
017505,001139:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
017506,001140: 
017507,001141:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
017508,001142:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
017509,001143:                                                                                                  #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
017510,001144: 
017511,001145:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
017512,001146:                                                                                                  #  COMPONENT WORDS IS ALLOWED.  ALARM IF VIOLATION.
017513,001147: 
017514,001148:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
017515,001149:                                                                                                  #  BEFORE EACH ENTER.  IF NOT, ALARM.
017516,001150: 

Page 416

017518,001152:                                                                                                  #  DISPLAY VERBS
017519,001153: 
017520,001154: 41,2355           44752        DSPABC             CS       TWO                                   
017521,001155: 41,2356           02426                           TC       COMPTEST                              
017522,001156: 41,2357           50145                           INDEX    NOUNADD                               
017523,001157: 41,2360           40002                           CS       2                                     
017524,001158: 41,2361           56132                           XCH      BUF        +2                         
017525,001159: 41,2362           44753        DSPAB              CS       ONE                                   
017526,001160: 41,2363           02426                           TC       COMPTEST                              
017527,001161: 41,2364           50145                           INDEX    NOUNADD                               
017528,001162: 41,2365           40001                           CS       1                                     
017529,001163: 41,2366           56131                           XCH      BUF        +1                         
017530,001164: 41,2367           02445        DSPA               TC       DECTEST                               
017531,001165: 41,2370           02470                           TC       TSTFORDP                              
017532,001166: 41,2371           50145                           INDEX    NOUNADD                               
017533,001167: 41,2372           40000                           CS       0                                     
017534,001168: 41,2373           56130        DSPCOM1            XCH      BUF                                   
017535,001169: 41,2374           02407                           TC       DSPCOM2                               
017536,001170: 41,2375           44753        DSPB               CS       ONE                                   
017537,001171: 41,2376           02441                           TC       DCOMPTST                              
017538,001172: 41,2377           50145                           INDEX    NOUNADD                               
017539,001173: 41,2400           40001                           CS       1                                     
017540,001174: 41,2401           02373                           TC       DSPCOM1                               
017541,001175: 41,2402           44752        DSPC               CS       TWO                                   
017542,001176: 41,2403           02441                           TC       DCOMPTST                              
017543,001177: 41,2404           50145                           INDEX    NOUNADD                               
017544,001178: 41,2405           40002                           CS       2                                     
017545,001179: 41,2406           02373                           TC       DSPCOM1                               
017546,001180: 41,2407           44752        DSPCOM2            CS       TWO                                   #  A B C AB ABC
017547,001181: 41,2410           61000                           AD       VERBREG                               #  -1 -0 +1 +2 +3   IN A
017548,001182: 41,2411           10000                           CCS      A                                     #  +0 +0 +0 +1 +2    IN A AFTER CCS
017549,001183: 41,2412           02415                           TC       DSPCOM3                               
017550,001184: 41,2413           00136                           TC       ENTEXIT                               
017551,001185: 41,2414           02415                           TC       +1                                    
017552,001186: 41,2415           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
017553,001187: 41,2416           50000                           INDEX    A                                     
017554,001188: 41,2417           34317                           CAF      R1D1                                  
017555,001189: 41,2420           54776                           TS       DSPCOUNT                              
017556,001190: 41,2421           50122                           INDEX    DISTEM                                
017557,001191: 41,2422           40130                           CS       BUF                                   
017558,001192: 41,2423           03410                           TC       DSPOCTWD                              
017559,001193: 41,2424           56122                           XCH      DISTEM                                
017560,001194: 41,2425           02411                           TC       DSPCOM2    +2                         
017561,001195: 
017562,001196:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
017563,001197:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
017564,001198: 
017565,001199: 41,2426           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
017566,001200: 41,2427           22002                           LXCH     Q                                     
017567,001201: 41,2430           02517        COMPTST1           TC       GETCOMP                               
017568,001202: 41,2431           04331                           TC       LEFT5                                 
017569,001203: 41,2432           76250                           MASK     THREE                                 #  NOUN COMP

Page 417

017571,001205: 41,2433           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
017572,001206: 41,2434           10000                           CCS      A                                     
017573,001207: 41,2435           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
017574,001208: 41,2436           05675                           TC       CCSHOLE                               
017575,001209: 41,2437           02353                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
017576,001210: 41,2440           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
017577,001211: 
017578,001212:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
017579,001213:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
017580,001214: 
017581,001215: 41,2441           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
017582,001216: 41,2442           22002                           LXCH     Q                                     
017583,001217: 41,2443           02445                           TC       DECTEST                               
017584,001218: 41,2444           02430                           TC       COMPTST1                              
017585,001219: 
017586,001220: 41,2445           00006        DECTEST            EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
017587,001221: 41,2446           22156                           QXCH     MPAC       +2                         #  CODE NUMBER).  RETURNS IF NOT.
017588,001222: 41,2447           02517                           TC       GETCOMP                               
017589,001223: 41,2450           74736                           MASK     BIT14                                 
017590,001224: 41,2451           10000                           CCS      A                                     
017591,001225: 41,2452           02353                           TC       GODSPALM                              
017592,001226: 41,2453           00156                           TC       MPAC       +2                         
017593,001227: 
017594,001228: 41,2454           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
017595,001229: 41,2455           02517                           TC       GETCOMP                               #  (BIT4 OF COMP CODE NUMBER). RETURNS
017596,001230: 41,2456           74736                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
017597,001231: 41,2457           10000                           CCS      A                                     
017598,001232: 41,2460           04145                           TC       ALMCYCLE                              
017599,001233: 41,2461           00001                           TC       L                                     
017600,001234: 
017601,001235:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
017602,001236:                                                                                                  #  IF NOT, IT RETURNS.
017603,001237: 
017604,001238: 41,2462           22002        NOUNTEST           LXCH     Q                                     
017605,001239: 41,2463           02517                           TC       GETCOMP                               
017606,001240: 41,2464           10000                           CCS      A                                     
017607,001241: 41,2465           00001                           TC       L                                     
017608,001242: 41,2466           00001                           TC       L                                     
017609,001243: 41,2467           02353                           TC       GODSPALM                              
017610,001244: 
017611,001245: 41,2470           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP.  IF SO, GET MINOR PART ONLY.
017612,001246: 41,2471           30146                           CA       NNADTEM                               
017613,001247: 41,2472           64753                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
017614,001248: 41,2473           00006                           EXTEND                                         
017615,001249: 41,2474           12506                           BZF      CHANDSP                               
017616,001250: 41,2475           50140                           INDEX    MIXBR                                 
017617,001251: 41,2476           02476                           TC       +0                                    
017618,001252: 41,2477           02501                           TC       +2                                    #  NORMAL

Page 418

017620,001254: 41,2500           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
017621,001255: 41,2501           03051                           TC       SFRUTNOR                              
017622,001256: 41,2502           02261                           TC       DPTEST                                
017623,001257: 41,2503           00001                           TC       L                                     #  NO DP
017624,001258: 41,2504           24145                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
017625,001259: 41,2505           00001                           TC       L                                     
017626,001260: 
017627,001261: 41,2506           31016        CHANDSP            CA       NOUNCADR                              
017628,001262: 41,2507           75004                           MASK     LOW9                                  
017629,001263: 41,2510           00006                           EXTEND                                         
017630,001264: 41,2511           50000                           INDEX    A                                     
017631,001265: 41,2512           00000                           READ     0                                     
017632,001266: 41,2513           40000                           CS       A                                     
017633,001267: 41,2514           12373                           TCF      DSPCOM1                               
017634,001268: 
017635,001269: 41,2515           00147        COMPICK            ADRES    NNTYPTEM                              
017636,001270: 41,2516           00146                           ADRES    NNADTEM                               
017637,001271: 
017638,001272: 41,2517           50140        GETCOMP            INDEX    MIXBR                                 #        NORMAL                          MIXED
017639,001273: 41,2520           32514                           CAF      COMPICK    -1                         #        ADRES NNTYPTEM                  ADRES NNADTEM
017640,001274: 41,2521           50000                           INDEX    A                                     
017641,001275: 41,2522           30000                           CA       0                                     #        C(NNTYPTEM)                     C(NNADTEM)
017642,001276: 41,2523           74350                           MASK     HI5                                   #        GET HI5 OF NNTYPTAB (NORM)      OF NNADTAB (MIX)
017643,001277: 41,2524           00002                           TC       Q                                     
017644,001278: 
017645,001279: 41,2525           02517        DECDSP             TC       GETCOMP                               
017646,001280: 41,2526           04331                           TC       LEFT5                                 
017647,001281: 41,2527           76250                           MASK     THREE                                 
017648,001282: 41,2530           54117                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
017649,001283: 41,2531           54122        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
017650,001284: 41,2532           60145                           AD       NOUNADD                               #  DECTEM 1COMP +0, 2COMP +1, 3COMP +2
017651,001285: 41,2533           50000                           INDEX    A                                     
017652,001286: 41,2534           40000                           CS       0                                     
017653,001287: 41,2535           50122                           INDEX    DECTEM                                
017654,001288: 41,2536           57002                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
017655,001289: 41,2537           10122                           CCS      DECTEM                                
017656,001290: 41,2540           02531                           TC       DSPDCGET                              #  MORE TO GET
017657,001291: 41,2541           34755        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
017658,001292: 41,2542           54155                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
017659,001293: 41,2543           54156                           TS       MPAC       +2                         
017660,001294: 41,2544           50117                           INDEX    DECOUNT                               
017661,001295: 41,2545           34317                           CAF      R1D1                                  
017662,001296: 41,2546           54776                           TS       DSPCOUNT                              
017663,001297: 41,2547           50117                           INDEX    DECOUNT                               
017664,001298: 41,2550           41002                           CS       XREG                                  
017665,001299: 41,2551           54154                           TS       MPAC                                  
017666,001300: 41,2552           03072                           TC       SFCONUM                               #  2X (SF CON NUMB) IN A

Page 419

017668,001302: 41,2553           54123                           TS       SFTEMP1                               
017669,001303: 41,2554           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
017670,001304: 41,2555           32567                           DCA      GTSFOUTL                              #        READING ROUTINE.
017671,001305: 41,2556           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
017672,001306: 41,2557           50140                           INDEX    MIXBR                                 
017673,001307: 41,2560           02560                           TC       +0                                    
017674,001308: 41,2561           02564                           TC       DSPSFNOR                              
017675,001309: 41,2562           03057                           TC       SFRUTMIX                              
017676,001310: 41,2563           02577                           TC       DECDSP3                               
017677,001311: 
017678,001312: 41,2564           03051        DSPSFNOR           TC       SFRUTNOR                              
017679,001313: 41,2565           02577                           TC       DECDSP3                               
017680,001314: 
017681,001315: 41,2566     0776                                  EBANK=   DSPCOUNT                              
017682,001316: 41,2566           02141 64101  GTSFOUTL           2CADR    GTSFOUT                               
017683,001317: 
017684,001318: 41,2570           04616        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
017685,001319: 41,2571           61262                           CADR     DSPDECWD                              
017686,001320: 41,2572           10117                           CCS      DECOUNT                               
017687,001321: 41,2573           02575                           TC       +2                                    
017688,001322: 41,2574           00136                           TC       ENTEXIT                               
017689,001323: 41,2575           54117                           TS       DECOUNT                               
017690,001324: 41,2576           02541                           TC       DSPDCPUT                              #  MORE TO DISPLAY
017691,001325: 
017692,001326: 41,2577           50000        DECDSP3            INDEX    A                                     
017693,001327: 41,2600           32602                           CAF      SFOUTABR                              
017694,001328: 41,2601           04640                           TC       BANKJUMP                              
017695,001329: 
017696,001330: 41,2602           61452        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
017697,001331: 41,2603           62570                           CADR     DSPDCEND                              
017698,001332: 41,2604           60615                           CADR     DEGOUTSF                              
017699,001333: 41,2605           60733                           CADR     ARTOUTSF                              
017700,001334: 41,2606           60744                           CADR     DP1OUTSF                              
017701,001335: 41,2607           60751                           CADR     DP2OUTSF                              
017702,001336: 41,2610           60635                           CADR     LRPOSOUT                              
017703,001337: 41,2611           60753                           CADR     DP3OUTSF                              
017704,001338: 41,2612           65230                           CADR     HMSOUT                                
017705,001339: 41,2613           65303                           CADR     M/SOUT                                
017706,001340: 41,2614           60751                           CADR     DP2OUTSF                              
017707,001341: 41,2615           60740                           CADR     AROUT1SF                              
017708,001342: 41,2616           60766                           CADR     2INTOUT                               
017709,001343: 41,2617           60623                           CADR     360-CDUO                              
017710,001344: 41,2620           60645                           CADR     RRANGOUT                              
017711,001345: 41,2621           60662                           CADR     RRDOTOUT                              
017712,001346: 41,2622                        ENDRTOUT           EQUALS                                         
017713,001347: 

Page 420

017715,001349:                                                                                                  #  THE FOLLOWING IS ATYPICAL SF ROUTINE.  IT USES MPAC.  LEAVES RESU
017716,001350:                                                                                                  #  LTS IN MPAC, MPAC+1.  ENDS WITH TC DSPDCEND
017717,001351: 
017718,001352: 40,2615                                           SETLOC   BLANKCON   +1                         
017719,001353: 
017720,001354: 40,2615                                           COUNT*   $$/PIN                                
017721,001355:                                                                                                  #  DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
017722,001356:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
017723,001357: 
017724,001358: 40,2615           34755        DEGOUTSF           CAF      ZERO                                  
017725,001359: 40,2616           54156                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
017726,001360: 40,2617           02706                           TC       FIXRANGE                              
017727,001361: 40,2620           02622                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
017728,001362: 40,2621           02701                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
017729,001363: 40,2622           02717                           TC       DEGCOM                                
017730,001364: 
017731,001365:                                                                                                  #  360-CDUO COMPUTES 360-CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND
017732,001366:                                                                                                  #  GOES TO DEGOUTSF.
017733,001367: 
017734,001368: 40,2623           02625        360-CDUO           TC       360-CDU                               
017735,001369: 40,2624           02615                           TC       DEGOUTSF                              
017736,001370: 
017737,001371: 40,2625           30154        360-CDU            CA       MPAC                                  
017738,001372: 40,2626           74733                           MASK     POSMAX                                #  IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING
017739,001373: 40,2627           00006                           EXTEND                                         
017740,001374: 40,2630           12634                           BZF      360-CDUE                              
017741,001375: 40,2631           40154                           CS       MPAC                                  #  COMPUTE 360 DEGREES MINUS ANGLE
017742,001376: 40,2632           64753                           AD       ONE                                   
017743,001377: 40,2633           54154                           TS       MPAC                                  
017744,001378: 40,2634           00002        360-CDUE           TC       Q                                     
017745,001379: 
017746,001380:                                                                                                  #  LRPOSOUT DISPLAYS +0,1,2, OR 3 (WHOLE) FOR CHANNEL 33,BITS 7-6 = 11,10,
017747,001381:                                                                                                  #  01,00 RESPECTIVELY.
017748,001382: 
017749,001383: 40,2635           00006        LRPOSOUT           EXTEND                                         
017750,001384: 40,2636           00033                           READ     CHAN33                                
017751,001385: 40,2637           00006                           EXTEND                                         
017752,001386: 40,2640           74742                           MP       BIT10                                 #  BITS 7-6 TO BITS 2-1
017753,001387: 40,2641           40000                           COM                                            
017754,001388: 40,2642           76250                           MASK     THREE                                 
017755,001389: 40,2643           54154                           TS       MPAC                                  
017756,001390: 40,2644           02733                           TC       ARTOUTSF                              #  DISPLAY AS WHOLE
017757,001391: 
017758,001392:                                                                                                  #  RRANGOUT AND RRDOTOUT CONVERT RR RANGE AND RANGE RATE FROM SP 15 BIT
017759,001393:                                                                                                  #  MAGNITUDE TO DP AND THEN SCALE FOR DISPLAY.
017760,001394: 
017761,001395: 40,2645           02671        RRANGOUT           TC       RRSPTODP                              #  CONVERT TO DP.
017762,001396: 40,2646           40110                           CS       RADMODES                              #  BIT 3 OF FLAG12 = HI SCALE
017763,001397: 40,2647           74751                           MASK     BIT3                                  

Page 421

017765,001399: 40,2650           10000                           CCS      A                                     
017766,001400: 40,2651           02657                           TC       SCALELO                               #  DATA IS IN LO SCALE.
017767,001401: 40,2652           52155                           DXCH     MPAC                                  #  DATA IS IN HI SCALE, MP BY 8.
017768,001402: 40,2653           20001                           DAS      A                                     
017769,001403: 40,2654           20001                           DAS      A                                     
017770,001404: 40,2655           20001                           DAS      A                                     
017771,001405: 40,2656           52155                           DXCH     MPAC                                  
017772,001406: 40,2657           07106        SCALELO            TC       DMP                                   #  SCALE FOR DISPLAY,
017773,001407: 40,2660           00123                           ADRES    SFTEMP1                               
017774,001408: 40,2661           02745                           TC       L14/OUT                               #  AND GO TO ARITHDP1.
017775,001409: 
017776,001410: 40,2662           02671        RRDOTOUT           TC       RRSPTODP                              #  CONVERT TO DP.
017777,001411: 40,2663           00006                           EXTEND                                         
017778,001412: 40,2664           42670                           DCS      BIASRDOT                              #  SUBTRACT BIAS OF 17000 COUNTS.
017779,001413: 40,2665           20155                           DAS      MPAC                                  
017780,001414: 40,2666           02657                           TC       SCALELO                               #  SCALE FOR DISPLAY.
017781,001415: 40,2667           00001 01150  BIASRDOT           2DEC     17000      B-28                       
017782,001416: 
017783,001417: 40,2671           34733        RRSPTODP           CAF      POSMAX                                #  CONVERT SP 15 BIT MAG TO DP.
017784,001418: 40,2672           70154                           MASK     MPAC                                  
017785,001419: 40,2673           54155                           TS       MPAC       +1                         
017786,001420: 40,2674           30154                           CA       MPAC                                  
017787,001421: 40,2675           60000                           DOUBLE                                         
017788,001422: 40,2676           74753                           MASK     BIT1                                  
017789,001423: 40,2677           54154                           TS       MPAC                                  
017790,001424: 40,2700           00002                           TC       Q                                     
017791,001425: 
017792,001426: 40,2701           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
017793,001427: 40,2702           50156                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
017794,001428: 40,2703           32730                           DCA      DEGTAB                                
017795,001429: 40,2704           52124                           DXCH     SFTEMP1                               
017796,001430: 40,2705           00002                           TC       Q                                     
017797,001431: 
017798,001432: 40,2706           10154        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
017799,001433: 40,2707           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
017800,001434: 40,2710           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
017801,001435: 40,2711           12712                           TCF      +1                                    
017802,001436: 40,2712           44735                           CS       BIT15                                 
017803,001437: 40,2713           70154                           MASK     MPAC                                  
017804,001438: 40,2714           54154                           TS       MPAC                                  
017805,001439: 40,2715           50002                           INDEX    Q                                     
017806,001440: 40,2716           00001                           TC       1                                     
017807,001441: 
017808,001442: 40,2717           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
017809,001443: 40,2720           50156                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
017810,001444: 40,2721           32730                           DCA      DEGTAB                                
017811,001445: 40,2722           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
017812,001446: 40,2723           07312                           TC       SHORTMP                               
017813,001447: 40,2724           52124                           DXCH     SFTEMP1                               

Page 422

017815,001449: 40,2725           20155                           DAS      MPAC                                  
017816,001450: 40,2726           02736                           TC       SCOUTEND                              
017817,001451: 
017818,001452: 40,2727           05605        DEGTAB             OCT      05605                                 #  HI PART OF    .18
017819,001453: 40,2730           03656                           OCT      03656                                 #  LOW PART OF   .18
017820,001454: 40,2731           16314                           OCT      16314                                 #  HI PART OF    .45
017821,001455: 40,2732           31463                           OCT      31463                                 #  LO PART OF    .45
017822,001456: 
017823,001457: 40,2733           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
017824,001458: 40,2734           52155                           DXCH     MPAC                                  
017825,001459: 40,2735           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
017826,001460: 40,2736           04635        SCOUTEND           TC       POSTJUMP                              
017827,001461: 40,2737           62570                           CADR     DSPDCEND                              
017828,001462: 
017829,001463: 40,2740           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
017830,001464: 40,2741           52155                           DXCH     MPAC                                  #  DP SFCON.  SHIFTS RESULTS LEFT 14, BY
017831,001465: 40,2742           04415                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
017832,001466: 40,2743           02745                           TC       L14/OUT                               
017833,001467: 
017834,001468: 40,2744           02757        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
017835,001469: 40,2745           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
017836,001470: 40,2746           56155                           XCH      MPAC       +1                         #  BY B14.
017837,001471: 40,2747           54154                           TS       MPAC                                  
017838,001472: 40,2750           02736                           TC       SCOUTEND                              
017839,001473: 
017840,001474: 40,2751           02757        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
017841,001475: 40,2752           02736                           TC       SCOUTEND                              
017842,001476: 
017843,001477: 40,2753           02757        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
017844,001478: 40,2754           36245                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
017845,001479: 40,2755           03207                           TC       TPLEFTN                               #  SHIFT LEFT 7.
017846,001480: 40,2756           02736                           TC       SCOUTEND                              
017847,001481: 
017848,001482: 40,2757     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
017849,001483: 
017850,001484: 40,2757           56002        DPOUT              XCH      Q                                     
017851,001485: 40,2760           54162                           TS       MPAC+6                                
017852,001486: 40,2761           03003                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
017853,001487: 40,2762           07262                           TC       TPAGREE                               #  MAKE DP DATA AGREE
017854,001488: 40,2763           07106                           TC       DMP                                   
017855,001489: 40,2764           00123                           ADRES    SFTEMP1                               
017856,001490: 40,2765           00162                           TC       MPAC+6                                
017857,001491: 
017858,001492:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
017859,001493:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
017860,001494:                                                                                                  #  BLANKED).  THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN

Page 423

017862,001496:                                                                                                  #  RXD1-RXD2.
017863,001497: 
017864,001498: 40,2766           02536        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
017865,001499: 40,2767           02413                           TC       +ON                                   #  TURN ON + SIGN
017866,001500: 40,2770           30154                           CA       MPAC                                  
017867,001501: 40,2771           03342                           TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
017868,001502: 40,2772           46250                           CS       THREE                                 
017869,001503: 40,2773           50117                           INDEX    DECOUNT                               
017870,001504: 40,2774           64317                           AD       R1D1                                  #  RXD4
017871,001505: 40,2775           54776                           TS       DSPCOUNT                              
017872,001506: 40,2776           03003                           TC       READLO                                #  GET 2ND INTEGER
017873,001507: 40,2777           30155                           CA       MPAC       +1                         
017874,001508: 40,3000           03342                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
017875,001509: 40,3001           04635                           TC       POSTJUMP                              
017876,001510: 40,3002           62572                           CADR     DSPDCEND   +2                         
017877,001511: 
017878,001512:                                                                                                  #  READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN 
017879,001513:                                                                                                  #  MPAC, MPAC+1.  THIS IS NEEDED FOR TIME DISPLAY.  IT ZEROES MPAC+2, BUT
017880,001514:                                                                                                  #  DOES NOT FORCE TPAGREE.
017881,001515: 
017882,001516: 40,3003           56002        READLO             XCH      Q                                     
017883,001517: 40,3004           54144                           TS       TEM4                                  
017884,001518: 40,3005           50140                           INDEX    MIXBR                                 
017885,001519: 40,3006           03006                           TC       +0                                    
017886,001520: 40,3007           03023                           TC       RDLONOR                               
017887,001521: 40,3010           50117                           INDEX    DECOUNT                               
017888,001522: 40,3011           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
017889,001523: 40,3012           74356                           MASK     LOW11                                 #  E SUBK
017890,001524: 40,3013           04313                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
017891,001525: 40,3014           00006        READLO1            EXTEND                                         #  MIXED                         NORMAL
017892,001526: 40,3015           50000                           INDEX    A                                     #  C(ESUBK)                      C(E)
017893,001527: 40,3016           30001                           DCA      0                                     #  C((E SUBK)+1)                 C(E+1)
017894,001528: 40,3017           52155                           DXCH     MPAC                                  
017895,001529: 40,3020           34755                           CAF      ZERO                                  
017896,001530: 40,3021           54156                           TS       MPAC       +2                         
017897,001531: 40,3022           00144                           TC       TEM4                                  
017898,001532: 
017899,001533: 40,3023           30145        RDLONOR            CA       NOUNADD                               #  E
017900,001534: 40,3024           03014        ENDRDLO            TC       READLO1                               
017901,001535: 
017902,001536: 42,3230                                           BANK     42                                    
017903,001537: 42,2000                                           SETLOC   PINBALL3                              
017904,001538: 42,2000                                           BANK                                           
017905,001539: 
017906,001540: 42,3230                                           COUNT*   $$/PIN                                
017907,001541: 42,3230           04616        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
017908,001542: 42,3231           61003                           CADR     READLO                                #  MPAC+1.
017909,001543: 42,3232           07262                           TC       TPAGREE                               #  MAKE DP DATA AGREE

Page 424

017911,001545: 42,3233           03417                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.  LEAVE
017912,001546:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
017913,001547: 42,3234           07106                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
017914,001548: 42,3235           03271                           ADRES    SECON2                                #  MULT BY .06
017915,001549: 42,3236           34321                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
017916,001550: 42,3237           54776                           TS       DSPCOUNT                              
017917,001551: 42,3240           04616                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
017918,001552: 42,3241           61262                           CADR     DSPDECWD                              
017919,001553: 42,3242           03435                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
017920,001554: 42,3243           33273                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1.  LEAVE
017921,001555: 42,3244           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
017922,001556: 42,3245           55006                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
017923,001557: 42,3246           33274                           CAF      MINCON2    +1                         
017924,001558: 42,3247           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
017925,001559: 42,3250           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
017926,001560:                                                                                                  #  MULT BY .0006
017927,001561: 42,3251           34320                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
017928,001562: 42,3252           54776                           TS       DSPCOUNT                              
017929,001563: 42,3253           04616                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
017930,001564: 42,3254           61262                           CADR     DSPDECWD                              
017931,001565: 42,3255           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
017932,001566: 42,3256           33300                           DCA      HRCON1                                
017933,001567: 42,3257           52155                           DXCH     MPAC                                  
017934,001568: 42,3260           31006                           CA       HITEMOUT                              #  USE WHOLE HOURS
017935,001569: 42,3261           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
017936,001570:                                                                                                  #  MULT BY .16384
017937,001571: 42,3262           34317                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
017938,001572: 42,3263           54776                           TS       DSPCOUNT                              
017939,001573: 42,3264           04616                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
017940,001574: 42,3265           61262                           CADR     DSPDECWD                              
017941,001575: 42,3266           00136                           TC       ENTEXIT                               
017942,001576: 
017943,001577: 42,3267           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
017944,001578: 42,3271           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
017945,001579: 42,3272           01217                           OCT      01217                                 
017946,001580: 42,3273           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
017947,001581: 42,3274           32445                           OCT      32445                                 
017948,001582: 42,3275           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
017949,001583: 42,3276           10422                           OCT      10422                                 
017950,001584: 42,3277           05174 13261  HRCON1             2DEC     .16384                                
017951,001585: 42,3301           00000                           OCT      00000                                 
017952,001586: 42,3302           00062        RNDCON             OCT      00062                                 #  .5 SEC
017953,001587: 
017954,001588: 42,3303           04616        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
017955,001589: 42,3304           61003                           CADR     READLO                                #  MPAC+1.
017956,001590: 42,3305           07262                           TC       TPAGREE                               #  MAKE DP DATA AGREE
017957,001591: 42,3306           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,

Page 425

017959,001593: 42,3307           03311                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
017960,001594: 42,3310           03342                           TC       M/SNORM                               #  MPAC = +0.  L/ 59M58.5S
017961,001595: 42,3311           63377                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1 FOR CCS
017962,001596: 42,3312           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
017963,001597: 42,3313           03326                           TC       M/SLIMIT                              #  G/ 59M58.5S
017964,001598: 42,3314           03342                           TC       M/SNORM                               #  ORIGINAL MPAC = -0.  L/59M58.5S
017965,001599: 42,3315           03342                           TC       M/SNORM                               #  L/ 59M58.5S
017966,001600: 42,3316           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
017967,001601: 42,3317           03321                           TC       +2                                    
017968,001602: 42,3320           03342                           TC       M/SNORM                               #  MPAC+1 = +0.  L/ 59M58.5S
017969,001603: 42,3321           63400                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1 FOR CCS
017970,001604: 42,3322           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
017971,001605: 42,3323           03326                           TC       M/SLIMIT                              #  G/ 59M58.5S
017972,001606: 42,3324           03342                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0.  L/ 59M58.5S
017973,001607: 42,3325           03342                           TC       M/SNORM                               #  L/ 59M58.5S
017974,001608: 42,3326           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
017975,001609: 42,3327           33402                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
017976,001610: 42,3330           03337                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
017977,001611: 42,3331           43402                           CS       M/SCON3                               
017978,001612: 42,3332           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
017979,001613: 42,3333           43403                           CS       M/SCON3    +1                         
017980,001614: 42,3334           54155        LIMITCOM           TS       MPAC       +1                         
017981,001615: 42,3335           33401                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
017982,001616: 42,3336           03420                           TC       SEPSECNR   +1                         
017983,001617: 42,3337           54154        +LIMIT             TS       MPAC                                  
017984,001618: 42,3340           33403                           CAF      M/SCON3    +1                         
017985,001619: 42,3341           03334                           TC       LIMITCOM                              
017986,001620: 42,3342           03404        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1.  LEAVE
017987,001621:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
017988,001622: 42,3343           33375                           CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
017989,001623: 42,3344           07312                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
017990,001624: 42,3345           46250                           CS       THREE                                 #  GIVES SEC/100 MOD 60
017991,001625: 42,3346           26776                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
017992,001626: 42,3347           04616                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
017993,001627: 42,3350           61322                           CADR     DSPDC2NR                              
017994,001628: 42,3351           34755                           CAF      ZERO                                  
017995,001629: 42,3352           54124                           TS       CODE                                  
017996,001630: 42,3353           44752                           CS       TWO                                   
017997,001631: 42,3354           50117                           INDEX    DECOUNT                               
017998,001632: 42,3355           64317                           AD       R1D1                                  #  RXD3
017999,001633: 42,3356           54143                           TS       COUNT                                 
018000,001634: 42,3357           04616                           TC       BANKCALL                              #  BLANK MIDDLE CHAR
018001,001635: 42,3360           61356                           CADR     DSPIN                                 
018002,001636: 42,3361           03435                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
018003,001637: 42,3362           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
018004,001638: 42,3363           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
018005,001639: 42,3364           73376                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
018006,001640: 42,3365           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
018007,001641: 42,3366           50117                           INDEX    DECOUNT                               
018008,001642: 42,3367           34317                           CAF      R1D1                                  #  RXD1

Page 426

018010,001644: 42,3370           54776                           TS       DSPCOUNT                              
018011,001645: 42,3371           04616                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
018012,001646: 42,3372           61322                           CADR     DSPDC2NR                              
018013,001647: 42,3373           04635                           TC       POSTJUMP                              
018014,001648: 42,3374           62572                           CADR     DSPDCEND   +2                         
018015,001649: 
018016,001650: 42,3375           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
018017,001651: 42,3376           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
018018,001652: 
018019,001653: 42,3377           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
018020,001654: 42,3400           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
018021,001655: 42,3401           03343        NORMADR            ADRES    M/SNORM    +1                         
018022,001656: 42,3402           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
018023,001657: 42,3403           37016                           OCT      37016                                 
018024,001658: 
018025,001659: 42,3404           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
018026,001660: 42,3405           13414                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
018027,001661: 42,3406           13414                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
018028,001662: 42,3407           13410                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
018029,001663: 42,3410           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
018030,001664: 42,3411           43302                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
018031,001665: 42,3412           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
018032,001666: 42,3413           13417                           TCF      SEPSECNR                              
018033,001667: 42,3414           00006        POSEC              EXTEND                                         
018034,001668: 42,3415           33302                           DCA      RNDCON     -1                         
018035,001669: 42,3416           13412                           TCF      SEPSEC1                               
018036,001670: 42,3417           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
018037,001671: 42,3420           54144                           TS       SEPSCRET                              
018038,001672: 42,3421           07106                           TC       DMP                                   #  MULT BY 2EXP12/6000
018039,001673: 42,3422           03267                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
018040,001674: 42,3423           00006                           EXTEND                                         #  AND BELOW.
018041,001675: 42,3424           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
018042,001676: 42,3425           53007                           DXCH     HITEMOUT                              
018043,001677: 42,3426           04404                           TC       TPSL1                                 
018044,001678: 42,3427           04404                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
018045,001679: 42,3430           34755                           CAF      ZERO                                  
018046,001680: 42,3431           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
018047,001681: 42,3432           56155                           XCH      MPAC       +1                         
018048,001682: 42,3433           56154                           XCH      MPAC                                  
018049,001683: 42,3434           00144                           TC       SEPSCRET                              
018050,001684: 
018051,001685: 42,3435           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
018052,001686: 42,3436           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
018053,001687: 42,3437           31007                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
018054,001688: 42,3440           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
018055,001689: 42,3441           74751                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
018056,001690: 42,3442           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
018057,001691: 42,3443           74737                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.

Page 427

018059,001693: 42,3444           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
018060,001694:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
018061,001695: 42,3445           31006                           CA       HITEMOUT                              
018062,001696: 42,3446           54154                           TS       MPAC                                  
018063,001697: 42,3447           07106                           TC       DMP                                   #  MULT BY 1/15
018064,001698: 42,3450           03275                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
018065,001699: 42,3451           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
018066,001700: 
018067,001701:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
018068,001702:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
018069,001703:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS.  IT DISPLAYS THE CONTENTS
018070,001704:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO.  IF USED WITH NOUNS WHICH ARE
018071,001705:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
018072,001706:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
018073,001707: 
018074,001708: 40,3025                                           SETLOC   ENDRDLO    +1                         
018075,001709: 
018076,001710: 40,3025                                           COUNT*   $$/PIN                                
018077,001711: 40,3025           50140        DSPDPDEC           INDEX    MIXBR                                 
018078,001712: 40,3026           03026                           TC       +0                                    
018079,001713: 40,3027           03031                           TC       +2                                    #  NORMAL NOUN
018080,001714: 40,3030           03454                           TC       DSPALARM                              
018081,001715: 40,3031           00006                           EXTEND                                         
018082,001716: 40,3032           50145                           INDEX    NOUNADD                               
018083,001717: 40,3033           30001                           DCA      0                                     
018084,001718: 40,3034           52155                           DXCH     MPAC                                  
018085,001719: 40,3035           34317                           CAF      R1D1                                  
018086,001720: 40,3036           54776                           TS       DSPCOUNT                              
018087,001721: 40,3037           34755                           CAF      ZERO                                  
018088,001722: 40,3040           54156                           TS       MPAC       +2                         
018089,001723: 40,3041           07262                           TC       TPAGREE                               
018090,001724: 40,3042           03327                           TC       DSP2DEC                               
018091,001725: 40,3043           00136        ENDDPDEC           TC       ENTEXIT                               
018092,001726: 

Page 428

018094,001728:                                                                                                  #  LOAD VERBS            IF ALARM CONDITION IS DETECTED DURING EXECUTE,
018095,001729:                                                                                                  #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB.  IF ALARM CONDITION IS
018096,001730:                                                                                                  #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
018097,001731:                                                                                                  #  TO EXECUTE OF ORIGINAL LOAD VERB.  RECYCLE CAUSED BY          1) DECIMAL MACHINE
018098,001732:                                                                                                  #  CADR          2) MIXTURE OF OCTAL/DECIMAL DATA        3) OCTAL DATA INTO DECIMAL
018099,001733:                                                                                                  #  ONLY NOUN     4) DEC DATA INTO OCT ONLY NOUN          5) DATA TOO LARGE FOR SCALE
018100,001734:                                                                                                  #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
018101,001735:                                                                                                  #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
018102,001736:                                                                                                  #  ENTER OF CADR.
018103,001737: 
018104,001738: 41,2622                                           SETLOC   ENDRTOUT                              
018105,001739: 
018106,001740: 41,2622                                           COUNT*   $$/PIN                                
018107,001741: 41,2622           44752        ABCLOAD            CS       TWO                                   
018108,001742: 41,2623           02426                           TC       COMPTEST                              
018109,001743: 41,2624           02462                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
018110,001744: 41,2625           33031                           CAF      VBSP1LD                               
018111,001745: 41,2626           02341                           TC       UPDATVB    -1                         
018112,001746: 41,2627           02305                           TC       REQDATX                               
018113,001747: 41,2630           33032                           CAF      VBSP2LD                               
018114,001748: 41,2631           02341                           TC       UPDATVB    -1                         
018115,001749: 41,2632           02307                           TC       REQDATY                               
018116,001750: 41,2633           33033                           CAF      VBSP3LD                               
018117,001751: 41,2634           02341                           TC       UPDATVB    -1                         
018118,001752: 41,2635           02311                           TC       REQDATZ                               
018119,001753: 
018120,001754: 41,2636           46245        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
018121,001755: 41,2637           03034                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
018122,001756: 41,2640           00006                           EXTEND                                         
018123,001757: 41,2641           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018124,001758: 41,2642           52006                           DXCH     Z                                     #  ROUTINE.
018125,001759: 41,2643           34755                           CAF      ZERO                                  #  X COMP
018126,001760: 41,2644           03120                           TC       PUTCOM                                
018127,001761: 41,2645           50145                           INDEX    NOUNADD                               
018128,001762: 41,2646           54000                           TS       0                                     
018129,001763: 41,2647           34753                           CAF      ONE                                   #  Y COMP
018130,001764: 41,2650           03120                           TC       PUTCOM                                
018131,001765: 41,2651           50145                           INDEX    NOUNADD                               
018132,001766: 41,2652           54001                           TS       1                                     
018133,001767: 41,2653           34752                           CAF      TWO                                   #  Z COMP
018134,001768: 41,2654           03120                           TC       PUTCOM                                
018135,001769: 41,2655           50145                           INDEX    NOUNADD                               
018136,001770: 41,2656           54002                           TS       2                                     
018137,001771: 41,2657           44757                           CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
018138,001772: 41,2660           61001                           AD       NOUNREG                               #  FLAG BITS AS SPECIFIED.
018139,001773: 41,2661           00006                           EXTEND                                         
018140,001774: 41,2662           12664                           BZF      +2                                    
018141,001775: 41,2663           03020                           TC       LOADLV                                

Page 429

018143,001777: 41,2664           00004                           INHINT                                         
018144,001778: 41,2665           44763                           CS       OCT30                                 #  IS IT A CHANNEL (30 OR UNDER)
018145,001779: 41,2666           61002                           AD       XREG                                  
018146,001780: 41,2667           00006                           EXTEND                                         
018147,001781: 41,2670           62700                           BZMF     CHANBITS                              #  YES
018148,001782: 
018149,001783: 41,2671           31002                           CA       XREG                                  #  ECADR OF ERASABLE CELL
018150,001784: 41,2672           04304                           TC       SETNCADR   +1                         #  SET EBANK, NOUNADD
018151,001785: 
018152,001786: 41,2673           50145                           INDEX    NOUNADD                               
018153,001787: 41,2674           30000                           CA       0                                     
018154,001788: 41,2675           54001                           TS       L                                     
018155,001789: 41,2676           34753                           CAF      ONE                                   
018156,001790: 41,2677           55002                           TS       XREG                                  #  MAKE IT LOOK LIKE A CHANNEL FOR A WHILE
018157,001791: 
018158,001792: 41,2700           64361        CHANBITS           AD       OCT21                                 
018159,001793: 41,2701           00006                           EXTEND                                         
018160,001794: 41,2702           12724                           BZF      BITSOFF2                              #  DONT TOUCH CHAN7 (SUPERBANK)
018161,001795: 
018162,001796: 41,2703           31004                           CA       ZREG                                  
018163,001797: 41,2704           00006                           EXTEND                                         
018164,001798: 41,2705           62713                           BZMF     BITSOFF                               #  R3 IS ZERO FOR OFF, NONZERO FOR ON
018165,001799: 
018166,001800: 41,2706           31003                           CA       YREG                                  
018167,001801: 41,2707           00006                           EXTEND                                         
018168,001802: 41,2710           51002                           INDEX    XREG                                  
018169,001803: 41,2711           05000                           WOR      0                                     
018170,001804: 41,2712           12717                           TCF      BITSOFF1                              
018171,001805: 
018172,001806: 41,2713           41003        BITSOFF            CS       YREG                                  
018173,001807: 41,2714           00006                           EXTEND                                         
018174,001808: 41,2715           51002                           INDEX    XREG                                  
018175,001809: 41,2716           03000                           WAND     0                                     
018176,001810: 
018177,001811: 41,2717           11002        BITSOFF1           CCS      XREG                                  #  WAS IT REALLY A CHANNEL
018178,001812: 41,2720           10000                           CCS      A                                     
018179,001813: 41,2721           12724                           TCF      BITSOFF2                              #  YES
018180,001814: 
018181,001815: 41,2722           50145                           INDEX    NOUNADD                               
018182,001816: 41,2723           22000                           LXCH     0                                     
018183,001817: 
018184,001818: 41,2724           00003        BITSOFF2           RELINT                                         
018185,001819: 41,2725           03020                           TC       LOADLV                                
018186,001820: 
018187,001821: 41,2726     4763               OCT30              =        BITS4&5                               
018188,001822: 41,2726           44753        ABLOAD             CS       ONE                                   
018189,001823: 41,2727           02426                           TC       COMPTEST                              
018190,001824: 41,2730           02462                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
018191,001825: 41,2731           33031                           CAF      VBSP1LD                               
018192,001826: 41,2732           02341                           TC       UPDATVB    -1                         

Page 430

018194,001828: 41,2733           02305                           TC       REQDATX                               
018195,001829: 41,2734           33032                           CAF      VBSP2LD                               
018196,001830: 41,2735           02341                           TC       UPDATVB    -1                         
018197,001831: 41,2736           02307                           TC       REQDATY                               
018198,001832: 41,2737           44756        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
018199,001833: 41,2740           03034                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
018200,001834: 41,2741           00006                           EXTEND                                         
018201,001835: 41,2742           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018202,001836: 41,2743           52006                           DXCH     Z                                     #  ROUTINE.
018203,001837: 41,2744           34755                           CAF      ZERO                                  #  X COMP
018204,001838: 41,2745           03120                           TC       PUTCOM                                
018205,001839: 41,2746           50145                           INDEX    NOUNADD                               
018206,001840: 41,2747           54000                           TS       0                                     
018207,001841: 41,2750           34753                           CAF      ONE                                   #  Y COMP
018208,001842: 41,2751           03120                           TC       PUTCOM                                
018209,001843: 41,2752           50145                           INDEX    NOUNADD                               
018210,001844: 41,2753           54001                           TS       1                                     
018211,001845: 41,2754           03020                           TC       LOADLV                                
018212,001846: 
018213,001847: 41,2755           02305        ALOAD              TC       REQDATX                               
018214,001848: 41,2756           00006                           EXTEND                                         
018215,001849: 41,2757           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018216,001850: 41,2760           52006                           DXCH     Z                                     #  ROUTINE.
018217,001851: 41,2761           34755                           CAF      ZERO                                  #  X COMP
018218,001852: 41,2762           03120                           TC       PUTCOM                                
018219,001853: 41,2763           50145                           INDEX    NOUNADD                               
018220,001854: 41,2764           54000                           TS       0                                     
018221,001855: 41,2765           03020                           TC       LOADLV                                
018222,001856: 
018223,001857: 41,2766           44753        BLOAD              CS       ONE                                   
018224,001858: 41,2767           02426                           TC       COMPTEST                              
018225,001859: 41,2770           34735                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018226,001860: 41,2771           55014                           TS       CLPASS                                
018227,001861: 41,2772           02307                           TC       REQDATY                               
018228,001862: 41,2773           00006                           EXTEND                                         
018229,001863: 41,2774           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018230,001864: 41,2775           52006                           DXCH     Z                                     #  ROUTINE.
018231,001865: 41,2776           34753                           CAF      ONE                                   
018232,001866: 41,2777           03120                           TC       PUTCOM                                
018233,001867: 41,3000           50145                           INDEX    NOUNADD                               
018234,001868: 41,3001           54001                           TS       1                                     
018235,001869: 41,3002           03020                           TC       LOADLV                                
018236,001870: 
018237,001871: 41,3003           44752        CLOAD              CS       TWO                                   
018238,001872: 41,3004           02426                           TC       COMPTEST                              
018239,001873: 41,3005           34735                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018240,001874: 41,3006           55014                           TS       CLPASS                                
018241,001875: 41,3007           02311                           TC       REQDATZ                               
018242,001876: 41,3010           00006                           EXTEND                                         
018243,001877: 41,3011           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING

Page 431

018245,001879: 41,3012           52006                           DXCH     Z                                     #  ROUTINE.
018246,001880: 41,3013           34752                           CAF      TWO                                   
018247,001881: 41,3014           03120                           TC       PUTCOM                                
018248,001882: 41,3015           50145                           INDEX    NOUNADD                               
018249,001883: 41,3016           54002                           TS       2                                     
018250,001884: 41,3017           03020                           TC       LOADLV                                
018251,001885: 
018252,001886: 41,3020           34755        LOADLV             CAF      ZERO                                  
018253,001887: 41,3021           54777                           TS       DECBRNCH                              
018254,001888: 41,3022           44755                           CS       ZERO                                  
018255,001889: 41,3023           55013                           TS       LOADSTAT                              
018256,001890: 41,3024           04457                           TC       RELDSP                                #  RELEASE FOR PRIORITY DISPLAY PROBLEM.
018257,001891: 41,3025           44360                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
018258,001892: 41,3026           54776                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
018259,001893: 41,3027           04635                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
018260,001894: 41,3030           61612                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
018261,001895: 
018262,001896: 41,3031           00025        VBSP1LD            DEC      21         B-14                       #  VB21 = ALOAD
018263,001897: 41,3032           00026        VBSP2LD            DEC      22         B-14                       #  VB22 = BLOAD
018264,001898: 41,3033           00027        VBSP3LD            DEC      23         B-14                       #  VB23 = CLOAD
018265,001899: 
018266,001900: 41,3034           54117        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
018267,001901: 41,3035           40777                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT.  ALARMS IF NOT.
018268,001902: 41,3036           54021                           TS       SR                                    
018269,001903: 41,3037           40021                           CS       SR                                    
018270,001904: 41,3040           40021                           CS       SR                                    #  SHIFTED RIGHT 2
018271,001905: 41,3041           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
018272,001906: 41,3042           13044                           TCF      +2                                    #  SOME ONES IN LOW 3
018273,001907: 41,3043           00002                           TC       Q                                     #  ALL ZEROS.  ALL OCTAL.   OK
018274,001908: 41,3044           60117                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
018275,001909: 41,3045           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
018276,001910: 41,3046           13050                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
018277,001911: 41,3047           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
018278,001912: 41,3050           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC.  OK
018279,001913: 
018280,001914: 41,3051           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
018281,001915: 41,3052           54114                           TS       EXITEM                                #  CANT USE L FOR RETURN.  TSTFORDP USES L.
018282,001916: 41,3053           34347                           CAF      MID5                                  
018283,001917: 41,3054           70147                           MASK     NNTYPTEM                              
018284,001918: 41,3055           04322                           TC       RIGHT5                                
018285,001919: 41,3056           00114                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
018286,001920: 
018287,001921: 41,3057           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
018288,001922: 41,3060           54114                           TS       EXITEM                                
018289,001923: 41,3061           50117                           INDEX    DECOUNT                               
018290,001924: 41,3062           33111                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
018291,001925: 41,3063           54001                           TS       L                                     
018292,001926: 41,3064           50117                           INDEX    DECOUNT                               

Page 432

018294,001928: 41,3065           34346                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
018295,001929: 41,3066           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
018296,001930: 41,3067           50001                           INDEX    L                                     
018297,001931: 41,3070           00000                           TC       0                                     
018298,001932: 
018299,001933:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
018300,001934: 
018301,001935: 41,3071           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
018302,001936: 
018303,001937: 41,3072           56002        SFCONUM            XCH      Q                                     #  GETS 2X(SF CONSTANT NUMBER)
018304,001938: 41,3073           54114                           TS       EXITEM                                
018305,001939: 41,3074           50140                           INDEX    MIXBR                                 
018306,001940: 41,3075           03075                           TC       +0                                    
018307,001941: 41,3076           03114                           TC       CONUMNOR                              #  NORMAL NOUN
018308,001942: 41,3077           50117                           INDEX    DECOUNT                               #  MIXED NOUN
018309,001943: 41,3100           33111                           CAF      DISPLACE                              
018310,001944: 41,3101           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
018311,001945: 41,3102           50117                           INDEX    DECOUNT                               
018312,001946: 41,3103           34346                           CAF      LOW5                                  
018313,001947: 41,3104           70147                           MASK     NNTYPTEM                              
018314,001948: 41,3105           50001                           INDEX    L                                     
018315,001949: 41,3106           00000                           TC       0                                     
018316,001950: 
018317,001951:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
018318,001952: 
018319,001953: 41,3107           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER) IN A
018320,001954: 41,3110           00114                           TC       EXITEM                                
018321,001955: 
018322,001956: 41,3111           03050        DISPLACE           TC       GOQ                                   
018323,001957: 41,3112           04322                           TC       RIGHT5                                
018324,001958: 41,3113           04331                           TC       LEFT5                                 
018325,001959: 
018326,001960: 41,3114           34346        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW5 OF
018327,001961: 41,3115           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
018328,001962: 41,3116           60000                           DOUBLE                                         
018329,001963: 41,3117           00114                           TC       EXITEM                                #  2X(SF CONSTANT NUMBER) IN A
018330,001964: 
018331,001965: 41,3120           54117        PUTCOM             TS       DECOUNT                               
018332,001966: 41,3121           56002                           XCH      Q                                     
018333,001967: 41,3122           54115                           TS       DECRET                                
018334,001968: 41,3123           34755                           CAF      ZERO                                  
018335,001969: 41,3124           54162                           TS       MPAC+6                                
018336,001970: 41,3125           50117                           INDEX    DECOUNT                               
018337,001971: 41,3126           57005                           XCH      XREGLP                                
018338,001972: 41,3127           54155                           TS       MPAC       +1                         
018339,001973: 41,3130           50117                           INDEX    DECOUNT                               
018340,001974: 41,3131           57002                           XCH      XREG                                  
018341,001975: 41,3132           54154                           TS       MPAC                                  
018342,001976: 41,3133           50140                           INDEX    MIXBR                                 
018343,001977: 41,3134           03134                           TC       +0                                    
018344,001978: 41,3135           03162                           TC       PUTNORM                               #  NORMAL NOUN
018345,001979: 
018346,001980:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
018347,001981: 
018348,001982: 41,3136           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K

Page 433

018350,001984: 41,3137           30150                           CA       IDAD1TEM                              #        OF NOUN.
018351,001985: 41,3140           74356                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
018352,001986: 41,3141           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR.  SETS EB, NOUNADD.
018353,001987: 41,3142           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
018354,001988: 41,3143           60117                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
018355,001989: 41,3144           54145                           TS       NOUNADD                               
018356,001990: 41,3145           10777                           CCS      DECBRNCH                              
018357,001991: 41,3146           03217                           TC       PUTDECSF                              #  + DEC
018358,001992: 41,3147           02454                           TC       DCTSTCYC                              #  +0 OCTAL
018359,001993: 41,3150           03057                           TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1.  IF SO,
018360,001994: 41,3151           02261                           TC       DPTEST                                #  ALARM AND RECYCLE.  IF NOT, CONTINUE.
018361,001995: 41,3152           03200                           TC       PUTCOM2                               #  NO DP
018362,001996:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD.  IF SO,
018363,001997:                                                                                                  #  +0 INTO MAJOR PART.  SET NOUNADD FOR
018364,001998:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
018365,001999: 41,3153           24145        PUTDPCOM           INCR     NOUNADD                               #  DP (ESUBK)-K+1 OR E+1
018366,002000: 41,3154           30145                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
018367,002001: 41,3155           26117                           ADS      DECOUNT                               #  (ESUBK)+1 OR E+1 INTO DECOUNT
018368,002002: 41,3156           34755                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
018369,002003: 41,3157           50117                           INDEX    DECOUNT                               
018370,002004: 41,3160           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
018371,002005: 41,3161           03200                           TC       PUTCOM2                               
018372,002006: 
018373,002007: 41,3162           04311        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR.  SETS EB, NOUNADD.
018374,002008: 41,3163           10777                           CCS      DECBRNCH                              
018375,002009: 41,3164           03217                           TC       PUTDECSF                              #  + DEC
018376,002010: 41,3165           02454                           TC       DCTSTCYC                              #  +0 OCTAL
018377,002011: 41,3166           03051                           TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1.  IF SO,
018378,002012: 41,3167           02261                           TC       DPTEST                                #  ALARM AND RECYCLE.  IF NOT, CONTINUE.
018379,002013: 41,3170           03174                           TC       PUTCOM2    -4                         #  NO DP
018380,002014: 41,3171           34755                           CAF      ZERO                                  #  DP
018381,002015: 41,3172           54117                           TS       DECOUNT                               
018382,002016: 41,3173           03153                           TC       PUTDPCOM                              
018383,002017: 
018384,002018: 41,3174           30146                           CA       NNADTEM                               
018385,002019: 41,3175           64753                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
018386,002020: 41,3176           00006                           EXTEND                                         
018387,002021: 41,3177           13204                           BZF      CHANLOAD                              
018388,002022: 41,3200           56154        PUTCOM2            XCH      MPAC                                  
018389,002023: 41,3201           00115                           TC       DECRET                                
018390,002024: 
018391,002025: 41,3202     0776                                  EBANK=   DSPCOUNT                              
018392,002026: 41,3202           02147 64101  GTSFINLC           2CADR    GTSFIN                                
018393,002027: 
018394,002028: 41,3204           44757        CHANLOAD           CS       SEVEN                                 #  DONT LOAD CHAN 7.  (IT = SUPERBANK).
018395,002029: 41,3205           61016                           AD       NOUNCADR                              
018396,002030: 41,3206           00006                           EXTEND                                         
018397,002031: 41,3207           13020                           BZF      LOADLV                                

Page 434

018399,002033: 41,3210           31016                           CA       NOUNCADR                              
018400,002034: 41,3211           75004                           MASK     LOW9                                  
018401,002035: 41,3212           56154                           XCH      MPAC                                  
018402,002036: 41,3213           00006                           EXTEND                                         
018403,002037: 41,3214           50154                           INDEX    MPAC                                  
018404,002038: 41,3215           01000                           WRITE    0                                     
018405,002039: 41,3216           03020                           TC       LOADLV                                
018406,002040: 
018407,002041:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
018408,002042: 
018409,002043: 41,3217           03072        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
018410,002044: 41,3220           54123                           TS       SFTEMP1                               
018411,002045: 41,3221           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
018412,002046: 41,3222           33203                           DCA      GTSFINLC                              #  READING ROUTINE.
018413,002047: 41,3223           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
018414,002048: 41,3224           50140                           INDEX    MIXBR                                 
018415,002049: 41,3225           03225                           TC       +0                                    
018416,002050: 41,3226           03231                           TC       PUTSFNOR                              
018417,002051: 41,3227           03057                           TC       SFRUTMIX                              
018418,002052: 41,3230           03232                           TC       PUTDCSF2                              
018419,002053: 41,3231           03051        PUTSFNOR           TC       SFRUTNOR                              
018420,002054: 
018421,002055: 41,3232           50000        PUTDCSF2           INDEX    A                                     
018422,002056: 41,3233           33235                           CAF      SFINTABR                              
018423,002057: 41,3234           04640                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
018424,002058: 41,3235           62352        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
018425,002059:                                                                                                  #  WITH OCTAL ONLY NOUN.
018426,002060: 41,3236           61142                           CADR     BINROUND                              
018427,002061: 41,3237           61044                           CADR     DEGINSF                               
018428,002062: 41,3240           61132                           CADR     ARTHINSF                              
018429,002063: 41,3241           61150                           CADR     DPINSF                                
018430,002064: 41,3242           61175                           CADR     DPINSF2                               
018431,002065: 41,3243           61454                           CADR     DSPALARM                              #  LRPOSOUT CANT BE LOADED.
018432,002066: 41,3244           61150                           CADR     DPINSF                                #  SAME AS ARITHDP1
018433,002067: 41,3245           65452                           CADR     HMSIN                                 
018434,002068: 41,3246           61454                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
018435,002069: 41,3247           61202                           CADR     DPINSF4                               
018436,002070: 41,3250           61145                           CADR     ARTIN1SF                              
018437,002071: 41,3251           61454                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
018438,002072: 41,3252           61044                           CADR     DEGINSF                               #  TESTS AT END FOR 360-CDU
018439,002073: 41,3253           61454                           CADR     DSPALARM                              #  RRANGOUT CANT BE LOADED.
018440,002074: 41,3254           61454                           CADR     DSPALARM                              #  RRDOTOUT CANT BE LOADED.
018441,002075: 41,3255                        ENDRUTIN           EQUALS                                         
018442,002076: 
018443,002077:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
018444,002078:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1.  LEAVE RESULT IN A.  END WITH TC DECRET

Page 435

018446,002080: 
018447,002081: 40,3044                                           SETLOC   ENDDPDEC   +1                         
018448,002082: 
018449,002083: 40,3044                                           COUNT*   $$/PIN                                
018450,002084:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
018451,002085: 
018452,002086: 40,3044           07106        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
018453,002087: 40,3045           03130                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
018454,002088: 40,3046           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
018455,002089: 40,3047           34741                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
018456,002090: 40,3050           03052                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
018457,002091: 40,3051           44741                           CS       BIT11                                 
018458,002092: 40,3052           60155                           AD       MPAC       +1                         
018459,002093: 40,3053           03221                           TC       2ROUND     +2                         
018460,002094: 40,3054           04404                           TC       TPSL1                                 #  LEFT 1
018461,002095: 40,3055           04404        DEGINSF2           TC       TPSL1                                 #  LEFT 2
018462,002096: 40,3056           03230                           TC       TESTOFUF                              
018463,002097: 40,3057           04404                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
018464,002098: 40,3060           10154                           CCS      MPAC                                  
018465,002099: 40,3061           03065                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
018466,002100: 40,3062           03065                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
018467,002101: 40,3063           40000                           COM                                            #  IF -, USE -MAGNITUDE +1
018468,002102: 40,3064           54154                           TS       MPAC                                  #  IF -0, USE +0
018469,002103: 40,3065           10162        SIGNFIX            CCS      MPAC+6                                
018470,002104: 40,3066           03124                           TC       SGNTO1                                #  IF OVERFLOW
018471,002105: 40,3067           03077                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
018472,002106: 40,3070           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
018473,002107: 40,3071           05675                           TC       CCSHOLE                               
018474,002108: 40,3072           03122                           TC       NEG180                                
018475,002109: 40,3073           03074                           TC       +1                                    
018476,002110: 40,3074           56154                           XCH      MPAC                                  
018477,002111: 40,3075           74733                           MASK     POSMAX                                
018478,002112: 40,3076           54154                           TS       MPAC                                  
018479,002113: 40,3077           50140        ENDSCALE           INDEX    MIXBR                                 #  IF ROUTINE NO. IS NOT CDU DEGREES,
018480,002114: 40,3100           03100                           TC       +0                                    #  THEN THIS IS 360 - CDU DEGREES
018481,002115: 40,3101           03104                           TC       +3                                    #  AND ANGLE IN MPAC MUST BE REPLACED
018482,002116: 40,3102           03114                           TC       SFMIXCAL                              #  BY 360 DEGREES MINUS ITSELF.
018483,002117: 40,3103           03105        MIXBACK            TC       +2                                    
018484,002118: 40,3104           03117                           TC       SFNORCAL                              
018485,002119: 40,3105           40000        NORBACK            CS       A                                     
018486,002120: 40,3106           64752                           AD       BIT2                                  
018487,002121: 40,3107           00006                           EXTEND                                         
018488,002122: 40,3110           13112                           BZF      +2                                    
018489,002123: 40,3111           02625                           TC       360-CDU                               
018490,002124: 40,3112           04635        ENDSCAL1           TC       POSTJUMP                              
018491,002125: 40,3113           63200                           CADR     PUTCOM2                               
018492,002126: 
018493,002127: 40,3114           04616        SFMIXCAL           TC       BANKCALL                              
018494,002128: 40,3115           63057                           CADR     SFRUTMIX                              
018495,002129: 40,3116           03103                           TC       MIXBACK                               

Page 436

018497,002131: 40,3117           04616        SFNORCAL           TC       BANKCALL                              
018498,002132: 40,3120           63051                           CADR     SFRUTNOR                              
018499,002133: 40,3121           03105                           TC       NORBACK                               
018500,002134: 
018501,002135: 40,3122           44733        NEG180             CS       POSMAX                                
018502,002136: 40,3123           03076                           TC       ENDSCALE   -1                         
018503,002137: 
018504,002138: 40,3124           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
018505,002139: 40,3125           74733                           MASK     POSMAX                                
018506,002140: 40,3126           40000                           CS       A                                     
018507,002141: 40,3127           03076                           TC       ENDSCALE   -1                         
018508,002142: 
018509,002143: 40,3130           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
018510,002144: 
018511,002145: 40,3132           07106        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
018512,002146: 40,3133           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
018513,002147: 40,3134           56156                           XCH      MPAC       +2                         #  OF SFCON.  SHIFTS RESULTS LEFT BY 14.
018514,002148: 40,3135           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
018515,002149: 40,3136           56154                           XCH      MPAC                                  
018516,002150: 40,3137           00006                           EXTEND                                         
018517,002151: 40,3140           13142                           BZF      BINROUND                              
018518,002152: 40,3141           04145                           TC       ALMCYCLE                              #  TOO LARGE A LOAD.  ALARM AND RECYCLE.
018519,002153: 40,3142           03217        BINROUND           TC       2ROUND                                
018520,002154: 40,3143           03230                           TC       TESTOFUF                              
018521,002155: 40,3144           03112                           TC       ENDSCAL1                              #  RETURNS IF NO OF/UF
018522,002156: 
018523,002157: 40,3145           07106        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
018524,002158: 40,3146           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
018525,002159: 40,3147           03142                           TC       BINROUND                              
018526,002160: 
018527,002161: 40,3150           07106        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
018528,002162: 40,3151           00123                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
018529,002163: 40,3152           56156                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
018530,002164: 40,3153           60000                           DOUBLE                                         
018531,002165: 40,3154           54156                           TS       MPAC       +2                         
018532,002166: 40,3155           34755                           CAF      ZERO                                  
018533,002167: 40,3156           60155                           AD       MPAC       +1                         
018534,002168: 40,3157           03221                           TC       2ROUND     +2                         
018535,002169: 40,3160           03230                           TC       TESTOFUF                              
018536,002170: 40,3161           50140                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
018537,002171: 40,3162           03162                           TC       +0                                    
018538,002172: 40,3163           03173                           TC       DPINORM                               
018539,002173: 40,3164           30117                           CA       DECOUNT                               #  MIXED NOUN
018540,002174: 40,3165           60145        DPINCOM            AD       NOUNADD                               #        MIXED           NORMAL
018541,002175: 40,3166           54002                           TS       Q                                     #        E SUBK          E
018542,002176: 40,3167           56155                           XCH      MPAC       +1                         
018543,002177: 40,3170           50002                           INDEX    Q                                     
018544,002178: 40,3171           54001                           TS       1                                     #  PLACE LOW PART IN

Page 437

018546,002180: 40,3172           03112                           TC       ENDSCAL1                              #        (E SUBK) +1     MIXED
018547,002181: 
018548,002182: 40,3173           34755        DPINORM            CAF      ZERO                                  #        E +1            NORMAL
018549,002183: 40,3174           03165                           TC       DPINCOM                               
018550,002184: 
018551,002185: 40,3175           07106        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
018552,002186: 40,3176           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST.  DPINSF2 SHIFTS RESULTS
018553,002187: 40,3177           36245                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
018554,002188: 40,3200           03207                           TC       TPLEFTN                               #  SHIFT LEFT 7.
018555,002189: 40,3201           03152                           TC       DPINSF     +2                         
018556,002190: 
018557,002191: 40,3202           07106        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
018558,002192: 40,3203           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST.  DPINSF2 SHIFTS RESULTS
018559,002193: 40,3204           34752                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
018560,002194: 40,3205           03207                           TC       TPLEFTN                               #  SHIFT LEFT 3.
018561,002195: 40,3206           03152                           TC       DPINSF     +2                         
018562,002196: 
018563,002197: 40,3207           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N.  SETS OVFIND
018564,002198: 40,3210           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
018565,002199: 40,3211           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
018566,002200: 40,3212           54123        LEFTNCOM           TS       SFTEMP1                               #        LOOP TIME .37 MSEC.
018567,002201: 40,3213           04404                           TC       TPSL1                                 
018568,002202: 40,3214           10123                           CCS      SFTEMP1                               
018569,002203: 40,3215           03212                           TC       LEFTNCOM                              
018570,002204: 40,3216           00124                           TC       SFTEMP2                               
018571,002205: 
018572,002206: 40,3217           56155        2ROUND             XCH      MPAC       +1                         
018573,002207: 40,3220           60000                           DOUBLE                                         
018574,002208: 40,3221           54155                           TS       MPAC       +1                         
018575,002209: 40,3222           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
018576,002210: 40,3223           60154                           AD       MPAC                                  
018577,002211: 40,3224           54154                           TS       MPAC                                  
018578,002212: 40,3225           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
018579,002213: 40,3226           54162                           TS       MPAC+6                                
018580,002214: 40,3227           00002        2RNDEND            TC       Q                                     
018581,002215: 
018582,002216: 40,3230           10162        TESTOFUF           CCS      MPAC+6                                #  RETURNS IF NO OF/UF
018583,002217: 40,3231           04145                           TC       ALMCYCLE                              #  OF    ALARM AND RECYCLE.
018584,002218: 40,3232           00002                           TC       Q                                     
018585,002219: 40,3233           04145                           TC       ALMCYCLE                              #  UF    ALARM AND RECYCLE.
018586,002220: 
018587,002221: 42,3452                                           SETLOC   ENDSPMIN   +1                         
018588,002222: 
018589,002223: 42,3452                                           COUNT*   $$/PIN                                

Page 438

018591,002225: 42,3452           03573        HMSIN              TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
018592,002226: 42,3453           07106                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
018593,002227: 42,3454           03534                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
018594,002228: 42,3455           03543                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
018595,002229: 42,3456           34755                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383).
018596,002230: 42,3457           54156                           TS       MPAC       +2                         
018597,002231: 42,3460           33536                           CAF      HRCON                                 
018598,002232: 42,3461           54154                           TS       MPAC                                  
018599,002233: 42,3462           33537                           CAF      HRCON      +1                         
018600,002234: 42,3463           56155                           XCH      MPAC       +1                         
018601,002235: 42,3464           07312                           TC       SHORTMP                               
018602,002236: 42,3465           03554                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
018603,002237: 42,3466           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
018604,002238: 42,3467           52124                           DXCH     HITEMIN                               
018605,002239: 42,3470           31003                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
018606,002240: 42,3471           23006                           LXCH     YREGLP                                
018607,002241: 42,3472           52155                           DXCH     MPAC                                  
018608,002242: 42,3473           07106                           TC       DMP                                   
018609,002243: 42,3474           03534                           ADRES    WHOLECON                              
018610,002244: 42,3475           03543                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
018611,002245: 42,3476           43541                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
018612,002246: 42,3477           03561                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
018613,002247: 42,3500           56155                           XCH      MPAC       +1                         
018614,002248: 42,3501           00006                           EXTEND                                         
018615,002249: 42,3502           73540                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
018616,002250: 42,3503           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
018617,002251: 42,3504           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745 HR, 39MIN
018618,002252: 42,3505           13507                           BZF      +2                                    
018619,002253: 42,3506           04145                           TC       ALMCYCLE                              
018620,002254: 42,3507           31004                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
018621,002255: 42,3510           23007                           LXCH     ZREGLP                                
018622,002256: 42,3511           52155                           DXCH     MPAC                                  
018623,002257: 42,3512           07106                           TC       DMP                                   
018624,002258: 42,3513           03534                           ADRES    WHOLECON                              
018625,002259: 42,3514           03543                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
018626,002260: 42,3515           43542                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
018627,002261: 42,3516           03561                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
018628,002262: 42,3517           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
018629,002263: 42,3520           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
018630,002264: 42,3521           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
018631,002265: 42,3522           13524                           BZF      +2                                    
018632,002266: 42,3523           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
018633,002267: 42,3524           34755                           CAF      ZERO                                  
018634,002268: 42,3525           54156                           TS       MPAC       +2                         
018635,002269: 42,3526           07262                           TC       TPAGREE                               
018636,002270: 42,3527           52155                           DXCH     MPAC                                  
018637,002271: 42,3530           50145                           INDEX    NOUNADD                               
018638,002272: 42,3531           52001                           DXCH     0                                     
018639,002273: 42,3532           04635                           TC       POSTJUMP                              
018640,002274: 42,3533           63020                           CADR     LOADLV                                
018641,002275: 

Page 439

018643,002277: 42,3534           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
018644,002278: 42,3535           03240                           OCT      03240                                 
018645,002279: 42,3536           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
018646,002280: 42,3537           37100                           OCT      37100                                 
018647,002281: 42,3540           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
018648,002282: 42,3541           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
018649,002283: 42,3542           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
018650,002284: 
018651,002285: 42,3543           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
018652,002286: 42,3544           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
018653,002287: 42,3545           54156                           TS       MPAC       +2                         
018654,002288: 42,3546           34755                           CAF      ZERO                                  
018655,002289: 42,3547           60155                           AD       MPAC       +1                         
018656,002290: 42,3550           54155                           TS       MPAC       +1                         
018657,002291: 42,3551           34755                           CAF      ZERO                                  
018658,002292: 42,3552           60154                           AD       MPAC                                  #  CANT OVFLOW
018659,002293: 42,3553           56154                           XCH      MPAC                                  
018660,002294: 42,3554           10154        MPACTST            CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
018661,002295: 42,3555           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
018662,002296: 42,3556           00002                           TC       Q                                     
018663,002297: 42,3557           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
018664,002298: 42,3560           00002                           TC       Q                                     
018665,002299: 
018666,002300: 42,3561           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
018667,002301: 42,3562           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1
018668,002302: 42,3563           64753                           AD       ONE                                   
018669,002303: 42,3564           13566                           TCF      +2                                    
018670,002304: 42,3565           64753                           AD       ONE                                   
018671,002305: 42,3566           60156                           AD       MPAC       +2                         
018672,002306: 42,3567           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
018673,002307: 42,3570           63572                           BZMF     +2                                    
018674,002308: 42,3571           04145                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON.  ALARM AND RECYCLE.
018675,002309: 42,3572           00002                           TC       Q                                     #  MAG OF MPAC+1 L/= CON
018676,002310: 
018677,002311:                                                                                                  #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
018678,002312:                                                                                                  #  ALARM IF NOT.  (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
018679,002313: 
018680,002314: 42,3573           43600        ALL3DEC            CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
018681,002315: 42,3574           70777                           MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
018682,002316: 42,3575           63600                           AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
018683,002317: 42,3576           10000                           CCS      A                                     
018684,002318: 42,3577           03603                           TC       FORCEV25                              
018685,002319: 42,3600           77743        OCT34BAR           OCT      77743                                 
018686,002320: 42,3601           03603                           TC       FORCEV25                              
018687,002321: 42,3602           00002                           TC       Q                                     
018688,002322: 
018689,002323: 42,3603           46010        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
018690,002324: 42,3604           55040                           TS       VERBSAVE                              #  IN CASE OPERATOR EXECUTED A LOWER LOAD

Page 440

018692,002326: 42,3605           04145                           TC       ALMCYCLE                              #  VERB.  ALARM AND RECYCLE.
018693,002327: 42,3606                        ENDHMSS            EQUALS                                         
018694,002328: 

Page 441

018696,002330:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY.  IT IS ENDED BY VERB TERMINATE,
018697,002331:                                                                                                  #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
018698,002332:                                                                                                  #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
018699,002333:                                                                                                  #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
018700,002334:                                                                                                  #  HE HAS INITIATED THROUGH THE KEYBOARD).
018701,002335: 
018702,002336:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
018703,002337:                                                                                                  #  EXCEPT ERROR LIGHT RESET.  IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
018704,002338:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE.  IT SAVES
018705,002339:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED.  BIT 15 OF
018706,002340:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).  BIT 14 OF MONSAVE1
018707,002341:                                                                                                  #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
018708,002342:                                                                                                  #  MONITOR BIT).  IT IS TURNED OFF BY RELDSP AND KILMONON.
018709,002343: 
018710,002344:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
018711,002345:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
018712,002346:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
018713,002347: 
018714,002348:                                                                                                  #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
018715,002349:                                                                                                  #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
018716,002350: 
018717,002351:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
018718,002352:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
018719,002353: 
018720,002354:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
018721,002355: 
018722,002356: 41,3255                                           SETLOC   ENDRUTIN                              
018723,002357: 
018724,002358: 41,3255                                           COUNT*   $$/PIN                                
018725,002359: 41,3255           43264        MONITOR            CS       BIT15/14                              
018726,002360: 41,3256           71016                           MASK     NOUNCADR                              
018727,002361: 41,3257           54155        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
018728,002362: 41,3260           40136                           CS       ENTEXIT                               
018729,002363: 41,3261           64217                           AD       ENDINST                               
018730,002364: 41,3262           10000                           CCS      A                                     
018731,002365: 41,3263           03272                           TC       MONIT2                                
018732,002366: 41,3264           60000        BIT15/14           OCT      60000                                 
018733,002367: 41,3265           03272                           TC       MONIT2                                
018734,002368: 41,3266           34736                           CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
018735,002369: 41,3267           26155                           ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
018736,002370: 41,3270           34755                           CAF      ZERO                                  
018737,002371: 41,3271           55021                           TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
018738,002372: 41,3272           36077        MONIT2             CAF      LOW7                                  
018739,002373: 41,3273           71000                           MASK     VERBREG                               
018740,002374: 41,3274           04331                           TC       LEFT5                                 
018741,002375: 41,3275           54022                           TS       CYL                                   
018742,002376: 41,3276           40022                           CS       CYL                                   
018743,002377: 41,3277           56022                           XCH      CYL                                   
018744,002378: 41,3300           61001                           AD       NOUNREG                               
018745,002379: 41,3301           54154                           TS       MPAC                                  #  TEMP STORAGE
018746,002380: 41,3302           34755                           CAF      ZERO                                  

Page 442

018748,002382: 41,3303           55011                           TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
018749,002383: 41,3304           11041                           CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
018750,002384: 41,3305           03307                           TC       +2                                    #  ARE BOTH EMPTY.  (LITE COMES ON IF NEW
018751,002385: 41,3306           04502                           TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
018752,002386: 41,3307           00004                           INHINT                                         
018753,002387: 41,3310           11017                           CCS      MONSAVE                               
018754,002388: 41,3311           03316                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
018755,002389: 41,3312           34753                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
018756,002390: 41,3313           05203                           TC       WAITLIST                              
018757,002391: 41,3314     0776                                  EBANK=   DSPCOUNT                              
018758,002392: 41,3314           03322 62101                     2CADR    MONREQ                                
018759,002393: 
018760,002394: 41,3316           52155                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
018761,002395: 41,3317           53020                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
018762,002396: 41,3320           00003                           RELINT                                         #  SET UP EXTERNAL MONITOR BIT
018763,002397: 41,3321           00136                           TC       ENTRET                                
018764,002398: 
018765,002399: 41,3322           04400        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
018766,002400: 41,3323           11020                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
018767,002401: 41,3324           03330                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
018768,002402: 41,3325           03330                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
018769,002403: 41,3326           03341                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
018770,002404: 41,3327           03341                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
018771,002405: 41,3330           33345                           CAF      MONDEL                                
018772,002406: 41,3331           05203                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
018773,002407: 41,3332     0776                                  EBANK=   DSPCOUNT                              
018774,002408: 41,3332           03322 62101                     2CADR    MONREQ                                
018775,002409: 
018776,002410: 41,3334           34355                           CAF      CHRPRIO                               
018777,002411: 41,3335           05072                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
018778,002412: 41,3336     0776                                  EBANK=   DSPCOUNT                              
018779,002413: 41,3336           03346 62101                     2CADR    MONDO                                 
018780,002414: 
018781,002415: 41,3340           05261                           TC       TASKOVER                              
018782,002416: 
018783,002417: 41,3341           34755        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
018784,002418: 41,3342           55017                           TS       MONSAVE                               
018785,002419: 41,3343           55020                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
018786,002420: 41,3344           05261                           TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
018787,002421: 41,3345           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
018788,002422: 
018789,002423: 41,3346           11020        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
018790,002424: 41,3347           03353                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
018791,002425: 41,3350           03353                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
018792,002426: 41,3351           05155                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
018793,002427: 41,3352           05155                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
018794,002428: 41,3353           11011                           CCS      DSPLOCK                               
018795,002429: 41,3354           03376                           TC       MONBUSY                               #  NVSUB IS BUSY

Page 443

018797,002431: 41,3355           36077                           CAF      LOW7                                  
018798,002432: 41,3356           71017                           MASK     MONSAVE                               
018799,002433: 41,3357           02321                           TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
018800,002434: 41,3360           34144                           CAF      MID7                                  
018801,002435: 41,3361           71017                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
018802,002436: 41,3362           63374                           AD       MONREF                                #  -DEC10, STARTING IN BIT8
018803,002437: 41,3363           54023                           TS       EDOP                                  #  RIGHT 7
018804,002438: 41,3364           30023                           CA       EDOP                                  
018805,002439: 41,3365           55000                           TS       VERBREG                               
018806,002440: 41,3366           33375                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
018807,002441: 41,3367           54136                           TS       ENTRET                                
018808,002442: 41,3370           43264                           CS       BIT15/14                              
018809,002443: 41,3371           71020                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2.  INTMCTBS WILL
018810,002444: 41,3372           54156                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
018811,002445: 41,3373           02046        ENDMONDO           TC       TESTNN                                #  EBANK.
018812,002446: 
018813,002447:    4124                                           BLOCK    2                                     
018814,002448: 
018815,002449:    4000                                           SETLOC   FFTAG8                                
018816,002450:    4000                                           BANK                                           
018817,002451: 
018818,002452:    4124                                           COUNT*   $$/PIN                                
018819,002453:    4124           34144        PASTEVB            CAF      MID7                                  
018820,002454:    4125           71021                           MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
018821,002455:    4126           00006                           EXTEND                                         
018822,002456:    4127           14131                           BZF      +2                                    
018823,002457:    4130           04132                           TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
018824,002458:    4131           31017                           CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
018825,002459:    4132           54023        PASTEOPT           TS       EDOP                                  #  RIGHT 7
018826,002460:    4133           30023                           CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
018827,002461:    4134           04616                           TC       BANKCALL                              #        VERBREG AND DISPLAY IT.
018828,002462:    4135           62341                           CADR     UPDATVB    -1                         
018829,002463:    4136           34755                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
018830,002464:    4137           55012                           TS       REQRET                                #        BE EXECUTED BY OPERATOR.
018831,002465:    4140           31021                           CA       MONSAVE2                              
018832,002466:    4141           04255                           TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
018833,002467:    4142           04143                           TC       +1                                    
018834,002468:    4143           05155        ENDPASTE           TC       ENDOFJOB                              
018835,002469: 
018836,002470:    4144           37600        MID7               OCT      37600                                 
018837,002471: 
018838,002472: 41,3374                                           SETLOC   ENDMONDO   +1                         
018839,002473: 41,3374                                           COUNT*   $$/PIN                                
018840,002474: 41,3374           75377        MONREF             OCT      75377                                 #  -DEC10, STARTING IN BIT8
018841,002475: 41,3375           04124        MONBACK            ADRES    PASTEVB                               
018842,002476: 
018843,002477: 41,3376           04374        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
018844,002478: 41,3377           05155                           TC       ENDOFJOB                              

Page 444

018846,002480:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
018847,002481:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED.  THE FCADR OF THE 
018848,002482:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN.  IT HANDLES F/F (FCADR 4000-7777)
018849,002483:                                                                                                  #  
018850,002484:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.
018851,002485: 
018852,002486:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
018853,002487:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
018854,002488:                                                                                                  #        V23N26 SHOULD BE USED.
018855,002489: 
018856,002490:                                                                                                  #  SUMMARY
018857,002491:                                                                                                  #  FOR BANKS L/E 27,                             V27N01E(FCADR)E
018858,002492:                                                                                                  #  FOR BANKS G/E 30,     V23N26E(SUPERBITS)E     V27N01E(FCADR)E
018859,002493: 
018860,002494: 41,3400           34317        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
018861,002495: 41,3401           54776                           TS       DSPCOUNT                              
018862,002496: 41,3402           31046                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
018863,002497: 41,3403           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
018864,002498: 41,3404           31016                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
018865,002499: 41,3405           04651                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
018866,002500: 41,3406           03410                           TC       DSPOCTWD                              
018867,002501: 41,3407           05155        ENDSPF             TC       ENDOFJOB                              
018868,002502: 

Page 445

018870,002504:                                                                                                  #  WORD DISPLAY ROUTINES
018871,002505: 40,3234                                           SETLOC   TESTOFUF   +4                         
018872,002506: 40,3234                                           COUNT*   $$/PIN                                
018873,002507: 
018874,002508: 40,3234           56002        DSPSIGN            XCH      Q                                     
018875,002509: 40,3235           54144                           TS       DSPWDRET                              
018876,002510: 40,3236           10154                           CCS      MPAC                                  
018877,002511: 40,3237           03247                           TC       +8D                                   
018878,002512: 40,3240           03247                           TC       +7                                    
018879,002513: 40,3241           64753                           AD       ONE                                   
018880,002514: 40,3242           54154                           TS       MPAC                                  
018881,002515: 40,3243           02433                           TC       -ON                                   
018882,002516: 40,3244           40155                           CS       MPAC       +1                         
018883,002517: 40,3245           54155                           TS       MPAC       +1                         
018884,002518: 40,3246           00144                           TC       DSPWDRET                              
018885,002519: 40,3247           02413                           TC       +ON                                   
018886,002520: 40,3250           00144                           TC       DSPWDRET                              
018887,002521: 
018888,002522: 40,3251           00006        DSPRND             EXTEND                                         #  ROUND BY 5 EXP-6
018889,002523: 40,3252           33315                           DCA      DECROUND   -1                         
018890,002524: 40,3253           20155                           DAS      MPAC                                  
018891,002525: 40,3254           00006                           EXTEND                                         
018892,002526: 40,3255           13261                           BZF      +4                                    
018893,002527: 40,3256           00006                           EXTEND                                         
018894,002528: 40,3257           34733                           DCA      DPOSMAX                               
018895,002529: 40,3260           52155                           DXCH     MPAC                                  
018896,002530: 40,3261           00002                           TC       Q                                     
018897,002531: 
018898,002532:                                                                                                  #  DSPDECWD CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
018899,002533:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT.  IT ROUNDS BY 5 EXP-6.
018900,002534: 
018901,002535: 40,3262           56002        DSPDECWD           XCH      Q                                     
018902,002536: 40,3263           54115                           TS       WDRET                                 
018903,002537: 40,3264           03234                           TC       DSPSIGN                               
018904,002538: 40,3265           03251                           TC       DSPRND                                
018905,002539: 40,3266           34751                           CAF      FOUR                                  
018906,002540: 40,3267           54137        DSPDCWD1           TS       WDCNT                                 
018907,002541: 40,3270           34363                           CAF      BINCON                                
018908,002542: 40,3271           07312                           TC       SHORTMP                               
018909,002543: 40,3272           50154        TRACE1             INDEX    MPAC                                  
018910,002544: 40,3273           34066                           CAF      RELTAB                                
018911,002545: 40,3274           74346                           MASK     LOW5                                  
018912,002546: 40,3275           54124                           TS       CODE                                  
018913,002547: 40,3276           34755                           CAF      ZERO                                  
018914,002548: 40,3277           56156                           XCH      MPAC       +2                         
018915,002549: 40,3300           56155                           XCH      MPAC       +1                         
018916,002550: 40,3301           54154                           TS       MPAC                                  
018917,002551: 40,3302           56776                           XCH      DSPCOUNT                              
018918,002552: 40,3303           54143        TRACE1S            TS       COUNT                                 
018919,002553: 40,3304           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0

Page 446

018921,002555: 40,3305           54776                           TS       DSPCOUNT                              
018922,002556: 40,3306           03356                           TC       DSPIN                                 
018923,002557: 40,3307           10137                           CCS      WDCNT                                 
018924,002558: 40,3310           03267                           TC       DSPDCWD1                              
018925,002559: 40,3311           44360                           CS       VD1                                   
018926,002560: 40,3312           54776                           TS       DSPCOUNT                              
018927,002561: 40,3313           00115                           TC       WDRET                                 
018928,002562: 
018929,002563: 40,3314           00000                           OCT      00000                                 
018930,002564: 40,3315           02476        DECROUND           OCT      02476                                 
018931,002565: 
018932,002566:                                                                                                  #  DSPDECNR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
018933,002567:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT.  IT DOES NOT ROUND
018934,002568: 
018935,002569: 40,3316           56002        DSPDECNR           XCH      Q                                     
018936,002570: 40,3317           54115                           TS       WDRET                                 
018937,002571: 40,3320           03234                           TC       DSPSIGN                               
018938,002572: 40,3321           03266                           TC       DSPDCWD1   -1                         
018939,002573: 
018940,002574:                                                                                                  #  DSPDC2NR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
018941,002575:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT.  IT DOES NOT ROUND
018942,002576: 
018943,002577: 40,3322           56002        DSPDC2NR           XCH      Q                                     
018944,002578: 40,3323           54115                           TS       WDRET                                 
018945,002579: 40,3324           03234                           TC       DSPSIGN                               
018946,002580: 40,3325           34753                           CAF      ONE                                   
018947,002581: 40,3326           03267                           TC       DSPDCWD1                              
018948,002582: 
018949,002583:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
018950,002584:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
018951,002585: 
018952,002586: 40,3327           56002        DSP2DEC            XCH      Q                                     
018953,002587: 40,3330           54115                           TS       WDRET                                 
018954,002588: 40,3331           34755                           CAF      ZERO                                  
018955,002589: 40,3332           54124                           TS       CODE                                  
018956,002590: 40,3333           36250                           CAF      THREE                                 
018957,002591: 40,3334           03440                           TC       11DSPIN                               #  -R2 OFF
018958,002592: 40,3335           34751                           CAF      FOUR                                  
018959,002593: 40,3336           03440                           TC       11DSPIN                               #  +R2 OFF
018960,002594: 40,3337           03234                           TC       DSPSIGN                               
018961,002595: 40,3340           34320                           CAF      R2D1                                  
018962,002596: 40,3341           03267        END2DEC            TC       DSPDCWD1                              
018963,002597: 
018964,002598:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
018965,002599:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
018966,002600: 
018967,002601:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14.  THIS IS SCALED TO FORM N/100 BEFORE
018968,002602:                                                                                                  #  DISPLAY CONVERSION.
018969,002603: 

Page 447

018971,002605: 40,3342           00006        DSPDECVN           EXTEND                                         
018972,002606: 40,3343           73352                           MP       VNDSPCON                              #  MULT BY .01
018973,002607: 40,3344           22154                           LXCH     MPAC                                  #  TAKE RESULTS FROM L. (MULT BY 2EXP14).
018974,002608: 40,3345           34755                           CAF      ZERO                                  
018975,002609: 40,3346           54155                           TS       MPAC       +1                         
018976,002610: 40,3347           56002                           XCH      Q                                     
018977,002611: 40,3350           54115                           TS       WDRET                                 
018978,002612: 40,3351           03325                           TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
018979,002613: 
018980,002614: 40,3352           00244        VNDSPCON           OCT      00244                                 #  .01 ROUNDED UP
018981,002615: 
018982,002616: 40,3353           03342        GOVNUPDT           TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE.  REALLY PART
018983,002617: 40,3354           04635                           TC       POSTJUMP                              #  OF UPDATVB.
018984,002618: 40,3355           62351                           CADR     UPDAT1     +2                         
018985,002619: 
018986,002620: 40,3356                        ENDECVN            EQUALS                                         
018987,002621: 
018988,002622: 41,3410                                           SETLOC   ENDSPF     +1                         
018989,002623: 41,3410                                           COUNT*   $$/PIN                                
018990,002624: 
018991,002625:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
018992,002626:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT.  IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
018993,002627: 
018994,002628: 41,3410           54022        DSPOCTWD           TS       CYL                                   
018995,002629: 41,3411           56002                           XCH      Q                                     
018996,002630: 41,3412           54115                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
018997,002631: 41,3413           34736                           CAF      BIT14                                 #  TO BLANK SIGNS
018998,002632: 41,3414           26776                           ADS      DSPCOUNT                              
018999,002633: 41,3415           34751                           CAF      FOUR                                  
019000,002634: 41,3416           54137        WDAGAIN            TS       WDCNT                                 
019001,002635: 41,3417           40022                           CS       CYL                                   
019002,002636: 41,3420           40022                           CS       CYL                                   
019003,002637: 41,3421           40022                           CS       CYL                                   
019004,002638: 41,3422           40000                           CS       A                                     
019005,002639: 41,3423           74757                           MASK     DSPMSK                                
019006,002640: 41,3424           50000                           INDEX    A                                     
019007,002641: 41,3425           34066                           CAF      RELTAB                                
019008,002642: 41,3426           74346                           MASK     LOW5                                  
019009,002643: 41,3427           54124                           TS       CODE                                  
019010,002644: 41,3430           56776                           XCH      DSPCOUNT                              
019011,002645: 41,3431           54143                           TS       COUNT                                 
019012,002646: 41,3432           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
019013,002647: 41,3433           54776                           TS       DSPCOUNT                              
019014,002648: 41,3434           04635                           TC       POSTJUMP                              
019015,002649: 41,3435           61446                           CADR     DSPOCTIN                              
019016,002650: 41,3436           10137        OCTBACK            CCS      WDCNT                                 
019017,002651: 41,3437           03416                           TC       WDAGAIN                               #  +
019018,002652: 41,3440           44360        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
019019,002653: 41,3441           54776                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.

Page 448

019021,002655: 41,3442           00115                           TC       WDRET                                 
019022,002656: 
019023,002657: 41,3443     4757               DSPMSK             =        SEVEN                                 
019024,002658: 
019025,002659:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE.  BOTH
019026,002660:                                                                                                  #  ARE DESTROYED.  IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
019027,002661:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
019028,002662:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
019029,002663: 
019030,002664: 40,3356                                           SETLOC   ENDECVN                               
019031,002665: 
019032,002666: 40,3356                                           COUNT*   $$/PIN                                
019033,002667: 40,3356           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANYOF THE 
019034,002668: 40,3357           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
019035,002669: 40,3360           34346                           CAF      LOW5                                  
019036,002670: 40,3361           70143                           MASK     COUNT                                 
019037,002671: 40,3362           54021                           TS       SR                                    
019038,002672: 40,3363           56021                           XCH      SR                                    
019039,002673: 40,3364           54141                           TS       DSREL                                 
019040,002674: 40,3365           34753                           CAF      BIT1                                  
019041,002675: 40,3366           70143                           MASK     COUNT                                 
019042,002676: 40,3367           10000                           CCS      A                                     
019043,002677: 40,3370           03372                           TC       +2                                    #  LEFT IF COUNT IS ODD
019044,002678: 40,3371           03402                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
019045,002679: 40,3372           56124                           XCH      CODE                                  
019046,002680: 40,3373           04340                           TC       SLEFT5                                #  DOES NOT USE CYL
019047,002681: 40,3374           54124                           TS       CODE                                  
019048,002682: 40,3375           34736                           CAF      BIT14                                 
019049,002683: 40,3376           70143                           MASK     COUNT                                 
019050,002684: 40,3377           10000                           CCS      A                                     
019051,002685: 40,3400           34752                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
019052,002686: 40,3401           64753                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
019053,002687: 40,3402           54143                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
019054,002688:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
019055,002689:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
019056,002690: 40,3403           00004        DSPIN1             INHINT                                         
019057,002691: 40,3404           50141                           INDEX    DSREL                                 
019058,002692: 40,3405           11022                           CCS      DSPTAB                                
019059,002693: 40,3406           03410                           TC       +2                                    #  IF +
019060,002694: 40,3407           05675                           TC       CCSHOLE                               
019061,002695: 40,3410           64753                           AD       ONE                                   #  IF -
019062,002696: 40,3411           54142                           TS       DSMAG                                 
019063,002697: 40,3412           50143                           INDEX    COUNT                                 
019064,002698: 40,3413           73434                           MASK     DSMSK                                 
019065,002699: 40,3414           00006                           EXTEND                                         
019066,002700: 40,3415           60124                           SU       CODE                                  
019067,002701: 40,3416           00006                           EXTEND                                         
019068,002702: 40,3417           13432                           BZF      DSLV                                  #  SAME
019069,002703: 40,3420           50143        DFRNT              INDEX    COUNT                                 

Page 449

019071,002705: 40,3421           43434                           CS       DSMSK                                 #  MASK WITH 77740, 76037, 75777, OR 74037
019072,002706: 40,3422           70142                           MASK     DSMAG                                 
019073,002707: 40,3423           60124                           AD       CODE                                  
019074,002708: 40,3424           40000                           CS       A                                     
019075,002709: 40,3425           50141                           INDEX    DSREL                                 
019076,002710: 40,3426           57022                           XCH      DSPTAB                                
019077,002711: 40,3427           00006                           EXTEND                                         
019078,002712: 40,3430           63432                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
019079,002713: 40,3431           25015                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
019080,002714: 40,3432           00003        DSLV               RELINT                                         
019081,002715: 40,3433           00114                           TC       DSEXIT                                
019082,002716: 
019083,002717: 40,3434           00037        DSMSK              OCT      37                                    
019084,002718: 40,3435           01740                           OCT      1740                                  
019085,002719: 40,3436           02000                           OCT      2000                                  
019086,002720: 40,3437           03740                           OCT      3740                                  
019087,002721: 
019088,002722:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
019089,002723:                                                                                                  #  BIT11 OF CODE.
019090,002724: 
019091,002725: 40,3440           54141        11DSPIN            TS       DSREL                                 
019092,002726: 40,3441           34752                           CAF      TWO                                   
019093,002727: 40,3442           54143                           TS       COUNT                                 
019094,002728: 40,3443           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
019095,002729: 40,3444           54114                           TS       DSEXIT                                
019096,002730: 40,3445           03403                           TC       DSPIN1                                
019097,002731: 
019098,002732: 40,3446           03356        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
019099,002733: 40,3447           33451                           CAF      +2                                    
019100,002734: 40,3450           04640                           TC       BANKJUMP                              
019101,002735: 40,3451           63436        ENDSPOCT           CADR     OCTBACK                               
019102,002736: 
019103,002737:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
019104,002738:                                                                                                  #  ABORT WITH 01501.
019105,002739: 
019106,002740:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
019107,002741:                                                                                                  #  DO TC ENTRET.
019108,002742: 
019109,002743: 40,3452           44360        PREDSPAL           CS       VD1                                   
019110,002744: 40,3453           54776                           TS       DSPCOUNT                              
019111,002745: 40,3454           43475        DSPALARM           CS       NVSBENDL                              
019112,002746: 40,3455           60136                           AD       ENTEXIT                               
019113,002747: 40,3456           00006                           EXTEND                                         
019114,002748: 40,3457           13472                           BZF      CHARALRM   +2                         
019115,002749: 40,3460           43474                           CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
019116,002750: 40,3461           60136                           AD       ENTEXIT                               
019117,002751: 40,3462           00006                           EXTEND                                         
019118,002752: 40,3463           13465                           BZF      +2                                    

Page 450

019120,002754: 40,3464           03470                           TC       CHARALRM                              
019121,002755: 40,3465           04204                           TC       KILMONON                              
019122,002756: 40,3466           04364                           TC       FALTON                                
019123,002757: 40,3467           04124                           TC       PASTEVB                               #  PUT MONITOR VERB BACK IN VERBREG
019124,002758: 40,3470           04364        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
019125,002759: 40,3471           05155                           TC       ENDOFJOB                              
019126,002760: 40,3472           05642                           TC       POODOO                                
019127,002761: 40,3473           21501                           OCT      21501                                 
019128,002762: 40,3474           04124        MONADR             GENADR   PASTEVB                               
019129,002763: 40,3475           04202        NVSBENDL           TC       NVSUBEND                              
019130,002764: 
019131,002765:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
019132,002766:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
019133,002767:                                                                                                  #  THAT WAS LAST EXECUTED.  USED FOR BAD DATA DURING LOAD VERBS AND BY
019134,002768:                                                                                                  #  MCTBS.  ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
019135,002769:                                                                                                  #  FOR MM CODE.
019136,002770: 
019137,002771:    4145                                           SETLOC   MID7       +1                         
019138,002772:    4145                                           COUNT*   $$/PIN                                
019139,002773:    4145           04364        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
019140,002774:    4146           41040                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
019141,002775:    4147           55012                           TS       REQRET                                #  SET FOR ENTPAS0
019142,002776:    4150           04616                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
019143,002777:    4151           62341                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
019144,002778:    4152           04635                           TC       POSTJUMP                              
019145,002779:    4153           62002        ENDALM             CADR     ENTER                                 
019146,002780: 
019147,002781:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER.  THEN IT USES MODE DISP.
019148,002782:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW MM CODE IN A, BUT NOT DISPLAYED IN
019149,002783:                                                                                                  #  MM LIGHTS.
019150,002784: 
019151,002785:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
019152,002786:                                                                                                  #  IF NOT, IT RECYCLES.
019153,002787: 
019154,002788: 41,3443                                           SETLOC   DSPLV      +3                         
019155,002789: 41,3443                                           COUNT*   $$/PIN                                
019156,002790: 41,3443           03465        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
019157,002791:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
019158,002792:                                                                                                  #  MMADREF AT ENTPASHI.
019159,002793: 41,3444           34747                           CAF      BIT5                                  #  OCT20 = ND2.
019160,002794: 41,3445           60776                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
019161,002795: 41,3446           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
019162,002796: 41,3447           13451                           BZF      +2                                    
019163,002797: 41,3450           04145                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2.  ALARM AND RECYCLE.
019164,002798: 41,3451           34755                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
019165,002799: 41,3452           57001                           XCH      NOUNREG                               
019166,002800: 41,3453           54154                           TS       MPAC                                  
019167,002801: 41,3454           34361                           CAF      ND1                                   
019168,002802: 41,3455           54776                           TS       DSPCOUNT                              

Page 451

019170,002804: 41,3456           04616                           TC       BANKCALL                              
019171,002805: 41,3457           60601                           CADR     2BLANK                                
019172,002806: 41,3460           44360                           CS       VD1                                   #  BLOCK NUM CHAR IN
019173,002807: 41,3461           54776                           TS       DSPCOUNT                              
019174,002808: 41,3462           30154                           CA       MPAC                                  
019175,002809: 41,3463           04635                           TC       POSTJUMP                              
019176,002810: 41,3464           10040                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
019177,002811: 
019178,002812: 41,3465  04,2040               MODROUTB           =        V37                                   
019179,002813: 41,3465           40002        REQMM              CS       Q                                     
019180,002814: 41,3466           55012                           TS       REQRET                                
019181,002815: 41,3467           34361                           CAF      ND1                                   
019182,002816: 41,3470           54776                           TS       DSPCOUNT                              
019183,002817: 41,3471           34755                           CAF      ZERO                                  
019184,002818: 41,3472           55001                           TS       NOUNREG                               
019185,002819: 41,3473           04616                           TC       BANKCALL                              
019186,002820: 41,3474           60601                           CADR     2BLANK                                
019187,002821: 41,3475           04427                           TC       FLASHON                               
019188,002822: 41,3476           34753                           CAF      ONE                                   
019189,002823: 41,3477           54777                           TS       DECBRNCH                              #  SET FOR DEC
019190,002824: 41,3500           00136                           TC       ENTEXIT                               
019191,002825: 
019192,002826:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
019193,002827:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.  DISPLAY SYST IS RELEASED.
019194,002828:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
019195,002829:                                                                                                  #        COMPONENT 1     PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
019196,002830:                                                                                                  #        COMPONENT 2     JOB ADRES (12 BIT)
019197,002831:                                                                                                  #        COMPONENT 3     BBCON
019198,002832: 
019199,002833: 41,3501           34753        VBRQEXEC           CAF      BIT1                                  
019200,002834: 41,3502           71044                           MASK     DSPTEM1                               
019201,002835: 41,3503           10000                           CCS      A                                     
019202,002836: 41,3504           03523                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
019203,002837: 41,3505           34351                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
019204,002838: 41,3506           54154        REQEX1             TS       MPAC                                  #  TC NOVAC OR TC FINDVAC INTO MPAC
019205,002839: 41,3507           44753                           CS       BIT1                                  
019206,002840: 41,3510           71044                           MASK     DSPTEM1                               
019207,002841: 41,3511           54160                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
019208,002842: 41,3512           04457        REQUESTC           TC       RELDSP                                
019209,002843: 41,3513           34217                           CA       ENDINST                               
019210,002844: 41,3514           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
019211,002845: 41,3515           00006                           EXTEND                                         
019212,002846: 41,3516           31046                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
019213,002847: 41,3517           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
019214,002848: 41,3520           30160                           CA       MPAC       +4                         #  PRIO IN A
019215,002849: 41,3521           00004                           INHINT                                         
019216,002850: 41,3522           00154                           TC       MPAC                                  

Page 452

019218,002852: 41,3523           34354        SETVAC             CAF      TCFINDVC                              
019219,002853: 41,3524           03506                           TC       REQEX1                                
019220,002854: 
019221,002855:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
019222,002856:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.  DISPLAY SYST IS RELEASED.
019223,002857:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
019224,002858:                                                                                                  #        COMPONENT 1     DELAY (LOW BITS)
019225,002859:                                                                                                  #        COMPONENT 2     TASK ADRES (12 BIT)
019226,002860:                                                                                                  #        COMPONENT 3     BBCON
019227,002861: 
019228,002862: 41,3525           34352        VBRQWAIT           CAF      TCWAIT                                
019229,002863: 41,3526           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
019230,002864: 41,3527           31044                           CA       DSPTEM1                               #  TIME DELAY
019231,002865: 41,3530           03511        ENDRQWT            TC       REQUESTC   -1                         
019232,002866: 
019233,002867:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
019234,002868:                                                                                                  #  TC ENDOFJOB INTO MPAC+3.  IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
019235,002869:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
019236,002870: 
019237,002871: 40,3476                                           SETLOC   NVSBENDL   +1                         
019238,002872: 40,3476                                           COUNT*   $$/PIN                                
019239,002873: 40,3476           34753        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
019240,002874: 40,3477           55013                           TS       LOADSTAT                              
019241,002875: 40,3500           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
019242,002876: 40,3501           04457                           TC       RELDSP                                
019243,002877: 40,3502           04433                           TC       FLASHOFF                              
019244,002878: 40,3503           03612                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
019245,002879: 
019246,002880: 40,3504           44753        VBTERM             CS       ONE                                   
019247,002881: 40,3505           03477                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
019248,002882: 
019249,002883:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
019250,002884:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
019251,002885: 
019252,002886: 40,3506           41000        PROCKEY            CS       VERBREG                               #  DONT ALLOW PROCEED DURING LOAD.
019253,002887: 40,3507           63523                           AD       VBSP2LD*                              #  DEC 22
019254,002888: 40,3510           00006                           EXTEND                                         
019255,002889: 40,3511           26000                           DIM      A                                     
019256,002890: 40,3512           00006                           EXTEND                                         
019257,002891: 40,3513           13470                           BZF      CHARALRM                              
019258,002892: 40,3514           34755        PROCKEY1           CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
019259,002893: 40,3515           55012                           TS       REQRET                                
019260,002894: 40,3516           44360                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
019261,002895: 40,3517           54776                           TS       DSPCOUNT                              
019262,002896: 40,3520           03476                           TC       VBPROC                                
019263,002897: 
019264,002898:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).

Page 453

019266,002900:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
019267,002901:                                                                                                  #  DISPLAYS IN ENDIDLE.  SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
019268,002902:                                                                                                  #  OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
019269,002903: 
019270,002904: 40,3521           44755        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
019271,002905: 40,3522           03477                           TC       VBPROC     +1                         
019272,002906: 
019273,002907: 40,3523           00026        VBSP2LD*           DEC      22         B-14                       #  VB22 = BLOAD
019274,002908: 
019275,002909:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
019276,002910:                                                                                                  #  END OF LOAD.

Page 454

019278,002912: 
019279,002913:                                                                                                  #  KEY RELEASE ROUTINE
019280,002914: 
019281,002915:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
019282,002916: 
019283,002917:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
019284,002918:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
019285,002919:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
019286,002920:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
019287,002921: 
019288,002922:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
019289,002923:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
019290,002924:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
019291,002925: 
019292,002926:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
019293,002927:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
019294,002928:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
019295,002929:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
019296,002930:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
019297,002931:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
019298,002932:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES.  HITTING KEYRLSE WILL
019299,002933:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
019300,002934:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
019301,002935:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
019302,002936:                                                                                                  #  SUBROUTINES.
019303,002937: 
019304,002938: 40,3524           44751        VBRELDSP           CS       BIT3                                  
019305,002939: 40,3525           00006                           EXTEND                                         
019306,002940: 40,3526           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
019307,002941: 40,3527           10115                           CCS      21/22REG                              #  OLD DSPLOCK
019308,002942: 40,3530           34736                           CAF      BIT14                                 
019309,002943: 40,3531           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
019310,002944: 40,3532           10000                           CCS      A                                     
019311,002945: 40,3533           03542                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
019312,002946: 40,3534           04457        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
019313,002947: 40,3535           11041                           CCS      CADRSTOR                              #        RELEASE DISPLAY SYSTEM AND
019314,002948: 40,3536           03540                           TC       +2                                    #        DO RE-ESTABLISH IF CADRSTOR IS FULL.
019315,002949: 40,3537           05155                           TC       ENDOFJOB                              
019316,002950: 40,3540           04635                           TC       POSTJUMP                              
019317,002951: 40,3541           21051                           CADR     PINBRNCH                              
019318,002952: 40,3542           34755        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
019319,002953: 40,3543           55011                           TS       DSPLOCK                               #        JUST UNSUSPEND IT BY CLEARING DSPLOCK.
019320,002954: 40,3544           11041                           CCS      CADRSTOR                              #        TURN KEY RELEASE LIGHT OFF IF BOTH
019321,002955: 40,3545           05155                           TC       ENDOFJOB                              #        CADRSTOR AND DSPLIST ARE EMPTY.
019322,002956: 40,3546           04502                           TC       RELDSP1                               
019323,002957: 40,3547           05155                           TC       ENDOFJOB                              
019324,002958: 
019325,002959: 40,3550                        ENDRELDS           EQUALS                                         
019326,002960: 

Page 455

019328,002962:                                                                                                  #  NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER.  IT CAN BE
019329,002963:                                                                                                  #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
019330,002964:                                                                                                  #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
019331,002965:                                                                                                  #  PLACE 0VVVVVVVNNNNNNN INTO A.
019332,002966:                                                                                                  #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
019333,002967: 
019334,002968:                                                                                                  #  IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
019335,002969:                                                                                                  #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
019336,002970:                                                                                                  #  -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
019337,002971: 
019338,002972:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
019339,002973:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
019340,002974: 
019341,002975:                                                                                                  #  NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
019342,002976:                                                                                                  #  SYSTEM IS AVAILABLE.  THE NEW NOUN AND VERB CODES ARE DISPLAYED.
019343,002977:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
019344,002978:                                                                                                  #  ACTION).  IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY (RETURN WITH NO
019345,002979:                                                                                                  #  FURTHER ACTION).
019346,002980: 
019347,002981:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
019348,002982:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
019349,002983:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
019350,002984:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
019351,002985: 
019352,002986:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
019353,002987:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET
019354,002988:                                                                                                  #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
019355,002989:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
019356,002990:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
019357,002991:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
019358,002992:                                                                                                  #  MONITOR SET UP.
019359,002993: 
019360,002994:                                                                                                  #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
019361,002995:                                                                                                  #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
019362,002996: 
019363,002997:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
019364,002998:                                                                                                  #  MONITOR.
019365,002999: 
019366,003000:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
019367,003001:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
019368,003002: 
019369,003003:                                                                                                  #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
019370,003004:                                                                                                  #  (SIMILARLY FOR PLEASE MARK).  FIRST PLACE THE CODED NUMBER FOR WHAT
019371,003005:                                                                                                  #  ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE
019372,003006:                                                                                                  #  :CHECKLIST: NOUN.  GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
019373,003007:                                                                                                  #  NOUN.  GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
019374,003008:                                                                                                  #  LOW 7 BITS.  THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
019375,003009:                                                                                                  #  LIGHTS.
019376,003010: 
019377,003011:                                                                                                  #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL

Page 456

019379,003013:                                                                                                  #  PARAMETER IN L.  IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
019380,003014:                                                                                                  #  A.  AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
019381,003015:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
019382,003016:                                                                                                  #  SPECIFIED IN L.  IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
019383,003017:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS.  (THIS VERB
019384,003018:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.)  IF BITS 1-3 OF L ARE
019385,003019:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
019386,003020:                                                                                                  #  BLANKSUB.  IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
019387,003021:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
019388,003022: 
019389,003023:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
019390,003024:                                                                                                  #  ENTRET.  (THIS WILL RESTORE OLD CALLING BANK BITS)
019391,003025: 
019392,003026:    4154                                           SETLOC   ENDALM     +1                         
019393,003027: 
019394,003028:    4154                                           COUNT*   $$/PIN                                
019395,003029:    4154           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
019396,003030:    4155           54123        NVMONOPT           TS       NVTEMP                                
019397,003031:    4156           34736                           CAF      BIT14                                 
019398,003032:    4157           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
019399,003033:    4160           61011                           AD       DSPLOCK                               
019400,003034:    4161           10000                           CCS      A                                     
019401,003035:    4162           00002                           TC       Q                                     #  DSP SYST BLOCKED.  RET TO 1+ CALLING LOC
019402,003036:    4163           34753                           CAF      ONE                                   #  DSP SYST AVAILABLE
019403,003037:    4164           60002        NVSBCOM            AD       Q                                     
019404,003038:    4165           55036                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
019405,003039:    4166           23021                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
019406,003040:    4167           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
019407,003041:    4170           34201        NVSUBCOM           CAF      NVSBBBNK                              
019408,003042: 
019409,003043:    4171           56006                           XCH      BBANK                                 
019410,003044:    4172           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
019411,003045:    4173           04007                           ROR      SUPERBNK                              
019412,003046:    4174           55037                           TS       NVBNKTEM                              
019413,003047:    4175           34201                           CAF      PINSUPBT                              
019414,003048:    4176           00006                           EXTEND                                         
019415,003049:    4177           01007                           WRITE    SUPERBNK                              
019416,003050:    4200           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
019417,003051:    4201     0776                                  EBANK=   DSPCOUNT                              
019418,003052:    4201           62101        NVSBBBNK           BBCON    NVSUB1                                
019419,003053: 
019420,003054:    4202     4201               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
019421,003055: 
019422,003056:    4202           53037        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
019423,003057:    4203           05165                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
019424,003058: 
019425,003059: 41,3531                                           SETLOC   ENDRQWT    +1                         
019426,003060: 
019427,003061: 41,3531                                           COUNT*   $$/PIN                                
019428,003062: 
019429,003063:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS

Page 457

019431,003065:                                                                                                  #  -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
019432,003066: 
019433,003067: 41,3531           64757        BLANKDSP           AD       SEVEN                                 #  7,8,9, OR 10 (A HAD 0,1,2,OR 3)
019434,003068: 41,3532           00004                           INHINT                                         
019435,003069: 41,3533           54124                           TS       CODE                                  #  BLANK SPECIFIED DSPTABS
019436,003070: 41,3534           44740                           CS       BIT12                                 
019437,003071: 41,3535           50124                           INDEX    CODE                                  
019438,003072: 41,3536           57022                           XCH      DSPTAB                                
019439,003073: 41,3537           10000                           CCS      A                                     
019440,003074: 41,3540           25015                           INCR     NOUT                                  
019441,003075: 41,3541           03542                           TC       +1                                    
019442,003076: 41,3542           10124                           CCS      CODE                                  
019443,003077: 41,3543           03533                           TC       BLANKDSP   +2                         
019444,003078: 41,3544           00003                           RELINT                                         
019445,003079: 41,3545           50123                           INDEX    NVTEMP                                
019446,003080: 41,3546           03553                           TC       +5                                    
019447,003081: 41,3547           03550                           TC       +1                                    #  NVTEMP HAS    -4 (NEVER TOUCH MODREG)
019448,003082: 41,3550           55000                           TS       VERBREG                               #                -3
019449,003083: 41,3551           55001                           TS       NOUNREG                               #                -2
019450,003084: 41,3552           55014                           TS       CLPASS                                #                -1
019451,003085: 41,3553           44360                           CS       VD1                                   
019452,003086: 41,3554           54776                           TS       DSPCOUNT                              
019453,003087: 41,3555           04433                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
019454,003088: 41,3556           03601                           TC       ENTSET     -2                         #  ZEROS REQRET
019455,003089: 
019456,003090: 41,3557           33603        NVSUB1             CAF      ENTSET                                #  IN BANK
019457,003091: 41,3560           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
019458,003092: 41,3561           10123                           CCS      NVTEMP                                #  WHAT NOW
019459,003093: 41,3562           03566                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
019460,003094: 41,3563           02353                           TC       GODSPALM                              
019461,003095: 41,3564           03531                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
019462,003096: 41,3565           02353                           TC       GODSPALM                              
019463,003097: 41,3566           36077                           CAF      LOW7                                  
019464,003098: 41,3567           70123                           MASK     NVTEMP                                
019465,003099: 41,3570           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
019466,003100: 41,3571           30123                           CA       NVTEMP                                #                USES MPAC, +1, +2
019467,003101: 41,3572           54023                           TS       EDOP                                  #  RIGHT 7
019468,003102: 41,3573           30023                           CA       EDOP                                  
019469,003103: 41,3574           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1.  DSPDECVN
019470,003104:                                                                                                  #                USES MPAC, +1, +2).
019471,003105: 41,3575           10157                           CCS      MPAC       +3                         #  TEST NOUN
019472,003106: 41,3576           03604                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
019473,003107: 41,3577           30160                           CA       MPAC       +4                         
019474,003108: 41,3600           02341                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB.  THEN RETURN
019475,003109: 41,3601           34755                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
019476,003110: 41,3602           55012                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
019477,003111: 41,3603           04202        ENTSET             TC       NVSUBEND                              
019478,003112: 41,3604           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
019479,003113: 41,3605           03611                           TC       +4                                    #  IF VERB NOT +0, GO ON
019480,003114: 41,3606           30157                           CA       MPAC       +3                         

Page 458

019482,003116: 41,3607           02321                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN.  THEN RETURN
019483,003117: 41,3610           04202                           TC       NVSUBEND                              
019484,003118: 41,3611           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
019485,003119: 41,3612           54161                           TS       MPAC       +5                         #        USES MPAC, +1, +2)
019486,003120: 41,3613           30160                           CA       MPAC       +4                         
019487,003121: 41,3614           02341                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
019488,003122: 41,3615           30157                           CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
019489,003123: 41,3616           02321                           TC       UPDATNN    -1                         
019490,003124: 41,3617           34755                           CAF      ZERO                                  
019491,003125: 41,3620           55013                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
019492,003126: 41,3621           55014                           TS       CLPASS                                
019493,003127: 41,3622           55012                           TS       REQRET                                #  SET REQRET FOR PASS 0.
019494,003128: 41,3623           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
019495,003129: 41,3624           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
019496,003130: 41,3625           02035        ENDNVSB1           TC       ENTPAS0                               
019497,003131: 
019498,003132:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
019499,003133:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS).
019500,003134: 
019501,003135:    4204                                           SETLOC   NVSUBEND   +2                         
019502,003136:    4204                                           COUNT*   $$/PIN                                
019503,003137:                                                                                                  #  FORCE BIT 15 OF MONSAVE1 TO 1.
019504,003138:    4204           34735        KILMONON           CAF      BIT15                                 #        THIS IS THE KILL MONITOR BIT.
019505,003139:    4205           55020                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
019506,003140:                                                                                                  #        MONITOR BIT.
019507,003141:    4206           00002                           TC       Q                                     
019508,003142: 
019509,003143:                                                                                                  #  LOADSTAT      +0      INACTIVE (WAITING FOR DATA).  SET BY NVSUB
019510,003144:                                                                                                  #                +1      PROCEED NO DATA.  SET BY SPECIAL VERB
019511,003145:                                                                                                  #                -1      TERMINATE   SET BY SPECIAL VERB
019512,003146:                                                                                                  #                -0      DATA IN         SET BY END OF LOAD ROUTINE
019513,003147:                                                                                                  #                        OR RESEQUENCE   SET BY VERB 32
019514,003148: 
019515,003149:                                                                                                  #  L TC ENDIDLE (FIXED FIXED)
019516,003150:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
019517,003151:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED.  ENDIDLE PUTS CURRENT JOB TO SLEEP.
019518,003152:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
019519,003153:                                                                                                  #  SINCE JOB SLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
019520,003154:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
019521,003155:                                                                                                  #        L+1     FOR TERMINATE
019522,003156:                                                                                                  #        L+2     FOR PROCEED WITHOUT DATA
019523,003157:                                                                                                  #        L+3     FOR DATA IN, OR RESEQUENCE
019524,003158:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
019525,003159: 
019526,003160:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP

Page 459

019528,003162:                                                                                                  #  IN PINBALL.  IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
019529,003163:                                                                                                  #        1)      CADRSTOR NOT= +0.  THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
019530,003164:                                                                                                  #                EXCEEDED.  (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
019531,003165:                                                                                                  #        2)      DSPLIST NOT= +0.  THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
019532,003166:                                                                                                  #                NVSUBUSY.
019533,003167: 
019534,003168:    4207           22002        ENDIDLE            LXCH     Q                                     #  RETURN ADDRESS INTO L.
019535,003169:    4210           04220                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
019536,003170:    4211           04224                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
019537,003171:    4212           30001                           CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
019538,003172:    4213           75012                           MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
019539,003173:    4214           60004                           AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
019540,003174:    4215           55041                           TS       CADRSTOR                              
019541,003175:    4216           05133                           TC       JOBSLEEP                              
019542,003176: 
019543,003177:    4217           05155        ENDINST            TC       ENDOFJOB                              
019544,003178: 
019545,003179:    4220           11041        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
019546,003180:    4221           04227                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
019547,003181:    4222           00002                           TC       Q                                     
019548,003182:    4223           04227                           TC       DSPABORT                              
019549,003183: 
019550,003184:    4224           11042        ISLIST+0           CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
019551,003185:    4225           04227                           TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
019552,003186:    4226           00002                           TC       Q                                     
019553,003187:    4227           05624        DSPABORT           TC       BAILOUT                               
019554,003188:    4230           31206                           OCT      31206                                 
019555,003189: 
019556,003190:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
019557,003191:                                                                                                  #  IT DOES ENDOFJOB.
019558,003192: 
019559,003193:    4231           34201        JAMTERM            CAF      PINSUPBT                              
019560,003194:    4232           00006                           EXTEND                                         
019561,003195:    4233           01007                           WRITE    SUPERBNK                              
019562,003196:    4234           34242                           CAF      34DEC                                 
019563,003197:    4235           55012                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
019564,003198:    4236           44360                           CS       VD1                                   
019565,003199:    4237           54776                           TS       DSPCOUNT                              
019566,003200:    4240           04635                           TC       POSTJUMP                              
019567,003201:    4241           61504                           CADR     VBTERM                                
019568,003202: 
019569,003203:    4242           00042        34DEC              DEC      34         B-14                       
019570,003204: 
019571,003205:                                                                                                  #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
019572,003206:                                                                                                  #  FUNCTION.  IT DOES ENDOFJOB.
019573,003207: 
019574,003208:    4243           34201        JAMPROC            CAF      PINSUPBT                              

Page 460

019576,003210:    4244           00006                           EXTEND                                         
019577,003211:    4245           01007                           WRITE    SUPERBNK                              
019578,003212:    4246           34254                           CAF      33DEC                                 
019579,003213:    4247           55012                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
019580,003214:    4250           44360                           CS       VD1                                   
019581,003215:    4251           54776                           TS       DSPCOUNT                              
019582,003216:    4252           04635                           TC       POSTJUMP                              
019583,003217:    4253           61476                           CADR     VBPROC                                
019584,003218: 
019585,003219:    4254           00041        33DEC              DEC      33         B-14                       
019586,003220: 
019587,003221:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
019588,003222:                                                                                                  #  CALL WITH BLANKING CODE IN A.
019589,003223:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
019590,003224:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
019591,003225: 
019592,003226:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
019593,003227: 
019594,003228:    4255           74757        BLANKSUB           MASK     SEVEN                                 
019595,003229:    4256           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
019596,003230:    4257           34736                           CAF      BIT14                                 
019597,003231:    4260           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
019598,003232:    4261           61011                           AD       DSPLOCK                               
019599,003233:    4262           10000                           CCS      A                                     
019600,003234:    4263           00002                           TC       Q                                     #  DSP SYST BLOCKED.  RET TO 1+ CALLING LOC
019601,003235:    4264           24002                           INCR     Q                                     #  DSP SYST AVAILABLE
019602,003236:                                                                                                  #  SET RETURN FOR 2+ CALLING LOC
019603,003237:    4265           10123                           CCS      NVTEMP                                
019604,003238:    4266           14270                           TCF      +2                                    
019605,003239:    4267           00002                           TC       Q                                     #  NOTHING TO BLANK.  RET TO 2+ CALLING LOC
019606,003240:    4270           22002                           LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
019607,003241:    4271           34302                           CAF      BLNKBBNK                              
019608,003242:    4272           56006                           XCH      BBANK                                 
019609,003243:    4273           00006                           EXTEND                                         
019610,003244:    4274           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
019611,003245:    4275           52131                           DXCH     BUF                                   
019612,003246:    4276           34201                           CAF      PINSUPBT                              
019613,003247:    4277           00006                           EXTEND                                         
019614,003248:    4300           01007                           WRITE    SUPERBNK                              
019615,003249:    4301           03550                           TC       BLNKSUB1                              
019616,003250: 
019617,003251:    4302     0776                                  EBANK=   DSPCOUNT                              
019618,003252:    4302           60101        BLNKBBNK           BBCON    BLNKSUB1                              
019619,003253:    4303                        ENDBLFF            EQUALS                                         
019620,003254: 
019621,003255: 40,3550                                           SETLOC   ENDRELDS                              
019622,003256: 40,3550                                           COUNT*   $$/PIN                                
019623,003257: 40,3550           30776        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
019624,003258: 40,3551           54132                           TS       BUF        +2                         

Page 461

019626,003260: 40,3552           34753                           CAF      BIT1                                  #  TEST BIT1.  SEE IF R1 TO BE BLANKED.
019627,003261: 40,3553           03572                           TC       TESTBIT                               
019628,003262: 40,3554           34317                           CAF      R1D1                                  
019629,003263: 40,3555           02535                           TC       5BLANK     -1                         
019630,003264: 40,3556           34752                           CAF      BIT2                                  #  TEST BIT2.  SEE IF R2 TO BE BLANKED.
019631,003265: 40,3557           03572                           TC       TESTBIT                               
019632,003266: 40,3560           34320                           CAF      R2D1                                  
019633,003267: 40,3561           02535                           TC       5BLANK     -1                         
019634,003268: 40,3562           34751                           CAF      BIT3                                  #  TEST BIT3.  SEE IF R3 TO BE BLANKED.
019635,003269: 40,3563           03572                           TC       TESTBIT                               
019636,003270: 40,3564           34321                           CAF      R3D1                                  
019637,003271: 40,3565           02535                           TC       5BLANK     -1                         
019638,003272: 40,3566           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
019639,003273: 40,3567           54776                           TS       DSPCOUNT                              #        BEFORE BLANKSUB.
019640,003274: 40,3570           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
019641,003275: 40,3571           05166                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
019642,003276: 
019643,003277: 40,3572           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
019644,003278: 40,3573           10000                           CCS      A                                     
019645,003279: 40,3574           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
019646,003280: 40,3575           50002                           INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
019647,003281: 40,3576           00002                           TC       2                                     
019648,003282: 
019649,003283: 40,3577                        ENDBSUB1           EQUALS                                         
019650,003284: 
019651,003285:                                                                                                  #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY.  IT PUTS IN EXEC REQUEST WITH
019652,003286:                                                                                                  #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
019653,003287: 
019654,003288:                                                                                                  #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
019655,003289: 
019656,003290:                                                                                                  #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
019657,003291: 
019658,003292: 07,2666                                           BANK     7                                     
019659,003293: 04,2000                                           SETLOC   PINBALL4                              
019660,003294: 04,2000                                           BANK                                           
019661,003295: 
019662,003296: 04,2622                                           COUNT*   $$/PIN                                
019663,003297: 04,2622           56002        DSPMM              XCH      Q                                     
019664,003298: 04,2623           54154                           TS       MPAC                                  
019665,003299: 04,2624           00004                           INHINT                                         
019666,003300: 04,2625           34355                           CAF      CHRPRIO                               
019667,003301: 04,2626           05072                           TC       NOVAC                                 
019668,003302: 04,2627     0776                                  EBANK=   DSPCOUNT                              
019669,003303: 04,2627           03577 60101                     2CADR    DSPMMJB                               
019670,003304: 
019671,003305: 04,2631           00003                           RELINT                                         
019672,003306: 04,2632           00154        ENDSPMM            TC       MPAC                                  
019673,003307: 
019674,003308:                                                                                                  #  DSPMM PLACE MAJOR MODE CODE INTO MODREG

Page 462

019676,003310: 
019677,003311: 40,3577                                           SETLOC   ENDBSUB1                              
019678,003312: 
019679,003313: 40,3577                                           COUNT*   $$/PIN                                
019680,003314: 40,3577           34362        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
019681,003315: 40,3600           56776                           XCH      DSPCOUNT                              
019682,003316: 40,3601           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
019683,003317: 40,3602           11010                           CCS      MODREG                                
019684,003318: 40,3603           64753                           AD       ONE                                   
019685,003319: 40,3604           03342                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
019686,003320: 40,3605           03607                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
019687,003321: 40,3606           02601                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
019688,003322: 40,3607           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
019689,003323: 40,3610           54776                           TS       DSPCOUNT                              
019690,003324: 40,3611           05155                           TC       ENDOFJOB                              
019691,003325: 
019692,003326:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
019693,003327:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
019694,003328:                                                                                                  #  EXECUTED.  IT WAKES UP JOB THAT DID TC ENDIDLE.
019695,003329:                                                                                                  #  
019696,003330:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
019697,003331:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
019698,003332: 
019699,003333: 40,3612           11041        RECALTST           CCS      CADRSTOR                              
019700,003334: 40,3613           03615                           TC       RECAL1                                
019701,003335: 40,3614           05155                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
019702,003336: 40,3615           34755        RECAL1             CAF      ZERO                                  
019703,003337: 40,3616           57041                           XCH      CADRSTOR                              
019704,003338: 40,3617           00004                           INHINT                                         
019705,003339: 40,3620           05137                           TC       JOBWAKE                               
019706,003340: 40,3621           11013                           CCS      LOADSTAT                              
019707,003341: 40,3622           03644                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
019708,003342: 40,3623           05155                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
019709,003343: 40,3624           03642                           TC       DOTERM                                #  - TERMINATE
019710,003344: 40,3625           34752                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
019711,003345: 40,3626           50064        RECAL2             INDEX    LOCCTR                                
019712,003346: 40,3627           60164                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
019713,003347: 40,3630           50064                           INDEX    LOCCTR                                
019714,003348: 40,3631           54164                           TS       LOC                                   
019715,003349: 40,3632           31001                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
019716,003350: 40,3633           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
019717,003351: 40,3634           31000                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
019718,003352: 40,3635           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
019719,003353: 40,3636           52155                           DXCH     MPAC                                  
019720,003354: 40,3637           00003                           RELINT                                         
019721,003355: 40,3640           04457        RECAL3             TC       RELDSP                                
019722,003356: 40,3641           05155                           TC       ENDOFJOB                              
019723,003357: 
019724,003358: 40,3642           34755        DOTERM             CAF      ZERO                                  
019725,003359: 40,3643           03626                           TC       RECAL2                                

Page 463

019727,003361: 40,3644           34753        DOPROC             CAF      ONE                                   
019728,003362: 40,3645           03626                           TC       RECAL2                                
019729,003363: 

Page 464

019731,003365:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
019732,003366: 
019733,003367:    4303                                           SETLOC   ENDBLFF                               
019734,003368: 
019735,003369:    4303                                           COUNT*   $$/PIN                                
019736,003370: 
019737,003371:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A.  IT IS STORED IN NOUNCADR.  EBANK BITS
019738,003372:                                                                                                  #                ARE SET.  E ADRES IS DERIVED AND PUT INTO NOUNADD.
019739,003373: 
019740,003374:    4303           55016        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
019741,003375:    4304           54003                           TS       EBANK                                 #  SET EBANK BITS
019742,003376:    4305           74357                           MASK     LOW8                                  
019743,003377:    4306           65007                           AD       OCT1400                               
019744,003378:    4307           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
019745,003379:    4310           00002                           TC       Q                                     
019746,003380: 
019747,003381:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
019748,003382:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
019749,003383: 
019750,003384:    4311           31016        SETNADD            CA       NOUNCADR                              
019751,003385:    4312           14304                           TCF      SETNCADR   +1                         
019752,003386: 
019753,003387:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A.  EBANK BITS ARE SET.  E ADRES IS
019754,003388:                                                                                                  #                DERIVED AND LEFT IN A.
019755,003389: 
019756,003390:    4313           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
019757,003391:    4314           74357                           MASK     LOW8                                  
019758,003392:    4315           65007                           AD       OCT1400                               #  E ADRES LEFT IN A
019759,003393:    4316           00002                           TC       Q                                     
019760,003394: 
019761,003395:    4317           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
019762,003396:    4320           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
019763,003397:    4321           00004        R3D1               OCT      4                                     
019764,003398: 
019765,003399:    4322           54020        RIGHT5             TS       CYR                                   
019766,003400:    4323           40020                           CS       CYR                                   
019767,003401:    4324           40020                           CS       CYR                                   
019768,003402:    4325           40020                           CS       CYR                                   
019769,003403:    4326           40020                           CS       CYR                                   
019770,003404:    4327           56020                           XCH      CYR                                   
019771,003405:    4330           00002                           TC       Q                                     
019772,003406: 
019773,003407:    4331           54022        LEFT5              TS       CYL                                   
019774,003408:    4332           40022                           CS       CYL                                   
019775,003409:    4333           40022                           CS       CYL                                   
019776,003410:    4334           40022                           CS       CYL                                   
019777,003411:    4335           40022                           CS       CYL                                   

Page 465

019779,003413:    4336           56022                           XCH      CYL                                   
019780,003414:    4337           00002                           TC       Q                                     
019781,003415: 
019782,003416:    4340           60000        SLEFT5             DOUBLE                                         
019783,003417:    4341           60000                           DOUBLE                                         
019784,003418:    4342           60000                           DOUBLE                                         
019785,003419:    4343           60000                           DOUBLE                                         
019786,003420:    4344           60000                           DOUBLE                                         
019787,003421:    4345           00002                           TC       Q                                     
019788,003422: 
019789,003423:    4346           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
019790,003424:    4347           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
019791,003425:    4350           76000        HI5                OCT      76000                                 #  MUST STAY HERE
019792,003426: 
019793,003427:    4351           05072        TCNOVAC            TC       NOVAC                                 
019794,003428:    4352           05203        TCWAIT             TC       WAITLIST                              
019795,003429:    4353           05261        TCTSKOVR           TC       TASKOVER                              
019796,003430:    4354           05105        TCFINDVC           TC       FINDVAC                               
019797,003431: 
019798,003432:    4355           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
019799,003433: 
019800,003434:    4356           03777        LOW11              OCT      3777                                  
019801,003435:    4357     4356               B12-1              EQUALS   LOW11                                 
019802,003436:    4357           00377        LOW8               OCT      377                                   
019803,003437: 
019804,003438:    4360           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
019805,003439:    4361           00021        ND1                OCT      21                                    #  DONT SEPARATE.
019806,003440:    4362           00025        MD1                OCT      25                                    
019807,003441: 
019808,003442:    4363           00012        BINCON             DEC      10         B-14                       
019809,003443: 
019810,003444:    4364           34745        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
019811,003445:    4365           00006                           EXTEND                                         
019812,003446:    4366           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
019813,003447:    4367           00002                           TC       Q                                     
019814,003448: 
019815,003449:    4370           44745        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
019816,003450:    4371           00006                           EXTEND                                         
019817,003451:    4372           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
019818,003452:    4373           00002                           TC       Q                                     
019819,003453: 
019820,003454:    4374           34747        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
019821,003455:    4375           00006                           EXTEND                                         
019822,003456:    4376           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
019823,003457:    4377           00002                           TC       Q                                     
019824,003458: 

Page 466

019826,003460:    4400           00006        LODSAMPT           EXTEND                                         
019827,003461:    4401           30025                           DCA      TIME2                                 
019828,003462:    4402           52014                           DXCH     SAMPTIME                              
019829,003463:    4403           00002                           TC       Q                                     
019830,003464: 
019831,003465:    4404           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
019832,003466:    4405           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
019833,003467:    4406           20156                           DAS      MPAC       +1                         
019834,003468:    4407           60154                           AD       MPAC                                  
019835,003469:    4410           26154                           ADS      MPAC                                  
019836,003470:    4411           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
019837,003471:    4412           00002                           TC       Q                                     #  NO NET OF/UF
019838,003472:    4413           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/- 1 FOR OF/UF
019839,003473:    4414           00002                           TC       Q                                     
019840,003474: 
019841,003475:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
019842,003476:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
019843,003477:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
019844,003478:                                                                                                  #  SETTING RESULT TO -0.
019845,003479: 
019846,003480:                                                                                                  #  (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
019847,003481:                                                                                                  #  WHEN THEY CONTAIN THE SF CONSTANTS.)
019848,003482: 
019849,003483:    4415           54135        PRSHRTMP           TS       MPTEMP                                
019850,003484:    4416           10000                           CCS      A                                     
019851,003485:    4417           30135                           CA       MPTEMP                                #  C(A) +, DO REGULAR SHORTMP
019852,003486:    4420           17313                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
019853,003487:    4421           14417                           TCF      -2                                    #  C(A) -, DO REGULAR SHORTMP
019854,003488:    4422           44755                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
019855,003489:    4423           54154                           TS       MPAC                                  
019856,003490:    4424           54155                           TS       MPAC       +1                         
019857,003491:    4425           54156                           TS       MPAC       +2                         
019858,003492:    4426           00002                           TC       Q                                     
019859,003493: 
019860,003494:    4427           34746        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
019861,003495:    4430           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
019862,003496:    4431           05011                           WOR      DSALMOUT                              
019863,003497:    4432           00002                           TC       Q                                     
019864,003498: 
019865,003499:    4433           44746        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
019866,003500:    4434           00006                           EXTEND                                         
019867,003501:    4435           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
019868,003502:    4436           00002                           TC       Q                                     
019869,003503: 

Page 467

019871,003505:                                                                                                  #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
019872,003506: 
019873,003507:                                                                                                  #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
019874,003508:                                                                                                  #  CONFUSION TO OPERATOR.  THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
019875,003509:                                                                                                  #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
019876,003510:                                                                                                  #  OFFERED.
019877,003511: 
019878,003512:                                                                                                  #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
019879,003513:                                                                                                  #  PROGRAM.      1)      BY ENDIDLE
019880,003514:                                                                                                  #                2)      BY NVSUBUSY
019881,003515:                                                                                                  #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
019882,003516:                                                                                                  #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME.  IF A JOB ATTEMPTS TO GO TO
019883,003517:                                                                                                  #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY AJOB ASLEEP THAT WAS
019884,003518:                                                                                                  #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
019885,003519: 
019886,003520:                                                                                                  #  THE CALLING SEQUENCE FOR NVSUB IS
019887,003521:                                                                                                  #                        CAF             V/N
019888,003522:                                                                                                  #        L               TC              NVSUB
019889,003523:                                                                                                  #        L+1             RETURN HERE IF OPERATOR HAS INTERVENED
019890,003524:                                                                                                  #        L+2             RETURN HERE AFTER EXECUTION
019891,003525: 
019892,003526:                                                                                                  #  A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
019893,003527:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
019894,003528:                                                                                                  #  SYSTEM.  NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
019895,003529:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
019896,003530:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
019897,003531: 
019898,003532:                                                                                                  #  THE CALLING SEQUENCE IS
019899,003533:                                                                                                  #        CAF     WAKEFCADR
019900,003534:                                                                                                  #        TC      NVSUBUSY
019901,003535: 
019902,003536: 
019903,003537:                                                                                                  #  .
019904,003538: 
019905,003539: 
019906,003540:                                                                                                  #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
019907,003541:                                                                                                  #  IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
019908,003542:                                                                                                  #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL 
019909,003543:                                                                                                  #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
019910,003544: 
019911,003545:                                                                                                  #  NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
019912,003546:                                                                                                  #  SLEEP IN PINBALL.  IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
019913,003547:                                                                                                  #  WHEN
019914,003548: 
019915,003549:                                                                                                  #        1)      DSPLIST NOT= +0.  THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
019916,003550:                                                                                                  #                IS EXCEEDED.
019917,003551:                                                                                                  #        2)      CADRSTOR NOT= +0.  THIS INDICATES THAT A JOB IS ALREADY USING

Page 468

019919,003553:                                                                                                  #  ENDIDLE.  (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
019920,003554: 
019921,003555:    4437           44444        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
019922,003556:    4440           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF (LOC
019923,003557:    4441           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
019924,003558:    4442           04635        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
019925,003559:    4443           10633                           CADR     NVSUBSY1                              
019926,003560:    4444           02003        2K+3               OCT      2003                                  
019927,003561: 
019928,003562:                                                                                                  #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
019929,003563:                                                                                                  #  WITH HIS PROPER SUPERBITS.
019930,003564: 
019931,003565: 04,2633                                           SETLOC   ENDSPMM    +1                         
019932,003566: 04,2633                                           COUNT*   $$/PIN                                
019933,003567: 04,2633           54001        NVSUBSY1           TS       L                                     
019934,003568: 04,2634           04220                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
019935,003569: 04,2635           04224                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
019936,003570: 04,2636           04374                           TC       RELDSPON                              
019937,003571: 04,2637           30001                           CA       L                                     
019938,003572: 04,2640           55042                           TS       DSPLIST                               
019939,003573: 04,2641           05133        ENDNVBSY           TC       JOBSLEEP                              
019940,003574: 
019941,003575:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
019942,003576:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
019943,003577:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE).  IF SYSTEM IS BUSY, IT PUTS CALLING JOB
019944,003578:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
019945,003579:                                                                                                  #  IS NOT BUSY.
019946,003580: 
019947,003581:    4445                                           SETLOC   NVSUBUSY   +3                         
019948,003582:    4445                                           COUNT*   $$/PIN                                
019949,003583:    4445           22007        NVSBWAIT           LXCH     7                                     #  ZERO NVMONOPT OPTIONS
019950,003584:    4446           54123                           TS       NVTEMP                                
019951,003585:    4447           34736                           CAF      BIT14                                 
019952,003586:    4450           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
019953,003587:    4451           61011                           AD       DSPLOCK                               
019954,003588:    4452           10000                           CCS      A                                     
019955,003589:    4453           14455                           TCF      NVSBWT1                               #  BUSY
019956,003590:    4454           14164                           TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
019957,003591:                                                                                                  #  AFTER EXECUTION.
019958,003592:    4455           24002        NVSBWT1            INCR     Q                                     #  L+2.  PRENVBSY WILL PUT L-1 INTO LIST AND
019959,003593:    4456           14437                           TCF      PRENVBSY                              #  GO TO SLEEP.
019960,003594: 
019961,003595:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
019962,003596:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
019963,003597: 
019964,003598:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
019965,003599: 
019966,003600:    4457           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
019967,003601:    4460           54144                           TS       RELRET                                #  OFF, SEARCH DSPLIST
019968,003602:    4461           44736                           CS       BIT14                                 

Page 469

019970,003604:    4462           00004                           INHINT                                         
019971,003605:    4463           71020                           MASK     MONSAVE1                              
019972,003606:    4464           55020                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
019973,003607:    4465           11042                           CCS      DSPLIST                               
019974,003608:    4466           04470                           TC       +2                                    
019975,003609:    4467           04473                           TC       RELDSP2                               #  LIST EMPTY
019976,003610:    4470           34755                           CAF      ZERO                                  
019977,003611:    4471           57042                           XCH      DSPLIST                               
019978,003612:    4472           05137                           TC       JOBWAKE                               
019979,003613:    4473           00003        RELDSP2            RELINT                                         
019980,003614:    4474           44747                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
019981,003615:    4475           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
019982,003616:    4476           03011                           WAND     DSALMOUT                              
019983,003617:    4477           34755                           CAF      ZERO                                  
019984,003618:    4500           55011                           TS       DSPLOCK                               
019985,003619:    4501           00144                           TC       RELRET                                
019986,003620:    4502           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0.  NO DSPLIST SEARCH.
019987,003621:    4503           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
019988,003622:                                                                                                  #  EMPTY.  LEAVE KEY RLSE LIGHT ALONE IF 
019989,003623:                                                                                                  #  DSPLIST IS NOT EMPTY.
019990,003624:    4504           11042                           CCS      DSPLIST                               
019991,003625:    4505           04507                           TC       +2                                    #  +     NOT EMPTY.  LEAVE KEY RLSE LIGHT ALONE
019992,003626:    4506           04473                           TC       RELDSP2                               #  +0    EMPTY.  TURN OFF KEY RLSE LIGHT
019993,003627:    4507           34755                           CAF      ZERO                                  #  -     NOT EMPTY.  LEAVE KEY RLSE LIGHT ALONE
019994,003628:    4510           55011                           TS       DSPLOCK                               
019995,003629:    4511           00144                           TC       RELRET                                
019996,003630: 
019997,003631:    4512                        ENDPINBF           EQUALS                                         
019998,003632: 

Page 470

020000,003634:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
020001,003635: 
020002,003636:    4512  43,2002               PINTEST            EQUALS   LST2FAN                               
020003,003637: 

Page 471

020005,003639:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS.  AFTER 5 SEC, IT TURNS
020006,003640:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
020007,003641: 
020008,003642: 41,3626                                           SETLOC   ENDNVSB1   +1                         
020009,003643: 
020010,003644: 41,3626                                           COUNT*   $$/PIN                                
020011,003645: 41,3626           00004        VBTSTLTS           INHINT                                         
020012,003646: 41,3627           04616                           TC       BANKCALL                              #  OPP ERR IF NOT IN POO
020013,003647: 41,3630           66121                           CADR     CHKPOOH                               
020014,003648: 41,3631           44753                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
020015,003649: 41,3632           71300                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
020016,003650: 41,3633           64753                           AD       BIT1                                  
020017,003651: 41,3634           55300                           TS       IMODES33                              
020018,003652: 
020019,003653: 41,3635           33674                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
020020,003654: 41,3636           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
020021,003655: 41,3637           05011                           WOR      DSALMOUT                              
020022,003656: 41,3640           33675                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
020023,003657: 41,3641           55035                           TS       DSPTAB     +11D                       #  PROG ALM.
020024,003658: 41,3642           06022                           TC       C13STALL                              
020025,003659: 41,3643           34742                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
020026,003660: 41,3644           00006                           EXTEND                                         
020027,003661: 41,3645           05013                           WOR      CHAN13                                
020028,003662: 41,3646           34363                           CAF      TEN                                   
020029,003663: 41,3647           54117        TSTLTS1            TS       ERCNT                                 
020030,003664: 41,3650           43672                           CS       FULLDSP                               
020031,003665: 41,3651           50117                           INDEX    ERCNT                                 
020032,003666: 41,3652           55022                           TS       DSPTAB                                
020033,003667: 41,3653           10117                           CCS      ERCNT                                 
020034,003668: 41,3654           03647                           TC       TSTLTS1                               
020035,003669: 41,3655           43673                           CS       FULLDSP1                              
020036,003670: 41,3656           55023                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
020037,003671: 41,3657           55026                           TS       DSPTAB     +4                         
020038,003672: 41,3660           55030                           TS       DSPTAB     +6                         
020039,003673: 41,3661           34760                           CAF      ELEVEN                                
020040,003674: 41,3662           55015                           TS       NOUT                                  
020041,003675: 41,3663           00003                           RELINT                                         
020042,003676: 41,3664           33677                           CAF      SHOLTS                                
020043,003677: 41,3665           00004                           INHINT                                         
020044,003678: 41,3666           05203                           TC       WAITLIST                              
020045,003679: 41,3667     1022                                  EBANK=   DSPTAB                                
020046,003680: 41,3667           03700 62102                     2CADR    TSTLTS2                               
020047,003681: 
020048,003682: 41,3671           05155                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
020049,003683:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
020050,003684:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
020051,003685: 
020052,003686: 41,3672           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
020053,003687: 41,3673           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
020054,003688: 

Page 472

020056,003690: 41,3674           00175        TSTCON1            OCT      00175                                 
020057,003691:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
020058,003692:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
020059,003693: 41,3675           40674        TSTCON2            OCT      40674                                 #  DSPTAB+11D BITS 3,4,5,6,8,9. LR LITES,
020060,003694:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
020061,003695: 41,3676           00115        TSTCON3            OCT      0115                                  #  CHAN 11 BITS 1,3, 4, 7.
020062,003696:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
020063,003697: 41,3677           00764        SHOLTS             OCT      764                                   #  5 SEC
020064,003698: 
020065,003699: 41,3700           34355        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
020066,003700: 41,3701           05072                           TC       NOVAC                                 
020067,003701: 41,3702     1022                                  EBANK=   DSPTAB                                
020068,003702: 41,3702           03705 62102                     2CADR    TSTLTS3                               
020069,003703: 
020070,003704: 41,3704           05261                           TC       TASKOVER                              
020071,003705: 
020072,003706: 41,3705           43676        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
020073,003707: 41,3706           00004                           INHINT                                         
020074,003708: 41,3707           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY, TEMP,
020075,003709: 41,3710           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
020076,003710: 41,3711           06022                           TC       C13STALL                              
020077,003711: 41,3712           44742                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
020078,003712: 41,3713           00006                           EXTEND                                         
020079,003713: 41,3714           03013                           WAND     CHAN13                                
020080,003714: 41,3715           34750                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
020081,003715: 41,3716           00006                           EXTEND                                         #        (NO ATT LIGHT ON IF IN COARSE ALIGN)
020082,003716: 41,3717           02012                           RAND     CHAN12                                
020083,003717: 41,3720           64735                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
020084,003718: 41,3721           55035                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
020085,003719: 41,3722           43745                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
020086,003720: 41,3723           71300                           MASK     IMODES33                              #  LIGHTS COMPLETE.
020087,003721: 41,3724           65026                           AD       PRIO16                                
020088,003722: 41,3725           55300                           TS       IMODES33                              
020089,003723: 
020090,003724: 41,3726           43747                           CS       OCT55000                              
020091,003725: 41,3727           71277                           MASK     IMODES30                              
020092,003726: 41,3730           65025                           AD       PRIO15                                #  15000.
020093,003727: 41,3731           55277                           TS       IMODES30                              
020094,003728: 
020095,003729: 41,3732           43746                           CS       RFAILS2                               
020096,003730: 41,3733           70110                           MASK     RADMODES                              
020097,003731: 41,3734           64745                           AD       RCDUFBIT                              
020098,003732: 41,3735           54110                           TS       RADMODES                              
020099,003733: 
020100,003734: 41,3736           00003                           RELINT                                         
020101,003735: 
020102,003736: 41,3737           04616                           TC       BANKCALL                              #  REDISPLAY C(MODREG)
020103,003737: 41,3740           10622                           CADR     DSPMM                                 

Page 473

020105,003739: 41,3741           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
020106,003740: 41,3742           04433                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
020107,003741: 41,3743           04635                           TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
020108,003742: 41,3744           61534                           CADR     TSTLTS4                               #  ENDIDLE IS AWAITING OPERATOR RESPONSE.
020109,003743: 41,3745           16001        13-11,1            OCT      16001                                 
020110,003744: 41,3746           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
020111,003745: 41,3747           55000        OCT55000           OCT      55000                                 
020112,003746: 41,3750                        ENDPINS2           EQUALS                                         
020113,003747: 

Page 474

020115,003749:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
020116,003750:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
020117,003751:                                                                                                  #  PROG ALM, TRACKER FAIL.
020118,003752: 
020119,003753:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
020120,003754:                                                                                                  #  
020121,003755:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY, RESTART.
020122,003756:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
020123,003757:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
020124,003758: 
020125,003759: 40,3646                                           SETLOC   DOPROC     +2                         
020126,003760: 40,3646                                           COUNT*   $$/PIN                                
020127,003761: 40,3646           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK).  THUS ERROR
020128,003762: 40,3647           55011                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
020129,003763: 40,3650           00004                           INHINT                                         
020130,003764: 40,3651           34742                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
020131,003765: 40,3652           00006                           EXTEND                                         
020132,003766: 40,3653           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
020133,003767: 40,3654           33735                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
020134,003768: 40,3655           71035                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
020135,003769: 40,3656           64735                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
020136,003770: 40,3657           55035                           TS       DSPTAB     +11D                       
020137,003771: 40,3660           45026                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
020138,003772: 40,3661           71300                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
020139,003773: 40,3662           65026                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
020140,003774: 40,3663           55300                           TS       IMODES33                              
020141,003775: 40,3664           44742                           CS       BIT10                                 
020142,003776: 40,3665           71277                           MASK     IMODES30                              
020143,003777: 40,3666           64742                           AD       BIT10                                 
020144,003778: 40,3667           55277                           TS       IMODES30                              
020145,003779: 
020146,003780: 40,3670           43734                           CS       RFAILS                                
020147,003781: 40,3671           70110                           MASK     RADMODES                              
020148,003782: 40,3672           64745                           AD       RCDUFBIT                              
020149,003783: 40,3673           54110                           TS       RADMODES                              
020150,003784: 
020151,003785: 40,3674           06022                           TC       C13STALL                              
020152,003786: 40,3675           44742                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
020153,003787: 40,3676           00006                           EXTEND                                         
020154,003788: 40,3677           03013                           WAND     CHAN13                                
020155,003789: 40,3700           43733                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
020156,003790: 40,3701           00006                           EXTEND                                         #  OPERATOR ERROR.
020157,003791: 40,3702           03011                           WAND     DSALMOUT                              
020158,003792: 40,3703           34363        TSTAB              CAF      BINCON                                #  (DEC 10)
020159,003793: 40,3704           54117                           TS       ERCNT                                 #  ERCNT = COUNT
020160,003794: 40,3705           00004                           INHINT                                         
020161,003795: 40,3706           50117                           INDEX    ERCNT                                 
020162,003796: 40,3707           11022                           CCS      DSPTAB                                
020163,003797: 40,3710           64753                           AD       ONE                                   
020164,003798: 40,3711           03716                           TC       ERPLUS                                
020165,003799: 40,3712           64753                           AD       ONE                                   
020166,003800: 40,3713           40000        ERMINUS            CS       A                                     

Page 475

020168,003802: 40,3714           73736                           MASK     NOTBIT12                              
020169,003803: 40,3715           03721                           TC       ERCOM                                 
020170,003804: 40,3716           40000        ERPLUS             CS       A                                     
020171,003805: 40,3717           73736                           MASK     NOTBIT12                              
020172,003806: 40,3720           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
020173,003807: 40,3721           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
020174,003808: 40,3722           55022                           TS       DSPTAB                                
020175,003809: 40,3723           00003                           RELINT                                         
020176,003810: 40,3724           10117                           CCS      ERCNT                                 
020177,003811: 40,3725           03704                           TC       TSTAB      +1                         
020178,003812: 40,3726           34755                           CAF      ZERO                                  
020179,003813: 40,3727           54375                           TS       FAILREG                               
020180,003814: 40,3730           54376                           TS       FAILREG    +1                         
020181,003815: 40,3731           55357                           TS       SFAIL                                 
020182,003816: 40,3732           05155                           TC       ENDOFJOB                              
020183,003817: 
020184,003818: 40,3733           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
020185,003819:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
020186,003820: 40,3734           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
020187,003821: 40,3735           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS
020188,003822: 40,3736           73777        NOTBIT12           OCT      73777                                 
020189,003823: 
020190,003824: 40,3737                        ENDPINS1           EQUALS                                         
020191,003825: 
020192,003826: 40,3737  30,2000                                  SBANK=   LOWSUPER                              
020193,003827: 

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