Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

017547,000002:                                                                                                  ## Copyright:   Public domain.
017548,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
017549,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
017550,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
017551,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
017552,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
017553,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
017554,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
017555,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
017556,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
017557,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
017558,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
017559,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
017560,000015:                                                                                                  ## Reference:   pp. 395-479
017561,000016:                                                                                                  ## Assembler:   yaYUL
017562,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
017563,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
017564,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
017565,000020:                                                                                                  ##              2017-08-20 MAS  Updated for Zerlina 56.
017566,000021: 

Page 395

017568,000023:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
017569,000024:                                                                                                  #  MOD NO - 4      DATE - 27 APRIL 1967      ASSEMBLY - PINDANCE REV 18
017570,000025:                                                                                                  #  MOD BY - FILENE
017571,000026:                                                                                                  #  LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
017572,000027: 
017573,000028:                                                                                                  #  FUNCTIONAL DESCRIPTION-
017574,000029: 
017575,000030:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
017576,000031:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
017577,000032:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
017578,000033:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
017579,000034:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
017580,000035:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
017581,000036:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
017582,000037:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
017583,000038:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
017584,000039: 
017585,000040:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
017586,000041:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
017587,000042:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
017588,000043:                                                                                                  #  :EXTENDED VERBS:).
017589,000044:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
017590,000045:                                                                                                  #  OPERATION INFORMATION:.
017591,000046: 
017592,000047: 
017593,000048:                                                                                                  #  CALLING SEQUENCES-
017594,000049: 
017595,000050:                                                                                                  #  KEYBOARD:
017596,000051:                                                                                                  #     EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
017597,000052:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
017598,000053:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
017599,000054:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
017600,000055: 
017601,000056:                                                                                                  #  UPLINK:
017602,000057:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
017603,000058:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
017604,000059:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
017605,000060: 
017606,000061:                                                                                                  #  INTERNAL PROGRAMS:
017607,000062:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
017608,000063:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
017609,000064:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
017610,000065:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
017611,000066: 
017612,000067: 
017613,000068:                                                                                                  #  NORMAL EXIT MODES-
017614,000069: 
017615,000070:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
017616,000071:                                                                                                  #           1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
017617,000072:                                                                                                  #           2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE

Page 396

017619,000074:                                                                                                  #              PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
017620,000075:                                                                                                  #              RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
017621,000076:                                                                                                  #              CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
017622,000077:                                                                                                  #              ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
017623,000078:                                                                                                  #           3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
017624,000079:                                                                                                  #              SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
017625,000080:                                                                                                  #              30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
017626,000081:                                                                                                  #           4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
017627,000082:                                                                                                  #              ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
017628,000083:                                                                                                  #              THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
017629,000084: 
017630,000085:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
017631,000086:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
017632,000087:                                                                                                  #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
017633,000088: 
017634,000089: 
017635,000090:                                                                                                  #  ALARM OR ABORT EXIT MODES-
017636,000091: 
017637,000092:                                                                                                  #  EXTERNAL INITIATION:
017638,000093:                                                                                                  #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
017639,000094:                                                                                                  #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
017640,000095: 
017641,000096:                                                                                                  #  INTERNAL PROGRAM INITIATION:
017642,000097:                                                                                                  #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
017643,000098:                                                                                                  #  (WITH OCTAL 01501).
017644,000099:                                                                                                  #     IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
017645,000100:                                                                                                  #  CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
017646,000101:                                                                                                  #           1) ENDIDLE OR DATAWAIT.
017647,000102:                                                                                                  #           2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
017648,000103: 
017649,000104:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
017650,000105:                                                                                                  #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
017651,000106: 
017652,000107: 
017653,000108:                                                                                                  #  OUTPUT-
017654,000109: 
017655,000110:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
017656,000111:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
017657,000112:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
017658,000113:                                                                                                  #  IN INTERRUPT.
017659,000114: 
017660,000115: 
017661,000116:                                                                                                  #  ERASABLE INITIALIZATION-
017662,000117: 
017663,000118:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
017664,000119:                                                                                                  #  PINBALL IN :STARTSUB:.   REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
017665,000120:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
017666,000121:                                                                                                  #  DSPCOUNT, NOUT.
017667,000122: 
017668,000123:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR

Page 397

017670,000125:                                                                                                  #  PINBALL IS GIVEN BELOW.
017671,000126: 
017672,000127: 
017673,000128:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
017674,000129: 
017675,000130:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
017676,000131:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
017677,000132: 
017678,000133:                                                                                                  #     NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
017679,000134:                                                                                                  #               OF RELATED INTEREST   NVSBWAIT
017680,000135:                                                                                                  #                                     NVSUBUSY
017681,000136:                                                                                                  #                                     PRENVBSY
017682,000137: 
017683,000138:                                                                                                  #     ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
017684,000139:                                                                                                  #               AWAITING OPERATORS RESPONSE.
017685,000140: 
017686,000141:                                                                                                  #     DSPMM   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
017687,000142:                                                                                                  #             PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
017688,000143:                                                                                                  #             (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
017689,000144:                                                                                                  #             FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
017690,000145: 
017691,000146:                                                                                                  #     BLANKSUB   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
017692,000147:                                                                                                  #                COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
017693,000148: 
017694,000149:                                                                                                  #     JAMTERM   ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
017695,000150:                                                                                                  #     JAMPROC   TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
017696,000151: 
017697,000152:                                                                                                  #     MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
017698,000153: 
017699,000154:                                                                                                  #     PLEASE PERFORM, PLEASE MARK SITUATIONS
017700,000155:                                                                                                  #                  REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
017701,000156:                                                                                                  #                  THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
017702,000157:                                                                                                  #                  SYMBOL TABLE FOR PAGE NUMBER).
017703,000158: 
017704,000159:                                                                                                  #     THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
017705,000160:                                                                                                  #     BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
017706,000161: 
017707,000162:                                                                                                  #     THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
017708,000163:                                                                                                  #     TABLES:.
017709,000164: 
017710,000165: 
017711,000166:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
017712,000167:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
017713,000168:                                                                                                  #  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.)

017716,000171: 
017717,000172: 
017718,000173:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
017719,000174: 
017720,000175:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
017721,000176:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO

Page 398

017723,000178:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
017724,000179: 
017725,000180:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4
017726,000181: 
017727,000182: 
017728,000183:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
017729,000184: 
017730,000185: 
017731,000186:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
017732,000187: 
017733,000188:                                                                                                  #  DSPCOUNT ERASE                  DISPLAY POSITION INDICATOR
017734,000189:                                                                                                  #  DECBRNCH ERASE                  +DEC, - DEC, OCT INDICATOR
017735,000190:                                                                                                  #  VERBREG  ERASE                  VERB CODE
017736,000191:                                                                                                  #  NOUNREG  ERASE                  NOUN CODE
017737,000192:                                                                                                  #  XREG     ERASE                  R1 INPUT BUFFER
017738,000193:                                                                                                  #  YREG     ERASE                  R2 INPUT BUFFER
017739,000194:                                                                                                  #  ZREG     ERASE                  R3 INPUT BUFFER
017740,000195:                                                                                                  #  XREGLP   ERASE                  LO PART OF XREG (FOR DEC CONV ONLY)
017741,000196:                                                                                                  #  YREGLP   ERASE                  LO PART OF YREG (FOR DEC CONV ONLY)
017742,000197:                                                                                                  #  HITEMOUT =      YREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
017743,000198:                                                                                                  #                                           MUST = LOTEMOUT-1.
017744,000199:                                                                                                  #  ZREGLP   ERASE                  LO PART OF ZREG (FOR DEC CONV ONLY)
017745,000200:                                                                                                  #  LOTEMOUT =      ZREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
017746,000201:                                                                                                  #                                           MUST = HITEMOUT+1.
017747,000202:                                                                                                  #  MODREG   ERASE                  MODE CODE
017748,000203:                                                                                                  #  DSPLOCK  ERASE                  KEYBOARD/SUBROUTINE CALL INTERLOCK
017749,000204:                                                                                                  #  REQRET   ERASE                  RETURN REGISTER FOR LOAD
017750,000205:                                                                                                  #  LOADSTAT ERASE                  STATUS INDICATOR FOR LOADTST
017751,000206:                                                                                                  #  CLPASS   ERASE                  PASS INDICATOR CLEAR
017752,000207:                                                                                                  #  NOUT     ERASE                  ACTIVITY COUNTER FOR DSPTAB
017753,000208:                                                                                                  #  NOUNCADR ERASE                  MACHINE CADR FOR NOUN
017754,000209:                                                                                                  #  MONSAVE  ERASE                  N/V CODE FOR MONITOR. (= MONSAVE1-1)
017755,000210:                                                                                                  #  MONSAVE1 ERASE                  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
017756,000211:                                                                                                  #  MONSAVE2 ERASE                  NVMONOPT OPTIONS
017757,000212:                                                                                                  #  DSPTAB   ERASE          +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
017758,000213:                                                                                                  #  CADRSTOR ERASE                  ENDIDLE STORAGE
017759,000214:                                                                                                  #  NVQTEM   ERASE                  NVSUB STORAGE FOR CALLING ADDRESS
017760,000215:                                                                                                  #                                  MUST = NVBNKTEM-1
017761,000216:                                                                                                  #  NVBNKTEM ERASE                  NVSUB STORAGE FOR CALLING BANK
017762,000217:                                                                                                  #                                  MUST = NVQTEM+1
017763,000218:                                                                                                  #  VERBSAVE ERASE                  NEEDED FOR RECYCLE
017764,000219:                                                                                                  #  DSPLIST  ERASE                  WAITING REG FOR DSP SYST INTERNAL USE
017765,000220:                                                                                                  #  EXTVBACT REASE                  EXTENDED VERB ACTIVITY INTERLOCK
017766,000221:                                                                                                  #  DSPTEM1  ERASE          +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
017767,000222:                                                                                                  #  DSPTEM2  ERASE          +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
017768,000223:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
017769,000224: 
017770,000225: 
017771,000226:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION

Page 399

017773,000228:                                                                                                  #  DSEXIT   =      INTB15+         RETURN FOR DSPIN
017774,000229:                                                                                                  #  EXITEM   =      INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
017775,000230:                                                                                                  #  BLANKRET =      INTB15+         RETURN FOR 2BLANK
017776,000231: 
017777,000232:                                                                                                  #  WRDRET   =      INTBIT15        RETURN FOR 5BLANK
017778,000233:                                                                                                  #  WDRET    =      INTBIT15        RETURN FOR DSPWD
017779,000234:                                                                                                  #  DECRET   =      INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
017780,000235:                                                                                                  #  21/22REG =      INTBIT15        TEMP FOR CHARIN
017781,000236: 
017782,000237:                                                                                                  #  UPDATRET =      POLISH          RETURN FOR UPDATNN, UPDATVB
017783,000238:                                                                                                  #  CHAR     =      POLISH          TEMP FOR CHARIN
017784,000239:                                                                                                  #  ERCNT    =      POLISH          COUNTER FOR ERROR LIGHT RESET
017785,000240:                                                                                                  #  DECOUNT  =      POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
017786,000241: 
017787,000242:                                                                                                  #  SGNON    =      VBUF            TEMP FOR +,- ON
017788,000243:                                                                                                  #  NOUNTEM  =      VBUF            COUNTER FOR MIXNOUN FETCH
017789,000244:                                                                                                  #  DISTEM   =      VBUF            COUNTER FOR OCTAL DISPLAY VERBS
017790,000245:                                                                                                  #  DECTEM   =      VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
017791,000246: 
017792,000247:                                                                                                  #  SGNOFF   =      VBUF    +1      TEMP FOR +,- ON
017793,000248:                                                                                                  #  NVTEMP   =      VBUF    +1      TEMP FOR NVSUB
017794,000249:                                                                                                  #  SFTEMP1  =      VBUF    +1      STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
017795,000250:                                                                                                  #  HITEMIN  =      VBUF    +1      TEMP FOR LOAD OF HRS, MIN, SEC
017796,000251:                                                                                                  #                                           MUST = LOTEMIN-1.
017797,000252:                                                                                                  #  CODE     =      VBUF    +2      FOR DSPIN
017798,000253:                                                                                                  #  SFTEMP2  =      VBUF    +2      STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
017799,000254:                                                                                                  #  LOTEMIN  =      VBUF    +2      TEMP FOR LOAD OF HRS, MIN, SEC
017800,000255:                                                                                                  #                                           MUST = HITEMIN+1.
017801,000256:                                                                                                  #  MIXTEMP  =      VBUF    +3      FOR MIXNOUN DATA
017802,000257:                                                                                                  #  SIGNRET  =      VBUF    +3      RETURN FOR +,- ON
017803,000258: 
017804,000259:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
017805,000260: 
017806,000261:                                                                                                  #  ENTRET   =      DOTINC          EXIT FROM ENTER
017807,000262: 
017808,000263:                                                                                                  #  WDCNT    =      DOTRET          CHAR COUNTER FOR DSPWD
017809,000264:                                                                                                  #  INREL    =      DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
017810,000265: 
017811,000266:                                                                                                  #  DSPMMTEM =      MATINC          DSPCOUNT SAVE FOR DSPMM
017812,000267:                                                                                                  #  MIXBR    =      MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
017813,000268: 
017814,000269:                                                                                                  #  TEM1     ERASE                  EXEC TEMP
017815,000270:                                                                                                  #  DSREL    =      TEM1            REL ADDRESS FOR DSPIN
017816,000271: 
017817,000272:                                                                                                  #  TEM2     ERASE                  EXEC TEMP
017818,000273:                                                                                                  #  DSMAG    =      TEM2            MAGNITUDE STORE FOR DSPIN
017819,000274:                                                                                                  #  IDADDTEM =      TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
017820,000275: 
017821,000276:                                                                                                  #  TEM3     ERASE                  EXEC TEMP
017822,000277:                                                                                                  #  COUNT    =      TEM3            FOR DSPIN
017823,000278: 

Page 400

017825,000280:                                                                                                  #  TEM4     ERASE                  EXEC TEMP
017826,000281:                                                                                                  #  LSTPTR   =      TEM4            LIST POINTER FOR GRABUSY
017827,000282:                                                                                                  #  RELRET   =      TEM4            RETURN FOR RELDSP
017828,000283:                                                                                                  #  FREERET  =      TEM4            RETURN FOR FREEDSP
017829,000284:                                                                                                  #  DSPWDRET =      TEM4            RETURN FOR DSPSIGN
017830,000285:                                                                                                  #  SEPSCRET =      TEM4            RETURN FOR SEPSEC
017831,000286:                                                                                                  #  SEPMNRET =      TEM4            RETURN FOR SEPMIN
017832,000287: 
017833,000288:                                                                                                  #  TEM5     ERASE                  EXEC TEMP
017834,000289:                                                                                                  #  NOUNADD  =      TEM5            TEMP STORAGE FOR NOUN ADDRESS
017835,000290: 
017836,000291:                                                                                                  #  NNADTEM  ERASE                  TEMP FOR NOUN ADDRESS TABLE ENTRY
017837,000292:                                                                                                  #  NNTYPTEM ERASE                  TEMP FOR NOUN TYPE TABLE ENTRY
017838,000293:                                                                                                  #  IDAD1TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017839,000294:                                                                                                  #                                  MUST = IDAD2TEM-1, = IDAD3TEM-2.
017840,000295:                                                                                                  #  IDAD2TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017841,000296:                                                                                                  #                                  MUST = IDAD1TEM+1, = IDAD3TEM-1.
017842,000297:                                                                                                  #  IDAD3TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017843,000298:                                                                                                  #                                  MUST = IDAD1TEM+2, = IDAD2TEM+1.
017844,000299:                                                                                                  #  RUTMXTEM ERASE                  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
017845,000300:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017846,000301: 
017847,000302: 
017848,000303:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017849,000304: 
017850,000305:                                                                                                  #  MPAC, THRU MPAC +6
017851,000306:                                                                                                  #  BUF, +1, +2
017852,000307:                                                                                                  #  BUF2, +1, +2
017853,000308:                                                                                                  #  MPTEMP
017854,000309:                                                                                                  #  ADDRWD
017855,000310:                                                                                                  #    END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
017856,000311: 
017857,000312: 
017858,000313:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
017859,000314: 
017860,000315:                                                                                                  #  DSPCNT   ERASE                  COUNTER FOR DSPOUT
017861,000316:                                                                                                  #  UPLOCK   ERASE                  BIT1 = UPLINK INTERLOCK (ACTIVATED BY
017862,000317:                                                                                                  #                                                                          RECEPTION OF A BAD MESSAGE IN UPLINK)
017863,000318:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
017864,000319: 
017865,000320: 
017866,000321:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
017867,000322: 
017868,000323:                                                                                                  #  KEYTEMP1 =      WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
017869,000324:                                                                                                  #  DSRUPTEM =      WAITEXIT        TEMP FOR DSPOUT
017870,000325:                                                                                                  #  KEYTEMP2 =      RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
017871,000326:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
017872,000327: 

Page 401

017874,000329:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
017875,000330:                                                                                                  #  0        10000
017876,000331:                                                                                                  #  1        00001
017877,000332:                                                                                                  #  9        01001
017878,000333:                                                                                                  #  VERB     10001
017879,000334:                                                                                                  #  ERROR RES10010
017880,000335:                                                                                                  #  KEY RLSE 11001
017881,000336:                                                                                                  #  +        11010
017882,000337:                                                                                                  #  -        11011
017883,000338:                                                                                                  #  ENTER    11100
017884,000339:                                                                                                  #  CLEAR    11110
017885,000340:                                                                                                  #  NOUN     11111

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

017887,000342: 
017888,000343: 
017889,000344:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
017890,000345:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
017891,000346:                                                                                                  #  ENERGIZED.
017892,000347:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
017893,000348:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
017894,000349:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
017895,000350: 
017896,000351:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
017897,000352:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
017898,000353:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
017899,000354:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
017900,000355:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
017901,000356:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
017902,000357: 
017903,000358:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
017904,000359:                                                                                                  #  MD1   25     R2D1    11       ALL ARE OCTAL
017905,000360:                                                                                                  #  MD2   24     R2D2    10
017906,000361:                                                                                                  #  VD1   23     R2D3    7
017907,000362:                                                                                                  #  VD2   22     R2D4    6
017908,000363:                                                                                                  #  ND1   21     R2D5    5
017909,000364:                                                                                                  #  ND2   20     R3D1    4
017910,000365:                                                                                                  #  R1D1  16     R3D2    3
017911,000366:                                                                                                  #  R1D2  15     R3D3    2
017912,000367:                                                                                                  #  R1D3  14     R3D4    1
017913,000368:                                                                                                  #  R1D4  13     R3D5    0
017914,000369:                                                                                                  #  R1D5  12
017915,000370: 
017916,000371: 
017917,000372:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
017918,000373: 
017919,000374:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
017920,000375:                                                                                                  #  RELADD
017921,000376:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
017922,000377:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)
017923,000378:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
017924,000379:                                                                                                  #  7      1000                                  R1D1 (16)

Page 402

017926,000381:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
017927,000382:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
017928,000383:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
017929,000384:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
017930,000385:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
017931,000386:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
017932,000387:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
017933,000388:                                                                                                  #         0000   NO RELAYWORD
017934,000389: 
017935,000390: 
017936,000391:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
017937,000392:                                                                                                  #  BLANK      00000
017938,000393:                                                                                                  #  0          10101
017939,000394:                                                                                                  #  1          00011
017940,000395:                                                                                                  #  2          11001
017941,000396:                                                                                                  #  3          11011
017942,000397:                                                                                                  #  4          01111
017943,000398:                                                                                                  #  5          11110
017944,000399:                                                                                                  #  6          11100
017945,000400:                                                                                                  #  7          10011
017946,000401:                                                                                                  #  8          11101
017947,000402:                                                                                                  #  9          11111
017948,000403: 
017949,000404: 
017950,000405:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
017951,000406: 
017952,000407:                                                                                                  #             KEY RELEASE LIGHT    - BIT 5 OF CHANNEL 11
017953,000408:                                                                                                  #             VERB/NOUN FLASH      - BIT 6 OF CHANNEL 11
017954,000409:                                                                                                  #             OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
017955,000410: 

Page 403

017957,000412:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
017958,000413: 40,2057                                           BANK     40                                    
017959,000414: 40,2000                                           SETLOC   PINBALL1                              
017960,000415: 40,2000                                           BANK                                           
017961,000416: 
017962,000417: 40,2057                                           COUNT*   $$/PIN                                
017963,000418: 40,2057           34753        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
017964,000419: 40,2060           57011                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
017965,000420: 40,2061           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
017966,000421: 40,2062           11041                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
017967,000422: 40,2063           02065                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
017968,000423: 40,2064           02072                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
017969,000424: 40,2065           42136                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
017970,000425: 40,2066           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
017971,000426: 40,2067           00006                           EXTEND                                         #  VBRELDSP).
017972,000427: 40,2070           12072                           BZF      CHARIN2                               
017973,000428: 40,2071           04374                           TC       RELDSPON                              
017974,000429: 40,2072           56154        CHARIN2            XCH      MPAC                                  
017975,000430: 40,2073           54117                           TS       CHAR                                  
017976,000431: 40,2074           50000                           INDEX    A                                     
017977,000432: 40,2075           02076                           TC       +1                                    #  INPUT CODE     FUNCTION
017978,000433: 40,2076           03465                           TC       CHARALRM                              #  0
017979,000434: 40,2077           02155                           TC       NUM                                   #  1
017980,000435: 40,2100           02155                           TC       NUM                                   #  2
017981,000436: 40,2101           02155                           TC       NUM                                   #  3
017982,000437: 40,2102           02155                           TC       NUM                                   #  4
017983,000438: 40,2103           02155                           TC       NUM                                   #  5
017984,000439: 40,2104           02155                           TC       NUM                                   #  6
017985,000440: 40,2105           02155                           TC       NUM                                   #  7
017986,000441: 40,2106           02141                           TC       89TEST                                #  10                 8
017987,000442: 40,2107           02141                           TC       89TEST                                #  11                 9
017988,000443: 40,2110           03465                           TC       CHARALRM                              #  12
017989,000444: 40,2111           03465                           TC       CHARALRM                              #  13
017990,000445: 40,2112           03465                           TC       CHARALRM                              #  14
017991,000446: 40,2113           03465                           TC       CHARALRM                              #  15
017992,000447: 40,2114           03465                           TC       CHARALRM                              #  16
017993,000448: 40,2115           03465                           TC       CHARALRM                              #  17
017994,000449: 40,2116           02153                           TC       NUM        -2                         #  20                 0
017995,000450: 40,2117           02343                           TC       VERB                                  #  21                 VERB
017996,000451: 40,2120           03643                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
017997,000452: 40,2121           03465                           TC       CHARALRM                              #  23
017998,000453: 40,2122           03465                           TC       CHARALRM                              #  24
017999,000454: 40,2123           03465                           TC       CHARALRM                              #  25
018000,000455: 40,2124           03465                           TC       CHARALRM                              #  26
018001,000456: 40,2125           03465                           TC       CHARALRM                              #  27
018002,000457: 40,2126           03465                           TC       CHARALRM                              #  30
018003,000458: 40,2127           03521                           TC       VBRELDSP                              #  31                 KEY RELEASE
018004,000459: 40,2130           02376                           TC       POSGN                                 #  32                 +

Page 404

018006,000461: 40,2131           02363                           TC       NEGSGN                                #  33                 -
018007,000462: 40,2132           02137                           TC       ENTERJMP                              #  34                 ENTER
018008,000463: 40,2133           03465                           TC       CHARALRM                              #  35
018009,000464: 40,2134           02456                           TC       CLEAR                                 #  36                 CLEAR
018010,000465: 40,2135           02357                           TC       NOUN                                  #  37                 NOUN
018011,000466: 
018012,000467: 
018013,000468: 40,2136           00022        ELRCODE1           OCT      22                                    
018014,000469: 40,2137           04635        ENTERJMP           TC       POSTJUMP                              
018015,000470: 40,2140           62022                           CADR     ENTER                                 
018016,000471: 
018017,000472: 40,2141           10776        89TEST             CCS      DSPCOUNT                              
018018,000473: 40,2142           02146                           TC       +4                                    #  +
018019,000474: 40,2143           02146                           TC       +3                                    #  +0
018020,000475: 40,2144           05155                           TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
018021,000476: 40,2145           05155                           TC       ENDOFJOB                              #  -0
018022,000477: 40,2146           36257                           CAF      THREE                                 
018023,000478: 40,2147           70777                           MASK     DECBRNCH                              
018024,000479: 40,2150           10000                           CCS      A                                     
018025,000480: 40,2151           02155                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
018026,000481: 40,2152           03465                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
018027,000482: 
018028,000483: 
018029,000484:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
018030,000485:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
018031,000486:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
018032,000487:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
018033,000488:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
018034,000489:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
018035,000490: 
018036,000491: 40,2153           34755                           CAF      ZERO                                  
018037,000492: 40,2154           54117                           TS       CHAR                                  
018038,000493: 40,2155           10776        NUM                CCS      DSPCOUNT                              
018039,000494: 40,2156           02162                           TC       +4                                    #  +
018040,000495: 40,2157           02162                           TC       +3                                    #  +0
018041,000496: 40,2160           02161                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
018042,000497: 40,2161           05155                           TC       ENDOFJOB                              #  -0
018043,000498: 40,2162           02313                           TC       GETINREL                              
018044,000499: 40,2163           11014                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
018045,000500: 40,2164           34755                           CAF      ZERO                                  
018046,000501: 40,2165           55014                           TS       CLPASS                                
018047,000502: 40,2166           02167                           TC       +1                                    
018048,000503: 40,2167           50117                           INDEX    CHAR                                  
018049,000504: 40,2170           34066                           CAF      RELTAB                                
018050,000505: 40,2171           74346                           MASK     LOW5                                  
018051,000506: 40,2172           54124                           TS       CODE                                  
018052,000507: 40,2173           30776                           CA       DSPCOUNT                              
018053,000508: 40,2174           54143                           TS       COUNT                                 
018054,000509: 40,2175           03353                           TC       DSPIN                                 
018055,000510: 40,2176           36257                           CAF      THREE                                 

Page 405

