Source Code

These source-code files are part of a reconstructed copy of Luminary 178, the final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Zerlina 56, Luminary 210, and Luminary 131, previously transcribed from digitized copies of those programs. The code was created by combining the three, using Zerlina 56 as a base, since it was based off of Luminary 183. The differences between the three were carefully merged using the Luminary memos as a guide, with all changes made after Luminary 178 being backed out. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 178 listing would be different.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

016956,000002:                                                                                                  ## Copyright:   Public domain.
016957,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
016958,000004:                                                                                                  ## Purpose:     A section of Luminary revision 178.
016959,000005:                                                                                                  ##              It is part of the reconstructed source code for the final
016960,000006:                                                                                                  ##              release of the flight software for the Lunar Module's
016961,000007:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
016962,000008:                                                                                                  ##              code has been recreated from copies of Zerlina 56, Luminary
016963,000009:                                                                                                  ##              210, and Luminary 131, as well as many Luminary memos.
016964,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
016965,000011:                                                                                                  ##              exactly match those specified for Luminary 178 in NASA
016966,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
016967,000013:                                                                                                  ##              that the reconstruction is correct.
016968,000014:                                                                                                  ## Reference:   pp. 395-479
016969,000015:                                                                                                  ## Assembler:   yaYUL
016970,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
016971,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
016972,000018:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Zerlina 56.
016973,000019:                                                                                                  ##              2019-09-04 MAS  Updated for Luminary 178. Removed scaling
016974,000020:                                                                                                  ##                              of RR range data, as well as Zerlina-
016975,000021:                                                                                                  ##                              specific modification of 2INTOUT and
016976,000022:                                                                                                  ##                              commenting out of DSPDECNR.
016977,000023: 

Page 395

016979,000025:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
016980,000026:                                                                                                  #  MOD NO - 4      DATE - 27 APRIL 1967      ASSEMBLY - PINDANCE REV 18
016981,000027:                                                                                                  #  MOD BY - FILENE
016982,000028:                                                                                                  #  LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
016983,000029: 
016984,000030:                                                                                                  #  FUNCTIONAL DESCRIPTION-
016985,000031: 
016986,000032:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
016987,000033:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
016988,000034:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
016989,000035:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
016990,000036:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
016991,000037:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
016992,000038:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
016993,000039:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
016994,000040:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
016995,000041: 
016996,000042:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
016997,000043:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
016998,000044:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
016999,000045:                                                                                                  #  :EXTENDED VERBS:).
017000,000046:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
017001,000047:                                                                                                  #  OPERATION INFORMATION:.
017002,000048: 
017003,000049: 
017004,000050:                                                                                                  #  CALLING SEQUENCES-
017005,000051: 
017006,000052:                                                                                                  #  KEYBOARD:
017007,000053:                                                                                                  #     EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
017008,000054:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
017009,000055:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
017010,000056:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
017011,000057: 
017012,000058:                                                                                                  #  UPLINK:
017013,000059:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
017014,000060:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
017015,000061:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
017016,000062: 
017017,000063:                                                                                                  #  INTERNAL PROGRAMS:
017018,000064:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
017019,000065:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
017020,000066:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
017021,000067:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
017022,000068: 
017023,000069: 
017024,000070:                                                                                                  #  NORMAL EXIT MODES-
017025,000071: 
017026,000072:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
017027,000073:                                                                                                  #           1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
017028,000074:                                                                                                  #           2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE

Page 396

017030,000076:                                                                                                  #              PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
017031,000077:                                                                                                  #              RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
017032,000078:                                                                                                  #              CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
017033,000079:                                                                                                  #              ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
017034,000080:                                                                                                  #           3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
017035,000081:                                                                                                  #              SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
017036,000082:                                                                                                  #              30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
017037,000083:                                                                                                  #           4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
017038,000084:                                                                                                  #              ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
017039,000085:                                                                                                  #              THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
017040,000086: 
017041,000087:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
017042,000088:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
017043,000089:                                                                                                  #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
017044,000090: 
017045,000091: 
017046,000092:                                                                                                  #  ALARM OR ABORT EXIT MODES-
017047,000093: 
017048,000094:                                                                                                  #  EXTERNAL INITIATION:
017049,000095:                                                                                                  #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
017050,000096:                                                                                                  #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
017051,000097: 
017052,000098:                                                                                                  #  INTERNAL PROGRAM INITIATION:
017053,000099:                                                                                                  #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
017054,000100:                                                                                                  #  (WITH OCTAL 01501).
017055,000101:                                                                                                  #     IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
017056,000102:                                                                                                  #  CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
017057,000103:                                                                                                  #           1) ENDIDLE OR DATAWAIT.
017058,000104:                                                                                                  #           2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
017059,000105: 
017060,000106:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
017061,000107:                                                                                                  #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
017062,000108: 
017063,000109: 
017064,000110:                                                                                                  #  OUTPUT-
017065,000111: 
017066,000112:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
017067,000113:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
017068,000114:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
017069,000115:                                                                                                  #  IN INTERRUPT.
017070,000116: 
017071,000117: 
017072,000118:                                                                                                  #  ERASABLE INITIALIZATION-
017073,000119: 
017074,000120:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
017075,000121:                                                                                                  #  PINBALL IN :STARTSUB:.   REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
017076,000122:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
017077,000123:                                                                                                  #  DSPCOUNT, NOUT.
017078,000124: 
017079,000125:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR

Page 397

017081,000127:                                                                                                  #  PINBALL IS GIVEN BELOW.
017082,000128: 
017083,000129: 
017084,000130:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
017085,000131: 
017086,000132:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
017087,000133:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
017088,000134: 
017089,000135:                                                                                                  #     NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
017090,000136:                                                                                                  #               OF RELATED INTEREST   NVSBWAIT
017091,000137:                                                                                                  #                                     NVSUBUSY
017092,000138:                                                                                                  #                                     PRENVBSY
017093,000139: 
017094,000140:                                                                                                  #     ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
017095,000141:                                                                                                  #               AWAITING OPERATORS RESPONSE.
017096,000142: 
017097,000143:                                                                                                  #     DSPMM   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
017098,000144:                                                                                                  #             PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
017099,000145:                                                                                                  #             (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
017100,000146:                                                                                                  #             FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
017101,000147: 
017102,000148:                                                                                                  #     BLANKSUB   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
017103,000149:                                                                                                  #                COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
017104,000150: 
017105,000151:                                                                                                  #     JAMTERM   ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
017106,000152:                                                                                                  #     JAMPROC   TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
017107,000153: 
017108,000154:                                                                                                  #     MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
017109,000155: 
017110,000156:                                                                                                  #     PLEASE PERFORM, PLEASE MARK SITUATIONS
017111,000157:                                                                                                  #                  REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
017112,000158:                                                                                                  #                  THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
017113,000159:                                                                                                  #                  SYMBOL TABLE FOR PAGE NUMBER).
017114,000160: 
017115,000161:                                                                                                  #     THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
017116,000162:                                                                                                  #     BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
017117,000163: 
017118,000164:                                                                                                  #     THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
017119,000165:                                                                                                  #     TABLES:.
017120,000166: 
017121,000167: 
017122,000168:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
017123,000169:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
017124,000170:                                                                                                  #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.