018057,000512: 40,2177           70777                           MASK     DECBRNCH                              
018058,000513: 40,2200           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
018059,000514: 40,2201           02212                           TC       DECTOBIN                              #  +
018060,000515: 40,2202           50137                           INDEX    INREL                                 #  +0 OCTAL
018061,000516: 40,2203           57000                           XCH      VERBREG                               
018062,000517: 40,2204           54022                           TS       CYL                                   
018063,000518: 40,2205           40022                           CS       CYL                                   
018064,000519: 40,2206           40022                           CS       CYL                                   
018065,000520: 40,2207           56022                           XCH      CYL                                   
018066,000521: 40,2210           60117                           AD       CHAR                                  
018067,000522: 40,2211           02227                           TC       ENDNMTST                              
018068,000523: 40,2212           50137        DECTOBIN           INDEX    INREL                                 
018069,000524: 40,2213           57000                           XCH      VERBREG                               
018070,000525: 40,2214           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
018071,000526: 40,2215           34755                           CAF      ZERO                                  
018072,000527: 40,2216           54155                           TS       MPAC       +1                         
018073,000528: 40,2217           34363                           CAF      TEN                                   #  10 X 2EXP-14
018074,000529: 40,2220           07321                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
018075,000530: 40,2221           56155                           XCH      MPAC       +1                         
018076,000531: 40,2222           60117                           AD       CHAR                                  
018077,000532: 40,2223           54155                           TS       MPAC       +1                         
018078,000533: 40,2224           02227                           TC       ENDNMTST                              #  NO OF
018079,000534: 40,2225           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
018080,000535: 40,2226           02245                           TC       DECCEND                               
018081,000536: 40,2227           50137        ENDNMTST           INDEX    INREL                                 
018082,000537: 40,2230           55000                           TS       VERBREG                               
018083,000538: 40,2231           40776                           CS       DSPCOUNT                              
018084,000539: 40,2232           50137                           INDEX    INREL                                 
018085,000540: 40,2233           62304                           AD       CRITCON                               
018086,000541: 40,2234           00006                           EXTEND                                         
018087,000542: 40,2235           12237                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
018088,000543: 40,2236           02301                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
018089,000544: 40,2237           36257        ENDNUM             CAF      THREE                                 
018090,000545: 40,2240           70777                           MASK     DECBRNCH                              
018091,000546: 40,2241           10000                           CCS      A                                     
018092,000547: 40,2242           02245                           TC       DECCEND                               
018093,000548: 40,2243           40776        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
018094,000549: 40,2244           02302                           TC       MORNUM     +1                         #  NEGATIVELY
018095,000550: 40,2245           04616        DECCEND            TC       BANKCALL                              
018096,000551: 40,2246           60250                           CADR     DECEND                                
018097,000552: 40,2247           02243                           TC       ENDALL                                
018098,000553: 40,2250           44753        DECEND             CS       ONE                                   
018099,000554: 40,2251           60137                           AD       INREL                                 
018100,000555: 40,2252           00006                           EXTEND                                         
018101,000556: 40,2253           62243                           BZMF     ENDALL                                #  IF INREL=0,1(VBREG,NNREG), LEAVE WHOLE
018102,000557: 40,2254           02313                           TC       GETINREL                              
018103,000558: 40,2255           50137                           INDEX    INREL                                 
018104,000559: 40,2256           31000                           CA       VERBREG                               
018105,000560: 40,2257           54155                           TS       MPAC       +1                         
018106,000561: 40,2260           07115                           TC       DMP                                   #  IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC

Page 406

018108,000563:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
018109,000564: 40,2261           02311                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
018110,000565: 40,2262           36257                           CAF      THREE                                 #  IN MPAC, +1, +2.
018111,000566: 40,2263           70777                           MASK     DECBRNCH                              
018112,000567: 40,2264           50000                           INDEX    A                                     
018113,000568: 40,2265           02265                           TC       +0                                    
018114,000569: 40,2266           02272                           TC       +DECSGN                               
018115,000570: 40,2267           00006                           EXTEND                                         #  - CASE
018116,000571: 40,2270           40156                           DCS      MPAC       +1                         
018117,000572: 40,2271           52156                           DXCH     MPAC       +1                         
018118,000573: 40,2272           56156        +DECSGN            XCH      MPAC       +2                         
018119,000574: 40,2273           50137                           INDEX    INREL                                 
018120,000575: 40,2274           55003                           TS       XREGLP     -2                         
018121,000576: 40,2275           56155                           XCH      MPAC       +1                         
018122,000577: 40,2276           50137                           INDEX    INREL                                 
018123,000578: 40,2277           55000                           TS       VERBREG                               
018124,000579: 40,2300           04631                           TC       SWRETURN                              
018125,000580: 40,2301           10776        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
018126,000581: 40,2302           54776                           TS       DSPCOUNT                              
018127,000582: 40,2303           05155                           TC       ENDOFJOB                              
018128,000583: 
018129,000584: 40,2304           00022        CRITCON            OCT      22                                    #  (DEC 18)
018130,000585: 40,2305           00020                           OCT      20                                    #  (DEC 16)
018131,000586: 40,2306           00012                           OCT      12                                    #  (DEC 10)
018132,000587: 40,2307           00005                           OCT      5                                     
018133,000588: 40,2310           00000                           OCT      0                                     
018134,000589: 
018135,000590: 40,2311           05174 13261  DECON              2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
018136,000591: 
018137,000592: 
018138,000593: 
018139,000594:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
018140,000595:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
018141,000596: 
018142,000597: 40,2313           50776        GETINREL           INDEX    DSPCOUNT                              
018143,000598: 40,2314           32317                           CAF      INRELTAB                              
018144,000599: 40,2315           54137                           TS       INREL                                 #  (A TEMP, REG)
018145,000600: 40,2316           00002                           TC       Q                                     
018146,000601: 
018147,000602: 40,2317           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
018148,000603: 40,2320           00004                           OCT      4                                     #  R3D4           =(1)
018149,000604: 40,2321           00004                           OCT      4                                     #  R3D3           =(2)
018150,000605: 40,2322           00004                           OCT      4                                     #  R3D2           =(3)
018151,000606: 40,2323           00004                           OCT      4                                     #  R3D1           =(4)
018152,000607: 40,2324           00003                           OCT      3                                     #  R2D5           =(5)
018153,000608: 40,2325           00003                           OCT      3                                     #  R2D4           =(6)
018154,000609: 40,2326           00003                           OCT      3                                     #  R2D3           =(7)
018155,000610: 40,2327           00003                           OCT      3                                     #  R2D2           =(8D)
018156,000611: 40,2330           00003                           OCT      3                                     #  R2D1           =(9D)
018157,000612: 40,2331           00002                           OCT      2                                     #  R1D5           =(10D)

Page 407

018159,000614: 40,2332           00002                           OCT      2                                     #  R1D4           =(11D)
018160,000615: 40,2333           00002                           OCT      2                                     #  R1D3           =(12D)
018161,000616: 40,2334           00002                           OCT      2                                     #  R1D2           =(13D)
018162,000617: 40,2335           00002                           OCT      2                                     #  R1D1           =(14D)
018163,000618: 40,2336           05706                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
018164,000619: 40,2337           00001                           OCT      1                                     #  ND2            =(16D)
018165,000620: 40,2340           00001                           OCT      1                                     #  ND1            =(17D)
018166,000621: 40,2341           00000                           OCT      0                                     #  VD2            =(18D)
018167,000622: 40,2342           00000                           OCT      0                                     #  VD1            =(19D)
018168,000623: 
018169,000624: 
018170,000625: 40,2343           34755        VERB               CAF      ZERO                                  
018171,000626: 40,2344           55000                           TS       VERBREG                               
018172,000627: 40,2345           34360                           CAF      VD1                                   
018173,000628: 40,2346           54776        NVCOM              TS       DSPCOUNT                              
018174,000629: 40,2347           02570                           TC       2BLANK                                
018175,000630: 40,2350           34753                           CAF      ONE                                   
018176,000631: 40,2351           54777                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
018177,000632: 40,2352           34755                           CAF      ZERO                                  
018178,000633: 40,2353           55012                           TS       REQRET                                #  SET FOR ENTPAS0
018179,000634: 40,2354           34217                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
018180,000635: 40,2355           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
018181,000636:                                                                                                  #  TO TC ENDOFJOB
018182,000637: 40,2356           05155                           TC       ENDOFJOB                              
018183,000638: 40,2357           34755        NOUN               CAF      ZERO                                  
018184,000639: 40,2360           55001                           TS       NOUNREG                               
018185,000640: 40,2361           34361                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
018186,000641: 40,2362           02346                           TC       NVCOM                                 
018187,000642: 
018188,000643: 
018189,000644: 40,2363           02435        NEGSGN             TC       SIGNTEST                              
018190,000645: 40,2364           02422                           TC       -ON                                   
018191,000646: 40,2365           34752                           CAF      TWO                                   
018192,000647: 40,2366           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
018193,000648: 40,2367           64745                           AD       BIT7                                  #  BIT 5 FOR R1,  BIT 4 FOR R2,
018194,000649: 40,2370           26777                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
018195,000650: 40,2371           11014        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
018196,000651: 40,2372           34755                           CAF      ZERO                                  
018197,000652: 40,2373           55014                           TS       CLPASS                                
018198,000653: 40,2374           02375                           TC       +1                                    
018199,000654: 40,2375           05155                           TC       ENDOFJOB                              
018200,000655: 
018201,000656: 40,2376           02435        POSGN              TC       SIGNTEST                              
018202,000657: 40,2377           02402                           TC       +ON                                   
018203,000658: 40,2400           34753                           CAF      ONE                                   
018204,000659: 40,2401           02366                           TC       BOTHSGN                               
018205,000660: 
018206,000661: 40,2402           22002        +ON                LXCH     Q                                     
018207,000662: 40,2403           02313                           TC       GETINREL                              
018208,000663: 40,2404           50137                           INDEX    INREL                                 

Page 408

018210,000665: 40,2405           32430                           CAF      SGNTAB     -2                         
018211,000666: 40,2406           54123                           TS       SGNOFF                                
018212,000667: 40,2407           64753                           AD       ONE                                   
018213,000668: 40,2410           54122                           TS       SGNON                                 
018214,000669: 40,2411           34755        SGNCOM             CAF      ZERO                                  
018215,000670: 40,2412           54124                           TS       CODE                                  
018216,000671: 40,2413           56123                           XCH      SGNOFF                                
018217,000672: 40,2414           03435                           TC       11DSPIN                               
018218,000673: 40,2415           34741                           CAF      BIT11                                 
018219,000674: 40,2416           54124                           TS       CODE                                  
018220,000675: 40,2417           56122                           XCH      SGNON                                 
018221,000676: 40,2420           03435                           TC       11DSPIN                               
018222,000677: 40,2421           00001                           TC       L                                     
018223,000678: 40,2422           22002        -ON                LXCH     Q                                     
018224,000679: 40,2423           02313                           TC       GETINREL                              
018225,000680: 40,2424           50137                           INDEX    INREL                                 
018226,000681: 40,2425           32430                           CAF      SGNTAB     -2                         
018227,000682: 40,2426           54122                           TS       SGNON                                 
018228,000683: 40,2427           64753                           AD       ONE                                   
018229,000684: 40,2430           54123                           TS       SGNOFF                                
018230,000685: 40,2431           02411                           TC       SGNCOM                                
018231,000686: 
018232,000687: 40,2432           00005        SGNTAB             OCT      5                                     #  -R1
018233,000688: 40,2433           00003                           OCT      3                                     #  -R2
018234,000689: 40,2434           00000                           OCT      0                                     #  -R3
018235,000690: 
018236,000691: 
018237,000692: 40,2435           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
018238,000693: 40,2436           36257                           CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
018239,000694: 40,2437           70777                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
018240,000695: 40,2440           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
018241,000696: 40,2441           05155                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
018242,000697: 40,2442           44317                           CS       R1D1                                  
018243,000698: 40,2443           02451                           TC       SGNTST1                               
018244,000699: 40,2444           44320                           CS       R2D1                                  
018245,000700: 40,2445           02451                           TC       SGNTST1                               
018246,000701: 40,2446           44321                           CS       R3D1                                  
018247,000702: 40,2447           02451                           TC       SGNTST1                               
018248,000703: 40,2450           05155                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
018249,000704: 40,2451           60776        SGNTST1            AD       DSPCOUNT                              
018250,000705: 40,2452           00006                           EXTEND                                         
018251,000706: 40,2453           12455                           BZF      +2                                    #  MATCH FOUND
018252,000707: 40,2454           00002                           TC       Q                                     
018253,000708: 40,2455           00001                           TC       L                                     #  SIGN LEGAL
018254,000709: 
018255,000710: 
018256,000711:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
018257,000712:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
018258,000713:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION

Page 409

018260,000715:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
018261,000716:                                                                                                  #  APPROPRIATE TO BE CLEARED.
018262,000717: 
018263,000718:                                                                                                  #  CLPASS   +0  PASS0, CAN BE BACKED UP
018264,000719:                                                                                                  #           +NZ  HIPASS, CAN BE BACKED UP
018265,000720:                                                                                                  #           -NZ  PASS0, CANNOT BE BACKED UP
018266,000721: 
018267,000722: 40,2456           10776        CLEAR              CCS      DSPCOUNT                              
018268,000723: 40,2457           64753                           AD       ONE                                   
018269,000724: 40,2460           02462                           TC       +2                                    
018270,000725: 40,2461           64753                           AD       ONE                                   
018271,000726: 40,2462           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
018272,000727: 40,2463           32317                           CAF      INRELTAB                              #  FAIL LEGALTST.
018273,000728: 40,2464           54137                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
018274,000729: 40,2465           11014                           CCS      CLPASS                                
018275,000730: 40,2466           02474                           TC       CLPASHI                               #  +
018276,000731: 40,2467           02471                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
018277,000732: 40,2470           02471                           TC       +1                                    #  -
018278,000733: 40,2471           30137                           CA       INREL                                 
018279,000734: 40,2472           02516                           TC       LEGALTST                              
018280,000735: 40,2473           02511                           TC       CLEAR1                                
018281,000736: 40,2474           10137        CLPASHI            CCS      INREL                                 
018282,000737: 40,2475           54137                           TS       INREL                                 
018283,000738: 40,2476           02516                           TC       LEGALTST                              
018284,000739: 40,2477           32566                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
018285,000740: 40,2500           27012                           ADS      REQRET                                
018286,000741: 40,2501           30137                           CA       INREL                                 
018287,000742: 40,2502           54125                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
018288,000743: 40,2503           00006                           EXTEND                                         
018289,000744: 40,2504           27000                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
018290,000745: 40,2505           04616                           TC       BANKCALL                              
018291,000746: 40,2506           62367                           CADR     UPDATVB                               
018292,000747: 40,2507           30125                           CA       MIXTEMP                               
018293,000748: 40,2510           54137                           TS       INREL                                 #  RESTORE INREL
018294,000749: 40,2511           02514        CLEAR1             TC       CLR5                                  
018295,000750: 40,2512           25014                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
018296,000751: 40,2513           05155                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
018297,000752: 40,2514           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
018298,000753: 40,2515           02527                           TC       5BLANK     +2                         
018299,000754: 40,2516           67760        LEGALTST           AD       NEG2                                  
018300,000755: 40,2517           10000                           CCS      A                                     
018301,000756: 40,2520           00002                           TC       Q                                     #  LEGAL  INREL G/ 2
018302,000757: 40,2521           05706                           TC       CCSHOLE                               
018303,000758: 40,2522           05155                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
018304,000759: 40,2523           00002                           TC       Q                                     #  LEGAL    INREL = 2
018305,000760: 
018306,000761: 
018307,000762:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
018308,000763:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
018309,000764:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
018310,000765: 

Page 410

018312,000767: 40,2524           54776                           TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
018313,000768: 40,2525           22002        5BLANK             LXCH     Q                                     
018314,000769: 40,2526           02313                           TC       GETINREL                              
018315,000770: 40,2527           34755                           CAF      ZERO                                  
018316,000771: 40,2530           50137                           INDEX    INREL                                 
018317,000772: 40,2531           55000                           TS       VERBREG                               #  ZERO X, Y, Z REG.
018318,000773: 40,2532           50137                           INDEX    INREL                                 
018319,000774: 40,2533           55003                           TS       XREGLP     -2                         
018320,000775: 40,2534           54124                           TS       CODE                                  
018321,000776: 40,2535           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
018322,000777: 40,2536           44745                           CS       BIT7                                  #  PROTECT OTHERS
018323,000778: 40,2537           70777                           MASK     DECBRNCH                              
018324,000779: 40,2540           72567                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
018325,000780: 40,2541           54777                           TS       DECBRNCH                              
018326,000781: 40,2542           50137                           INDEX    INREL                                 
018327,000782: 40,2543           32557                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
018328,000783: 40,2544           54143                           TS       COUNT                                 
018329,000784: 40,2545           03353                           TC       DSPIN                                 
018330,000785: 40,2546           50137        5BLANK1            INDEX    INREL                                 
018331,000786: 40,2547           32562                           CAF      DOUBLK     -2                         
018332,000787: 40,2550           54776                           TS       DSPCOUNT                              
018333,000788: 40,2551           02570                           TC       2BLANK                                
018334,000789: 40,2552           44752                           CS       TWO                                   
018335,000790: 40,2553           26776                           ADS      DSPCOUNT                              
018336,000791: 40,2554           02570                           TC       2BLANK                                
018337,000792: 40,2555           50137                           INDEX    INREL                                 
018338,000793: 40,2556           34315                           CAF      R1D1       -2                         
018339,000794: 40,2557           54776                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
018340,000795: 40,2560           00001                           TC       L                                     #  OF REG. JUST BLANKED
018341,000796: 
018342,000797: 40,2561           00016        SINBLANK           OCT      16                                    #  DEC 14
018343,000798: 40,2562           00005                           OCT      5                                     
018344,000799: 40,2563           00004                           OCT      4                                     
018345,000800: 40,2564           00015        DOUBLK             OCT      15                                    #  DEC 13
018346,000801: 40,2565           00011                           OCT      11                                    #  DEC 9
018347,000802: 40,2566           00003                           OCT      3                                     
018348,000803: 
018349,000804: 40,2567           77774        BRNCHCON           OCT      77774                                 
018350,000805: 
018351,000806:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
018352,000807:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
018353,000808: 
018354,000809: 40,2570           30776        2BLANK             CA       DSPCOUNT                              
018355,000810: 40,2571           54021                           TS       SR                                    
018356,000811: 40,2572           42603                           CS       BLANKCON                              
018357,000812: 40,2573           00004                           INHINT                                         
018358,000813: 40,2574           50021                           INDEX    SR                                    
018359,000814: 40,2575           57022                           XCH      DSPTAB                                
018360,000815: 40,2576           00006                           EXTEND                                         
018361,000816: 40,2577           62601                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK

Page 411

018363,000818: 40,2600           25015                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
018364,000819: 40,2601           00003                           RELINT                                         #  IF -,NOUT OK
018365,000820: 40,2602           00002                           TC       Q                                     
018366,000821: 40,2603           04000        BLANKCON           OCT      4000                                  
018367,000822: 

Page 412

018369,000824:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
018370,000825:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
018371,000826:                                                                                                  #  PASSES.
018372,000827: 
018373,000828: 
018374,000829:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
018375,000830:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
018376,000831:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
018377,000832: 
018378,000833: 
018379,000834: 41,2020                                           BANK     41                                    
018380,000835: 41,2000                                           SETLOC   PINBALL2                              
018381,000836: 41,2000                                           BANK                                           
018382,000837: 
018383,000838: 41,2020                                           COUNT*   $$/PIN                                
018384,000839: 41,2020           03604        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
018385,000840: 41,2021           03045        LOADLV1            TC       LOADLV                                
018386,000841:                                                                                                  #  END OF STANDARD LEAD INS.
018387,000842: 
018388,000843: 
018389,000844: 41,2022           34755        ENTER              CAF      ZERO                                  
018390,000845: 41,2023           55014                           TS       CLPASS                                
018391,000846: 41,2024           34217                           CAF      ENDINST                               
018392,000847: 41,2025           54136                           TS       ENTRET                                
018393,000848: 41,2026           11012                           CCS      REQRET                                
018394,000849: 41,2027           02062                           TC       ENTPAS0                               #  IF +, PASS 0
018395,000850: 41,2030           02062                           TC       ENTPAS0                               #  IF +, PASS 0
018396,000851: 41,2031           02032                           TC       +1                                    #  IF -, NOT PASS 0
018397,000852: 41,2032           32060        ENTPASHI           CAF      MMADREF                               
018398,000853: 41,2033           61012                           AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
018399,000854: 41,2034           00006                           EXTEND                                         #  AND RECYCLE(DECIDE AT MMCHANG+1).
018400,000855: 41,2035           12047                           BZF      ACCEPTWD                              
018401,000856: 41,2036           36257                           CAF      THREE                                 #  IF DEC, L/5 CHAR IN FOR DATA MUST BE
018402,000857: 41,2037           70777                           MASK     DECBRNCH                              #  SCALED (DECEND); IF 5 CHAR IN, DATA
018403,000858: 41,2040           10000                           CCS      A                                     #  HAS ALREADY BEEN SCALED. ANY NUMBER
018404,000859: 41,2041           02043                           TC       +2                                    #  OF DECIMAL CHARACTERS ARE ACCEPTABLE.SCR
018405,000860: 41,2042           02047                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
018406,000861: 41,2043           10776                           CCS      DSPCOUNT                              
018407,000862: 41,2044           02053                           TC       LT5                                   
018408,000863: 41,2045           02053                           TC       LT5                                   
018409,000864: 41,2046           02047                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
018410,000865: 41,2047           41012        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
018411,000866: 41,2050           55012                           TS       REQRET                                #  SET REQRET +.
018412,000867: 41,2051           04433                           TC       FLASHOFF                              
018413,000868: 41,2052           01012                           TC       REQRET                                
018414,000869: 
018415,000870: 41,2053           34755        LT5                CAF      ZERO                                  
018416,000871: 41,2054           54154                           TS       MPAC                                  
018417,000872: 41,2055           04616                           TC       BANKCALL                              
018418,000873: 41,2056           60254                           CADR     DECEND     +4                         

Page 413

018420,000875: 41,2057           02047                           TC       ACCEPTWD                              
018421,000876: 41,2060     0136               ENTEXIT            =        ENTRET                                
018422,000877: 
018423,000878: 41,2060           03471        MMADREF            ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
018424,000879: 
018425,000880: 41,2061           00034        LOWVERB            DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
018426,000881: 
018427,000882: 41,2062           34755        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
018428,000883: 41,2063           54777                           TS       DECBRNCH                              
018429,000884: 41,2064           44360                           CS       VD1                                   #  BLOCK FURTHER NUM CHAR, SO THAT STRAY
018430,000885: 41,2065           54776                           TS       DSPCOUNT                              #  CHAR DO NOT GET INTO VERB OR NOUN LTS.
018431,000886: 41,2066           41000        TESTVB             CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
018432,000887: 41,2067           55040                           TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
018433,000888: 41,2070           62061                           AD       LOWVERB                               #  LOWVERB - VB
018434,000889: 41,2071           00006                           EXTEND                                         
018435,000890: 41,2072           62160                           BZMF     VERBFAN                               #  VERB G/E LOWVERB
018436,000891: 41,2073           00006        TESTNN             EXTEND                                         #  VERB L/ LOWVERB
018437,000892: 41,2074           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018438,000893: 41,2075           52006                           DXCH     Z                                     #  ROUTINE.
018439,000894: 41,2076           50140                           INDEX    MIXBR                                 
018440,000895: 41,2077           02077                           TC       +0                                    
018441,000896: 41,2100           02102                           TC       +2                                    #  NORMAL
018442,000897: 41,2101           02246                           TC       MIXNOUN                               #  MIXED
018443,000898: 41,2102           10146                           CCS      NNADTEM                               #  NORMAL
018444,000899: 41,2103           02156                           TC       VERBFAN    -2                         #       NORMAL IF +
018445,000900: 41,2104           02400                           TC       GODSPALM                              #  NOT IN USE   IF +0
018446,000901: 41,2105           02111                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
018447,000902: 41,2106           25016                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
018448,000903: 41,2107           04311                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
018449,000904: 41,2110           02145                           TC       INTMCTBS   +2                         
018450,000905: 41,2111           34735        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018451,000906: 41,2112           55014                           TS       CLPASS                                
018452,000907: 41,2113           44217                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
018453,000908: 41,2114           60136                           AD       ENTEXIT                               #              FROM EXTERNAL
018454,000909: 41,2115           00006                           EXTEND                                         
018455,000910: 41,2116           12120                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
018456,000911: 41,2117           02143                           TC       INTMCTBS                              
018457,000912: 41,2120           02336                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
018458,000913: 41,2121           10777                           CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
018459,000914: 41,2122           04145                           TC       ALMCYCLE                              #  FOR MCTBS.
018460,000915: 41,2123           44360                           CS       VD1                                   #  OCTAL USED  OK
018461,000916: 41,2124           54776                           TS       DSPCOUNT                              #  BLOCK NUM CHAR IN
018462,000917: 41,2125           11041                           CCS      CADRSTOR                              
018463,000918: 41,2126           02131                           TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
018464,000919: 41,2127           02132                           TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
018465,000920: 41,2130           02131                           TC       +1                                    
018466,000921: 41,2131           04427                           TC       FLASHON                               
018467,000922: 41,2132           57004        USEADD             XCH      ZREG                                  
018468,000923: 41,2133           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
018469,000924: 41,2134           00006                           EXTEND                                         

Page 414

018471,000926: 41,2135           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018472,000927: 41,2136           52006                           DXCH     Z                                     #  ROUTINE.
018473,000928: 41,2137           02160                           TC       VERBFAN                               
018474,000929: 
018475,000930: 41,2140     0776                                  EBANK=   DSPCOUNT                              
018476,000931: 41,2140           02101 64101  LODNNLOC           2CADR    LODNNTAB                              
018477,000932: 
018478,000933: 
018479,000934: 41,2142           77772        NEG5               OCT      77772                                 
018480,000935: 
018481,000936: 41,2143           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
018482,000937: 41,2144           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
018483,000938: 41,2145           44756                           CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
018484,000939: 41,2146           61000                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
018485,000940: 41,2147           00006                           EXTEND                                         
018486,000941: 41,2150           12160                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
018487,000942: 41,2151           34321                           CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
018488,000943: 41,2152           54776                           TS       DSPCOUNT                              
018489,000944: 41,2153           31016                           CA       NOUNCADR                              
018490,000945: 41,2154           03435                           TC       DSPOCTWD                              
018491,000946: 41,2155           02160                           TC       VERBFAN                               
018492,000947: 
018493,000948: 41,2156           64753                           AD       ONE                                   
018494,000949: 41,2157           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018495,000950: 41,2160           42172        VERBFAN            CS       LST2CON                               
018496,000951: 41,2161           61000                           AD       VERBREG                               #  VERB-LST2CON
018497,000952: 41,2162           10000                           CCS      A                                     
018498,000953: 41,2163           64753                           AD       ONE                                   #  VERB G/ LST2CON
018499,000954: 41,2164           02166                           TC       +2                                    
018500,000955: 41,2165           02173                           TC       VBFANDIR                              #  VERB L/ LST2CON
018501,000956: 41,2166           54154                           TS       MPAC                                  
018502,000957: 41,2167           04457                           TC       RELDSP                                #  RELEASE DISPLAY SYST
018503,000958: 41,2170           04635                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
018504,000959: 41,2171           66000                           CADR     GOEXTVB                               
018505,000960: 41,2172           00050        LST2CON            DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
018506,000961: 
018507,000962: 41,2173           51000        VBFANDIR           INDEX    VERBREG                               
018508,000963: 41,2174           32176                           CAF      VERBTAB                               
018509,000964: 41,2175           04640                           TC       BANKJUMP                              
018510,000965: 
018511,000966: 41,2176           62400        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
018512,000967: 41,2177           62414                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
018513,000968: 41,2200           62422                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
018514,000969: 41,2201           62427                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
018515,000970: 41,2202           62407                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
018516,000971: 41,2203           62402                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
018517,000972: 41,2204           62552                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
018518,000973: 41,2205           61026                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
018519,000974: 41,2206           62400                           CADR     GODSPALM                              #  VB08 SPARE
018520,000975: 41,2207           62400                           CADR     GODSPALM                              #  VB09 SPARE

Page 415

018522,000977: 41,2210           61451                           CADR     DSPALARM                              #  VB10 SPARE
018523,000978: 41,2211           63302                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
018524,000979: 41,2212           63302                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
018525,000980: 41,2213           63302                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
018526,000981: 41,2214           63302                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
018527,000982: 41,2215           63302                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
018528,000983: 41,2216           63302                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
018529,000984: 41,2217           63302                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
018530,000985: 41,2220           62400                           CADR     GODSPALM                              #  VB18 SPARE
018531,000986: 41,2221           62400                           CADR     GODSPALM                              #  VB19 SPARE
018532,000987: 41,2222           62400                           CADR     GODSPALM                              #  VB20 SPARE
018533,000988: 41,2223           63002                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
018534,000989: 41,2224           63013                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
018535,000990: 41,2225           63030                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
018536,000991: 41,2226           62753                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
018537,000992: 41,2227           62647                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
018538,000993: 41,2230           62400                           CADR     GODSPALM                              #  VB26 SPARE
018539,000994: 41,2231           63425                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
018540,000995:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
018541,000996: 41,2232           62400                           CADR     GODSPALM                              #  VB28 SPARE
018542,000997: 41,2233           62400                           CADR     GODSPALM                              #  VB29 SPARE
018543,000998: 41,2234           63526        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
018544,000999: 41,2235           63552                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
018545,001000: 41,2236           61516                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
018546,001001: 41,2237           61473                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
018547,001002: 41,2240           61501                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
018548,001003: 41,2241           63653                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
018549,001004: 41,2242           12464                           CADR     SLAP1                                 #  VB36 FRESH START
018550,001005: 41,2243           63470                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
018551,001006: 41,2244           62400                           CADR     GODSPALM                              #  VB38 SPARE
018552,001007: 41,2245           62400                           CADR     GODSPALM                              #  VB39 SPARE
018553,001008: 
018554,001009: 
018555,001010:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
018556,001011: 

Page 416

018558,001013:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
018559,001014:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
018560,001015:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
018561,001016:                                                                                                  #   MIXTEMP.
018562,001017: 
018563,001018: 41,2246           10146        MIXNOUN            CCS      NNADTEM                               
018564,001019: 41,2247           02253                           TC       +4                                    #  +  IN USE
018565,001020: 41,2250           02400                           TC       GODSPALM                              #  +0  NOT IN USE
018566,001021: 41,2251           02253                           TC       +2                                    #  -  IN USE
018567,001022: 41,2252           02253                           TC       +1                                    #  -0  IN USE
018568,001023: 41,2253           46254                           CS       SIX                                   
018569,001024: 41,2254           61000                           AD       VERBREG                               
018570,001025: 41,2255           00006                           EXTEND                                         
018571,001026: 41,2256           62260                           BZMF     +2                                    #  VERB L/E 6
018572,001027: 41,2257           02160                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
018573,001028: 41,2260           34752                           CAF      TWO                                   
018574,001029: 41,2261           54117        MIXNN1             TS       DECOUNT                               
018575,001030: 41,2262           62305                           AD       MIXAD                                 
018576,001031: 41,2263           54145                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
018577,001032: 41,2264           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
018578,001033: 41,2265           30150                           CA       IDAD1TEM                              #  OF NOUN.
018579,001034: 41,2266           54122                           TS       NOUNTEM                               
018580,001035:                                                                                                  #  TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
018581,001036:                                                                                                  #    MINOR PART ONLY.
018582,001037: 41,2267           03104                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
018583,001038: 41,2270           02306                           TC       DPTEST                                
018584,001039: 41,2271           02273                           TC       MIXNN2                                #  NO DP
018585,001040: 41,2272           24122                           INCR     NOUNTEM                               #  DP  GET MINOR PART
018586,001041: 41,2273           30122        MIXNN2             CA       NOUNTEM                               
018587,001042: 41,2274           74356                           MASK     LOW11                                 #  ESUBK (NO DP)  OR (ESUBK)+1    FOR DP
018588,001043: 41,2275           04313                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
018589,001044: 41,2276           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
018590,001045: 41,2277           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
018591,001046: 41,2300           50145                           INDEX    NOUNADD                               
018592,001047: 41,2301           56000                           XCH      0                                     #  STORE IN MIXTEM + K
018593,001048: 41,2302           10117                           CCS      DECOUNT                               
018594,001049: 41,2303           02261                           TC       MIXNN1                                
018595,001050: 41,2304           02160                           TC       VERBFAN                               
018596,001051: 
018597,001052: 41,2305           00125        MIXAD              TC       MIXTEMP                               
018598,001053: 
018599,001054: 
018600,001055:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
018601,001056:                                                                                                  #           RETURNS TO L+1 IF NO DP.
018602,001057:                                                                                                  #           RETURNS TO L+2 IF DP.
018603,001058: 
018604,001059: 41,2306           50000        DPTEST             INDEX    A                                     
018605,001060: 41,2307           12310                           TCF      +1                                    
018606,001061: 41,2310           00002                           TC       Q                                     #  OCTAL ONLY  NO DP
018607,001062: 41,2311           00002                           TC       Q                                     #  FRACT NO DP

Page 417

018609,001064: 41,2312           00002                           TC       Q                                     #  DEG  NO DP
018610,001065: 41,2313           00002                           TC       Q                                     #  ARITH  NO DP
018611,001066: 41,2314           12330                           TCF      DPTEST1                               #  DP1OUT
018612,001067: 41,2315           12330                           TCF      DPTEST1                               #  DP2OUT
018613,001068: 41,2316           00002                           TC       Q                                     #  LRPOSOUT  NO DP (DATA IN CHANNEL 33)
018614,001069: 41,2317           12330                           TCF      DPTEST1                               #  DP3OUT
018615,001070: 41,2320           00002                           TC       Q                                     #  HMS   NO DP
018616,001071: 41,2321           00002                           TC       Q                                     #  M/S   NO DP
018617,001072: 41,2322           12330                           TCF      DPTEST1                               #  DP4OUT
018618,001073: 41,2323           00002                           TC       Q                                     #  ARITH1   NO DP
018619,001074: 41,2324           00002                           TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
018620,001075: 41,2325           00002                           TC       Q                                     #  360-CDU   NO DP
018621,001076: 41,2326           00002                           TC       Q                                     #  RRANGOUT  NO DP
018622,001077: 41,2327           00002                           TC       Q                                     #  RRDOTOUT  NO DP
018623,001078: 41,2330           50002        DPTEST1            INDEX    Q                                     
018624,001079: 41,2331           00001                           TC       1                                     #  RETURN TO L+2
018625,001080: 
018626,001081: 
018627,001082: 41,2332           34317        REQDATX            CAF      R1D1                                  
018628,001083: 41,2333           12337                           TCF      REQCOM                                
018629,001084: 41,2334           34320        REQDATY            CAF      R2D1                                  
018630,001085: 41,2335           12337                           TCF      REQCOM                                
018631,001086: 41,2336           34321        REQDATZ            CAF      R3D1                                  
018632,001087: 41,2337           54776        REQCOM             TS       DSPCOUNT                              
018633,001088: 41,2340           40002                           CS       Q                                     
018634,001089: 41,2341           55012                           TS       REQRET                                
018635,001090: 41,2342           04616                           TC       BANKCALL                              
018636,001091: 41,2343           60525                           CADR     5BLANK                                
018637,001092: 41,2344           04427                           TC       FLASHON                               
018638,001093: 41,2345           00136        ENDRQDAT           TC       ENTEXIT                               
018639,001094: 
018640,001095: 41,2346           55001                           TS       NOUNREG                               
018641,001096: 41,2347           56002        UPDATNN            XCH      Q                                     
018642,001097: 41,2350           54117                           TS       UPDATRET                              
018643,001098: 41,2351           00006                           EXTEND                                         
018644,001099: 41,2352           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018645,001100: 41,2353           52006                           DXCH     Z                                     #  ROUTINE.
018646,001101: 41,2354           10146                           CCS      NNADTEM                               
018647,001102: 41,2355           64753                           AD       ONE                                   #  NORMAL
018648,001103: 41,2356           12361                           TCF      PUTADD                                
018649,001104: 41,2357           12362                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
018650,001105: 41,2360           12362                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
018651,001106: 41,2361           04303        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018652,001107: 41,2362           34361                           CAF      ND1                                   
018653,001108: 41,2363           54776                           TS       DSPCOUNT                              
018654,001109: 41,2364           31001                           CA       NOUNREG                               
018655,001110: 41,2365           12374                           TCF      UPDAT1                                
018656,001111: 
018657,001112: 41,2366           55000                           TS       VERBREG                               
018658,001113: 41,2367           56002        UPDATVB            XCH      Q                                     

Page 418

018660,001115: 41,2370           54117                           TS       UPDATRET                              
018661,001116: 41,2371           34360                           CAF      VD1                                   
018662,001117: 41,2372           54776                           TS       DSPCOUNT                              
018663,001118: 41,2373           31000                           CA       VERBREG                               
018664,001119: 41,2374           04635        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN,SINCE
018665,001120: 41,2375           61350                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
018666,001121: 41,2376           00117                           TC       UPDATRET                              
018667,001122: 
018668,001123: 
018669,001124: 41,2377           04145        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
018670,001125: 
018671,001126: 
018672,001127: 41,2400           04635        GODSPALM           TC       POSTJUMP                              
018673,001128: 41,2401           61451                           CADR     DSPALARM                              
018674,001129: 

Page 419

018676,001131:                                                                                                  #           NOUN   TABLES
018677,001132:                                                                                                  #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
018678,001133:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
018679,001134:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
018680,001135:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
018681,001136:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
018682,001137: 
018683,001138:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
018684,001139:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
018685,001140: 
018686,001141:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
018687,001142: 
018688,001143:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
018689,001144:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
018690,001145:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
018691,001146: 
018692,001147:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
018693,001148:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
018694,001149:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
018695,001150:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
018696,001151:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
018697,001152:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
018698,001153: 
018699,001154:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
018700,001155:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
018701,001156:                                                                                                  #  THE FIRST OF THESE ENTRIES.
018702,001157:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
018703,001158:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
018704,001159: 
018705,001160:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
018706,001161:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
018707,001162:                                                                                                  #        QQQQQRRRRRSSSSS
018708,001163:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
018709,001164:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
018710,001165:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
018711,001166:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
018712,001167:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
018713,001168: 
018714,001169: 
018715,001170:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
018716,001171:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
018717,001172:                                                                                                  #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
018718,001173: 
018719,001174: 
018720,001175:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
018721,001176:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
018722,001177: 
018723,001178:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
018724,001179:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
018725,001180: 

Page 420

018727,001182:                                                                                                  #           DISPLAY  VERBS
018728,001183: 41,2402           44752        DSPABC             CS       TWO                                   
018729,001184: 41,2403           02453                           TC       COMPTEST                              
018730,001185: 41,2404           50145                           INDEX    NOUNADD                               
018731,001186: 41,2405           40002                           CS       2                                     
018732,001187: 41,2406           56132                           XCH      BUF        +2                         
018733,001188: 41,2407           44753        DSPAB              CS       ONE                                   
018734,001189: 41,2410           02453                           TC       COMPTEST                              
018735,001190: 41,2411           50145                           INDEX    NOUNADD                               
018736,001191: 41,2412           40001                           CS       1                                     
018737,001192: 41,2413           56131                           XCH      BUF        +1                         
018738,001193: 41,2414           02472        DSPA               TC       DECTEST                               
018739,001194: 41,2415           02515                           TC       TSTFORDP                              
018740,001195: 41,2416           50145                           INDEX    NOUNADD                               
018741,001196: 41,2417           40000                           CS       0                                     
018742,001197: 41,2420           56130        DSPCOM1            XCH      BUF                                   
018743,001198: 41,2421           02434                           TC       DSPCOM2                               
018744,001199: 41,2422           44753        DSPB               CS       ONE                                   
018745,001200: 41,2423           02466                           TC       DCOMPTST                              
018746,001201: 41,2424           50145                           INDEX    NOUNADD                               
018747,001202: 41,2425           40001                           CS       1                                     
018748,001203: 41,2426           02420                           TC       DSPCOM1                               
018749,001204: 41,2427           44752        DSPC               CS       TWO                                   
018750,001205: 41,2430           02466                           TC       DCOMPTST                              
018751,001206: 41,2431           50145                           INDEX    NOUNADD                               
018752,001207: 41,2432           40002                           CS       2                                     
018753,001208: 41,2433           02420                           TC       DSPCOM1                               
018754,001209: 41,2434           44752        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
018755,001210: 41,2435           61000                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
018756,001211: 41,2436           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
018757,001212: 41,2437           02442                           TC       DSPCOM3                               
018758,001213: 41,2440           00136                           TC       ENTEXIT                               
018759,001214: 41,2441           02442                           TC       +1                                    
018760,001215: 41,2442           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
018761,001216: 41,2443           50000                           INDEX    A                                     
018762,001217: 41,2444           34317                           CAF      R1D1                                  
018763,001218: 41,2445           54776                           TS       DSPCOUNT                              
018764,001219: 41,2446           50122                           INDEX    DISTEM                                
018765,001220: 41,2447           40130                           CS       BUF                                   
018766,001221: 41,2450           03435                           TC       DSPOCTWD                              
018767,001222: 41,2451           56122                           XCH      DISTEM                                
018768,001223: 41,2452           02436                           TC       DSPCOM2    +2                         
018769,001224: 
018770,001225:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
018771,001226:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
018772,001227: 41,2453           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
018773,001228: 41,2454           22002                           LXCH     Q                                     
018774,001229: 41,2455           02544        COMPTST1           TC       GETCOMP                               
018775,001230: 41,2456           04331                           TC       LEFT5                                 
018776,001231: 41,2457           76257                           MASK     THREE                                 #  NOUN COMP

Page 421

018778,001233: 41,2460           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
018779,001234: 41,2461           10000                           CCS      A                                     
018780,001235: 41,2462           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
018781,001236: 41,2463           05706                           TC       CCSHOLE                               
018782,001237: 41,2464           02400                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
018783,001238: 41,2465           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
018784,001239: 
018785,001240: 
018786,001241:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
018787,001242:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
018788,001243: 41,2466           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
018789,001244: 41,2467           22002                           LXCH     Q                                     
018790,001245: 41,2470           02472                           TC       DECTEST                               
018791,001246: 41,2471           02455                           TC       COMPTST1                              
018792,001247: 
018793,001248: 41,2472           00006        DECTEST            EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
018794,001249: 41,2473           22156                           QXCH     MPAC       +2                         #  CODE NUMBER). RETURNS IF NOT.
018795,001250: 41,2474           02544                           TC       GETCOMP                               
018796,001251: 41,2475           74736                           MASK     BIT14                                 
018797,001252: 41,2476           10000                           CCS      A                                     
018798,001253: 41,2477           02400                           TC       GODSPALM                              
018799,001254: 41,2500           00156                           TC       MPAC       +2                         
018800,001255: 
018801,001256: 
018802,001257: 41,2501           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
018803,001258: 41,2502           02544                           TC       GETCOMP                               #  ( BIT4 OF COMP CODE NUMBER). RETURNS
018804,001259: 41,2503           74736                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
018805,001260: 41,2504           10000                           CCS      A                                     
018806,001261: 41,2505           04145                           TC       ALMCYCLE                              
018807,001262: 41,2506           00001                           TC       L                                     
018808,001263: 
018809,001264: 
018810,001265:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
018811,001266:                                                                                                  #  IF NOT, IT RETURNS.
018812,001267: 41,2507           22002        NOUNTEST           LXCH     Q                                     
018813,001268: 41,2510           02544                           TC       GETCOMP                               
018814,001269: 41,2511           10000                           CCS      A                                     
018815,001270: 41,2512           00001                           TC       L                                     
018816,001271: 41,2513           00001                           TC       L                                     
018817,001272: 41,2514           02400                           TC       GODSPALM                              
018818,001273: 
018819,001274: 
018820,001275: 41,2515           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
018821,001276: 41,2516           30146                           CA       NNADTEM                               
018822,001277: 41,2517           64753                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
018823,001278: 41,2520           00006                           EXTEND                                         
018824,001279: 41,2521           12533                           BZF      CHANDSP                               
018825,001280: 41,2522           50140                           INDEX    MIXBR                                 
018826,001281: 41,2523           02523                           TC       +0                                    
018827,001282: 41,2524           02526                           TC       +2                                    #  NORMAL

Page 422

018829,001284: 41,2525           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
018830,001285: 41,2526           03076                           TC       SFRUTNOR                              
018831,001286: 41,2527           02306                           TC       DPTEST                                
018832,001287: 41,2530           00001                           TC       L                                     #  NO DP
018833,001288: 41,2531           24145                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
018834,001289: 41,2532           00001                           TC       L                                     
018835,001290: 
018836,001291: 
018837,001292: 41,2533           31016        CHANDSP            CA       NOUNCADR                              
018838,001293: 41,2534           75004                           MASK     LOW9                                  
018839,001294: 41,2535           00006                           EXTEND                                         
018840,001295: 41,2536           50000                           INDEX    A                                     
018841,001296: 41,2537           00000                           READ     0                                     
018842,001297: 41,2540           40000                           CS       A                                     
018843,001298: 41,2541           12420                           TCF      DSPCOM1                               
018844,001299: 
018845,001300: 
018846,001301: 41,2542           00147        COMPICK            ADRES    NNTYPTEM                              
018847,001302: 41,2543           00146                           ADRES    NNADTEM                               
018848,001303: 
018849,001304: 41,2544           50140        GETCOMP            INDEX    MIXBR                                 #  NORMAL                MIXED
018850,001305: 41,2545           32541                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
018851,001306: 41,2546           50000                           INDEX    A                                     
018852,001307: 41,2547           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
018853,001308: 41,2550           74350                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
018854,001309: 41,2551           00002                           TC       Q                                     
018855,001310: 
018856,001311: 
018857,001312: 41,2552           02544        DECDSP             TC       GETCOMP                               
018858,001313: 41,2553           04331                           TC       LEFT5                                 
018859,001314: 41,2554           76257                           MASK     THREE                                 
018860,001315: 41,2555           54117                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
018861,001316: 41,2556           54122        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
018862,001317: 41,2557           60145                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
018863,001318: 41,2560           50000                           INDEX    A                                     
018864,001319: 41,2561           40000                           CS       0                                     
018865,001320: 41,2562           50122                           INDEX    DECTEM                                
018866,001321: 41,2563           57002                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
018867,001322: 41,2564           10122                           CCS      DECTEM                                
018868,001323: 41,2565           02556                           TC       DSPDCGET                              #  MORE TO GET
018869,001324: 41,2566           34755        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
018870,001325: 41,2567           54155                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
018871,001326: 41,2570           54156                           TS       MPAC       +2                         
018872,001327: 41,2571           50117                           INDEX    DECOUNT                               
018873,001328: 41,2572           34317                           CAF      R1D1                                  
018874,001329: 41,2573           54776                           TS       DSPCOUNT                              
018875,001330: 41,2574           50117                           INDEX    DECOUNT                               
018876,001331: 41,2575           41002                           CS       XREG                                  
018877,001332: 41,2576           54154                           TS       MPAC                                  
018878,001333: 41,2577           03117                           TC       SFCONUM                               #  2X( SF CON NUMB ) IN A

Page 423

018880,001335: 41,2600           54123                           TS       SFTEMP1                               
018881,001336: 41,2601           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
018882,001337: 41,2602           32614                           DCA      GTSFOUTL                              #     READING ROUTINE.
018883,001338: 41,2603           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
018884,001339: 41,2604           50140                           INDEX    MIXBR                                 
018885,001340: 41,2605           02605                           TC       +0                                    
018886,001341: 41,2606           02611                           TC       DSPSFNOR                              
018887,001342: 41,2607           03104                           TC       SFRUTMIX                              
018888,001343: 41,2610           02624                           TC       DECDSP3                               
018889,001344: 
018890,001345: 41,2611           03076        DSPSFNOR           TC       SFRUTNOR                              
018891,001346: 41,2612           02624                           TC       DECDSP3                               
018892,001347: 
018893,001348: 41,2613     0776                                  EBANK=   DSPCOUNT                              
018894,001349: 41,2613           02137 64101  GTSFOUTL           2CADR    GTSFOUT                               
018895,001350: 
018896,001351: 
018897,001352: 
018898,001353: 41,2615           04616        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
018899,001354: 41,2616           61263                           CADR     DSPDECWD                              
018900,001355: 41,2617           10117                           CCS      DECOUNT                               
018901,001356: 41,2620           02622                           TC       +2                                    
018902,001357: 41,2621           00136                           TC       ENTEXIT                               
018903,001358: 41,2622           54117                           TS       DECOUNT                               
018904,001359: 41,2623           02566                           TC       DSPDCPUT                              #  MORE TO DISPLAY
018905,001360: 
018906,001361: 
018907,001362: 41,2624           50000        DECDSP3            INDEX    A                                     
018908,001363: 41,2625           32627                           CAF      SFOUTABR                              
018909,001364: 41,2626           04640                           TC       BANKJUMP                              
018910,001365: 
018911,001366: 41,2627           61447        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
018912,001367: 41,2630           62615                           CADR     DSPDCEND                              
018913,001368: 41,2631           60604                           CADR     DEGOUTSF                              
018914,001369: 41,2632           60726                           CADR     ARTOUTSF                              
018915,001370: 41,2633           60737                           CADR     DP1OUTSF                              
018916,001371: 41,2634           60744                           CADR     DP2OUTSF                              
018917,001372: 41,2635           60624                           CADR     LRPOSOUT                              
018918,001373: 41,2636           60746                           CADR     DP3OUTSF                              
018919,001374: 41,2637           65236                           CADR     HMSOUT                                
018920,001375: 41,2640           65311                           CADR     M/SOUT                                
018921,001376: 41,2641           60744                           CADR     DP2OUTSF                              
018922,001377: 41,2642           60733                           CADR     AROUT1SF                              
018923,001378: 41,2643           60761                           CADR     2INTOUT                               
018924,001379: 41,2644           60612                           CADR     360-CDUO                              
018925,001380: 41,2645           60634                           CADR     RRANGOUT                              
018926,001381: 41,2646           60651                           CADR     RRDOTOUT                              
018927,001382: 41,2647                        ENDRTOUT           EQUALS                                         
018928,001383: 

Page 424

018930,001385:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
018931,001386:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
018932,001387: 
018933,001388: 
018934,001389: 40,2604                                           SETLOC   BLANKCON   +1                         
018935,001390: 
018936,001391: 40,2604                                           COUNT*   $$/PIN                                
018937,001392:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
018938,001393:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
018939,001394: 
018940,001395: 40,2604           34755        DEGOUTSF           CAF      ZERO                                  
018941,001396: 40,2605           54156                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
018942,001397: 40,2606           02701                           TC       FIXRANGE                              
018943,001398: 40,2607           02611                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
018944,001399: 40,2610           02674                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
018945,001400: 40,2611           02712                           TC       DEGCOM                                
018946,001401: 
018947,001402:                                                                                                  #  360-CDUO COMPUTES 360 - CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND
018948,001403:                                                                                                  #  GOES TO DEGOUTSF.
018949,001404: 
018950,001405: 40,2612           02614        360-CDUO           TC       360-CDU                               
018951,001406: 40,2613           02604                           TC       DEGOUTSF                              
018952,001407: 
018953,001408: 40,2614           30154        360-CDU            CA       MPAC                                  
018954,001409: 40,2615           74733                           MASK     POSMAX                                #  IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING
018955,001410: 40,2616           00006                           EXTEND                                         
018956,001411: 40,2617           12623                           BZF      360-CDUE                              
018957,001412: 40,2620           40154                           CS       MPAC                                  #  COMPUTE 360 DEGREES MINUS ANGLE
018958,001413: 40,2621           64753                           AD       ONE                                   
018959,001414: 40,2622           54154                           TS       MPAC                                  
018960,001415: 40,2623           00002        360-CDUE           TC       Q                                     
018961,001416: 
018962,001417:                                                                                                  #  LRPOSOUT DISPLAYS +0,1,2,OR 3 (WHOLE) FOR CHANNEL 33,BITS 7-6 = 11,10,
018963,001418:                                                                                                  #  01,00 RESPECTIVELY.
018964,001419: 
018965,001420: 40,2624           00006        LRPOSOUT           EXTEND                                         
018966,001421: 40,2625           00033                           READ     CHAN33                                
018967,001422: 40,2626           00006                           EXTEND                                         
018968,001423: 40,2627           74742                           MP       BIT10                                 #  BITS 7-6 TO BITS 2-1
018969,001424: 40,2630           40000                           COM                                            
018970,001425: 40,2631           76257                           MASK     THREE                                 
018971,001426: 40,2632           54154                           TS       MPAC                                  
018972,001427: 40,2633           02726                           TC       ARTOUTSF                              #  DISPLAY AS WHOLE
018973,001428: 
018974,001429:                                                                                                  #  RRANGOUT AND RRDOTOUT CONVERT RR RANGE AND RANGE RATE FROM SP 15 BIT
018975,001430:                                                                                                  #  MAGNITUDE TO DP AND THEN SCALE FOR DISPLAY.
018976,001431: 
018977,001432: 40,2634           02664        RRANGOUT           TC       RRSPTODP                              #  CONVERT TO DP.
018978,001433: 40,2635           40110                           CS       RADMODES                              #  BIT 3 OF FLAG12 = HI SCALE
018979,001434: 40,2636           74751                           MASK     BIT3                                  