(Note that this doc by Green and Filene is/was available online at http://www.ibiblio.org/apollo/hrst/archive/1706.pdf --- MAS 11/2016.)

017127,000173: 
017128,000174: 
017129,000175:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
017130,000176: 
017131,000177:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
017132,000178:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO

Page 398

017134,000180:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
017135,000181: 
017136,000182:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4
017137,000183: 
017138,000184: 
017139,000185:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
017140,000186: 
017141,000187: 
017142,000188:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
017143,000189: 
017144,000190:                                                                                                  #  DSPCOUNT ERASE                  DISPLAY POSITION INDICATOR
017145,000191:                                                                                                  #  DECBRNCH ERASE                  +DEC, - DEC, OCT INDICATOR
017146,000192:                                                                                                  #  VERBREG  ERASE                  VERB CODE
017147,000193:                                                                                                  #  NOUNREG  ERASE                  NOUN CODE
017148,000194:                                                                                                  #  XREG     ERASE                  R1 INPUT BUFFER
017149,000195:                                                                                                  #  YREG     ERASE                  R2 INPUT BUFFER
017150,000196:                                                                                                  #  ZREG     ERASE                  R3 INPUT BUFFER
017151,000197:                                                                                                  #  XREGLP   ERASE                  LO PART OF XREG (FOR DEC CONV ONLY)
017152,000198:                                                                                                  #  YREGLP   ERASE                  LO PART OF YREG (FOR DEC CONV ONLY)
017153,000199:                                                                                                  #  HITEMOUT =      YREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
017154,000200:                                                                                                  #                                           MUST = LOTEMOUT-1.
017155,000201:                                                                                                  #  ZREGLP   ERASE                  LO PART OF ZREG (FOR DEC CONV ONLY)
017156,000202:                                                                                                  #  LOTEMOUT =      ZREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
017157,000203:                                                                                                  #                                           MUST = HITEMOUT+1.
017158,000204:                                                                                                  #  MODREG   ERASE                  MODE CODE
017159,000205:                                                                                                  #  DSPLOCK  ERASE                  KEYBOARD/SUBROUTINE CALL INTERLOCK
017160,000206:                                                                                                  #  REQRET   ERASE                  RETURN REGISTER FOR LOAD
017161,000207:                                                                                                  #  LOADSTAT ERASE                  STATUS INDICATOR FOR LOADTST
017162,000208:                                                                                                  #  CLPASS   ERASE                  PASS INDICATOR CLEAR
017163,000209:                                                                                                  #  NOUT     ERASE                  ACTIVITY COUNTER FOR DSPTAB
017164,000210:                                                                                                  #  NOUNCADR ERASE                  MACHINE CADR FOR NOUN
017165,000211:                                                                                                  #  MONSAVE  ERASE                  N/V CODE FOR MONITOR. (= MONSAVE1-1)
017166,000212:                                                                                                  #  MONSAVE1 ERASE                  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
017167,000213:                                                                                                  #  MONSAVE2 ERASE                  NVMONOPT OPTIONS
017168,000214:                                                                                                  #  DSPTAB   ERASE          +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
017169,000215:                                                                                                  #  CADRSTOR ERASE                  ENDIDLE STORAGE
017170,000216:                                                                                                  #  NVQTEM   ERASE                  NVSUB STORAGE FOR CALLING ADDRESS
017171,000217:                                                                                                  #                                  MUST = NVBNKTEM-1
017172,000218:                                                                                                  #  NVBNKTEM ERASE                  NVSUB STORAGE FOR CALLING BANK
017173,000219:                                                                                                  #                                  MUST = NVQTEM+1
017174,000220:                                                                                                  #  VERBSAVE ERASE                  NEEDED FOR RECYCLE
017175,000221:                                                                                                  #  DSPLIST  ERASE                  WAITING REG FOR DSP SYST INTERNAL USE
017176,000222:                                                                                                  #  EXTVBACT REASE                  EXTENDED VERB ACTIVITY INTERLOCK
017177,000223:                                                                                                  #  DSPTEM1  ERASE          +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
017178,000224:                                                                                                  #  DSPTEM2  ERASE          +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
017179,000225:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
017180,000226: 
017181,000227: 
017182,000228:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION

Page 399

017184,000230:                                                                                                  #  DSEXIT   =      INTB15+         RETURN FOR DSPIN
017185,000231:                                                                                                  #  EXITEM   =      INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
017186,000232:                                                                                                  #  BLANKRET =      INTB15+         RETURN FOR 2BLANK
017187,000233: 
017188,000234:                                                                                                  #  WRDRET   =      INTBIT15        RETURN FOR 5BLANK
017189,000235:                                                                                                  #  WDRET    =      INTBIT15        RETURN FOR DSPWD
017190,000236:                                                                                                  #  DECRET   =      INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
017191,000237:                                                                                                  #  21/22REG =      INTBIT15        TEMP FOR CHARIN
017192,000238: 
017193,000239:                                                                                                  #  UPDATRET =      POLISH          RETURN FOR UPDATNN, UPDATVB
017194,000240:                                                                                                  #  CHAR     =      POLISH          TEMP FOR CHARIN
017195,000241:                                                                                                  #  ERCNT    =      POLISH          COUNTER FOR ERROR LIGHT RESET
017196,000242:                                                                                                  #  DECOUNT  =      POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
017197,000243: 
017198,000244:                                                                                                  #  SGNON    =      VBUF            TEMP FOR +,- ON
017199,000245:                                                                                                  #  NOUNTEM  =      VBUF            COUNTER FOR MIXNOUN FETCH
017200,000246:                                                                                                  #  DISTEM   =      VBUF            COUNTER FOR OCTAL DISPLAY VERBS
017201,000247:                                                                                                  #  DECTEM   =      VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
017202,000248: 
017203,000249:                                                                                                  #  SGNOFF   =      VBUF    +1      TEMP FOR +,- ON
017204,000250:                                                                                                  #  NVTEMP   =      VBUF    +1      TEMP FOR NVSUB
017205,000251:                                                                                                  #  SFTEMP1  =      VBUF    +1      STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
017206,000252:                                                                                                  #  HITEMIN  =      VBUF    +1      TEMP FOR LOAD OF HRS, MIN, SEC
017207,000253:                                                                                                  #                                           MUST = LOTEMIN-1.
017208,000254:                                                                                                  #  CODE     =      VBUF    +2      FOR DSPIN
017209,000255:                                                                                                  #  SFTEMP2  =      VBUF    +2      STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
017210,000256:                                                                                                  #  LOTEMIN  =      VBUF    +2      TEMP FOR LOAD OF HRS, MIN, SEC
017211,000257:                                                                                                  #                                           MUST = HITEMIN+1.
017212,000258:                                                                                                  #  MIXTEMP  =      VBUF    +3      FOR MIXNOUN DATA
017213,000259:                                                                                                  #  SIGNRET  =      VBUF    +3      RETURN FOR +,- ON
017214,000260: 
017215,000261:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
017216,000262: 
017217,000263:                                                                                                  #  ENTRET   =      DOTINC          EXIT FROM ENTER
017218,000264: 
017219,000265:                                                                                                  #  WDCNT    =      DOTRET          CHAR COUNTER FOR DSPWD
017220,000266:                                                                                                  #  INREL    =      DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
017221,000267: 
017222,000268:                                                                                                  #  DSPMMTEM =      MATINC          DSPCOUNT SAVE FOR DSPMM
017223,000269:                                                                                                  #  MIXBR    =      MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
017224,000270: 
017225,000271:                                                                                                  #  TEM1     ERASE                  EXEC TEMP
017226,000272:                                                                                                  #  DSREL    =      TEM1            REL ADDRESS FOR DSPIN
017227,000273: 
017228,000274:                                                                                                  #  TEM2     ERASE                  EXEC TEMP
017229,000275:                                                                                                  #  DSMAG    =      TEM2            MAGNITUDE STORE FOR DSPIN
017230,000276:                                                                                                  #  IDADDTEM =      TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
017231,000277: 
017232,000278:                                                                                                  #  TEM3     ERASE                  EXEC TEMP
017233,000279:                                                                                                  #  COUNT    =      TEM3            FOR DSPIN
017234,000280: 

Page 400

017236,000282:                                                                                                  #  TEM4     ERASE                  EXEC TEMP
017237,000283:                                                                                                  #  LSTPTR   =      TEM4            LIST POINTER FOR GRABUSY
017238,000284:                                                                                                  #  RELRET   =      TEM4            RETURN FOR RELDSP
017239,000285:                                                                                                  #  FREERET  =      TEM4            RETURN FOR FREEDSP
017240,000286:                                                                                                  #  DSPWDRET =      TEM4            RETURN FOR DSPSIGN
017241,000287:                                                                                                  #  SEPSCRET =      TEM4            RETURN FOR SEPSEC
017242,000288:                                                                                                  #  SEPMNRET =      TEM4            RETURN FOR SEPMIN
017243,000289: 
017244,000290:                                                                                                  #  TEM5     ERASE                  EXEC TEMP
017245,000291:                                                                                                  #  NOUNADD  =      TEM5            TEMP STORAGE FOR NOUN ADDRESS
017246,000292: 
017247,000293:                                                                                                  #  NNADTEM  ERASE                  TEMP FOR NOUN ADDRESS TABLE ENTRY
017248,000294:                                                                                                  #  NNTYPTEM ERASE                  TEMP FOR NOUN TYPE TABLE ENTRY
017249,000295:                                                                                                  #  IDAD1TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017250,000296:                                                                                                  #                                  MUST = IDAD2TEM-1, = IDAD3TEM-2.
017251,000297:                                                                                                  #  IDAD2TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017252,000298:                                                                                                  #                                  MUST = IDAD1TEM+1, = IDAD3TEM-1.
017253,000299:                                                                                                  #  IDAD3TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017254,000300:                                                                                                  #                                  MUST = IDAD1TEM+2, = IDAD2TEM+1.
017255,000301:                                                                                                  #  RUTMXTEM ERASE                  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
017256,000302:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017257,000303: 
017258,000304: 
017259,000305:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017260,000306: 
017261,000307:                                                                                                  #  MPAC, THRU MPAC +6
017262,000308:                                                                                                  #  BUF, +1, +2
017263,000309:                                                                                                  #  BUF2, +1, +2
017264,000310:                                                                                                  #  MPTEMP
017265,000311:                                                                                                  #  ADDRWD
017266,000312:                                                                                                  #    END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
017267,000313: 
017268,000314: 
017269,000315:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
017270,000316: 
017271,000317:                                                                                                  #  DSPCNT   ERASE                  COUNTER FOR DSPOUT
017272,000318:                                                                                                  #  UPLOCK   ERASE                  BIT1 = UPLINK INTERLOCK (ACTIVATED BY
017273,000319:                                                                                                  #                                                                          RECEPTION OF A BAD MESSAGE IN UPLINK)
017274,000320:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
017275,000321: 
017276,000322: 
017277,000323:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
017278,000324: 
017279,000325:                                                                                                  #  KEYTEMP1 =      WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
017280,000326:                                                                                                  #  DSRUPTEM =      WAITEXIT        TEMP FOR DSPOUT
017281,000327:                                                                                                  #  KEYTEMP2 =      RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
017282,000328:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
017283,000329: 

Page 401

017285,000331:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
017286,000332:                                                                                                  #  0        10000
017287,000333:                                                                                                  #  1        00001
017288,000334:                                                                                                  #  9        01001
017289,000335:                                                                                                  #  VERB     10001
017290,000336:                                                                                                  #  ERROR RES10010
017291,000337:                                                                                                  #  KEY RLSE 11001
017292,000338:                                                                                                  #  +        11010
017293,000339:                                                                                                  #  -        11011
017294,000340:                                                                                                  #  ENTER    11100
017295,000341:                                                                                                  #  CLEAR    11110
017296,000342:                                                                                                  #  NOUN     11111

(003 RSB — The PROCEED key has no keycode; it is read by an alternate mechanism.

017298,000344: 
017299,000345: 
017300,000346:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
017301,000347:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
017302,000348:                                                                                                  #  ENERGIZED.
017303,000349:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
017304,000350:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
017305,000351:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
017306,000352: 
017307,000353:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
017308,000354:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
017309,000355:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
017310,000356:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
017311,000357:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
017312,000358:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
017313,000359: 
017314,000360:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
017315,000361:                                                                                                  #  MD1   25     R2D1    11       ALL ARE OCTAL
017316,000362:                                                                                                  #  MD2   24     R2D2    10
017317,000363:                                                                                                  #  VD1   23     R2D3    7
017318,000364:                                                                                                  #  VD2   22     R2D4    6
017319,000365:                                                                                                  #  ND1   21     R2D5    5
017320,000366:                                                                                                  #  ND2   20     R3D1    4
017321,000367:                                                                                                  #  R1D1  16     R3D2    3
017322,000368:                                                                                                  #  R1D2  15     R3D3    2
017323,000369:                                                                                                  #  R1D3  14     R3D4    1
017324,000370:                                                                                                  #  R1D4  13     R3D5    0
017325,000371:                                                                                                  #  R1D5  12
017326,000372: 
017327,000373: 
017328,000374:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
017329,000375: 
017330,000376:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
017331,000377:                                                                                                  #  RELADD
017332,000378:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
017333,000379:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)
017334,000380:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
017335,000381:                                                                                                  #  7      1000                                  R1D1 (16)

Page 402

017337,000383:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
017338,000384:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
017339,000385:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
017340,000386:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
017341,000387:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
017342,000388:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
017343,000389:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
017344,000390:                                                                                                  #         0000   NO RELAYWORD
017345,000391: 
017346,000392: 
017347,000393:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
017348,000394:                                                                                                  #  BLANK      00000
017349,000395:                                                                                                  #  0          10101
017350,000396:                                                                                                  #  1          00011
017351,000397:                                                                                                  #  2          11001
017352,000398:                                                                                                  #  3          11011
017353,000399:                                                                                                  #  4          01111
017354,000400:                                                                                                  #  5          11110
017355,000401:                                                                                                  #  6          11100
017356,000402:                                                                                                  #  7          10011
017357,000403:                                                                                                  #  8          11101
017358,000404:                                                                                                  #  9          11111
017359,000405: 
017360,000406: 
017361,000407:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
017362,000408: 
017363,000409:                                                                                                  #             KEY RELEASE LIGHT    - BIT 5 OF CHANNEL 11
017364,000410:                                                                                                  #             VERB/NOUN FLASH      - BIT 6 OF CHANNEL 11
017365,000411:                                                                                                  #             OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
017366,000412: 

Page 403

017368,000414:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
017369,000415: 40,2077                                           BANK     40                                    
017370,000416: 40,2000                                           SETLOC   PINBALL1                              
017371,000417: 40,2000                                           BANK                                           
017372,000418: 
017373,000419: 40,2077                                           COUNT*   $$/PIN                                
017374,000420: 40,2077           34753        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
017375,000421: 40,2100           57011                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
017376,000422: 40,2101           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
017377,000423: 40,2102           11041                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
017378,000424: 40,2103           02105                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
017379,000425: 40,2104           02112                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
017380,000426: 40,2105           42156                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
017381,000427: 40,2106           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
017382,000428: 40,2107           00006                           EXTEND                                         #  VBRELDSP).
017383,000429: 40,2110           12112                           BZF      CHARIN2                               
017384,000430: 40,2111           04374                           TC       RELDSPON                              
017385,000431: 40,2112           56154        CHARIN2            XCH      MPAC                                  
017386,000432: 40,2113           54117                           TS       CHAR                                  
017387,000433: 40,2114           50000                           INDEX    A                                     
017388,000434: 40,2115           02116                           TC       +1                                    #  INPUT CODE     FUNCTION
017389,000435: 40,2116           03477                           TC       CHARALRM                              #  0
017390,000436: 40,2117           02175                           TC       NUM                                   #  1
017391,000437: 40,2120           02175                           TC       NUM                                   #  2
017392,000438: 40,2121           02175                           TC       NUM                                   #  3
017393,000439: 40,2122           02175                           TC       NUM                                   #  4
017394,000440: 40,2123           02175                           TC       NUM                                   #  5
017395,000441: 40,2124           02175                           TC       NUM                                   #  6
017396,000442: 40,2125           02175                           TC       NUM                                   #  7
017397,000443: 40,2126           02161                           TC       89TEST                                #  10                 8
017398,000444: 40,2127           02161                           TC       89TEST                                #  11                 9
017399,000445: 40,2130           03477                           TC       CHARALRM                              #  12
017400,000446: 40,2131           03477                           TC       CHARALRM                              #  13
017401,000447: 40,2132           03477                           TC       CHARALRM                              #  14
017402,000448: 40,2133           03477                           TC       CHARALRM                              #  15
017403,000449: 40,2134           03477                           TC       CHARALRM                              #  16
017404,000450: 40,2135           03477                           TC       CHARALRM                              #  17
017405,000451: 40,2136           02173                           TC       NUM        -2                         #  20                 0
017406,000452: 40,2137           02363                           TC       VERB                                  #  21                 VERB
017407,000453: 40,2140           03655                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
017408,000454: 40,2141           03477                           TC       CHARALRM                              #  23
017409,000455: 40,2142           03477                           TC       CHARALRM                              #  24
017410,000456: 40,2143           03477                           TC       CHARALRM                              #  25
017411,000457: 40,2144           03477                           TC       CHARALRM                              #  26
017412,000458: 40,2145           03477                           TC       CHARALRM                              #  27
017413,000459: 40,2146           03477                           TC       CHARALRM                              #  30
017414,000460: 40,2147           03533                           TC       VBRELDSP                              #  31                 KEY RELEASE
017415,000461: 40,2150           02416                           TC       POSGN                                 #  32                 +

Page 404

017417,000463: 40,2151           02403                           TC       NEGSGN                                #  33                 -
017418,000464: 40,2152           02157                           TC       ENTERJMP                              #  34                 ENTER
017419,000465: 40,2153           03477                           TC       CHARALRM                              #  35
017420,000466: 40,2154           02476                           TC       CLEAR                                 #  36                 CLEAR
017421,000467: 40,2155           02377                           TC       NOUN                                  #  37                 NOUN
017422,000468: 
017423,000469: 
017424,000470: 40,2156           00022        ELRCODE1           OCT      22                                    
017425,000471: 40,2157           04635        ENTERJMP           TC       POSTJUMP                              
017426,000472: 40,2160           62002                           CADR     ENTER                                 
017427,000473: 
017428,000474: 40,2161           10776        89TEST             CCS      DSPCOUNT                              
017429,000475: 40,2162           02166                           TC       +4                                    #  +
017430,000476: 40,2163           02166                           TC       +3                                    #  +0
017431,000477: 40,2164           05155                           TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
017432,000478: 40,2165           05155                           TC       ENDOFJOB                              #  -0
017433,000479: 40,2166           36250                           CAF      THREE                                 
017434,000480: 40,2167           70777                           MASK     DECBRNCH                              
017435,000481: 40,2170           10000                           CCS      A                                     
017436,000482: 40,2171           02175                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
017437,000483: 40,2172           03477                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
017438,000484: 
017439,000485: 
017440,000486:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
017441,000487:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
017442,000488:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
017443,000489:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
017444,000490:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
017445,000491:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
017446,000492: 
017447,000493: 40,2173           34755                           CAF      ZERO                                  
017448,000494: 40,2174           54117                           TS       CHAR                                  
017449,000495: 40,2175           10776        NUM                CCS      DSPCOUNT                              
017450,000496: 40,2176           02202                           TC       +4                                    #  +
017451,000497: 40,2177           02202                           TC       +3                                    #  +0
017452,000498: 40,2200           02201                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
017453,000499: 40,2201           05155                           TC       ENDOFJOB                              #  -0
017454,000500: 40,2202           02333                           TC       GETINREL                              
017455,000501: 40,2203           11014                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
017456,000502: 40,2204           34755                           CAF      ZERO                                  
017457,000503: 40,2205           55014                           TS       CLPASS                                
017458,000504: 40,2206           02207                           TC       +1                                    
017459,000505: 40,2207           50117                           INDEX    CHAR                                  
017460,000506: 40,2210           34066                           CAF      RELTAB                                
017461,000507: 40,2211           74346                           MASK     LOW5                                  
017462,000508: 40,2212           54124                           TS       CODE                                  
017463,000509: 40,2213           30776                           CA       DSPCOUNT                              
017464,000510: 40,2214           54143                           TS       COUNT                                 
017465,000511: 40,2215           03365                           TC       DSPIN                                 
017466,000512: 40,2216           36250                           CAF      THREE                                 

Page 405

017468,000514: 40,2217           70777                           MASK     DECBRNCH                              
017469,000515: 40,2220           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
017470,000516: 40,2221           02232                           TC       DECTOBIN                              #  +
017471,000517: 40,2222           50137                           INDEX    INREL                                 #  +0 OCTAL
017472,000518: 40,2223           57000                           XCH      VERBREG                               
017473,000519: 40,2224           54022                           TS       CYL                                   
017474,000520: 40,2225           40022                           CS       CYL                                   
017475,000521: 40,2226           40022                           CS       CYL                                   
017476,000522: 40,2227           56022                           XCH      CYL                                   
017477,000523: 40,2230           60117                           AD       CHAR                                  
017478,000524: 40,2231           02247                           TC       ENDNMTST                              
017479,000525: 40,2232           50137        DECTOBIN           INDEX    INREL                                 
017480,000526: 40,2233           57000                           XCH      VERBREG                               
017481,000527: 40,2234           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
017482,000528: 40,2235           34755                           CAF      ZERO                                  
017483,000529: 40,2236           54155                           TS       MPAC       +1                         
017484,000530: 40,2237           34363                           CAF      TEN                                   #  10 X 2EXP-14
017485,000531: 40,2240           07312                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
017486,000532: 40,2241           56155                           XCH      MPAC       +1                         
017487,000533: 40,2242           60117                           AD       CHAR                                  
017488,000534: 40,2243           54155                           TS       MPAC       +1                         
017489,000535: 40,2244           02247                           TC       ENDNMTST                              #  NO OF
017490,000536: 40,2245           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
017491,000537: 40,2246           02265                           TC       DECCEND                               
017492,000538: 40,2247           50137        ENDNMTST           INDEX    INREL                                 
017493,000539: 40,2250           55000                           TS       VERBREG                               
017494,000540: 40,2251           40776                           CS       DSPCOUNT                              
017495,000541: 40,2252           50137                           INDEX    INREL                                 
017496,000542: 40,2253           62324                           AD       CRITCON                               
017497,000543: 40,2254           00006                           EXTEND                                         
017498,000544: 40,2255           12257                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
017499,000545: 40,2256           02321                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
017500,000546: 40,2257           36250        ENDNUM             CAF      THREE                                 
017501,000547: 40,2260           70777                           MASK     DECBRNCH                              
017502,000548: 40,2261           10000                           CCS      A                                     
017503,000549: 40,2262           02265                           TC       DECCEND                               
017504,000550: 40,2263           40776        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
017505,000551: 40,2264           02322                           TC       MORNUM     +1                         #  NEGATIVELY
017506,000552: 40,2265           04616        DECCEND            TC       BANKCALL                              
017507,000553: 40,2266           60270                           CADR     DECEND                                
017508,000554: 40,2267           02263                           TC       ENDALL                                
017509,000555: 40,2270           44753        DECEND             CS       ONE                                   
017510,000556: 40,2271           60137                           AD       INREL                                 
017511,000557: 40,2272           00006                           EXTEND                                         
017512,000558: 40,2273           62263                           BZMF     ENDALL                                #  IF INREL=0,1(VBREG,NNREG), LEAVE WHOLE
017513,000559: 40,2274           02333                           TC       GETINREL                              
017514,000560: 40,2275           50137                           INDEX    INREL                                 
017515,000561: 40,2276           31000                           CA       VERBREG                               
017516,000562: 40,2277           54155                           TS       MPAC       +1                         
017517,000563: 40,2300           07106                           TC       DMP                                   #  IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC

Page 406

017519,000565:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
017520,000566: 40,2301           02331                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
017521,000567: 40,2302           36250                           CAF      THREE                                 #  IN MPAC, +1, +2.
017522,000568: 40,2303           70777                           MASK     DECBRNCH                              
017523,000569: 40,2304           50000                           INDEX    A                                     
017524,000570: 40,2305           02305                           TC       +0                                    
017525,000571: 40,2306           02312                           TC       +DECSGN                               
017526,000572: 40,2307           00006                           EXTEND                                         #  - CASE
017527,000573: 40,2310           40156                           DCS      MPAC       +1                         
017528,000574: 40,2311           52156                           DXCH     MPAC       +1                         
017529,000575: 40,2312           56156        +DECSGN            XCH      MPAC       +2                         
017530,000576: 40,2313           50137                           INDEX    INREL                                 
017531,000577: 40,2314           55003                           TS       XREGLP     -2                         
017532,000578: 40,2315           56155                           XCH      MPAC       +1                         
017533,000579: 40,2316           50137                           INDEX    INREL                                 
017534,000580: 40,2317           55000                           TS       VERBREG                               
017535,000581: 40,2320           04631                           TC       SWRETURN                              
017536,000582: 40,2321           10776        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
017537,000583: 40,2322           54776                           TS       DSPCOUNT                              
017538,000584: 40,2323           05155                           TC       ENDOFJOB                              
017539,000585: 
017540,000586: 40,2324           00022        CRITCON            OCT      22                                    #  (DEC 18)
017541,000587: 40,2325           00020                           OCT      20                                    #  (DEC 16)
017542,000588: 40,2326           00012                           OCT      12                                    #  (DEC 10)
017543,000589: 40,2327           00005                           OCT      5                                     
017544,000590: 40,2330           00000                           OCT      0                                     
017545,000591: 
017546,000592: 40,2331           05174 13261  DECON              2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
017547,000593: 
017548,000594: 
017549,000595: 
017550,000596:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
017551,000597:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
017552,000598: 
017553,000599: 40,2333           50776        GETINREL           INDEX    DSPCOUNT                              
017554,000600: 40,2334           32337                           CAF      INRELTAB                              
017555,000601: 40,2335           54137                           TS       INREL                                 #  (A TEMP, REG)
017556,000602: 40,2336           00002                           TC       Q                                     
017557,000603: 
017558,000604: 40,2337           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
017559,000605: 40,2340           00004                           OCT      4                                     #  R3D4           =(1)
017560,000606: 40,2341           00004                           OCT      4                                     #  R3D3           =(2)
017561,000607: 40,2342           00004                           OCT      4                                     #  R3D2           =(3)
017562,000608: 40,2343           00004                           OCT      4                                     #  R3D1           =(4)
017563,000609: 40,2344           00003                           OCT      3                                     #  R2D5           =(5)
017564,000610: 40,2345           00003                           OCT      3                                     #  R2D4           =(6)
017565,000611: 40,2346           00003                           OCT      3                                     #  R2D3           =(7)
017566,000612: 40,2347           00003                           OCT      3                                     #  R2D2           =(8D)
017567,000613: 40,2350           00003                           OCT      3                                     #  R2D1           =(9D)
017568,000614: 40,2351           00002                           OCT      2                                     #  R1D5           =(10D)

Page 407

017570,000616: 40,2352           00002                           OCT      2                                     #  R1D4           =(11D)
017571,000617: 40,2353           00002                           OCT      2                                     #  R1D3           =(12D)
017572,000618: 40,2354           00002                           OCT      2                                     #  R1D2           =(13D)
017573,000619: 40,2355           00002                           OCT      2                                     #  R1D1           =(14D)
017574,000620: 40,2356           05706                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
017575,000621: 40,2357           00001                           OCT      1                                     #  ND2            =(16D)
017576,000622: 40,2360           00001                           OCT      1                                     #  ND1            =(17D)
017577,000623: 40,2361           00000                           OCT      0                                     #  VD2            =(18D)
017578,000624: 40,2362           00000                           OCT      0                                     #  VD1            =(19D)
017579,000625: 
017580,000626: 
017581,000627: 40,2363           34755        VERB               CAF      ZERO                                  
017582,000628: 40,2364           55000                           TS       VERBREG                               
017583,000629: 40,2365           34360                           CAF      VD1                                   
017584,000630: 40,2366           54776        NVCOM              TS       DSPCOUNT                              
017585,000631: 40,2367           02610                           TC       2BLANK                                
017586,000632: 40,2370           34753                           CAF      ONE                                   
017587,000633: 40,2371           54777                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
017588,000634: 40,2372           34755                           CAF      ZERO                                  
017589,000635: 40,2373           55012                           TS       REQRET                                #  SET FOR ENTPAS0
017590,000636: 40,2374           34217                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
017591,000637: 40,2375           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
017592,000638:                                                                                                  #  TO TC ENDOFJOB
017593,000639: 40,2376           05155                           TC       ENDOFJOB                              
017594,000640: 40,2377           34755        NOUN               CAF      ZERO                                  
017595,000641: 40,2400           55001                           TS       NOUNREG                               
017596,000642: 40,2401           34361                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
017597,000643: 40,2402           02366                           TC       NVCOM                                 
017598,000644: 
017599,000645: 
017600,000646: 40,2403           02455        NEGSGN             TC       SIGNTEST                              
017601,000647: 40,2404           02442                           TC       -ON                                   
017602,000648: 40,2405           34752                           CAF      TWO                                   
017603,000649: 40,2406           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
017604,000650: 40,2407           64745                           AD       BIT7                                  #  BIT 5 FOR R1,  BIT 4 FOR R2,
017605,000651: 40,2410           26777                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
017606,000652: 40,2411           11014        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
017607,000653: 40,2412           34755                           CAF      ZERO                                  
017608,000654: 40,2413           55014                           TS       CLPASS                                
017609,000655: 40,2414           02415                           TC       +1                                    
017610,000656: 40,2415           05155                           TC       ENDOFJOB                              
017611,000657: 
017612,000658: 40,2416           02455        POSGN              TC       SIGNTEST                              
017613,000659: 40,2417           02422                           TC       +ON                                   
017614,000660: 40,2420           34753                           CAF      ONE                                   
017615,000661: 40,2421           02406                           TC       BOTHSGN                               
017616,000662: 
017617,000663: 40,2422           22002        +ON                LXCH     Q                                     
017618,000664: 40,2423           02333                           TC       GETINREL                              
017619,000665: 40,2424           50137                           INDEX    INREL                                 

Page 408

017621,000667: 40,2425           32450                           CAF      SGNTAB     -2                         
017622,000668: 40,2426           54123                           TS       SGNOFF                                
017623,000669: 40,2427           64753                           AD       ONE                                   
017624,000670: 40,2430           54122                           TS       SGNON                                 
017625,000671: 40,2431           34755        SGNCOM             CAF      ZERO                                  
017626,000672: 40,2432           54124                           TS       CODE                                  
017627,000673: 40,2433           56123                           XCH      SGNOFF                                
017628,000674: 40,2434           03447                           TC       11DSPIN                               
017629,000675: 40,2435           34741                           CAF      BIT11                                 
017630,000676: 40,2436           54124                           TS       CODE                                  
017631,000677: 40,2437           56122                           XCH      SGNON                                 
017632,000678: 40,2440           03447                           TC       11DSPIN                               
017633,000679: 40,2441           00001                           TC       L                                     
017634,000680: 40,2442           22002        -ON                LXCH     Q                                     
017635,000681: 40,2443           02333                           TC       GETINREL                              
017636,000682: 40,2444           50137                           INDEX    INREL                                 
017637,000683: 40,2445           32450                           CAF      SGNTAB     -2                         
017638,000684: 40,2446           54122                           TS       SGNON                                 
017639,000685: 40,2447           64753                           AD       ONE                                   
017640,000686: 40,2450           54123                           TS       SGNOFF                                
017641,000687: 40,2451           02431                           TC       SGNCOM                                
017642,000688: 
017643,000689: 40,2452           00005        SGNTAB             OCT      5                                     #  -R1
017644,000690: 40,2453           00003                           OCT      3                                     #  -R2
017645,000691: 40,2454           00000                           OCT      0                                     #  -R3
017646,000692: 
017647,000693: 
017648,000694: 40,2455           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
017649,000695: 40,2456           36250                           CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
017650,000696: 40,2457           70777                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
017651,000697: 40,2460           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
017652,000698: 40,2461           05155                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
017653,000699: 40,2462           44317                           CS       R1D1                                  
017654,000700: 40,2463           02471                           TC       SGNTST1                               
017655,000701: 40,2464           44320                           CS       R2D1                                  
017656,000702: 40,2465           02471                           TC       SGNTST1                               
017657,000703: 40,2466           44321                           CS       R3D1                                  
017658,000704: 40,2467           02471                           TC       SGNTST1                               
017659,000705: 40,2470           05155                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
017660,000706: 40,2471           60776        SGNTST1            AD       DSPCOUNT                              
017661,000707: 40,2472           00006                           EXTEND                                         
017662,000708: 40,2473           12475                           BZF      +2                                    #  MATCH FOUND
017663,000709: 40,2474           00002                           TC       Q                                     
017664,000710: 40,2475           00001                           TC       L                                     #  SIGN LEGAL
017665,000711: 
017666,000712: 
017667,000713:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
017668,000714:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
017669,000715:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION

Page 409

017671,000717:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
017672,000718:                                                                                                  #  APPROPRIATE TO BE CLEARED.
017673,000719: 
017674,000720:                                                                                                  #  CLPASS   +0  PASS0, CAN BE BACKED UP
017675,000721:                                                                                                  #           +NZ  HIPASS, CAN BE BACKED UP
017676,000722:                                                                                                  #           -NZ  PASS0, CANNOT BE BACKED UP
017677,000723: 
017678,000724: 40,2476           10776        CLEAR              CCS      DSPCOUNT                              
017679,000725: 40,2477           64753                           AD       ONE                                   
017680,000726: 40,2500           02502                           TC       +2                                    
017681,000727: 40,2501           64753                           AD       ONE                                   
017682,000728: 40,2502           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
017683,000729: 40,2503           32337                           CAF      INRELTAB                              #  FAIL LEGALTST.
017684,000730: 40,2504           54137                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
017685,000731: 40,2505           11014                           CCS      CLPASS                                
017686,000732: 40,2506           02514                           TC       CLPASHI                               #  +
017687,000733: 40,2507           02511                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
017688,000734: 40,2510           02511                           TC       +1                                    #  -
017689,000735: 40,2511           30137                           CA       INREL                                 
017690,000736: 40,2512           02536                           TC       LEGALTST                              
017691,000737: 40,2513           02531                           TC       CLEAR1                                
017692,000738: 40,2514           10137        CLPASHI            CCS      INREL                                 
017693,000739: 40,2515           54137                           TS       INREL                                 
017694,000740: 40,2516           02536                           TC       LEGALTST                              
017695,000741: 40,2517           32606                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
017696,000742: 40,2520           27012                           ADS      REQRET                                
017697,000743: 40,2521           30137                           CA       INREL                                 
017698,000744: 40,2522           54125                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
017699,000745: 40,2523           00006                           EXTEND                                         
017700,000746: 40,2524           27000                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
017701,000747: 40,2525           04616                           TC       BANKCALL                              
017702,000748: 40,2526           62347                           CADR     UPDATVB                               
017703,000749: 40,2527           30125                           CA       MIXTEMP                               
017704,000750: 40,2530           54137                           TS       INREL                                 #  RESTORE INREL
017705,000751: 40,2531           02534        CLEAR1             TC       CLR5                                  
017706,000752: 40,2532           25014                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
017707,000753: 40,2533           05155                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
017708,000754: 40,2534           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
017709,000755: 40,2535           02547                           TC       5BLANK     +2                         
017710,000756: 40,2536           67751        LEGALTST           AD       NEG2                                  
017711,000757: 40,2537           10000                           CCS      A                                     
017712,000758: 40,2540           00002                           TC       Q                                     #  LEGAL  INREL G/ 2
017713,000759: 40,2541           05706                           TC       CCSHOLE                               
017714,000760: 40,2542           05155                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
017715,000761: 40,2543           00002                           TC       Q                                     #  LEGAL    INREL = 2
017716,000762: 
017717,000763: 
017718,000764:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
017719,000765:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
017720,000766:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
017721,000767: 

Page 410

017723,000769: 40,2544           54776                           TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
017724,000770: 40,2545           22002        5BLANK             LXCH     Q                                     
017725,000771: 40,2546           02333                           TC       GETINREL                              
017726,000772: 40,2547           34755                           CAF      ZERO                                  
017727,000773: 40,2550           50137                           INDEX    INREL                                 
017728,000774: 40,2551           55000                           TS       VERBREG                               #  ZERO X, Y, Z REG.
017729,000775: 40,2552           50137                           INDEX    INREL                                 
017730,000776: 40,2553           55003                           TS       XREGLP     -2                         
017731,000777: 40,2554           54124                           TS       CODE                                  
017732,000778: 40,2555           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
017733,000779: 40,2556           44745                           CS       BIT7                                  #  PROTECT OTHERS
017734,000780: 40,2557           70777                           MASK     DECBRNCH                              
017735,000781: 40,2560           72607                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
017736,000782: 40,2561           54777                           TS       DECBRNCH                              
017737,000783: 40,2562           50137                           INDEX    INREL                                 
017738,000784: 40,2563           32577                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
017739,000785: 40,2564           54143                           TS       COUNT                                 
017740,000786: 40,2565           03365                           TC       DSPIN                                 
017741,000787: 40,2566           50137        5BLANK1            INDEX    INREL                                 
017742,000788: 40,2567           32602                           CAF      DOUBLK     -2                         
017743,000789: 40,2570           54776                           TS       DSPCOUNT                              
017744,000790: 40,2571           02610                           TC       2BLANK                                
017745,000791: 40,2572           44752                           CS       TWO                                   
017746,000792: 40,2573           26776                           ADS      DSPCOUNT                              
017747,000793: 40,2574           02610                           TC       2BLANK                                
017748,000794: 40,2575           50137                           INDEX    INREL                                 
017749,000795: 40,2576           34315                           CAF      R1D1       -2                         
017750,000796: 40,2577           54776                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
017751,000797: 40,2600           00001                           TC       L                                     #  OF REG. JUST BLANKED
017752,000798: 
017753,000799: 40,2601           00016        SINBLANK           OCT      16                                    #  DEC 14
017754,000800: 40,2602           00005                           OCT      5                                     
017755,000801: 40,2603           00004                           OCT      4                                     
017756,000802: 40,2604           00015        DOUBLK             OCT      15                                    #  DEC 13
017757,000803: 40,2605           00011                           OCT      11                                    #  DEC 9
017758,000804: 40,2606           00003                           OCT      3                                     
017759,000805: 
017760,000806: 40,2607           77774        BRNCHCON           OCT      77774                                 
017761,000807: 
017762,000808:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
017763,000809:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
017764,000810: 
017765,000811: 40,2610           30776        2BLANK             CA       DSPCOUNT                              
017766,000812: 40,2611           54021                           TS       SR                                    
017767,000813: 40,2612           42623                           CS       BLANKCON                              
017768,000814: 40,2613           00004                           INHINT                                         
017769,000815: 40,2614           50021                           INDEX    SR                                    
017770,000816: 40,2615           57022                           XCH      DSPTAB                                
017771,000817: 40,2616           00006                           EXTEND                                         
017772,000818: 40,2617           62621                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK

Page 411

017774,000820: 40,2620           25015                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
017775,000821: 40,2621           00003                           RELINT                                         #  IF -,NOUT OK
017776,000822: 40,2622           00002                           TC       Q                                     
017777,000823: 40,2623           04000        BLANKCON           OCT      4000                                  
017778,000824: 

Page 412

017780,000826:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
017781,000827:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
017782,000828:                                                                                                  #  PASSES.
017783,000829: 
017784,000830: 
017785,000831:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
017786,000832:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
017787,000833:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
017788,000834: 
017789,000835: 
017790,000836: 41,2000                                           BANK     41                                    
017791,000837: 41,2000                                           SETLOC   PINBALL2                              
017792,000838: 41,2000                                           BANK                                           
017793,000839: 
017794,000840: 41,2000                                           COUNT*   $$/PIN                                
017795,000841: 41,2000           03564        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
017796,000842: 41,2001           03025        LOADLV1            TC       LOADLV                                
017797,000843:                                                                                                  #  END OF STANDARD LEAD INS.
017798,000844: 
017799,000845: 
017800,000846: 41,2002           34755        ENTER              CAF      ZERO                                  
017801,000847: 41,2003           55014                           TS       CLPASS                                
017802,000848: 41,2004           34217                           CAF      ENDINST                               
017803,000849: 41,2005           54136                           TS       ENTRET                                
017804,000850: 41,2006           11012                           CCS      REQRET                                
017805,000851: 41,2007           02042                           TC       ENTPAS0                               #  IF +, PASS 0
017806,000852: 41,2010           02042                           TC       ENTPAS0                               #  IF +, PASS 0
017807,000853: 41,2011           02012                           TC       +1                                    #  IF -, NOT PASS 0
017808,000854: 41,2012           32040        ENTPASHI           CAF      MMADREF                               
017809,000855: 41,2013           61012                           AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
017810,000856: 41,2014           00006                           EXTEND                                         #  AND RECYCLE(DECIDE AT MMCHANG+1).
017811,000857: 41,2015           12027                           BZF      ACCEPTWD                              
017812,000858: 41,2016           36250                           CAF      THREE                                 #  IF DEC, L/5 CHAR IN FOR DATA MUST BE
017813,000859: 41,2017           70777                           MASK     DECBRNCH                              #  SCALED (DECEND); IF 5 CHAR IN, DATA
017814,000860: 41,2020           10000                           CCS      A                                     #  HAS ALREADY BEEN SCALED. ANY NUMBER
017815,000861: 41,2021           02023                           TC       +2                                    #  OF DECIMAL CHARACTERS ARE ACCEPTABLE.SCR
017816,000862: 41,2022           02027                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
017817,000863: 41,2023           10776                           CCS      DSPCOUNT                              
017818,000864: 41,2024           02033                           TC       LT5                                   
017819,000865: 41,2025           02033                           TC       LT5                                   
017820,000866: 41,2026           02027                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
017821,000867: 41,2027           41012        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
017822,000868: 41,2030           55012                           TS       REQRET                                #  SET REQRET +.
017823,000869: 41,2031           04433                           TC       FLASHOFF                              
017824,000870: 41,2032           01012                           TC       REQRET                                
017825,000871: 
017826,000872: 41,2033           34755        LT5                CAF      ZERO                                  
017827,000873: 41,2034           54154                           TS       MPAC                                  
017828,000874: 41,2035           04616                           TC       BANKCALL                              
017829,000875: 41,2036           60274                           CADR     DECEND     +4                         

Page 413

017831,000877: 41,2037           02027                           TC       ACCEPTWD                              
017832,000878: 41,2040     0136               ENTEXIT            =        ENTRET                                
017833,000879: 
017834,000880: 41,2040           03451        MMADREF            ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
017835,000881: 
017836,000882: 41,2041           00034        LOWVERB            DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
017837,000883: 
017838,000884: 41,2042           34755        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
017839,000885: 41,2043           54777                           TS       DECBRNCH                              
017840,000886: 41,2044           44360                           CS       VD1                                   #  BLOCK FURTHER NUM CHAR, SO THAT STRAY
017841,000887: 41,2045           54776                           TS       DSPCOUNT                              #  CHAR DO NOT GET INTO VERB OR NOUN LTS.
017842,000888: 41,2046           41000        TESTVB             CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
017843,000889: 41,2047           55040                           TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
017844,000890: 41,2050           62041                           AD       LOWVERB                               #  LOWVERB - VB
017845,000891: 41,2051           00006                           EXTEND                                         
017846,000892: 41,2052           62140                           BZMF     VERBFAN                               #  VERB G/E LOWVERB
017847,000893: 41,2053           00006        TESTNN             EXTEND                                         #  VERB L/ LOWVERB
017848,000894: 41,2054           32121                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
017849,000895: 41,2055           52006                           DXCH     Z                                     #  ROUTINE.
017850,000896: 41,2056           50140                           INDEX    MIXBR                                 
017851,000897: 41,2057           02057                           TC       +0                                    
017852,000898: 41,2060           02062                           TC       +2                                    #  NORMAL
017853,000899: 41,2061           02226                           TC       MIXNOUN                               #  MIXED
017854,000900: 41,2062           10146                           CCS      NNADTEM                               #  NORMAL
017855,000901: 41,2063           02136                           TC       VERBFAN    -2                         #       NORMAL IF +
017856,000902: 41,2064           02360                           TC       GODSPALM                              #  NOT IN USE   IF +0
017857,000903: 41,2065           02071                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
017858,000904: 41,2066           25016                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
017859,000905: 41,2067           04311                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
017860,000906: 41,2070           02125                           TC       INTMCTBS   +2                         
017861,000907: 41,2071           34735        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
017862,000908: 41,2072           55014                           TS       CLPASS                                
017863,000909: 41,2073           44217                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
017864,000910: 41,2074           60136                           AD       ENTEXIT                               #              FROM EXTERNAL
017865,000911: 41,2075           00006                           EXTEND                                         
017866,000912: 41,2076           12100                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
017867,000913: 41,2077           02123                           TC       INTMCTBS                              
017868,000914: 41,2100           02316                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
017869,000915: 41,2101           10777                           CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
017870,000916: 41,2102           04145                           TC       ALMCYCLE                              #  FOR MCTBS.
017871,000917: 41,2103           44360                           CS       VD1                                   #  OCTAL USED  OK
017872,000918: 41,2104           54776                           TS       DSPCOUNT                              #  BLOCK NUM CHAR IN
017873,000919: 41,2105           11041                           CCS      CADRSTOR                              
017874,000920: 41,2106           02111                           TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
017875,000921: 41,2107           02112                           TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
017876,000922: 41,2110           02111                           TC       +1                                    
017877,000923: 41,2111           04427                           TC       FLASHON                               
017878,000924: 41,2112           57004        USEADD             XCH      ZREG                                  
017879,000925: 41,2113           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
017880,000926: 41,2114           00006                           EXTEND                                         

Page 414

017882,000928: 41,2115           32121                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
017883,000929: 41,2116           52006                           DXCH     Z                                     #  ROUTINE.
017884,000930: 41,2117           02140                           TC       VERBFAN                               
017885,000931: 
017886,000932: 41,2120     0776                                  EBANK=   DSPCOUNT                              
017887,000933: 41,2120           02103 64101  LODNNLOC           2CADR    LODNNTAB                              
017888,000934: 
017889,000935: 
017890,000936: 41,2122           77772        NEG5               OCT      77772                                 
017891,000937: 
017892,000938: 41,2123           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
017893,000939: 41,2124           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
017894,000940: 41,2125           44756                           CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
017895,000941: 41,2126           61000                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
017896,000942: 41,2127           00006                           EXTEND                                         
017897,000943: 41,2130           12140                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
017898,000944: 41,2131           34321                           CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
017899,000945: 41,2132           54776                           TS       DSPCOUNT                              
017900,000946: 41,2133           31016                           CA       NOUNCADR                              
017901,000947: 41,2134           03415                           TC       DSPOCTWD                              
017902,000948: 41,2135           02140                           TC       VERBFAN                               
017903,000949: 
017904,000950: 41,2136           64753                           AD       ONE                                   
017905,000951: 41,2137           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
017906,000952: 41,2140           42152        VERBFAN            CS       LST2CON                               
017907,000953: 41,2141           61000                           AD       VERBREG                               #  VERB-LST2CON
017908,000954: 41,2142           10000                           CCS      A                                     
017909,000955: 41,2143           64753                           AD       ONE                                   #  VERB G/ LST2CON
017910,000956: 41,2144           02146                           TC       +2                                    
017911,000957: 41,2145           02153                           TC       VBFANDIR                              #  VERB L/ LST2CON
017912,000958: 41,2146           54154                           TS       MPAC                                  
017913,000959: 41,2147           04457                           TC       RELDSP                                #  RELEASE DISPLAY SYST
017914,000960: 41,2150           04635                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
017915,000961: 41,2151           66000                           CADR     GOEXTVB                               
017916,000962: 41,2152           00050        LST2CON            DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
017917,000963: 
017918,000964: 41,2153           51000        VBFANDIR           INDEX    VERBREG                               
017919,000965: 41,2154           32156                           CAF      VERBTAB                               
017920,000966: 41,2155           04640                           TC       BANKJUMP                              
017921,000967: 
017922,000968: 41,2156           62360        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
017923,000969: 41,2157           62374                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
017924,000970: 41,2160           62402                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
017925,000971: 41,2161           62407                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
017926,000972: 41,2162           62367                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
017927,000973: 41,2163           62362                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
017928,000974: 41,2164           62532                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
017929,000975: 41,2165           61034                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
017930,000976: 41,2166           62360                           CADR     GODSPALM                              #  VB08 SPARE
017931,000977: 41,2167           62360                           CADR     GODSPALM                              #  VB09 SPARE

Page 415

017933,000979: 41,2170           61463                           CADR     DSPALARM                              #  VB10 SPARE
017934,000980: 41,2171           63262                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
017935,000981: 41,2172           63262                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
017936,000982: 41,2173           63262                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
017937,000983: 41,2174           63262                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
017938,000984: 41,2175           63262                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
017939,000985: 41,2176           63262                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
017940,000986: 41,2177           63262                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
017941,000987: 41,2200           62360                           CADR     GODSPALM                              #  VB18 SPARE
017942,000988: 41,2201           62360                           CADR     GODSPALM                              #  VB19 SPARE
017943,000989: 41,2202           62360                           CADR     GODSPALM                              #  VB20 SPARE
017944,000990: 41,2203           62762                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
017945,000991: 41,2204           62773                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
017946,000992: 41,2205           63010                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
017947,000993: 41,2206           62733                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
017948,000994: 41,2207           62627                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
017949,000995: 41,2210           62360                           CADR     GODSPALM                              #  VB26 SPARE
017950,000996: 41,2211           63405                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
017951,000997:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
017952,000998: 41,2212           62360                           CADR     GODSPALM                              #  VB28 SPARE
017953,000999: 41,2213           62360                           CADR     GODSPALM                              #  VB29 SPARE
017954,001000: 41,2214           63506        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
017955,001001: 41,2215           63532                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
017956,001002: 41,2216           61530                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
017957,001003: 41,2217           61505                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
017958,001004: 41,2220           61513                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
017959,001005: 41,2221           63633                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
017960,001006: 41,2222           12460                           CADR     SLAP1                                 #  VB36 FRESH START
017961,001007: 41,2223           63450                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
017962,001008: 41,2224           62360                           CADR     GODSPALM                              #  VB38 SPARE
017963,001009: 41,2225           62360                           CADR     GODSPALM                              #  VB39 SPARE
017964,001010: 
017965,001011: 
017966,001012:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
017967,001013: 

Page 416

017969,001015:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
017970,001016:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
017971,001017:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
017972,001018:                                                                                                  #   MIXTEMP.
017973,001019: 
017974,001020: 41,2226           10146        MIXNOUN            CCS      NNADTEM                               
017975,001021: 41,2227           02233                           TC       +4                                    #  +  IN USE
017976,001022: 41,2230           02360                           TC       GODSPALM                              #  +0  NOT IN USE
017977,001023: 41,2231           02233                           TC       +2                                    #  -  IN USE
017978,001024: 41,2232           02233                           TC       +1                                    #  -0  IN USE
017979,001025: 41,2233           46245                           CS       SIX                                   
017980,001026: 41,2234           61000                           AD       VERBREG                               
017981,001027: 41,2235           00006                           EXTEND                                         
017982,001028: 41,2236           62240                           BZMF     +2                                    #  VERB L/E 6
017983,001029: 41,2237           02140                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
017984,001030: 41,2240           34752                           CAF      TWO                                   
017985,001031: 41,2241           54117        MIXNN1             TS       DECOUNT                               
017986,001032: 41,2242           62265                           AD       MIXAD                                 
017987,001033: 41,2243           54145                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
017988,001034: 41,2244           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
017989,001035: 41,2245           30150                           CA       IDAD1TEM                              #  OF NOUN.
017990,001036: 41,2246           54122                           TS       NOUNTEM                               
017991,001037:                                                                                                  #  TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
017992,001038:                                                                                                  #    MINOR PART ONLY.
017993,001039: 41,2247           03064                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
017994,001040: 41,2250           02266                           TC       DPTEST                                
017995,001041: 41,2251           02253                           TC       MIXNN2                                #  NO DP
017996,001042: 41,2252           24122                           INCR     NOUNTEM                               #  DP  GET MINOR PART
017997,001043: 41,2253           30122        MIXNN2             CA       NOUNTEM                               
017998,001044: 41,2254           74356                           MASK     LOW11                                 #  ESUBK (NO DP)  OR (ESUBK)+1    FOR DP
017999,001045: 41,2255           04313                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
018000,001046: 41,2256           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
018001,001047: 41,2257           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
018002,001048: 41,2260           50145                           INDEX    NOUNADD                               
018003,001049: 41,2261           56000                           XCH      0                                     #  STORE IN MIXTEM + K
018004,001050: 41,2262           10117                           CCS      DECOUNT                               
018005,001051: 41,2263           02241                           TC       MIXNN1                                
018006,001052: 41,2264           02140                           TC       VERBFAN                               
018007,001053: 
018008,001054: 41,2265           00125        MIXAD              TC       MIXTEMP                               
018009,001055: 
018010,001056: 
018011,001057:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
018012,001058:                                                                                                  #           RETURNS TO L+1 IF NO DP.
018013,001059:                                                                                                  #           RETURNS TO L+2 IF DP.
018014,001060: 
018015,001061: 41,2266           50000        DPTEST             INDEX    A                                     
018016,001062: 41,2267           12270                           TCF      +1                                    
018017,001063: 41,2270           00002                           TC       Q                                     #  OCTAL ONLY  NO DP
018018,001064: 41,2271           00002                           TC       Q                                     #  FRACT NO DP

Page 417

018020,001066: 41,2272           00002                           TC       Q                                     #  DEG  NO DP
018021,001067: 41,2273           00002                           TC       Q                                     #  ARITH  NO DP
018022,001068: 41,2274           12310                           TCF      DPTEST1                               #  DP1OUT
018023,001069: 41,2275           12310                           TCF      DPTEST1                               #  DP2OUT
018024,001070: 41,2276           00002                           TC       Q                                     #  LRPOSOUT  NO DP (DATA IN CHANNEL 33)
018025,001071: 41,2277           12310                           TCF      DPTEST1                               #  DP3OUT
018026,001072: 41,2300           00002                           TC       Q                                     #  HMS   NO DP
018027,001073: 41,2301           00002                           TC       Q                                     #  M/S   NO DP
018028,001074: 41,2302           12310                           TCF      DPTEST1                               #  DP4OUT
018029,001075: 41,2303           00002                           TC       Q                                     #  ARITH1   NO DP
018030,001076: 41,2304           00002                           TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
018031,001077: 41,2305           00002                           TC       Q                                     #  360-CDU   NO DP
018032,001078: 41,2306           00002                           TC       Q                                     #  RRANGOUT  NO DP
018033,001079: 41,2307           00002                           TC       Q                                     #  RRDOTOUT  NO DP
018034,001080: 41,2310           50002        DPTEST1            INDEX    Q                                     
018035,001081: 41,2311           00001                           TC       1                                     #  RETURN TO L+2
018036,001082: 
018037,001083: 
018038,001084: 41,2312           34317        REQDATX            CAF      R1D1                                  
018039,001085: 41,2313           12317                           TCF      REQCOM                                
018040,001086: 41,2314           34320        REQDATY            CAF      R2D1                                  
018041,001087: 41,2315           12317                           TCF      REQCOM                                
018042,001088: 41,2316           34321        REQDATZ            CAF      R3D1                                  
018043,001089: 41,2317           54776        REQCOM             TS       DSPCOUNT                              
018044,001090: 41,2320           40002                           CS       Q                                     
018045,001091: 41,2321           55012                           TS       REQRET                                
018046,001092: 41,2322           04616                           TC       BANKCALL                              
018047,001093: 41,2323           60545                           CADR     5BLANK                                
018048,001094: 41,2324           04427                           TC       FLASHON                               
018049,001095: 41,2325           00136        ENDRQDAT           TC       ENTEXIT                               
018050,001096: 
018051,001097: 41,2326           55001                           TS       NOUNREG                               
018052,001098: 41,2327           56002        UPDATNN            XCH      Q                                     
018053,001099: 41,2330           54117                           TS       UPDATRET                              
018054,001100: 41,2331           00006                           EXTEND                                         
018055,001101: 41,2332           32121                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018056,001102: 41,2333           52006                           DXCH     Z                                     #  ROUTINE.
018057,001103: 41,2334           10146                           CCS      NNADTEM                               
018058,001104: 41,2335           64753                           AD       ONE                                   #  NORMAL
018059,001105: 41,2336           12341                           TCF      PUTADD                                
018060,001106: 41,2337           12342                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
018061,001107: 41,2340           12342                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
018062,001108: 41,2341           04303        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018063,001109: 41,2342           34361                           CAF      ND1                                   
018064,001110: 41,2343           54776                           TS       DSPCOUNT                              
018065,001111: 41,2344           31001                           CA       NOUNREG                               
018066,001112: 41,2345           12354                           TCF      UPDAT1                                
018067,001113: 
018068,001114: 41,2346           55000                           TS       VERBREG                               
018069,001115: 41,2347           56002        UPDATVB            XCH      Q                                     

Page 418

018071,001117: 41,2350           54117                           TS       UPDATRET                              
018072,001118: 41,2351           34360                           CAF      VD1                                   
018073,001119: 41,2352           54776                           TS       DSPCOUNT                              
018074,001120: 41,2353           31000                           CA       VERBREG                               
018075,001121: 41,2354           04635        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN,SINCE
018076,001122: 41,2355           61362                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
018077,001123: 41,2356           00117                           TC       UPDATRET                              
018078,001124: 
018079,001125: 
018080,001126: 41,2357           04145        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
018081,001127: 
018082,001128: 
018083,001129: 41,2360           04635        GODSPALM           TC       POSTJUMP                              
018084,001130: 41,2361           61463                           CADR     DSPALARM                              
018085,001131: 

Page 419

018087,001133:                                                                                                  #           NOUN   TABLES
018088,001134:                                                                                                  #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
018089,001135:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
018090,001136:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
018091,001137:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
018092,001138:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
018093,001139: 
018094,001140:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
018095,001141:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
018096,001142: 
018097,001143:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
018098,001144: 
018099,001145:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
018100,001146:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
018101,001147:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
018102,001148: 
018103,001149:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
018104,001150:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
018105,001151:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
018106,001152:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
018107,001153:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
018108,001154:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
018109,001155: 
018110,001156:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
018111,001157:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
018112,001158:                                                                                                  #  THE FIRST OF THESE ENTRIES.
018113,001159:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
018114,001160:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
018115,001161: 
018116,001162:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
018117,001163:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
018118,001164:                                                                                                  #        QQQQQRRRRRSSSSS
018119,001165:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
018120,001166:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
018121,001167:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
018122,001168:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
018123,001169:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
018124,001170: 
018125,001171: 
018126,001172:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
018127,001173:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
018128,001174:                                                                                                  #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
018129,001175: 
018130,001176: 
018131,001177:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
018132,001178:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
018133,001179: 
018134,001180:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
018135,001181:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
018136,001182: 

Page 420

018138,001184:                                                                                                  #           DISPLAY  VERBS
018139,001185: 41,2362           44752        DSPABC             CS       TWO                                   
018140,001186: 41,2363           02433                           TC       COMPTEST                              
018141,001187: 41,2364           50145                           INDEX    NOUNADD                               
018142,001188: 41,2365           40002                           CS       2                                     
018143,001189: 41,2366           56132                           XCH      BUF        +2                         
018144,001190: 41,2367           44753        DSPAB              CS       ONE                                   
018145,001191: 41,2370           02433                           TC       COMPTEST                              
018146,001192: 41,2371           50145                           INDEX    NOUNADD                               
018147,001193: 41,2372           40001                           CS       1                                     
018148,001194: 41,2373           56131                           XCH      BUF        +1                         
018149,001195: 41,2374           02452        DSPA               TC       DECTEST                               
018150,001196: 41,2375           02475                           TC       TSTFORDP                              
018151,001197: 41,2376           50145                           INDEX    NOUNADD                               
018152,001198: 41,2377           40000                           CS       0                                     
018153,001199: 41,2400           56130        DSPCOM1            XCH      BUF                                   
018154,001200: 41,2401           02414                           TC       DSPCOM2                               
018155,001201: 41,2402           44753        DSPB               CS       ONE                                   
018156,001202: 41,2403           02446                           TC       DCOMPTST                              
018157,001203: 41,2404           50145                           INDEX    NOUNADD                               
018158,001204: 41,2405           40001                           CS       1                                     
018159,001205: 41,2406           02400                           TC       DSPCOM1                               
018160,001206: 41,2407           44752        DSPC               CS       TWO                                   
018161,001207: 41,2410           02446                           TC       DCOMPTST                              
018162,001208: 41,2411           50145                           INDEX    NOUNADD                               
018163,001209: 41,2412           40002                           CS       2                                     
018164,001210: 41,2413           02400                           TC       DSPCOM1                               
018165,001211: 41,2414           44752        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
018166,001212: 41,2415           61000                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
018167,001213: 41,2416           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
018168,001214: 41,2417           02422                           TC       DSPCOM3                               
018169,001215: 41,2420           00136                           TC       ENTEXIT                               
018170,001216: 41,2421           02422                           TC       +1                                    
018171,001217: 41,2422           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
018172,001218: 41,2423           50000                           INDEX    A                                     
018173,001219: 41,2424           34317                           CAF      R1D1                                  
018174,001220: 41,2425           54776                           TS       DSPCOUNT                              
018175,001221: 41,2426           50122                           INDEX    DISTEM                                
018176,001222: 41,2427           40130                           CS       BUF                                   
018177,001223: 41,2430           03415                           TC       DSPOCTWD                              
018178,001224: 41,2431           56122                           XCH      DISTEM                                
018179,001225: 41,2432           02416                           TC       DSPCOM2    +2                         
018180,001226: 
018181,001227:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
018182,001228:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
018183,001229: 41,2433           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
018184,001230: 41,2434           22002                           LXCH     Q                                     
018185,001231: 41,2435           02524        COMPTST1           TC       GETCOMP                               
018186,001232: 41,2436           04331                           TC       LEFT5                                 
018187,001233: 41,2437           76250                           MASK     THREE                                 #  NOUN COMP

Page 421

018189,001235: 41,2440           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
018190,001236: 41,2441           10000                           CCS      A                                     
018191,001237: 41,2442           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
018192,001238: 41,2443           05706                           TC       CCSHOLE                               
018193,001239: 41,2444           02360                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
018194,001240: 41,2445           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
018195,001241: 
018196,001242: 
018197,001243:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
018198,001244:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
018199,001245: 41,2446           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
018200,001246: 41,2447           22002                           LXCH     Q                                     
018201,001247: 41,2450           02452                           TC       DECTEST                               
018202,001248: 41,2451           02435                           TC       COMPTST1                              
018203,001249: 
018204,001250: 41,2452           00006        DECTEST            EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
018205,001251: 41,2453           22156                           QXCH     MPAC       +2                         #  CODE NUMBER). RETURNS IF NOT.
018206,001252: 41,2454           02524                           TC       GETCOMP                               
018207,001253: 41,2455           74736                           MASK     BIT14                                 
018208,001254: 41,2456           10000                           CCS      A                                     
018209,001255: 41,2457           02360                           TC       GODSPALM                              
018210,001256: 41,2460           00156                           TC       MPAC       +2                         
018211,001257: 
018212,001258: 
018213,001259: 41,2461           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
018214,001260: 41,2462           02524                           TC       GETCOMP                               #  ( BIT4 OF COMP CODE NUMBER). RETURNS
018215,001261: 41,2463           74736                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
018216,001262: 41,2464           10000                           CCS      A                                     
018217,001263: 41,2465           04145                           TC       ALMCYCLE                              
018218,001264: 41,2466           00001                           TC       L                                     
018219,001265: 
018220,001266: 
018221,001267:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
018222,001268:                                                                                                  #  IF NOT, IT RETURNS.
018223,001269: 41,2467           22002        NOUNTEST           LXCH     Q                                     
018224,001270: 41,2470           02524                           TC       GETCOMP                               
018225,001271: 41,2471           10000                           CCS      A                                     
018226,001272: 41,2472           00001                           TC       L                                     
018227,001273: 41,2473           00001                           TC       L                                     
018228,001274: 41,2474           02360                           TC       GODSPALM                              
018229,001275: 
018230,001276: 
018231,001277: 41,2475           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
018232,001278: 41,2476           30146                           CA       NNADTEM                               
018233,001279: 41,2477           64753                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
018234,001280: 41,2500           00006                           EXTEND                                         
018235,001281: 41,2501           12513                           BZF      CHANDSP                               
018236,001282: 41,2502           50140                           INDEX    MIXBR                                 
018237,001283: 41,2503           02503                           TC       +0                                    
018238,001284: 41,2504           02506                           TC       +2                                    #  NORMAL

Page 422

018240,001286: 41,2505           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
018241,001287: 41,2506           03056                           TC       SFRUTNOR                              
018242,001288: 41,2507           02266                           TC       DPTEST                                
018243,001289: 41,2510           00001                           TC       L                                     #  NO DP
018244,001290: 41,2511           24145                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
018245,001291: 41,2512           00001                           TC       L                                     
018246,001292: 
018247,001293: 
018248,001294: 41,2513           31016        CHANDSP            CA       NOUNCADR                              
018249,001295: 41,2514           75004                           MASK     LOW9                                  
018250,001296: 41,2515           00006                           EXTEND                                         
018251,001297: 41,2516           50000                           INDEX    A                                     
018252,001298: 41,2517           00000                           READ     0                                     
018253,001299: 41,2520           40000                           CS       A                                     
018254,001300: 41,2521           12400                           TCF      DSPCOM1                               
018255,001301: 
018256,001302: 
018257,001303: 41,2522           00147        COMPICK            ADRES    NNTYPTEM                              
018258,001304: 41,2523           00146                           ADRES    NNADTEM                               
018259,001305: 
018260,001306: 41,2524           50140        GETCOMP            INDEX    MIXBR                                 #  NORMAL                MIXED
018261,001307: 41,2525           32521                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
018262,001308: 41,2526           50000                           INDEX    A                                     
018263,001309: 41,2527           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
018264,001310: 41,2530           74350                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
018265,001311: 41,2531           00002                           TC       Q                                     
018266,001312: 
018267,001313: 
018268,001314: 41,2532           02524        DECDSP             TC       GETCOMP                               
018269,001315: 41,2533           04331                           TC       LEFT5                                 
018270,001316: 41,2534           76250                           MASK     THREE                                 
018271,001317: 41,2535           54117                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
018272,001318: 41,2536           54122        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
018273,001319: 41,2537           60145                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
018274,001320: 41,2540           50000                           INDEX    A                                     
018275,001321: 41,2541           40000                           CS       0                                     
018276,001322: 41,2542           50122                           INDEX    DECTEM                                
018277,001323: 41,2543           57002                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
018278,001324: 41,2544           10122                           CCS      DECTEM                                
018279,001325: 41,2545           02536                           TC       DSPDCGET                              #  MORE TO GET
018280,001326: 41,2546           34755        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
018281,001327: 41,2547           54155                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
018282,001328: 41,2550           54156                           TS       MPAC       +2                         
018283,001329: 41,2551           50117                           INDEX    DECOUNT                               
018284,001330: 41,2552           34317                           CAF      R1D1                                  
018285,001331: 41,2553           54776                           TS       DSPCOUNT                              
018286,001332: 41,2554           50117                           INDEX    DECOUNT                               
018287,001333: 41,2555           41002                           CS       XREG                                  
018288,001334: 41,2556           54154                           TS       MPAC                                  
018289,001335: 41,2557           03077                           TC       SFCONUM                               #  2X( SF CON NUMB ) IN A

Page 423

018291,001337: 41,2560           54123                           TS       SFTEMP1                               
018292,001338: 41,2561           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
018293,001339: 41,2562           32574                           DCA      GTSFOUTL                              #     READING ROUTINE.
018294,001340: 41,2563           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
018295,001341: 41,2564           50140                           INDEX    MIXBR                                 
018296,001342: 41,2565           02565                           TC       +0                                    
018297,001343: 41,2566           02571                           TC       DSPSFNOR                              
018298,001344: 41,2567           03064                           TC       SFRUTMIX                              
018299,001345: 41,2570           02604                           TC       DECDSP3                               
018300,001346: 
018301,001347: 41,2571           03056        DSPSFNOR           TC       SFRUTNOR                              
018302,001348: 41,2572           02604                           TC       DECDSP3                               
018303,001349: 
018304,001350: 41,2573     0776                                  EBANK=   DSPCOUNT                              
018305,001351: 41,2573           02141 64101  GTSFOUTL           2CADR    GTSFOUT                               
018306,001352: 
018307,001353: 
018308,001354: 
018309,001355: 41,2575           04616        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
018310,001356: 41,2576           61271                           CADR     DSPDECWD                              
018311,001357: 41,2577           10117                           CCS      DECOUNT                               
018312,001358: 41,2600           02602                           TC       +2                                    
018313,001359: 41,2601           00136                           TC       ENTEXIT                               
018314,001360: 41,2602           54117                           TS       DECOUNT                               
018315,001361: 41,2603           02546                           TC       DSPDCPUT                              #  MORE TO DISPLAY
018316,001362: 
018317,001363: 
018318,001364: 41,2604           50000        DECDSP3            INDEX    A                                     
018319,001365: 41,2605           32607                           CAF      SFOUTABR                              
018320,001366: 41,2606           04640                           TC       BANKJUMP                              
018321,001367: 
018322,001368: 41,2607           61461        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
018323,001369: 41,2610           62575                           CADR     DSPDCEND                              
018324,001370: 41,2611           60624                           CADR     DEGOUTSF                              
018325,001371: 41,2612           60742                           CADR     ARTOUTSF                              
018326,001372: 41,2613           60753                           CADR     DP1OUTSF                              
018327,001373: 41,2614           60760                           CADR     DP2OUTSF                              
018328,001374: 41,2615           60644                           CADR     LRPOSOUT                              
018329,001375: 41,2616           60762                           CADR     DP3OUTSF                              
018330,001376: 41,2617           65234                           CADR     HMSOUT                                
018331,001377: 41,2620           65307                           CADR     M/SOUT                                
018332,001378: 41,2621           60760                           CADR     DP2OUTSF                              
018333,001379: 41,2622           60747                           CADR     AROUT1SF                              
018334,001380: 41,2623           60775                           CADR     2INTOUT                               
018335,001381: 41,2624           60632                           CADR     360-CDUO                              
018336,001382: 41,2625           60654                           CADR     RRANGOUT                              
018337,001383: 41,2626           60671                           CADR     RRDOTOUT                              
018338,001384: 41,2627                        ENDRTOUT           EQUALS                                         
018339,001385: 

Page 424

018341,001387:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
018342,001388:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
018343,001389: 
018344,001390: 
018345,001391: 40,2624                                           SETLOC   BLANKCON   +1                         
018346,001392: 
018347,001393: 40,2624                                           COUNT*   $$/PIN                                
018348,001394:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
018349,001395:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
018350,001396: 
018351,001397: 40,2624           34755        DEGOUTSF           CAF      ZERO                                  
018352,001398: 40,2625           54156                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
018353,001399: 40,2626           02715                           TC       FIXRANGE                              
018354,001400: 40,2627           02631                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
018355,001401: 40,2630           02710                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
018356,001402: 40,2631           02726                           TC       DEGCOM                                
018357,001403: 
018358,001404:                                                                                                  #  360-CDUO COMPUTES 360 - CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND
018359,001405:                                                                                                  #  GOES TO DEGOUTSF.
018360,001406: 
018361,001407: 40,2632           02634        360-CDUO           TC       360-CDU                               
018362,001408: 40,2633           02624                           TC       DEGOUTSF                              
018363,001409: 
018364,001410: 40,2634           30154        360-CDU            CA       MPAC                                  
018365,001411: 40,2635           74733                           MASK     POSMAX                                #  IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING
018366,001412: 40,2636           00006                           EXTEND                                         
018367,001413: 40,2637           12643                           BZF      360-CDUE                              
018368,001414: 40,2640           40154                           CS       MPAC                                  #  COMPUTE 360 DEGREES MINUS ANGLE
018369,001415: 40,2641           64753                           AD       ONE                                   
018370,001416: 40,2642           54154                           TS       MPAC                                  
018371,001417: 40,2643           00002        360-CDUE           TC       Q                                     
018372,001418: 
018373,001419:                                                                                                  #  LRPOSOUT DISPLAYS +0,1,2,OR 3 (WHOLE) FOR CHANNEL 33,BITS 7-6 = 11,10,
018374,001420:                                                                                                  #  01,00 RESPECTIVELY.
018375,001421: 
018376,001422: 40,2644           00006        LRPOSOUT           EXTEND                                         
018377,001423: 40,2645           00033                           READ     CHAN33                                
018378,001424: 40,2646           00006                           EXTEND                                         
018379,001425: 40,2647           74742                           MP       BIT10                                 #  BITS 7-6 TO BITS 2-1
018380,001426: 40,2650           40000                           COM                                            
018381,001427: 40,2651           76250                           MASK     THREE                                 
018382,001428: 40,2652           54154                           TS       MPAC                                  
018383,001429: 40,2653           02742                           TC       ARTOUTSF                              #  DISPLAY AS WHOLE
018384,001430: 
018385,001431:                                                                                                  #  RRANGOUT AND RRDOTOUT CONVERT RR RANGE AND RANGE RATE FROM SP 15 BIT
018386,001432:                                                                                                  #  MAGNITUDE TO DP AND THEN SCALE FOR DISPLAY.
018387,001433: 
018388,001434: 40,2654           02700        RRANGOUT           TC       RRSPTODP                              #  CONVERT TO DP.
018389,001435: 40,2655           40110                           CS       RADMODES                              #  BIT 3 OF FLAG12 = HI SCALE
018390,001436: 40,2656           74751                           MASK     BIT3                                  

Page 425

018392,001438: 40,2657           10000                           CCS      A                                     
018393,001439: 40,2660           02666                           TC       SCALELO                               #  DATA IS IN LO SCALE.
018394,001440: 40,2661           52155                           DXCH     MPAC                                  #  DATA IS IN HI SCALE, MP BY 8.
018395,001441: 40,2662           20001                           DAS      A                                     
018396,001442: 40,2663           20001                           DAS      A                                     
018397,001443: 40,2664           20001                           DAS      A                                     
018398,001444: 40,2665           52155                           DXCH     MPAC                                  
018399,001445: 40,2666           07106        SCALELO            TC       DMP                                   #  SCALE FOR DISPLAY,
018400,001446: 40,2667           00123                           ADRES    SFTEMP1                               
018401,001447: 40,2670           02754                           TC       L14/OUT                               #  AND GO TO ARITHDP1.
018402,001448: 
018403,001449: 40,2671           02700        RRDOTOUT           TC       RRSPTODP                              #  CONVERT TO DP.
018404,001450: 40,2672           00006                           EXTEND                                         
018405,001451: 40,2673           42677                           DCS      BIASRDOT                              #  SUBTRACT BIAS OF 17000 COUNTS.
018406,001452: 40,2674           20155                           DAS      MPAC                                  
018407,001453: 40,2675           02666                           TC       SCALELO                               #  SCALE FOR DISPLAY.
018408,001454: 40,2676           00001 01150  BIASRDOT           2DEC     17000      B-28                       
018409,001455: 
018410,001456: 
018411,001457: 40,2700           34733        RRSPTODP           CAF      POSMAX                                #  CONVERT SP 15 BIT MAG TO DP.
018412,001458: 40,2701           70154                           MASK     MPAC                                  
018413,001459: 40,2702           54155                           TS       MPAC       +1                         
018414,001460: 40,2703           30154                           CA       MPAC                                  
018415,001461: 40,2704           60000                           DOUBLE                                         
018416,001462: 40,2705           74753                           MASK     BIT1                                  
018417,001463: 40,2706           54154                           TS       MPAC                                  
018418,001464: 40,2707           00002                           TC       Q                                     
018419,001465: 
018420,001466: 40,2710           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
018421,001467: 40,2711           50156                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
018422,001468: 40,2712           32737                           DCA      DEGTAB                                
018423,001469: 40,2713           52124                           DXCH     SFTEMP1                               
018424,001470: 40,2714           00002                           TC       Q                                     
018425,001471: 
018426,001472: 40,2715           10154        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
018427,001473: 40,2716           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
018428,001474: 40,2717           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
018429,001475: 40,2720           12721                           TCF      +1                                    
018430,001476: 40,2721           44735                           CS       BIT15                                 
018431,001477: 40,2722           70154                           MASK     MPAC                                  
018432,001478: 40,2723           54154                           TS       MPAC                                  
018433,001479: 40,2724           50002                           INDEX    Q                                     
018434,001480: 40,2725           00001                           TC       1                                     
018435,001481: 
018436,001482: 40,2726           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER , DOES SHORTMP, AND
018437,001483: 40,2727           50156                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.

Page 426

018439,001485: 40,2730           32737                           DCA      DEGTAB                                
018440,001486: 40,2731           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
018441,001487: 40,2732           07312                           TC       SHORTMP                               
018442,001488: 40,2733           52124                           DXCH     SFTEMP1                               
018443,001489: 40,2734           20155                           DAS      MPAC                                  
018444,001490: 40,2735           02745                           TC       SCOUTEND                              
018445,001491: 
018446,001492: 
018447,001493: 40,2736           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
018448,001494: 40,2737           03656                           OCT      03656                                 #  LOW PART OF    .18
018449,001495: 40,2740           16314                           OCT      16314                                 #  HI PART OF     .45
018450,001496: 40,2741           31463                           OCT      31463                                 #  LO PART OF     .45
018451,001497: 
018452,001498: 40,2742           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
018453,001499: 40,2743           52155                           DXCH     MPAC                                  
018454,001500: 40,2744           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
018455,001501: 40,2745           04635        SCOUTEND           TC       POSTJUMP                              
018456,001502: 40,2746           62575                           CADR     DSPDCEND                              
018457,001503: 
018458,001504: 40,2747           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
018459,001505: 40,2750           52155                           DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
018460,001506: 40,2751           04415                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
018461,001507: 40,2752           02754                           TC       L14/OUT                               
018462,001508: 
018463,001509: 
018464,001510: 40,2753           02766        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
018465,001511: 40,2754           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
018466,001512: 40,2755           56155                           XCH      MPAC       +1                         #  BY B14.
018467,001513: 40,2756           54154                           TS       MPAC                                  
018468,001514: 40,2757           02745                           TC       SCOUTEND                              
018469,001515: 
018470,001516: 
018471,001517: 40,2760           02766        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC , MPAC +1 BY DP SCALE FACTOR
018472,001518: 40,2761           02745                           TC       SCOUTEND                              
018473,001519: 
018474,001520: 
018475,001521: 40,2762           02766        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
018476,001522: 40,2763           36245                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
018477,001523: 40,2764           03216                           TC       TPLEFTN                               #  SHIFT LEFT 7.
018478,001524: 40,2765           02745                           TC       SCOUTEND                              
018479,001525: 
018480,001526: 
018481,001527: 40,2766     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
018482,001528: 
018483,001529: 40,2766           56002        DPOUT              XCH      Q                                     
018484,001530: 40,2767           54162                           TS       MPAC+6                                
018485,001531: 40,2770           03012                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
018486,001532: 40,2771           07262                           TC       TPAGREE                               #  MAKE DP DATA AGREE
018487,001533: 40,2772           07106                           TC       DMP                                   
018488,001534: 40,2773           00123                           ADRES    SFTEMP1                               

Page 427

018490,001536: 40,2774           00162                           TC       MPAC+6                                
018491,001537:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
018492,001538:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
018493,001539:                                                                                                  #  BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
018494,001540:                                                                                                  #  RXD1-RXD2.
018495,001541: 
018496,001542: 40,2775           02545        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
018497,001543: 40,2776           02422                           TC       +ON                                   #  TURN ON + SIGN
018498,001544: 40,2777           30154                           CA       MPAC                                  
018499,001545: 40,3000           03351                           TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
018500,001546: 40,3001           46250                           CS       THREE                                 
018501,001547: 40,3002           50117                           INDEX    DECOUNT                               
018502,001548: 40,3003           64317                           AD       R1D1                                  #  RXD4
018503,001549: 40,3004           54776                           TS       DSPCOUNT                              
018504,001550: 40,3005           03012                           TC       READLO                                #  GET 2ND INTEGER
018505,001551: 40,3006           30155                           CA       MPAC       +1                         
018506,001552: 40,3007           03351                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
018507,001553: 40,3010           04635                           TC       POSTJUMP                              
018508,001554: 40,3011           62577                           CADR     DSPDCEND   +2                         
018509,001555: 
018510,001556: 
018511,001557:                                                                                                  #  READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN 
018512,001558:                                                                                                  #  MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
018513,001559:                                                                                                  #  DOES NOT FORCE TPAGREE.
018514,001560: 
018515,001561: 40,3012           56002        READLO             XCH      Q                                     
018516,001562: 40,3013           54144                           TS       TEM4                                  
018517,001563: 40,3014           50140                           INDEX    MIXBR                                 
018518,001564: 40,3015           03015                           TC       +0                                    
018519,001565: 40,3016           03032                           TC       RDLONOR                               
018520,001566: 40,3017           50117                           INDEX    DECOUNT                               
018521,001567: 40,3020           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
018522,001568: 40,3021           74356                           MASK     LOW11                                 #  E SUBK
018523,001569: 40,3022           04313                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
018524,001570: 40,3023           00006        READLO1            EXTEND                                         #  MIXED         NORMAL
018525,001571: 40,3024           50000                           INDEX    A                                     #  C(ESUBK)      C(E)
018526,001572: 40,3025           30001                           DCA      0                                     #  C((E SUBK)+1)      C(E+1)
018527,001573: 40,3026           52155                           DXCH     MPAC                                  
018528,001574: 40,3027           34755                           CAF      ZERO                                  
018529,001575: 40,3030           54156                           TS       MPAC       +2                         
018530,001576: 40,3031           00144                           TC       TEM4                                  
018531,001577: 
018532,001578: 40,3032           30145        RDLONOR            CA       NOUNADD                               #  E
018533,001579: 40,3033           03023        ENDRDLO            TC       READLO1                               
018534,001580: 

Page 428

018536,001582: 42,3234                                           BANK     42                                    
018537,001583: 42,2000                                           SETLOC   PINBALL3                              
018538,001584: 42,2000                                           BANK                                           
018539,001585: 
018540,001586: 42,3234                                           COUNT*   $$/PIN                                
018541,001587: 42,3234           04616        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
018542,001588: 42,3235           61012                           CADR     READLO                                #  MPAC+1.
018543,001589: 42,3236           07262                           TC       TPAGREE                               #  MAKE DP DATA AGREE
018544,001590: 42,3237           03423                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
018545,001591:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
018546,001592: 42,3240           07106                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
018547,001593: 42,3241           03275                           ADRES    SECON2                                #  MULT BY .06
018548,001594: 42,3242           34321                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
018549,001595: 42,3243           54776                           TS       DSPCOUNT                              
018550,001596: 42,3244           04616                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
018551,001597: 42,3245           61271                           CADR     DSPDECWD                              
018552,001598: 42,3246           03441                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
018553,001599: 42,3247           33277                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
018554,001600: 42,3250           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
018555,001601: 42,3251           55006                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
018556,001602: 42,3252           33300                           CAF      MINCON2    +1                         
018557,001603: 42,3253           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
018558,001604: 42,3254           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
018559,001605:                                                                                                  #  MULT BY .0006
018560,001606: 42,3255           34320                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
018561,001607: 42,3256           54776                           TS       DSPCOUNT                              
018562,001608: 42,3257           04616                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
018563,001609: 42,3260           61271                           CADR     DSPDECWD                              
018564,001610: 42,3261           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
018565,001611: 42,3262           33304                           DCA      HRCON1                                
018566,001612: 42,3263           52155                           DXCH     MPAC                                  
018567,001613: 42,3264           31006                           CA       HITEMOUT                              #  USE WHOLE HOURS
018568,001614: 42,3265           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
018569,001615:                                                                                                  #  MULT BY .16384
018570,001616: 42,3266           34317                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
018571,001617: 42,3267           54776                           TS       DSPCOUNT                              
018572,001618: 42,3270           04616                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
018573,001619: 42,3271           61271                           CADR     DSPDECWD                              
018574,001620: 42,3272           00136                           TC       ENTEXIT                               
018575,001621: 
018576,001622: 42,3273           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
018577,001623: 
018578,001624: 42,3275           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
018579,001625: 42,3276           01217                           OCT      01217                                 
018580,001626: 42,3277           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
018581,001627: 42,3300           32445                           OCT      32445                                 
018582,001628: 42,3301           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
018583,001629: 42,3302           10422                           OCT      10422                                 
018584,001630: 42,3303           05174 13261  HRCON1             2DEC     .16384                                
018585,001631: 

Page 429

018587,001633: 42,3305           00000                           OCT      00000                                 
018588,001634: 42,3306           00062        RNDCON             OCT      00062                                 #  .5 SEC
018589,001635: 
018590,001636: 
018591,001637: 42,3307           04616        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
018592,001638: 42,3310           61012                           CADR     READLO                                #  MPAC+1.
018593,001639: 42,3311           07262                           TC       TPAGREE                               #  MAKE DP DATA AGREE
018594,001640: 42,3312           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
018595,001641: 42,3313           03315                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
018596,001642: 42,3314           03346                           TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
018597,001643: 42,3315           63403                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1  FOR CCS
018598,001644: 42,3316           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
018599,001645: 42,3317           03332                           TC       M/SLIMIT                              #  G/ 59M58.5S
018600,001646: 42,3320           03346                           TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
018601,001647: 42,3321           03346                           TC       M/SNORM                               #  L/ 59M58.5S
018602,001648: 42,3322           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
018603,001649: 42,3323           03325                           TC       +2                                    
018604,001650: 42,3324           03346                           TC       M/SNORM                               #  MPAC+1 = +0. L/ 59M58.5S
018605,001651: 42,3325           63404                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1  FOR CCS
018606,001652: 42,3326           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
018607,001653: 42,3327           03332                           TC       M/SLIMIT                              #  G/ 59M58.5S
018608,001654: 42,3330           03346                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
018609,001655: 42,3331           03346                           TC       M/SNORM                               #  L/ 59M58.5S
018610,001656: 42,3332           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
018611,001657: 42,3333           33406                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
018612,001658: 42,3334           03343                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
018613,001659: 42,3335           43406                           CS       M/SCON3                               
018614,001660: 42,3336           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
018615,001661: 42,3337           43407                           CS       M/SCON3    +1                         
018616,001662: 42,3340           54155        LIMITCOM           TS       MPAC       +1                         
018617,001663: 42,3341           33405                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
018618,001664: 42,3342           03424                           TC       SEPSECNR   +1                         
018619,001665: 42,3343           54154        +LIMIT             TS       MPAC                                  
018620,001666: 42,3344           33407                           CAF      M/SCON3    +1                         
018621,001667: 42,3345           03340                           TC       LIMITCOM                              
018622,001668: 42,3346           03410        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
018623,001669:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
018624,001670: 42,3347           33401                           CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
018625,001671: 42,3350           07312                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
018626,001672: 42,3351           46250                           CS       THREE                                 #  GIVES SEC/100 MOD 60
018627,001673: 42,3352           26776                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
018628,001674: 42,3353           04616                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
018629,001675: 42,3354           61331                           CADR     DSPDC2NR                              
018630,001676: 42,3355           34755                           CAF      ZERO                                  
018631,001677: 42,3356           54124                           TS       CODE                                  
018632,001678: 42,3357           44752                           CS       TWO                                   
018633,001679: 42,3360           50117                           INDEX    DECOUNT                               
018634,001680: 42,3361           64317                           AD       R1D1                                  #  RXD3
018635,001681: 42,3362           54143                           TS       COUNT                                 
018636,001682: 42,3363           04616                           TC       BANKCALL                              #  BLANK MIDDLE CHAR

Page 430

018638,001684: 42,3364           61365                           CADR     DSPIN                                 
018639,001685: 42,3365           03441                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
018640,001686: 42,3366           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
018641,001687: 42,3367           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
018642,001688: 42,3370           73402                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
018643,001689: 42,3371           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
018644,001690: 42,3372           50117                           INDEX    DECOUNT                               
018645,001691: 42,3373           34317                           CAF      R1D1                                  #  RXD1
018646,001692: 42,3374           54776                           TS       DSPCOUNT                              
018647,001693: 42,3375           04616                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
018648,001694: 42,3376           61331                           CADR     DSPDC2NR                              
018649,001695: 42,3377           04635                           TC       POSTJUMP                              
018650,001696: 42,3400           62577                           CADR     DSPDCEND   +2                         
018651,001697: 
018652,001698: 42,3401           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
018653,001699: 42,3402           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
018654,001700: 
018655,001701: 42,3403           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
018656,001702: 42,3404           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
018657,001703: 42,3405           03347        NORMADR            ADRES    M/SNORM    +1                         
018658,001704: 42,3406           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
018659,001705: 42,3407           37016                           OCT      37016                                 
018660,001706: 
018661,001707: 
018662,001708: 42,3410           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
018663,001709: 42,3411           13420                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
018664,001710: 42,3412           13420                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
018665,001711: 42,3413           13414                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
018666,001712: 42,3414           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
018667,001713: 42,3415           43306                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
018668,001714: 42,3416           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
018669,001715: 42,3417           13423                           TCF      SEPSECNR                              
018670,001716: 42,3420           00006        POSEC              EXTEND                                         
018671,001717: 42,3421           33306                           DCA      RNDCON     -1                         
018672,001718: 42,3422           13416                           TCF      SEPSEC1                               
018673,001719: 42,3423           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
018674,001720: 42,3424           54144                           TS       SEPSCRET                              
018675,001721: 42,3425           07106                           TC       DMP                                   #  MULT BY 2EXP12/6000
018676,001722: 42,3426           03273                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
018677,001723: 42,3427           00006                           EXTEND                                         #  AND BELOW.
018678,001724: 42,3430           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
018679,001725: 42,3431           53007                           DXCH     HITEMOUT                              
018680,001726: 42,3432           04404                           TC       TPSL1                                 
018681,001727: 42,3433           04404                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
018682,001728: 42,3434           34755                           CAF      ZERO                                  
018683,001729: 42,3435           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
018684,001730: 42,3436           56155                           XCH      MPAC       +1                         
018685,001731: 42,3437           56154                           XCH      MPAC                                  
018686,001732: 42,3440           00144                           TC       SEPSCRET                              
018687,001733: 

Page 431

018689,001735: 42,3441           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
018690,001736: 42,3442           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
018691,001737: 42,3443           31007                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
018692,001738: 42,3444           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
018693,001739: 42,3445           74751                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
018694,001740: 42,3446           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
018695,001741: 42,3447           74737                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
018696,001742: 42,3450           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
018697,001743:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
018698,001744: 42,3451           31006                           CA       HITEMOUT                              
018699,001745: 42,3452           54154                           TS       MPAC                                  
018700,001746: 42,3453           07106                           TC       DMP                                   #  MULT BY 1/15
018701,001747: 42,3454           03301                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
018702,001748: 42,3455           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
018703,001749: 
018704,001750: 
018705,001751:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
018706,001752:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
018707,001753:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
018708,001754:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
018709,001755:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
018710,001756:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
018711,001757: 
018712,001758: 
018713,001759: 40,3034                                           SETLOC   ENDRDLO    +1                         
018714,001760: 
018715,001761: 40,3034                                           COUNT*   $$/PIN                                
018716,001762: 40,3034           50140        DSPDPDEC           INDEX    MIXBR                                 
018717,001763: 40,3035           03035                           TC       +0                                    
018718,001764: 40,3036           03040                           TC       +2                                    #  NORMAL NOUN
018719,001765: 40,3037           03463                           TC       DSPALARM                              
018720,001766: 40,3040           00006                           EXTEND                                         
018721,001767: 40,3041           50145                           INDEX    NOUNADD                               
018722,001768: 40,3042           30001                           DCA      0                                     
018723,001769: 40,3043           52155                           DXCH     MPAC                                  
018724,001770: 40,3044           34317                           CAF      R1D1                                  
018725,001771: 40,3045           54776                           TS       DSPCOUNT                              
018726,001772: 40,3046           34755                           CAF      ZERO                                  
018727,001773: 40,3047           54156                           TS       MPAC       +2                         
018728,001774: 40,3050           07262                           TC       TPAGREE                               
018729,001775: 40,3051           03336                           TC       DSP2DEC                               
018730,001776: 40,3052           00136        ENDDPDEC           TC       ENTEXIT                               
018731,001777: 

Page 432

018733,001779:                                                                                                  #  LOAD VERBS           IF ALARM CONDITION IS DETECTED DURING EXECUTE,
018734,001780:                                                                                                  #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
018735,001781:                                                                                                  #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
018736,001782:                                                                                                  #  TO EXECUTE  OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY  1) DECIMAL MACHINE
018737,001783:                                                                                                  #  CADR  2) MIXTURE OF OCTAL/DECIMAL DATA  3) OCTAL DATA INTO DECIMAL
018738,001784:                                                                                                  #  ONLY NOUN  4) DEC DATA INTO OCT ONLY NOUN  5) DATA TOO LARGE FOR SCALE
018739,001785:                                                                                                  #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
018740,001786:                                                                                                  #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
018741,001787:                                                                                                  #  ENTER OF CADR.
018742,001788: 
018743,001789: 
018744,001790: 41,2627                                           SETLOC   ENDRTOUT                              
018745,001791: 
018746,001792: 41,2627                                           COUNT*   $$/PIN                                
018747,001793: 41,2627           44752        ABCLOAD            CS       TWO                                   
018748,001794: 41,2630           02433                           TC       COMPTEST                              
018749,001795: 41,2631           02467                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
018750,001796: 41,2632           33036                           CAF      VBSP1LD                               
018751,001797: 41,2633           02346                           TC       UPDATVB    -1                         
018752,001798: 41,2634           02312                           TC       REQDATX                               
018753,001799: 41,2635           33037                           CAF      VBSP2LD                               
018754,001800: 41,2636           02346                           TC       UPDATVB    -1                         
018755,001801: 41,2637           02314                           TC       REQDATY                               
018756,001802: 41,2640           33040                           CAF      VBSP3LD                               
018757,001803: 41,2641           02346                           TC       UPDATVB    -1                         
018758,001804: 41,2642           02316                           TC       REQDATZ                               
018759,001805: 
018760,001806: 
018761,001807: 41,2643           46245        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
018762,001808: 41,2644           03041                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
018763,001809: 41,2645           00006                           EXTEND                                         
018764,001810: 41,2646           32121                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018765,001811: 41,2647           52006                           DXCH     Z                                     #  ROUTINE.
018766,001812: 41,2650           34755                           CAF      ZERO                                  #  X COMP
018767,001813: 41,2651           03125                           TC       PUTCOM                                
018768,001814: 41,2652           50145                           INDEX    NOUNADD                               
018769,001815: 41,2653           54000                           TS       0                                     
018770,001816: 41,2654           34753                           CAF      ONE                                   #  Y COMP
018771,001817: 41,2655           03125                           TC       PUTCOM                                
018772,001818: 41,2656           50145                           INDEX    NOUNADD                               
018773,001819: 41,2657           54001                           TS       1                                     
018774,001820: 41,2660           34752                           CAF      TWO                                   #  Z COMP
018775,001821: 41,2661           03125                           TC       PUTCOM                                
018776,001822: 41,2662           50145                           INDEX    NOUNADD                               
018777,001823: 41,2663           54002                           TS       2                                     
018778,001824: 41,2664           44757                           CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
018779,001825: 41,2665           61001                           AD       NOUNREG                               #   FLAG BITS AS SPECIFIED.
018780,001826: 41,2666           00006                           EXTEND                                         
018781,001827: 41,2667           12671                           BZF      +2                                    
018782,001828: 41,2670           03025                           TC       LOADLV                                

Page 433

018784,001830: 41,2671           00004                           INHINT                                         
018785,001831: 41,2672           44763                           CS       OCT30                                 #  IS IT A CHANNEL (30 OR UNDER)
018786,001832: 41,2673           61002                           AD       XREG                                  
018787,001833: 41,2674           00006                           EXTEND                                         
018788,001834: 41,2675           62705                           BZMF     CHANBITS                              #  YES
018789,001835: 
018790,001836: 41,2676           31002                           CA       XREG                                  #  ECADR OF ERASABLE CELL
018791,001837: 41,2677           04304                           TC       SETNCADR   +1                         #  SET EBANK, NOUNADD
018792,001838: 
018793,001839: 41,2700           50145                           INDEX    NOUNADD                               
018794,001840: 41,2701           30000                           CA       0                                     
018795,001841: 41,2702           54001                           TS       L                                     
018796,001842: 41,2703           34753                           CAF      ONE                                   
018797,001843: 41,2704           55002                           TS       XREG                                  #  MAKE IT LOOK LIKE A CHANNEL FOR A WHILE
018798,001844: 
018799,001845: 41,2705           64361        CHANBITS           AD       OCT21                                 
018800,001846: 41,2706           00006                           EXTEND                                         
018801,001847: 41,2707           12731                           BZF      BITSOFF2                              #  DONT TOUCH CHAN7 (SUPERBANK)
018802,001848: 
018803,001849: 41,2710           31004                           CA       ZREG                                  
018804,001850: 41,2711           00006                           EXTEND                                         
018805,001851: 41,2712           62720                           BZMF     BITSOFF                               #  R3 IS ZERO FOR OFF, NONZERO FOR ON
018806,001852: 
018807,001853: 41,2713           31003                           CA       YREG                                  
018808,001854: 41,2714           00006                           EXTEND                                         
018809,001855: 41,2715           51002                           INDEX    XREG                                  
018810,001856: 41,2716           05000                           WOR      0                                     
018811,001857: 41,2717           12724                           TCF      BITSOFF1                              
018812,001858: 
018813,001859: 41,2720           41003        BITSOFF            CS       YREG                                  
018814,001860: 41,2721           00006                           EXTEND                                         
018815,001861: 41,2722           51002                           INDEX    XREG                                  
018816,001862: 41,2723           03000                           WAND     0                                     
018817,001863: 
018818,001864: 41,2724           11002        BITSOFF1           CCS      XREG                                  #  WAS IT REALLY A CHANNEL
018819,001865: 41,2725           10000                           CCS      A                                     
018820,001866: 41,2726           12731                           TCF      BITSOFF2                              #  YES
018821,001867: 
018822,001868: 41,2727           50145                           INDEX    NOUNADD                               
018823,001869: 41,2730           22000                           LXCH     0                                     
018824,001870: 
018825,001871: 41,2731           00003        BITSOFF2           RELINT                                         
018826,001872: 41,2732           03025                           TC       LOADLV                                
018827,001873: 
018828,001874: 41,2733     4763               OCT30              =        BITS4&5                               
018829,001875: 41,2733           44753        ABLOAD             CS       ONE                                   
018830,001876: 41,2734           02433                           TC       COMPTEST                              
018831,001877: 41,2735           02467                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
018832,001878: 41,2736           33036                           CAF      VBSP1LD                               
018833,001879: 41,2737           02346                           TC       UPDATVB    -1                         

Page 434

018835,001881: 41,2740           02312                           TC       REQDATX                               
018836,001882: 41,2741           33037                           CAF      VBSP2LD                               
018837,001883: 41,2742           02346                           TC       UPDATVB    -1                         
018838,001884: 41,2743           02314                           TC       REQDATY                               
018839,001885: 41,2744           44756        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
018840,001886: 41,2745           03041                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
018841,001887: 41,2746           00006                           EXTEND                                         
018842,001888: 41,2747           32121                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018843,001889: 41,2750           52006                           DXCH     Z                                     #  ROUTINE.
018844,001890: 41,2751           34755                           CAF      ZERO                                  #  X COMP
018845,001891: 41,2752           03125                           TC       PUTCOM                                
018846,001892: 41,2753           50145                           INDEX    NOUNADD                               
018847,001893: 41,2754           54000                           TS       0                                     
018848,001894: 41,2755           34753                           CAF      ONE                                   #  Y COMP
018849,001895: 41,2756           03125                           TC       PUTCOM                                
018850,001896: 41,2757           50145                           INDEX    NOUNADD                               
018851,001897: 41,2760           54001                           TS       1                                     
018852,001898: 41,2761           03025                           TC       LOADLV                                
018853,001899: 
018854,001900: 41,2762           02312        ALOAD              TC       REQDATX                               
018855,001901: 41,2763           00006                           EXTEND                                         
018856,001902: 41,2764           32121                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018857,001903: 41,2765           52006                           DXCH     Z                                     #  ROUTINE.
018858,001904: 41,2766           34755                           CAF      ZERO                                  #  X COMP
018859,001905: 41,2767           03125                           TC       PUTCOM                                
018860,001906: 41,2770           50145                           INDEX    NOUNADD                               
018861,001907: 41,2771           54000                           TS       0                                     
018862,001908: 41,2772           03025                           TC       LOADLV                                
018863,001909: 
018864,001910: 41,2773           44753        BLOAD              CS       ONE                                   
018865,001911: 41,2774           02433                           TC       COMPTEST                              
018866,001912: 41,2775           34735                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018867,001913: 41,2776           55014                           TS       CLPASS                                
018868,001914: 41,2777           02314                           TC       REQDATY                               
018869,001915: 41,3000           00006                           EXTEND                                         
018870,001916: 41,3001           32121                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018871,001917: 41,3002           52006                           DXCH     Z                                     #  ROUTINE.
018872,001918: 41,3003           34753                           CAF      ONE                                   
018873,001919: 41,3004           03125                           TC       PUTCOM                                
018874,001920: 41,3005           50145                           INDEX    NOUNADD                               
018875,001921: 41,3006           54001                           TS       1                                     
018876,001922: 41,3007           03025                           TC       LOADLV                                
018877,001923: 
018878,001924: 41,3010           44752        CLOAD              CS       TWO                                   
018879,001925: 41,3011           02433                           TC       COMPTEST                              
018880,001926: 41,3012           34735                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018881,001927: 41,3013           55014                           TS       CLPASS                                
018882,001928: 41,3014           02316                           TC       REQDATZ                               
018883,001929: 41,3015           00006                           EXTEND                                         
018884,001930: 41,3016           32121                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING

Page 435

018886,001932: 41,3017           52006                           DXCH     Z                                     #  ROUTINE.
018887,001933: 41,3020           34752                           CAF      TWO                                   
018888,001934: 41,3021           03125                           TC       PUTCOM                                
018889,001935: 41,3022           50145                           INDEX    NOUNADD                               
018890,001936: 41,3023           54002                           TS       2                                     
018891,001937: 41,3024           03025                           TC       LOADLV                                
018892,001938: 
018893,001939: 41,3025           34755        LOADLV             CAF      ZERO                                  
018894,001940: 41,3026           54777                           TS       DECBRNCH                              
018895,001941: 41,3027           44755                           CS       ZERO                                  
018896,001942: 41,3030           55013                           TS       LOADSTAT                              
018897,001943: 41,3031           04457                           TC       RELDSP                                #  RELEASE FOR PRIORITY DISPLAY PROBLEM.
018898,001944: 41,3032           44360                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
018899,001945: 41,3033           54776                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
018900,001946: 41,3034           04635                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
018901,001947: 41,3035           61621                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
018902,001948: 
018903,001949: 41,3036           00025        VBSP1LD            DEC      21         B-14                       #  VB21 = ALOAD
018904,001950: 41,3037           00026        VBSP2LD            DEC      22         B-14                       #  VB22 = BLOAD
018905,001951: 41,3040           00027        VBSP3LD            DEC      23         B-14                       #  VB23 = CLOAD
018906,001952: 
018907,001953: 
018908,001954: 41,3041           54117        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
018909,001955: 41,3042           40777                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
018910,001956: 41,3043           54021                           TS       SR                                    
018911,001957: 41,3044           40021                           CS       SR                                    
018912,001958: 41,3045           40021                           CS       SR                                    #  SHIFTED RIGHT 2
018913,001959: 41,3046           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
018914,001960: 41,3047           13051                           TCF      +2                                    #  SOME ONES IN LOW 3
018915,001961: 41,3050           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
018916,001962: 41,3051           60117                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
018917,001963: 41,3052           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
018918,001964: 41,3053           13055                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
018919,001965: 41,3054           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
018920,001966: 41,3055           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC. OK
018921,001967: 
018922,001968: 
018923,001969: 41,3056           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
018924,001970: 41,3057           54114                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
018925,001971: 41,3060           34347                           CAF      MID5                                  
018926,001972: 41,3061           70147                           MASK     NNTYPTEM                              
018927,001973: 41,3062           04322                           TC       RIGHT5                                
018928,001974: 41,3063           00114                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
018929,001975: 
018930,001976: 41,3064           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
018931,001977: 41,3065           54114                           TS       EXITEM                                
018932,001978: 41,3066           50117                           INDEX    DECOUNT                               
018933,001979: 41,3067           33116                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
018934,001980: 41,3070           54001                           TS       L                                     
018935,001981: 41,3071           50117                           INDEX    DECOUNT                               

Page 436

018937,001983: 41,3072           34346                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
018938,001984: 41,3073           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
018939,001985: 41,3074           50001                           INDEX    L                                     
018940,001986: 41,3075           00000                           TC       0                                     
018941,001987:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
018942,001988: 41,3076           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
018943,001989: 
018944,001990: 41,3077           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
018945,001991: 41,3100           54114                           TS       EXITEM                                
018946,001992: 41,3101           50140                           INDEX    MIXBR                                 
018947,001993: 41,3102           03102                           TC       +0                                    
018948,001994: 41,3103           03121                           TC       CONUMNOR                              #  NORMAL NOUN
018949,001995: 41,3104           50117                           INDEX    DECOUNT                               #  MIXED NOUN
018950,001996: 41,3105           33116                           CAF      DISPLACE                              
018951,001997: 41,3106           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
018952,001998: 41,3107           50117                           INDEX    DECOUNT                               
018953,001999: 41,3110           34346                           CAF      LOW5                                  
018954,002000: 41,3111           70147                           MASK     NNTYPTEM                              
018955,002001: 41,3112           50001                           INDEX    L                                     
018956,002002: 41,3113           00000                           TC       0                                     
018957,002003:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
018958,002004: 41,3114           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
018959,002005: 41,3115           00114                           TC       EXITEM                                
018960,002006: 
018961,002007: 41,3116           03055        DISPLACE           TC       GOQ                                   
018962,002008: 41,3117           04322                           TC       RIGHT5                                
018963,002009: 41,3120           04331                           TC       LEFT5                                 
018964,002010: 
018965,002011: 41,3121           34346        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
018966,002012: 41,3122           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
018967,002013: 41,3123           60000                           DOUBLE                                         
018968,002014: 41,3124           00114                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
018969,002015: 
018970,002016: 
018971,002017: 41,3125           54117        PUTCOM             TS       DECOUNT                               
018972,002018: 41,3126           56002                           XCH      Q                                     
018973,002019: 41,3127           54115                           TS       DECRET                                
018974,002020: 41,3130           34755                           CAF      ZERO                                  
018975,002021: 41,3131           54162                           TS       MPAC+6                                
018976,002022: 41,3132           50117                           INDEX    DECOUNT                               
018977,002023: 41,3133           57005                           XCH      XREGLP                                
018978,002024: 41,3134           54155                           TS       MPAC       +1                         
018979,002025: 41,3135           50117                           INDEX    DECOUNT                               
018980,002026: 41,3136           57002                           XCH      XREG                                  
018981,002027: 41,3137           54154                           TS       MPAC                                  
018982,002028: 41,3140           50140                           INDEX    MIXBR                                 
018983,002029: 41,3141           03141                           TC       +0                                    
018984,002030: 41,3142           03167                           TC       PUTNORM                               #  NORMAL NOUN
018985,002031:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
018986,002032: 41,3143           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K

Page 437

018988,002034: 41,3144           30150                           CA       IDAD1TEM                              #          OF NOUN.
018989,002035: 41,3145           74356                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
018990,002036: 41,3146           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018991,002037: 41,3147           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
018992,002038: 41,3150           60117                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
018993,002039: 41,3151           54145                           TS       NOUNADD                               
018994,002040: 41,3152           10777                           CCS      DECBRNCH                              
018995,002041: 41,3153           03224                           TC       PUTDECSF                              #  +  DEC
018996,002042: 41,3154           02461                           TC       DCTSTCYC                              #  +0 OCTAL
018997,002043: 41,3155           03064                           TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1. IF SO,
018998,002044: 41,3156           02266                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
018999,002045: 41,3157           03205                           TC       PUTCOM2                               #  NO DP
019000,002046:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
019001,002047:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
019002,002048:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
019003,002049: 41,3160           24145        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
019004,002050: 41,3161           30145                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
019005,002051: 41,3162           26117                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
019006,002052: 41,3163           34755                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
019007,002053: 41,3164           50117                           INDEX    DECOUNT                               
019008,002054: 41,3165           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
019009,002055: 41,3166           03205                           TC       PUTCOM2                               
019010,002056: 
019011,002057: 41,3167           04311        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
019012,002058: 41,3170           10777                           CCS      DECBRNCH                              
019013,002059: 41,3171           03224                           TC       PUTDECSF                              #  +  DEC
019014,002060: 41,3172           02461                           TC       DCTSTCYC                              #  +0 OCTAL
019015,002061: 41,3173           03056                           TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1. IF SO,
019016,002062: 41,3174           02266                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
019017,002063: 41,3175           03201                           TC       PUTCOM2    -4                         #  NO DP
019018,002064: 41,3176           34755                           CAF      ZERO                                  #  DP
019019,002065: 41,3177           54117                           TS       DECOUNT                               
019020,002066: 41,3200           03160                           TC       PUTDPCOM                              
019021,002067: 
019022,002068: 41,3201           30146                           CA       NNADTEM                               
019023,002069: 41,3202           64753                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
019024,002070: 41,3203           00006                           EXTEND                                         
019025,002071: 41,3204           13211                           BZF      CHANLOAD                              
019026,002072: 41,3205           56154        PUTCOM2            XCH      MPAC                                  
019027,002073: 41,3206           00115                           TC       DECRET                                
019028,002074: 
019029,002075: 41,3207     0776                                  EBANK=   DSPCOUNT                              
019030,002076: 41,3207           02147 64101  GTSFINLC           2CADR    GTSFIN                                
019031,002077: 
019032,002078: 
019033,002079: 
019034,002080: 41,3211           44757        CHANLOAD           CS       SEVEN                                 #  DONT LOAD CHAN 7. (IT = SUPERBANK).
019035,002081: 41,3212           61016                           AD       NOUNCADR                              
019036,002082: 41,3213           00006                           EXTEND                                         
019037,002083: 41,3214           13025                           BZF      LOADLV                                

Page 438

019039,002085: 41,3215           31016                           CA       NOUNCADR                              
019040,002086: 41,3216           75004                           MASK     LOW9                                  
019041,002087: 41,3217           56154                           XCH      MPAC                                  
019042,002088: 41,3220           00006                           EXTEND                                         
019043,002089: 41,3221           50154                           INDEX    MPAC                                  
019044,002090: 41,3222           01000                           WRITE    0                                     
019045,002091: 41,3223           03025                           TC       LOADLV                                
019046,002092: 
019047,002093: 
019048,002094:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
019049,002095: 
019050,002096: 41,3224           03077        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
019051,002097: 41,3225           54123                           TS       SFTEMP1                               
019052,002098: 41,3226           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
019053,002099: 41,3227           33210                           DCA      GTSFINLC                              #  READING ROUTINE.
019054,002100: 41,3230           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
019055,002101: 41,3231           50140                           INDEX    MIXBR                                 
019056,002102: 41,3232           03232                           TC       +0                                    
019057,002103: 41,3233           03236                           TC       PUTSFNOR                              
019058,002104: 41,3234           03064                           TC       SFRUTMIX                              
019059,002105: 41,3235           03237                           TC       PUTDCSF2                              
019060,002106: 41,3236           03056        PUTSFNOR           TC       SFRUTNOR                              
019061,002107: 
019062,002108: 41,3237           50000        PUTDCSF2           INDEX    A                                     
019063,002109: 41,3240           33242                           CAF      SFINTABR                              
019064,002110: 41,3241           04640                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
019065,002111: 41,3242           62357        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
019066,002112:                                                                                                  #  WITH OCTAL ONLY NOUN.
019067,002113: 41,3243           61151                           CADR     BINROUND                              
019068,002114: 41,3244           61053                           CADR     DEGINSF                               
019069,002115: 41,3245           61141                           CADR     ARTHINSF                              
019070,002116: 41,3246           61157                           CADR     DPINSF                                
019071,002117: 41,3247           61204                           CADR     DPINSF2                               
019072,002118: 41,3250           61463                           CADR     DSPALARM                              #  LRPOSOUT CANT BE LOADED.
019073,002119: 41,3251           61157                           CADR     DPINSF                                #  SAME AS ARITHDP1
019074,002120: 41,3252           65456                           CADR     HMSIN                                 
019075,002121: 41,3253           61463                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
019076,002122: 41,3254           61211                           CADR     DPINSF4                               
019077,002123: 41,3255           61154                           CADR     ARTIN1SF                              
019078,002124: 41,3256           61463                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
019079,002125: 41,3257           61053                           CADR     DEGINSF                               #  TESTS AT END FOR 360-CDU
019080,002126: 41,3260           61463                           CADR     DSPALARM                              #  RRANGOUT CANT BE LOADED.
019081,002127: 41,3261           61463                           CADR     DSPALARM                              #  RRDOTOUT CANT BE LOADED.
019082,002128: 41,3262                        ENDRUTIN           EQUALS                                         
019083,002129: 
019084,002130:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
019085,002131:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
019086,002132: 

Page 439

019088,002134: 40,3053                                           SETLOC   ENDDPDEC   +1                         
019089,002135: 
019090,002136: 40,3053                                           COUNT*   $$/PIN                                
019091,002137:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
019092,002138: 
019093,002139: 40,3053           07106        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
019094,002140: 40,3054           03137                           ADRES    DEGCON1                               #  MULT BY 5.5  5(10)X2EXP-3
019095,002141: 40,3055           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
019096,002142: 40,3056           34741                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
019097,002143: 40,3057           03061                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
019098,002144: 40,3060           44741                           CS       BIT11                                 
019099,002145: 40,3061           60155                           AD       MPAC       +1                         
019100,002146: 40,3062           03230                           TC       2ROUND     +2                         
019101,002147: 40,3063           04404                           TC       TPSL1                                 #  LEFT 1
019102,002148: 40,3064           04404        DEGINSF2           TC       TPSL1                                 #  LEFT 2
019103,002149: 40,3065           03237                           TC       TESTOFUF                              
019104,002150: 40,3066           04404                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
019105,002151: 40,3067           10154                           CCS      MPAC                                  
019106,002152: 40,3070           03074                           TC       SIGNFIX                               #  IF+, GO TO SIGNFIX
019107,002153: 40,3071           03074                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
019108,002154: 40,3072           40000                           COM                                            #  IF - , USE -MAGNITUDE +1
019109,002155: 40,3073           54154                           TS       MPAC                                  #  IF -0, USE +0
019110,002156: 40,3074           10162        SIGNFIX            CCS      MPAC+6                                
019111,002157: 40,3075           03133                           TC       SGNTO1                                #  IF OVERFLOW
019112,002158: 40,3076           03106                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
019113,002159: 40,3077           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
019114,002160: 40,3100           05706                           TC       CCSHOLE                               
019115,002161: 40,3101           03131                           TC       NEG180                                
019116,002162: 40,3102           03103                           TC       +1                                    
019117,002163: 40,3103           56154                           XCH      MPAC                                  
019118,002164: 40,3104           74733                           MASK     POSMAX                                
019119,002165: 40,3105           54154                           TS       MPAC                                  
019120,002166: 40,3106           50140        ENDSCALE           INDEX    MIXBR                                 #  IF ROUTINE NO. IS NOT CDU DEGREES,
019121,002167: 40,3107           03107                           TC       +0                                    #   THEN THIS IS 360 - CDU DEGREES
019122,002168: 40,3110           03113                           TC       +3                                    #   AND ANGLE IN MPAC MUST BE REPLACED
019123,002169: 40,3111           03123                           TC       SFMIXCAL                              #   BY 360 DEGREES MINUS ITSELF.
019124,002170: 40,3112           03114        MIXBACK            TC       +2                                    
019125,002171: 40,3113           03126                           TC       SFNORCAL                              
019126,002172: 40,3114           40000        NORBACK            CS       A                                     
019127,002173: 40,3115           64752                           AD       BIT2                                  
019128,002174: 40,3116           00006                           EXTEND                                         
019129,002175: 40,3117           13121                           BZF      +2                                    
019130,002176: 40,3120           02634                           TC       360-CDU                               
019131,002177: 40,3121           04635        ENDSCAL1           TC       POSTJUMP                              
019132,002178: 40,3122           63205                           CADR     PUTCOM2                               
019133,002179: 
019134,002180: 40,3123           04616        SFMIXCAL           TC       BANKCALL                              
019135,002181: 40,3124           63064                           CADR     SFRUTMIX                              
019136,002182: 40,3125           03112                           TC       MIXBACK                               
019137,002183: 

Page 440

019139,002185: 40,3126           04616        SFNORCAL           TC       BANKCALL                              
019140,002186: 40,3127           63056                           CADR     SFRUTNOR                              
019141,002187: 40,3130           03114                           TC       NORBACK                               
019142,002188: 
019143,002189: 40,3131           44733        NEG180             CS       POSMAX                                
019144,002190: 40,3132           03105                           TC       ENDSCALE   -1                         
019145,002191: 
019146,002192: 40,3133           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
019147,002193: 40,3134           74733                           MASK     POSMAX                                
019148,002194: 40,3135           40000                           CS       A                                     
019149,002195: 40,3136           03105                           TC       ENDSCALE   -1                         
019150,002196: 
019151,002197: 40,3137           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
019152,002198: 
019153,002199: 
019154,002200: 40,3141           07106        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019155,002201: 40,3142           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
019156,002202: 40,3143           56156                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
019157,002203: 40,3144           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
019158,002204: 40,3145           56154                           XCH      MPAC                                  
019159,002205: 40,3146           00006                           EXTEND                                         
019160,002206: 40,3147           13151                           BZF      BINROUND                              
019161,002207: 40,3150           04145                           TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
019162,002208: 40,3151           03226        BINROUND           TC       2ROUND                                
019163,002209: 40,3152           03237                           TC       TESTOFUF                              
019164,002210: 40,3153           03121                           TC       ENDSCAL1                              #  RETURNS IF NO OF/UF
019165,002211: 
019166,002212: 40,3154           07106        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019167,002213: 40,3155           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
019168,002214: 40,3156           03151                           TC       BINROUND                              
019169,002215: 
019170,002216: 
019171,002217: 40,3157           07106        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
019172,002218: 40,3160           00123                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
019173,002219: 40,3161           56156                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
019174,002220: 40,3162           60000                           DOUBLE                                         
019175,002221: 40,3163           54156                           TS       MPAC       +2                         
019176,002222: 40,3164           34755                           CAF      ZERO                                  
019177,002223: 40,3165           60155                           AD       MPAC       +1                         
019178,002224: 40,3166           03230                           TC       2ROUND     +2                         
019179,002225: 40,3167           03237                           TC       TESTOFUF                              
019180,002226: 40,3170           50140                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
019181,002227: 40,3171           03171                           TC       +0                                    
019182,002228: 40,3172           03202                           TC       DPINORM                               
019183,002229: 40,3173           30117                           CA       DECOUNT                               #  MIXEDNOUN
019184,002230: 40,3174           60145        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
019185,002231: 40,3175           54002                           TS       Q                                     #    E SUBK            E
019186,002232: 40,3176           56155                           XCH      MPAC       +1                         
019187,002233: 40,3177           50002                           INDEX    Q                                     
019188,002234: 40,3200           54001                           TS       1                                     #  PLACE LOW PART IN

Page 441

019190,002236: 40,3201           03121                           TC       ENDSCAL1                              #  (E SUBK) +1    MIXED
019191,002237: 
019192,002238: 40,3202           34755        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
019193,002239: 40,3203           03174                           TC       DPINCOM                               
019194,002240: 
019195,002241: 
019196,002242: 40,3204           07106        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019197,002243: 40,3205           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019198,002244: 40,3206           36245                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
019199,002245: 40,3207           03216                           TC       TPLEFTN                               #  SHIFT LEFT 7.
019200,002246: 40,3210           03161                           TC       DPINSF     +2                         
019201,002247: 
019202,002248: 
019203,002249: 40,3211           07106        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
019204,002250: 40,3212           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019205,002251: 40,3213           34752                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
019206,002252: 40,3214           03216                           TC       TPLEFTN                               #  SHIFT LEFT 3.
019207,002253: 40,3215           03161                           TC       DPINSF     +2                         
019208,002254: 
019209,002255: 
019210,002256: 40,3216           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
019211,002257: 40,3217           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
019212,002258: 40,3220           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
019213,002259: 40,3221           54123        LEFTNCOM           TS       SFTEMP1                               #      LOOP TIME .37 MSEC.
019214,002260: 40,3222           04404                           TC       TPSL1                                 
019215,002261: 40,3223           10123                           CCS      SFTEMP1                               
019216,002262: 40,3224           03221                           TC       LEFTNCOM                              
019217,002263: 40,3225           00124                           TC       SFTEMP2                               
019218,002264: 
019219,002265: 
019220,002266: 40,3226           56155        2ROUND             XCH      MPAC       +1                         
019221,002267: 40,3227           60000                           DOUBLE                                         
019222,002268: 40,3230           54155                           TS       MPAC       +1                         
019223,002269: 40,3231           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
019224,002270: 40,3232           60154                           AD       MPAC                                  
019225,002271: 40,3233           54154                           TS       MPAC                                  
019226,002272: 40,3234           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
019227,002273: 40,3235           54162                           TS       MPAC+6                                
019228,002274: 40,3236           00002        2RNDEND            TC       Q                                     
019229,002275: 
019230,002276: 
019231,002277: 40,3237           10162        TESTOFUF           CCS      MPAC+6                                #  RETURNS IF NO OF/UF
019232,002278: 40,3240           04145                           TC       ALMCYCLE                              #  OF   ALARM AND RECYCLE.
019233,002279: 40,3241           00002                           TC       Q                                     
019234,002280: 40,3242           04145                           TC       ALMCYCLE                              #  UF   ALARM AND RECYCLE.
019235,002281: 
019236,002282: 
019237,002283: 42,3456                                           SETLOC   ENDSPMIN   +1                         
019238,002284: 
019239,002285: 42,3456                                           COUNT*   $$/PIN                                

Page 442

019241,002287: 42,3456           03577        HMSIN              TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
019242,002288: 42,3457           07106                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
019243,002289: 42,3460           03540                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
019244,002290: 42,3461           03547                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
019245,002291: 42,3462           34755                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383 ).
019246,002292: 42,3463           54156                           TS       MPAC       +2                         
019247,002293: 42,3464           33542                           CAF      HRCON                                 
019248,002294: 42,3465           54154                           TS       MPAC                                  
019249,002295: 42,3466           33543                           CAF      HRCON      +1                         
019250,002296: 42,3467           56155                           XCH      MPAC       +1                         
019251,002297: 42,3470           07312                           TC       SHORTMP                               
019252,002298: 42,3471           03560                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
019253,002299: 42,3472           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
019254,002300: 42,3473           52124                           DXCH     HITEMIN                               
019255,002301: 42,3474           31003                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
019256,002302: 42,3475           23006                           LXCH     YREGLP                                
019257,002303: 42,3476           52155                           DXCH     MPAC                                  
019258,002304: 42,3477           07106                           TC       DMP                                   
019259,002305: 42,3500           03540                           ADRES    WHOLECON                              
019260,002306: 42,3501           03547                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
019261,002307: 42,3502           43545                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
019262,002308: 42,3503           03565                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
019263,002309: 42,3504           56155                           XCH      MPAC       +1                         
019264,002310: 42,3505           00006                           EXTEND                                         
019265,002311: 42,3506           73544                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
019266,002312: 42,3507           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
019267,002313: 42,3510           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745HR,39MIN
019268,002314: 42,3511           13513                           BZF      +2                                    
019269,002315: 42,3512           04145                           TC       ALMCYCLE                              
019270,002316: 42,3513           31004                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
019271,002317: 42,3514           23007                           LXCH     ZREGLP                                
019272,002318: 42,3515           52155                           DXCH     MPAC                                  
019273,002319: 42,3516           07106                           TC       DMP                                   
019274,002320: 42,3517           03540                           ADRES    WHOLECON                              
019275,002321: 42,3520           03547                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
019276,002322: 42,3521           43546                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
019277,002323: 42,3522           03565                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
019278,002324: 42,3523           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
019279,002325: 42,3524           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
019280,002326: 42,3525           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
019281,002327: 42,3526           13530                           BZF      +2                                    
019282,002328: 42,3527           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
019283,002329: 42,3530           34755                           CAF      ZERO                                  
019284,002330: 42,3531           54156                           TS       MPAC       +2                         
019285,002331: 42,3532           07262                           TC       TPAGREE                               
019286,002332: 42,3533           52155                           DXCH     MPAC                                  
019287,002333: 42,3534           50145                           INDEX    NOUNADD                               
019288,002334: 42,3535           52001                           DXCH     0                                     
019289,002335: 42,3536           04635                           TC       POSTJUMP                              
019290,002336: 42,3537           63025                           CADR     LOADLV                                
019291,002337: 