Page 425

018981,001436: 40,2637           10000                           CCS      A                                     
018982,001437: 40,2640           02646                           TC       SCALELO                               #  DATA IS IN LO SCALE.
018983,001438: 40,2641           52155                           DXCH     MPAC                                  #  DATA IS IN HI SCALE, MP BY 8.
018984,001439: 40,2642           20001                           DAS      A                                     
018985,001440: 40,2643           20001                           DAS      A                                     
018986,001441: 40,2644           20001                           DAS      A                                     
018987,001442: 40,2645           52155                           DXCH     MPAC                                  
018988,001443: 40,2646           07115        SCALELO            TC       DMP                                   #  SCALE FOR DISPLAY,
018989,001444: 40,2647           00123                           ADRES    SFTEMP1                               
018990,001445: 40,2650           02740                           TC       L14/OUT                               #  AND GO TO ARITHDP1.
018991,001446: 
018992,001447: 40,2651           02664        RRDOTOUT           TC       RRSPTODP                              #  CONVERT TO DP.
018993,001448: 40,2652           00006                           EXTEND                                         
018994,001449: 40,2653           42663                           DCS      BIASRDOT                              #  SUBTRACT BIAS OF 17000 COUNTS.
018995,001450: 40,2654           20155                           DAS      MPAC                                  
018996,001451: 40,2655           34363                           CAF      TEN                                   #  MULTIPLY DATA BY TEN TO DISPLAY TENTHS
018997,001452: 40,2656           07321                           TC       SHORTMP                               #    FPS - (ATTEMPT TO MULTIPLY DISPLAY
018998,001453: 40,2657           52156                           DXCH     MPAC       +1                         #           SF BY TEN PRODUCED SF GREATER
018999,001454: 40,2660           52155                           DXCH     MPAC                                  #           THAN 16383)
019000,001455: 40,2661           02646                           TC       SCALELO                               #  SCALE FOR DISPLAY.
019001,001456: 40,2662           00001 01150  BIASRDOT           2DEC     17000      B-28                       
019002,001457: 
019003,001458: 
019004,001459: 40,2664           34733        RRSPTODP           CAF      POSMAX                                #  CONVERT SP 15 BIT MAG TO DP.
019005,001460: 40,2665           70154                           MASK     MPAC                                  
019006,001461: 40,2666           54155                           TS       MPAC       +1                         
019007,001462: 40,2667           30154                           CA       MPAC                                  
019008,001463: 40,2670           60000                           DOUBLE                                         
019009,001464: 40,2671           74753                           MASK     BIT1                                  
019010,001465: 40,2672           54154                           TS       MPAC                                  
019011,001466: 40,2673           00002                           TC       Q                                     
019012,001467: 
019013,001468: 40,2674           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
019014,001469: 40,2675           50156                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
019015,001470: 40,2676           32723                           DCA      DEGTAB                                
019016,001471: 40,2677           52124                           DXCH     SFTEMP1                               
019017,001472: 40,2700           00002                           TC       Q                                     
019018,001473: 
019019,001474: 40,2701           10154        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
019020,001475: 40,2702           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
019021,001476: 40,2703           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
019022,001477: 40,2704           12705                           TCF      +1                                    
019023,001478: 40,2705           44735                           CS       BIT15                                 
019024,001479: 40,2706           70154                           MASK     MPAC                                  
019025,001480: 40,2707           54154                           TS       MPAC                                  
019026,001481: 40,2710           50002                           INDEX    Q                                     
019027,001482: 40,2711           00001                           TC       1                                     
019028,001483: 
019029,001484: 40,2712           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER , DOES SHORTMP, AND
019030,001485: 40,2713           50156                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.

Page 426

019032,001487: 40,2714           32723                           DCA      DEGTAB                                
019033,001488: 40,2715           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
019034,001489: 40,2716           07321                           TC       SHORTMP                               
019035,001490: 40,2717           52124                           DXCH     SFTEMP1                               
019036,001491: 40,2720           20155                           DAS      MPAC                                  
019037,001492: 40,2721           02731                           TC       SCOUTEND                              
019038,001493: 
019039,001494: 
019040,001495: 40,2722           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
019041,001496: 40,2723           03656                           OCT      03656                                 #  LOW PART OF    .18
019042,001497: 40,2724           16314                           OCT      16314                                 #  HI PART OF     .45
019043,001498: 40,2725           31463                           OCT      31463                                 #  LO PART OF     .45
019044,001499: 
019045,001500: 40,2726           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
019046,001501: 40,2727           52155                           DXCH     MPAC                                  
019047,001502: 40,2730           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019048,001503: 40,2731           04635        SCOUTEND           TC       POSTJUMP                              
019049,001504: 40,2732           62615                           CADR     DSPDCEND                              
019050,001505: 
019051,001506: 40,2733           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
019052,001507: 40,2734           52155                           DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
019053,001508: 40,2735           04415                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
019054,001509: 40,2736           02740                           TC       L14/OUT                               
019055,001510: 
019056,001511: 
019057,001512: 40,2737           02752        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019058,001513: 40,2740           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
019059,001514: 40,2741           56155                           XCH      MPAC       +1                         #  BY B14.
019060,001515: 40,2742           54154                           TS       MPAC                                  
019061,001516: 40,2743           02731                           TC       SCOUTEND                              
019062,001517: 
019063,001518: 
019064,001519: 40,2744           02752        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC , MPAC +1 BY DP SCALE FACTOR
019065,001520: 40,2745           02731                           TC       SCOUTEND                              
019066,001521: 
019067,001522: 
019068,001523: 40,2746           02752        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019069,001524: 40,2747           36254                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
019070,001525: 40,2750           03210                           TC       TPLEFTN                               #  SHIFT LEFT 7.
019071,001526: 40,2751           02731                           TC       SCOUTEND                              
019072,001527: 
019073,001528: 
019074,001529: 40,2752     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
019075,001530: 
019076,001531: 40,2752           56002        DPOUT              XCH      Q                                     
019077,001532: 40,2753           54162                           TS       MPAC+6                                
019078,001533: 40,2754           03004                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
019079,001534: 40,2755           07271                           TC       TPAGREE                               #  MAKE DP DATA AGREE
019080,001535: 40,2756           07115                           TC       DMP                                   
019081,001536: 40,2757           00123                           ADRES    SFTEMP1                               

Page 427

019083,001538: 40,2760           00162                           TC       MPAC+6                                
019084,001539:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
019085,001540:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
019086,001541:                                                                                                  #  BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
019087,001542:                                                                                                  #  RXD1-RXD2.
019088,001543: 
019089,001544: 40,2761           02525        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
019090,001545: 40,2762           40154                           CS       MPAC                                  #  FIRST TURN ON THE APPROPRIATE SIGN
019091,001546: 40,2763           00006                           EXTEND                                         
019092,001547: 40,2764           62770                           BZMF     +4                                    
019093,001548: 40,2765           02422                           TC       -ON                                   
019094,001549: 40,2766           40154                           CS       MPAC                                  
019095,001550: 40,2767           12772                           TCF      +3                                    
019096,001551: 40,2770           02402                 +4        TC       +ON                                   
019097,001552: 40,2771           30154                           CA       MPAC                                  
019098,001553: 40,2772           03337                 +3        TC       DSPDECVN                              
019099,001554: 40,2773           46257                           CS       THREE                                 
019100,001555: 40,2774           50117                           INDEX    DECOUNT                               
019101,001556: 40,2775           64317                           AD       R1D1                                  #  RXD4
019102,001557: 40,2776           54776                           TS       DSPCOUNT                              
019103,001558: 40,2777           03004                           TC       READLO                                #  GET 2ND INTEGER
019104,001559: 40,3000           30155                           CA       MPAC       +1                         
019105,001560: 40,3001           03337                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
019106,001561: 40,3002           04635                           TC       POSTJUMP                              
019107,001562: 40,3003           62617                           CADR     DSPDCEND   +2                         
019108,001563: 
019109,001564: 
019110,001565:                                                                                                  #  READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN 
019111,001566:                                                                                                  #  MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
019112,001567:                                                                                                  #  DOES NOT FORCE TPAGREE.
019113,001568: 
019114,001569: 40,3004           56002        READLO             XCH      Q                                     
019115,001570: 40,3005           54144                           TS       TEM4                                  
019116,001571: 40,3006           50140                           INDEX    MIXBR                                 
019117,001572: 40,3007           03007                           TC       +0                                    
019118,001573: 40,3010           03024                           TC       RDLONOR                               
019119,001574: 40,3011           50117                           INDEX    DECOUNT                               
019120,001575: 40,3012           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
019121,001576: 40,3013           74356                           MASK     LOW11                                 #  E SUBK
019122,001577: 40,3014           04313                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
019123,001578: 40,3015           00006        READLO1            EXTEND                                         #  MIXED         NORMAL
019124,001579: 40,3016           50000                           INDEX    A                                     #  C(ESUBK)      C(E)
019125,001580: 40,3017           30001                           DCA      0                                     #  C((E SUBK)+1)      C(E+1)
019126,001581: 40,3020           52155                           DXCH     MPAC                                  
019127,001582: 40,3021           34755                           CAF      ZERO                                  
019128,001583: 40,3022           54156                           TS       MPAC       +2                         
019129,001584: 40,3023           00144                           TC       TEM4                                  
019130,001585: 
019131,001586: 40,3024           30145        RDLONOR            CA       NOUNADD                               #  E
019132,001587: 40,3025           03015        ENDRDLO            TC       READLO1                               
019133,001588: 

Page 428

019135,001590: 42,3236                                           BANK     42                                    
019136,001591: 42,2000                                           SETLOC   PINBALL3                              
019137,001592: 42,2000                                           BANK                                           
019138,001593: 
019139,001594: 42,3236                                           COUNT*   $$/PIN                                
019140,001595: 42,3236           04616        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
019141,001596: 42,3237           61004                           CADR     READLO                                #  MPAC+1.
019142,001597: 42,3240           07271                           TC       TPAGREE                               #  MAKE DP DATA AGREE
019143,001598: 42,3241           03425                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
019144,001599:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
019145,001600: 42,3242           07115                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
019146,001601: 42,3243           03277                           ADRES    SECON2                                #  MULT BY .06
019147,001602: 42,3244           34321                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
019148,001603: 42,3245           54776                           TS       DSPCOUNT                              
019149,001604: 42,3246           04616                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
019150,001605: 42,3247           61263                           CADR     DSPDECWD                              
019151,001606: 42,3250           03443                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
019152,001607: 42,3251           33301                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
019153,001608: 42,3252           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
019154,001609: 42,3253           55006                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
019155,001610: 42,3254           33302                           CAF      MINCON2    +1                         
019156,001611: 42,3255           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
019157,001612: 42,3256           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019158,001613:                                                                                                  #  MULT BY .0006
019159,001614: 42,3257           34320                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
019160,001615: 42,3260           54776                           TS       DSPCOUNT                              
019161,001616: 42,3261           04616                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
019162,001617: 42,3262           61263                           CADR     DSPDECWD                              
019163,001618: 42,3263           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
019164,001619: 42,3264           33306                           DCA      HRCON1                                
019165,001620: 42,3265           52155                           DXCH     MPAC                                  
019166,001621: 42,3266           31006                           CA       HITEMOUT                              #  USE WHOLE HOURS
019167,001622: 42,3267           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019168,001623:                                                                                                  #  MULT BY .16384
019169,001624: 42,3270           34317                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
019170,001625: 42,3271           54776                           TS       DSPCOUNT                              
019171,001626: 42,3272           04616                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
019172,001627: 42,3273           61263                           CADR     DSPDECWD                              
019173,001628: 42,3274           00136                           TC       ENTEXIT                               
019174,001629: 
019175,001630: 42,3275           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
019176,001631: 
019177,001632: 42,3277           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
019178,001633: 42,3300           01217                           OCT      01217                                 
019179,001634: 42,3301           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
019180,001635: 42,3302           32445                           OCT      32445                                 
019181,001636: 42,3303           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
019182,001637: 42,3304           10422                           OCT      10422                                 
019183,001638: 42,3305           05174 13261  HRCON1             2DEC     .16384                                
019184,001639: 

Page 429

019186,001641: 42,3307           00000                           OCT      00000                                 
019187,001642: 42,3310           00062        RNDCON             OCT      00062                                 #  .5 SEC
019188,001643: 
019189,001644: 
019190,001645: 42,3311           04616        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
019191,001646: 42,3312           61004                           CADR     READLO                                #  MPAC+1.
019192,001647: 42,3313           07271                           TC       TPAGREE                               #  MAKE DP DATA AGREE
019193,001648: 42,3314           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
019194,001649: 42,3315           03317                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
019195,001650: 42,3316           03350                           TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
019196,001651: 42,3317           63405                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1  FOR CCS
019197,001652: 42,3320           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
019198,001653: 42,3321           03334                           TC       M/SLIMIT                              #  G/ 59M58.5S
019199,001654: 42,3322           03350                           TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
019200,001655: 42,3323           03350                           TC       M/SNORM                               #  L/ 59M58.5S
019201,001656: 42,3324           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
019202,001657: 42,3325           03327                           TC       +2                                    
019203,001658: 42,3326           03350                           TC       M/SNORM                               #  MPAC+1 = +0. L/ 59M58.5S
019204,001659: 42,3327           63406                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1  FOR CCS
019205,001660: 42,3330           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
019206,001661: 42,3331           03334                           TC       M/SLIMIT                              #  G/ 59M58.5S
019207,001662: 42,3332           03350                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
019208,001663: 42,3333           03350                           TC       M/SNORM                               #  L/ 59M58.5S
019209,001664: 42,3334           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
019210,001665: 42,3335           33410                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
019211,001666: 42,3336           03345                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
019212,001667: 42,3337           43410                           CS       M/SCON3                               
019213,001668: 42,3340           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
019214,001669: 42,3341           43411                           CS       M/SCON3    +1                         
019215,001670: 42,3342           54155        LIMITCOM           TS       MPAC       +1                         
019216,001671: 42,3343           33407                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
019217,001672: 42,3344           03426                           TC       SEPSECNR   +1                         
019218,001673: 42,3345           54154        +LIMIT             TS       MPAC                                  
019219,001674: 42,3346           33411                           CAF      M/SCON3    +1                         
019220,001675: 42,3347           03342                           TC       LIMITCOM                              
019221,001676: 42,3350           03412        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
019222,001677:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
019223,001678: 42,3351           33403                           CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
019224,001679: 42,3352           07321                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
019225,001680: 42,3353           46257                           CS       THREE                                 #  GIVES SEC/100 MOD 60
019226,001681: 42,3354           26776                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
019227,001682: 42,3355           04616                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
019228,001683: 42,3356           61317                           CADR     DSPDC2NR                              
019229,001684: 42,3357           34755                           CAF      ZERO                                  
019230,001685: 42,3360           54124                           TS       CODE                                  
019231,001686: 42,3361           44752                           CS       TWO                                   
019232,001687: 42,3362           50117                           INDEX    DECOUNT                               
019233,001688: 42,3363           64317                           AD       R1D1                                  #  RXD3
019234,001689: 42,3364           54143                           TS       COUNT                                 
019235,001690: 42,3365           04616                           TC       BANKCALL                              #  BLANK MIDDLE CHAR

Page 430

019237,001692: 42,3366           61353                           CADR     DSPIN                                 
019238,001693: 42,3367           03443                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
019239,001694: 42,3370           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
019240,001695: 42,3371           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
019241,001696: 42,3372           73404                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
019242,001697: 42,3373           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
019243,001698: 42,3374           50117                           INDEX    DECOUNT                               
019244,001699: 42,3375           34317                           CAF      R1D1                                  #  RXD1
019245,001700: 42,3376           54776                           TS       DSPCOUNT                              
019246,001701: 42,3377           04616                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
019247,001702: 42,3400           61317                           CADR     DSPDC2NR                              
019248,001703: 42,3401           04635                           TC       POSTJUMP                              
019249,001704: 42,3402           62617                           CADR     DSPDCEND   +2                         
019250,001705: 
019251,001706: 42,3403           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
019252,001707: 42,3404           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
019253,001708: 
019254,001709: 42,3405           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
019255,001710: 42,3406           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
019256,001711: 42,3407           03351        NORMADR            ADRES    M/SNORM    +1                         
019257,001712: 42,3410           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
019258,001713: 42,3411           37016                           OCT      37016                                 
019259,001714: 
019260,001715: 
019261,001716: 42,3412           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
019262,001717: 42,3413           13422                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
019263,001718: 42,3414           13422                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
019264,001719: 42,3415           13416                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
019265,001720: 42,3416           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
019266,001721: 42,3417           43310                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
019267,001722: 42,3420           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
019268,001723: 42,3421           13425                           TCF      SEPSECNR                              
019269,001724: 42,3422           00006        POSEC              EXTEND                                         
019270,001725: 42,3423           33310                           DCA      RNDCON     -1                         
019271,001726: 42,3424           13420                           TCF      SEPSEC1                               
019272,001727: 42,3425           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
019273,001728: 42,3426           54144                           TS       SEPSCRET                              
019274,001729: 42,3427           07115                           TC       DMP                                   #  MULT BY 2EXP12/6000
019275,001730: 42,3430           03275                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
019276,001731: 42,3431           00006                           EXTEND                                         #  AND BELOW.
019277,001732: 42,3432           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
019278,001733: 42,3433           53007                           DXCH     HITEMOUT                              
019279,001734: 42,3434           04404                           TC       TPSL1                                 
019280,001735: 42,3435           04404                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
019281,001736: 42,3436           34755                           CAF      ZERO                                  
019282,001737: 42,3437           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
019283,001738: 42,3440           56155                           XCH      MPAC       +1                         
019284,001739: 42,3441           56154                           XCH      MPAC                                  
019285,001740: 42,3442           00144                           TC       SEPSCRET                              
019286,001741: 

Page 431

019288,001743: 42,3443           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
019289,001744: 42,3444           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
019290,001745: 42,3445           31007                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
019291,001746: 42,3446           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
019292,001747: 42,3447           74751                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
019293,001748: 42,3450           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
019294,001749: 42,3451           74737                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
019295,001750: 42,3452           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
019296,001751:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
019297,001752: 42,3453           31006                           CA       HITEMOUT                              
019298,001753: 42,3454           54154                           TS       MPAC                                  
019299,001754: 42,3455           07115                           TC       DMP                                   #  MULT BY 1/15
019300,001755: 42,3456           03303                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
019301,001756: 42,3457           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
019302,001757: 
019303,001758: 
019304,001759:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
019305,001760:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
019306,001761:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
019307,001762:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
019308,001763:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
019309,001764:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
019310,001765: 
019311,001766: 
019312,001767: 40,3026                                           SETLOC   ENDRDLO    +1                         
019313,001768: 
019314,001769: 40,3026                                           COUNT*   $$/PIN                                
019315,001770: 40,3026           50140        DSPDPDEC           INDEX    MIXBR                                 
019316,001771: 40,3027           03027                           TC       +0                                    
019317,001772: 40,3030           03032                           TC       +2                                    #  NORMAL NOUN
019318,001773: 40,3031           03451                           TC       DSPALARM                              
019319,001774: 40,3032           00006                           EXTEND                                         
019320,001775: 40,3033           50145                           INDEX    NOUNADD                               
019321,001776: 40,3034           30001                           DCA      0                                     
019322,001777: 40,3035           52155                           DXCH     MPAC                                  
019323,001778: 40,3036           34317                           CAF      R1D1                                  
019324,001779: 40,3037           54776                           TS       DSPCOUNT                              
019325,001780: 40,3040           34755                           CAF      ZERO                                  
019326,001781: 40,3041           54156                           TS       MPAC       +2                         
019327,001782: 40,3042           07271                           TC       TPAGREE                               
019328,001783: 40,3043           03324                           TC       DSP2DEC                               
019329,001784: 40,3044           00136        ENDDPDEC           TC       ENTEXIT                               
019330,001785: 

Page 432

019332,001787:                                                                                                  #  LOAD VERBS           IF ALARM CONDITION IS DETECTED DURING EXECUTE,
019333,001788:                                                                                                  #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
019334,001789:                                                                                                  #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
019335,001790:                                                                                                  #  TO EXECUTE  OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY  1) DECIMAL MACHINE
019336,001791:                                                                                                  #  CADR  2) MIXTURE OF OCTAL/DECIMAL DATA  3) OCTAL DATA INTO DECIMAL
019337,001792:                                                                                                  #  ONLY NOUN  4) DEC DATA INTO OCT ONLY NOUN  5) DATA TOO LARGE FOR SCALE
019338,001793:                                                                                                  #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
019339,001794:                                                                                                  #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
019340,001795:                                                                                                  #  ENTER OF CADR.
019341,001796: 
019342,001797: 
019343,001798: 41,2647                                           SETLOC   ENDRTOUT                              
019344,001799: 
019345,001800: 41,2647                                           COUNT*   $$/PIN                                
019346,001801: 41,2647           44752        ABCLOAD            CS       TWO                                   
019347,001802: 41,2650           02453                           TC       COMPTEST                              
019348,001803: 41,2651           02507                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
019349,001804: 41,2652           33056                           CAF      VBSP1LD                               
019350,001805: 41,2653           02366                           TC       UPDATVB    -1                         
019351,001806: 41,2654           02332                           TC       REQDATX                               
019352,001807: 41,2655           33057                           CAF      VBSP2LD                               
019353,001808: 41,2656           02366                           TC       UPDATVB    -1                         
019354,001809: 41,2657           02334                           TC       REQDATY                               
019355,001810: 41,2660           33060                           CAF      VBSP3LD                               
019356,001811: 41,2661           02366                           TC       UPDATVB    -1                         
019357,001812: 41,2662           02336                           TC       REQDATZ                               
019358,001813: 
019359,001814: 
019360,001815: 41,2663           46254        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
019361,001816: 41,2664           03061                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
019362,001817: 41,2665           00006                           EXTEND                                         
019363,001818: 41,2666           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019364,001819: 41,2667           52006                           DXCH     Z                                     #  ROUTINE.
019365,001820: 41,2670           34755                           CAF      ZERO                                  #  X COMP
019366,001821: 41,2671           03145                           TC       PUTCOM                                
019367,001822: 41,2672           50145                           INDEX    NOUNADD                               
019368,001823: 41,2673           54000                           TS       0                                     
019369,001824: 41,2674           34753                           CAF      ONE                                   #  Y COMP
019370,001825: 41,2675           03145                           TC       PUTCOM                                
019371,001826: 41,2676           50145                           INDEX    NOUNADD                               
019372,001827: 41,2677           54001                           TS       1                                     
019373,001828: 41,2700           34752                           CAF      TWO                                   #  Z COMP
019374,001829: 41,2701           03145                           TC       PUTCOM                                
019375,001830: 41,2702           50145                           INDEX    NOUNADD                               
019376,001831: 41,2703           54002                           TS       2                                     
019377,001832: 41,2704           44757                           CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
019378,001833: 41,2705           61001                           AD       NOUNREG                               #   FLAG BITS AS SPECIFIED.
019379,001834: 41,2706           00006                           EXTEND                                         
019380,001835: 41,2707           12711                           BZF      +2                                    
019381,001836: 41,2710           03045                           TC       LOADLV                                

Page 433

019383,001838: 41,2711           00004                           INHINT                                         
019384,001839: 41,2712           44763                           CS       OCT30                                 #  IS IT A CHANNEL (30 OR UNDER)
019385,001840: 41,2713           61002                           AD       XREG                                  
019386,001841: 41,2714           00006                           EXTEND                                         
019387,001842: 41,2715           62725                           BZMF     CHANBITS                              #  YES
019388,001843: 
019389,001844: 41,2716           31002                           CA       XREG                                  #  ECADR OF ERASABLE CELL
019390,001845: 41,2717           04304                           TC       SETNCADR   +1                         #  SET EBANK, NOUNADD
019391,001846: 
019392,001847: 41,2720           50145                           INDEX    NOUNADD                               
019393,001848: 41,2721           30000                           CA       0                                     
019394,001849: 41,2722           54001                           TS       L                                     
019395,001850: 41,2723           34753                           CAF      ONE                                   
019396,001851: 41,2724           55002                           TS       XREG                                  #  MAKE IT LOOK LIKE A CHANNEL FOR A WHILE
019397,001852: 
019398,001853: 41,2725           64361        CHANBITS           AD       OCT21                                 
019399,001854: 41,2726           00006                           EXTEND                                         
019400,001855: 41,2727           12751                           BZF      BITSOFF2                              #  DONT TOUCH CHAN7 (SUPERBANK)
019401,001856: 
019402,001857: 41,2730           31004                           CA       ZREG                                  
019403,001858: 41,2731           00006                           EXTEND                                         
019404,001859: 41,2732           62740                           BZMF     BITSOFF                               #  R3 IS ZERO FOR OFF, NONZERO FOR ON
019405,001860: 
019406,001861: 41,2733           31003                           CA       YREG                                  
019407,001862: 41,2734           00006                           EXTEND                                         
019408,001863: 41,2735           51002                           INDEX    XREG                                  
019409,001864: 41,2736           05000                           WOR      0                                     
019410,001865: 41,2737           12744                           TCF      BITSOFF1                              
019411,001866: 
019412,001867: 41,2740           41003        BITSOFF            CS       YREG                                  
019413,001868: 41,2741           00006                           EXTEND                                         
019414,001869: 41,2742           51002                           INDEX    XREG                                  
019415,001870: 41,2743           03000                           WAND     0                                     
019416,001871: 
019417,001872: 41,2744           11002        BITSOFF1           CCS      XREG                                  #  WAS IT REALLY A CHANNEL
019418,001873: 41,2745           10000                           CCS      A                                     
019419,001874: 41,2746           12751                           TCF      BITSOFF2                              #  YES
019420,001875: 
019421,001876: 41,2747           50145                           INDEX    NOUNADD                               
019422,001877: 41,2750           22000                           LXCH     0                                     
019423,001878: 
019424,001879: 41,2751           00003        BITSOFF2           RELINT                                         
019425,001880: 41,2752           03045                           TC       LOADLV                                
019426,001881: 
019427,001882: 41,2753     4763               OCT30              =        BITS4&5                               
019428,001883: 41,2753           44753        ABLOAD             CS       ONE                                   
019429,001884: 41,2754           02453                           TC       COMPTEST                              
019430,001885: 41,2755           02507                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
019431,001886: 41,2756           33056                           CAF      VBSP1LD                               
019432,001887: 41,2757           02366                           TC       UPDATVB    -1                         

Page 434