Page 443

019293,002339: 42,3540           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
019294,002340: 42,3541           03240                           OCT      03240                                 
019295,002341: 42,3542           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
019296,002342: 42,3543           37100                           OCT      37100                                 
019297,002343: 42,3544           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
019298,002344: 42,3545           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
019299,002345: 42,3546           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
019300,002346: 
019301,002347: 
019302,002348: 42,3547           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
019303,002349: 42,3550           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
019304,002350: 42,3551           54156                           TS       MPAC       +2                         
019305,002351: 42,3552           34755                           CAF      ZERO                                  
019306,002352: 42,3553           60155                           AD       MPAC       +1                         
019307,002353: 42,3554           54155                           TS       MPAC       +1                         
019308,002354: 42,3555           34755                           CAF      ZERO                                  
019309,002355: 42,3556           60154                           AD       MPAC                                  #  CANT OVFLOW
019310,002356: 42,3557           56154                           XCH      MPAC                                  
019311,002357: 42,3560           10154        MPACTST            CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
019312,002358: 42,3561           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019313,002359: 42,3562           00002                           TC       Q                                     
019314,002360: 42,3563           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019315,002361: 42,3564           00002                           TC       Q                                     
019316,002362: 
019317,002363: 42,3565           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
019318,002364: 42,3566           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1
019319,002365: 42,3567           64753                           AD       ONE                                   
019320,002366: 42,3570           13572                           TCF      +2                                    
019321,002367: 42,3571           64753                           AD       ONE                                   
019322,002368: 42,3572           60156                           AD       MPAC       +2                         
019323,002369: 42,3573           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
019324,002370: 42,3574           63576                           BZMF     +2                                    
019325,002371: 42,3575           04145                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
019326,002372: 42,3576           00002                           TC       Q                                     #  MAG OF MPAC+1 L/= CON
019327,002373: 
019328,002374: 
019329,002375:                                                                                                  #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
019330,002376:                                                                                                  #  ALARM IF NOT.( TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
019331,002377: 42,3577           43604        ALL3DEC            CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
019332,002378: 42,3600           70777                           MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
019333,002379: 42,3601           63604                           AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
019334,002380: 42,3602           10000                           CCS      A                                     
019335,002381: 42,3603           03607                           TC       FORCEV25                              
019336,002382: 42,3604           77743        OCT34BAR           OCT      77743                                 
019337,002383: 42,3605           03607                           TC       FORCEV25                              
019338,002384: 42,3606           00002                           TC       Q                                     
019339,002385: 
019340,002386: 
019341,002387: 42,3607           46010        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
019342,002388: 42,3610           55040                           TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD

Page 444

019344,002390: 42,3611           04145                           TC       ALMCYCLE                              #   VERB.  ALARM AND RECYCLE.
019345,002391: 42,3612                        ENDHMSS            EQUALS                                         
019346,002392: 

Page 445

019348,002394:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
019349,002395:                                                                                                  #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
019350,002396:                                                                                                  #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
019351,002397:                                                                                                  #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
019352,002398:                                                                                                  #  HE HAS INITIATED THROUGH THE KEYBOARD).
019353,002399: 
019354,002400:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
019355,002401:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
019356,002402:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
019357,002403:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
019358,002404:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
019359,002405:                                                                                                  #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
019360,002406:                                                                                                  #  MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
019361,002407: 
019362,002408:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON(+=ON, +0=OFF)
019363,002409:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
019364,002410:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
019365,002411: 
019366,002412:                                                                                                  #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
019367,002413:                                                                                                  #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
019368,002414: 
019369,002415:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
019370,002416:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
019371,002417: 
019372,002418:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
019373,002419: 41,3262                                           SETLOC   ENDRUTIN                              
019374,002420: 
019375,002421: 41,3262                                           COUNT*   $$/PIN                                
019376,002422: 41,3262           43271        MONITOR            CS       BIT15/14                              
019377,002423: 41,3263           71016                           MASK     NOUNCADR                              
019378,002424: 41,3264           54155        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
019379,002425: 41,3265           40136                           CS       ENTEXIT                               
019380,002426: 41,3266           64217                           AD       ENDINST                               
019381,002427: 41,3267           10000                           CCS      A                                     
019382,002428: 41,3270           03277                           TC       MONIT2                                
019383,002429: 41,3271           60000        BIT15/14           OCT      60000                                 
019384,002430: 41,3272           03277                           TC       MONIT2                                
019385,002431: 41,3273           34736                           CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
019386,002432: 41,3274           26155                           ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
019387,002433: 41,3275           34755                           CAF      ZERO                                  
019388,002434: 41,3276           55021                           TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
019389,002435: 41,3277           36077        MONIT2             CAF      LOW7                                  
019390,002436: 41,3300           71000                           MASK     VERBREG                               
019391,002437: 41,3301           04331                           TC       LEFT5                                 
019392,002438: 41,3302           54022                           TS       CYL                                   
019393,002439: 41,3303           40022                           CS       CYL                                   
019394,002440: 41,3304           56022                           XCH      CYL                                   
019395,002441: 41,3305           61001                           AD       NOUNREG                               
019396,002442: 41,3306           54154                           TS       MPAC                                  #  TEMP STORAGE
019397,002443: 41,3307           34755                           CAF      ZERO                                  