019434,001889: 41,2760           02332                           TC       REQDATX                               
019435,001890: 41,2761           33057                           CAF      VBSP2LD                               
019436,001891: 41,2762           02366                           TC       UPDATVB    -1                         
019437,001892: 41,2763           02334                           TC       REQDATY                               
019438,001893: 41,2764           44756        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
019439,001894: 41,2765           03061                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
019440,001895: 41,2766           00006                           EXTEND                                         
019441,001896: 41,2767           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019442,001897: 41,2770           52006                           DXCH     Z                                     #  ROUTINE.
019443,001898: 41,2771           34755                           CAF      ZERO                                  #  X COMP
019444,001899: 41,2772           03145                           TC       PUTCOM                                
019445,001900: 41,2773           50145                           INDEX    NOUNADD                               
019446,001901: 41,2774           54000                           TS       0                                     
019447,001902: 41,2775           34753                           CAF      ONE                                   #  Y COMP
019448,001903: 41,2776           03145                           TC       PUTCOM                                
019449,001904: 41,2777           50145                           INDEX    NOUNADD                               
019450,001905: 41,3000           54001                           TS       1                                     
019451,001906: 41,3001           03045                           TC       LOADLV                                
019452,001907: 
019453,001908: 41,3002           02332        ALOAD              TC       REQDATX                               
019454,001909: 41,3003           00006                           EXTEND                                         
019455,001910: 41,3004           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019456,001911: 41,3005           52006                           DXCH     Z                                     #  ROUTINE.
019457,001912: 41,3006           34755                           CAF      ZERO                                  #  X COMP
019458,001913: 41,3007           03145                           TC       PUTCOM                                
019459,001914: 41,3010           50145                           INDEX    NOUNADD                               
019460,001915: 41,3011           54000                           TS       0                                     
019461,001916: 41,3012           03045                           TC       LOADLV                                
019462,001917: 
019463,001918: 41,3013           44753        BLOAD              CS       ONE                                   
019464,001919: 41,3014           02453                           TC       COMPTEST                              
019465,001920: 41,3015           34735                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
019466,001921: 41,3016           55014                           TS       CLPASS                                
019467,001922: 41,3017           02334                           TC       REQDATY                               
019468,001923: 41,3020           00006                           EXTEND                                         
019469,001924: 41,3021           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
019470,001925: 41,3022           52006                           DXCH     Z                                     #  ROUTINE.
019471,001926: 41,3023           34753                           CAF      ONE                                   
019472,001927: 41,3024           03145                           TC       PUTCOM                                
019473,001928: 41,3025           50145                           INDEX    NOUNADD                               
019474,001929: 41,3026           54001                           TS       1                                     
019475,001930: 41,3027           03045                           TC       LOADLV                                
019476,001931: 
019477,001932: 41,3030           44752        CLOAD              CS       TWO                                   
019478,001933: 41,3031           02453                           TC       COMPTEST                              
019479,001934: 41,3032           34735                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
019480,001935: 41,3033           55014                           TS       CLPASS                                
019481,001936: 41,3034           02336                           TC       REQDATZ                               
019482,001937: 41,3035           00006                           EXTEND                                         
019483,001938: 41,3036           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING

Page 435

019485,001940: 41,3037           52006                           DXCH     Z                                     #  ROUTINE.
019486,001941: 41,3040           34752                           CAF      TWO                                   
019487,001942: 41,3041           03145                           TC       PUTCOM                                
019488,001943: 41,3042           50145                           INDEX    NOUNADD                               
019489,001944: 41,3043           54002                           TS       2                                     
019490,001945: 41,3044           03045                           TC       LOADLV                                
019491,001946: 
019492,001947: 41,3045           34755        LOADLV             CAF      ZERO                                  
019493,001948: 41,3046           54777                           TS       DECBRNCH                              
019494,001949: 41,3047           44755                           CS       ZERO                                  
019495,001950: 41,3050           55013                           TS       LOADSTAT                              
019496,001951: 41,3051           04457                           TC       RELDSP                                #  RELEASE FOR PRIORITY DISPLAY PROBLEM.
019497,001952: 41,3052           44360                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
019498,001953: 41,3053           54776                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
019499,001954: 41,3054           04635                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
019500,001955: 41,3055           61607                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
019501,001956: 
019502,001957: 41,3056           00025        VBSP1LD            DEC      21         B-14                       #  VB21 = ALOAD
019503,001958: 41,3057           00026        VBSP2LD            DEC      22         B-14                       #  VB22 = BLOAD
019504,001959: 41,3060           00027        VBSP3LD            DEC      23         B-14                       #  VB23 = CLOAD
019505,001960: 
019506,001961: 
019507,001962: 41,3061           54117        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
019508,001963: 41,3062           40777                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
019509,001964: 41,3063           54021                           TS       SR                                    
019510,001965: 41,3064           40021                           CS       SR                                    
019511,001966: 41,3065           40021                           CS       SR                                    #  SHIFTED RIGHT 2
019512,001967: 41,3066           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
019513,001968: 41,3067           13071                           TCF      +2                                    #  SOME ONES IN LOW 3
019514,001969: 41,3070           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
019515,001970: 41,3071           60117                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
019516,001971: 41,3072           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
019517,001972: 41,3073           13075                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
019518,001973: 41,3074           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019519,001974: 41,3075           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC. OK
019520,001975: 
019521,001976: 
019522,001977: 41,3076           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
019523,001978: 41,3077           54114                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
019524,001979: 41,3100           34347                           CAF      MID5                                  
019525,001980: 41,3101           70147                           MASK     NNTYPTEM                              
019526,001981: 41,3102           04322                           TC       RIGHT5                                
019527,001982: 41,3103           00114                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
019528,001983: 
019529,001984: 41,3104           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
019530,001985: 41,3105           54114                           TS       EXITEM                                
019531,001986: 41,3106           50117                           INDEX    DECOUNT                               
019532,001987: 41,3107           33136                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
019533,001988: 41,3110           54001                           TS       L                                     
019534,001989: 41,3111           50117                           INDEX    DECOUNT                               

Page 436

019536,001991: 41,3112           34346                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
019537,001992: 41,3113           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
019538,001993: 41,3114           50001                           INDEX    L                                     
019539,001994: 41,3115           00000                           TC       0                                     
019540,001995:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
019541,001996: 41,3116           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
019542,001997: 
019543,001998: 41,3117           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
019544,001999: 41,3120           54114                           TS       EXITEM                                
019545,002000: 41,3121           50140                           INDEX    MIXBR                                 
019546,002001: 41,3122           03122                           TC       +0                                    
019547,002002: 41,3123           03141                           TC       CONUMNOR                              #  NORMAL NOUN
019548,002003: 41,3124           50117                           INDEX    DECOUNT                               #  MIXED NOUN
019549,002004: 41,3125           33136                           CAF      DISPLACE                              
019550,002005: 41,3126           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
019551,002006: 41,3127           50117                           INDEX    DECOUNT                               
019552,002007: 41,3130           34346                           CAF      LOW5                                  
019553,002008: 41,3131           70147                           MASK     NNTYPTEM                              
019554,002009: 41,3132           50001                           INDEX    L                                     
019555,002010: 41,3133           00000                           TC       0                                     
019556,002011:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
019557,002012: 41,3134           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
019558,002013: 41,3135           00114                           TC       EXITEM                                
019559,002014: 
019560,002015: 41,3136           03075        DISPLACE           TC       GOQ                                   
019561,002016: 41,3137           04322                           TC       RIGHT5                                
019562,002017: 41,3140           04331                           TC       LEFT5                                 
019563,002018: 
019564,002019: 41,3141           34346        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
019565,002020: 41,3142           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
019566,002021: 41,3143           60000                           DOUBLE                                         
019567,002022: 41,3144           00114                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
019568,002023: 
019569,002024: 
019570,002025: 41,3145           54117        PUTCOM             TS       DECOUNT                               
019571,002026: 41,3146           56002                           XCH      Q                                     
019572,002027: 41,3147           54115                           TS       DECRET                                
019573,002028: 41,3150           34755                           CAF      ZERO                                  
019574,002029: 41,3151           54162                           TS       MPAC+6                                
019575,002030: 41,3152           50117                           INDEX    DECOUNT                               
019576,002031: 41,3153           57005                           XCH      XREGLP                                
019577,002032: 41,3154           54155                           TS       MPAC       +1                         
019578,002033: 41,3155           50117                           INDEX    DECOUNT                               
019579,002034: 41,3156           57002                           XCH      XREG                                  
019580,002035: 41,3157           54154                           TS       MPAC                                  
019581,002036: 41,3160           50140                           INDEX    MIXBR                                 
019582,002037: 41,3161           03161                           TC       +0                                    
019583,002038: 41,3162           03207                           TC       PUTNORM                               #  NORMAL NOUN
019584,002039:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
019585,002040: 41,3163           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K

Page 437

019587,002042: 41,3164           30150                           CA       IDAD1TEM                              #          OF NOUN.
019588,002043: 41,3165           74356                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
019589,002044: 41,3166           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
019590,002045: 41,3167           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
019591,002046: 41,3170           60117                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
019592,002047: 41,3171           54145                           TS       NOUNADD                               
019593,002048: 41,3172           10777                           CCS      DECBRNCH                              
019594,002049: 41,3173           03244                           TC       PUTDECSF                              #  +  DEC
019595,002050: 41,3174           02501                           TC       DCTSTCYC                              #  +0 OCTAL
019596,002051: 41,3175           03104                           TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1. IF SO,
019597,002052: 41,3176           02306                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
019598,002053: 41,3177           03225                           TC       PUTCOM2                               #  NO DP
019599,002054:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
019600,002055:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
019601,002056:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
019602,002057: 41,3200           24145        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
019603,002058: 41,3201           30145                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
019604,002059: 41,3202           26117                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
019605,002060: 41,3203           34755                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
019606,002061: 41,3204           50117                           INDEX    DECOUNT                               
019607,002062: 41,3205           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
019608,002063: 41,3206           03225                           TC       PUTCOM2                               
019609,002064: 
019610,002065: 41,3207           04311        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
019611,002066: 41,3210           10777                           CCS      DECBRNCH                              
019612,002067: 41,3211           03244                           TC       PUTDECSF                              #  +  DEC
019613,002068: 41,3212           02501                           TC       DCTSTCYC                              #  +0 OCTAL
019614,002069: 41,3213           03076                           TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1. IF SO,
019615,002070: 41,3214           02306                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
019616,002071: 41,3215           03221                           TC       PUTCOM2    -4                         #  NO DP
019617,002072: 41,3216           34755                           CAF      ZERO                                  #  DP
019618,002073: 41,3217           54117                           TS       DECOUNT                               
019619,002074: 41,3220           03200                           TC       PUTDPCOM                              
019620,002075: 
019621,002076: 41,3221           30146                           CA       NNADTEM                               
019622,002077: 41,3222           64753                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
019623,002078: 41,3223           00006                           EXTEND                                         
019624,002079: 41,3224           13231                           BZF      CHANLOAD                              
019625,002080: 41,3225           56154        PUTCOM2            XCH      MPAC                                  
019626,002081: 41,3226           00115                           TC       DECRET                                
019627,002082: 
019628,002083: 41,3227     0776                                  EBANK=   DSPCOUNT                              
019629,002084: 41,3227           02145 64101  GTSFINLC           2CADR    GTSFIN                                
019630,002085: 
019631,002086: 
019632,002087: 
019633,002088: 41,3231           44757        CHANLOAD           CS       SEVEN                                 #  DONT LOAD CHAN 7. (IT = SUPERBANK).
019634,002089: 41,3232           61016                           AD       NOUNCADR                              
019635,002090: 41,3233           00006                           EXTEND                                         
019636,002091: 41,3234           13045                           BZF      LOADLV                                

Page 438

019638,002093: 41,3235           31016                           CA       NOUNCADR                              
019639,002094: 41,3236           75004                           MASK     LOW9                                  
019640,002095: 41,3237           56154                           XCH      MPAC                                  
019641,002096: 41,3240           00006                           EXTEND                                         
019642,002097: 41,3241           50154                           INDEX    MPAC                                  
019643,002098: 41,3242           01000                           WRITE    0                                     
019644,002099: 41,3243           03045                           TC       LOADLV                                
019645,002100: 
019646,002101: 
019647,002102:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
019648,002103: 
019649,002104: 41,3244           03117        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
019650,002105: 41,3245           54123                           TS       SFTEMP1                               
019651,002106: 41,3246           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
019652,002107: 41,3247           33230                           DCA      GTSFINLC                              #  READING ROUTINE.
019653,002108: 41,3250           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
019654,002109: 41,3251           50140                           INDEX    MIXBR                                 
019655,002110: 41,3252           03252                           TC       +0                                    
019656,002111: 41,3253           03256                           TC       PUTSFNOR                              
019657,002112: 41,3254           03104                           TC       SFRUTMIX                              
019658,002113: 41,3255           03257                           TC       PUTDCSF2                              
019659,002114: 41,3256           03076        PUTSFNOR           TC       SFRUTNOR                              
019660,002115: 
019661,002116: 41,3257           50000        PUTDCSF2           INDEX    A                                     
019662,002117: 41,3260           33262                           CAF      SFINTABR                              
019663,002118: 41,3261           04640                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
019664,002119: 41,3262           62377        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
019665,002120:                                                                                                  #  WITH OCTAL ONLY NOUN.
019666,002121: 41,3263           61143                           CADR     BINROUND                              
019667,002122: 41,3264           61045                           CADR     DEGINSF                               
019668,002123: 41,3265           61133                           CADR     ARTHINSF                              
019669,002124: 41,3266           61151                           CADR     DPINSF                                
019670,002125: 41,3267           61176                           CADR     DPINSF2                               
019671,002126: 41,3270           61451                           CADR     DSPALARM                              #  LRPOSOUT CANT BE LOADED.
019672,002127: 41,3271           61151                           CADR     DPINSF                                #  SAME AS ARITHDP1
019673,002128: 41,3272           65460                           CADR     HMSIN                                 
019674,002129: 41,3273           61451                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
019675,002130: 41,3274           61203                           CADR     DPINSF4                               
019676,002131: 41,3275           61146                           CADR     ARTIN1SF                              
019677,002132: 41,3276           61451                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
019678,002133: 41,3277           61045                           CADR     DEGINSF                               #  TESTS AT END FOR 360-CDU
019679,002134: 41,3300           61451                           CADR     DSPALARM                              #  RRANGOUT CANT BE LOADED.
019680,002135: 41,3301           61451                           CADR     DSPALARM                              #  RRDOTOUT CANT BE LOADED.
019681,002136: 41,3302                        ENDRUTIN           EQUALS                                         
019682,002137: 
019683,002138:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
019684,002139:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
019685,002140: 

Page 439

019687,002142: 40,3045                                           SETLOC   ENDDPDEC   +1                         
019688,002143: 
019689,002144: 40,3045                                           COUNT*   $$/PIN                                
019690,002145:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
019691,002146: 
019692,002147: 40,3045           07115        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
019693,002148: 40,3046           03131                           ADRES    DEGCON1                               #  MULT BY 5.5  5(10)X2EXP-3
019694,002149: 40,3047           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
019695,002150: 40,3050           34741                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
019696,002151: 40,3051           03053                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
019697,002152: 40,3052           44741                           CS       BIT11                                 
019698,002153: 40,3053           60155                           AD       MPAC       +1                         
019699,002154: 40,3054           03222                           TC       2ROUND     +2                         
019700,002155: 40,3055           04404                           TC       TPSL1                                 #  LEFT 1
019701,002156: 40,3056           04404        DEGINSF2           TC       TPSL1                                 #  LEFT 2
019702,002157: 40,3057           03231                           TC       TESTOFUF                              
019703,002158: 40,3060           04404                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
019704,002159: 40,3061           10154                           CCS      MPAC                                  
019705,002160: 40,3062           03066                           TC       SIGNFIX                               #  IF+, GO TO SIGNFIX
019706,002161: 40,3063           03066                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
019707,002162: 40,3064           40000                           COM                                            #  IF - , USE -MAGNITUDE +1
019708,002163: 40,3065           54154                           TS       MPAC                                  #  IF -0, USE +0
019709,002164: 40,3066           10162        SIGNFIX            CCS      MPAC+6                                
019710,002165: 40,3067           03125                           TC       SGNTO1                                #  IF OVERFLOW
019711,002166: 40,3070           03100                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
019712,002167: 40,3071           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
019713,002168: 40,3072           05706                           TC       CCSHOLE                               
019714,002169: 40,3073           03123                           TC       NEG180                                
019715,002170: 40,3074           03075                           TC       +1                                    
019716,002171: 40,3075           56154                           XCH      MPAC                                  
019717,002172: 40,3076           74733                           MASK     POSMAX                                
019718,002173: 40,3077           54154                           TS       MPAC                                  
019719,002174: 40,3100           50140        ENDSCALE           INDEX    MIXBR                                 #  IF ROUTINE NO. IS NOT CDU DEGREES,
019720,002175: 40,3101           03101                           TC       +0                                    #   THEN THIS IS 360 - CDU DEGREES
019721,002176: 40,3102           03105                           TC       +3                                    #   AND ANGLE IN MPAC MUST BE REPLACED
019722,002177: 40,3103           03115                           TC       SFMIXCAL                              #   BY 360 DEGREES MINUS ITSELF.
019723,002178: 40,3104           03106        MIXBACK            TC       +2                                    
019724,002179: 40,3105           03120                           TC       SFNORCAL                              
019725,002180: 40,3106           40000        NORBACK            CS       A                                     
019726,002181: 40,3107           64752                           AD       BIT2                                  
019727,002182: 40,3110           00006                           EXTEND                                         
019728,002183: 40,3111           13113                           BZF      +2                                    
019729,002184: 40,3112           02614                           TC       360-CDU                               
019730,002185: 40,3113           04635        ENDSCAL1           TC       POSTJUMP                              
019731,002186: 40,3114           63225                           CADR     PUTCOM2                               
019732,002187: 
019733,002188: 40,3115           04616        SFMIXCAL           TC       BANKCALL                              
019734,002189: 40,3116           63104                           CADR     SFRUTMIX                              
019735,002190: 40,3117           03104                           TC       MIXBACK                               
019736,002191: 

Page 440

019738,002193: 40,3120           04616        SFNORCAL           TC       BANKCALL                              
019739,002194: 40,3121           63076                           CADR     SFRUTNOR                              
019740,002195: 40,3122           03106                           TC       NORBACK                               
019741,002196: 
019742,002197: 40,3123           44733        NEG180             CS       POSMAX                                
019743,002198: 40,3124           03077                           TC       ENDSCALE   -1                         
019744,002199: 
019745,002200: 40,3125           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
019746,002201: 40,3126           74733                           MASK     POSMAX                                
019747,002202: 40,3127           40000                           CS       A                                     
019748,002203: 40,3130           03077                           TC       ENDSCALE   -1                         
019749,002204: 
019750,002205: 40,3131           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
019751,002206: 
019752,002207: 
019753,002208: 40,3133           07115        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019754,002209: 40,3134           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
019755,002210: 40,3135           56156                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
019756,002211: 40,3136           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
019757,002212: 40,3137           56154                           XCH      MPAC                                  
019758,002213: 40,3140           00006                           EXTEND                                         
019759,002214: 40,3141           13143                           BZF      BINROUND                              
019760,002215: 40,3142           04145                           TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
019761,002216: 40,3143           03220        BINROUND           TC       2ROUND                                
019762,002217: 40,3144           03231                           TC       TESTOFUF                              
019763,002218: 40,3145           03113                           TC       ENDSCAL1                              #  RETURNS IF NO OF/UF
019764,002219: 
019765,002220: 40,3146           07115        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019766,002221: 40,3147           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
019767,002222: 40,3150           03143                           TC       BINROUND                              
019768,002223: 
019769,002224: 
019770,002225: 40,3151           07115        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
019771,002226: 40,3152           00123                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
019772,002227: 40,3153           56156                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
019773,002228: 40,3154           60000                           DOUBLE                                         
019774,002229: 40,3155           54156                           TS       MPAC       +2                         
019775,002230: 40,3156           34755                           CAF      ZERO                                  
019776,002231: 40,3157           60155                           AD       MPAC       +1                         
019777,002232: 40,3160           03222                           TC       2ROUND     +2                         
019778,002233: 40,3161           03231                           TC       TESTOFUF                              
019779,002234: 40,3162           50140                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
019780,002235: 40,3163           03163                           TC       +0                                    
019781,002236: 40,3164           03174                           TC       DPINORM                               
019782,002237: 40,3165           30117                           CA       DECOUNT                               #  MIXEDNOUN
019783,002238: 40,3166           60145        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
019784,002239: 40,3167           54002                           TS       Q                                     #    E SUBK            E
019785,002240: 40,3170           56155                           XCH      MPAC       +1                         
019786,002241: 40,3171           50002                           INDEX    Q                                     
019787,002242: 40,3172           54001                           TS       1                                     #  PLACE LOW PART IN

Page 441

019789,002244: 40,3173           03113                           TC       ENDSCAL1                              #  (E SUBK) +1    MIXED
019790,002245: 
019791,002246: 40,3174           34755        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
019792,002247: 40,3175           03166                           TC       DPINCOM                               
019793,002248: 
019794,002249: 
019795,002250: 40,3176           07115        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019796,002251: 40,3177           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019797,002252: 40,3200           36254                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
019798,002253: 40,3201           03210                           TC       TPLEFTN                               #  SHIFT LEFT 7.
019799,002254: 40,3202           03153                           TC       DPINSF     +2                         
019800,002255: 
019801,002256: 
019802,002257: 40,3203           07115        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
019803,002258: 40,3204           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019804,002259: 40,3205           34752                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
019805,002260: 40,3206           03210                           TC       TPLEFTN                               #  SHIFT LEFT 3.
019806,002261: 40,3207           03153                           TC       DPINSF     +2                         
019807,002262: 
019808,002263: 
019809,002264: 40,3210           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
019810,002265: 40,3211           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
019811,002266: 40,3212           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
019812,002267: 40,3213           54123        LEFTNCOM           TS       SFTEMP1                               #      LOOP TIME .37 MSEC.
019813,002268: 40,3214           04404                           TC       TPSL1                                 
019814,002269: 40,3215           10123                           CCS      SFTEMP1                               
019815,002270: 40,3216           03213                           TC       LEFTNCOM                              
019816,002271: 40,3217           00124                           TC       SFTEMP2                               
019817,002272: 
019818,002273: 
019819,002274: 40,3220           56155        2ROUND             XCH      MPAC       +1                         
019820,002275: 40,3221           60000                           DOUBLE                                         
019821,002276: 40,3222           54155                           TS       MPAC       +1                         
019822,002277: 40,3223           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
019823,002278: 40,3224           60154                           AD       MPAC                                  
019824,002279: 40,3225           54154                           TS       MPAC                                  
019825,002280: 40,3226           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
019826,002281: 40,3227           54162                           TS       MPAC+6                                
019827,002282: 40,3230           00002        2RNDEND            TC       Q                                     
019828,002283: 
019829,002284: 
019830,002285: 40,3231           10162        TESTOFUF           CCS      MPAC+6                                #  RETURNS IF NO OF/UF
019831,002286: 40,3232           04145                           TC       ALMCYCLE                              #  OF   ALARM AND RECYCLE.
019832,002287: 40,3233           00002                           TC       Q                                     
019833,002288: 40,3234           04145                           TC       ALMCYCLE                              #  UF   ALARM AND RECYCLE.
019834,002289: 
019835,002290: 
019836,002291: 42,3460                                           SETLOC   ENDSPMIN   +1                         
019837,002292: 
019838,002293: 42,3460                                           COUNT*   $$/PIN                                

Page 442

019840,002295: 42,3460           03601        HMSIN              TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
019841,002296: 42,3461           07115                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
019842,002297: 42,3462           03542                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
019843,002298: 42,3463           03551                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
019844,002299: 42,3464           34755                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383 ).
019845,002300: 42,3465           54156                           TS       MPAC       +2                         
019846,002301: 42,3466           33544                           CAF      HRCON                                 
019847,002302: 42,3467           54154                           TS       MPAC                                  
019848,002303: 42,3470           33545                           CAF      HRCON      +1                         
019849,002304: 42,3471           56155                           XCH      MPAC       +1                         
019850,002305: 42,3472           07321                           TC       SHORTMP                               
019851,002306: 42,3473           03562                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
019852,002307: 42,3474           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
019853,002308: 42,3475           52124                           DXCH     HITEMIN                               
019854,002309: 42,3476           31003                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
019855,002310: 42,3477           23006                           LXCH     YREGLP                                
019856,002311: 42,3500           52155                           DXCH     MPAC                                  
019857,002312: 42,3501           07115                           TC       DMP                                   
019858,002313: 42,3502           03542                           ADRES    WHOLECON                              
019859,002314: 42,3503           03551                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
019860,002315: 42,3504           43547                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
019861,002316: 42,3505           03567                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
019862,002317: 42,3506           56155                           XCH      MPAC       +1                         
019863,002318: 42,3507           00006                           EXTEND                                         
019864,002319: 42,3510           73546                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
019865,002320: 42,3511           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
019866,002321: 42,3512           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745HR,39MIN
019867,002322: 42,3513           13515                           BZF      +2                                    
019868,002323: 42,3514           04145                           TC       ALMCYCLE                              
019869,002324: 42,3515           31004                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
019870,002325: 42,3516           23007                           LXCH     ZREGLP                                
019871,002326: 42,3517           52155                           DXCH     MPAC                                  
019872,002327: 42,3520           07115                           TC       DMP                                   
019873,002328: 42,3521           03542                           ADRES    WHOLECON                              
019874,002329: 42,3522           03551                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
019875,002330: 42,3523           43550                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
019876,002331: 42,3524           03567                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
019877,002332: 42,3525           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
019878,002333: 42,3526           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
019879,002334: 42,3527           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
019880,002335: 42,3530           13532                           BZF      +2                                    
019881,002336: 42,3531           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
019882,002337: 42,3532           34755                           CAF      ZERO                                  
019883,002338: 42,3533           54156                           TS       MPAC       +2                         
019884,002339: 42,3534           07271                           TC       TPAGREE                               
019885,002340: 42,3535           52155                           DXCH     MPAC                                  
019886,002341: 42,3536           50145                           INDEX    NOUNADD                               
019887,002342: 42,3537           52001                           DXCH     0                                     
019888,002343: 42,3540           04635                           TC       POSTJUMP                              
019889,002344: 42,3541           63045                           CADR     LOADLV                                
019890,002345: 

Page 443

019892,002347: 42,3542           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
019893,002348: 42,3543           03240                           OCT      03240                                 
019894,002349: 42,3544           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
019895,002350: 42,3545           37100                           OCT      37100                                 
019896,002351: 42,3546           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
019897,002352: 42,3547           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
019898,002353: 42,3550           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
019899,002354: 
019900,002355: 
019901,002356: 42,3551           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
019902,002357: 42,3552           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
019903,002358: 42,3553           54156                           TS       MPAC       +2                         
019904,002359: 42,3554           34755                           CAF      ZERO                                  
019905,002360: 42,3555           60155                           AD       MPAC       +1                         
019906,002361: 42,3556           54155                           TS       MPAC       +1                         
019907,002362: 42,3557           34755                           CAF      ZERO                                  
019908,002363: 42,3560           60154                           AD       MPAC                                  #  CANT OVFLOW
019909,002364: 42,3561           56154                           XCH      MPAC                                  
019910,002365: 42,3562           10154        MPACTST            CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
019911,002366: 42,3563           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019912,002367: 42,3564           00002                           TC       Q                                     
019913,002368: 42,3565           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019914,002369: 42,3566           00002                           TC       Q                                     
019915,002370: 
019916,002371: 42,3567           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
019917,002372: 42,3570           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1
019918,002373: 42,3571           64753                           AD       ONE                                   
019919,002374: 42,3572           13574                           TCF      +2                                    
019920,002375: 42,3573           64753                           AD       ONE                                   
019921,002376: 42,3574           60156                           AD       MPAC       +2                         
019922,002377: 42,3575           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
019923,002378: 42,3576           63600                           BZMF     +2                                    
019924,002379: 42,3577           04145                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
019925,002380: 42,3600           00002                           TC       Q                                     #  MAG OF MPAC+1 L/= CON
019926,002381: 
019927,002382: 
019928,002383:                                                                                                  #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
019929,002384:                                                                                                  #  ALARM IF NOT.( TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
019930,002385: 42,3601           43606        ALL3DEC            CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
019931,002386: 42,3602           70777                           MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
019932,002387: 42,3603           63606                           AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
019933,002388: 42,3604           10000                           CCS      A                                     
019934,002389: 42,3605           03611                           TC       FORCEV25                              
019935,002390: 42,3606           77743        OCT34BAR           OCT      77743                                 
019936,002391: 42,3607           03611                           TC       FORCEV25                              
019937,002392: 42,3610           00002                           TC       Q                                     
019938,002393: 
019939,002394: 
019940,002395: 42,3611           46010        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
019941,002396: 42,3612           55040                           TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD

Page 444

019943,002398: 42,3613           04145                           TC       ALMCYCLE                              #   VERB.  ALARM AND RECYCLE.
019944,002399: 42,3614                        ENDHMSS            EQUALS                                         
019945,002400: 

Page 445

019947,002402:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
019948,002403:                                                                                                  #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
019949,002404:                                                                                                  #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
019950,002405:                                                                                                  #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
019951,002406:                                                                                                  #  HE HAS INITIATED THROUGH THE KEYBOARD).
019952,002407: 
019953,002408:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
019954,002409:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
019955,002410:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
019956,002411:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
019957,002412:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
019958,002413:                                                                                                  #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
019959,002414:                                                                                                  #  MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
019960,002415: 
019961,002416:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON(+=ON, +0=OFF)
019962,002417:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
019963,002418:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
019964,002419: 
019965,002420:                                                                                                  #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
019966,002421:                                                                                                  #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
019967,002422: 
019968,002423:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
019969,002424:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
019970,002425: 
019971,002426:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
019972,002427: 41,3302                                           SETLOC   ENDRUTIN                              
019973,002428: 
019974,002429: 41,3302                                           COUNT*   $$/PIN                                
019975,002430: 41,3302           43311        MONITOR            CS       BIT15/14                              
019976,002431: 41,3303           71016                           MASK     NOUNCADR                              
019977,002432: 41,3304           54155        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
019978,002433: 41,3305           40136                           CS       ENTEXIT                               
019979,002434: 41,3306           64217                           AD       ENDINST                               
019980,002435: 41,3307           10000                           CCS      A                                     
019981,002436: 41,3310           03317                           TC       MONIT2                                
019982,002437: 41,3311           60000        BIT15/14           OCT      60000                                 
019983,002438: 41,3312           03317                           TC       MONIT2                                
019984,002439: 41,3313           34736                           CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
019985,002440: 41,3314           26155                           ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
019986,002441: 41,3315           34755                           CAF      ZERO                                  
019987,002442: 41,3316           55021                           TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
019988,002443: 41,3317           36106        MONIT2             CAF      LOW7                                  
019989,002444: 41,3320           71000                           MASK     VERBREG                               
019990,002445: 41,3321           04331                           TC       LEFT5                                 
019991,002446: 41,3322           54022                           TS       CYL                                   
019992,002447: 41,3323           40022                           CS       CYL                                   
019993,002448: 41,3324           56022                           XCH      CYL                                   
019994,002449: 41,3325           61001                           AD       NOUNREG                               
019995,002450: 41,3326           54154                           TS       MPAC                                  #  TEMP STORAGE
019996,002451: 41,3327           34755                           CAF      ZERO                                  

Page 446

019998,002453: 41,3330           55011                           TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
019999,002454: 41,3331           11041                           CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
020000,002455: 41,3332           03334                           TC       +2                                    #  ARE BOTH EMPTY. (LITE COMES ON IF NEW
020001,002456: 41,3333           04502                           TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
020002,002457: 41,3334           00004                           INHINT                                         
020003,002458: 41,3335           11017                           CCS      MONSAVE                               
020004,002459: 41,3336           03343                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
020005,002460: 41,3337           34753                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
020006,002461: 41,3340           05214                           TC       WAITLIST                              
020007,002462: 41,3341     0776                                  EBANK=   DSPCOUNT                              
020008,002463: 41,3341           03347 62101                     2CADR    MONREQ                                
020009,002464: 
020010,002465: 41,3343           52155                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
020011,002466: 41,3344           53020                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
020012,002467: 41,3345           00003                           RELINT                                         #  SET UP EXTERNAL MONITOR BIT
020013,002468: 41,3346           00136                           TC       ENTRET                                
020014,002469: 
020015,002470: 
020016,002471: 41,3347           04400        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
020017,002472: 41,3350           11020                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
020018,002473: 41,3351           03355                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
020019,002474: 41,3352           03355                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
020020,002475: 41,3353           03366                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
020021,002476: 41,3354           03366                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
020022,002477: 41,3355           33372                           CAF      MONDEL                                
020023,002478: 41,3356           05214                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
020024,002479: 41,3357     0776                                  EBANK=   DSPCOUNT                              
020025,002480: 41,3357           03347 62101                     2CADR    MONREQ                                
020026,002481: 
020027,002482: 41,3361           34355                           CAF      CHRPRIO                               
020028,002483: 41,3362           05072                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
020029,002484: 41,3363     0776                                  EBANK=   DSPCOUNT                              
020030,002485: 41,3363           03373 62101                     2CADR    MONDO                                 
020031,002486: 
020032,002487: 41,3365           05272                           TC       TASKOVER                              
020033,002488: 
020034,002489: 41,3366           34755        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
020035,002490: 41,3367           55017                           TS       MONSAVE                               
020036,002491: 41,3370           55020                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
020037,002492: 41,3371           05272                           TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
020038,002493: 41,3372           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
020039,002494: 
020040,002495: 
020041,002496: 41,3373           11020        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
020042,002497: 41,3374           03400                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
020043,002498: 41,3375           03400                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
020044,002499: 41,3376           05155                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
020045,002500: 41,3377           05155                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
020046,002501: 41,3400           11011                           CCS      DSPLOCK                               
020047,002502: 41,3401           03423                           TC       MONBUSY                               #  NVSUB IS BUSY

Page 447

020049,002504: 41,3402           36106                           CAF      LOW7                                  
020050,002505: 41,3403           71017                           MASK     MONSAVE                               
020051,002506: 41,3404           02346                           TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
020052,002507: 41,3405           34144                           CAF      MID7                                  
020053,002508: 41,3406           71017                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
020054,002509: 41,3407           63421                           AD       MONREF                                #  -DEC10, STARTING IN BIT8
020055,002510: 41,3410           54023                           TS       EDOP                                  #  RIGHT 7
020056,002511: 41,3411           30023                           CA       EDOP                                  
020057,002512: 41,3412           55000                           TS       VERBREG                               
020058,002513: 41,3413           33422                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
020059,002514: 41,3414           54136                           TS       ENTRET                                
020060,002515: 41,3415           43311                           CS       BIT15/14                              
020061,002516: 41,3416           71020                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
020062,002517: 41,3417           54156                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
020063,002518: 41,3420           02073        ENDMONDO           TC       TESTNN                                #  EBANK.
020064,002519: 
020065,002520:    4124                                           BLOCK    2                                     
020066,002521: 
020067,002522:    4000                                           SETLOC   FFTAG8                                
020068,002523:    4000                                           BANK                                           
020069,002524: 
020070,002525:    4124                                           COUNT*   $$/PIN                                
020071,002526:    4124           34144        PASTEVB            CAF      MID7                                  
020072,002527:    4125           71021                           MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
020073,002528:    4126           00006                           EXTEND                                         
020074,002529:    4127           14131                           BZF      +2                                    
020075,002530:    4130           04132                           TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
020076,002531:    4131           31017                           CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
020077,002532:    4132           54023        PASTEOPT           TS       EDOP                                  #  RIGHT 7
020078,002533:    4133           30023                           CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
020079,002534:    4134           04616                           TC       BANKCALL                              #   VERBREG AND DISPLAY IT.
020080,002535:    4135           62366                           CADR     UPDATVB    -1                         
020081,002536:    4136           34755                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
020082,002537:    4137           55012                           TS       REQRET                                #   BE EXECUTED BY OPERATOR.
020083,002538:    4140           31021                           CA       MONSAVE2                              
020084,002539:    4141           04255                           TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
020085,002540:    4142           04143                           TC       +1                                    
020086,002541:    4143           05155        ENDPASTE           TC       ENDOFJOB                              
020087,002542: 
020088,002543:    4144           37600        MID7               OCT      37600                                 
020089,002544: 
020090,002545: 
020091,002546: 41,3421                                           SETLOC   ENDMONDO   +1                         
020092,002547: 41,3421                                           COUNT*   $$/PIN                                
020093,002548: 41,3421           75377        MONREF             OCT      75377                                 #  -DEC10, STARTING IN BIT8
020094,002549: 41,3422           04124        MONBACK            ADRES    PASTEVB                               
020095,002550: 
020096,002551: 41,3423           04374        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
020097,002552: 41,3424           05155                           TC       ENDOFJOB                              

Page 448

020099,002554:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
020100,002555:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
020101,002556:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
020102,002557: 
020103,002558:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.
020104,002559: 
020105,002560:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
020106,002561:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
020107,002562:                                                                                                  #           V23N26 SHOULD BE USED.
020108,002563: 
020109,002564:                                                                                                  #  SUMMARY
020110,002565:                                                                                                  #  FOR BANKS L/E 27,                          V27N01E(FCADR)E
020111,002566:                                                                                                  #  FOR BANKS G/E 30,    V23N26E(SUPERBITS)E   V27N01E(FCADR)E
020112,002567: 
020113,002568: 41,3425           34317        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
020114,002569: 41,3426           54776                           TS       DSPCOUNT                              
020115,002570: 41,3427           31046                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
020116,002571: 41,3430           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
020117,002572: 41,3431           31016                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
020118,002573: 41,3432           04651                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
020119,002574: 41,3433           03435                           TC       DSPOCTWD                              
020120,002575: 41,3434           05155        ENDSPF             TC       ENDOFJOB                              
020121,002576: 

Page 449

020123,002578:                                                                                                  #  WORD DISPLAY ROUTINES
020124,002579: 40,3235                                           SETLOC   TESTOFUF   +4                         
020125,002580: 40,3235                                           COUNT*   $$/PIN                                
020126,002581: 40,3235           56002        DSPSIGN            XCH      Q                                     
020127,002582: 40,3236           54144                           TS       DSPWDRET                              
020128,002583: 40,3237           10154                           CCS      MPAC                                  
020129,002584: 40,3240           03250                           TC       +8D                                   
020130,002585: 40,3241           03250                           TC       +7                                    
020131,002586: 40,3242           64753                           AD       ONE                                   
020132,002587: 40,3243           54154                           TS       MPAC                                  
020133,002588: 40,3244           02422                           TC       -ON                                   
020134,002589: 40,3245           40155                           CS       MPAC       +1                         
020135,002590: 40,3246           54155                           TS       MPAC       +1                         
020136,002591: 40,3247           00144                           TC       DSPWDRET                              
020137,002592: 40,3250           02402                           TC       +ON                                   
020138,002593: 40,3251           00144                           TC       DSPWDRET                              
020139,002594: 
020140,002595: 40,3252           00006        DSPRND             EXTEND                                         #  ROUND BY 5 EXP-6
020141,002596: 40,3253           33316                           DCA      DECROUND   -1                         
020142,002597: 40,3254           20155                           DAS      MPAC                                  
020143,002598: 40,3255           00006                           EXTEND                                         
020144,002599: 40,3256           13262                           BZF      +4                                    
020145,002600: 40,3257           00006                           EXTEND                                         
020146,002601: 40,3260           34733                           DCA      DPOSMAX                               
020147,002602: 40,3261           52155                           DXCH     MPAC                                  
020148,002603: 40,3262           00002                           TC       Q                                     
020149,002604: 
020150,002605:                                                                                                  #  DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
020151,002606:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
020152,002607: 
020153,002608: 40,3263           56002        DSPDECWD           XCH      Q                                     
020154,002609: 40,3264           54115                           TS       WDRET                                 
020155,002610: 40,3265           03235                           TC       DSPSIGN                               
020156,002611: 40,3266           03252                           TC       DSPRND                                
020157,002612: 40,3267           34751                           CAF      FOUR                                  
020158,002613: 40,3270           54137        DSPDCWD1           TS       WDCNT                                 
020159,002614: 40,3271           34363                           CAF      BINCON                                
020160,002615: 40,3272           07321                           TC       SHORTMP                               
020161,002616: 40,3273           50154        TRACE1             INDEX    MPAC                                  
020162,002617: 40,3274           34066                           CAF      RELTAB                                
020163,002618: 40,3275           74346                           MASK     LOW5                                  
020164,002619: 40,3276           54124                           TS       CODE                                  
020165,002620: 40,3277           34755                           CAF      ZERO                                  
020166,002621: 40,3300           56156                           XCH      MPAC       +2                         
020167,002622: 40,3301           56155                           XCH      MPAC       +1                         
020168,002623: 40,3302           54154                           TS       MPAC                                  
020169,002624: 40,3303           56776                           XCH      DSPCOUNT                              
020170,002625: 40,3304           54143        TRACE1S            TS       COUNT                                 
020171,002626: 40,3305           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0

Page 450

020173,002628: 40,3306           54776                           TS       DSPCOUNT                              
020174,002629: 40,3307           03353                           TC       DSPIN                                 
020175,002630: 40,3310           10137                           CCS      WDCNT                                 
020176,002631: 40,3311           03270                           TC       DSPDCWD1                              
020177,002632: 40,3312           44360                           CS       VD1                                   
020178,002633: 40,3313           54776                           TS       DSPCOUNT                              
020179,002634: 40,3314           00115                           TC       WDRET                                 
020180,002635: 
020181,002636: 40,3315           00000                           OCT      00000                                 
020182,002637: 40,3316           02476        DECROUND           OCT      02476                                 
020183,002638: 
020184,002639:                                                                                                  #  DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
020185,002640:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
020186,002641: 

The following four lines are marked as having changed (likely having been commented out) between ZERLAID.000 and ZERLAID.001.

020189,002644:                                                                                                  # DSPDECNR       XCH     Q
020190,002645:                                                                                                  #                TS      WDRET
020191,002646:                                                                                                  #                TC      DSPSIGN
020192,002647:                                                                                                  #                TC      DSPDCWD1 -1
020193,002648: 
020194,002649:                                                                                                  #  DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
020195,002650:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
020196,002651: 
020197,002652: 40,3317           56002        DSPDC2NR           XCH      Q                                     
020198,002653: 40,3320           54115                           TS       WDRET                                 
020199,002654: 40,3321           03235                           TC       DSPSIGN                               
020200,002655: 40,3322           34753                           CAF      ONE                                   
020201,002656: 40,3323           03270                           TC       DSPDCWD1                              
020202,002657: 
020203,002658: 
020204,002659:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
020205,002660:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
020206,002661: 
020207,002662: 40,3324           56002        DSP2DEC            XCH      Q                                     
020208,002663: 40,3325           54115                           TS       WDRET                                 
020209,002664: 40,3326           34755                           CAF      ZERO                                  
020210,002665: 40,3327           54124                           TS       CODE                                  
020211,002666: 40,3330           36257                           CAF      THREE                                 
020212,002667: 40,3331           03435                           TC       11DSPIN                               #  -R2 OFF
020213,002668: 40,3332           34751                           CAF      FOUR                                  
020214,002669: 40,3333           03435                           TC       11DSPIN                               #  +R2 OFF
020215,002670: 40,3334           03235                           TC       DSPSIGN                               
020216,002671: 40,3335           34320                           CAF      R2D1                                  
020217,002672: 40,3336           03270        END2DEC            TC       DSPDCWD1                              
020218,002673: 
020219,002674: 
020220,002675:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
020221,002676:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
020222,002677:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
020223,002678:                                                                                                  #  DISPLAY CONVERSION.
020224,002679: 

Page 451

020226,002681: 40,3337           00006        DSPDECVN           EXTEND                                         
020227,002682: 40,3340           73347                           MP       VNDSPCON                              #  MULT BY .01
020228,002683: 40,3341           22154                           LXCH     MPAC                                  #  TAKE RESULTS FROM L.(MULT BY 2EXP14).
020229,002684: 40,3342           34755                           CAF      ZERO                                  
020230,002685: 40,3343           54155                           TS       MPAC       +1                         
020231,002686: 40,3344           56002                           XCH      Q                                     
020232,002687: 40,3345           54115                           TS       WDRET                                 
020233,002688: 40,3346           03322                           TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
020234,002689: 
020235,002690: 40,3347           00244        VNDSPCON           OCT      00244                                 #  .01 ROUNDED UP
020236,002691: 
020237,002692: 
020238,002693: 40,3350           03337        GOVNUPDT           TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE. REALLY PART
020239,002694: 40,3351           04635                           TC       POSTJUMP                              #  OF UPDATVB.
020240,002695: 40,3352           62376                           CADR     UPDAT1     +2                         
020241,002696: 
020242,002697: 40,3353                        ENDECVN            EQUALS                                         
020243,002698: 
020244,002699: 
020245,002700: 41,3435                                           SETLOC   ENDSPF     +1                         
020246,002701: 41,3435                                           COUNT*   $$/PIN                                
020247,002702:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
020248,002703:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
020249,002704: 
020250,002705: 41,3435           54022        DSPOCTWD           TS       CYL                                   
020251,002706: 41,3436           56002                           XCH      Q                                     
020252,002707: 41,3437           54115                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
020253,002708: 41,3440           34736                           CAF      BIT14                                 #  TO BLANK SIGNS
020254,002709: 41,3441           26776                           ADS      DSPCOUNT                              
020255,002710: 41,3442           34751                           CAF      FOUR                                  
020256,002711: 41,3443           54137        WDAGAIN            TS       WDCNT                                 
020257,002712: 41,3444           40022                           CS       CYL                                   
020258,002713: 41,3445           40022                           CS       CYL                                   
020259,002714: 41,3446           40022                           CS       CYL                                   
020260,002715: 41,3447           40000                           CS       A                                     
020261,002716: 41,3450           74757                           MASK     DSPMSK                                
020262,002717: 41,3451           50000                           INDEX    A                                     
020263,002718: 41,3452           34066                           CAF      RELTAB                                
020264,002719: 41,3453           74346                           MASK     LOW5                                  
020265,002720: 41,3454           54124                           TS       CODE                                  
020266,002721: 41,3455           56776                           XCH      DSPCOUNT                              
020267,002722: 41,3456           54143                           TS       COUNT                                 
020268,002723: 41,3457           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
020269,002724: 41,3460           54776                           TS       DSPCOUNT                              
020270,002725: 41,3461           04635                           TC       POSTJUMP                              
020271,002726: 41,3462           61443                           CADR     DSPOCTIN                              
020272,002727: 41,3463           10137        OCTBACK            CCS      WDCNT                                 
020273,002728: 41,3464           03443                           TC       WDAGAIN                               #  +
020274,002729: 41,3465           44360        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
020275,002730: 41,3466           54776                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.

Page 452

020277,002732: 41,3467           00115                           TC       WDRET                                 
020278,002733: 
020279,002734: 41,3470     4757               DSPMSK             =        SEVEN                                 
020280,002735: 
020281,002736: 
020282,002737:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
020283,002738:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
020284,002739:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
020285,002740:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
020286,002741: 
020287,002742: 40,3353                                           SETLOC   ENDECVN                               
020288,002743: 
020289,002744: 40,3353                                           COUNT*   $$/PIN                                
020290,002745: 40,3353           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
020291,002746: 40,3354           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
020292,002747: 40,3355           34346                           CAF      LOW5                                  
020293,002748: 40,3356           70143                           MASK     COUNT                                 
020294,002749: 40,3357           54021                           TS       SR                                    
020295,002750: 40,3360           56021                           XCH      SR                                    
020296,002751: 40,3361           54141                           TS       DSREL                                 
020297,002752: 40,3362           34753                           CAF      BIT1                                  
020298,002753: 40,3363           70143                           MASK     COUNT                                 
020299,002754: 40,3364           10000                           CCS      A                                     
020300,002755: 40,3365           03367                           TC       +2                                    #  LEFT IF COUNT IS ODD
020301,002756: 40,3366           03377                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
020302,002757: 40,3367           56124                           XCH      CODE                                  
020303,002758: 40,3370           04340                           TC       SLEFT5                                #  DOES NOT USE CYL
020304,002759: 40,3371           54124                           TS       CODE                                  
020305,002760: 40,3372           34736                           CAF      BIT14                                 
020306,002761: 40,3373           70143                           MASK     COUNT                                 
020307,002762: 40,3374           10000                           CCS      A                                     
020308,002763: 40,3375           34752                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
020309,002764: 40,3376           64753                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
020310,002765: 40,3377           54143                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
020311,002766:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
020312,002767:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
020313,002768: 40,3400           00004        DSPIN1             INHINT                                         
020314,002769: 40,3401           50141                           INDEX    DSREL                                 
020315,002770: 40,3402           11022                           CCS      DSPTAB                                
020316,002771: 40,3403           03405                           TC       +2                                    #  IF +
020317,002772: 40,3404           05706                           TC       CCSHOLE                               
020318,002773: 40,3405           64753                           AD       ONE                                   #  IF-
020319,002774: 40,3406           54142                           TS       DSMAG                                 
020320,002775: 40,3407           50143                           INDEX    COUNT                                 
020321,002776: 40,3410           73431                           MASK     DSMSK                                 
020322,002777: 40,3411           00006                           EXTEND                                         
020323,002778: 40,3412           60124                           SU       CODE                                  
020324,002779: 40,3413           00006                           EXTEND                                         
020325,002780: 40,3414           13427                           BZF      DSLV                                  #  SAME
020326,002781: 40,3415           50143        DFRNT              INDEX    COUNT                                 

Page 453

020328,002783: 40,3416           43431                           CS       DSMSK                                 #  MASK WITH 77740,76037,75777, OR 74037
020329,002784: 40,3417           70142                           MASK     DSMAG                                 
020330,002785: 40,3420           60124                           AD       CODE                                  
020331,002786: 40,3421           40000                           CS       A                                     
020332,002787: 40,3422           50141                           INDEX    DSREL                                 
020333,002788: 40,3423           57022                           XCH      DSPTAB                                
020334,002789: 40,3424           00006                           EXTEND                                         
020335,002790: 40,3425           63427                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
020336,002791: 40,3426           25015                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
020337,002792: 40,3427           00003        DSLV               RELINT                                         
020338,002793: 40,3430           00114                           TC       DSEXIT                                
020339,002794: 
020340,002795: 40,3431           00037        DSMSK              OCT      37                                    
020341,002796: 40,3432           01740                           OCT      1740                                  
020342,002797: 40,3433           02000                           OCT      2000                                  
020343,002798: 40,3434           03740                           OCT      3740                                  
020344,002799: 
020345,002800: 
020346,002801:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
020347,002802:                                                                                                  #  BIT11 OF CODE.
020348,002803: 
020349,002804: 40,3435           54141        11DSPIN            TS       DSREL                                 
020350,002805: 40,3436           34752                           CAF      TWO                                   
020351,002806: 40,3437           54143                           TS       COUNT                                 
020352,002807: 40,3440           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
020353,002808: 40,3441           54114                           TS       DSEXIT                                
020354,002809: 40,3442           03400                           TC       DSPIN1                                
020355,002810: 
020356,002811: 
020357,002812: 40,3443           03353        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
020358,002813: 40,3444           33446                           CAF      +2                                    
020359,002814: 40,3445           04640                           TC       BANKJUMP                              
020360,002815: 40,3446           63463        ENDSPOCT           CADR     OCTBACK                               
020361,002816: 
020362,002817: 
020363,002818:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
020364,002819:                                                                                                  #  ABORT WITH 01501.
020365,002820:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
020366,002821:                                                                                                  #  DO TC ENTRET.
020367,002822: 
020368,002823: 40,3447           44360        PREDSPAL           CS       VD1                                   
020369,002824: 40,3450           54776                           TS       DSPCOUNT                              
020370,002825: 40,3451           43472        DSPALARM           CS       NVSBENDL                              
020371,002826: 40,3452           60136                           AD       ENTEXIT                               
020372,002827: 40,3453           00006                           EXTEND                                         
020373,002828: 40,3454           13467                           BZF      CHARALRM   +2                         
020374,002829: 40,3455           43471                           CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
020375,002830: 40,3456           60136                           AD       ENTEXIT                               
020376,002831: 40,3457           00006                           EXTEND                                         
020377,002832: 40,3460           13462                           BZF      +2                                    

Page 454