Page 446

019399,002445: 41,3310           55011                           TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
019400,002446: 41,3311           11041                           CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
019401,002447: 41,3312           03314                           TC       +2                                    #  ARE BOTH EMPTY. (LITE COMES ON IF NEW
019402,002448: 41,3313           04502                           TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
019403,002449: 41,3314           00004                           INHINT                                         
019404,002450: 41,3315           11017                           CCS      MONSAVE                               
019405,002451: 41,3316           03323                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
019406,002452: 41,3317           34753                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
019407,002453: 41,3320           05214                           TC       WAITLIST                              
019408,002454: 41,3321     0776                                  EBANK=   DSPCOUNT                              
019409,002455: 41,3321           03327 62101                     2CADR    MONREQ                                
019410,002456: 
019411,002457: 41,3323           52155                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
019412,002458: 41,3324           53020                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
019413,002459: 41,3325           00003                           RELINT                                         #  SET UP EXTERNAL MONITOR BIT
019414,002460: 41,3326           00136                           TC       ENTRET                                
019415,002461: 
019416,002462: 
019417,002463: 41,3327           04400        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
019418,002464: 41,3330           11020                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
019419,002465: 41,3331           03335                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
019420,002466: 41,3332           03335                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
019421,002467: 41,3333           03346                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
019422,002468: 41,3334           03346                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
019423,002469: 41,3335           33352                           CAF      MONDEL                                
019424,002470: 41,3336           05214                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
019425,002471: 41,3337     0776                                  EBANK=   DSPCOUNT                              
019426,002472: 41,3337           03327 62101                     2CADR    MONREQ                                
019427,002473: 
019428,002474: 41,3341           34355                           CAF      CHRPRIO                               
019429,002475: 41,3342           05072                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
019430,002476: 41,3343     0776                                  EBANK=   DSPCOUNT                              
019431,002477: 41,3343           03353 62101                     2CADR    MONDO                                 
019432,002478: 
019433,002479: 41,3345           05272                           TC       TASKOVER                              
019434,002480: 
019435,002481: 41,3346           34755        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
019436,002482: 41,3347           55017                           TS       MONSAVE                               
019437,002483: 41,3350           55020                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
019438,002484: 41,3351           05272                           TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
019439,002485: 41,3352           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
019440,002486: 
019441,002487: 
019442,002488: 41,3353           11020        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
019443,002489: 41,3354           03360                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
019444,002490: 41,3355           03360                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
019445,002491: 41,3356           05155                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
019446,002492: 41,3357           05155                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
019447,002493: 41,3360           11011                           CCS      DSPLOCK                               
019448,002494: 41,3361           03403                           TC       MONBUSY                               #  NVSUB IS BUSY