020379,002834: 40,3461           03465                           TC       CHARALRM                              
020380,002835: 40,3462           04204                           TC       KILMONON                              
020381,002836: 40,3463           04364                           TC       FALTON                                
020382,002837: 40,3464           04124                           TC       PASTEVB                               #  PUT MONITOR VERB BACK IN VERBREG
020383,002838: 40,3465           04364        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
020384,002839: 40,3466           05155                           TC       ENDOFJOB                              
020385,002840: 40,3467           05653                           TC       POODOO                                
020386,002841: 40,3470           21501                           OCT      21501                                 
020387,002842: 40,3471           04124        MONADR             GENADR   PASTEVB                               
020388,002843: 40,3472           04202        NVSBENDL           TC       NVSUBEND                              
020389,002844: 
020390,002845: 
020391,002846:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
020392,002847:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
020393,002848:                                                                                                  #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
020394,002849:                                                                                                  #  MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
020395,002850:                                                                                                  #  FOR MM CODE.
020396,002851: 
020397,002852:    4145                                           SETLOC   MID7       +1                         
020398,002853:    4145                                           COUNT*   $$/PIN                                
020399,002854:    4145           04364        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
020400,002855:    4146           41040                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
020401,002856:    4147           55012                           TS       REQRET                                #  SET FOR ENTPAS0
020402,002857:    4150           04616                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
020403,002858:    4151           62366                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
020404,002859:    4152           04635                           TC       POSTJUMP                              
020405,002860:    4153           62022        ENDALM             CADR     ENTER                                 
020406,002861: 
020407,002862: 
020408,002863:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
020409,002864:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
020410,002865:                                                                                                  #  MM LIGHTS.
020411,002866:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
020412,002867:                                                                                                  #  IF NOT, IT RECYCLES.
020413,002868: 
020414,002869: 41,3470                                           SETLOC   DSPLV      +3                         
020415,002870: 41,3470                                           COUNT*   $$/PIN                                
020416,002871: 41,3470           03512        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
020417,002872:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
020418,002873:                                                                                                  #  MMADREF AT ENTPASHI.
020419,002874: 41,3471           34747                           CAF      BIT5                                  #  OCT20 = ND2.
020420,002875: 41,3472           60776                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
020421,002876: 41,3473           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
020422,002877: 41,3474           13476                           BZF      +2                                    
020423,002878: 41,3475           04145                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
020424,002879: 41,3476           34755                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
020425,002880: 41,3477           57001                           XCH      NOUNREG                               
020426,002881: 41,3500           54154                           TS       MPAC                                  
020427,002882: 41,3501           34361                           CAF      ND1                                   
020428,002883: 41,3502           54776                           TS       DSPCOUNT                              

Page 455

020430,002885: 41,3503           04616                           TC       BANKCALL                              
020431,002886: 41,3504           60570                           CADR     2BLANK                                
020432,002887: 41,3505           44360                           CS       VD1                                   #  BLOCK NUM CHAR IN
020433,002888: 41,3506           54776                           TS       DSPCOUNT                              
020434,002889: 41,3507           30154                           CA       MPAC                                  
020435,002890: 41,3510           04635                           TC       POSTJUMP                              
020436,002891: 41,3511           10040                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
020437,002892: 
020438,002893: 
020439,002894: 41,3512  04,2040               MODROUTB           =        V37                                   
020440,002895: 41,3512           40002        REQMM              CS       Q                                     
020441,002896: 41,3513           55012                           TS       REQRET                                
020442,002897: 41,3514           34361                           CAF      ND1                                   
020443,002898: 41,3515           54776                           TS       DSPCOUNT                              
020444,002899: 41,3516           34755                           CAF      ZERO                                  
020445,002900: 41,3517           55001                           TS       NOUNREG                               
020446,002901: 41,3520           04616                           TC       BANKCALL                              
020447,002902: 41,3521           60570                           CADR     2BLANK                                
020448,002903: 41,3522           04427                           TC       FLASHON                               
020449,002904: 41,3523           34753                           CAF      ONE                                   
020450,002905: 41,3524           54777                           TS       DECBRNCH                              #  SET FOR DEC
020451,002906: 41,3525           00136                           TC       ENTEXIT                               
020452,002907: 
020453,002908: 
020454,002909:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
020455,002910:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
020456,002911:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
020457,002912:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
020458,002913:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
020459,002914:                                                                                                  #  COMPONENT 3  BBCON
020460,002915: 
020461,002916: 41,3526           34753        VBRQEXEC           CAF      BIT1                                  
020462,002917: 41,3527           71044                           MASK     DSPTEM1                               
020463,002918: 41,3530           10000                           CCS      A                                     
020464,002919: 41,3531           03550                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
020465,002920: 41,3532           34351                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
020466,002921: 41,3533           54154        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
020467,002922: 41,3534           44753                           CS       BIT1                                  
020468,002923: 41,3535           71044                           MASK     DSPTEM1                               
020469,002924: 41,3536           54160                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
020470,002925: 41,3537           04457        REQUESTC           TC       RELDSP                                
020471,002926: 41,3540           34217                           CA       ENDINST                               
020472,002927: 41,3541           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
020473,002928: 41,3542           00006                           EXTEND                                         
020474,002929: 41,3543           31046                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
020475,002930: 41,3544           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
020476,002931: 41,3545           30160                           CA       MPAC       +4                         #  PRIO IN A
020477,002932: 41,3546           00004                           INHINT                                         
020478,002933: 41,3547           00154                           TC       MPAC                                  
020479,002934: 

Page 456

020481,002936: 41,3550           34354        SETVAC             CAF      TCFINDVC                              
020482,002937: 41,3551           03533                           TC       REQEX1                                
020483,002938: 
020484,002939:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
020485,002940:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
020486,002941:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
020487,002942:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
020488,002943:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
020489,002944:                                                                                                  #  COMPONENT 3  BBCON
020490,002945: 
020491,002946: 41,3552           34352        VBRQWAIT           CAF      TCWAIT                                
020492,002947: 41,3553           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
020493,002948: 41,3554           31044                           CA       DSPTEM1                               #  TIME DELAY
020494,002949: 41,3555           03536        ENDRQWT            TC       REQUESTC   -1                         
020495,002950: 
020496,002951:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
020497,002952:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
020498,002953:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
020499,002954: 
020500,002955: 
020501,002956: 40,3473                                           SETLOC   NVSBENDL   +1                         
020502,002957: 40,3473                                           COUNT*   $$/PIN                                
020503,002958: 40,3473           34753        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
020504,002959: 40,3474           55013                           TS       LOADSTAT                              
020505,002960: 40,3475           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020506,002961: 40,3476           04457                           TC       RELDSP                                
020507,002962: 40,3477           04433                           TC       FLASHOFF                              
020508,002963: 40,3500           03607                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
020509,002964: 
020510,002965: 
020511,002966: 40,3501           44753        VBTERM             CS       ONE                                   
020512,002967: 40,3502           03474                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
020513,002968: 
020514,002969: 
020515,002970:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
020516,002971:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
020517,002972: 40,3503           41000        PROCKEY            CS       VERBREG                               #  DONT ALLOW PROCEED DURING LOAD.
020518,002973: 40,3504           63520                           AD       VBSP2LD*                              #  DEC 22
020519,002974: 40,3505           00006                           EXTEND                                         
020520,002975: 40,3506           26000                           DIM      A                                     
020521,002976: 40,3507           00006                           EXTEND                                         
020522,002977: 40,3510           13465                           BZF      CHARALRM                              
020523,002978: 40,3511           34755        PROCKEY1           CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
020524,002979: 40,3512           55012                           TS       REQRET                                
020525,002980: 40,3513           44360                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
020526,002981: 40,3514           54776                           TS       DSPCOUNT                              
020527,002982: 40,3515           03473                           TC       VBPROC                                
020528,002983: 
020529,002984: 
020530,002985:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).

Page 457

020532,002987:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
020533,002988:                                                                                                  #   DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
020534,002989:                                                                                                  #   OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
020535,002990: 
020536,002991: 40,3516           44755        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
020537,002992: 40,3517           03474                           TC       VBPROC     +1                         
020538,002993: 
020539,002994: 
020540,002995: 40,3520           00026        VBSP2LD*           DEC      22         B-14                       #  VB22 = BLOAD
020541,002996: 
020542,002997:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
020543,002998:                                                                                                  #  END OF LOAD.
020544,002999: 

Page 458

020546,003001:                                                                                                  #  KEY RELEASE ROUTINE
020547,003002: 
020548,003003:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
020549,003004: 
020550,003005:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
020551,003006:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
020552,003007:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
020553,003008:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
020554,003009: 
020555,003010:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
020556,003011:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
020557,003012:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
020558,003013: 
020559,003014:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
020560,003015:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
020561,003016:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
020562,003017:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
020563,003018:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
020564,003019:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
020565,003020:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
020566,003021:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
020567,003022:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
020568,003023:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
020569,003024:                                                                                                  #  SUBROUTINES.
020570,003025: 
020571,003026: 40,3521           44751        VBRELDSP           CS       BIT3                                  
020572,003027: 40,3522           00006                           EXTEND                                         
020573,003028: 40,3523           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
020574,003029: 40,3524           10115                           CCS      21/22REG                              #  OLD DSPLOCK
020575,003030: 40,3525           34736                           CAF      BIT14                                 
020576,003031: 40,3526           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
020577,003032: 40,3527           10000                           CCS      A                                     
020578,003033: 40,3530           03537                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
020579,003034: 40,3531           04457        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
020580,003035: 40,3532           11041                           CCS      CADRSTOR                              #   RELEASE DISPLAY SYSTEM AND
020581,003036: 40,3533           03535                           TC       +2                                    #   DO RE-ESTABLISH IF CADRSTOR IS FULL.
020582,003037: 40,3534           05155                           TC       ENDOFJOB                              
020583,003038: 40,3535           04635                           TC       POSTJUMP                              
020584,003039: 40,3536           21051                           CADR     PINBRNCH                              
020585,003040: 40,3537           34755        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
020586,003041: 40,3540           55011                           TS       DSPLOCK                               #   JUST UNSUSPEND IT BY CLEARING DSPLOCK.
020587,003042: 40,3541           11041                           CCS      CADRSTOR                              #   TURN KEY RELEASE LIGHT OFF IF BOTH
020588,003043: 40,3542           05155                           TC       ENDOFJOB                              #   CADRSTOR AND DSPLIST ARE EMPTY.
020589,003044: 40,3543           04502                           TC       RELDSP1                               
020590,003045: 40,3544           05155                           TC       ENDOFJOB                              
020591,003046: 
020592,003047: 40,3545                        ENDRELDS           EQUALS                                         
020593,003048: 

Page 459

020595,003050:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
020596,003051:                                                                                                  #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
020597,003052:                                                                                                  #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
020598,003053:                                                                                                  #  PLACE 0VVVVVVVNNNNNNN INTO A.
020599,003054:                                                                                                  #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
020600,003055: 
020601,003056:                                                                                                  #  IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
020602,003057:                                                                                                  #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
020603,003058:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
020604,003059: 
020605,003060:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
020606,003061:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
020607,003062: 
020608,003063:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
020609,003064:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
020610,003065:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
020611,003066:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
020612,003067:                                                                                                  #  FURTHER ACTION).
020613,003068: 
020614,003069:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
020615,003070:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
020616,003071:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
020617,003072:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
020618,003073: 
020619,003074:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
020620,003075:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET
020621,003076:                                                                                                  #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
020622,003077:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
020623,003078:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
020624,003079:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
020625,003080:                                                                                                  #  MONITOR SET UP.
020626,003081: 
020627,003082:                                                                                                  #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
020628,003083:                                                                                                  #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
020629,003084: 
020630,003085:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
020631,003086:                                                                                                  #  MONITOR.
020632,003087: 
020633,003088:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
020634,003089:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
020635,003090: 
020636,003091:                                                                                                  #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
020637,003092:                                                                                                  #  (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
020638,003093:                                                                                                  #  ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
020639,003094:                                                                                                  #  :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
020640,003095:                                                                                                  #  NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
020641,003096:                                                                                                  #  LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
020642,003097:                                                                                                  #  LIGHTS.
020643,003098: 
020644,003099:                                                                                                  #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL

Page 460

020646,003101:                                                                                                  #  PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
020647,003102:                                                                                                  #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
020648,003103:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
020649,003104:                                                                                                  #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
020650,003105:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
020651,003106:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
020652,003107:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
020653,003108:                                                                                                  #  BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
020654,003109:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
020655,003110: 
020656,003111:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
020657,003112:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
020658,003113: 
020659,003114:    4154                                           SETLOC   ENDALM     +1                         
020660,003115: 
020661,003116:    4154                                           COUNT*   $$/PIN                                
020662,003117:    4154           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
020663,003118:    4155           54123        NVMONOPT           TS       NVTEMP                                
020664,003119:    4156           34736                           CAF      BIT14                                 
020665,003120:    4157           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020666,003121:    4160           61011                           AD       DSPLOCK                               
020667,003122:    4161           10000                           CCS      A                                     
020668,003123:    4162           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020669,003124:    4163           34753                           CAF      ONE                                   #  DSP SYST AVAILABLE
020670,003125:    4164           60002        NVSBCOM            AD       Q                                     
020671,003126:    4165           55036                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
020672,003127:    4166           23021                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
020673,003128:    4167           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020674,003129:    4170           34201        NVSUBCOM           CAF      NVSBBBNK                              
020675,003130: 
020676,003131:    4171           56006                           XCH      BBANK                                 
020677,003132:    4172           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
020678,003133:    4173           04007                           ROR      SUPERBNK                              
020679,003134:    4174           55037                           TS       NVBNKTEM                              
020680,003135:    4175           34201                           CAF      PINSUPBT                              
020681,003136:    4176           00006                           EXTEND                                         
020682,003137:    4177           01007                           WRITE    SUPERBNK                              
020683,003138:    4200           02020                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
020684,003139:    4201     0776                                  EBANK=   DSPCOUNT                              
020685,003140:    4201           62101        NVSBBBNK           BBCON    NVSUB1                                
020686,003141: 
020687,003142:    4202     4201               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
020688,003143: 
020689,003144:    4202           53037        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
020690,003145:    4203           05176                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
020691,003146: 
020692,003147: 41,3556                                           SETLOC   ENDRQWT    +1                         
020693,003148: 
020694,003149: 41,3556                                           COUNT*   $$/PIN                                
020695,003150:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS

Page 461

020697,003152:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
020698,003153: 
020699,003154: 41,3556           64757        BLANKDSP           AD       SEVEN                                 #  7,8,9,OR 10 (A HAD 0,1,2,OR 3)
020700,003155: 41,3557           00004                           INHINT                                         
020701,003156: 41,3560           54124                           TS       CODE                                  #  BLANK SPECIFIED DSPTABS
020702,003157: 41,3561           44740                           CS       BIT12                                 
020703,003158: 41,3562           50124                           INDEX    CODE                                  
020704,003159: 41,3563           57022                           XCH      DSPTAB                                
020705,003160: 41,3564           10000                           CCS      A                                     
020706,003161: 41,3565           25015                           INCR     NOUT                                  
020707,003162: 41,3566           03567                           TC       +1                                    
020708,003163: 41,3567           10124                           CCS      CODE                                  
020709,003164: 41,3570           03560                           TC       BLANKDSP   +2                         
020710,003165: 41,3571           00003                           RELINT                                         
020711,003166: 41,3572           50123                           INDEX    NVTEMP                                
020712,003167: 41,3573           03600                           TC       +5                                    
020713,003168: 41,3574           03575                           TC       +1                                    #  NVTEMP HAS -4 (NEVER TOUCH MODREG)
020714,003169: 41,3575           55000                           TS       VERBREG                               #             -3
020715,003170: 41,3576           55001                           TS       NOUNREG                               #             -2
020716,003171: 41,3577           55014                           TS       CLPASS                                #             -1
020717,003172: 41,3600           44360                           CS       VD1                                   
020718,003173: 41,3601           54776                           TS       DSPCOUNT                              
020719,003174: 41,3602           04433                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
020720,003175: 41,3603           03626                           TC       ENTSET     -2                         #  ZEROS REQRET
020721,003176: 
020722,003177: 41,3604           33630        NVSUB1             CAF      ENTSET                                #  IN BANK
020723,003178: 41,3605           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
020724,003179: 41,3606           10123                           CCS      NVTEMP                                #  WHAT NOW
020725,003180: 41,3607           03613                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
020726,003181: 41,3610           02400                           TC       GODSPALM                              
020727,003182: 41,3611           03556                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
020728,003183: 41,3612           02400                           TC       GODSPALM                              
020729,003184: 41,3613           36106                           CAF      LOW7                                  
020730,003185: 41,3614           70123                           MASK     NVTEMP                                
020731,003186: 41,3615           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
020732,003187: 41,3616           30123                           CA       NVTEMP                                #                  USES MPAC, +1, +2
020733,003188: 41,3617           54023                           TS       EDOP                                  #  RIGHT 7
020734,003189: 41,3620           30023                           CA       EDOP                                  
020735,003190: 41,3621           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
020736,003191:                                                                                                  #                 USES MPAC, +1, +2).
020737,003192: 41,3622           10157                           CCS      MPAC       +3                         #  TEST NOUN
020738,003193: 41,3623           03631                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
020739,003194: 41,3624           30160                           CA       MPAC       +4                         
020740,003195: 41,3625           02366                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
020741,003196: 41,3626           34755                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
020742,003197: 41,3627           55012                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
020743,003198: 41,3630           04202        ENTSET             TC       NVSUBEND                              
020744,003199: 41,3631           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
020745,003200: 41,3632           03636                           TC       +4                                    #  IF VERB NOT +0, GO ON
020746,003201: 41,3633           30157                           CA       MPAC       +3                         

Page 462

020748,003203: 41,3634           02346                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
020749,003204: 41,3635           04202                           TC       NVSUBEND                              
020750,003205: 41,3636           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
020751,003206: 41,3637           54161                           TS       MPAC       +5                         #               USES MPAC, +1, +2)
020752,003207: 41,3640           30160                           CA       MPAC       +4                         
020753,003208: 41,3641           02366                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
020754,003209: 41,3642           30157                           CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
020755,003210: 41,3643           02346                           TC       UPDATNN    -1                         
020756,003211: 41,3644           34755                           CAF      ZERO                                  
020757,003212: 41,3645           55013                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
020758,003213: 41,3646           55014                           TS       CLPASS                                
020759,003214: 41,3647           55012                           TS       REQRET                                #  SET REQRET FOR PASS 0.
020760,003215: 41,3650           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
020761,003216: 41,3651           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
020762,003217: 41,3652           02062        ENDNVSB1           TC       ENTPAS0                               
020763,003218: 
020764,003219: 
020765,003220:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
020766,003221:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
020767,003222: 
020768,003223: 
020769,003224:    4204                                           SETLOC   NVSUBEND   +2                         
020770,003225:    4204                                           COUNT*   $$/PIN                                
020771,003226:                                                                                                  #  FORCE BIT 15 OF MONSAVE1 TO 1.
020772,003227:    4204           34735        KILMONON           CAF      BIT15                                 #     THIS IS THE KILL MONITOR BIT.
020773,003228:    4205           55020                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
020774,003229:                                                                                                  #   MONITOR BIT.
020775,003230:    4206           00002                           TC       Q                                     
020776,003231: 
020777,003232: 
020778,003233:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
020779,003234:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
020780,003235:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
020781,003236:                                                                                                  #           -0    DATA IN      SET BY END OF LOAD ROUTINE
020782,003237:                                                                                                  #              OR RESEQUENCE   SET BY VERB 32
020783,003238: 
020784,003239: 
020785,003240:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
020786,003241:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
020787,003242:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
020788,003243:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
020789,003244:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
020790,003245:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
020791,003246:                                                                                                  #  L+1      FOR TERMINATE
020792,003247:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
020793,003248:                                                                                                  #  L+3      FOR DATA IN, OR RESEQUENCE
020794,003249:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
020795,003250: 
020796,003251: 
020797,003252:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP

Page 463

020799,003254:                                                                                                  #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
020800,003255:                                                                                                  #  1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
020801,003256:                                                                                                  #  EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
020802,003257:                                                                                                  #  2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
020803,003258:                                                                                                  #  NVSUBUSY.
020804,003259: 
020805,003260:    4207           22002        ENDIDLE            LXCH     Q                                     #  RETURN ADDRESS INTO L.
020806,003261:    4210           04220                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
020807,003262:    4211           04224                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
020808,003263:    4212           30001                           CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
020809,003264:    4213           75012                           MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
020810,003265:    4214           60004                           AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
020811,003266:    4215           55041                           TS       CADRSTOR                              
020812,003267:    4216           05133                           TC       JOBSLEEP                              
020813,003268: 
020814,003269: 
020815,003270:    4217           05155        ENDINST            TC       ENDOFJOB                              
020816,003271: 
020817,003272: 
020818,003273:    4220           11041        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
020819,003274:    4221           04227                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
020820,003275:    4222           00002                           TC       Q                                     
020821,003276:    4223           04227                           TC       DSPABORT                              
020822,003277: 
020823,003278:    4224           11042        ISLIST+0           CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
020824,003279:    4225           04227                           TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
020825,003280:    4226           00002                           TC       Q                                     
020826,003281:    4227           05635        DSPABORT           TC       BAILOUT                               
020827,003282:    4230           31206                           OCT      31206                                 
020828,003283: 
020829,003284:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
020830,003285:                                                                                                  #  IT DOES ENDOFJOB.
020831,003286: 
020832,003287:    4231           34201        JAMTERM            CAF      PINSUPBT                              
020833,003288:    4232           00006                           EXTEND                                         
020834,003289:    4233           01007                           WRITE    SUPERBNK                              
020835,003290:    4234           34242                           CAF      34DEC                                 
020836,003291:    4235           55012                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
020837,003292:    4236           44360                           CS       VD1                                   
020838,003293:    4237           54776                           TS       DSPCOUNT                              
020839,003294:    4240           04635                           TC       POSTJUMP                              
020840,003295:    4241           61501                           CADR     VBTERM                                
020841,003296: 
020842,003297:    4242           00042        34DEC              DEC      34         B-14                       
020843,003298: 
020844,003299: 
020845,003300:                                                                                                  #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
020846,003301:                                                                                                  #  FUNCTION. IT DOES ENDOFJOB.
020847,003302: 
020848,003303:    4243           34201        JAMPROC            CAF      PINSUPBT                              

Page 464

020850,003305:    4244           00006                           EXTEND                                         
020851,003306:    4245           01007                           WRITE    SUPERBNK                              
020852,003307:    4246           34254                           CAF      33DEC                                 
020853,003308:    4247           55012                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
020854,003309:    4250           44360                           CS       VD1                                   
020855,003310:    4251           54776                           TS       DSPCOUNT                              
020856,003311:    4252           04635                           TC       POSTJUMP                              
020857,003312:    4253           61473                           CADR     VBPROC                                
020858,003313: 
020859,003314:    4254           00041        33DEC              DEC      33         B-14                       
020860,003315: 
020861,003316: 
020862,003317:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
020863,003318:                                                                                                  #  CALL WITH BLANKING CODE IN A.
020864,003319:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
020865,003320:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
020866,003321: 
020867,003322:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
020868,003323: 
020869,003324:    4255           74757        BLANKSUB           MASK     SEVEN                                 
020870,003325:    4256           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
020871,003326:    4257           34736                           CAF      BIT14                                 
020872,003327:    4260           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020873,003328:    4261           61011                           AD       DSPLOCK                               
020874,003329:    4262           10000                           CCS      A                                     
020875,003330:    4263           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020876,003331:    4264           24002                           INCR     Q                                     #  DSP SYST AVAILABLE
020877,003332:                                                                                                  #  SET RETURN FOR 2+ CALLING LOC
020878,003333:    4265           10123                           CCS      NVTEMP                                
020879,003334:    4266           14270                           TCF      +2                                    
020880,003335:    4267           00002                           TC       Q                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
020881,003336:    4270           22002                           LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
020882,003337:    4271           34302                           CAF      BLNKBBNK                              
020883,003338:    4272           56006                           XCH      BBANK                                 
020884,003339:    4273           00006                           EXTEND                                         
020885,003340:    4274           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
020886,003341:    4275           52131                           DXCH     BUF                                   
020887,003342:    4276           34201                           CAF      PINSUPBT                              
020888,003343:    4277           00006                           EXTEND                                         
020889,003344:    4300           01007                           WRITE    SUPERBNK                              
020890,003345:    4301           03545                           TC       BLNKSUB1                              
020891,003346: 
020892,003347:    4302     0776                                  EBANK=   DSPCOUNT                              
020893,003348:    4302           60101        BLNKBBNK           BBCON    BLNKSUB1                              
020894,003349:    4303                        ENDBLFF            EQUALS                                         
020895,003350: 
020896,003351: 40,3545                                           SETLOC   ENDRELDS                              
020897,003352: 40,3545                                           COUNT*   $$/PIN                                
020898,003353: 40,3545           30776        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
020899,003354: 40,3546           54132                           TS       BUF        +2                         

Page 465

020901,003356: 40,3547           34753                           CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
020902,003357: 40,3550           03567                           TC       TESTBIT                               
020903,003358: 40,3551           34317                           CAF      R1D1                                  
020904,003359: 40,3552           02524                           TC       5BLANK     -1                         
020905,003360: 40,3553           34752                           CAF      BIT2                                  #  TEST BIT 2. SEE IF R2 TO BE BLANKED.
020906,003361: 40,3554           03567                           TC       TESTBIT                               
020907,003362: 40,3555           34320                           CAF      R2D1                                  
020908,003363: 40,3556           02524                           TC       5BLANK     -1                         
020909,003364: 40,3557           34751                           CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
020910,003365: 40,3560           03567                           TC       TESTBIT                               
020911,003366: 40,3561           34321                           CAF      R3D1                                  
020912,003367: 40,3562           02524                           TC       5BLANK     -1                         
020913,003368: 40,3563           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
020914,003369: 40,3564           54776                           TS       DSPCOUNT                              #       BEFORE BLANKSUB.
020915,003370: 40,3565           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
020916,003371: 40,3566           05177                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
020917,003372: 
020918,003373: 40,3567           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
020919,003374: 40,3570           10000                           CCS      A                                     
020920,003375: 40,3571           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
020921,003376: 40,3572           50002                           INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
020922,003377: 40,3573           00002                           TC       2                                     
020923,003378: 
020924,003379: 40,3574                        ENDBSUB1           EQUALS                                         
020925,003380: 
020926,003381: 
020927,003382:                                                                                                  #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
020928,003383:                                                                                                  #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
020929,003384: 
020930,003385:                                                                                                  #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
020931,003386: 
020932,003387:                                                                                                  #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
020933,003388: 
020934,003389: 07,2661                                           BANK     7                                     
020935,003390: 04,2000                                           SETLOC   PINBALL4                              
020936,003391: 04,2000                                           BANK                                           
020937,003392: 
020938,003393: 04,2630                                           COUNT*   $$/PIN                                
020939,003394: 04,2630           56002        DSPMM              XCH      Q                                     
020940,003395: 04,2631           54154                           TS       MPAC                                  
020941,003396: 04,2632           00004                           INHINT                                         
020942,003397: 04,2633           34355                           CAF      CHRPRIO                               
020943,003398: 04,2634           05072                           TC       NOVAC                                 
020944,003399: 04,2635     0776                                  EBANK=   DSPCOUNT                              
020945,003400: 04,2635           03574 60101                     2CADR    DSPMMJB                               
020946,003401: 
020947,003402: 04,2637           00003                           RELINT                                         
020948,003403: 04,2640           00154        ENDSPMM            TC       MPAC                                  
020949,003404: 
020950,003405:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
020951,003406: 