Page 447

019450,002496: 41,3362           36077                           CAF      LOW7                                  
019451,002497: 41,3363           71017                           MASK     MONSAVE                               
019452,002498: 41,3364           02326                           TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
019453,002499: 41,3365           34144                           CAF      MID7                                  
019454,002500: 41,3366           71017                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
019455,002501: 41,3367           63401                           AD       MONREF                                #  -DEC10, STARTING IN BIT8
019456,002502: 41,3370           54023                           TS       EDOP                                  #  RIGHT 7
019457,002503: 41,3371           30023                           CA       EDOP                                  
019458,002504: 41,3372           55000                           TS       VERBREG                               
019459,002505: 41,3373           33402                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
019460,002506: 41,3374           54136                           TS       ENTRET                                
019461,002507: 41,3375           43271                           CS       BIT15/14                              
019462,002508: 41,3376           71020                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
019463,002509: 41,3377           54156                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
019464,002510: 41,3400           02053        ENDMONDO           TC       TESTNN                                #  EBANK.
019465,002511: 
019466,002512:    4124                                           BLOCK    2                                     
019467,002513: 
019468,002514:    4000                                           SETLOC   FFTAG8                                
019469,002515:    4000                                           BANK                                           
019470,002516: 
019471,002517:    4124                                           COUNT*   $$/PIN                                
019472,002518:    4124           34144        PASTEVB            CAF      MID7                                  
019473,002519:    4125           71021                           MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
019474,002520:    4126           00006                           EXTEND                                         
019475,002521:    4127           14131                           BZF      +2                                    
019476,002522:    4130           04132                           TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
019477,002523:    4131           31017                           CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
019478,002524:    4132           54023        PASTEOPT           TS       EDOP                                  #  RIGHT 7
019479,002525:    4133           30023                           CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
019480,002526:    4134           04616                           TC       BANKCALL                              #   VERBREG AND DISPLAY IT.
019481,002527:    4135           62346                           CADR     UPDATVB    -1                         
019482,002528:    4136           34755                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
019483,002529:    4137           55012                           TS       REQRET                                #   BE EXECUTED BY OPERATOR.
019484,002530:    4140           31021                           CA       MONSAVE2                              
019485,002531:    4141           04255                           TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
019486,002532:    4142           04143                           TC       +1                                    
019487,002533:    4143           05155        ENDPASTE           TC       ENDOFJOB                              
019488,002534: 
019489,002535:    4144           37600        MID7               OCT      37600                                 
019490,002536: 
019491,002537: 
019492,002538: 41,3401                                           SETLOC   ENDMONDO   +1                         
019493,002539: 41,3401                                           COUNT*   $$/PIN                                
019494,002540: 41,3401           75377        MONREF             OCT      75377                                 #  -DEC10, STARTING IN BIT8
019495,002541: 41,3402           04124        MONBACK            ADRES    PASTEVB                               
019496,002542: 
019497,002543: 41,3403           04374        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
019498,002544: 41,3404           05155                           TC       ENDOFJOB                              

Page 448

019500,002546:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
019501,002547:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
019502,002548:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
019503,002549: 
019504,002550:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.
019505,002551: 
019506,002552:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
019507,002553:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
019508,002554:                                                                                                  #           V23N26 SHOULD BE USED.
019509,002555: 
019510,002556:                                                                                                  #  SUMMARY
019511,002557:                                                                                                  #  FOR BANKS L/E 27,                          V27N01E(FCADR)E
019512,002558:                                                                                                  #  FOR BANKS G/E 30,    V23N26E(SUPERBITS)E   V27N01E(FCADR)E
019513,002559: 
019514,002560: 41,3405           34317        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
019515,002561: 41,3406           54776                           TS       DSPCOUNT                              
019516,002562: 41,3407           31046                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
019517,002563: 41,3410           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
019518,002564: 41,3411           31016                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
019519,002565: 41,3412           04651                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
019520,002566: 41,3413           03415                           TC       DSPOCTWD                              
019521,002567: 41,3414           05155        ENDSPF             TC       ENDOFJOB                              
019522,002568: 

Page 449

019524,002570:                                                                                                  #  WORD DISPLAY ROUTINES
019525,002571: 40,3243                                           SETLOC   TESTOFUF   +4                         
019526,002572: 40,3243                                           COUNT*   $$/PIN                                
019527,002573: 40,3243           56002        DSPSIGN            XCH      Q                                     
019528,002574: 40,3244           54144                           TS       DSPWDRET                              
019529,002575: 40,3245           10154                           CCS      MPAC                                  
019530,002576: 40,3246           03256                           TC       +8D                                   
019531,002577: 40,3247           03256                           TC       +7                                    
019532,002578: 40,3250           64753                           AD       ONE                                   
019533,002579: 40,3251           54154                           TS       MPAC                                  
019534,002580: 40,3252           02442                           TC       -ON                                   
019535,002581: 40,3253           40155                           CS       MPAC       +1                         
019536,002582: 40,3254           54155                           TS       MPAC       +1                         
019537,002583: 40,3255           00144                           TC       DSPWDRET                              
019538,002584: 40,3256           02422                           TC       +ON                                   
019539,002585: 40,3257           00144                           TC       DSPWDRET                              
019540,002586: 
019541,002587: 40,3260           00006        DSPRND             EXTEND                                         #  ROUND BY 5 EXP-6
019542,002588: 40,3261           33324                           DCA      DECROUND   -1                         
019543,002589: 40,3262           20155                           DAS      MPAC                                  
019544,002590: 40,3263           00006                           EXTEND                                         
019545,002591: 40,3264           13270                           BZF      +4                                    
019546,002592: 40,3265           00006                           EXTEND                                         
019547,002593: 40,3266           34733                           DCA      DPOSMAX                               
019548,002594: 40,3267           52155                           DXCH     MPAC                                  
019549,002595: 40,3270           00002                           TC       Q                                     
019550,002596: 
019551,002597:                                                                                                  #  DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
019552,002598:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
019553,002599: 
019554,002600: 40,3271           56002        DSPDECWD           XCH      Q                                     
019555,002601: 40,3272           54115                           TS       WDRET                                 
019556,002602: 40,3273           03243                           TC       DSPSIGN                               
019557,002603: 40,3274           03260                           TC       DSPRND                                
019558,002604: 40,3275           34751                           CAF      FOUR                                  
019559,002605: 40,3276           54137        DSPDCWD1           TS       WDCNT                                 
019560,002606: 40,3277           34363                           CAF      BINCON                                
019561,002607: 40,3300           07312                           TC       SHORTMP                               
019562,002608: 40,3301           50154        TRACE1             INDEX    MPAC                                  
019563,002609: 40,3302           34066                           CAF      RELTAB                                
019564,002610: 40,3303           74346                           MASK     LOW5                                  
019565,002611: 40,3304           54124                           TS       CODE                                  
019566,002612: 40,3305           34755                           CAF      ZERO                                  
019567,002613: 40,3306           56156                           XCH      MPAC       +2                         
019568,002614: 40,3307           56155                           XCH      MPAC       +1                         
019569,002615: 40,3310           54154                           TS       MPAC                                  
019570,002616: 40,3311           56776                           XCH      DSPCOUNT                              
019571,002617: 40,3312           54143        TRACE1S            TS       COUNT                                 
019572,002618: 40,3313           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0

Page 450

019574,002620: 40,3314           54776                           TS       DSPCOUNT                              
019575,002621: 40,3315           03365                           TC       DSPIN                                 
019576,002622: 40,3316           10137                           CCS      WDCNT                                 
019577,002623: 40,3317           03276                           TC       DSPDCWD1                              
019578,002624: 40,3320           44360                           CS       VD1                                   
019579,002625: 40,3321           54776                           TS       DSPCOUNT                              
019580,002626: 40,3322           00115                           TC       WDRET                                 
019581,002627: 
019582,002628: 40,3323           00000                           OCT      00000                                 
019583,002629: 40,3324           02476        DECROUND           OCT      02476                                 
019584,002630: 
019585,002631:                                                                                                  #  DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
019586,002632:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
019587,002633: 
019588,002634: 40,3325           56002        DSPDECNR           XCH      Q                                     
019589,002635: 40,3326           54115                           TS       WDRET                                 
019590,002636: 40,3327           03243                           TC       DSPSIGN                               
019591,002637: 40,3330           03275                           TC       DSPDCWD1   -1                         
019592,002638: 
019593,002639:                                                                                                  #  DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
019594,002640:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
019595,002641: 
019596,002642: 40,3331           56002        DSPDC2NR           XCH      Q                                     
019597,002643: 40,3332           54115                           TS       WDRET                                 
019598,002644: 40,3333           03243                           TC       DSPSIGN                               
019599,002645: 40,3334           34753                           CAF      ONE                                   
019600,002646: 40,3335           03276                           TC       DSPDCWD1                              
019601,002647: 
019602,002648: 
019603,002649:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
019604,002650:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
019605,002651: 
019606,002652: 40,3336           56002        DSP2DEC            XCH      Q                                     
019607,002653: 40,3337           54115                           TS       WDRET                                 
019608,002654: 40,3340           34755                           CAF      ZERO                                  
019609,002655: 40,3341           54124                           TS       CODE                                  
019610,002656: 40,3342           36250                           CAF      THREE                                 
019611,002657: 40,3343           03447                           TC       11DSPIN                               #  -R2 OFF
019612,002658: 40,3344           34751                           CAF      FOUR                                  
019613,002659: 40,3345           03447                           TC       11DSPIN                               #  +R2 OFF
019614,002660: 40,3346           03243                           TC       DSPSIGN                               
019615,002661: 40,3347           34320                           CAF      R2D1                                  
019616,002662: 40,3350           03276        END2DEC            TC       DSPDCWD1                              
019617,002663: 
019618,002664: 
019619,002665:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
019620,002666:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
019621,002667:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
019622,002668:                                                                                                  #  DISPLAY CONVERSION.
019623,002669: 

Page 451

019625,002671: 40,3351           00006        DSPDECVN           EXTEND                                         
019626,002672: 40,3352           73361                           MP       VNDSPCON                              #  MULT BY .01
019627,002673: 40,3353           22154                           LXCH     MPAC                                  #  TAKE RESULTS FROM L.(MULT BY 2EXP14).
019628,002674: 40,3354           34755                           CAF      ZERO                                  
019629,002675: 40,3355           54155                           TS       MPAC       +1                         
019630,002676: 40,3356           56002                           XCH      Q                                     
019631,002677: 40,3357           54115                           TS       WDRET                                 
019632,002678: 40,3360           03334                           TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
019633,002679: 
019634,002680: 40,3361           00244        VNDSPCON           OCT      00244                                 #  .01 ROUNDED UP
019635,002681: 
019636,002682: 
019637,002683: 40,3362           03351        GOVNUPDT           TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE. REALLY PART
019638,002684: 40,3363           04635                           TC       POSTJUMP                              #  OF UPDATVB.
019639,002685: 40,3364           62356                           CADR     UPDAT1     +2                         
019640,002686: 
019641,002687: 40,3365                        ENDECVN            EQUALS                                         
019642,002688: 
019643,002689: 
019644,002690: 41,3415                                           SETLOC   ENDSPF     +1                         
019645,002691: 41,3415                                           COUNT*   $$/PIN                                
019646,002692:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
019647,002693:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
019648,002694: 
019649,002695: 41,3415           54022        DSPOCTWD           TS       CYL                                   
019650,002696: 41,3416           56002                           XCH      Q                                     
019651,002697: 41,3417           54115                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
019652,002698: 41,3420           34736                           CAF      BIT14                                 #  TO BLANK SIGNS
019653,002699: 41,3421           26776                           ADS      DSPCOUNT                              
019654,002700: 41,3422           34751                           CAF      FOUR                                  
019655,002701: 41,3423           54137        WDAGAIN            TS       WDCNT                                 
019656,002702: 41,3424           40022                           CS       CYL                                   
019657,002703: 41,3425           40022                           CS       CYL                                   
019658,002704: 41,3426           40022                           CS       CYL                                   
019659,002705: 41,3427           40000                           CS       A                                     
019660,002706: 41,3430           74757                           MASK     DSPMSK                                
019661,002707: 41,3431           50000                           INDEX    A                                     
019662,002708: 41,3432           34066                           CAF      RELTAB                                
019663,002709: 41,3433           74346                           MASK     LOW5                                  
019664,002710: 41,3434           54124                           TS       CODE                                  
019665,002711: 41,3435           56776                           XCH      DSPCOUNT                              
019666,002712: 41,3436           54143                           TS       COUNT                                 
019667,002713: 41,3437           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
019668,002714: 41,3440           54776                           TS       DSPCOUNT                              
019669,002715: 41,3441           04635                           TC       POSTJUMP                              
019670,002716: 41,3442           61455                           CADR     DSPOCTIN                              
019671,002717: 41,3443           10137        OCTBACK            CCS      WDCNT                                 
019672,002718: 41,3444           03423                           TC       WDAGAIN                               #  +
019673,002719: 41,3445           44360        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
019674,002720: 41,3446           54776                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.

Page 452

019676,002722: 41,3447           00115                           TC       WDRET                                 
019677,002723: 
019678,002724: 41,3450     4757               DSPMSK             =        SEVEN                                 
019679,002725: 
019680,002726: 
019681,002727:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
019682,002728:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
019683,002729:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
019684,002730:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
019685,002731: 
019686,002732: 40,3365                                           SETLOC   ENDECVN                               
019687,002733: 
019688,002734: 40,3365                                           COUNT*   $$/PIN                                
019689,002735: 40,3365           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
019690,002736: 40,3366           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
019691,002737: 40,3367           34346                           CAF      LOW5                                  
019692,002738: 40,3370           70143                           MASK     COUNT                                 
019693,002739: 40,3371           54021                           TS       SR                                    
019694,002740: 40,3372           56021                           XCH      SR                                    
019695,002741: 40,3373           54141                           TS       DSREL                                 
019696,002742: 40,3374           34753                           CAF      BIT1                                  
019697,002743: 40,3375           70143                           MASK     COUNT                                 
019698,002744: 40,3376           10000                           CCS      A                                     
019699,002745: 40,3377           03401                           TC       +2                                    #  LEFT IF COUNT IS ODD
019700,002746: 40,3400           03411                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
019701,002747: 40,3401           56124                           XCH      CODE                                  
019702,002748: 40,3402           04340                           TC       SLEFT5                                #  DOES NOT USE CYL
019703,002749: 40,3403           54124                           TS       CODE                                  
019704,002750: 40,3404           34736                           CAF      BIT14                                 
019705,002751: 40,3405           70143                           MASK     COUNT                                 
019706,002752: 40,3406           10000                           CCS      A                                     
019707,002753: 40,3407           34752                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
019708,002754: 40,3410           64753                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
019709,002755: 40,3411           54143                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
019710,002756:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
019711,002757:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
019712,002758: 40,3412           00004        DSPIN1             INHINT                                         
019713,002759: 40,3413           50141                           INDEX    DSREL                                 
019714,002760: 40,3414           11022                           CCS      DSPTAB                                
019715,002761: 40,3415           03417                           TC       +2                                    #  IF +
019716,002762: 40,3416           05706                           TC       CCSHOLE                               
019717,002763: 40,3417           64753                           AD       ONE                                   #  IF-
019718,002764: 40,3420           54142                           TS       DSMAG                                 
019719,002765: 40,3421           50143                           INDEX    COUNT                                 
019720,002766: 40,3422           73443                           MASK     DSMSK                                 
019721,002767: 40,3423           00006                           EXTEND                                         
019722,002768: 40,3424           60124                           SU       CODE                                  
019723,002769: 40,3425           00006                           EXTEND                                         
019724,002770: 40,3426           13441                           BZF      DSLV                                  #  SAME
019725,002771: 40,3427           50143        DFRNT              INDEX    COUNT                                 

Page 453

019727,002773: 40,3430           43443                           CS       DSMSK                                 #  MASK WITH 77740,76037,75777, OR 74037
019728,002774: 40,3431           70142                           MASK     DSMAG                                 
019729,002775: 40,3432           60124                           AD       CODE                                  
019730,002776: 40,3433           40000                           CS       A                                     
019731,002777: 40,3434           50141                           INDEX    DSREL                                 
019732,002778: 40,3435           57022                           XCH      DSPTAB                                
019733,002779: 40,3436           00006                           EXTEND                                         
019734,002780: 40,3437           63441                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
019735,002781: 40,3440           25015                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
019736,002782: 40,3441           00003        DSLV               RELINT                                         
019737,002783: 40,3442           00114                           TC       DSEXIT                                
019738,002784: 
019739,002785: 40,3443           00037        DSMSK              OCT      37                                    
019740,002786: 40,3444           01740                           OCT      1740                                  
019741,002787: 40,3445           02000                           OCT      2000                                  
019742,002788: 40,3446           03740                           OCT      3740                                  
019743,002789: 
019744,002790: 
019745,002791:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
019746,002792:                                                                                                  #  BIT11 OF CODE.
019747,002793: 
019748,002794: 40,3447           54141        11DSPIN            TS       DSREL                                 
019749,002795: 40,3450           34752                           CAF      TWO                                   
019750,002796: 40,3451           54143                           TS       COUNT                                 
019751,002797: 40,3452           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
019752,002798: 40,3453           54114                           TS       DSEXIT                                
019753,002799: 40,3454           03412                           TC       DSPIN1                                
019754,002800: 
019755,002801: 
019756,002802: 40,3455           03365        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
019757,002803: 40,3456           33460                           CAF      +2                                    
019758,002804: 40,3457           04640                           TC       BANKJUMP                              
019759,002805: 40,3460           63443        ENDSPOCT           CADR     OCTBACK                               
019760,002806: 
019761,002807: 
019762,002808:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
019763,002809:                                                                                                  #  ABORT WITH 01501.
019764,002810:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
019765,002811:                                                                                                  #  DO TC ENTRET.
019766,002812: 
019767,002813: 40,3461           44360        PREDSPAL           CS       VD1                                   
019768,002814: 40,3462           54776                           TS       DSPCOUNT                              
019769,002815: 40,3463           43504        DSPALARM           CS       NVSBENDL                              
019770,002816: 40,3464           60136                           AD       ENTEXIT                               
019771,002817: 40,3465           00006                           EXTEND                                         
019772,002818: 40,3466           13501                           BZF      CHARALRM   +2                         
019773,002819: 40,3467           43503                           CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
019774,002820: 40,3470           60136                           AD       ENTEXIT                               
019775,002821: 40,3471           00006                           EXTEND                                         
019776,002822: 40,3472           13474                           BZF      +2                                    

Page 454