Page 466

020953,003408: 40,3574                                           SETLOC   ENDBSUB1                              
020954,003409: 
020955,003410: 40,3574                                           COUNT*   $$/PIN                                
020956,003411: 40,3574           34362        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
020957,003412: 40,3575           56776                           XCH      DSPCOUNT                              
020958,003413: 40,3576           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
020959,003414: 40,3577           11010                           CCS      MODREG                                
020960,003415: 40,3600           64753                           AD       ONE                                   
020961,003416: 40,3601           03337                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
020962,003417: 40,3602           03604                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
020963,003418: 40,3603           02570                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
020964,003419: 40,3604           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
020965,003420: 40,3605           54776                           TS       DSPCOUNT                              
020966,003421: 40,3606           05155                           TC       ENDOFJOB                              
020967,003422: 
020968,003423: 
020969,003424:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
020970,003425:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
020971,003426:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
020972,003427: 
020973,003428:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
020974,003429:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
020975,003430: 
020976,003431: 40,3607           11041        RECALTST           CCS      CADRSTOR                              
020977,003432: 40,3610           03612                           TC       RECAL1                                
020978,003433: 40,3611           05155                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
020979,003434: 40,3612           34755        RECAL1             CAF      ZERO                                  
020980,003435: 40,3613           57041                           XCH      CADRSTOR                              
020981,003436: 40,3614           00004                           INHINT                                         
020982,003437: 40,3615           05137                           TC       JOBWAKE                               
020983,003438: 40,3616           11013                           CCS      LOADSTAT                              
020984,003439: 40,3617           03641                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
020985,003440: 40,3620           05155                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
020986,003441: 40,3621           03637                           TC       DOTERM                                #  -   TERMINATE
020987,003442: 40,3622           34752                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
020988,003443: 40,3623           50064        RECAL2             INDEX    LOCCTR                                
020989,003444: 40,3624           60164                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
020990,003445: 40,3625           50064                           INDEX    LOCCTR                                
020991,003446: 40,3626           54164                           TS       LOC                                   
020992,003447: 40,3627           31001                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
020993,003448: 40,3630           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
020994,003449: 40,3631           31000                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
020995,003450: 40,3632           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
020996,003451: 40,3633           52155                           DXCH     MPAC                                  
020997,003452: 40,3634           00003                           RELINT                                         
020998,003453: 40,3635           04457        RECAL3             TC       RELDSP                                
020999,003454: 40,3636           05155                           TC       ENDOFJOB                              
021000,003455: 
021001,003456: 40,3637           34755        DOTERM             CAF      ZERO                                  
021002,003457: 40,3640           03623                           TC       RECAL2                                
021003,003458: 

Page 467

021005,003460: 40,3641           34753        DOPROC             CAF      ONE                                   
021006,003461: 40,3642           03623                           TC       RECAL2                                
021007,003462: 

Page 468

021009,003464:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
021010,003465: 
021011,003466:    4303                                           SETLOC   ENDBLFF                               
021012,003467: 
021013,003468:    4303                                           COUNT*   $$/PIN                                
021014,003469:                                                                                                  #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
021015,003470:                                                                                                  #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
021016,003471: 
021017,003472:    4303           55016        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
021018,003473:    4304           54003                           TS       EBANK                                 #  SET EBANK BITS
021019,003474:    4305           74357                           MASK     LOW8                                  
021020,003475:    4306           65007                           AD       OCT1400                               
021021,003476:    4307           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
021022,003477:    4310           00002                           TC       Q                                     
021023,003478: 
021024,003479: 
021025,003480:                                                                                                  #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
021026,003481:                                                                                                  #                 E ADRES AND PUTS IT INTO NOUNADD.
021027,003482: 
021028,003483:    4311           31016        SETNADD            CA       NOUNCADR                              
021029,003484:    4312           14304                           TCF      SETNCADR   +1                         
021030,003485: 
021031,003486:                                                                                                  #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
021032,003487:                                                                                                  #                 DERIVED AND LEFT IN A.
021033,003488: 
021034,003489:    4313           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
021035,003490:    4314           74357                           MASK     LOW8                                  
021036,003491:    4315           65007                           AD       OCT1400                               #  E ADRES LEFT IN A
021037,003492:    4316           00002                           TC       Q                                     
021038,003493: 
021039,003494: 
021040,003495:    4317           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
021041,003496:    4320           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
021042,003497:    4321           00004        R3D1               OCT      4                                     
021043,003498: 
021044,003499:    4322           54020        RIGHT5             TS       CYR                                   
021045,003500:    4323           40020                           CS       CYR                                   
021046,003501:    4324           40020                           CS       CYR                                   
021047,003502:    4325           40020                           CS       CYR                                   
021048,003503:    4326           40020                           CS       CYR                                   
021049,003504:    4327           56020                           XCH      CYR                                   
021050,003505:    4330           00002                           TC       Q                                     
021051,003506: 
021052,003507:    4331           54022        LEFT5              TS       CYL                                   
021053,003508:    4332           40022                           CS       CYL                                   
021054,003509:    4333           40022                           CS       CYL                                   
021055,003510:    4334           40022                           CS       CYL                                   
021056,003511:    4335           40022                           CS       CYL                                   

Page 469

021058,003513:    4336           56022                           XCH      CYL                                   
021059,003514:    4337           00002                           TC       Q                                     
021060,003515: 
021061,003516:    4340           60000        SLEFT5             DOUBLE                                         
021062,003517:    4341           60000                           DOUBLE                                         
021063,003518:    4342           60000                           DOUBLE                                         
021064,003519:    4343           60000                           DOUBLE                                         
021065,003520:    4344           60000                           DOUBLE                                         
021066,003521:    4345           00002                           TC       Q                                     
021067,003522: 
021068,003523: 
021069,003524:    4346           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
021070,003525:    4347           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
021071,003526:    4350           76000        HI5                OCT      76000                                 #  MUST STAY HERE
021072,003527: 
021073,003528:    4351           05072        TCNOVAC            TC       NOVAC                                 
021074,003529:    4352           05214        TCWAIT             TC       WAITLIST                              
021075,003530:    4353           05272        TCTSKOVR           TC       TASKOVER                              
021076,003531:    4354           05105        TCFINDVC           TC       FINDVAC                               
021077,003532: 
021078,003533: 
021079,003534:    4355           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
021080,003535: 
021081,003536: 
021082,003537:    4356           03777        LOW11              OCT      3777                                  
021083,003538:    4357     4356               B12-1              EQUALS   LOW11                                 
021084,003539:    4357           00377        LOW8               OCT      377                                   
021085,003540: 
021086,003541: 
021087,003542:    4360           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
021088,003543:    4361           00021        ND1                OCT      21                                    #  DONT SEPARATE.
021089,003544:    4362           00025        MD1                OCT      25                                    
021090,003545: 
021091,003546:    4363           00012        BINCON             DEC      10         B-14                       
021092,003547: 
021093,003548:    4364           34745        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
021094,003549:    4365           00006                           EXTEND                                         
021095,003550:    4366           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
021096,003551:    4367           00002                           TC       Q                                     
021097,003552: 
021098,003553:    4370           44745        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
021099,003554:    4371           00006                           EXTEND                                         
021100,003555:    4372           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
021101,003556:    4373           00002                           TC       Q                                     
021102,003557: 
021103,003558:    4374           34747        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
021104,003559:    4375           00006                           EXTEND                                         
021105,003560:    4376           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
021106,003561:    4377           00002                           TC       Q                                     
021107,003562: 

Page 470

021109,003564:    4400           00006        LODSAMPT           EXTEND                                         
021110,003565:    4401           30025                           DCA      TIME2                                 
021111,003566:    4402           52014                           DXCH     SAMPTIME                              
021112,003567:    4403           00002                           TC       Q                                     
021113,003568: 
021114,003569: 
021115,003570:    4404           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
021116,003571:    4405           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
021117,003572:    4406           20156                           DAS      MPAC       +1                         
021118,003573:    4407           60154                           AD       MPAC                                  
021119,003574:    4410           26154                           ADS      MPAC                                  
021120,003575:    4411           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
021121,003576:    4412           00002                           TC       Q                                     #  NO NET OF/UF
021122,003577:    4413           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/-1 FOR OF/UF
021123,003578:    4414           00002                           TC       Q                                     
021124,003579: 
021125,003580: 
021126,003581:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
021127,003582:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
021128,003583:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
021129,003584:                                                                                                  #  SETTING RESULT TO -0.
021130,003585:                                                                                                  #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
021131,003586:                                                                                                  #   WHEN THEY CONTAIN TH E SF CONSTANTS.)
021132,003587: 
021133,003588:    4415           54135        PRSHRTMP           TS       MPTEMP                                
021134,003589:    4416           10000                           CCS      A                                     
021135,003590:    4417           30135                           CA       MPTEMP                                #  C(A) +, DO REGULAR SHORTMP
021136,003591:    4420           17322                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
021137,003592:    4421           14417                           TCF      -2                                    #  C(A) -, DO REGULAR SHORTMP
021138,003593:    4422           44755                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
021139,003594:    4423           54154                           TS       MPAC                                  
021140,003595:    4424           54155                           TS       MPAC       +1                         
021141,003596:    4425           54156                           TS       MPAC       +2                         
021142,003597:    4426           00002                           TC       Q                                     
021143,003598: 
021144,003599: 
021145,003600:    4427           34746        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
021146,003601:    4430           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
021147,003602:    4431           05011                           WOR      DSALMOUT                              
021148,003603:    4432           00002                           TC       Q                                     
021149,003604: 
021150,003605: 
021151,003606:    4433           44746        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
021152,003607:    4434           00006                           EXTEND                                         
021153,003608:    4435           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
021154,003609:    4436           00002                           TC       Q                                     
021155,003610: 

Page 471

021157,003612:                                                                                                  #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
021158,003613: 
021159,003614:                                                                                                  #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
021160,003615:                                                                                                  #  CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
021161,003616:                                                                                                  #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
021162,003617:                                                                                                  #  OFFERED.
021163,003618: 
021164,003619:                                                                                                  #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
021165,003620:                                                                                                  #  PROGRAM.    1) BY ENDIDLE
021166,003621:                                                                                                  #              2) BY NVSUBUSY
021167,003622:                                                                                                  #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
021168,003623:                                                                                                  #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
021169,003624:                                                                                                  #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
021170,003625:                                                                                                  #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
021171,003626: 
021172,003627: 
021173,003628:                                                                                                  #  THE CALLING SEQUENCE FOR NVSUB IS
021174,003629:                                                                                                  #           CAF    V/N
021175,003630:                                                                                                  #  L        TC     NVSUB
021176,003631:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
021177,003632:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
021178,003633: 
021179,003634: 
021180,003635:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
021181,003636:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
021182,003637:                                                                                                  #  SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
021183,003638:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
021184,003639:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
021185,003640: 
021186,003641: 
021187,003642:                                                                                                  #         THE CALLING SEQUENCE IS
021188,003643:                                                                                                  #           CAF    WAKEFCADR
021189,003644:                                                                                                  #           TC     NVSUBUSY
021190,003645: 
021191,003646: 
021192,003647:                                                                                                  #  .
021193,003648: 
021194,003649: 
021195,003650:                                                                                                  #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
021196,003651:                                                                                                  #  IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
021197,003652:                                                                                                  #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
021198,003653:                                                                                                  #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
021199,003654: 
021200,003655: 
021201,003656:                                                                                                  #  NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
021202,003657:                                                                                                  #  SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
021203,003658:                                                                                                  #  WHEN
021204,003659:                                                                                                  #  1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
021205,003660:                                                                                                  #     IS EXCEEDED.
021206,003661:                                                                                                  #  2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING

Page 472

021208,003663:                                                                                                  #  ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
021209,003664: 
021210,003665:    4437           44444        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
021211,003666:    4440           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
021212,003667:    4441           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
021213,003668:    4442           04635        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
021214,003669:    4443           10641                           CADR     NVSUBSY1                              
021215,003670:    4444           02003        2K+3               OCT      2003                                  
021216,003671: 
021217,003672:                                                                                                  #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
021218,003673:                                                                                                  #  WITH HIS PROPER SUPERBITS.
021219,003674: 
021220,003675: 04,2641                                           SETLOC   ENDSPMM    +1                         
021221,003676: 04,2641                                           COUNT*   $$/PIN                                
021222,003677: 04,2641           54001        NVSUBSY1           TS       L                                     
021223,003678: 04,2642           04220                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
021224,003679: 04,2643           04224                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
021225,003680: 04,2644           04374                           TC       RELDSPON                              
021226,003681: 04,2645           30001                           CA       L                                     
021227,003682: 04,2646           55042                           TS       DSPLIST                               
021228,003683: 04,2647           05133        ENDNVBSY           TC       JOBSLEEP                              
021229,003684: 
021230,003685: 
021231,003686:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
021232,003687:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
021233,003688:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
021234,003689:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
021235,003690:                                                                                                  #  IS NOT BUSY.
021236,003691: 
021237,003692:    4445                                           SETLOC   NVSUBUSY   +3                         
021238,003693:    4445                                           COUNT*   $$/PIN                                
021239,003694:    4445           22007        NVSBWAIT           LXCH     7                                     #  ZERO NVMONOPT OPTIONS
021240,003695:    4446           54123                           TS       NVTEMP                                
021241,003696:    4447           34736                           CAF      BIT14                                 
021242,003697:    4450           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
021243,003698:    4451           61011                           AD       DSPLOCK                               
021244,003699:    4452           10000                           CCS      A                                     
021245,003700:    4453           14455                           TCF      NVSBWT1                               #  BUSY
021246,003701:    4454           14164                           TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
021247,003702:                                                                                                  #  AFTER EXECUTION.
021248,003703:    4455           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
021249,003704:    4456           14437                           TCF      PRENVBSY                              #  GO TO SLEEP.
021250,003705: 
021251,003706: 
021252,003707:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
021253,003708:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
021254,003709:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
021255,003710:    4457           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
021256,003711:    4460           54144                           TS       RELRET                                #  OFF,  SEARCH DSPLIST
021257,003712:    4461           44736                           CS       BIT14                                 

Page 473

021259,003714:    4462           00004                           INHINT                                         
021260,003715:    4463           71020                           MASK     MONSAVE1                              
021261,003716:    4464           55020                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
021262,003717:    4465           11042                           CCS      DSPLIST                               
021263,003718:    4466           04470                           TC       +2                                    
021264,003719:    4467           04473                           TC       RELDSP2                               #  LIST EMPTY
021265,003720:    4470           34755                           CAF      ZERO                                  
021266,003721:    4471           57042                           XCH      DSPLIST                               
021267,003722:    4472           05137                           TC       JOBWAKE                               
021268,003723:    4473           00003        RELDSP2            RELINT                                         
021269,003724:    4474           44747                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
021270,003725:    4475           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
021271,003726:    4476           03011                           WAND     DSALMOUT                              
021272,003727:    4477           34755                           CAF      ZERO                                  
021273,003728:    4500           55011                           TS       DSPLOCK                               
021274,003729:    4501           00144                           TC       RELRET                                
021275,003730:    4502           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
021276,003731:    4503           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
021277,003732:                                                                                                  #  EMPTY. LEAVE KEY RLSE LIGHT ALONE IF 
021278,003733:                                                                                                  #  DSPLIST IS NOT EMPTY.
021279,003734:    4504           11042                           CCS      DSPLIST                               
021280,003735:    4505           04507                           TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
021281,003736:    4506           04473                           TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
021282,003737:    4507           34755                           CAF      ZERO                                  #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
021283,003738:    4510           55011                           TS       DSPLOCK                               
021284,003739:    4511           00144                           TC       RELRET                                
021285,003740: 
021286,003741: 
021287,003742:    4512                        ENDPINBF           EQUALS                                         
021288,003743: 

Page 474

021290,003745:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
021291,003746: 
021292,003747:    4512  43,2002               PINTEST            EQUALS   LST2FAN                               
021293,003748: 

Page 475

021295,003750:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
021296,003751:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
021297,003752: 
021298,003753: 41,3653                                           SETLOC   ENDNVSB1   +1                         
021299,003754: 
021300,003755: 41,3653                                           COUNT*   $$/PIN                                
021301,003756: 41,3653           00004        VBTSTLTS           INHINT                                         
021302,003757: 41,3654           04616                           TC       BANKCALL                              #  OPP ERR IF NOT IN POO
021303,003758: 41,3655           66121                           CADR     CHKPOOH                               
021304,003759: 41,3656           44753                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
021305,003760: 41,3657           71300                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
021306,003761: 41,3660           64753                           AD       BIT1                                  
021307,003762: 41,3661           55300                           TS       IMODES33                              
021308,003763: 
021309,003764: 41,3662           33721                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
021310,003765: 41,3663           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
021311,003766: 41,3664           05011                           WOR      DSALMOUT                              
021312,003767: 41,3665           33722                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
021313,003768: 41,3666           55035                           TS       DSPTAB     +11D                       #  PROG ALM.
021314,003769: 41,3667           06022                           TC       C13STALL                              
021315,003770: 41,3670           34742                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
021316,003771: 41,3671           00006                           EXTEND                                         
021317,003772: 41,3672           05013                           WOR      CHAN13                                
021318,003773: 41,3673           34363                           CAF      TEN                                   
021319,003774: 41,3674           54117        TSTLTS1            TS       ERCNT                                 
021320,003775: 41,3675           43717                           CS       FULLDSP                               
021321,003776: 41,3676           50117                           INDEX    ERCNT                                 
021322,003777: 41,3677           55022                           TS       DSPTAB                                
021323,003778: 41,3700           10117                           CCS      ERCNT                                 
021324,003779: 41,3701           03674                           TC       TSTLTS1                               
021325,003780: 41,3702           43720                           CS       FULLDSP1                              
021326,003781: 41,3703           55023                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
021327,003782: 41,3704           55026                           TS       DSPTAB     +4                         
021328,003783: 41,3705           55030                           TS       DSPTAB     +6                         
021329,003784: 41,3706           34760                           CAF      ELEVEN                                
021330,003785: 41,3707           55015                           TS       NOUT                                  
021331,003786: 41,3710           00003                           RELINT                                         
021332,003787: 41,3711           33724                           CAF      SHOLTS                                
021333,003788: 41,3712           00004                           INHINT                                         
021334,003789: 41,3713           05214                           TC       WAITLIST                              
021335,003790: 41,3714     1022                                  EBANK=   DSPTAB                                
021336,003791: 41,3714           03725 62102                     2CADR    TSTLTS2                               
021337,003792: 
021338,003793: 41,3716           05155                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
021339,003794:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
021340,003795:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
021341,003796: 
021342,003797: 
021343,003798: 41,3717           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
021344,003799: 41,3720           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
021345,003800: 

Page 476

021347,003802: 41,3721           00175        TSTCON1            OCT      00175                                 
021348,003803:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
021349,003804:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
021350,003805: 41,3722           40674        TSTCON2            OCT      40674                                 #  DSPTAB+11D BITS 3,4,5,6,8,9. LR LITES,
021351,003806:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
021352,003807: 41,3723           00115        TSTCON3            OCT      0115                                  #  CHAN 11  BITS 1, 3, 4, 7.
021353,003808:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
021354,003809: 41,3724           00764        SHOLTS             OCT      764                                   #  5 SEC
021355,003810: 
021356,003811: 
021357,003812: 41,3725           34355        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
021358,003813: 41,3726           05072                           TC       NOVAC                                 
021359,003814: 41,3727     1022                                  EBANK=   DSPTAB                                
021360,003815: 41,3727           03732 62102                     2CADR    TSTLTS3                               
021361,003816: 
021362,003817: 41,3731           05272                           TC       TASKOVER                              
021363,003818: 
021364,003819: 
021365,003820: 41,3732           43723        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
021366,003821: 41,3733           00004                           INHINT                                         
021367,003822: 41,3734           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
021368,003823: 41,3735           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
021369,003824: 41,3736           06022                           TC       C13STALL                              
021370,003825: 41,3737           44742                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
021371,003826: 41,3740           00006                           EXTEND                                         
021372,003827: 41,3741           03013                           WAND     CHAN13                                
021373,003828: 41,3742           34750                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
021374,003829: 41,3743           00006                           EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
021375,003830: 41,3744           02012                           RAND     CHAN12                                
021376,003831: 41,3745           64735                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
021377,003832: 41,3746           55035                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
021378,003833: 41,3747           43772                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
021379,003834: 41,3750           71300                           MASK     IMODES33                              #  LIGHTS COMPLETE.
021380,003835: 41,3751           65026                           AD       PRIO16                                
021381,003836: 41,3752           55300                           TS       IMODES33                              
021382,003837: 
021383,003838: 41,3753           43774                           CS       OCT55000                              
021384,003839: 41,3754           71277                           MASK     IMODES30                              
021385,003840: 41,3755           65025                           AD       PRIO15                                #  15000.
021386,003841: 41,3756           55277                           TS       IMODES30                              
021387,003842: 
021388,003843: 41,3757           43773                           CS       RFAILS2                               
021389,003844: 41,3760           70110                           MASK     RADMODES                              
021390,003845: 41,3761           64745                           AD       RCDUFBIT                              
021391,003846: 41,3762           54110                           TS       RADMODES                              
021392,003847: 
021393,003848: 41,3763           00003                           RELINT                                         
021394,003849: 
021395,003850: 41,3764           04616                           TC       BANKCALL                              #  REDISPLAY C(MODREG)
021396,003851: 41,3765           10630                           CADR     DSPMM                                 

Page 477

021398,003853: 41,3766           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
021399,003854: 41,3767           04433                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
021400,003855: 41,3770           04635                           TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
021401,003856: 41,3771           61531                           CADR     TSTLTS4                               #   ENDIDLE IS AWAITING OPERATOR RESPONSE.
021402,003857: 41,3772           16001        13-11,1            OCT      16001                                 
021403,003858: 41,3773           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
021404,003859: 41,3774           55000        OCT55000           OCT      55000                                 
021405,003860: 41,3775                        ENDPINS2           EQUALS                                         
021406,003861: 

Page 478

021408,003863:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
021409,003864:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
021410,003865:                                                                                                  #  PROG ALM, TRACKER FAIL.
021411,003866:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
021412,003867:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
021413,003868:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
021414,003869:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
021415,003870: 
021416,003871: 40,3643                                           SETLOC   DOPROC     +2                         
021417,003872: 40,3643                                           COUNT*   $$/PIN                                
021418,003873: 40,3643           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
021419,003874: 40,3644           55011                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
021420,003875: 40,3645           00004                           INHINT                                         
021421,003876: 40,3646           34742                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
021422,003877: 40,3647           00006                           EXTEND                                         
021423,003878: 40,3650           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
021424,003879: 40,3651           33732                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK, NO ATT INTACT,
021425,003880: 40,3652           71035                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
021426,003881: 40,3653           64735                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
021427,003882: 40,3654           55035                           TS       DSPTAB     +11D                       
021428,003883: 40,3655           45026                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
021429,003884: 40,3656           71300                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
021430,003885: 40,3657           65026                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
021431,003886: 40,3660           55300                           TS       IMODES33                              
021432,003887: 40,3661           44742                           CS       BIT10                                 
021433,003888: 40,3662           71277                           MASK     IMODES30                              
021434,003889: 40,3663           64742                           AD       BIT10                                 
021435,003890: 40,3664           55277                           TS       IMODES30                              
021436,003891: 
021437,003892: 40,3665           43731                           CS       RFAILS                                
021438,003893: 40,3666           70110                           MASK     RADMODES                              
021439,003894: 40,3667           64745                           AD       RCDUFBIT                              
021440,003895: 40,3670           54110                           TS       RADMODES                              
021441,003896: 
021442,003897: 40,3671           06022                           TC       C13STALL                              
021443,003898: 40,3672           44742                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
021444,003899: 40,3673           00006                           EXTEND                                         
021445,003900: 40,3674           03013                           WAND     CHAN13                                
021446,003901: 40,3675           43730                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
021447,003902: 40,3676           00006                           EXTEND                                         #  OPERATOR ERROR.
021448,003903: 40,3677           03011                           WAND     DSALMOUT                              
021449,003904: 40,3700           34363        TSTAB              CAF      BINCON                                #  (DEC 10)
021450,003905: 40,3701           54117                           TS       ERCNT                                 #  ERCNT = COUNT
021451,003906: 40,3702           00004                           INHINT                                         
021452,003907: 40,3703           50117                           INDEX    ERCNT                                 
021453,003908: 40,3704           11022                           CCS      DSPTAB                                
021454,003909: 40,3705           64753                           AD       ONE                                   
021455,003910: 40,3706           03713                           TC       ERPLUS                                
021456,003911: 40,3707           64753                           AD       ONE                                   
021457,003912: 40,3710           40000        ERMINUS            CS       A                                     

Page 479

021459,003914: 40,3711           73733                           MASK     NOTBIT12                              
021460,003915: 40,3712           03716                           TC       ERCOM                                 
021461,003916: 40,3713           40000        ERPLUS             CS       A                                     
021462,003917: 40,3714           73733                           MASK     NOTBIT12                              
021463,003918: 40,3715           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
021464,003919: 40,3716           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
021465,003920: 40,3717           55022                           TS       DSPTAB                                
021466,003921: 40,3720           00003                           RELINT                                         
021467,003922: 40,3721           10117                           CCS      ERCNT                                 
021468,003923: 40,3722           03701                           TC       TSTAB      +1                         
021469,003924: 40,3723           34755                           CAF      ZERO                                  
021470,003925: 40,3724           54375                           TS       FAILREG                               
021471,003926: 40,3725           54376                           TS       FAILREG    +1                         
021472,003927: 40,3726           55357                           TS       SFAIL                                 
021473,003928: 40,3727           05155                           TC       ENDOFJOB                              
021474,003929: 
021475,003930: 40,3730           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
021476,003931:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
021477,003932: 40,3731           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
021478,003933: 40,3732           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS
021479,003934: 40,3733           73777        NOTBIT12           OCT      73777                                 
021480,003935: 
021481,003936: 
021482,003937: 40,3734                        ENDPINS1           EQUALS                                         
021483,003938: 
021484,003939: 
021485,003940: 40,3734  30,2000                                  SBANK=   LOWSUPER                              

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