019778,002824: 40,3473           03477                           TC       CHARALRM                              
019779,002825: 40,3474           04204                           TC       KILMONON                              
019780,002826: 40,3475           04364                           TC       FALTON                                
019781,002827: 40,3476           04124                           TC       PASTEVB                               #  PUT MONITOR VERB BACK IN VERBREG
019782,002828: 40,3477           04364        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
019783,002829: 40,3500           05155                           TC       ENDOFJOB                              
019784,002830: 40,3501           05653                           TC       POODOO                                
019785,002831: 40,3502           21501                           OCT      21501                                 
019786,002832: 40,3503           04124        MONADR             GENADR   PASTEVB                               
019787,002833: 40,3504           04202        NVSBENDL           TC       NVSUBEND                              
019788,002834: 
019789,002835: 
019790,002836:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
019791,002837:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
019792,002838:                                                                                                  #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
019793,002839:                                                                                                  #  MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
019794,002840:                                                                                                  #  FOR MM CODE.
019795,002841: 
019796,002842:    4145                                           SETLOC   MID7       +1                         
019797,002843:    4145                                           COUNT*   $$/PIN                                
019798,002844:    4145           04364        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
019799,002845:    4146           41040                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
019800,002846:    4147           55012                           TS       REQRET                                #  SET FOR ENTPAS0
019801,002847:    4150           04616                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
019802,002848:    4151           62346                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
019803,002849:    4152           04635                           TC       POSTJUMP                              
019804,002850:    4153           62002        ENDALM             CADR     ENTER                                 
019805,002851: 
019806,002852: 
019807,002853:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
019808,002854:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
019809,002855:                                                                                                  #  MM LIGHTS.
019810,002856:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
019811,002857:                                                                                                  #  IF NOT, IT RECYCLES.
019812,002858: 
019813,002859: 41,3450                                           SETLOC   DSPLV      +3                         
019814,002860: 41,3450                                           COUNT*   $$/PIN                                
019815,002861: 41,3450           03472        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
019816,002862:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
019817,002863:                                                                                                  #  MMADREF AT ENTPASHI.
019818,002864: 41,3451           34747                           CAF      BIT5                                  #  OCT20 = ND2.
019819,002865: 41,3452           60776                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
019820,002866: 41,3453           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
019821,002867: 41,3454           13456                           BZF      +2                                    
019822,002868: 41,3455           04145                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
019823,002869: 41,3456           34755                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
019824,002870: 41,3457           57001                           XCH      NOUNREG                               
019825,002871: 41,3460           54154                           TS       MPAC                                  
019826,002872: 41,3461           34361                           CAF      ND1                                   
019827,002873: 41,3462           54776                           TS       DSPCOUNT                              

Page 455

019829,002875: 41,3463           04616                           TC       BANKCALL                              
019830,002876: 41,3464           60610                           CADR     2BLANK                                
019831,002877: 41,3465           44360                           CS       VD1                                   #  BLOCK NUM CHAR IN
019832,002878: 41,3466           54776                           TS       DSPCOUNT                              
019833,002879: 41,3467           30154                           CA       MPAC                                  
019834,002880: 41,3470           04635                           TC       POSTJUMP                              
019835,002881: 41,3471           10040                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
019836,002882: 
019837,002883: 
019838,002884: 41,3472  04,2040               MODROUTB           =        V37                                   
019839,002885: 41,3472           40002        REQMM              CS       Q                                     
019840,002886: 41,3473           55012                           TS       REQRET                                
019841,002887: 41,3474           34361                           CAF      ND1                                   
019842,002888: 41,3475           54776                           TS       DSPCOUNT                              
019843,002889: 41,3476           34755                           CAF      ZERO                                  
019844,002890: 41,3477           55001                           TS       NOUNREG                               
019845,002891: 41,3500           04616                           TC       BANKCALL                              
019846,002892: 41,3501           60610                           CADR     2BLANK                                
019847,002893: 41,3502           04427                           TC       FLASHON                               
019848,002894: 41,3503           34753                           CAF      ONE                                   
019849,002895: 41,3504           54777                           TS       DECBRNCH                              #  SET FOR DEC
019850,002896: 41,3505           00136                           TC       ENTEXIT                               
019851,002897: 
019852,002898: 
019853,002899:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
019854,002900:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
019855,002901:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
019856,002902:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
019857,002903:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
019858,002904:                                                                                                  #  COMPONENT 3  BBCON
019859,002905: 
019860,002906: 41,3506           34753        VBRQEXEC           CAF      BIT1                                  
019861,002907: 41,3507           71044                           MASK     DSPTEM1                               
019862,002908: 41,3510           10000                           CCS      A                                     
019863,002909: 41,3511           03530                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
019864,002910: 41,3512           34351                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
019865,002911: 41,3513           54154        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
019866,002912: 41,3514           44753                           CS       BIT1                                  
019867,002913: 41,3515           71044                           MASK     DSPTEM1                               
019868,002914: 41,3516           54160                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
019869,002915: 41,3517           04457        REQUESTC           TC       RELDSP                                
019870,002916: 41,3520           34217                           CA       ENDINST                               
019871,002917: 41,3521           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
019872,002918: 41,3522           00006                           EXTEND                                         
019873,002919: 41,3523           31046                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
019874,002920: 41,3524           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
019875,002921: 41,3525           30160                           CA       MPAC       +4                         #  PRIO IN A
019876,002922: 41,3526           00004                           INHINT                                         
019877,002923: 41,3527           00154                           TC       MPAC                                  
019878,002924: 

Page 456

019880,002926: 41,3530           34354        SETVAC             CAF      TCFINDVC                              
019881,002927: 41,3531           03513                           TC       REQEX1                                
019882,002928: 
019883,002929:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
019884,002930:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
019885,002931:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
019886,002932:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
019887,002933:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
019888,002934:                                                                                                  #  COMPONENT 3  BBCON
019889,002935: 
019890,002936: 41,3532           34352        VBRQWAIT           CAF      TCWAIT                                
019891,002937: 41,3533           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
019892,002938: 41,3534           31044                           CA       DSPTEM1                               #  TIME DELAY
019893,002939: 41,3535           03516        ENDRQWT            TC       REQUESTC   -1                         
019894,002940: 
019895,002941:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
019896,002942:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
019897,002943:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
019898,002944: 
019899,002945: 
019900,002946: 40,3505                                           SETLOC   NVSBENDL   +1                         
019901,002947: 40,3505                                           COUNT*   $$/PIN                                
019902,002948: 40,3505           34753        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
019903,002949: 40,3506           55013                           TS       LOADSTAT                              
019904,002950: 40,3507           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
019905,002951: 40,3510           04457                           TC       RELDSP                                
019906,002952: 40,3511           04433                           TC       FLASHOFF                              
019907,002953: 40,3512           03621                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
019908,002954: 
019909,002955: 
019910,002956: 40,3513           44753        VBTERM             CS       ONE                                   
019911,002957: 40,3514           03506                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
019912,002958: 
019913,002959: 
019914,002960:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
019915,002961:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
019916,002962: 40,3515           41000        PROCKEY            CS       VERBREG                               #  DONT ALLOW PROCEED DURING LOAD.
019917,002963: 40,3516           63532                           AD       VBSP2LD*                              #  DEC 22
019918,002964: 40,3517           00006                           EXTEND                                         
019919,002965: 40,3520           26000                           DIM      A                                     
019920,002966: 40,3521           00006                           EXTEND                                         
019921,002967: 40,3522           13477                           BZF      CHARALRM                              
019922,002968: 40,3523           34755        PROCKEY1           CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
019923,002969: 40,3524           55012                           TS       REQRET                                
019924,002970: 40,3525           44360                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
019925,002971: 40,3526           54776                           TS       DSPCOUNT                              
019926,002972: 40,3527           03505                           TC       VBPROC                                
019927,002973: 
019928,002974: 
019929,002975:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).

Page 457

019931,002977:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
019932,002978:                                                                                                  #   DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
019933,002979:                                                                                                  #   OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
019934,002980: 
019935,002981: 40,3530           44755        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
019936,002982: 40,3531           03506                           TC       VBPROC     +1                         
019937,002983: 
019938,002984: 
019939,002985: 40,3532           00026        VBSP2LD*           DEC      22         B-14                       #  VB22 = BLOAD
019940,002986: 
019941,002987:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
019942,002988:                                                                                                  #  END OF LOAD.
019943,002989: 

Page 458

019945,002991:                                                                                                  #  KEY RELEASE ROUTINE
019946,002992: 
019947,002993:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
019948,002994: 
019949,002995:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
019950,002996:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
019951,002997:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
019952,002998:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
019953,002999: 
019954,003000:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
019955,003001:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
019956,003002:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
019957,003003: 
019958,003004:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
019959,003005:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
019960,003006:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
019961,003007:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
019962,003008:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
019963,003009:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
019964,003010:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
019965,003011:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
019966,003012:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
019967,003013:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
019968,003014:                                                                                                  #  SUBROUTINES.
019969,003015: 
019970,003016: 40,3533           44751        VBRELDSP           CS       BIT3                                  
019971,003017: 40,3534           00006                           EXTEND                                         
019972,003018: 40,3535           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
019973,003019: 40,3536           10115                           CCS      21/22REG                              #  OLD DSPLOCK
019974,003020: 40,3537           34736                           CAF      BIT14                                 
019975,003021: 40,3540           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
019976,003022: 40,3541           10000                           CCS      A                                     
019977,003023: 40,3542           03551                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
019978,003024: 40,3543           04457        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
019979,003025: 40,3544           11041                           CCS      CADRSTOR                              #   RELEASE DISPLAY SYSTEM AND
019980,003026: 40,3545           03547                           TC       +2                                    #   DO RE-ESTABLISH IF CADRSTOR IS FULL.
019981,003027: 40,3546           05155                           TC       ENDOFJOB                              
019982,003028: 40,3547           04635                           TC       POSTJUMP                              
019983,003029: 40,3550           21051                           CADR     PINBRNCH                              
019984,003030: 40,3551           34755        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
019985,003031: 40,3552           55011                           TS       DSPLOCK                               #   JUST UNSUSPEND IT BY CLEARING DSPLOCK.
019986,003032: 40,3553           11041                           CCS      CADRSTOR                              #   TURN KEY RELEASE LIGHT OFF IF BOTH
019987,003033: 40,3554           05155                           TC       ENDOFJOB                              #   CADRSTOR AND DSPLIST ARE EMPTY.
019988,003034: 40,3555           04502                           TC       RELDSP1                               
019989,003035: 40,3556           05155                           TC       ENDOFJOB                              
019990,003036: 
019991,003037: 40,3557                        ENDRELDS           EQUALS                                         
019992,003038: 

Page 459

019994,003040:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
019995,003041:                                                                                                  #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
019996,003042:                                                                                                  #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
019997,003043:                                                                                                  #  PLACE 0VVVVVVVNNNNNNN INTO A.
019998,003044:                                                                                                  #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
019999,003045: 
020000,003046:                                                                                                  #  IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
020001,003047:                                                                                                  #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
020002,003048:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
020003,003049: 
020004,003050:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
020005,003051:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
020006,003052: 
020007,003053:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
020008,003054:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
020009,003055:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
020010,003056:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
020011,003057:                                                                                                  #  FURTHER ACTION).
020012,003058: 
020013,003059:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
020014,003060:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
020015,003061:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
020016,003062:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
020017,003063: 
020018,003064:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
020019,003065:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET
020020,003066:                                                                                                  #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
020021,003067:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
020022,003068:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
020023,003069:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
020024,003070:                                                                                                  #  MONITOR SET UP.
020025,003071: 
020026,003072:                                                                                                  #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
020027,003073:                                                                                                  #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
020028,003074: 
020029,003075:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
020030,003076:                                                                                                  #  MONITOR.
020031,003077: 
020032,003078:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
020033,003079:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
020034,003080: 
020035,003081:                                                                                                  #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
020036,003082:                                                                                                  #  (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
020037,003083:                                                                                                  #  ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
020038,003084:                                                                                                  #  :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
020039,003085:                                                                                                  #  NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
020040,003086:                                                                                                  #  LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
020041,003087:                                                                                                  #  LIGHTS.
020042,003088: 
020043,003089:                                                                                                  #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL

Page 460

020045,003091:                                                                                                  #  PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
020046,003092:                                                                                                  #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
020047,003093:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
020048,003094:                                                                                                  #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
020049,003095:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
020050,003096:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
020051,003097:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
020052,003098:                                                                                                  #  BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
020053,003099:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
020054,003100: 
020055,003101:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
020056,003102:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
020057,003103: 
020058,003104:    4154                                           SETLOC   ENDALM     +1                         
020059,003105: 
020060,003106:    4154                                           COUNT*   $$/PIN                                
020061,003107:    4154           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
020062,003108:    4155           54123        NVMONOPT           TS       NVTEMP                                
020063,003109:    4156           34736                           CAF      BIT14                                 
020064,003110:    4157           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020065,003111:    4160           61011                           AD       DSPLOCK                               
020066,003112:    4161           10000                           CCS      A                                     
020067,003113:    4162           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020068,003114:    4163           34753                           CAF      ONE                                   #  DSP SYST AVAILABLE
020069,003115:    4164           60002        NVSBCOM            AD       Q                                     
020070,003116:    4165           55036                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
020071,003117:    4166           23021                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
020072,003118:    4167           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020073,003119:    4170           34201        NVSUBCOM           CAF      NVSBBBNK                              
020074,003120: 
020075,003121:    4171           56006                           XCH      BBANK                                 
020076,003122:    4172           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
020077,003123:    4173           04007                           ROR      SUPERBNK                              
020078,003124:    4174           55037                           TS       NVBNKTEM                              
020079,003125:    4175           34201                           CAF      PINSUPBT                              
020080,003126:    4176           00006                           EXTEND                                         
020081,003127:    4177           01007                           WRITE    SUPERBNK                              
020082,003128:    4200           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
020083,003129:    4201     0776                                  EBANK=   DSPCOUNT                              
020084,003130:    4201           62101        NVSBBBNK           BBCON    NVSUB1                                
020085,003131: 
020086,003132:    4202     4201               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
020087,003133: 
020088,003134:    4202           53037        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
020089,003135:    4203           05176                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
020090,003136: 
020091,003137: 41,3536                                           SETLOC   ENDRQWT    +1                         
020092,003138: 
020093,003139: 41,3536                                           COUNT*   $$/PIN                                
020094,003140:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS

Page 461

020096,003142:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
020097,003143: 
020098,003144: 41,3536           64757        BLANKDSP           AD       SEVEN                                 #  7,8,9,OR 10 (A HAD 0,1,2,OR 3)
020099,003145: 41,3537           00004                           INHINT                                         
020100,003146: 41,3540           54124                           TS       CODE                                  #  BLANK SPECIFIED DSPTABS
020101,003147: 41,3541           44740                           CS       BIT12                                 
020102,003148: 41,3542           50124                           INDEX    CODE                                  
020103,003149: 41,3543           57022                           XCH      DSPTAB                                
020104,003150: 41,3544           10000                           CCS      A                                     
020105,003151: 41,3545           25015                           INCR     NOUT                                  
020106,003152: 41,3546           03547                           TC       +1                                    
020107,003153: 41,3547           10124                           CCS      CODE                                  
020108,003154: 41,3550           03540                           TC       BLANKDSP   +2                         
020109,003155: 41,3551           00003                           RELINT                                         
020110,003156: 41,3552           50123                           INDEX    NVTEMP                                
020111,003157: 41,3553           03560                           TC       +5                                    
020112,003158: 41,3554           03555                           TC       +1                                    #  NVTEMP HAS -4 (NEVER TOUCH MODREG)
020113,003159: 41,3555           55000                           TS       VERBREG                               #             -3
020114,003160: 41,3556           55001                           TS       NOUNREG                               #             -2
020115,003161: 41,3557           55014                           TS       CLPASS                                #             -1
020116,003162: 41,3560           44360                           CS       VD1                                   
020117,003163: 41,3561           54776                           TS       DSPCOUNT                              
020118,003164: 41,3562           04433                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
020119,003165: 41,3563           03606                           TC       ENTSET     -2                         #  ZEROS REQRET
020120,003166: 
020121,003167: 41,3564           33610        NVSUB1             CAF      ENTSET                                #  IN BANK
020122,003168: 41,3565           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
020123,003169: 41,3566           10123                           CCS      NVTEMP                                #  WHAT NOW
020124,003170: 41,3567           03573                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
020125,003171: 41,3570           02360                           TC       GODSPALM                              
020126,003172: 41,3571           03536                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
020127,003173: 41,3572           02360                           TC       GODSPALM                              
020128,003174: 41,3573           36077                           CAF      LOW7                                  
020129,003175: 41,3574           70123                           MASK     NVTEMP                                
020130,003176: 41,3575           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
020131,003177: 41,3576           30123                           CA       NVTEMP                                #                  USES MPAC, +1, +2
020132,003178: 41,3577           54023                           TS       EDOP                                  #  RIGHT 7
020133,003179: 41,3600           30023                           CA       EDOP                                  
020134,003180: 41,3601           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
020135,003181:                                                                                                  #                 USES MPAC, +1, +2).
020136,003182: 41,3602           10157                           CCS      MPAC       +3                         #  TEST NOUN
020137,003183: 41,3603           03611                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
020138,003184: 41,3604           30160                           CA       MPAC       +4                         
020139,003185: 41,3605           02346                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
020140,003186: 41,3606           34755                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
020141,003187: 41,3607           55012                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
020142,003188: 41,3610           04202        ENTSET             TC       NVSUBEND                              
020143,003189: 41,3611           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
020144,003190: 41,3612           03616                           TC       +4                                    #  IF VERB NOT +0, GO ON
020145,003191: 41,3613           30157                           CA       MPAC       +3                         

Page 462

020147,003193: 41,3614           02326                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
020148,003194: 41,3615           04202                           TC       NVSUBEND                              
020149,003195: 41,3616           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
020150,003196: 41,3617           54161                           TS       MPAC       +5                         #               USES MPAC, +1, +2)
020151,003197: 41,3620           30160                           CA       MPAC       +4                         
020152,003198: 41,3621           02346                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
020153,003199: 41,3622           30157                           CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
020154,003200: 41,3623           02326                           TC       UPDATNN    -1                         
020155,003201: 41,3624           34755                           CAF      ZERO                                  
020156,003202: 41,3625           55013                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
020157,003203: 41,3626           55014                           TS       CLPASS                                
020158,003204: 41,3627           55012                           TS       REQRET                                #  SET REQRET FOR PASS 0.
020159,003205: 41,3630           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
020160,003206: 41,3631           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
020161,003207: 41,3632           02042        ENDNVSB1           TC       ENTPAS0                               
020162,003208: 
020163,003209: 
020164,003210:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
020165,003211:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
020166,003212: 
020167,003213: 
020168,003214:    4204                                           SETLOC   NVSUBEND   +2                         
020169,003215:    4204                                           COUNT*   $$/PIN                                
020170,003216:                                                                                                  #  FORCE BIT 15 OF MONSAVE1 TO 1.
020171,003217:    4204           34735        KILMONON           CAF      BIT15                                 #     THIS IS THE KILL MONITOR BIT.
020172,003218:    4205           55020                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
020173,003219:                                                                                                  #   MONITOR BIT.
020174,003220:    4206           00002                           TC       Q                                     
020175,003221: 
020176,003222: 
020177,003223:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
020178,003224:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
020179,003225:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
020180,003226:                                                                                                  #           -0    DATA IN      SET BY END OF LOAD ROUTINE
020181,003227:                                                                                                  #              OR RESEQUENCE   SET BY VERB 32
020182,003228: 
020183,003229: 
020184,003230:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
020185,003231:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
020186,003232:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
020187,003233:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
020188,003234:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
020189,003235:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
020190,003236:                                                                                                  #  L+1      FOR TERMINATE
020191,003237:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
020192,003238:                                                                                                  #  L+3      FOR DATA IN, OR RESEQUENCE
020193,003239:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
020194,003240: 
020195,003241: 
020196,003242:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP

Page 463

020198,003244:                                                                                                  #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
020199,003245:                                                                                                  #  1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
020200,003246:                                                                                                  #  EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
020201,003247:                                                                                                  #  2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
020202,003248:                                                                                                  #  NVSUBUSY.
020203,003249: 
020204,003250:    4207           22002        ENDIDLE            LXCH     Q                                     #  RETURN ADDRESS INTO L.
020205,003251:    4210           04220                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
020206,003252:    4211           04224                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
020207,003253:    4212           30001                           CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
020208,003254:    4213           75012                           MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
020209,003255:    4214           60004                           AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
020210,003256:    4215           55041                           TS       CADRSTOR                              
020211,003257:    4216           05133                           TC       JOBSLEEP                              
020212,003258: 
020213,003259: 
020214,003260:    4217           05155        ENDINST            TC       ENDOFJOB                              
020215,003261: 
020216,003262: 
020217,003263:    4220           11041        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
020218,003264:    4221           04227                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
020219,003265:    4222           00002                           TC       Q                                     
020220,003266:    4223           04227                           TC       DSPABORT                              
020221,003267: 
020222,003268:    4224           11042        ISLIST+0           CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
020223,003269:    4225           04227                           TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
020224,003270:    4226           00002                           TC       Q                                     
020225,003271:    4227           05635        DSPABORT           TC       BAILOUT                               
020226,003272:    4230           31206                           OCT      31206                                 
020227,003273: 
020228,003274:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
020229,003275:                                                                                                  #  IT DOES ENDOFJOB.
020230,003276: 
020231,003277:    4231           34201        JAMTERM            CAF      PINSUPBT                              
020232,003278:    4232           00006                           EXTEND                                         
020233,003279:    4233           01007                           WRITE    SUPERBNK                              
020234,003280:    4234           34242                           CAF      34DEC                                 
020235,003281:    4235           55012                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
020236,003282:    4236           44360                           CS       VD1                                   
020237,003283:    4237           54776                           TS       DSPCOUNT                              
020238,003284:    4240           04635                           TC       POSTJUMP                              
020239,003285:    4241           61513                           CADR     VBTERM                                
020240,003286: 
020241,003287:    4242           00042        34DEC              DEC      34         B-14                       
020242,003288: 
020243,003289: 
020244,003290:                                                                                                  #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
020245,003291:                                                                                                  #  FUNCTION. IT DOES ENDOFJOB.
020246,003292: 
020247,003293:    4243           34201        JAMPROC            CAF      PINSUPBT                              

Page 464

020249,003295:    4244           00006                           EXTEND                                         
020250,003296:    4245           01007                           WRITE    SUPERBNK                              
020251,003297:    4246           34254                           CAF      33DEC                                 
020252,003298:    4247           55012                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
020253,003299:    4250           44360                           CS       VD1                                   
020254,003300:    4251           54776                           TS       DSPCOUNT                              
020255,003301:    4252           04635                           TC       POSTJUMP                              
020256,003302:    4253           61505                           CADR     VBPROC                                
020257,003303: 
020258,003304:    4254           00041        33DEC              DEC      33         B-14                       
020259,003305: 
020260,003306: 
020261,003307:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
020262,003308:                                                                                                  #  CALL WITH BLANKING CODE IN A.
020263,003309:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
020264,003310:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
020265,003311: 
020266,003312:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
020267,003313: 
020268,003314:    4255           74757        BLANKSUB           MASK     SEVEN                                 
020269,003315:    4256           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
020270,003316:    4257           34736                           CAF      BIT14                                 
020271,003317:    4260           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020272,003318:    4261           61011                           AD       DSPLOCK                               
020273,003319:    4262           10000                           CCS      A                                     
020274,003320:    4263           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020275,003321:    4264           24002                           INCR     Q                                     #  DSP SYST AVAILABLE
020276,003322:                                                                                                  #  SET RETURN FOR 2+ CALLING LOC
020277,003323:    4265           10123                           CCS      NVTEMP                                
020278,003324:    4266           14270                           TCF      +2                                    
020279,003325:    4267           00002                           TC       Q                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
020280,003326:    4270           22002                           LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
020281,003327:    4271           34302                           CAF      BLNKBBNK                              
020282,003328:    4272           56006                           XCH      BBANK                                 
020283,003329:    4273           00006                           EXTEND                                         
020284,003330:    4274           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
020285,003331:    4275           52131                           DXCH     BUF                                   
020286,003332:    4276           34201                           CAF      PINSUPBT                              
020287,003333:    4277           00006                           EXTEND                                         
020288,003334:    4300           01007                           WRITE    SUPERBNK                              
020289,003335:    4301           03557                           TC       BLNKSUB1                              
020290,003336: 
020291,003337:    4302     0776                                  EBANK=   DSPCOUNT                              
020292,003338:    4302           60101        BLNKBBNK           BBCON    BLNKSUB1                              
020293,003339:    4303                        ENDBLFF            EQUALS                                         
020294,003340: 
020295,003341: 40,3557                                           SETLOC   ENDRELDS                              
020296,003342: 40,3557                                           COUNT*   $$/PIN                                
020297,003343: 40,3557           30776        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
020298,003344: 40,3560           54132                           TS       BUF        +2                         

Page 465

020300,003346: 40,3561           34753                           CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
020301,003347: 40,3562           03601                           TC       TESTBIT                               
020302,003348: 40,3563           34317                           CAF      R1D1                                  
020303,003349: 40,3564           02544                           TC       5BLANK     -1                         
020304,003350: 40,3565           34752                           CAF      BIT2                                  #  TEST BIT 2. SEE IF R2 TO BE BLANKED.
020305,003351: 40,3566           03601                           TC       TESTBIT                               
020306,003352: 40,3567           34320                           CAF      R2D1                                  
020307,003353: 40,3570           02544                           TC       5BLANK     -1                         
020308,003354: 40,3571           34751                           CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
020309,003355: 40,3572           03601                           TC       TESTBIT                               
020310,003356: 40,3573           34321                           CAF      R3D1                                  
020311,003357: 40,3574           02544                           TC       5BLANK     -1                         
020312,003358: 40,3575           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
020313,003359: 40,3576           54776                           TS       DSPCOUNT                              #       BEFORE BLANKSUB.
020314,003360: 40,3577           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
020315,003361: 40,3600           05177                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
020316,003362: 
020317,003363: 40,3601           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
020318,003364: 40,3602           10000                           CCS      A                                     
020319,003365: 40,3603           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
020320,003366: 40,3604           50002                           INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
020321,003367: 40,3605           00002                           TC       2                                     
020322,003368: 
020323,003369: 40,3606                        ENDBSUB1           EQUALS                                         
020324,003370: 
020325,003371: 
020326,003372:                                                                                                  #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
020327,003373:                                                                                                  #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
020328,003374: 
020329,003375:                                                                                                  #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
020330,003376: 
020331,003377:                                                                                                  #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
020332,003378: 
020333,003379: 07,2661                                           BANK     7                                     
020334,003380: 04,2000                                           SETLOC   PINBALL4                              
020335,003381: 04,2000                                           BANK                                           
020336,003382: 
020337,003383: 04,2630                                           COUNT*   $$/PIN                                
020338,003384: 04,2630           56002        DSPMM              XCH      Q                                     
020339,003385: 04,2631           54154                           TS       MPAC                                  
020340,003386: 04,2632           00004                           INHINT                                         
020341,003387: 04,2633           34355                           CAF      CHRPRIO                               
020342,003388: 04,2634           05072                           TC       NOVAC                                 
020343,003389: 04,2635     0776                                  EBANK=   DSPCOUNT                              
020344,003390: 04,2635           03606 60101                     2CADR    DSPMMJB                               
020345,003391: 
020346,003392: 04,2637           00003                           RELINT                                         
020347,003393: 04,2640           00154        ENDSPMM            TC       MPAC                                  
020348,003394: 
020349,003395:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
020350,003396: 

Page 466

020352,003398: 40,3606                                           SETLOC   ENDBSUB1                              
020353,003399: 
020354,003400: 40,3606                                           COUNT*   $$/PIN                                
020355,003401: 40,3606           34362        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
020356,003402: 40,3607           56776                           XCH      DSPCOUNT                              
020357,003403: 40,3610           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
020358,003404: 40,3611           11010                           CCS      MODREG                                
020359,003405: 40,3612           64753                           AD       ONE                                   
020360,003406: 40,3613           03351                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
020361,003407: 40,3614           03616                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
020362,003408: 40,3615           02610                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
020363,003409: 40,3616           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
020364,003410: 40,3617           54776                           TS       DSPCOUNT                              
020365,003411: 40,3620           05155                           TC       ENDOFJOB                              
020366,003412: 
020367,003413: 
020368,003414:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
020369,003415:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
020370,003416:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
020371,003417: 
020372,003418:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
020373,003419:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
020374,003420: 
020375,003421: 40,3621           11041        RECALTST           CCS      CADRSTOR                              
020376,003422: 40,3622           03624                           TC       RECAL1                                
020377,003423: 40,3623           05155                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
020378,003424: 40,3624           34755        RECAL1             CAF      ZERO                                  
020379,003425: 40,3625           57041                           XCH      CADRSTOR                              
020380,003426: 40,3626           00004                           INHINT                                         
020381,003427: 40,3627           05137                           TC       JOBWAKE                               
020382,003428: 40,3630           11013                           CCS      LOADSTAT                              
020383,003429: 40,3631           03653                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
020384,003430: 40,3632           05155                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
020385,003431: 40,3633           03651                           TC       DOTERM                                #  -   TERMINATE
020386,003432: 40,3634           34752                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
020387,003433: 40,3635           50064        RECAL2             INDEX    LOCCTR                                
020388,003434: 40,3636           60164                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
020389,003435: 40,3637           50064                           INDEX    LOCCTR                                
020390,003436: 40,3640           54164                           TS       LOC                                   
020391,003437: 40,3641           31001                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
020392,003438: 40,3642           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
020393,003439: 40,3643           31000                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
020394,003440: 40,3644           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
020395,003441: 40,3645           52155                           DXCH     MPAC                                  
020396,003442: 40,3646           00003                           RELINT                                         
020397,003443: 40,3647           04457        RECAL3             TC       RELDSP                                
020398,003444: 40,3650           05155                           TC       ENDOFJOB                              
020399,003445: 
020400,003446: 40,3651           34755        DOTERM             CAF      ZERO                                  
020401,003447: 40,3652           03635                           TC       RECAL2                                
020402,003448: 

Page 467

020404,003450: 40,3653           34753        DOPROC             CAF      ONE                                   
020405,003451: 40,3654           03635                           TC       RECAL2                                
020406,003452: 

Page 468

020408,003454:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
020409,003455: 
020410,003456:    4303                                           SETLOC   ENDBLFF                               
020411,003457: 
020412,003458:    4303                                           COUNT*   $$/PIN                                
020413,003459:                                                                                                  #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
020414,003460:                                                                                                  #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
020415,003461: 
020416,003462:    4303           55016        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
020417,003463:    4304           54003                           TS       EBANK                                 #  SET EBANK BITS
020418,003464:    4305           74357                           MASK     LOW8                                  
020419,003465:    4306           65007                           AD       OCT1400                               
020420,003466:    4307           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
020421,003467:    4310           00002                           TC       Q                                     
020422,003468: 
020423,003469: 
020424,003470:                                                                                                  #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
020425,003471:                                                                                                  #                 E ADRES AND PUTS IT INTO NOUNADD.
020426,003472: 
020427,003473:    4311           31016        SETNADD            CA       NOUNCADR                              
020428,003474:    4312           14304                           TCF      SETNCADR   +1                         
020429,003475: 
020430,003476:                                                                                                  #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
020431,003477:                                                                                                  #                 DERIVED AND LEFT IN A.
020432,003478: 
020433,003479:    4313           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
020434,003480:    4314           74357                           MASK     LOW8                                  
020435,003481:    4315           65007                           AD       OCT1400                               #  E ADRES LEFT IN A
020436,003482:    4316           00002                           TC       Q                                     
020437,003483: 
020438,003484: 
020439,003485:    4317           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
020440,003486:    4320           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
020441,003487:    4321           00004        R3D1               OCT      4                                     
020442,003488: 
020443,003489:    4322           54020        RIGHT5             TS       CYR                                   
020444,003490:    4323           40020                           CS       CYR                                   
020445,003491:    4324           40020                           CS       CYR                                   
020446,003492:    4325           40020                           CS       CYR                                   
020447,003493:    4326           40020                           CS       CYR                                   
020448,003494:    4327           56020                           XCH      CYR                                   
020449,003495:    4330           00002                           TC       Q                                     
020450,003496: 
020451,003497:    4331           54022        LEFT5              TS       CYL                                   
020452,003498:    4332           40022                           CS       CYL                                   
020453,003499:    4333           40022                           CS       CYL                                   
020454,003500:    4334           40022                           CS       CYL                                   
020455,003501:    4335           40022                           CS       CYL                                   

Page 469

020457,003503:    4336           56022                           XCH      CYL                                   
020458,003504:    4337           00002                           TC       Q                                     
020459,003505: 
020460,003506:    4340           60000        SLEFT5             DOUBLE                                         
020461,003507:    4341           60000                           DOUBLE                                         
020462,003508:    4342           60000                           DOUBLE                                         
020463,003509:    4343           60000                           DOUBLE                                         
020464,003510:    4344           60000                           DOUBLE                                         
020465,003511:    4345           00002                           TC       Q                                     
020466,003512: 
020467,003513: 
020468,003514:    4346           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
020469,003515:    4347           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
020470,003516:    4350           76000        HI5                OCT      76000                                 #  MUST STAY HERE
020471,003517: 
020472,003518:    4351           05072        TCNOVAC            TC       NOVAC                                 
020473,003519:    4352           05214        TCWAIT             TC       WAITLIST                              
020474,003520:    4353           05272        TCTSKOVR           TC       TASKOVER                              
020475,003521:    4354           05105        TCFINDVC           TC       FINDVAC                               
020476,003522: 
020477,003523: 
020478,003524:    4355           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
020479,003525: 
020480,003526: 
020481,003527:    4356           03777        LOW11              OCT      3777                                  
020482,003528:    4357     4356               B12-1              EQUALS   LOW11                                 
020483,003529:    4357           00377        LOW8               OCT      377                                   
020484,003530: 
020485,003531: 
020486,003532:    4360           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
020487,003533:    4361           00021        ND1                OCT      21                                    #  DONT SEPARATE.
020488,003534:    4362           00025        MD1                OCT      25                                    
020489,003535: 
020490,003536:    4363           00012        BINCON             DEC      10         B-14                       
020491,003537: 
020492,003538:    4364           34745        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
020493,003539:    4365           00006                           EXTEND                                         
020494,003540:    4366           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
020495,003541:    4367           00002                           TC       Q                                     
020496,003542: 
020497,003543:    4370           44745        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
020498,003544:    4371           00006                           EXTEND                                         
020499,003545:    4372           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
020500,003546:    4373           00002                           TC       Q                                     
020501,003547: 
020502,003548:    4374           34747        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
020503,003549:    4375           00006                           EXTEND                                         
020504,003550:    4376           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
020505,003551:    4377           00002                           TC       Q                                     
020506,003552: 

Page 470

020508,003554:    4400           00006        LODSAMPT           EXTEND                                         
020509,003555:    4401           30025                           DCA      TIME2                                 
020510,003556:    4402           52014                           DXCH     SAMPTIME                              
020511,003557:    4403           00002                           TC       Q                                     
020512,003558: 
020513,003559: 
020514,003560:    4404           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
020515,003561:    4405           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
020516,003562:    4406           20156                           DAS      MPAC       +1                         
020517,003563:    4407           60154                           AD       MPAC                                  
020518,003564:    4410           26154                           ADS      MPAC                                  
020519,003565:    4411           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
020520,003566:    4412           00002                           TC       Q                                     #  NO NET OF/UF
020521,003567:    4413           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/-1 FOR OF/UF
020522,003568:    4414           00002                           TC       Q                                     
020523,003569: 
020524,003570: 
020525,003571:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
020526,003572:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
020527,003573:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
020528,003574:                                                                                                  #  SETTING RESULT TO -0.
020529,003575:                                                                                                  #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
020530,003576:                                                                                                  #   WHEN THEY CONTAIN TH E SF CONSTANTS.)
020531,003577: 
020532,003578:    4415           54135        PRSHRTMP           TS       MPTEMP                                
020533,003579:    4416           10000                           CCS      A                                     
020534,003580:    4417           30135                           CA       MPTEMP                                #  C(A) +, DO REGULAR SHORTMP
020535,003581:    4420           17313                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
020536,003582:    4421           14417                           TCF      -2                                    #  C(A) -, DO REGULAR SHORTMP
020537,003583:    4422           44755                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
020538,003584:    4423           54154                           TS       MPAC                                  
020539,003585:    4424           54155                           TS       MPAC       +1                         
020540,003586:    4425           54156                           TS       MPAC       +2                         
020541,003587:    4426           00002                           TC       Q                                     
020542,003588: 
020543,003589: 
020544,003590:    4427           34746        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
020545,003591:    4430           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
020546,003592:    4431           05011                           WOR      DSALMOUT                              
020547,003593:    4432           00002                           TC       Q                                     
020548,003594: 
020549,003595: 
020550,003596:    4433           44746        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
020551,003597:    4434           00006                           EXTEND                                         
020552,003598:    4435           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
020553,003599:    4436           00002                           TC       Q                                     
020554,003600: 

Page 471

020556,003602:                                                                                                  #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
020557,003603: 
020558,003604:                                                                                                  #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
020559,003605:                                                                                                  #  CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
020560,003606:                                                                                                  #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
020561,003607:                                                                                                  #  OFFERED.
020562,003608: 
020563,003609:                                                                                                  #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
020564,003610:                                                                                                  #  PROGRAM.    1) BY ENDIDLE
020565,003611:                                                                                                  #              2) BY NVSUBUSY
020566,003612:                                                                                                  #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
020567,003613:                                                                                                  #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
020568,003614:                                                                                                  #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
020569,003615:                                                                                                  #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
020570,003616: 
020571,003617: 
020572,003618:                                                                                                  #  THE CALLING SEQUENCE FOR NVSUB IS
020573,003619:                                                                                                  #           CAF    V/N
020574,003620:                                                                                                  #  L        TC     NVSUB
020575,003621:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
020576,003622:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
020577,003623: 
020578,003624: 
020579,003625:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
020580,003626:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
020581,003627:                                                                                                  #  SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
020582,003628:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
020583,003629:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
020584,003630: 
020585,003631: 
020586,003632:                                                                                                  #         THE CALLING SEQUENCE IS
020587,003633:                                                                                                  #           CAF    WAKEFCADR
020588,003634:                                                                                                  #           TC     NVSUBUSY
020589,003635: 
020590,003636: 
020591,003637:                                                                                                  #  .
020592,003638: 
020593,003639: 
020594,003640:                                                                                                  #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
020595,003641:                                                                                                  #  IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
020596,003642:                                                                                                  #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
020597,003643:                                                                                                  #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
020598,003644: 
020599,003645: 
020600,003646:                                                                                                  #  NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
020601,003647:                                                                                                  #  SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
020602,003648:                                                                                                  #  WHEN
020603,003649:                                                                                                  #  1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
020604,003650:                                                                                                  #     IS EXCEEDED.
020605,003651:                                                                                                  #  2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING

Page 472

020607,003653:                                                                                                  #  ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
020608,003654: 
020609,003655:    4437           44444        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
020610,003656:    4440           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
020611,003657:    4441           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
020612,003658:    4442           04635        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
020613,003659:    4443           10641                           CADR     NVSUBSY1                              
020614,003660:    4444           02003        2K+3               OCT      2003                                  
020615,003661: 
020616,003662:                                                                                                  #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
020617,003663:                                                                                                  #  WITH HIS PROPER SUPERBITS.
020618,003664: 
020619,003665: 04,2641                                           SETLOC   ENDSPMM    +1                         
020620,003666: 04,2641                                           COUNT*   $$/PIN                                
020621,003667: 04,2641           54001        NVSUBSY1           TS       L                                     
020622,003668: 04,2642           04220                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
020623,003669: 04,2643           04224                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
020624,003670: 04,2644           04374                           TC       RELDSPON                              
020625,003671: 04,2645           30001                           CA       L                                     
020626,003672: 04,2646           55042                           TS       DSPLIST                               
020627,003673: 04,2647           05133        ENDNVBSY           TC       JOBSLEEP                              
020628,003674: 
020629,003675: 
020630,003676:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
020631,003677:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
020632,003678:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
020633,003679:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
020634,003680:                                                                                                  #  IS NOT BUSY.
020635,003681: 
020636,003682:    4445                                           SETLOC   NVSUBUSY   +3                         
020637,003683:    4445                                           COUNT*   $$/PIN                                
020638,003684:    4445           22007        NVSBWAIT           LXCH     7                                     #  ZERO NVMONOPT OPTIONS
020639,003685:    4446           54123                           TS       NVTEMP                                
020640,003686:    4447           34736                           CAF      BIT14                                 
020641,003687:    4450           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020642,003688:    4451           61011                           AD       DSPLOCK                               
020643,003689:    4452           10000                           CCS      A                                     
020644,003690:    4453           14455                           TCF      NVSBWT1                               #  BUSY
020645,003691:    4454           14164                           TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
020646,003692:                                                                                                  #  AFTER EXECUTION.
020647,003693:    4455           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
020648,003694:    4456           14437                           TCF      PRENVBSY                              #  GO TO SLEEP.
020649,003695: 
020650,003696: 
020651,003697:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
020652,003698:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
020653,003699:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
020654,003700:    4457           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
020655,003701:    4460           54144                           TS       RELRET                                #  OFF,  SEARCH DSPLIST
020656,003702:    4461           44736                           CS       BIT14                                 

Page 473

020658,003704:    4462           00004                           INHINT                                         
020659,003705:    4463           71020                           MASK     MONSAVE1                              
020660,003706:    4464           55020                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
020661,003707:    4465           11042                           CCS      DSPLIST                               
020662,003708:    4466           04470                           TC       +2                                    
020663,003709:    4467           04473                           TC       RELDSP2                               #  LIST EMPTY
020664,003710:    4470           34755                           CAF      ZERO                                  
020665,003711:    4471           57042                           XCH      DSPLIST                               
020666,003712:    4472           05137                           TC       JOBWAKE                               
020667,003713:    4473           00003        RELDSP2            RELINT                                         
020668,003714:    4474           44747                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
020669,003715:    4475           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
020670,003716:    4476           03011                           WAND     DSALMOUT                              
020671,003717:    4477           34755                           CAF      ZERO                                  
020672,003718:    4500           55011                           TS       DSPLOCK                               
020673,003719:    4501           00144                           TC       RELRET                                
020674,003720:    4502           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
020675,003721:    4503           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
020676,003722:                                                                                                  #  EMPTY. LEAVE KEY RLSE LIGHT ALONE IF 
020677,003723:                                                                                                  #  DSPLIST IS NOT EMPTY.
020678,003724:    4504           11042                           CCS      DSPLIST                               
020679,003725:    4505           04507                           TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
020680,003726:    4506           04473                           TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
020681,003727:    4507           34755                           CAF      ZERO                                  #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
020682,003728:    4510           55011                           TS       DSPLOCK                               
020683,003729:    4511           00144                           TC       RELRET                                
020684,003730: 
020685,003731: 
020686,003732:    4512                        ENDPINBF           EQUALS                                         
020687,003733: 

Page 474

020689,003735:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
020690,003736: 
020691,003737:    4512  43,2002               PINTEST            EQUALS   LST2FAN                               
020692,003738: 

Page 475

020694,003740:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
020695,003741:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
020696,003742: 
020697,003743: 41,3633                                           SETLOC   ENDNVSB1   +1                         
020698,003744: 
020699,003745: 41,3633                                           COUNT*   $$/PIN                                
020700,003746: 41,3633           00004        VBTSTLTS           INHINT                                         
020701,003747: 41,3634           04616                           TC       BANKCALL                              #  OPP ERR IF NOT IN POO
020702,003748: 41,3635           66121                           CADR     CHKPOOH                               
020703,003749: 41,3636           44753                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
020704,003750: 41,3637           71300                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
020705,003751: 41,3640           64753                           AD       BIT1                                  
020706,003752: 41,3641           55300                           TS       IMODES33                              
020707,003753: 
020708,003754: 41,3642           33701                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
020709,003755: 41,3643           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
020710,003756: 41,3644           05011                           WOR      DSALMOUT                              
020711,003757: 41,3645           33702                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
020712,003758: 41,3646           55035                           TS       DSPTAB     +11D                       #  PROG ALM.
020713,003759: 41,3647           06022                           TC       C13STALL                              
020714,003760: 41,3650           34742                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
020715,003761: 41,3651           00006                           EXTEND                                         
020716,003762: 41,3652           05013                           WOR      CHAN13                                
020717,003763: 41,3653           34363                           CAF      TEN                                   
020718,003764: 41,3654           54117        TSTLTS1            TS       ERCNT                                 
020719,003765: 41,3655           43677                           CS       FULLDSP                               
020720,003766: 41,3656           50117                           INDEX    ERCNT                                 
020721,003767: 41,3657           55022                           TS       DSPTAB                                
020722,003768: 41,3660           10117                           CCS      ERCNT                                 
020723,003769: 41,3661           03654                           TC       TSTLTS1                               
020724,003770: 41,3662           43700                           CS       FULLDSP1                              
020725,003771: 41,3663           55023                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
020726,003772: 41,3664           55026                           TS       DSPTAB     +4                         
020727,003773: 41,3665           55030                           TS       DSPTAB     +6                         
020728,003774: 41,3666           34760                           CAF      ELEVEN                                
020729,003775: 41,3667           55015                           TS       NOUT                                  
020730,003776: 41,3670           00003                           RELINT                                         
020731,003777: 41,3671           33704                           CAF      SHOLTS                                
020732,003778: 41,3672           00004                           INHINT                                         
020733,003779: 41,3673           05214                           TC       WAITLIST                              
020734,003780: 41,3674     1022                                  EBANK=   DSPTAB                                
020735,003781: 41,3674           03705 62102                     2CADR    TSTLTS2                               
020736,003782: 
020737,003783: 41,3676           05155                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
020738,003784:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
020739,003785:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
020740,003786: 
020741,003787: 
020742,003788: 41,3677           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
020743,003789: 41,3700           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
020744,003790: 

Page 476

020746,003792: 41,3701           00175        TSTCON1            OCT      00175                                 
020747,003793:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
020748,003794:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
020749,003795: 41,3702           40674        TSTCON2            OCT      40674                                 #  DSPTAB+11D BITS 3,4,5,6,8,9. LR LITES,
020750,003796:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
020751,003797: 41,3703           00115        TSTCON3            OCT      0115                                  #  CHAN 11  BITS 1, 3, 4, 7.
020752,003798:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
020753,003799: 41,3704           00764        SHOLTS             OCT      764                                   #  5 SEC
020754,003800: 
020755,003801: 
020756,003802: 41,3705           34355        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
020757,003803: 41,3706           05072                           TC       NOVAC                                 
020758,003804: 41,3707     1022                                  EBANK=   DSPTAB                                
020759,003805: 41,3707           03712 62102                     2CADR    TSTLTS3                               
020760,003806: 
020761,003807: 41,3711           05272                           TC       TASKOVER                              
020762,003808: 
020763,003809: 
020764,003810: 41,3712           43703        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
020765,003811: 41,3713           00004                           INHINT                                         
020766,003812: 41,3714           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
020767,003813: 41,3715           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
020768,003814: 41,3716           06022                           TC       C13STALL                              
020769,003815: 41,3717           44742                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
020770,003816: 41,3720           00006                           EXTEND                                         
020771,003817: 41,3721           03013                           WAND     CHAN13                                
020772,003818: 41,3722           34750                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
020773,003819: 41,3723           00006                           EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
020774,003820: 41,3724           02012                           RAND     CHAN12                                
020775,003821: 41,3725           64735                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
020776,003822: 41,3726           55035                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
020777,003823: 41,3727           43752                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
020778,003824: 41,3730           71300                           MASK     IMODES33                              #  LIGHTS COMPLETE.
020779,003825: 41,3731           65026                           AD       PRIO16                                
020780,003826: 41,3732           55300                           TS       IMODES33                              
020781,003827: 
020782,003828: 41,3733           43754                           CS       OCT55000                              
020783,003829: 41,3734           71277                           MASK     IMODES30                              
020784,003830: 41,3735           65025                           AD       PRIO15                                #  15000.
020785,003831: 41,3736           55277                           TS       IMODES30                              
020786,003832: 
020787,003833: 41,3737           43753                           CS       RFAILS2                               
020788,003834: 41,3740           70110                           MASK     RADMODES                              
020789,003835: 41,3741           64745                           AD       RCDUFBIT                              
020790,003836: 41,3742           54110                           TS       RADMODES                              
020791,003837: 
020792,003838: 41,3743           00003                           RELINT                                         
020793,003839: 
020794,003840: 41,3744           04616                           TC       BANKCALL                              #  REDISPLAY C(MODREG)
020795,003841: 41,3745           10630                           CADR     DSPMM                                 

Page 477

020797,003843: 41,3746           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
020798,003844: 41,3747           04433                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
020799,003845: 41,3750           04635                           TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
020800,003846: 41,3751           61543                           CADR     TSTLTS4                               #   ENDIDLE IS AWAITING OPERATOR RESPONSE.
020801,003847: 41,3752           16001        13-11,1            OCT      16001                                 
020802,003848: 41,3753           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
020803,003849: 41,3754           55000        OCT55000           OCT      55000                                 
020804,003850: 41,3755                        ENDPINS2           EQUALS                                         
020805,003851: 

Page 478

020807,003853:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
020808,003854:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
020809,003855:                                                                                                  #  PROG ALM, TRACKER FAIL.
020810,003856:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
020811,003857:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
020812,003858:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
020813,003859:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
020814,003860: 
020815,003861: 40,3655                                           SETLOC   DOPROC     +2                         
020816,003862: 40,3655                                           COUNT*   $$/PIN                                
020817,003863: 40,3655           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
020818,003864: 40,3656           55011                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
020819,003865: 40,3657           00004                           INHINT                                         
020820,003866: 40,3660           34742                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
020821,003867: 40,3661           00006                           EXTEND                                         
020822,003868: 40,3662           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
020823,003869: 40,3663           33744                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK, NO ATT INTACT,
020824,003870: 40,3664           71035                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
020825,003871: 40,3665           64735                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
020826,003872: 40,3666           55035                           TS       DSPTAB     +11D                       
020827,003873: 40,3667           45026                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
020828,003874: 40,3670           71300                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
020829,003875: 40,3671           65026                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
020830,003876: 40,3672           55300                           TS       IMODES33                              
020831,003877: 40,3673           44742                           CS       BIT10                                 
020832,003878: 40,3674           71277                           MASK     IMODES30                              
020833,003879: 40,3675           64742                           AD       BIT10                                 
020834,003880: 40,3676           55277                           TS       IMODES30                              
020835,003881: 
020836,003882: 40,3677           43743                           CS       RFAILS                                
020837,003883: 40,3700           70110                           MASK     RADMODES                              
020838,003884: 40,3701           64745                           AD       RCDUFBIT                              
020839,003885: 40,3702           54110                           TS       RADMODES                              
020840,003886: 
020841,003887: 40,3703           06022                           TC       C13STALL                              
020842,003888: 40,3704           44742                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
020843,003889: 40,3705           00006                           EXTEND                                         
020844,003890: 40,3706           03013                           WAND     CHAN13                                
020845,003891: 40,3707           43742                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
020846,003892: 40,3710           00006                           EXTEND                                         #  OPERATOR ERROR.
020847,003893: 40,3711           03011                           WAND     DSALMOUT                              
020848,003894: 40,3712           34363        TSTAB              CAF      BINCON                                #  (DEC 10)
020849,003895: 40,3713           54117                           TS       ERCNT                                 #  ERCNT = COUNT
020850,003896: 40,3714           00004                           INHINT                                         
020851,003897: 40,3715           50117                           INDEX    ERCNT                                 
020852,003898: 40,3716           11022                           CCS      DSPTAB                                
020853,003899: 40,3717           64753                           AD       ONE                                   
020854,003900: 40,3720           03725                           TC       ERPLUS                                
020855,003901: 40,3721           64753                           AD       ONE                                   
020856,003902: 40,3722           40000        ERMINUS            CS       A                                     

Page 479

020858,003904: 40,3723           73745                           MASK     NOTBIT12                              
020859,003905: 40,3724           03730                           TC       ERCOM                                 
020860,003906: 40,3725           40000        ERPLUS             CS       A                                     
020861,003907: 40,3726           73745                           MASK     NOTBIT12                              
020862,003908: 40,3727           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
020863,003909: 40,3730           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
020864,003910: 40,3731           55022                           TS       DSPTAB                                
020865,003911: 40,3732           00003                           RELINT                                         
020866,003912: 40,3733           10117                           CCS      ERCNT                                 
020867,003913: 40,3734           03713                           TC       TSTAB      +1                         
020868,003914: 40,3735           34755                           CAF      ZERO                                  
020869,003915: 40,3736           54375                           TS       FAILREG                               
020870,003916: 40,3737           54376                           TS       FAILREG    +1                         
020871,003917: 40,3740           55357                           TS       SFAIL                                 
020872,003918: 40,3741           05155                           TC       ENDOFJOB                              
020873,003919: 
020874,003920: 40,3742           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
020875,003921:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
020876,003922: 40,3743           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
020877,003923: 40,3744           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS
020878,003924: 40,3745           73777        NOTBIT12           OCT      73777                                 
020879,003925: 
020880,003926: 
020881,003927: 40,3746                        ENDPINS1           EQUALS                                         
020882,003928: 
020883,003929: 
020884,003930: 40,3746  30,2000                                  SBANK=   LOWSUPER                              

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