Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

017563,000002:                                                                                                  ## Copyright:   Public domain.
017564,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
017565,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
017566,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
017567,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
017568,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
017569,000008:                                                                                                  ##              that the code format has been changed to conform to the
017570,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
017571,000010:                                                                                                  ##              original YUL assembler.
017572,000011:                                                                                                  ## Reference:   pp. 402-486
017573,000012:                                                                                                  ## Assembler:   yaYUL
017574,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
017575,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
017576,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
017577,000016:                                                                                                  ##              2016-11-18 MAS  Started corrections.
017578,000017:                                                                                                  ##              2016-11-20 MAS  Completed. Mostly comments, bank movements,
017579,000018:                                                                                                  ##                              and minor changes related to new lights.
017580,000019:                                                                                                  ##              2016-12-07 HG   Fix P00 -> POO
017581,000020:                                                                                                  ##              2016-12-23 RSB  Proofed comment text with octopus/ProoferComments
017582,000021:                                                                                                  ##                              and fixed all errors found.
017583,000022:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
017584,000023:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
017585,000024:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
017586,000025:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
017587,000026:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
017588,000027:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
017589,000028:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
017590,000029:                                                                                                  ##                              Luminary 99 vs Comanche 55.
017591,000030: 

Page 402

017593,000032:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
017594,000033:                                                                                                  #  MOD NO - 4      DATE - 27 APRIL 1967      ASSEMBLY - PINDANCE REV 18
017595,000034:                                                                                                  #  MOD BY - FILENE
017596,000035:                                                                                                  #  LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
017597,000036: 
017598,000037:                                                                                                  #  FUNCTIONAL DESCRIPTION-
017599,000038: 
017600,000039:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
017601,000040:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
017602,000041:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
017603,000042:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
017604,000043:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
017605,000044:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
017606,000045:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
017607,000046:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
017608,000047:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
017609,000048: 
017610,000049:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
017611,000050:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
017612,000051:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
017613,000052:                                                                                                  #  :EXTENDED VERBS:).
017614,000053:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
017615,000054:                                                                                                  #  OPERATION INFORMATION:.
017616,000055: 
017617,000056: 
017618,000057:                                                                                                  #  CALLING SEQUENCES-
017619,000058: 
017620,000059:                                                                                                  #  KEYBOARD:
017621,000060:                                                                                                  #     EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
017622,000061:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
017623,000062:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
017624,000063:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
017625,000064: 
017626,000065:                                                                                                  #  UPLINK:
017627,000066:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
017628,000067:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
017629,000068:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
017630,000069: 
017631,000070:                                                                                                  #  INTERNAL PROGRAMS:
017632,000071:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
017633,000072:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
017634,000073:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
017635,000074:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
017636,000075: 
017637,000076: 
017638,000077:                                                                                                  #  NORMAL EXIT MODES-
017639,000078: 
017640,000079:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
017641,000080:                                                                                                  #           1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
017642,000081:                                                                                                  #           2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE

Page 403

017644,000083:                                                                                                  #              PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
017645,000084:                                                                                                  #              RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
017646,000085:                                                                                                  #              CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
017647,000086:                                                                                                  #              ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
017648,000087:                                                                                                  #           3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
017649,000088:                                                                                                  #              SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
017650,000089:                                                                                                  #              30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
017651,000090:                                                                                                  #           4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
017652,000091:                                                                                                  #              ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
017653,000092:                                                                                                  #              THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
017654,000093: 
017655,000094:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
017656,000095:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
017657,000096:                                                                                                  #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
017658,000097: 
017659,000098: 
017660,000099:                                                                                                  #  ALARM OR ABORT EXIT MODES-
017661,000100: 
017662,000101:                                                                                                  #  EXTERNAL INITIATION:
017663,000102:                                                                                                  #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
017664,000103:                                                                                                  #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
017665,000104: 
017666,000105:                                                                                                  #  INTERNAL PROGRAM INITIATION:
017667,000106:                                                                                                  #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
017668,000107:                                                                                                  #  (WITH OCTAL 01501).
017669,000108:                                                                                                  #     IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
017670,000109:                                                                                                  #  CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
017671,000110:                                                                                                  #           1) ENDIDLE OR DATAWAIT.
017672,000111:                                                                                                  #           2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
017673,000112: 
017674,000113:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
017675,000114:                                                                                                  #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
017676,000115: 
017677,000116: 
017678,000117:                                                                                                  #  OUTPUT-
017679,000118: 
017680,000119:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
017681,000120:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
017682,000121:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
017683,000122:                                                                                                  #  IN INTERRUPT.
017684,000123: 
017685,000124: 
017686,000125:                                                                                                  #  ERASABLE INITIALIZATION-
017687,000126: 
017688,000127:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
017689,000128:                                                                                                  #  PINBALL IN :STARTSUB:.   REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
017690,000129:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
017691,000130:                                                                                                  #  DSPCOUNT, NOUT.
017692,000131: 
017693,000132:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR

Page 404

017695,000134:                                                                                                  #  PINBALL IS GIVEN BELOW.
017696,000135: 
017697,000136: 
017698,000137:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
017699,000138: 
017700,000139:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
017701,000140:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
017702,000141: 
017703,000142:                                                                                                  #     NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
017704,000143:                                                                                                  #               OF RELATED INTEREST   NVSBWAIT
017705,000144:                                                                                                  #                                     NVSUBUSY
017706,000145:                                                                                                  #                                     PRENVBSY
017707,000146: 
017708,000147:                                                                                                  #     ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
017709,000148:                                                                                                  #               AWAITING OPERATORS RESPONSE.
017710,000149: 
017711,000150:                                                                                                  #     DSPMM   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
017712,000151:                                                                                                  #             PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
017713,000152:                                                                                                  #             (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
017714,000153:                                                                                                  #             FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
017715,000154: 
017716,000155:                                                                                                  #     BLANKSUB   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
017717,000156:                                                                                                  #                COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
017718,000157: 
017719,000158:                                                                                                  #     JAMTERM   ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
017720,000159:                                                                                                  #     JAMPROC   TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
017721,000160: 
017722,000161:                                                                                                  #     MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
017723,000162: 
017724,000163:                                                                                                  #     PLEASE PERFORM, PLEASE MARK SITUATIONS
017725,000164:                                                                                                  #                  REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
017726,000165:                                                                                                  #                  THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
017727,000166:                                                                                                  #                  SYMBOL TABLE FOR PAGE NUMBER).
017728,000167: 
017729,000168:                                                                                                  #     THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
017730,000169:                                                                                                  #     BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
017731,000170: 
017732,000171:                                                                                                  #     THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
017733,000172:                                                                                                  #     TABLES:.
017734,000173: 
017735,000174: 
017736,000175:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
017737,000176:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
017738,000177:                                                                                                  #  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.)

017741,000180: 
017742,000181: 
017743,000182:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
017744,000183: 
017745,000184:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
017746,000185:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO

Page 405

017748,000187:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
017749,000188: 
017750,000189:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4
017751,000190: 
017752,000191: 
017753,000192:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
017754,000193: 
017755,000194: 
017756,000195:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
017757,000196: 
017758,000197:                                                                                                  #  DSPCOUNT ERASE                  DISPLAY POSITION INDICATOR
017759,000198:                                                                                                  #  DECBRNCH ERASE                  +DEC, - DEC, OCT INDICATOR
017760,000199:                                                                                                  #  VERBREG  ERASE                  VERB CODE
017761,000200:                                                                                                  #  NOUNREG  ERASE                  NOUN CODE
017762,000201:                                                                                                  #  XREG     ERASE                  R1 INPUT BUFFER
017763,000202:                                                                                                  #  YREG     ERASE                  R2 INPUT BUFFER
017764,000203:                                                                                                  #  ZREG     ERASE                  R3 INPUT BUFFER
017765,000204:                                                                                                  #  XREGLP   ERASE                  LO PART OF XREG (FOR DEC CONV ONLY)
017766,000205:                                                                                                  #  YREGLP   ERASE                  LO PART OF YREG (FOR DEC CONV ONLY)
017767,000206:                                                                                                  #  HITEMOUT =      YREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
017768,000207:                                                                                                  #                                           MUST = LOTEMOUT-1.
017769,000208:                                                                                                  #  ZREGLP   ERASE                  LO PART OF ZREG (FOR DEC CONV ONLY)
017770,000209:                                                                                                  #  LOTEMOUT =      ZREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
017771,000210:                                                                                                  #                                           MUST = HITEMOUT+1.
017772,000211:                                                                                                  #  MODREG   ERASE                  MODE CODE
017773,000212:                                                                                                  #  DSPLOCK  ERASE                  KEYBOARD/SUBROUTINE CALL INTERLOCK
017774,000213:                                                                                                  #  REQRET   ERASE                  RETURN REGISTER FOR LOAD
017775,000214:                                                                                                  #  LOADSTAT ERASE                  STATUS INDICATOR FOR LOADTST
017776,000215:                                                                                                  #  CLPASS   ERASE                  PASS INDICATOR CLEAR
017777,000216:                                                                                                  #  NOUT     ERASE                  ACTIVITY COUNTER FOR DSPTAB
017778,000217:                                                                                                  #  NOUNCADR ERASE                  MACHINE CADR FOR NOUN
017779,000218:                                                                                                  #  MONSAVE  ERASE                  N/V CODE FOR MONITOR. (= MONSAVE1-1)
017780,000219:                                                                                                  #  MONSAVE1 ERASE                  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
017781,000220:                                                                                                  #  MONSAVE2 ERASE                  NVMONOPT OPTIONS
017782,000221:                                                                                                  #  DSPTAB   ERASE          +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
017783,000222:                                                                                                  #  CADRSTOR ERASE                  ENDIDLE STORAGE
017784,000223:                                                                                                  #  NVQTEM   ERASE                  NVSUB STORAGE FOR CALLING ADDRESS
017785,000224:                                                                                                  #                                  MUST = NVBNKTEM-1
017786,000225:                                                                                                  #  NVBNKTEM ERASE                  NVSUB STORAGE FOR CALLING BANK
017787,000226:                                                                                                  #                                  MUST = NVQTEM+1
017788,000227:                                                                                                  #  VERBSAVE ERASE                  NEEDED FOR RECYCLE
017789,000228:                                                                                                  #  DSPLIST  ERASE                  WAITING REG FOR DSP SYST INTERNAL USE
017790,000229:                                                                                                  #  EXTVBACT REASE                  EXTENDED VERB ACTIVITY INTERLOCK
017791,000230:                                                                                                  #  DSPTEM1  ERASE          +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
017792,000231:                                                                                                  #  DSPTEM2  ERASE          +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
017793,000232:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
017794,000233: 
017795,000234: 
017796,000235:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION

Page 406

017798,000237:                                                                                                  #  DSEXIT   =      INTB15+         RETURN FOR DSPIN
017799,000238:                                                                                                  #  EXITEM   =      INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
017800,000239:                                                                                                  #  BLANKRET =      INTB15+         RETURN FOR 2BLANK
017801,000240: 
017802,000241:                                                                                                  #  WRDRET   =      INTBIT15        RETURN FOR 5BLANK
017803,000242:                                                                                                  #  WDRET    =      INTBIT15        RETURN FOR DSPWD
017804,000243:                                                                                                  #  DECRET   =      INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
017805,000244:                                                                                                  #  21/22REG =      INTBIT15        TEMP FOR CHARIN
017806,000245: 
017807,000246:                                                                                                  #  UPDATRET =      POLISH          RETURN FOR UPDATNN, UPDATVB
017808,000247:                                                                                                  #  CHAR     =      POLISH          TEMP FOR CHARIN
017809,000248:                                                                                                  #  ERCNT    =      POLISH          COUNTER FOR ERROR LIGHT RESET
017810,000249:                                                                                                  #  DECOUNT  =      POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
017811,000250: 
017812,000251:                                                                                                  #  SGNON    =      VBUF            TEMP FOR +,- ON
017813,000252:                                                                                                  #  NOUNTEM  =      VBUF            COUNTER FOR MIXNOUN FETCH
017814,000253:                                                                                                  #  DISTEM   =      VBUF            COUNTER FOR OCTAL DISPLAY VERBS
017815,000254:                                                                                                  #  DECTEM   =      VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
017816,000255: 
017817,000256:                                                                                                  #  SGNOFF   =      VBUF    +1      TEMP FOR +,- ON
017818,000257:                                                                                                  #  NVTEMP   =      VBUF    +1      TEMP FOR NVSUB
017819,000258:                                                                                                  #  SFTEMP1  =      VBUF    +1      STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
017820,000259:                                                                                                  #  HITEMIN  =      VBUF    +1      TEMP FOR LOAD OF HRS, MIN, SEC
017821,000260:                                                                                                  #                                           MUST = LOTEMIN-1.
017822,000261:                                                                                                  #  CODE     =      VBUF    +2      FOR DSPIN
017823,000262:                                                                                                  #  SFTEMP2  =      VBUF    +2      STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
017824,000263:                                                                                                  #  LOTEMIN  =      VBUF    +2      TEMP FOR LOAD OF HRS, MIN, SEC
017825,000264:                                                                                                  #                                           MUST = HITEMIN+1.
017826,000265:                                                                                                  #  MIXTEMP  =      VBUF    +3      FOR MIXNOUN DATA
017827,000266:                                                                                                  #  SIGNRET  =      VBUF    +3      RETURN FOR +,- ON
017828,000267: 
017829,000268:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
017830,000269: 
017831,000270:                                                                                                  #  ENTRET   =      DOTINC          EXIT FROM ENTER
017832,000271: 
017833,000272:                                                                                                  #  WDCNT    =      DOTRET          CHAR COUNTER FOR DSPWD
017834,000273:                                                                                                  #  INREL    =      DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
017835,000274: 
017836,000275:                                                                                                  #  DSPMMTEM =      MATINC          DSPCOUNT SAVE FOR DSPMM
017837,000276:                                                                                                  #  MIXBR    =      MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
017838,000277: 
017839,000278:                                                                                                  #  TEM1     ERASE                  EXEC TEMP
017840,000279:                                                                                                  #  DSREL    =      TEM1            REL ADDRESS FOR DSPIN
017841,000280: 
017842,000281:                                                                                                  #  TEM2     ERASE                  EXEC TEMP
017843,000282:                                                                                                  #  DSMAG    =      TEM2            MAGNITUDE STORE FOR DSPIN
017844,000283:                                                                                                  #  IDADDTEM =      TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
017845,000284: 
017846,000285:                                                                                                  #  TEM3     ERASE                  EXEC TEMP
017847,000286:                                                                                                  #  COUNT    =      TEM3            FOR DSPIN
017848,000287: 

Page 407

017850,000289:                                                                                                  #  TEM4     ERASE                  EXEC TEMP
017851,000290:                                                                                                  #  LSTPTR   =      TEM4            LIST POINTER FOR GRABUSY
017852,000291:                                                                                                  #  RELRET   =      TEM4            RETURN FOR RELDSP
017853,000292:                                                                                                  #  FREERET  =      TEM4            RETURN FOR FREEDSP
017854,000293:                                                                                                  #  DSPWDRET =      TEM4            RETURN FOR DSPSIGN
017855,000294:                                                                                                  #  SEPSCRET =      TEM4            RETURN FOR SEPSEC
017856,000295:                                                                                                  #  SEPMNRET =      TEM4            RETURN FOR SEPMIN
017857,000296: 
017858,000297:                                                                                                  #  TEM5     ERASE                  EXEC TEMP
017859,000298:                                                                                                  #  NOUNADD  =      TEM5            TEMP STORAGE FOR NOUN ADDRESS
017860,000299: 
017861,000300:                                                                                                  #  NNADTEM  ERASE                  TEMP FOR NOUN ADDRESS TABLE ENTRY
017862,000301:                                                                                                  #  NNTYPTEM ERASE                  TEMP FOR NOUN TYPE TABLE ENTRY
017863,000302:                                                                                                  #  IDAD1TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017864,000303:                                                                                                  #                                  MUST = IDAD2TEM-1, = IDAD3TEM-2.
017865,000304:                                                                                                  #  IDAD2TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017866,000305:                                                                                                  #                                  MUST = IDAD1TEM+1, = IDAD3TEM-1.
017867,000306:                                                                                                  #  IDAD3TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017868,000307:                                                                                                  #                                  MUST = IDAD1TEM+2, = IDAD2TEM+1.
017869,000308:                                                                                                  #  RUTMXTEM ERASE                  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
017870,000309:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017871,000310: 
017872,000311: 
017873,000312:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017874,000313: 
017875,000314:                                                                                                  #  MPAC, THRU MPAC +6
017876,000315:                                                                                                  #  BUF, +1, +2
017877,000316:                                                                                                  #  BUF2, +1, +2
017878,000317:                                                                                                  #  MPTEMP
017879,000318:                                                                                                  #  ADDRWD
017880,000319:                                                                                                  #    END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
017881,000320: 
017882,000321: 
017883,000322:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
017884,000323: 
017885,000324:                                                                                                  #  DSPCNT   ERASE                  COUNTER FOR DSPOUT
017886,000325:                                                                                                  #  UPLOCK   ERASE                  BIT1 = UPLINK INTERLOCK (ACTIVATED BY
017887,000326:                                                                                                  #                                                                          RECEPTION OF A BAD MESSAGE IN UPLINK)
017888,000327:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
017889,000328: 
017890,000329: 
017891,000330:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
017892,000331: 
017893,000332:                                                                                                  #  KEYTEMP1 =      WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
017894,000333:                                                                                                  #  DSRUPTEM =      WAITEXIT        TEMP FOR DSPOUT
017895,000334:                                                                                                  #  KEYTEMP2 =      RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
017896,000335:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
017897,000336: 

Page 408

017899,000338:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
017900,000339:                                                                                                  #  0        10000
017901,000340:                                                                                                  #  1        00001
017902,000341:                                                                                                  #  9        01001
017903,000342:                                                                                                  #  VERB     10001
017904,000343:                                                                                                  #  ERROR RES10010
017905,000344:                                                                                                  #  KEY RLSE 11001
017906,000345:                                                                                                  #  +        11010
017907,000346:                                                                                                  #  -        11011
017908,000347:                                                                                                  #  ENTER    11100
017909,000348:                                                                                                  #  CLEAR    11110
017910,000349:                                                                                                  #  NOUN     11111

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

017912,000351: 
017913,000352: 
017914,000353:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
017915,000354:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
017916,000355:                                                                                                  #  ENERGIZED.
017917,000356:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
017918,000357:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
017919,000358:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
017920,000359: 
017921,000360:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
017922,000361:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
017923,000362:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
017924,000363:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
017925,000364:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
017926,000365:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
017927,000366: 
017928,000367:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
017929,000368:                                                                                                  #  MD1   25     R2D1    11       ALL ARE OCTAL
017930,000369:                                                                                                  #  MD2   24     R2D2    10
017931,000370:                                                                                                  #  VD1   23     R2D3    7
017932,000371:                                                                                                  #  VD2   22     R2D4    6
017933,000372:                                                                                                  #  ND1   21     R2D5    5
017934,000373:                                                                                                  #  ND2   20     R3D1    4
017935,000374:                                                                                                  #  R1D1  16     R3D2    3
017936,000375:                                                                                                  #  R1D2  15     R3D3    2
017937,000376:                                                                                                  #  R1D3  14     R3D4    1
017938,000377:                                                                                                  #  R1D4  13     R3D5    0
017939,000378:                                                                                                  #  R1D5  12
017940,000379: 
017941,000380: 
017942,000381:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
017943,000382: 
017944,000383:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
017945,000384:                                                                                                  #  RELADD
017946,000385:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
017947,000386:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)
017948,000387:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
017949,000388:                                                                                                  #  7      1000                                  R1D1 (16)

Page 409

017951,000390:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
017952,000391:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
017953,000392:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
017954,000393:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
017955,000394:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
017956,000395:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
017957,000396:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
017958,000397:                                                                                                  #         0000   NO RELAYWORD
017959,000398: 
017960,000399: 
017961,000400:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
017962,000401:                                                                                                  #  BLANK      00000
017963,000402:                                                                                                  #  0          10101
017964,000403:                                                                                                  #  1          00011
017965,000404:                                                                                                  #  2          11001
017966,000405:                                                                                                  #  3          11011
017967,000406:                                                                                                  #  4          01111
017968,000407:                                                                                                  #  5          11110
017969,000408:                                                                                                  #  6          11100
017970,000409:                                                                                                  #  7          10011
017971,000410:                                                                                                  #  8          11101
017972,000411:                                                                                                  #  9          11111
017973,000412: 
017974,000413: 
017975,000414:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
017976,000415: 
017977,000416:                                                                                                  #             KEY RELEASE LIGHT    - BIT 5 OF CHANNEL 11
017978,000417:                                                                                                  #             VERB/NOUN FLASH      - BIT 6 OF CHANNEL 11
017979,000418:                                                                                                  #             OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
017980,000419: 

Page 410

017982,000421:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
017983,000422: 40,2057                                           BANK     40                                    
017984,000423: 40,2000                                           SETLOC   PINBALL1                              
017985,000424: 40,2000                                           BANK                                           
017986,000425: 
017987,000426: 40,2057                                           COUNT*   $$/PIN                                
017988,000427: 40,2057           34744        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
017989,000428: 40,2060           57011                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
017990,000429: 40,2061           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
017991,000430: 40,2062           11041                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
017992,000431: 40,2063           02065                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
017993,000432: 40,2064           02072                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
017994,000433: 40,2065           42136                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
017995,000434: 40,2066           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
017996,000435: 40,2067           00006                           EXTEND                                         #  VBRELDSP).
017997,000436: 40,2070           12072                           BZF      CHARIN2                               
017998,000437: 40,2071           04365                           TC       RELDSPON                              
017999,000438: 40,2072           56154        CHARIN2            XCH      MPAC                                  
018000,000439: 40,2073           54117                           TS       CHAR                                  
018001,000440: 40,2074           50000                           INDEX    A                                     
018002,000441: 40,2075           02076                           TC       +1                                    #  INPUT CODE     FUNCTION
018003,000442: 40,2076           03463                           TC       CHARALRM                              #  0
018004,000443: 40,2077           02155                           TC       NUM                                   #  1
018005,000444: 40,2100           02155                           TC       NUM                                   #  2
018006,000445: 40,2101           02155                           TC       NUM                                   #  3
018007,000446: 40,2102           02155                           TC       NUM                                   #  4
018008,000447: 40,2103           02155                           TC       NUM                                   #  5
018009,000448: 40,2104           02155                           TC       NUM                                   #  6
018010,000449: 40,2105           02155                           TC       NUM                                   #  7
018011,000450: 40,2106           02141                           TC       89TEST                                #  10                 8
018012,000451: 40,2107           02141                           TC       89TEST                                #  11                 9
018013,000452: 40,2110           03463                           TC       CHARALRM                              #  12
018014,000453: 40,2111           03463                           TC       CHARALRM                              #  13
018015,000454: 40,2112           03463                           TC       CHARALRM                              #  14
018016,000455: 40,2113           03463                           TC       CHARALRM                              #  15
018017,000456: 40,2114           03463                           TC       CHARALRM                              #  16
018018,000457: 40,2115           03463                           TC       CHARALRM                              #  17
018019,000458: 40,2116           02153                           TC       NUM        -2                         #  20                 0
018020,000459: 40,2117           02343                           TC       VERB                                  #  21                 VERB
018021,000460: 40,2120           03646                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
018022,000461: 40,2121           03463                           TC       CHARALRM                              #  23
018023,000462: 40,2122           03463                           TC       CHARALRM                              #  24
018024,000463: 40,2123           03463                           TC       CHARALRM                              #  25
018025,000464: 40,2124           03463                           TC       CHARALRM                              #  26
018026,000465: 40,2125           03463                           TC       CHARALRM                              #  27
018027,000466: 40,2126           03463                           TC       CHARALRM                              #  30
018028,000467: 40,2127           03517                           TC       VBRELDSP                              #  31                 KEY RELEASE
018029,000468: 40,2130           02376                           TC       POSGN                                 #  32                 +

Page 411

018031,000470: 40,2131           02363                           TC       NEGSGN                                #  33                 -
018032,000471: 40,2132           02137                           TC       ENTERJMP                              #  34                 ENTER
018033,000472: 40,2133           03463                           TC       CHARALRM                              #  35
018034,000473: 40,2134           02456                           TC       CLEAR                                 #  36                 CLEAR
018035,000474: 40,2135           02357                           TC       NOUN                                  #  37                 NOUN
018036,000475: 
018037,000476: 40,2136           00022        ELRCODE1           OCT      22                                    
018038,000477: 40,2137           04626        ENTERJMP           TC       POSTJUMP                              
018039,000478: 40,2140           62022                           CADR     ENTER                                 
018040,000479: 
018041,000480: 40,2141           10776        89TEST             CCS      DSPCOUNT                              
018042,000481: 40,2142           02146                           TC       +4                                    #  +
018043,000482: 40,2143           02146                           TC       +3                                    #  +0
018044,000483: 40,2144           05146                           TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
018045,000484: 40,2145           05146                           TC       ENDOFJOB                              #  -0
018046,000485: 40,2146           36266                           CAF      THREE                                 
018047,000486: 40,2147           70777                           MASK     DECBRNCH                              
018048,000487: 40,2150           10000                           CCS      A                                     
018049,000488: 40,2151           02155                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
018050,000489: 40,2152           03463                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
018051,000490: 
018052,000491: 
018053,000492:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
018054,000493:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
018055,000494:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
018056,000495:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
018057,000496:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
018058,000497:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
018059,000498: 
018060,000499: 40,2153           34746                           CAF      ZERO                                  
018061,000500: 40,2154           54117                           TS       CHAR                                  
018062,000501: 40,2155           10776        NUM                CCS      DSPCOUNT                              
018063,000502: 40,2156           02162                           TC       +4                                    #  +
018064,000503: 40,2157           02162                           TC       +3                                    #  +0
018065,000504: 40,2160           02161                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
018066,000505: 40,2161           05146                           TC       ENDOFJOB                              #  -0
018067,000506: 40,2162           02313                           TC       GETINREL                              
018068,000507: 40,2163           11014                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
018069,000508: 40,2164           34746                           CAF      ZERO                                  
018070,000509: 40,2165           55014                           TS       CLPASS                                
018071,000510: 40,2166           02167                           TC       +1                                    
018072,000511: 40,2167           50117                           INDEX    CHAR                                  
018073,000512: 40,2170           34066                           CAF      RELTAB                                
018074,000513: 40,2171           74337                           MASK     LOW5                                  
018075,000514: 40,2172           54124                           TS       CODE                                  
018076,000515: 40,2173           30776                           CA       DSPCOUNT                              
018077,000516: 40,2174           54143                           TS       COUNT                                 
018078,000517: 40,2175           03351                           TC       DSPIN                                 
018079,000518: 40,2176           36266                           CAF      THREE                                 

Page 412

018081,000520: 40,2177           70777                           MASK     DECBRNCH                              
018082,000521: 40,2200           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
018083,000522: 40,2201           02212                           TC       DECTOBIN                              #  +
018084,000523: 40,2202           50137                           INDEX    INREL                                 #  +0 OCTAL
018085,000524: 40,2203           57000                           XCH      VERBREG                               
018086,000525: 40,2204           54022                           TS       CYL                                   
018087,000526: 40,2205           40022                           CS       CYL                                   
018088,000527: 40,2206           40022                           CS       CYL                                   
018089,000528: 40,2207           56022                           XCH      CYL                                   
018090,000529: 40,2210           60117                           AD       CHAR                                  
018091,000530: 40,2211           02227                           TC       ENDNMTST                              
018092,000531: 40,2212           50137        DECTOBIN           INDEX    INREL                                 
018093,000532: 40,2213           57000                           XCH      VERBREG                               
018094,000533: 40,2214           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
018095,000534: 40,2215           34746                           CAF      ZERO                                  
018096,000535: 40,2216           54155                           TS       MPAC       +1                         
018097,000536: 40,2217           34354                           CAF      TEN                                   #  10 X 2EXP-14
018098,000537: 40,2220           07330                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
018099,000538: 40,2221           56155                           XCH      MPAC       +1                         
018100,000539: 40,2222           60117                           AD       CHAR                                  
018101,000540: 40,2223           54155                           TS       MPAC       +1                         
018102,000541: 40,2224           02227                           TC       ENDNMTST                              #  NO OF
018103,000542: 40,2225           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
018104,000543: 40,2226           02245                           TC       DECCEND                               
018105,000544: 40,2227           50137        ENDNMTST           INDEX    INREL                                 
018106,000545: 40,2230           55000                           TS       VERBREG                               
018107,000546: 40,2231           40776                           CS       DSPCOUNT                              
018108,000547: 40,2232           50137                           INDEX    INREL                                 
018109,000548: 40,2233           62304                           AD       CRITCON                               
018110,000549: 40,2234           00006                           EXTEND                                         
018111,000550: 40,2235           12237                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
018112,000551: 40,2236           02301                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
018113,000552: 40,2237           36266        ENDNUM             CAF      THREE                                 
018114,000553: 40,2240           70777                           MASK     DECBRNCH                              
018115,000554: 40,2241           10000                           CCS      A                                     
018116,000555: 40,2242           02245                           TC       DECCEND                               
018117,000556: 40,2243           40776        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
018118,000557: 40,2244           02302                           TC       MORNUM     +1                         #  NEGATIVELY
018119,000558: 40,2245           04607        DECCEND            TC       BANKCALL                              
018120,000559: 40,2246           60250                           CADR     DECEND                                
018121,000560: 40,2247           02243                           TC       ENDALL                                
018122,000561: 40,2250           44744        DECEND             CS       ONE                                   
018123,000562: 40,2251           60137                           AD       INREL                                 
018124,000563: 40,2252           00006                           EXTEND                                         
018125,000564: 40,2253           62243                           BZMF     ENDALL                                #  IF INREL=0,1(VBREG,NNREG), LEAVE WHOLE
018126,000565: 40,2254           02313                           TC       GETINREL                              
018127,000566: 40,2255           50137                           INDEX    INREL                                 
018128,000567: 40,2256           31000                           CA       VERBREG                               
018129,000568: 40,2257           54155                           TS       MPAC       +1                         
018130,000569: 40,2260           07124                           TC       DMP                                   #  IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC

Page 413

018132,000571:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
018133,000572: 40,2261           02311                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
018134,000573: 40,2262           36266                           CAF      THREE                                 #  IN MPAC, +1, +2.
018135,000574: 40,2263           70777                           MASK     DECBRNCH                              
018136,000575: 40,2264           50000                           INDEX    A                                     
018137,000576: 40,2265           02265                           TC       +0                                    
018138,000577: 40,2266           02272                           TC       +DECSGN                               
018139,000578: 40,2267           00006                           EXTEND                                         #  - CASE
018140,000579: 40,2270           40156                           DCS      MPAC       +1                         
018141,000580: 40,2271           52156                           DXCH     MPAC       +1                         
018142,000581: 40,2272           56156        +DECSGN            XCH      MPAC       +2                         
018143,000582: 40,2273           50137                           INDEX    INREL                                 
018144,000583: 40,2274           55003                           TS       XREGLP     -2                         
018145,000584: 40,2275           56155                           XCH      MPAC       +1                         
018146,000585: 40,2276           50137                           INDEX    INREL                                 
018147,000586: 40,2277           55000                           TS       VERBREG                               
018148,000587: 40,2300           04622                           TC       SWRETURN                              
018149,000588: 40,2301           10776        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
018150,000589: 40,2302           54776                           TS       DSPCOUNT                              
018151,000590: 40,2303           05146                           TC       ENDOFJOB                              
018152,000591: 
018153,000592: 40,2304           00022        CRITCON            OCT      22                                    #  (DEC 18)
018154,000593: 40,2305           00020                           OCT      20                                    #  (DEC 16)
018155,000594: 40,2306           00012                           OCT      12                                    #  (DEC 10)
018156,000595: 40,2307           00005                           OCT      5                                     
018157,000596: 40,2310           00000                           OCT      0                                     
018158,000597: 
018159,000598: 40,2311           05174 13261  DECON              2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
018160,000599: 
018161,000600: 
018162,000601: 
018163,000602:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
018164,000603:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
018165,000604: 
018166,000605: 40,2313           50776        GETINREL           INDEX    DSPCOUNT                              
018167,000606: 40,2314           32317                           CAF      INRELTAB                              
018168,000607: 40,2315           54137                           TS       INREL                                 #  (A TEMP, REG)
018169,000608: 40,2316           00002                           TC       Q                                     
018170,000609: 
018171,000610: 40,2317           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
018172,000611: 40,2320           00004                           OCT      4                                     #  R3D4           =(1)
018173,000612: 40,2321           00004                           OCT      4                                     #  R3D3           =(2)
018174,000613: 40,2322           00004                           OCT      4                                     #  R3D2           =(3)
018175,000614: 40,2323           00004                           OCT      4                                     #  R3D1           =(4)
018176,000615: 40,2324           00003                           OCT      3                                     #  R2D5           =(5)
018177,000616: 40,2325           00003                           OCT      3                                     #  R2D4           =(6)
018178,000617: 40,2326           00003                           OCT      3                                     #  R2D3           =(7)
018179,000618: 40,2327           00003                           OCT      3                                     #  R2D2           =(8D)
018180,000619: 40,2330           00003                           OCT      3                                     #  R2D1           =(9D)
018181,000620: 40,2331           00002                           OCT      2                                     #  R1D5           =(10D)

Page 414

018183,000622: 40,2332           00002                           OCT      2                                     #  R1D4           =(11D)
018184,000623: 40,2333           00002                           OCT      2                                     #  R1D3           =(12D)
018185,000624: 40,2334           00002                           OCT      2                                     #  R1D2           =(13D)
018186,000625: 40,2335           00002                           OCT      2                                     #  R1D1           =(14D)
018187,000626: 40,2336           05701                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
018188,000627: 40,2337           00001                           OCT      1                                     #  ND2            =(16D)
018189,000628: 40,2340           00001                           OCT      1                                     #  ND1            =(17D)
018190,000629: 40,2341           00000                           OCT      0                                     #  VD2            =(18D)
018191,000630: 40,2342           00000                           OCT      0                                     #  VD1            =(19D)
018192,000631: 
018193,000632: 40,2343           34746        VERB               CAF      ZERO                                  
018194,000633: 40,2344           55000                           TS       VERBREG                               
018195,000634: 40,2345           34351                           CAF      VD1                                   
018196,000635: 40,2346           54776        NVCOM              TS       DSPCOUNT                              
018197,000636: 40,2347           02570                           TC       2BLANK                                
018198,000637: 40,2350           34744                           CAF      ONE                                   
018199,000638: 40,2351           54777                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
018200,000639: 40,2352           34746                           CAF      ZERO                                  
018201,000640: 40,2353           55012                           TS       REQRET                                #  SET FOR ENTPAS0
018202,000641: 40,2354           34210                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
018203,000642: 40,2355           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
018204,000643:                                                                                                  #  TO TC ENDOFJOB
018205,000644: 40,2356           05146                           TC       ENDOFJOB                              
018206,000645: 40,2357           34746        NOUN               CAF      ZERO                                  
018207,000646: 40,2360           55001                           TS       NOUNREG                               
018208,000647: 40,2361           34352                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
018209,000648: 40,2362           02346                           TC       NVCOM                                 
018210,000649: 
018211,000650: 
018212,000651: 40,2363           02435        NEGSGN             TC       SIGNTEST                              
018213,000652: 40,2364           02422                           TC       -ON                                   
018214,000653: 40,2365           34743                           CAF      TWO                                   
018215,000654: 40,2366           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
018216,000655: 40,2367           64736                           AD       BIT7                                  #  BIT 5 FOR R1,  BIT 4 FOR R2,
018217,000656: 40,2370           26777                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
018218,000657: 40,2371           11014        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
018219,000658: 40,2372           34746                           CAF      ZERO                                  
018220,000659: 40,2373           55014                           TS       CLPASS                                
018221,000660: 40,2374           02375                           TC       +1                                    
018222,000661: 40,2375           05146                           TC       ENDOFJOB                              
018223,000662: 
018224,000663: 40,2376           02435        POSGN              TC       SIGNTEST                              
018225,000664: 40,2377           02402                           TC       +ON                                   
018226,000665: 40,2400           34744                           CAF      ONE                                   
018227,000666: 40,2401           02366                           TC       BOTHSGN                               
018228,000667: 
018229,000668: 40,2402           22002        +ON                LXCH     Q                                     
018230,000669: 40,2403           02313                           TC       GETINREL                              
018231,000670: 40,2404           50137                           INDEX    INREL                                 

Page 415

018233,000672: 40,2405           32430                           CAF      SGNTAB     -2                         
018234,000673: 40,2406           54123                           TS       SGNOFF                                
018235,000674: 40,2407           64744                           AD       ONE                                   
018236,000675: 40,2410           54122                           TS       SGNON                                 
018237,000676: 40,2411           34746        SGNCOM             CAF      ZERO                                  
018238,000677: 40,2412           54124                           TS       CODE                                  
018239,000678: 40,2413           56123                           XCH      SGNOFF                                
018240,000679: 40,2414           03433                           TC       11DSPIN                               
018241,000680: 40,2415           34732                           CAF      BIT11                                 
018242,000681: 40,2416           54124                           TS       CODE                                  
018243,000682: 40,2417           56122                           XCH      SGNON                                 
018244,000683: 40,2420           03433                           TC       11DSPIN                               
018245,000684: 40,2421           00001                           TC       L                                     
018246,000685: 40,2422           22002        -ON                LXCH     Q                                     
018247,000686: 40,2423           02313                           TC       GETINREL                              
018248,000687: 40,2424           50137                           INDEX    INREL                                 
018249,000688: 40,2425           32430                           CAF      SGNTAB     -2                         
018250,000689: 40,2426           54122                           TS       SGNON                                 
018251,000690: 40,2427           64744                           AD       ONE                                   
018252,000691: 40,2430           54123                           TS       SGNOFF                                
018253,000692: 40,2431           02411                           TC       SGNCOM                                
018254,000693: 
018255,000694: 40,2432           00005        SGNTAB             OCT      5                                     #  -R1
018256,000695: 40,2433           00003                           OCT      3                                     #  -R2
018257,000696: 40,2434           00000                           OCT      0                                     #  -R3
018258,000697: 
018259,000698: 40,2435           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
018260,000699: 40,2436           36266                           CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
018261,000700: 40,2437           70777                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
018262,000701: 40,2440           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
018263,000702: 40,2441           05146                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
018264,000703: 40,2442           44310                           CS       R1D1                                  
018265,000704: 40,2443           02451                           TC       SGNTST1                               
018266,000705: 40,2444           44311                           CS       R2D1                                  
018267,000706: 40,2445           02451                           TC       SGNTST1                               
018268,000707: 40,2446           44312                           CS       R3D1                                  
018269,000708: 40,2447           02451                           TC       SGNTST1                               
018270,000709: 40,2450           05146                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
018271,000710: 40,2451           60776        SGNTST1            AD       DSPCOUNT                              
018272,000711: 40,2452           00006                           EXTEND                                         
018273,000712: 40,2453           12455                           BZF      +2                                    #  MATCH FOUND
018274,000713: 40,2454           00002                           TC       Q                                     
018275,000714: 40,2455           00001                           TC       L                                     #  SIGN LEGAL
018276,000715: 
018277,000716:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
018278,000717:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
018279,000718:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION

Page 416

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

Page 417

018333,000772: 40,2524           54776                           TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
018334,000773: 40,2525           22002        5BLANK             LXCH     Q                                     
018335,000774: 40,2526           02313                           TC       GETINREL                              
018336,000775: 40,2527           34746                           CAF      ZERO                                  
018337,000776: 40,2530           50137                           INDEX    INREL                                 
018338,000777: 40,2531           55000                           TS       VERBREG                               #  ZERO X, Y, Z REG.
018339,000778: 40,2532           50137                           INDEX    INREL                                 
018340,000779: 40,2533           55003                           TS       XREGLP     -2                         
018341,000780: 40,2534           54124                           TS       CODE                                  
018342,000781: 40,2535           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
018343,000782: 40,2536           44736                           CS       BIT7                                  #  PROTECT OTHERS
018344,000783: 40,2537           70777                           MASK     DECBRNCH                              
018345,000784: 40,2540           72567                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
018346,000785: 40,2541           54777                           TS       DECBRNCH                              
018347,000786: 40,2542           50137                           INDEX    INREL                                 
018348,000787: 40,2543           32557                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
018349,000788: 40,2544           54143                           TS       COUNT                                 
018350,000789: 40,2545           03351                           TC       DSPIN                                 
018351,000790: 40,2546           50137        5BLANK1            INDEX    INREL                                 
018352,000791: 40,2547           32562                           CAF      DOUBLK     -2                         
018353,000792: 40,2550           54776                           TS       DSPCOUNT                              
018354,000793: 40,2551           02570                           TC       2BLANK                                
018355,000794: 40,2552           44743                           CS       TWO                                   
018356,000795: 40,2553           26776                           ADS      DSPCOUNT                              
018357,000796: 40,2554           02570                           TC       2BLANK                                
018358,000797: 40,2555           50137                           INDEX    INREL                                 
018359,000798: 40,2556           34306                           CAF      R1D1       -2                         
018360,000799: 40,2557           54776                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
018361,000800: 40,2560           00001                           TC       L                                     #  OF REG. JUST BLANKED
018362,000801: 
018363,000802: 40,2561           00016        SINBLANK           OCT      16                                    #  DEC 14
018364,000803: 40,2562           00005                           OCT      5                                     
018365,000804: 40,2563           00004                           OCT      4                                     
018366,000805: 40,2564           00015        DOUBLK             OCT      15                                    #  DEC 13
018367,000806: 40,2565           00011                           OCT      11                                    #  DEC 9
018368,000807: 40,2566           00003                           OCT      3                                     
018369,000808: 
018370,000809: 40,2567           77774        BRNCHCON           OCT      77774                                 
018371,000810: 
018372,000811:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
018373,000812:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
018374,000813: 
018375,000814: 40,2570           30776        2BLANK             CA       DSPCOUNT                              
018376,000815: 40,2571           54021                           TS       SR                                    
018377,000816: 40,2572           42603                           CS       BLANKCON                              
018378,000817: 40,2573           00004                           INHINT                                         
018379,000818: 40,2574           50021                           INDEX    SR                                    
018380,000819: 40,2575           57022                           XCH      DSPTAB                                
018381,000820: 40,2576           00006                           EXTEND                                         
018382,000821: 40,2577           62601                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK

Page 418

018384,000823: 40,2600           25015                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
018385,000824: 40,2601           00003                           RELINT                                         #  IF -,NOUT OK
018386,000825: 40,2602           00002                           TC       Q                                     
018387,000826: 40,2603           04000        BLANKCON           OCT      4000                                  
018388,000827: 

Page 419

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

Page 420

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

Page 421

018492,000931: 41,2135           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018493,000932: 41,2136           52006                           DXCH     Z                                     #  ROUTINE.
018494,000933: 41,2137           02160                           TC       VERBFAN                               
018495,000934: 
018496,000935: 41,2140     0776                                  EBANK=   DSPCOUNT                              
018497,000936: 41,2140           02110 64101  LODNNLOC           2CADR    LODNNTAB                              
018498,000937: 
018499,000938: 
018500,000939: 41,2142           77772        NEG5               OCT      77772                                 
018501,000940: 
018502,000941: 41,2143           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
018503,000942: 41,2144           04274                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
018504,000943: 41,2145           44747                           CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
018505,000944: 41,2146           61000                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
018506,000945: 41,2147           00006                           EXTEND                                         
018507,000946: 41,2150           12160                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
018508,000947: 41,2151           34312                           CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
018509,000948: 41,2152           54776                           TS       DSPCOUNT                              
018510,000949: 41,2153           31016                           CA       NOUNCADR                              
018511,000950: 41,2154           03435                           TC       DSPOCTWD                              
018512,000951: 41,2155           02160                           TC       VERBFAN                               
018513,000952: 
018514,000953: 41,2156           64744                           AD       ONE                                   
018515,000954: 41,2157           04274                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018516,000955: 41,2160           42172        VERBFAN            CS       LST2CON                               
018517,000956: 41,2161           61000                           AD       VERBREG                               #  VERB-LST2CON
018518,000957: 41,2162           10000                           CCS      A                                     
018519,000958: 41,2163           64744                           AD       ONE                                   #  VERB G/ LST2CON
018520,000959: 41,2164           02166                           TC       +2                                    
018521,000960: 41,2165           02173                           TC       VBFANDIR                              #  VERB L/ LST2CON
018522,000961: 41,2166           54154                           TS       MPAC                                  
018523,000962: 41,2167           04450                           TC       RELDSP                                #  RELEASE DISPLAY SYST
018524,000963: 41,2170           04626                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
018525,000964: 41,2171           66000                           CADR     GOEXTVB                               
018526,000965: 41,2172           00050        LST2CON            DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
018527,000966: 
018528,000967: 41,2173           51000        VBFANDIR           INDEX    VERBREG                               
018529,000968: 41,2174           32176                           CAF      VERBTAB                               
018530,000969: 41,2175           04631                           TC       BANKJUMP                              
018531,000970: 
018532,000971: 41,2176           62400        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
018533,000972: 41,2177           62414                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
018534,000973: 41,2200           62422                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
018535,000974: 41,2201           62427                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
018536,000975: 41,2202           62407                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
018537,000976: 41,2203           62402                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
018538,000977: 41,2204           62552                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
018539,000978: 41,2205           61020                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
018540,000979: 41,2206           62400                           CADR     GODSPALM                              #  VB08 SPARE
018541,000980: 41,2207           62400                           CADR     GODSPALM                              #  VB09 SPARE

Page 422

018543,000982: 41,2210           61447                           CADR     DSPALARM                              #  VB10 SPARE
018544,000983: 41,2211           63302                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
018545,000984: 41,2212           63302                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
018546,000985: 41,2213           63302                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
018547,000986: 41,2214           63302                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
018548,000987: 41,2215           63302                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
018549,000988: 41,2216           63302                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
018550,000989: 41,2217           63302                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
018551,000990: 41,2220           62400                           CADR     GODSPALM                              #  VB18 SPARE
018552,000991: 41,2221           62400                           CADR     GODSPALM                              #  VB19 SPARE
018553,000992: 41,2222           62400                           CADR     GODSPALM                              #  VB20 SPARE
018554,000993: 41,2223           63002                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
018555,000994: 41,2224           63013                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
018556,000995: 41,2225           63030                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
018557,000996: 41,2226           62753                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
018558,000997: 41,2227           62647                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
018559,000998: 41,2230           62400                           CADR     GODSPALM                              #  VB26 SPARE
018560,000999: 41,2231           63425                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
018561,001000:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
018562,001001: 41,2232           62400                           CADR     GODSPALM                              #  VB28 SPARE
018563,001002: 41,2233           62400                           CADR     GODSPALM                              #  VB29 SPARE
018564,001003: 41,2234           63526        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
018565,001004: 41,2235           63557                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
018566,001005: 41,2236           61514                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
018567,001006: 41,2237           61471                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
018568,001007: 41,2240           61477                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
018569,001008: 41,2241           63662                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
018570,001009: 41,2242           12454                           CADR     SLAP1                                 #  VB36 FRESH START
018571,001010: 41,2243           63470                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
018572,001011: 41,2244           62400                           CADR     GODSPALM                              #  VB38 SPARE
018573,001012: 41,2245           62400                           CADR     GODSPALM                              #  VB39 SPARE
018574,001013: 
018575,001014: 
018576,001015:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
018577,001016: 

Page 423

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

Page 424

018630,001069: 41,2312           00002                           TC       Q                                     #  DEG  NO DP
018631,001070: 41,2313           00002                           TC       Q                                     #  ARITH  NO DP
018632,001071: 41,2314           12330                           TCF      DPTEST1                               #  DP1OUT
018633,001072: 41,2315           12330                           TCF      DPTEST1                               #  DP2OUT
018634,001073: 41,2316           00002                           TC       Q                                     #  LRPOSOUT  NO DP (DATA IN CHANNEL 33)
018635,001074: 41,2317           12330                           TCF      DPTEST1                               #  DP3OUT
018636,001075: 41,2320           00002                           TC       Q                                     #  HMS   NO DP
018637,001076: 41,2321           00002                           TC       Q                                     #  M/S   NO DP
018638,001077: 41,2322           12330                           TCF      DPTEST1                               #  DP4OUT
018639,001078: 41,2323           00002                           TC       Q                                     #  ARITH1   NO DP
018640,001079: 41,2324           00002                           TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
018641,001080: 41,2325           00002                           TC       Q                                     #  360-CDU   NO DP
018642,001081: 41,2326           00002                           TC       Q                                     #  RRANGOUT  NO DP
018643,001082: 41,2327           00002                           TC       Q                                     #  RRDOTOUT  NO DP
018644,001083: 41,2330           50002        DPTEST1            INDEX    Q                                     
018645,001084: 41,2331           00001                           TC       1                                     #  RETURN TO L+2
018646,001085: 
018647,001086: 
018648,001087: 41,2332           34310        REQDATX            CAF      R1D1                                  
018649,001088: 41,2333           12337                           TCF      REQCOM                                
018650,001089: 41,2334           34311        REQDATY            CAF      R2D1                                  
018651,001090: 41,2335           12337                           TCF      REQCOM                                
018652,001091: 41,2336           34312        REQDATZ            CAF      R3D1                                  
018653,001092: 41,2337           54776        REQCOM             TS       DSPCOUNT                              
018654,001093: 41,2340           40002                           CS       Q                                     
018655,001094: 41,2341           55012                           TS       REQRET                                
018656,001095: 41,2342           04607                           TC       BANKCALL                              
018657,001096: 41,2343           60525                           CADR     5BLANK                                
018658,001097: 41,2344           04420                           TC       FLASHON                               
018659,001098: 41,2345           00136        ENDRQDAT           TC       ENTEXIT                               
018660,001099: 
018661,001100: 41,2346           55001                           TS       NOUNREG                               
018662,001101: 41,2347           56002        UPDATNN            XCH      Q                                     
018663,001102: 41,2350           54117                           TS       UPDATRET                              
018664,001103: 41,2351           00006                           EXTEND                                         
018665,001104: 41,2352           32141                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018666,001105: 41,2353           52006                           DXCH     Z                                     #  ROUTINE.
018667,001106: 41,2354           10146                           CCS      NNADTEM                               
018668,001107: 41,2355           64744                           AD       ONE                                   #  NORMAL
018669,001108: 41,2356           12361                           TCF      PUTADD                                
018670,001109: 41,2357           12362                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
018671,001110: 41,2360           12362                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
018672,001111: 41,2361           04274        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018673,001112: 41,2362           34352                           CAF      ND1                                   
018674,001113: 41,2363           54776                           TS       DSPCOUNT                              
018675,001114: 41,2364           31001                           CA       NOUNREG                               
018676,001115: 41,2365           12374                           TCF      UPDAT1                                
018677,001116: 
018678,001117: 41,2366           55000                           TS       VERBREG                               
018679,001118: 41,2367           56002        UPDATVB            XCH      Q                                     

Page 425

018681,001120: 41,2370           54117                           TS       UPDATRET                              
018682,001121: 41,2371           34351                           CAF      VD1                                   
018683,001122: 41,2372           54776                           TS       DSPCOUNT                              
018684,001123: 41,2373           31000                           CA       VERBREG                               
018685,001124: 41,2374           04626        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN,SINCE
018686,001125: 41,2375           61346                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
018687,001126: 41,2376           00117                           TC       UPDATRET                              
018688,001127: 
018689,001128: 
018690,001129: 41,2377           06020        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
018691,001130: 
018692,001131: 41,2400           04626        GODSPALM           TC       POSTJUMP                              
018693,001132: 41,2401           61447                           CADR     DSPALARM                              
018694,001133: 

Page 426

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

Page 427

018747,001186:                                                                                                  #           DISPLAY  VERBS
018748,001187: 41,2402           44743        DSPABC             CS       TWO                                   
018749,001188: 41,2403           02453                           TC       COMPTEST                              
018750,001189: 41,2404           50145                           INDEX    NOUNADD                               
018751,001190: 41,2405           40002                           CS       2                                     
018752,001191: 41,2406           56132                           XCH      BUF        +2                         
018753,001192: 41,2407           44744        DSPAB              CS       ONE                                   
018754,001193: 41,2410           02453                           TC       COMPTEST                              
018755,001194: 41,2411           50145                           INDEX    NOUNADD                               
018756,001195: 41,2412           40001                           CS       1                                     
018757,001196: 41,2413           56131                           XCH      BUF        +1                         
018758,001197: 41,2414           02472        DSPA               TC       DECTEST                               
018759,001198: 41,2415           02515                           TC       TSTFORDP                              
018760,001199: 41,2416           50145                           INDEX    NOUNADD                               
018761,001200: 41,2417           40000                           CS       0                                     
018762,001201: 41,2420           56130        DSPCOM1            XCH      BUF                                   
018763,001202: 41,2421           02434                           TC       DSPCOM2                               
018764,001203: 41,2422           44744        DSPB               CS       ONE                                   
018765,001204: 41,2423           02466                           TC       DCOMPTST                              
018766,001205: 41,2424           50145                           INDEX    NOUNADD                               
018767,001206: 41,2425           40001                           CS       1                                     
018768,001207: 41,2426           02420                           TC       DSPCOM1                               
018769,001208: 41,2427           44743        DSPC               CS       TWO                                   
018770,001209: 41,2430           02466                           TC       DCOMPTST                              
018771,001210: 41,2431           50145                           INDEX    NOUNADD                               
018772,001211: 41,2432           40002                           CS       2                                     
018773,001212: 41,2433           02420                           TC       DSPCOM1                               
018774,001213: 41,2434           44743        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
018775,001214: 41,2435           61000                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
018776,001215: 41,2436           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
018777,001216: 41,2437           02442                           TC       DSPCOM3                               
018778,001217: 41,2440           00136                           TC       ENTEXIT                               
018779,001218: 41,2441           02442                           TC       +1                                    
018780,001219: 41,2442           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
018781,001220: 41,2443           50000                           INDEX    A                                     
018782,001221: 41,2444           34310                           CAF      R1D1                                  
018783,001222: 41,2445           54776                           TS       DSPCOUNT                              
018784,001223: 41,2446           50122                           INDEX    DISTEM                                
018785,001224: 41,2447           40130                           CS       BUF                                   
018786,001225: 41,2450           03435                           TC       DSPOCTWD                              
018787,001226: 41,2451           56122                           XCH      DISTEM                                
018788,001227: 41,2452           02436                           TC       DSPCOM2    +2                         
018789,001228: 
018790,001229:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
018791,001230:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
018792,001231: 41,2453           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
018793,001232: 41,2454           22002                           LXCH     Q                                     
018794,001233: 41,2455           02544        COMPTST1           TC       GETCOMP                               
018795,001234: 41,2456           04322                           TC       LEFT5                                 
018796,001235: 41,2457           76266                           MASK     THREE                                 #  NOUN COMP

Page 428

018798,001237: 41,2460           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
018799,001238: 41,2461           10000                           CCS      A                                     
018800,001239: 41,2462           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
018801,001240: 41,2463           05701                           TC       CCSHOLE                               
018802,001241: 41,2464           02400                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
018803,001242: 41,2465           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
018804,001243: 
018805,001244: 
018806,001245:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
018807,001246:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
018808,001247: 41,2466           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
018809,001248: 41,2467           22002                           LXCH     Q                                     
018810,001249: 41,2470           02472                           TC       DECTEST                               
018811,001250: 41,2471           02455                           TC       COMPTST1                              
018812,001251: 
018813,001252: 41,2472           00006        DECTEST            EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
018814,001253: 41,2473           22156                           QXCH     MPAC       +2                         #  CODE NUMBER). RETURNS IF NOT.
018815,001254: 41,2474           02544                           TC       GETCOMP                               
018816,001255: 41,2475           74727                           MASK     BIT14                                 
018817,001256: 41,2476           10000                           CCS      A                                     
018818,001257: 41,2477           02400                           TC       GODSPALM                              
018819,001258: 41,2500           00156                           TC       MPAC       +2                         
018820,001259: 
018821,001260: 
018822,001261: 41,2501           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
018823,001262: 41,2502           02544                           TC       GETCOMP                               #  ( BIT4 OF COMP CODE NUMBER). RETURNS
018824,001263: 41,2503           74727                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
018825,001264: 41,2504           10000                           CCS      A                                     
018826,001265: 41,2505           06020                           TC       ALMCYCLE                              
018827,001266: 41,2506           00001                           TC       L                                     
018828,001267: 
018829,001268: 
018830,001269:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
018831,001270:                                                                                                  #  IF NOT, IT RETURNS.
018832,001271: 41,2507           22002        NOUNTEST           LXCH     Q                                     
018833,001272: 41,2510           02544                           TC       GETCOMP                               
018834,001273: 41,2511           10000                           CCS      A                                     
018835,001274: 41,2512           00001                           TC       L                                     
018836,001275: 41,2513           00001                           TC       L                                     
018837,001276: 41,2514           02400                           TC       GODSPALM                              
018838,001277: 
018839,001278: 
018840,001279: 41,2515           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
018841,001280: 41,2516           30146                           CA       NNADTEM                               
018842,001281: 41,2517           64744                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
018843,001282: 41,2520           00006                           EXTEND                                         
018844,001283: 41,2521           12533                           BZF      CHANDSP                               
018845,001284: 41,2522           50140                           INDEX    MIXBR                                 
018846,001285: 41,2523           02523                           TC       +0                                    
018847,001286: 41,2524           02526                           TC       +2                                    #  NORMAL

Page 429

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

Page 430

018900,001339: 41,2600           54123                           TS       SFTEMP1                               
018901,001340: 41,2601           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
018902,001341: 41,2602           32614                           DCA      GTSFOUTL                              #     READING ROUTINE.
018903,001342: 41,2603           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
018904,001343: 41,2604           50140                           INDEX    MIXBR                                 
018905,001344: 41,2605           02605                           TC       +0                                    
018906,001345: 41,2606           02611                           TC       DSPSFNOR                              
018907,001346: 41,2607           03104                           TC       SFRUTMIX                              
018908,001347: 41,2610           02624                           TC       DECDSP3                               
018909,001348: 
018910,001349: 41,2611           03076        DSPSFNOR           TC       SFRUTNOR                              
018911,001350: 41,2612           02624                           TC       DECDSP3                               
018912,001351: 
018913,001352: 41,2613     0776                                  EBANK=   DSPCOUNT                              
018914,001353: 41,2613           02146 64101  GTSFOUTL           2CADR    GTSFOUT                               
018915,001354: 
018916,001355: 
018917,001356: 
018918,001357: 41,2615           04607        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
018919,001358: 41,2616           61255                           CADR     DSPDECWD                              
018920,001359: 41,2617           10117                           CCS      DECOUNT                               
018921,001360: 41,2620           02622                           TC       +2                                    
018922,001361: 41,2621           00136                           TC       ENTEXIT                               
018923,001362: 41,2622           54117                           TS       DECOUNT                               
018924,001363: 41,2623           02566                           TC       DSPDCPUT                              #  MORE TO DISPLAY
018925,001364: 
018926,001365: 
018927,001366: 41,2624           50000        DECDSP3            INDEX    A                                     
018928,001367: 41,2625           32627                           CAF      SFOUTABR                              
018929,001368: 41,2626           04631                           TC       BANKJUMP                              
018930,001369: 
018931,001370: 41,2627           61445        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
018932,001371: 41,2630           62615                           CADR     DSPDCEND                              
018933,001372: 41,2631           60604                           CADR     DEGOUTSF                              
018934,001373: 41,2632           60726                           CADR     ARTOUTSF                              
018935,001374: 41,2633           60737                           CADR     DP1OUTSF                              
018936,001375: 41,2634           60744                           CADR     DP2OUTSF                              
018937,001376: 41,2635           60624                           CADR     LRPOSOUT                              
018938,001377: 41,2636           60746                           CADR     DP3OUTSF                              
018939,001378: 41,2637           65241                           CADR     HMSOUT                                
018940,001379: 41,2640           65314                           CADR     M/SOUT                                
018941,001380: 41,2641           60744                           CADR     DP2OUTSF                              
018942,001381: 41,2642           60733                           CADR     AROUT1SF                              
018943,001382: 41,2643           60761                           CADR     2INTOUT                               
018944,001383: 41,2644           60612                           CADR     360-CDUO                              
018945,001384: 41,2645           60634                           CADR     RRANGOUT                              
018946,001385: 41,2646           60651                           CADR     RRDOTOUT                              
018947,001386: 41,2647                        ENDRTOUT           EQUALS                                         
018948,001387: 

Page 431

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

Page 432

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

Page 433

019052,001491: 40,2714           32723                           DCA      DEGTAB                                
019053,001492: 40,2715           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
019054,001493: 40,2716           07330                           TC       SHORTMP                               
019055,001494: 40,2717           52124                           DXCH     SFTEMP1                               
019056,001495: 40,2720           20155                           DAS      MPAC                                  
019057,001496: 40,2721           02731                           TC       SCOUTEND                              
019058,001497: 
019059,001498: 
019060,001499: 40,2722           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
019061,001500: 40,2723           03656                           OCT      03656                                 #  LOW PART OF    .18
019062,001501: 40,2724           16314                           OCT      16314                                 #  HI PART OF     .45
019063,001502: 40,2725           31463                           OCT      31463                                 #  LO PART OF     .45
019064,001503: 
019065,001504: 40,2726           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
019066,001505: 40,2727           52155                           DXCH     MPAC                                  
019067,001506: 40,2730           04406                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019068,001507: 40,2731           04626        SCOUTEND           TC       POSTJUMP                              
019069,001508: 40,2732           62615                           CADR     DSPDCEND                              
019070,001509: 
019071,001510: 40,2733           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
019072,001511: 40,2734           52155                           DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
019073,001512: 40,2735           04406                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
019074,001513: 40,2736           02740                           TC       L14/OUT                               
019075,001514: 
019076,001515: 
019077,001516: 40,2737           02752        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019078,001517: 40,2740           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
019079,001518: 40,2741           56155                           XCH      MPAC       +1                         #  BY B14.
019080,001519: 40,2742           54154                           TS       MPAC                                  
019081,001520: 40,2743           02731                           TC       SCOUTEND                              
019082,001521: 
019083,001522: 
019084,001523: 40,2744           02752        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC , MPAC +1 BY DP SCALE FACTOR
019085,001524: 40,2745           02731                           TC       SCOUTEND                              
019086,001525: 
019087,001526: 
019088,001527: 40,2746           02752        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019089,001528: 40,2747           36263                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
019090,001529: 40,2750           03202                           TC       TPLEFTN                               #  SHIFT LEFT 7.
019091,001530: 40,2751           02731                           TC       SCOUTEND                              
019092,001531: 
019093,001532: 
019094,001533: 40,2752     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
019095,001534: 
019096,001535: 40,2752           56002        DPOUT              XCH      Q                                     
019097,001536: 40,2753           54162                           TS       MPAC+6                                
019098,001537: 40,2754           02776                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
019099,001538: 40,2755           07300                           TC       TPAGREE                               #  MAKE DP DATA AGREE
019100,001539: 40,2756           07124                           TC       DMP                                   
019101,001540: 40,2757           00123                           ADRES    SFTEMP1                               

Page 434

019103,001542: 40,2760           00162                           TC       MPAC+6                                
019104,001543:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
019105,001544:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
019106,001545:                                                                                                  #  BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
019107,001546:                                                                                                  #  RXD1-RXD2.
019108,001547: 
019109,001548: 40,2761           02525        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
019110,001549: 40,2762           02402                           TC       +ON                                   #  TURN ON + SIGN
019111,001550: 40,2763           30154                           CA       MPAC                                  
019112,001551: 40,2764           03335                           TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
019113,001552: 40,2765           46266                           CS       THREE                                 
019114,001553: 40,2766           50117                           INDEX    DECOUNT                               
019115,001554: 40,2767           64310                           AD       R1D1                                  #  RXD4
019116,001555: 40,2770           54776                           TS       DSPCOUNT                              
019117,001556: 40,2771           02776                           TC       READLO                                #  GET 2ND INTEGER
019118,001557: 40,2772           30155                           CA       MPAC       +1                         
019119,001558: 40,2773           03335                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
019120,001559: 40,2774           04626                           TC       POSTJUMP                              
019121,001560: 40,2775           62617                           CADR     DSPDCEND   +2                         
019122,001561: 
019123,001562: 
019124,001563:                                                                                                  #  READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN 
019125,001564:                                                                                                  #  MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
019126,001565:                                                                                                  #  DOES NOT FORCE TPAGREE.
019127,001566: 
019128,001567: 40,2776           56002        READLO             XCH      Q                                     
019129,001568: 40,2777           54144                           TS       TEM4                                  
019130,001569: 40,3000           50140                           INDEX    MIXBR                                 
019131,001570: 40,3001           03001                           TC       +0                                    
019132,001571: 40,3002           03016                           TC       RDLONOR                               
019133,001572: 40,3003           50117                           INDEX    DECOUNT                               
019134,001573: 40,3004           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
019135,001574: 40,3005           74347                           MASK     LOW11                                 #  E SUBK
019136,001575: 40,3006           04304                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
019137,001576: 40,3007           00006        READLO1            EXTEND                                         #  MIXED         NORMAL
019138,001577: 40,3010           50000                           INDEX    A                                     #  C(ESUBK)      C(E)
019139,001578: 40,3011           30001                           DCA      0                                     #  C((E SUBK)+1)      C(E+1)
019140,001579: 40,3012           52155                           DXCH     MPAC                                  
019141,001580: 40,3013           34746                           CAF      ZERO                                  
019142,001581: 40,3014           54156                           TS       MPAC       +2                         
019143,001582: 40,3015           00144                           TC       TEM4                                  
019144,001583: 
019145,001584: 40,3016           30145        RDLONOR            CA       NOUNADD                               #  E
019146,001585: 40,3017           03007        ENDRDLO            TC       READLO1                               
019147,001586: 
019148,001587: 
019149,001588: 42,3241                                           BANK     42                                    
019150,001589: 42,2000                                           SETLOC   PINBALL3                              
019151,001590: 42,2000                                           BANK                                           
019152,001591: 

Page 435

019154,001593: 42,3241                                           COUNT*   $$/PIN                                
019155,001594: 42,3241           04607        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
019156,001595: 42,3242           60776                           CADR     READLO                                #  MPAC+1.
019157,001596: 42,3243           07300                           TC       TPAGREE                               #  MAKE DP DATA AGREE
019158,001597: 42,3244           03430                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
019159,001598:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
019160,001599: 42,3245           07124                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
019161,001600: 42,3246           03302                           ADRES    SECON2                                #  MULT BY .06
019162,001601: 42,3247           34312                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
019163,001602: 42,3250           54776                           TS       DSPCOUNT                              
019164,001603: 42,3251           04607                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
019165,001604: 42,3252           61255                           CADR     DSPDECWD                              
019166,001605: 42,3253           03446                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
019167,001606: 42,3254           33304                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
019168,001607: 42,3255           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
019169,001608: 42,3256           55006                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
019170,001609: 42,3257           33305                           CAF      MINCON2    +1                         
019171,001610: 42,3260           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
019172,001611: 42,3261           04406                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019173,001612:                                                                                                  #  MULT BY .0006
019174,001613: 42,3262           34311                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
019175,001614: 42,3263           54776                           TS       DSPCOUNT                              
019176,001615: 42,3264           04607                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
019177,001616: 42,3265           61255                           CADR     DSPDECWD                              
019178,001617: 42,3266           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
019179,001618: 42,3267           33311                           DCA      HRCON1                                
019180,001619: 42,3270           52155                           DXCH     MPAC                                  
019181,001620: 42,3271           31006                           CA       HITEMOUT                              #  USE WHOLE HOURS
019182,001621: 42,3272           04406                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019183,001622:                                                                                                  #  MULT BY .16384
019184,001623: 42,3273           34310                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
019185,001624: 42,3274           54776                           TS       DSPCOUNT                              
019186,001625: 42,3275           04607                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
019187,001626: 42,3276           61255                           CADR     DSPDECWD                              
019188,001627: 42,3277           00136                           TC       ENTEXIT                               
019189,001628: 
019190,001629: 42,3300           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
019191,001630: 
019192,001631: 42,3302           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
019193,001632: 42,3303           01217                           OCT      01217                                 
019194,001633: 42,3304           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
019195,001634: 42,3305           32445                           OCT      32445                                 
019196,001635: 42,3306           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
019197,001636: 42,3307           10422                           OCT      10422                                 
019198,001637: 42,3310           05174 13261  HRCON1             2DEC     .16384                                
019199,001638: 
019200,001639: 42,3312           00000                           OCT      00000                                 
019201,001640: 42,3313           00062        RNDCON             OCT      00062                                 #  .5 SEC
019202,001641: 

Page 436

019204,001643: 42,3314           04607        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
019205,001644: 42,3315           60776                           CADR     READLO                                #  MPAC+1.
019206,001645: 42,3316           07300                           TC       TPAGREE                               #  MAKE DP DATA AGREE
019207,001646: 42,3317           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
019208,001647: 42,3320           03322                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
019209,001648: 42,3321           03353                           TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
019210,001649: 42,3322           63410                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1  FOR CCS
019211,001650: 42,3323           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
019212,001651: 42,3324           03337                           TC       M/SLIMIT                              #  G/ 59M58.5S
019213,001652: 42,3325           03353                           TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
019214,001653: 42,3326           03353                           TC       M/SNORM                               #  L/ 59M58.5S
019215,001654: 42,3327           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
019216,001655: 42,3330           03332                           TC       +2                                    
019217,001656: 42,3331           03353                           TC       M/SNORM                               #  MPAC+1 = +0. L/ 59M58.5S
019218,001657: 42,3332           63411                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1  FOR CCS
019219,001658: 42,3333           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
019220,001659: 42,3334           03337                           TC       M/SLIMIT                              #  G/ 59M58.5S
019221,001660: 42,3335           03353                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
019222,001661: 42,3336           03353                           TC       M/SNORM                               #  L/ 59M58.5S
019223,001662: 42,3337           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
019224,001663: 42,3340           33413                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
019225,001664: 42,3341           03350                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
019226,001665: 42,3342           43413                           CS       M/SCON3                               
019227,001666: 42,3343           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
019228,001667: 42,3344           43414                           CS       M/SCON3    +1                         
019229,001668: 42,3345           54155        LIMITCOM           TS       MPAC       +1                         
019230,001669: 42,3346           33412                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
019231,001670: 42,3347           03431                           TC       SEPSECNR   +1                         
019232,001671: 42,3350           54154        +LIMIT             TS       MPAC                                  
019233,001672: 42,3351           33414                           CAF      M/SCON3    +1                         
019234,001673: 42,3352           03345                           TC       LIMITCOM                              
019235,001674: 42,3353           03415        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
019236,001675:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
019237,001676: 42,3354           33406                           CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
019238,001677: 42,3355           07330                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
019239,001678: 42,3356           46266                           CS       THREE                                 #  GIVES SEC/100 MOD 60
019240,001679: 42,3357           26776                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
019241,001680: 42,3360           04607                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
019242,001681: 42,3361           61315                           CADR     DSPDC2NR                              
019243,001682: 42,3362           34746                           CAF      ZERO                                  
019244,001683: 42,3363           54124                           TS       CODE                                  
019245,001684: 42,3364           44743                           CS       TWO                                   
019246,001685: 42,3365           50117                           INDEX    DECOUNT                               
019247,001686: 42,3366           64310                           AD       R1D1                                  #  RXD3
019248,001687: 42,3367           54143                           TS       COUNT                                 
019249,001688: 42,3370           04607                           TC       BANKCALL                              #  BLANK MIDDLE CHAR
019250,001689: 42,3371           61351                           CADR     DSPIN                                 
019251,001690: 42,3372           03446                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
019252,001691: 42,3373           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
019253,001692: 42,3374           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60

Page 437

019255,001694: 42,3375           73407                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
019256,001695: 42,3376           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
019257,001696: 42,3377           50117                           INDEX    DECOUNT                               
019258,001697: 42,3400           34310                           CAF      R1D1                                  #  RXD1
019259,001698: 42,3401           54776                           TS       DSPCOUNT                              
019260,001699: 42,3402           04607                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
019261,001700: 42,3403           61315                           CADR     DSPDC2NR                              
019262,001701: 42,3404           04626                           TC       POSTJUMP                              
019263,001702: 42,3405           62617                           CADR     DSPDCEND   +2                         
019264,001703: 
019265,001704: 42,3406           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
019266,001705: 42,3407           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
019267,001706: 
019268,001707: 42,3410           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
019269,001708: 42,3411           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
019270,001709: 42,3412           03354        NORMADR            ADRES    M/SNORM    +1                         
019271,001710: 42,3413           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
019272,001711: 42,3414           37016                           OCT      37016                                 
019273,001712: 
019274,001713: 
019275,001714: 42,3415           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
019276,001715: 42,3416           13425                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
019277,001716: 42,3417           13425                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
019278,001717: 42,3420           13421                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
019279,001718: 42,3421           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
019280,001719: 42,3422           43313                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
019281,001720: 42,3423           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
019282,001721: 42,3424           13430                           TCF      SEPSECNR                              
019283,001722: 42,3425           00006        POSEC              EXTEND                                         
019284,001723: 42,3426           33313                           DCA      RNDCON     -1                         
019285,001724: 42,3427           13423                           TCF      SEPSEC1                               
019286,001725: 42,3430           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
019287,001726: 42,3431           54144                           TS       SEPSCRET                              
019288,001727: 42,3432           07124                           TC       DMP                                   #  MULT BY 2EXP12/6000
019289,001728: 42,3433           03300                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
019290,001729: 42,3434           00006                           EXTEND                                         #  AND BELOW.
019291,001730: 42,3435           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
019292,001731: 42,3436           53007                           DXCH     HITEMOUT                              
019293,001732: 42,3437           04375                           TC       TPSL1                                 
019294,001733: 42,3440           04375                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
019295,001734: 42,3441           34746                           CAF      ZERO                                  
019296,001735: 42,3442           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
019297,001736: 42,3443           56155                           XCH      MPAC       +1                         
019298,001737: 42,3444           56154                           XCH      MPAC                                  
019299,001738: 42,3445           00144                           TC       SEPSCRET                              
019300,001739: 
019301,001740: 
019302,001741: 42,3446           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
019303,001742: 42,3447           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
019304,001743: 42,3450           31007                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.

Page 438

019306,001745: 42,3451           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
019307,001746: 42,3452           74742                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
019308,001747: 42,3453           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
019309,001748: 42,3454           74730                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
019310,001749: 42,3455           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
019311,001750:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
019312,001751: 42,3456           31006                           CA       HITEMOUT                              
019313,001752: 42,3457           54154                           TS       MPAC                                  
019314,001753: 42,3460           07124                           TC       DMP                                   #  MULT BY 1/15
019315,001754: 42,3461           03306                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
019316,001755: 42,3462           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
019317,001756: 
019318,001757:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
019319,001758:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
019320,001759:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
019321,001760:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
019322,001761:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
019323,001762:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
019324,001763: 
019325,001764: 
019326,001765: 40,3020                                           SETLOC   ENDRDLO    +1                         
019327,001766: 
019328,001767: 40,3020                                           COUNT*   $$/PIN                                
019329,001768: 40,3020           50140        DSPDPDEC           INDEX    MIXBR                                 
019330,001769: 40,3021           03021                           TC       +0                                    
019331,001770: 40,3022           03024                           TC       +2                                    #  NORMAL NOUN
019332,001771: 40,3023           03447                           TC       DSPALARM                              
019333,001772: 40,3024           00006                           EXTEND                                         
019334,001773: 40,3025           50145                           INDEX    NOUNADD                               
019335,001774: 40,3026           30001                           DCA      0                                     
019336,001775: 40,3027           52155                           DXCH     MPAC                                  
019337,001776: 40,3030           34310                           CAF      R1D1                                  
019338,001777: 40,3031           54776                           TS       DSPCOUNT                              
019339,001778: 40,3032           34746                           CAF      ZERO                                  
019340,001779: 40,3033           54156                           TS       MPAC       +2                         
019341,001780: 40,3034           07300                           TC       TPAGREE                               
019342,001781: 40,3035           03322                           TC       DSP2DEC                               
019343,001782: 40,3036           00136        ENDDPDEC           TC       ENTEXIT                               
019344,001783: 

Page 439

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

Page 440

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

Page 441

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

Page 442

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

Page 443

019550,001989: 41,3107           33136                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
019551,001990: 41,3110           54001                           TS       L                                     
019552,001991: 41,3111           50117                           INDEX    DECOUNT                               
019553,001992: 41,3112           34337                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
019554,001993: 41,3113           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
019555,001994: 41,3114           50001                           INDEX    L                                     
019556,001995: 41,3115           00000                           TC       0                                     
019557,001996:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
019558,001997: 41,3116           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
019559,001998: 
019560,001999: 41,3117           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
019561,002000: 41,3120           54114                           TS       EXITEM                                
019562,002001: 41,3121           50140                           INDEX    MIXBR                                 
019563,002002: 41,3122           03122                           TC       +0                                    
019564,002003: 41,3123           03141                           TC       CONUMNOR                              #  NORMAL NOUN
019565,002004: 41,3124           50117                           INDEX    DECOUNT                               #  MIXED NOUN
019566,002005: 41,3125           33136                           CAF      DISPLACE                              
019567,002006: 41,3126           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
019568,002007: 41,3127           50117                           INDEX    DECOUNT                               
019569,002008: 41,3130           34337                           CAF      LOW5                                  
019570,002009: 41,3131           70147                           MASK     NNTYPTEM                              
019571,002010: 41,3132           50001                           INDEX    L                                     
019572,002011: 41,3133           00000                           TC       0                                     
019573,002012:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
019574,002013: 41,3134           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
019575,002014: 41,3135           00114                           TC       EXITEM                                
019576,002015: 
019577,002016: 41,3136           03075        DISPLACE           TC       GOQ                                   
019578,002017: 41,3137           04313                           TC       RIGHT5                                
019579,002018: 41,3140           04322                           TC       LEFT5                                 
019580,002019: 
019581,002020: 41,3141           34337        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
019582,002021: 41,3142           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
019583,002022: 41,3143           60000                           DOUBLE                                         
019584,002023: 41,3144           00114                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
019585,002024: 
019586,002025: 
019587,002026: 41,3145           54117        PUTCOM             TS       DECOUNT                               
019588,002027: 41,3146           56002                           XCH      Q                                     
019589,002028: 41,3147           54115                           TS       DECRET                                
019590,002029: 41,3150           34746                           CAF      ZERO                                  
019591,002030: 41,3151           54162                           TS       MPAC+6                                
019592,002031: 41,3152           50117                           INDEX    DECOUNT                               
019593,002032: 41,3153           57005                           XCH      XREGLP                                
019594,002033: 41,3154           54155                           TS       MPAC       +1                         
019595,002034: 41,3155           50117                           INDEX    DECOUNT                               
019596,002035: 41,3156           57002                           XCH      XREG                                  
019597,002036: 41,3157           54154                           TS       MPAC                                  
019598,002037: 41,3160           50140                           INDEX    MIXBR                                 
019599,002038: 41,3161           03161                           TC       +0                                    

Page 444

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

Page 445

019652,002091: 41,3232           61016                           AD       NOUNCADR                              
019653,002092: 41,3233           00006                           EXTEND                                         
019654,002093: 41,3234           13045                           BZF      LOADLV                                
019655,002094: 41,3235           31016                           CA       NOUNCADR                              
019656,002095: 41,3236           74775                           MASK     LOW9                                  
019657,002096: 41,3237           56154                           XCH      MPAC                                  
019658,002097: 41,3240           00006                           EXTEND                                         
019659,002098: 41,3241           50154                           INDEX    MPAC                                  
019660,002099: 41,3242           01000                           WRITE    0                                     
019661,002100: 41,3243           03045                           TC       LOADLV                                
019662,002101: 
019663,002102: 
019664,002103:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
019665,002104: 
019666,002105: 41,3244           03117        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
019667,002106: 41,3245           54123                           TS       SFTEMP1                               
019668,002107: 41,3246           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
019669,002108: 41,3247           33230                           DCA      GTSFINLC                              #  READING ROUTINE.
019670,002109: 41,3250           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
019671,002110: 41,3251           50140                           INDEX    MIXBR                                 
019672,002111: 41,3252           03252                           TC       +0                                    
019673,002112: 41,3253           03256                           TC       PUTSFNOR                              
019674,002113: 41,3254           03104                           TC       SFRUTMIX                              
019675,002114: 41,3255           03257                           TC       PUTDCSF2                              
019676,002115: 41,3256           03076        PUTSFNOR           TC       SFRUTNOR                              
019677,002116: 
019678,002117: 41,3257           50000        PUTDCSF2           INDEX    A                                     
019679,002118: 41,3260           33262                           CAF      SFINTABR                              
019680,002119: 41,3261           04631                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
019681,002120: 41,3262           62377        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
019682,002121:                                                                                                  #  WITH OCTAL ONLY NOUN.
019683,002122: 41,3263           61135                           CADR     BINROUND                              
019684,002123: 41,3264           61037                           CADR     DEGINSF                               
019685,002124: 41,3265           61125                           CADR     ARTHINSF                              
019686,002125: 41,3266           61143                           CADR     DPINSF                                
019687,002126: 41,3267           61170                           CADR     DPINSF2                               
019688,002127: 41,3270           61447                           CADR     DSPALARM                              #  LRPOSOUT CANT BE LOADED.
019689,002128: 41,3271           61143                           CADR     DPINSF                                #  SAME AS ARITHDP1
019690,002129: 41,3272           65463                           CADR     HMSIN                                 
019691,002130: 41,3273           61447                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
019692,002131: 41,3274           61175                           CADR     DPINSF4                               
019693,002132: 41,3275           61140                           CADR     ARTIN1SF                              
019694,002133: 41,3276           61447                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
019695,002134: 41,3277           61037                           CADR     DEGINSF                               #  TESTS AT END FOR 360-CDU
019696,002135: 41,3300           61447                           CADR     DSPALARM                              #  RRANGOUT CANT BE LOADED.
019697,002136: 41,3301           61447                           CADR     DSPALARM                              #  RRDOTOUT CANT BE LOADED.
019698,002137: 41,3302                        ENDRUTIN           EQUALS                                         
019699,002138: 
019700,002139:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.

Page 446

019702,002141:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
019703,002142: 
019704,002143: 
019705,002144: 40,3037                                           SETLOC   ENDDPDEC   +1                         
019706,002145: 
019707,002146: 40,3037                                           COUNT*   $$/PIN                                
019708,002147:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
019709,002148: 
019710,002149: 40,3037           07124        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
019711,002150: 40,3040           03123                           ADRES    DEGCON1                               #  MULT BY 5.5  5(10)X2EXP-3
019712,002151: 40,3041           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
019713,002152: 40,3042           34732                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
019714,002153: 40,3043           03045                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
019715,002154: 40,3044           44732                           CS       BIT11                                 
019716,002155: 40,3045           60155                           AD       MPAC       +1                         
019717,002156: 40,3046           03214                           TC       2ROUND     +2                         
019718,002157: 40,3047           04375                           TC       TPSL1                                 #  LEFT 1
019719,002158: 40,3050           04375        DEGINSF2           TC       TPSL1                                 #  LEFT 2
019720,002159: 40,3051           03223                           TC       TESTOFUF                              
019721,002160: 40,3052           04375                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
019722,002161: 40,3053           10154                           CCS      MPAC                                  
019723,002162: 40,3054           03060                           TC       SIGNFIX                               #  IF+, GO TO SIGNFIX
019724,002163: 40,3055           03060                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
019725,002164: 40,3056           40000                           COM                                            #  IF - , USE -MAGNITUDE +1
019726,002165: 40,3057           54154                           TS       MPAC                                  #  IF -0, USE +0
019727,002166: 40,3060           10162        SIGNFIX            CCS      MPAC+6                                
019728,002167: 40,3061           03117                           TC       SGNTO1                                #  IF OVERFLOW
019729,002168: 40,3062           03072                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
019730,002169: 40,3063           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
019731,002170: 40,3064           05701                           TC       CCSHOLE                               
019732,002171: 40,3065           03115                           TC       NEG180                                
019733,002172: 40,3066           03067                           TC       +1                                    
019734,002173: 40,3067           56154                           XCH      MPAC                                  
019735,002174: 40,3070           74724                           MASK     POSMAX                                
019736,002175: 40,3071           54154                           TS       MPAC                                  
019737,002176: 40,3072           50140        ENDSCALE           INDEX    MIXBR                                 #  IF ROUTINE NO. IS NOT CDU DEGREES,
019738,002177: 40,3073           03073                           TC       +0                                    #   THEN THIS IS 360 - CDU DEGREES
019739,002178: 40,3074           03077                           TC       +3                                    #   AND ANGLE IN MPAC MUST BE REPLACED
019740,002179: 40,3075           03107                           TC       SFMIXCAL                              #   BY 360 DEGREES MINUS ITSELF.
019741,002180: 40,3076           03100        MIXBACK            TC       +2                                    
019742,002181: 40,3077           03112                           TC       SFNORCAL                              
019743,002182: 40,3100           40000        NORBACK            CS       A                                     
019744,002183: 40,3101           64743                           AD       BIT2                                  
019745,002184: 40,3102           00006                           EXTEND                                         
019746,002185: 40,3103           13105                           BZF      +2                                    
019747,002186: 40,3104           02614                           TC       360-CDU                               
019748,002187: 40,3105           04626        ENDSCAL1           TC       POSTJUMP                              
019749,002188: 40,3106           63225                           CADR     PUTCOM2                               
019750,002189: 
019751,002190: 40,3107           04607        SFMIXCAL           TC       BANKCALL                              

Page 447

019753,002192: 40,3110           63104                           CADR     SFRUTMIX                              
019754,002193: 40,3111           03076                           TC       MIXBACK                               
019755,002194: 
019756,002195: 40,3112           04607        SFNORCAL           TC       BANKCALL                              
019757,002196: 40,3113           63076                           CADR     SFRUTNOR                              
019758,002197: 40,3114           03100                           TC       NORBACK                               
019759,002198: 
019760,002199: 40,3115           44724        NEG180             CS       POSMAX                                
019761,002200: 40,3116           03071                           TC       ENDSCALE   -1                         
019762,002201: 
019763,002202: 40,3117           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
019764,002203: 40,3120           74724                           MASK     POSMAX                                
019765,002204: 40,3121           40000                           CS       A                                     
019766,002205: 40,3122           03071                           TC       ENDSCALE   -1                         
019767,002206: 
019768,002207: 40,3123           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
019769,002208: 
019770,002209: 
019771,002210: 40,3125           07124        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019772,002211: 40,3126           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
019773,002212: 40,3127           56156                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
019774,002213: 40,3130           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
019775,002214: 40,3131           56154                           XCH      MPAC                                  
019776,002215: 40,3132           00006                           EXTEND                                         
019777,002216: 40,3133           13135                           BZF      BINROUND                              
019778,002217: 40,3134           06020                           TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
019779,002218: 40,3135           03212        BINROUND           TC       2ROUND                                
019780,002219: 40,3136           03223                           TC       TESTOFUF                              
019781,002220: 40,3137           03105                           TC       ENDSCAL1                              #  RETURNS IF NO OF/UF
019782,002221: 
019783,002222: 40,3140           07124        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019784,002223: 40,3141           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
019785,002224: 40,3142           03135                           TC       BINROUND                              
019786,002225: 
019787,002226: 
019788,002227: 40,3143           07124        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
019789,002228: 40,3144           00123                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
019790,002229: 40,3145           56156                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
019791,002230: 40,3146           60000                           DOUBLE                                         
019792,002231: 40,3147           54156                           TS       MPAC       +2                         
019793,002232: 40,3150           34746                           CAF      ZERO                                  
019794,002233: 40,3151           60155                           AD       MPAC       +1                         
019795,002234: 40,3152           03214                           TC       2ROUND     +2                         
019796,002235: 40,3153           03223                           TC       TESTOFUF                              
019797,002236: 40,3154           50140                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
019798,002237: 40,3155           03155                           TC       +0                                    
019799,002238: 40,3156           03166                           TC       DPINORM                               
019800,002239: 40,3157           30117                           CA       DECOUNT                               #  MIXEDNOUN
019801,002240: 40,3160           60145        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
019802,002241: 40,3161           54002                           TS       Q                                     #    E SUBK            E

Page 448

019804,002243: 40,3162           56155                           XCH      MPAC       +1                         
019805,002244: 40,3163           50002                           INDEX    Q                                     
019806,002245: 40,3164           54001                           TS       1                                     #  PLACE LOW PART IN
019807,002246: 40,3165           03105                           TC       ENDSCAL1                              #  (E SUBK) +1    MIXED
019808,002247: 
019809,002248: 40,3166           34746        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
019810,002249: 40,3167           03160                           TC       DPINCOM                               
019811,002250: 
019812,002251: 
019813,002252: 40,3170           07124        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019814,002253: 40,3171           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019815,002254: 40,3172           36263                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
019816,002255: 40,3173           03202                           TC       TPLEFTN                               #  SHIFT LEFT 7.
019817,002256: 40,3174           03145                           TC       DPINSF     +2                         
019818,002257: 
019819,002258: 
019820,002259: 40,3175           07124        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
019821,002260: 40,3176           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019822,002261: 40,3177           34743                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
019823,002262: 40,3200           03202                           TC       TPLEFTN                               #  SHIFT LEFT 3.
019824,002263: 40,3201           03145                           TC       DPINSF     +2                         
019825,002264: 
019826,002265: 
019827,002266: 40,3202           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
019828,002267: 40,3203           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
019829,002268: 40,3204           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
019830,002269: 40,3205           54123        LEFTNCOM           TS       SFTEMP1                               #      LOOP TIME .37 MSEC.
019831,002270: 40,3206           04375                           TC       TPSL1                                 
019832,002271: 40,3207           10123                           CCS      SFTEMP1                               
019833,002272: 40,3210           03205                           TC       LEFTNCOM                              
019834,002273: 40,3211           00124                           TC       SFTEMP2                               
019835,002274: 
019836,002275: 
019837,002276: 40,3212           56155        2ROUND             XCH      MPAC       +1                         
019838,002277: 40,3213           60000                           DOUBLE                                         
019839,002278: 40,3214           54155                           TS       MPAC       +1                         
019840,002279: 40,3215           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
019841,002280: 40,3216           60154                           AD       MPAC                                  
019842,002281: 40,3217           54154                           TS       MPAC                                  
019843,002282: 40,3220           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
019844,002283: 40,3221           54162                           TS       MPAC+6                                
019845,002284: 40,3222           00002        2RNDEND            TC       Q                                     
019846,002285: 
019847,002286: 
019848,002287: 40,3223           10162        TESTOFUF           CCS      MPAC+6                                #  RETURNS IF NO OF/UF
019849,002288: 40,3224           06020                           TC       ALMCYCLE                              #  OF   ALARM AND RECYCLE.
019850,002289: 40,3225           00002                           TC       Q                                     
019851,002290: 40,3226           06020                           TC       ALMCYCLE                              #  UF   ALARM AND RECYCLE.
019852,002291: 

Page 449

019854,002293: 42,3463                                           SETLOC   ENDSPMIN   +1                         
019855,002294: 
019856,002295: 42,3463                                           COUNT*   $$/PIN                                
019857,002296: 42,3463           03604        HMSIN              TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
019858,002297: 42,3464           07124                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
019859,002298: 42,3465           03545                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
019860,002299: 42,3466           03554                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
019861,002300: 42,3467           34746                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383 ).
019862,002301: 42,3470           54156                           TS       MPAC       +2                         
019863,002302: 42,3471           33547                           CAF      HRCON                                 
019864,002303: 42,3472           54154                           TS       MPAC                                  
019865,002304: 42,3473           33550                           CAF      HRCON      +1                         
019866,002305: 42,3474           56155                           XCH      MPAC       +1                         
019867,002306: 42,3475           07330                           TC       SHORTMP                               
019868,002307: 42,3476           03565                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
019869,002308: 42,3477           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
019870,002309: 42,3500           52124                           DXCH     HITEMIN                               
019871,002310: 42,3501           31003                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
019872,002311: 42,3502           23006                           LXCH     YREGLP                                
019873,002312: 42,3503           52155                           DXCH     MPAC                                  
019874,002313: 42,3504           07124                           TC       DMP                                   
019875,002314: 42,3505           03545                           ADRES    WHOLECON                              
019876,002315: 42,3506           03554                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
019877,002316: 42,3507           43552                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
019878,002317: 42,3510           03572                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
019879,002318: 42,3511           56155                           XCH      MPAC       +1                         
019880,002319: 42,3512           00006                           EXTEND                                         
019881,002320: 42,3513           73551                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
019882,002321: 42,3514           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
019883,002322: 42,3515           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745HR,39MIN
019884,002323: 42,3516           13520                           BZF      +2                                    
019885,002324: 42,3517           06020                           TC       ALMCYCLE                              
019886,002325: 42,3520           31004                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
019887,002326: 42,3521           23007                           LXCH     ZREGLP                                
019888,002327: 42,3522           52155                           DXCH     MPAC                                  
019889,002328: 42,3523           07124                           TC       DMP                                   
019890,002329: 42,3524           03545                           ADRES    WHOLECON                              
019891,002330: 42,3525           03554                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
019892,002331: 42,3526           43553                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
019893,002332: 42,3527           03572                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
019894,002333: 42,3530           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
019895,002334: 42,3531           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
019896,002335: 42,3532           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
019897,002336: 42,3533           13535                           BZF      +2                                    
019898,002337: 42,3534           06020                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
019899,002338: 42,3535           34746                           CAF      ZERO                                  
019900,002339: 42,3536           54156                           TS       MPAC       +2                         
019901,002340: 42,3537           07300                           TC       TPAGREE                               
019902,002341: 42,3540           52155                           DXCH     MPAC                                  
019903,002342: 42,3541           50145                           INDEX    NOUNADD                               

Page 450

019905,002344: 42,3542           52001                           DXCH     0                                     
019906,002345: 42,3543           04626                           TC       POSTJUMP                              
019907,002346: 42,3544           63045                           CADR     LOADLV                                
019908,002347: 
019909,002348: 42,3545           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
019910,002349: 42,3546           03240                           OCT      03240                                 
019911,002350: 42,3547           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
019912,002351: 42,3550           37100                           OCT      37100                                 
019913,002352: 42,3551           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
019914,002353: 42,3552           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
019915,002354: 42,3553           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
019916,002355: 
019917,002356: 42,3554           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
019918,002357: 42,3555           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
019919,002358: 42,3556           54156                           TS       MPAC       +2                         
019920,002359: 42,3557           34746                           CAF      ZERO                                  
019921,002360: 42,3560           60155                           AD       MPAC       +1                         
019922,002361: 42,3561           54155                           TS       MPAC       +1                         
019923,002362: 42,3562           34746                           CAF      ZERO                                  
019924,002363: 42,3563           60154                           AD       MPAC                                  #  CANT OVFLOW
019925,002364: 42,3564           56154                           XCH      MPAC                                  
019926,002365: 42,3565           10154        MPACTST            CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
019927,002366: 42,3566           06020                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019928,002367: 42,3567           00002                           TC       Q                                     
019929,002368: 42,3570           06020                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019930,002369: 42,3571           00002                           TC       Q                                     
019931,002370: 
019932,002371: 42,3572           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
019933,002372: 42,3573           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1
019934,002373: 42,3574           64744                           AD       ONE                                   
019935,002374: 42,3575           13577                           TCF      +2                                    
019936,002375: 42,3576           64744                           AD       ONE                                   
019937,002376: 42,3577           60156                           AD       MPAC       +2                         
019938,002377: 42,3600           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
019939,002378: 42,3601           63603                           BZMF     +2                                    
019940,002379: 42,3602           06020                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
019941,002380: 42,3603           00002                           TC       Q                                     #  MAG OF MPAC+1 L/= CON
019942,002381: 
019943,002382: 
019944,002383:                                                                                                  #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
019945,002384:                                                                                                  #  ALARM IF NOT.( TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
019946,002385: 42,3604           43611        ALL3DEC            CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
019947,002386: 42,3605           70777                           MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
019948,002387: 42,3606           63611                           AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
019949,002388: 42,3607           10000                           CCS      A                                     
019950,002389: 42,3610           03614                           TC       FORCEV25                              
019951,002390: 42,3611           77743        OCT34BAR           OCT      77743                                 
019952,002391: 42,3612           03614                           TC       FORCEV25                              
019953,002392: 42,3613           00002                           TC       Q                                     
019954,002393: 

Page 451

019956,002395: 42,3614           46010        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
019957,002396: 42,3615           55040                           TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD
019958,002397: 42,3616           06020                           TC       ALMCYCLE                              #   VERB.  ALARM AND RECYCLE.
019959,002398: 42,3617                        ENDHMSS            EQUALS                                         
019960,002399: 

Page 452

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

Page 453

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

Page 454

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

Page 455

020114,002553:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
020115,002554:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
020116,002555:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
020117,002556: 
020118,002557:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.
020119,002558: 
020120,002559:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
020121,002560:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
020122,002561:                                                                                                  #           V23N26 SHOULD BE USED.
020123,002562: 
020124,002563:                                                                                                  #  SUMMARY
020125,002564:                                                                                                  #  FOR BANKS L/E 27,                          V27N01E(FCADR)E
020126,002565:                                                                                                  #  FOR BANKS G/E 30,    V23N26E(SUPERBITS)E   V27N01E(FCADR)E
020127,002566: 
020128,002567: 41,3425           34310        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
020129,002568: 41,3426           54776                           TS       DSPCOUNT                              
020130,002569: 41,3427           31046                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
020131,002570: 41,3430           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
020132,002571: 41,3431           31016                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
020133,002572: 41,3432           04642                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
020134,002573: 41,3433           03435                           TC       DSPOCTWD                              
020135,002574: 41,3434           05146        ENDSPF             TC       ENDOFJOB                              
020136,002575: 

Page 456

020138,002577:                                                                                                  #  WORD DISPLAY ROUTINES
020139,002578: 40,3227                                           SETLOC   TESTOFUF   +4                         
020140,002579: 40,3227                                           COUNT*   $$/PIN                                
020141,002580: 40,3227           56002        DSPSIGN            XCH      Q                                     
020142,002581: 40,3230           54144                           TS       DSPWDRET                              
020143,002582: 40,3231           10154                           CCS      MPAC                                  
020144,002583: 40,3232           03242                           TC       +8D                                   
020145,002584: 40,3233           03242                           TC       +7                                    
020146,002585: 40,3234           64744                           AD       ONE                                   
020147,002586: 40,3235           54154                           TS       MPAC                                  
020148,002587: 40,3236           02422                           TC       -ON                                   
020149,002588: 40,3237           40155                           CS       MPAC       +1                         
020150,002589: 40,3240           54155                           TS       MPAC       +1                         
020151,002590: 40,3241           00144                           TC       DSPWDRET                              
020152,002591: 40,3242           02402                           TC       +ON                                   
020153,002592: 40,3243           00144                           TC       DSPWDRET                              
020154,002593: 
020155,002594: 40,3244           00006        DSPRND             EXTEND                                         #  ROUND BY 5 EXP-6
020156,002595: 40,3245           33310                           DCA      DECROUND   -1                         
020157,002596: 40,3246           20155                           DAS      MPAC                                  
020158,002597: 40,3247           00006                           EXTEND                                         
020159,002598: 40,3250           13254                           BZF      +4                                    
020160,002599: 40,3251           00006                           EXTEND                                         
020161,002600: 40,3252           34724                           DCA      DPOSMAX                               
020162,002601: 40,3253           52155                           DXCH     MPAC                                  
020163,002602: 40,3254           00002                           TC       Q                                     
020164,002603: 
020165,002604:                                                                                                  #  DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
020166,002605:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
020167,002606: 
020168,002607: 40,3255           56002        DSPDECWD           XCH      Q                                     
020169,002608: 40,3256           54115                           TS       WDRET                                 
020170,002609: 40,3257           03227                           TC       DSPSIGN                               
020171,002610: 40,3260           03244                           TC       DSPRND                                
020172,002611: 40,3261           34742                           CAF      FOUR                                  
020173,002612: 40,3262           54137        DSPDCWD1           TS       WDCNT                                 
020174,002613: 40,3263           34354                           CAF      BINCON                                
020175,002614: 40,3264           07330                           TC       SHORTMP                               
020176,002615: 40,3265           50154        TRACE1             INDEX    MPAC                                  
020177,002616: 40,3266           34066                           CAF      RELTAB                                
020178,002617: 40,3267           74337                           MASK     LOW5                                  
020179,002618: 40,3270           54124                           TS       CODE                                  
020180,002619: 40,3271           34746                           CAF      ZERO                                  
020181,002620: 40,3272           56156                           XCH      MPAC       +2                         
020182,002621: 40,3273           56155                           XCH      MPAC       +1                         
020183,002622: 40,3274           54154                           TS       MPAC                                  
020184,002623: 40,3275           56776                           XCH      DSPCOUNT                              
020185,002624: 40,3276           54143        TRACE1S            TS       COUNT                                 
020186,002625: 40,3277           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0

Page 457

020188,002627: 40,3300           54776                           TS       DSPCOUNT                              
020189,002628: 40,3301           03351                           TC       DSPIN                                 
020190,002629: 40,3302           10137                           CCS      WDCNT                                 
020191,002630: 40,3303           03262                           TC       DSPDCWD1                              
020192,002631: 40,3304           44351                           CS       VD1                                   
020193,002632: 40,3305           54776                           TS       DSPCOUNT                              
020194,002633: 40,3306           00115                           TC       WDRET                                 
020195,002634: 
020196,002635: 40,3307           00000                           OCT      00000                                 
020197,002636: 40,3310           02476        DECROUND           OCT      02476                                 
020198,002637: 
020199,002638:                                                                                                  #  DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
020200,002639:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
020201,002640: 
020202,002641: 40,3311           56002        DSPDECNR           XCH      Q                                     
020203,002642: 40,3312           54115                           TS       WDRET                                 
020204,002643: 40,3313           03227                           TC       DSPSIGN                               
020205,002644: 40,3314           03261                           TC       DSPDCWD1   -1                         
020206,002645: 
020207,002646:                                                                                                  #  DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
020208,002647:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
020209,002648: 
020210,002649: 40,3315           56002        DSPDC2NR           XCH      Q                                     
020211,002650: 40,3316           54115                           TS       WDRET                                 
020212,002651: 40,3317           03227                           TC       DSPSIGN                               
020213,002652: 40,3320           34744                           CAF      ONE                                   
020214,002653: 40,3321           03262                           TC       DSPDCWD1                              
020215,002654: 
020216,002655: 
020217,002656:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
020218,002657:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
020219,002658: 
020220,002659: 40,3322           56002        DSP2DEC            XCH      Q                                     
020221,002660: 40,3323           54115                           TS       WDRET                                 
020222,002661: 40,3324           34746                           CAF      ZERO                                  
020223,002662: 40,3325           54124                           TS       CODE                                  
020224,002663: 40,3326           36266                           CAF      THREE                                 
020225,002664: 40,3327           03433                           TC       11DSPIN                               #  -R2 OFF
020226,002665: 40,3330           34742                           CAF      FOUR                                  
020227,002666: 40,3331           03433                           TC       11DSPIN                               #  +R2 OFF
020228,002667: 40,3332           03227                           TC       DSPSIGN                               
020229,002668: 40,3333           34311                           CAF      R2D1                                  
020230,002669: 40,3334           03262        END2DEC            TC       DSPDCWD1                              
020231,002670: 
020232,002671:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
020233,002672:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
020234,002673:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
020235,002674:                                                                                                  #  DISPLAY CONVERSION.
020236,002675: 

Page 458

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

Page 459

020289,002728: 41,3467           00115                           TC       WDRET                                 
020290,002729: 
020291,002730: 41,3470     4750               DSPMSK             =        SEVEN                                 
020292,002731: 
020293,002732: 
020294,002733:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
020295,002734:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
020296,002735:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
020297,002736:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
020298,002737: 
020299,002738: 40,3351                                           SETLOC   ENDECVN                               
020300,002739: 
020301,002740: 40,3351                                           COUNT*   $$/PIN                                
020302,002741: 40,3351           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
020303,002742: 40,3352           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
020304,002743: 40,3353           34337                           CAF      LOW5                                  
020305,002744: 40,3354           70143                           MASK     COUNT                                 
020306,002745: 40,3355           54021                           TS       SR                                    
020307,002746: 40,3356           56021                           XCH      SR                                    
020308,002747: 40,3357           54141                           TS       DSREL                                 
020309,002748: 40,3360           34744                           CAF      BIT1                                  
020310,002749: 40,3361           70143                           MASK     COUNT                                 
020311,002750: 40,3362           10000                           CCS      A                                     
020312,002751: 40,3363           03365                           TC       +2                                    #  LEFT IF COUNT IS ODD
020313,002752: 40,3364           03375                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
020314,002753: 40,3365           56124                           XCH      CODE                                  
020315,002754: 40,3366           04331                           TC       SLEFT5                                #  DOES NOT USE CYL
020316,002755: 40,3367           54124                           TS       CODE                                  
020317,002756: 40,3370           34727                           CAF      BIT14                                 
020318,002757: 40,3371           70143                           MASK     COUNT                                 
020319,002758: 40,3372           10000                           CCS      A                                     
020320,002759: 40,3373           34743                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
020321,002760: 40,3374           64744                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
020322,002761: 40,3375           54143                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
020323,002762:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
020324,002763:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
020325,002764: 40,3376           00004        DSPIN1             INHINT                                         
020326,002765: 40,3377           50141                           INDEX    DSREL                                 
020327,002766: 40,3400           11022                           CCS      DSPTAB                                
020328,002767: 40,3401           03403                           TC       +2                                    #  IF +
020329,002768: 40,3402           05701                           TC       CCSHOLE                               
020330,002769: 40,3403           64744                           AD       ONE                                   #  IF-
020331,002770: 40,3404           54142                           TS       DSMAG                                 
020332,002771: 40,3405           50143                           INDEX    COUNT                                 
020333,002772: 40,3406           73427                           MASK     DSMSK                                 
020334,002773: 40,3407           00006                           EXTEND                                         
020335,002774: 40,3410           60124                           SU       CODE                                  
020336,002775: 40,3411           00006                           EXTEND                                         
020337,002776: 40,3412           13425                           BZF      DSLV                                  #  SAME
020338,002777: 40,3413           50143        DFRNT              INDEX    COUNT                                 

Page 460

020340,002779: 40,3414           43427                           CS       DSMSK                                 #  MASK WITH 77740,76037,75777, OR 74037
020341,002780: 40,3415           70142                           MASK     DSMAG                                 
020342,002781: 40,3416           60124                           AD       CODE                                  
020343,002782: 40,3417           40000                           CS       A                                     
020344,002783: 40,3420           50141                           INDEX    DSREL                                 
020345,002784: 40,3421           57022                           XCH      DSPTAB                                
020346,002785: 40,3422           00006                           EXTEND                                         
020347,002786: 40,3423           63425                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
020348,002787: 40,3424           25015                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
020349,002788: 40,3425           00003        DSLV               RELINT                                         
020350,002789: 40,3426           00114                           TC       DSEXIT                                
020351,002790: 
020352,002791: 40,3427           00037        DSMSK              OCT      37                                    
020353,002792: 40,3430           01740                           OCT      1740                                  
020354,002793: 40,3431           02000                           OCT      2000                                  
020355,002794: 40,3432           03740                           OCT      3740                                  
020356,002795: 
020357,002796: 
020358,002797:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
020359,002798:                                                                                                  #  BIT11 OF CODE.
020360,002799: 
020361,002800: 40,3433           54141        11DSPIN            TS       DSREL                                 
020362,002801: 40,3434           34743                           CAF      TWO                                   
020363,002802: 40,3435           54143                           TS       COUNT                                 
020364,002803: 40,3436           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
020365,002804: 40,3437           54114                           TS       DSEXIT                                
020366,002805: 40,3440           03376                           TC       DSPIN1                                
020367,002806: 
020368,002807: 
020369,002808: 40,3441           03351        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
020370,002809: 40,3442           33444                           CAF      +2                                    
020371,002810: 40,3443           04631                           TC       BANKJUMP                              
020372,002811: 40,3444           63463        ENDSPOCT           CADR     OCTBACK                               
020373,002812: 
020374,002813: 
020375,002814:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
020376,002815:                                                                                                  #  ABORT WITH 01501.
020377,002816:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
020378,002817:                                                                                                  #  DO TC ENTRET.
020379,002818: 
020380,002819: 40,3445           44351        PREDSPAL           CS       VD1                                   
020381,002820: 40,3446           54776                           TS       DSPCOUNT                              
020382,002821: 40,3447           43470        DSPALARM           CS       NVSBENDL                              
020383,002822: 40,3450           60136                           AD       ENTEXIT                               
020384,002823: 40,3451           00006                           EXTEND                                         
020385,002824: 40,3452           13465                           BZF      CHARALRM   +2                         
020386,002825: 40,3453           43467                           CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
020387,002826: 40,3454           60136                           AD       ENTEXIT                               
020388,002827: 40,3455           00006                           EXTEND                                         
020389,002828: 40,3456           13460                           BZF      +2                                    

Page 461

020391,002830: 40,3457           03463                           TC       CHARALRM                              
020392,002831: 40,3460           04175                           TC       KILMONON                              
020393,002832: 40,3461           04355                           TC       FALTON                                
020394,002833: 40,3462           04124                           TC       PASTEVB                               #  PUT MONITOR VERB BACK IN VERBREG
020395,002834: 40,3463           04355        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
020396,002835: 40,3464           05146                           TC       ENDOFJOB                              
020397,002836: 40,3465           05644                           TC       POODOO                                
020398,002837: 40,3466           21501                           OCT      21501                                 
020399,002838: 40,3467           04124        MONADR             GENADR   PASTEVB                               
020400,002839: 40,3470           04173        NVSBENDL           TC       NVSUBEND                              
020401,002840: 
020402,002841: 
020403,002842:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
020404,002843:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
020405,002844:                                                                                                  #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
020406,002845:                                                                                                  #  MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
020407,002846:                                                                                                  #  FOR MM CODE.
020408,002847: 
020409,002848:    6000                                           SETLOC   FFTAG5                                
020410,002849:    6000                                           BANK                                           
020411,002850:    6020                                           COUNT*   $$/PIN                                
020412,002851:    6020           04355        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
020413,002852:    6021           41040                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
020414,002853:    6022           55012                           TS       REQRET                                #  SET FOR ENTPAS0
020415,002854:    6023           04607                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
020416,002855:    6024           62366                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
020417,002856:    6025           04626                           TC       POSTJUMP                              
020418,002857:    6026           62022        ENDALM             CADR     ENTER                                 
020419,002858: 
020420,002859: 
020421,002860:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
020422,002861:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
020423,002862:                                                                                                  #  MM LIGHTS.
020424,002863:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
020425,002864:                                                                                                  #  IF NOT, IT RECYCLES.
020426,002865: 
020427,002866: 41,3470                                           SETLOC   DSPLV      +3                         
020428,002867: 41,3470                                           COUNT*   $$/PIN                                
020429,002868: 41,3470           03512        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
020430,002869:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
020431,002870:                                                                                                  #  MMADREF AT ENTPASHI.
020432,002871: 41,3471           34740                           CAF      BIT5                                  #  OCT20 = ND2.
020433,002872: 41,3472           60776                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
020434,002873: 41,3473           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
020435,002874: 41,3474           13476                           BZF      +2                                    
020436,002875: 41,3475           06020                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
020437,002876: 41,3476           34746                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
020438,002877: 41,3477           57001                           XCH      NOUNREG                               
020439,002878: 41,3500           54154                           TS       MPAC                                  
020440,002879: 41,3501           34352                           CAF      ND1                                   

Page 462

020442,002881: 41,3502           54776                           TS       DSPCOUNT                              
020443,002882: 41,3503           04607                           TC       BANKCALL                              
020444,002883: 41,3504           60570                           CADR     2BLANK                                
020445,002884: 41,3505           44351                           CS       VD1                                   #  BLOCK NUM CHAR IN
020446,002885: 41,3506           54776                           TS       DSPCOUNT                              
020447,002886: 41,3507           30154                           CA       MPAC                                  
020448,002887: 41,3510           04626                           TC       POSTJUMP                              
020449,002888: 41,3511           10054                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
020450,002889: 
020451,002890: 
020452,002891: 41,3512  04,2054               MODROUTB           =        V37                                   
020453,002892: 41,3512           40002        REQMM              CS       Q                                     
020454,002893: 41,3513           55012                           TS       REQRET                                
020455,002894: 41,3514           34352                           CAF      ND1                                   
020456,002895: 41,3515           54776                           TS       DSPCOUNT                              
020457,002896: 41,3516           34746                           CAF      ZERO                                  
020458,002897: 41,3517           55001                           TS       NOUNREG                               
020459,002898: 41,3520           04607                           TC       BANKCALL                              
020460,002899: 41,3521           60570                           CADR     2BLANK                                
020461,002900: 41,3522           04420                           TC       FLASHON                               
020462,002901: 41,3523           34744                           CAF      ONE                                   
020463,002902: 41,3524           54777                           TS       DECBRNCH                              #  SET FOR DEC
020464,002903: 41,3525           00136                           TC       ENTEXIT                               
020465,002904: 
020466,002905: 
020467,002906:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
020468,002907:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
020469,002908:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
020470,002909:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
020471,002910:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
020472,002911:                                                                                                  #  COMPONENT 3  BBCON
020473,002912: 
020474,002913: 41,3526           34732        VBRQEXEC           CAF      EBANK4                                
020475,002914: 41,3527           54003                           TS       EBANK                                 
020476,002915: 41,3530  E4,1771                                  EBANK=   N26/PRI                               
020477,002916: 
020478,002917: 41,3530           34744                           CAF      BIT1                                  
020479,002918: 41,3531           71771                           MASK     N26/PRI                               
020480,002919: 41,3532           10000                           CCS      A                                     
020481,002920: 41,3533           03555                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
020482,002921: 41,3534           34342                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
020483,002922: 41,3535           54154        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
020484,002923: 41,3536           44744                           CS       BIT1                                  
020485,002924: 41,3537           71771                           MASK     N26/PRI                               
020486,002925: 41,3540           54160                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
020487,002926: 41,3541           04450        REQUESTC           TC       RELDSP                                
020488,002927: 41,3542           31771                           CA       N26/PRI                               
020489,002928: 41,3543           00006                           EXTEND                                         
020490,002929: 41,3544           12400                           BZF      GODSPALM                              #  OP ERROR AND EOJ IF ZERO PRIO/DELAY
020491,002930: 41,3545           34210                           CA       ENDINST                               

Page 463

020493,002932: 41,3546           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
020494,002933: 41,3547           00006                           EXTEND                                         
020495,002934: 41,3550           31773                           DCA      N26/2CAD                              #  JOB ADRES INTO MPAC+1
020496,002935: 41,3551           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
020497,002936: 41,3552           30160                           CA       MPAC       +4                         #  PRIO IN A
020498,002937: 41,3553           00004                           INHINT                                         
020499,002938: 41,3554           00154                           TC       MPAC                                  
020500,002939: 
020501,002940: 41,3555           34345        SETVAC             CAF      TCFINDVC                              
020502,002941: 41,3556           03535                           TC       REQEX1                                
020503,002942: 
020504,002943:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
020505,002944:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
020506,002945:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
020507,002946:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
020508,002947:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
020509,002948:                                                                                                  #  COMPONENT 3  BBCON
020510,002949: 
020511,002950: 41,3557           34343        VBRQWAIT           CAF      TCWAIT                                
020512,002951: 41,3560           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
020513,002952: 41,3561           34732                           CAF      EBANK4                                
020514,002953: 41,3562           54003                           TS       EBANK                                 
020515,002954: 41,3563           31771                           CA       N26/PRI                               #  TIME DELAY
020516,002955: 41,3564           03540        ENDRQWT            TC       REQUESTC   -1                         
020517,002956: 
020518,002957:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
020519,002958:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
020520,002959:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
020521,002960: 
020522,002961: 
020523,002962: 40,3471                                           SETLOC   NVSBENDL   +1                         
020524,002963: 40,3471                                           COUNT*   $$/PIN                                
020525,002964: 40,3471           34744        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
020526,002965: 40,3472           55013                           TS       LOADSTAT                              
020527,002966: 40,3473           04175                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020528,002967: 40,3474           04450                           TC       RELDSP                                
020529,002968: 40,3475           04424                           TC       FLASHOFF                              
020530,002969: 40,3476           03605                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
020531,002970: 
020532,002971: 
020533,002972: 40,3477           44744        VBTERM             CS       ONE                                   
020534,002973: 40,3500           03472                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
020535,002974: 
020536,002975: 
020537,002976:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
020538,002977:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
020539,002978: 40,3501           41000        PROCKEY            CS       VERBREG                               #  DONT ALLOW PROCEED DURING LOAD.
020540,002979: 40,3502           63516                           AD       VBSP2LD*                              #  DEC 22
020541,002980: 40,3503           00006                           EXTEND                                         
020542,002981: 40,3504           26000                           DIM      A                                     

Page 464

020544,002983: 40,3505           00006                           EXTEND                                         
020545,002984: 40,3506           13463                           BZF      CHARALRM                              
020546,002985: 40,3507           34746        PROCKEY1           CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
020547,002986: 40,3510           55012                           TS       REQRET                                
020548,002987: 40,3511           44351                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
020549,002988: 40,3512           54776                           TS       DSPCOUNT                              
020550,002989: 40,3513           03471                           TC       VBPROC                                
020551,002990: 
020552,002991: 
020553,002992:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
020554,002993:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
020555,002994:                                                                                                  #   DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
020556,002995:                                                                                                  #   OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
020557,002996: 
020558,002997: 40,3514           44746        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
020559,002998: 40,3515           03472                           TC       VBPROC     +1                         
020560,002999: 
020561,003000: 
020562,003001: 40,3516           00026        VBSP2LD*           DEC      22         B-14                       #  VB22 = BLOAD
020563,003002: 
020564,003003:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
020565,003004:                                                                                                  #  END OF LOAD.
020566,003005: 

Page 465

020568,003007:                                                                                                  #  KEY RELEASE ROUTINE
020569,003008: 
020570,003009:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
020571,003010: 
020572,003011:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
020573,003012:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
020574,003013:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
020575,003014:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
020576,003015: 
020577,003016:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
020578,003017:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
020579,003018:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
020580,003019: 
020581,003020:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
020582,003021:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
020583,003022:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
020584,003023:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
020585,003024:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
020586,003025:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
020587,003026:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
020588,003027:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
020589,003028:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
020590,003029:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
020591,003030:                                                                                                  #  SUBROUTINES.
020592,003031: 
020593,003032: 40,3517           44742        VBRELDSP           CS       BIT3                                  
020594,003033: 40,3520           00006                           EXTEND                                         
020595,003034: 40,3521           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
020596,003035: 40,3522           10115                           CCS      21/22REG                              #  OLD DSPLOCK
020597,003036: 40,3523           34727                           CAF      BIT14                                 
020598,003037: 40,3524           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
020599,003038: 40,3525           10000                           CCS      A                                     
020600,003039: 40,3526           03535                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
020601,003040: 40,3527           04450        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
020602,003041: 40,3530           11041                           CCS      CADRSTOR                              #   RELEASE DISPLAY SYSTEM AND
020603,003042: 40,3531           03533                           TC       +2                                    #   DO RE-ESTABLISH IF CADRSTOR IS FULL.
020604,003043: 40,3532           05146                           TC       ENDOFJOB                              
020605,003044: 40,3533           04626                           TC       POSTJUMP                              
020606,003045: 40,3534           21062                           CADR     PINBRNCH                              
020607,003046: 40,3535           34746        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
020608,003047: 40,3536           55011                           TS       DSPLOCK                               #   JUST UNSUSPEND IT BY CLEARING DSPLOCK.
020609,003048: 40,3537           11041                           CCS      CADRSTOR                              #   TURN KEY RELEASE LIGHT OFF IF BOTH
020610,003049: 40,3540           05146                           TC       ENDOFJOB                              #   CADRSTOR AND DSPLIST ARE EMPTY.
020611,003050: 40,3541           04473                           TC       RELDSP1                               
020612,003051: 40,3542           05146                           TC       ENDOFJOB                              
020613,003052: 
020614,003053: 40,3543                        ENDRELDS           EQUALS                                         
020615,003054: 

Page 466

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

Page 467

020668,003107:                                                                                                  #  PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
020669,003108:                                                                                                  #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
020670,003109:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
020671,003110:                                                                                                  #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
020672,003111:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
020673,003112:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
020674,003113:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
020675,003114:                                                                                                  #  BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
020676,003115:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
020677,003116: 
020678,003117:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
020679,003118:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
020680,003119: 
020681,003120:    4145                                           SETLOC   MID7       +1                         
020682,003121:    4145                                           COUNT*   $$/PIN                                
020683,003122:    4145           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
020684,003123:    4146           54123        NVMONOPT           TS       NVTEMP                                
020685,003124:    4147           34727                           CAF      BIT14                                 
020686,003125:    4150           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020687,003126:    4151           61011                           AD       DSPLOCK                               
020688,003127:    4152           10000                           CCS      A                                     
020689,003128:    4153           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020690,003129:    4154           34744                           CAF      ONE                                   #  DSP SYST AVAILABLE
020691,003130:    4155           60002        NVSBCOM            AD       Q                                     
020692,003131:    4156           55036                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
020693,003132:    4157           23021                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
020694,003133:    4160           04175                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
020695,003134:    4161           34172        NVSUBCOM           CAF      NVSBBBNK                              
020696,003135: 
020697,003136:    4162           56006                           XCH      BBANK                                 
020698,003137:    4163           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
020699,003138:    4164           04007                           ROR      SUPERBNK                              
020700,003139:    4165           55037                           TS       NVBNKTEM                              
020701,003140:    4166           34172                           CAF      PINSUPBT                              
020702,003141:    4167           00006                           EXTEND                                         
020703,003142:    4170           01007                           WRITE    SUPERBNK                              
020704,003143:    4171           02020                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
020705,003144:    4172     0776                                  EBANK=   DSPCOUNT                              
020706,003145:    4172           62101        NVSBBBNK           BBCON    NVSUB1                                
020707,003146: 
020708,003147:    4173     4172               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
020709,003148: 
020710,003149:    4173           53037        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
020711,003150:    4174           05167                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
020712,003151: 
020713,003152: 41,3565                                           SETLOC   ENDRQWT    +1                         
020714,003153: 
020715,003154: 41,3565                                           COUNT*   $$/PIN                                
020716,003155:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
020717,003156:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY

Page 468

020719,003158: 41,3565           64750        BLANKDSP           AD       SEVEN                                 #  7,8,9,OR 10 (A HAD 0,1,2,OR 3)
020720,003159: 41,3566           00004                           INHINT                                         
020721,003160: 41,3567           54124                           TS       CODE                                  #  BLANK SPECIFIED DSPTABS
020722,003161: 41,3570           44731                           CS       BIT12                                 
020723,003162: 41,3571           50124                           INDEX    CODE                                  
020724,003163: 41,3572           57022                           XCH      DSPTAB                                
020725,003164: 41,3573           10000                           CCS      A                                     
020726,003165: 41,3574           25015                           INCR     NOUT                                  
020727,003166: 41,3575           03576                           TC       +1                                    
020728,003167: 41,3576           10124                           CCS      CODE                                  
020729,003168: 41,3577           03567                           TC       BLANKDSP   +2                         
020730,003169: 41,3600           00003                           RELINT                                         
020731,003170: 41,3601           50123                           INDEX    NVTEMP                                
020732,003171: 41,3602           03607                           TC       +5                                    
020733,003172: 41,3603           03604                           TC       +1                                    #  NVTEMP HAS -4 (NEVER TOUCH MODREG)
020734,003173: 41,3604           55000                           TS       VERBREG                               #             -3
020735,003174: 41,3605           55001                           TS       NOUNREG                               #             -2
020736,003175: 41,3606           55014                           TS       CLPASS                                #             -1
020737,003176: 41,3607           44351                           CS       VD1                                   
020738,003177: 41,3610           54776                           TS       DSPCOUNT                              
020739,003178: 41,3611           04424                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
020740,003179: 41,3612           03635                           TC       ENTSET     -2                         #  ZEROS REQRET
020741,003180: 
020742,003181: 41,3613           33637        NVSUB1             CAF      ENTSET                                #  IN BANK
020743,003182: 41,3614           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
020744,003183: 41,3615           10123                           CCS      NVTEMP                                #  WHAT NOW
020745,003184: 41,3616           03622                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
020746,003185: 41,3617           02400                           TC       GODSPALM                              
020747,003186: 41,3620           03565                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
020748,003187: 41,3621           02400                           TC       GODSPALM                              
020749,003188: 41,3622           36115                           CAF      LOW7                                  
020750,003189: 41,3623           70123                           MASK     NVTEMP                                
020751,003190: 41,3624           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
020752,003191: 41,3625           30123                           CA       NVTEMP                                #                  USES MPAC, +1, +2
020753,003192: 41,3626           54023                           TS       EDOP                                  #  RIGHT 7
020754,003193: 41,3627           30023                           CA       EDOP                                  
020755,003194: 41,3630           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
020756,003195:                                                                                                  #                 USES MPAC, +1, +2).
020757,003196: 41,3631           10157                           CCS      MPAC       +3                         #  TEST NOUN
020758,003197: 41,3632           03640                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
020759,003198: 41,3633           30160                           CA       MPAC       +4                         
020760,003199: 41,3634           02366                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
020761,003200: 41,3635           34746                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
020762,003201: 41,3636           55012                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
020763,003202: 41,3637           04173        ENTSET             TC       NVSUBEND                              
020764,003203: 41,3640           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
020765,003204: 41,3641           03645                           TC       +4                                    #  IF VERB NOT +0, GO ON
020766,003205: 41,3642           30157                           CA       MPAC       +3                         
020767,003206: 41,3643           02346                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
020768,003207: 41,3644           04173                           TC       NVSUBEND                              

Page 469

020770,003209: 41,3645           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
020771,003210: 41,3646           54161                           TS       MPAC       +5                         #               USES MPAC, +1, +2)
020772,003211: 41,3647           30160                           CA       MPAC       +4                         
020773,003212: 41,3650           02366                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
020774,003213: 41,3651           30157                           CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
020775,003214: 41,3652           02346                           TC       UPDATNN    -1                         
020776,003215: 41,3653           34746                           CAF      ZERO                                  
020777,003216: 41,3654           55013                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
020778,003217: 41,3655           55014                           TS       CLPASS                                
020779,003218: 41,3656           55012                           TS       REQRET                                #  SET REQRET FOR PASS 0.
020780,003219: 41,3657           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
020781,003220: 41,3660           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
020782,003221: 41,3661           02062        ENDNVSB1           TC       ENTPAS0                               
020783,003222: 
020784,003223: 
020785,003224:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
020786,003225:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
020787,003226: 
020788,003227:    4175                                           SETLOC   NVSUBEND   +2                         
020789,003228:    4175                                           COUNT*   $$/PIN                                
020790,003229:                                                                                                  #  FORCE BIT 15 OF MONSAVE1 TO 1.
020791,003230:    4175           34726        KILMONON           CAF      BIT15                                 #     THIS IS THE KILL MONITOR BIT.
020792,003231:    4176           55020                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
020793,003232:                                                                                                  #   MONITOR BIT.
020794,003233:    4177           00002                           TC       Q                                     
020795,003234: 
020796,003235: 
020797,003236:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
020798,003237:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
020799,003238:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
020800,003239:                                                                                                  #           -0    DATA IN      SET BY END OF LOAD ROUTINE
020801,003240:                                                                                                  #              OR RESEQUENCE   SET BY VERB 32
020802,003241: 
020803,003242: 
020804,003243:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
020805,003244:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
020806,003245:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
020807,003246:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
020808,003247:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
020809,003248:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
020810,003249:                                                                                                  #  L+1      FOR TERMINATE
020811,003250:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
020812,003251:                                                                                                  #  L+3      FOR DATA IN, OR RESEQUENCE
020813,003252:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
020814,003253: 
020815,003254: 
020816,003255:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
020817,003256:                                                                                                  #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
020818,003257:                                                                                                  #  1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS

Page 470

020820,003259:                                                                                                  #  EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
020821,003260:                                                                                                  #  2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
020822,003261:                                                                                                  #  NVSUBUSY.
020823,003262: 
020824,003263:    4200           22002        ENDIDLE            LXCH     Q                                     #  RETURN ADDRESS INTO L.
020825,003264:    4201           04211                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
020826,003265:    4202           04215                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
020827,003266:    4203           30001                           CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
020828,003267:    4204           75003                           MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
020829,003268:    4205           60004                           AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
020830,003269:    4206           55041                           TS       CADRSTOR                              
020831,003270:    4207           05124                           TC       JOBSLEEP                              
020832,003271: 
020833,003272: 
020834,003273:    4210           05146        ENDINST            TC       ENDOFJOB                              
020835,003274: 
020836,003275: 
020837,003276:    4211           11041        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
020838,003277:    4212           04220                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
020839,003278:    4213           00002                           TC       Q                                     
020840,003279:    4214           04220                           TC       DSPABORT                              
020841,003280: 
020842,003281:    4215           11042        ISLIST+0           CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
020843,003282:    4216           04220                           TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
020844,003283:    4217           00002                           TC       Q                                     
020845,003284:    4220           05626        DSPABORT           TC       BAILOUT                               
020846,003285:    4221           31206                           OCT      31206                                 
020847,003286: 
020848,003287:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
020849,003288:                                                                                                  #  IT DOES ENDOFJOB.
020850,003289: 
020851,003290:    4222           34172        JAMTERM            CAF      PINSUPBT                              
020852,003291:    4223           00006                           EXTEND                                         
020853,003292:    4224           01007                           WRITE    SUPERBNK                              
020854,003293:    4225           34233                           CAF      34DEC                                 
020855,003294:    4226           55012                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
020856,003295:    4227           44351                           CS       VD1                                   
020857,003296:    4230           54776                           TS       DSPCOUNT                              
020858,003297:    4231           04626                           TC       POSTJUMP                              
020859,003298:    4232           61477                           CADR     VBTERM                                
020860,003299: 
020861,003300:    4233           00042        34DEC              DEC      34         B-14                       
020862,003301: 
020863,003302: 
020864,003303:                                                                                                  #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
020865,003304:                                                                                                  #  FUNCTION. IT DOES ENDOFJOB.
020866,003305: 
020867,003306:    4234           34172        JAMPROC            CAF      PINSUPBT                              
020868,003307:    4235           00006                           EXTEND                                         
020869,003308:    4236           01007                           WRITE    SUPERBNK                              

Page 471

020871,003310:    4237           34245                           CAF      33DEC                                 
020872,003311:    4240           55012                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
020873,003312:    4241           44351                           CS       VD1                                   
020874,003313:    4242           54776                           TS       DSPCOUNT                              
020875,003314:    4243           04626                           TC       POSTJUMP                              
020876,003315:    4244           61471                           CADR     VBPROC                                
020877,003316: 
020878,003317:    4245           00041        33DEC              DEC      33         B-14                       
020879,003318: 
020880,003319: 
020881,003320:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
020882,003321:                                                                                                  #  CALL WITH BLANKING CODE IN A.
020883,003322:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
020884,003323:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
020885,003324: 
020886,003325:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
020887,003326: 
020888,003327:    4246           74750        BLANKSUB           MASK     SEVEN                                 
020889,003328:    4247           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
020890,003329:    4250           34727                           CAF      BIT14                                 
020891,003330:    4251           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020892,003331:    4252           61011                           AD       DSPLOCK                               
020893,003332:    4253           10000                           CCS      A                                     
020894,003333:    4254           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020895,003334:    4255           24002                           INCR     Q                                     #  DSP SYST AVAILABLE
020896,003335:                                                                                                  #  SET RETURN FOR 2+ CALLING LOC
020897,003336:    4256           10123                           CCS      NVTEMP                                
020898,003337:    4257           14261                           TCF      +2                                    
020899,003338:    4260           00002                           TC       Q                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
020900,003339:    4261           22002                           LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
020901,003340:    4262           34273                           CAF      BLNKBBNK                              
020902,003341:    4263           56006                           XCH      BBANK                                 
020903,003342:    4264           00006                           EXTEND                                         
020904,003343:    4265           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
020905,003344:    4266           52131                           DXCH     BUF                                   
020906,003345:    4267           34172                           CAF      PINSUPBT                              
020907,003346:    4270           00006                           EXTEND                                         
020908,003347:    4271           01007                           WRITE    SUPERBNK                              
020909,003348:    4272           03543                           TC       BLNKSUB1                              
020910,003349: 
020911,003350:    4273     0776                                  EBANK=   DSPCOUNT                              
020912,003351:    4273           60101        BLNKBBNK           BBCON    BLNKSUB1                              
020913,003352:    4274                        ENDBLFF            EQUALS                                         
020914,003353: 
020915,003354: 40,3543                                           SETLOC   ENDRELDS                              
020916,003355: 40,3543                                           COUNT*   $$/PIN                                
020917,003356: 40,3543           30776        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
020918,003357: 40,3544           54132                           TS       BUF        +2                         
020919,003358: 40,3545           34744                           CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
020920,003359: 40,3546           03565                           TC       TESTBIT                               

Page 472

020922,003361: 40,3547           34310                           CAF      R1D1                                  
020923,003362: 40,3550           02524                           TC       5BLANK     -1                         
020924,003363: 40,3551           34743                           CAF      BIT2                                  #  TEST BIT 2. SEE IF R2 TO BE BLANKED.
020925,003364: 40,3552           03565                           TC       TESTBIT                               
020926,003365: 40,3553           34311                           CAF      R2D1                                  
020927,003366: 40,3554           02524                           TC       5BLANK     -1                         
020928,003367: 40,3555           34742                           CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
020929,003368: 40,3556           03565                           TC       TESTBIT                               
020930,003369: 40,3557           34312                           CAF      R3D1                                  
020931,003370: 40,3560           02524                           TC       5BLANK     -1                         
020932,003371: 40,3561           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
020933,003372: 40,3562           54776                           TS       DSPCOUNT                              #       BEFORE BLANKSUB.
020934,003373: 40,3563           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
020935,003374: 40,3564           05170                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
020936,003375: 
020937,003376: 40,3565           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
020938,003377: 40,3566           10000                           CCS      A                                     
020939,003378: 40,3567           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
020940,003379: 40,3570           50002                           INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
020941,003380: 40,3571           00002                           TC       2                                     
020942,003381: 
020943,003382: 40,3572                        ENDBSUB1           EQUALS                                         
020944,003383: 
020945,003384: 
020946,003385:                                                                                                  #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
020947,003386:                                                                                                  #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
020948,003387: 
020949,003388:                                                                                                  #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
020950,003389: 
020951,003390:                                                                                                  #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
020952,003391: 
020953,003392: 07,2607                                           BANK     7                                     
020954,003393: 04,2000                                           SETLOC   PINBALL4                              
020955,003394: 04,2000                                           BANK                                           
020956,003395: 
020957,003396: 04,2657                                           COUNT*   $$/PIN                                
020958,003397: 04,2657           56002        DSPMM              XCH      Q                                     
020959,003398: 04,2660           54154                           TS       MPAC                                  
020960,003399: 04,2661           00004                           INHINT                                         
020961,003400: 04,2662           34346                           CAF      CHRPRIO                               
020962,003401: 04,2663           05063                           TC       NOVAC                                 
020963,003402: 04,2664     0776                                  EBANK=   DSPCOUNT                              
020964,003403: 04,2664           03572 60101                     2CADR    DSPMMJB                               
020965,003404: 
020966,003405: 04,2666           00003                           RELINT                                         
020967,003406: 04,2667           00154        ENDSPMM            TC       MPAC                                  
020968,003407: 
020969,003408:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
020970,003409: 
020971,003410: 40,3572                                           SETLOC   ENDBSUB1                              

Page 473

020973,003412: 40,3572                                           COUNT*   $$/PIN                                
020974,003413: 40,3572           34353        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
020975,003414: 40,3573           56776                           XCH      DSPCOUNT                              
020976,003415: 40,3574           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
020977,003416: 40,3575           11010                           CCS      MODREG                                
020978,003417: 40,3576           64744                           AD       ONE                                   
020979,003418: 40,3577           03335                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
020980,003419: 40,3600           03602                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
020981,003420: 40,3601           02570                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
020982,003421: 40,3602           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
020983,003422: 40,3603           54776                           TS       DSPCOUNT                              
020984,003423: 40,3604           05146                           TC       ENDOFJOB                              
020985,003424: 
020986,003425: 
020987,003426:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
020988,003427:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
020989,003428:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
020990,003429: 
020991,003430:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
020992,003431:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
020993,003432: 
020994,003433: 40,3605           11041        RECALTST           CCS      CADRSTOR                              
020995,003434: 40,3606           03610                           TC       RECAL1                                
020996,003435: 40,3607           05146                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
020997,003436: 40,3610           34746        RECAL1             CAF      ZERO                                  
020998,003437: 40,3611           57041                           XCH      CADRSTOR                              
020999,003438: 40,3612           00004                           INHINT                                         
021000,003439: 40,3613           05130                           TC       JOBWAKE                               
021001,003440: 40,3614           11013                           CCS      LOADSTAT                              
021002,003441: 40,3615           03637                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
021003,003442: 40,3616           05146                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
021004,003443: 40,3617           03635                           TC       DOTERM                                #  -   TERMINATE
021005,003444: 40,3620           34743                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
021006,003445: 40,3621           50064        RECAL2             INDEX    LOCCTR                                
021007,003446: 40,3622           60164                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
021008,003447: 40,3623           50064                           INDEX    LOCCTR                                
021009,003448: 40,3624           54164                           TS       LOC                                   
021010,003449: 40,3625           31001                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
021011,003450: 40,3626           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
021012,003451: 40,3627           31000                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
021013,003452: 40,3630           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
021014,003453: 40,3631           52155                           DXCH     MPAC                                  
021015,003454: 40,3632           00003                           RELINT                                         
021016,003455: 40,3633           04450        RECAL3             TC       RELDSP                                
021017,003456: 40,3634           05146                           TC       ENDOFJOB                              
021018,003457: 
021019,003458: 40,3635           34746        DOTERM             CAF      ZERO                                  
021020,003459: 40,3636           03621                           TC       RECAL2                                
021021,003460: 
021022,003461: 40,3637           34744        DOPROC             CAF      ONE                                   

Page 474

021024,003463: 40,3640           03621                           TC       RECAL2                                
021025,003464: 

Page 475

021027,003466:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
021028,003467: 
021029,003468:    4274                                           SETLOC   ENDBLFF                               
021030,003469: 
021031,003470:    4274                                           COUNT*   $$/PIN                                
021032,003471:                                                                                                  #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
021033,003472:                                                                                                  #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
021034,003473: 
021035,003474:    4274           55016        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
021036,003475:    4275           54003                           TS       EBANK                                 #  SET EBANK BITS
021037,003476:    4276           74350                           MASK     LOW8                                  
021038,003477:    4277           65000                           AD       OCT1400                               
021039,003478:    4300           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
021040,003479:    4301           00002                           TC       Q                                     
021041,003480: 
021042,003481: 
021043,003482:                                                                                                  #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
021044,003483:                                                                                                  #                 E ADRES AND PUTS IT INTO NOUNADD.
021045,003484: 
021046,003485:    4302           31016        SETNADD            CA       NOUNCADR                              
021047,003486:    4303           14275                           TCF      SETNCADR   +1                         
021048,003487: 
021049,003488:                                                                                                  #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
021050,003489:                                                                                                  #                 DERIVED AND LEFT IN A.
021051,003490: 
021052,003491:    4304           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
021053,003492:    4305           74350                           MASK     LOW8                                  
021054,003493:    4306           65000                           AD       OCT1400                               #  E ADRES LEFT IN A
021055,003494:    4307           00002                           TC       Q                                     
021056,003495: 
021057,003496: 
021058,003497:    4310           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
021059,003498:    4311           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
021060,003499:    4312           00004        R3D1               OCT      4                                     
021061,003500: 
021062,003501:    4313           54020        RIGHT5             TS       CYR                                   
021063,003502:    4314           40020                           CS       CYR                                   
021064,003503:    4315           40020                           CS       CYR                                   
021065,003504:    4316           40020                           CS       CYR                                   
021066,003505:    4317           40020                           CS       CYR                                   
021067,003506:    4320           56020                           XCH      CYR                                   
021068,003507:    4321           00002                           TC       Q                                     
021069,003508: 
021070,003509:    4322           54022        LEFT5              TS       CYL                                   
021071,003510:    4323           40022                           CS       CYL                                   
021072,003511:    4324           40022                           CS       CYL                                   
021073,003512:    4325           40022                           CS       CYL                                   
021074,003513:    4326           40022                           CS       CYL                                   

Page 476

021076,003515:    4327           56022                           XCH      CYL                                   
021077,003516:    4330           00002                           TC       Q                                     
021078,003517: 
021079,003518:    4331           60000        SLEFT5             DOUBLE                                         
021080,003519:    4332           60000                           DOUBLE                                         
021081,003520:    4333           60000                           DOUBLE                                         
021082,003521:    4334           60000                           DOUBLE                                         
021083,003522:    4335           60000                           DOUBLE                                         
021084,003523:    4336           00002                           TC       Q                                     
021085,003524: 
021086,003525: 
021087,003526:    4337           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
021088,003527:    4340           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
021089,003528:    4341           76000        HI5                OCT      76000                                 #  MUST STAY HERE
021090,003529: 
021091,003530:    4342           05063        TCNOVAC            TC       NOVAC                                 
021092,003531:    4343           05205        TCWAIT             TC       WAITLIST                              
021093,003532:    4344           05263        TCTSKOVR           TC       TASKOVER                              
021094,003533:    4345           05076        TCFINDVC           TC       FINDVAC                               
021095,003534: 
021096,003535: 
021097,003536:    4346           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
021098,003537: 
021099,003538: 
021100,003539:    4347           03777        LOW11              OCT      3777                                  
021101,003540:    4350     4347               B12-1              EQUALS   LOW11                                 
021102,003541:    4350           00377        LOW8               OCT      377                                   
021103,003542: 
021104,003543: 
021105,003544:    4351           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
021106,003545:    4352           00021        ND1                OCT      21                                    #  DONT SEPARATE.
021107,003546:    4353           00025        MD1                OCT      25                                    
021108,003547: 
021109,003548:    4354           00012        BINCON             DEC      10         B-14                       
021110,003549: 
021111,003550:    4355           34736        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
021112,003551:    4356           00006                           EXTEND                                         
021113,003552:    4357           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
021114,003553:    4360           00002                           TC       Q                                     
021115,003554: 
021116,003555:    4361           44736        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
021117,003556:    4362           00006                           EXTEND                                         
021118,003557:    4363           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
021119,003558:    4364           00002                           TC       Q                                     
021120,003559: 
021121,003560:    4365           34740        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
021122,003561:    4366           00006                           EXTEND                                         
021123,003562:    4367           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
021124,003563:    4370           00002                           TC       Q                                     
021125,003564: 

Page 477

021127,003566:    4371           00006        LODSAMPT           EXTEND                                         
021128,003567:    4372           30025                           DCA      TIME2                                 
021129,003568:    4373           52014                           DXCH     SAMPTIME                              
021130,003569:    4374           00002                           TC       Q                                     
021131,003570: 
021132,003571: 
021133,003572:    4375           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
021134,003573:    4376           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
021135,003574:    4377           20156                           DAS      MPAC       +1                         
021136,003575:    4400           60154                           AD       MPAC                                  
021137,003576:    4401           26154                           ADS      MPAC                                  
021138,003577:    4402           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
021139,003578:    4403           00002                           TC       Q                                     #  NO NET OF/UF
021140,003579:    4404           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/-1 FOR OF/UF
021141,003580:    4405           00002                           TC       Q                                     
021142,003581: 
021143,003582: 
021144,003583:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
021145,003584:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
021146,003585:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
021147,003586:                                                                                                  #  SETTING RESULT TO -0.
021148,003587:                                                                                                  #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
021149,003588:                                                                                                  #   WHEN THEY CONTAIN TH E SF CONSTANTS.)
021150,003589: 
021151,003590:    4406           54135        PRSHRTMP           TS       MPTEMP                                
021152,003591:    4407           10000                           CCS      A                                     
021153,003592:    4410           30135                           CA       MPTEMP                                #  C(A) +, DO REGULAR SHORTMP
021154,003593:    4411           17331                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
021155,003594:    4412           14410                           TCF      -2                                    #  C(A) -, DO REGULAR SHORTMP
021156,003595:    4413           44746                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
021157,003596:    4414           54154                           TS       MPAC                                  
021158,003597:    4415           54155                           TS       MPAC       +1                         
021159,003598:    4416           54156                           TS       MPAC       +2                         
021160,003599:    4417           00002                           TC       Q                                     
021161,003600: 
021162,003601: 
021163,003602:    4420           34737        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
021164,003603:    4421           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
021165,003604:    4422           05011                           WOR      DSALMOUT                              
021166,003605:    4423           00002                           TC       Q                                     
021167,003606: 
021168,003607: 
021169,003608:    4424           44737        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
021170,003609:    4425           00006                           EXTEND                                         
021171,003610:    4426           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
021172,003611:    4427           00002                           TC       Q                                     
021173,003612: 

Page 478

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

Page 479

021226,003665:                                                                                                  #  ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
021227,003666: 
021228,003667:    4430           44435        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
021229,003668:    4431           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
021230,003669:    4432           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
021231,003670:    4433           04626        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
021232,003671:    4434           10670                           CADR     NVSUBSY1                              
021233,003672:    4435           02003        2K+3               OCT      2003                                  
021234,003673: 
021235,003674:                                                                                                  #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
021236,003675:                                                                                                  #  WITH HIS PROPER SUPERBITS.
021237,003676: 
021238,003677: 04,2670                                           SETLOC   ENDSPMM    +1                         
021239,003678: 04,2670                                           COUNT*   $$/PIN                                
021240,003679: 04,2670           54001        NVSUBSY1           TS       L                                     
021241,003680: 04,2671           04211                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
021242,003681: 04,2672           04215                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
021243,003682: 04,2673           04365                           TC       RELDSPON                              
021244,003683: 04,2674           30001                           CA       L                                     
021245,003684: 04,2675           55042                           TS       DSPLIST                               
021246,003685: 04,2676           05124        ENDNVBSY           TC       JOBSLEEP                              
021247,003686: 
021248,003687: 
021249,003688:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
021250,003689:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
021251,003690:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
021252,003691:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
021253,003692:                                                                                                  #  IS NOT BUSY.
021254,003693: 
021255,003694:    4436                                           SETLOC   NVSUBUSY   +3                         
021256,003695:    4436                                           COUNT*   $$/PIN                                
021257,003696:    4436           22007        NVSBWAIT           LXCH     7                                     #  ZERO NVMONOPT OPTIONS
021258,003697:    4437           54123                           TS       NVTEMP                                
021259,003698:    4440           34727                           CAF      BIT14                                 
021260,003699:    4441           71020                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
021261,003700:    4442           61011                           AD       DSPLOCK                               
021262,003701:    4443           10000                           CCS      A                                     
021263,003702:    4444           14446                           TCF      NVSBWT1                               #  BUSY
021264,003703:    4445           14155                           TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
021265,003704:                                                                                                  #  AFTER EXECUTION.
021266,003705:    4446           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
021267,003706:    4447           14430                           TCF      PRENVBSY                              #  GO TO SLEEP.
021268,003707: 
021269,003708: 
021270,003709:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
021271,003710:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
021272,003711:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
021273,003712:    4450           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
021274,003713:    4451           54144                           TS       RELRET                                #  OFF,  SEARCH DSPLIST
021275,003714:    4452           44727                           CS       BIT14                                 

Page 480

021277,003716:    4453           00004                           INHINT                                         
021278,003717:    4454           71020                           MASK     MONSAVE1                              
021279,003718:    4455           55020                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
021280,003719:    4456           11042                           CCS      DSPLIST                               
021281,003720:    4457           04461                           TC       +2                                    
021282,003721:    4460           04464                           TC       RELDSP2                               #  LIST EMPTY
021283,003722:    4461           34746                           CAF      ZERO                                  
021284,003723:    4462           57042                           XCH      DSPLIST                               
021285,003724:    4463           05130                           TC       JOBWAKE                               
021286,003725:    4464           00003        RELDSP2            RELINT                                         
021287,003726:    4465           44740                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
021288,003727:    4466           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
021289,003728:    4467           03011                           WAND     DSALMOUT                              
021290,003729:    4470           34746                           CAF      ZERO                                  
021291,003730:    4471           55011                           TS       DSPLOCK                               
021292,003731:    4472           00144                           TC       RELRET                                
021293,003732:    4473           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
021294,003733:    4474           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
021295,003734:                                                                                                  #  EMPTY. LEAVE KEY RLSE LIGHT ALONE IF 
021296,003735:                                                                                                  #  DSPLIST IS NOT EMPTY.
021297,003736:    4475           11042                           CCS      DSPLIST                               
021298,003737:    4476           04500                           TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
021299,003738:    4477           04464                           TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
021300,003739:    4500           34746                           CAF      ZERO                                  #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
021301,003740:    4501           55011                           TS       DSPLOCK                               
021302,003741:    4502           00144                           TC       RELRET                                
021303,003742: 
021304,003743: 
021305,003744:    4503                        ENDPINBF           EQUALS                                         
021306,003745: 

Page 481

021308,003747:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
021309,003748: 
021310,003749:    4503  43,2002               PINTEST            EQUALS   LST2FAN                               
021311,003750: 

Page 482

021313,003752:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
021314,003753:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
021315,003754: 
021316,003755: 41,3662                                           SETLOC   ENDNVSB1   +1                         
021317,003756: 
021318,003757: 41,3662                                           COUNT*   $$/PIN                                
021319,003758: 41,3662           00004        VBTSTLTS           INHINT                                         
021320,003759: 41,3663           04607                           TC       BANKCALL                              #  OPP ERR IF NOT IN POO
021321,003760: 41,3664           66121                           CADR     CHKPOOH                               
021322,003761: 41,3665           44744                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
021323,003762: 41,3666           71300                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
021324,003763: 41,3667           64744                           AD       BIT1                                  
021325,003764: 41,3670           55300                           TS       IMODES33                              
021326,003765: 
021327,003766: 41,3671           33730                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
021328,003767: 41,3672           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
021329,003768: 41,3673           05011                           WOR      DSALMOUT                              
021330,003769: 41,3674           33731                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
021331,003770: 41,3675           55035                           TS       DSPTAB     +11D                       #  PROG ALM.
021332,003771: 41,3676           06040                           TC       C13STALL                              
021333,003772: 41,3677           34733                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
021334,003773: 41,3700           00006                           EXTEND                                         
021335,003774: 41,3701           05013                           WOR      CHAN13                                
021336,003775: 41,3702           34354                           CAF      TEN                                   
021337,003776: 41,3703           54117        TSTLTS1            TS       ERCNT                                 
021338,003777: 41,3704           43726                           CS       FULLDSP                               
021339,003778: 41,3705           50117                           INDEX    ERCNT                                 
021340,003779: 41,3706           55022                           TS       DSPTAB                                
021341,003780: 41,3707           10117                           CCS      ERCNT                                 
021342,003781: 41,3710           03703                           TC       TSTLTS1                               
021343,003782: 41,3711           43727                           CS       FULLDSP1                              
021344,003783: 41,3712           55023                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
021345,003784: 41,3713           55026                           TS       DSPTAB     +4                         
021346,003785: 41,3714           55030                           TS       DSPTAB     +6                         
021347,003786: 41,3715           34751                           CAF      ELEVEN                                
021348,003787: 41,3716           55015                           TS       NOUT                                  
021349,003788: 41,3717           00003                           RELINT                                         
021350,003789: 41,3720           33733                           CAF      SHOLTS                                
021351,003790: 41,3721           00004                           INHINT                                         
021352,003791: 41,3722           05205                           TC       WAITLIST                              
021353,003792: 41,3723     1022                                  EBANK=   DSPTAB                                
021354,003793: 41,3723           03641 60102                     2CADR    TSTLTS2                               
021355,003794: 
021356,003795: 41,3725           05146                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
021357,003796:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
021358,003797:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
021359,003798: 
021360,003799: 
021361,003800: 41,3726           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
021362,003801: 41,3727           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
021363,003802: 

Page 483

021365,003804: 41,3730           00175        TSTCON1            OCT      00175                                 
021366,003805:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
021367,003806:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
021368,003807: 41,3731           40677        TSTCON2            OCT      40677                                 #  DSPTAB +11D BITS 1,2,3,4,5,6,8,9.
021369,003808:                                                                                                  #        DAP, LR, SUPER KEYREL,
021370,003809:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
021371,003810: 41,3732           00115        TSTCON3            OCT      0115                                  #  CHAN 11  BITS 1, 3, 4, 7.
021372,003811:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
021373,003812: 41,3733           00764        SHOLTS             OCT      764                                   #  5 SEC
021374,003813: 
021375,003814: 
021376,003815: 40,2000                                           SETLOC   PINBALL1                              
021377,003816: 40,2000                                           BANK                                           
021378,003817: 
021379,003818: 40,3641           34346        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
021380,003819: 40,3642           05063                           TC       NOVAC                                 
021381,003820: 40,3643     1022                                  EBANK=   DSPTAB                                
021382,003821: 40,3643           03734 62102                     2CADR    TSTLTS3                               
021383,003822: 
021384,003823: 40,3645           05263                           TC       TASKOVER                              
021385,003824: 
021386,003825: 
021387,003826: 41,2000                                           SETLOC   PINBALL2                              
021388,003827: 41,2000                                           BANK                                           
021389,003828: 
021390,003829: 41,3734           43732        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
021391,003830: 41,3735           00004                           INHINT                                         
021392,003831: 41,3736           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
021393,003832: 41,3737           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
021394,003833: 41,3740           06040                           TC       C13STALL                              
021395,003834: 41,3741           44733                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
021396,003835: 41,3742           00006                           EXTEND                                         
021397,003836: 41,3743           03013                           WAND     CHAN13                                
021398,003837: 41,3744           34741                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
021399,003838: 41,3745           00006                           EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
021400,003839: 41,3746           02012                           RAND     CHAN12                                
021401,003840: 41,3747           64726                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
021402,003841: 41,3750           55035                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
021403,003842: 41,3751           43774                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
021404,003843: 41,3752           71300                           MASK     IMODES33                              #  LIGHTS COMPLETE.
021405,003844: 41,3753           65017                           AD       PRIO16                                
021406,003845: 41,3754           55300                           TS       IMODES33                              
021407,003846: 
021408,003847: 41,3755           43776                           CS       OCT55000                              
021409,003848: 41,3756           71277                           MASK     IMODES30                              
021410,003849: 41,3757           65016                           AD       PRIO15                                #  15000.
021411,003850: 41,3760           55277                           TS       IMODES30                              
021412,003851: 
021413,003852: 41,3761           43775                           CS       RFAILS2                               
021414,003853: 41,3762           70110                           MASK     RADMODES                              

Page 484

021416,003855: 41,3763           64736                           AD       RCDUFBIT                              
021417,003856: 41,3764           54110                           TS       RADMODES                              
021418,003857: 
021419,003858: 41,3765           00003                           RELINT                                         
021420,003859: 
021421,003860: 41,3766           04607                           TC       BANKCALL                              #  REDISPLAY C(MODREG)
021422,003861: 41,3767           10657                           CADR     DSPMM                                 
021423,003862: 41,3770           04175                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
021424,003863: 41,3771           04424                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
021425,003864: 41,3772           04626                           TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
021426,003865: 41,3773           61527                           CADR     TSTLTS4                               #   ENDIDLE IS AWAITING OPERATOR RESPONSE.
021427,003866: 41,3774           16001        13-11,1            OCT      16001                                 
021428,003867: 41,3775           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
021429,003868: 41,3776           55000        OCT55000           OCT      55000                                 
021430,003869: 41,3777                        ENDPINS2           EQUALS                                         
021431,003870: 

Page 485

021433,003872:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
021434,003873:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
021435,003874:                                                                                                  #  PROG ALM, TRACKER FAIL.
021436,003875:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
021437,003876:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
021438,003877:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
021439,003878:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
021440,003879: 
021441,003880: 40,2000                                           SETLOC   PINBALL1                              
021442,003881: 40,2000                                           BANK                                           
021443,003882: 
021444,003883: 40,3646                                           COUNT*   $$/PIN                                
021445,003884: 40,3646           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
021446,003885: 40,3647           55011                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
021447,003886: 40,3650           00004                           INHINT                                         
021448,003887: 40,3651           34733                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
021449,003888: 40,3652           00006                           EXTEND                                         
021450,003889: 40,3653           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
021451,003890: 40,3654           33735                           CAF      GL,ETC.                               #  LEAVE GIMBAL LOCK, NO ATT, DAPLITE,
021452,003891:                                                                                                  #    & SUPER KEYRELEASE LITES INTACT
021453,003892: 40,3655           71035                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
021454,003893: 40,3656           64726                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
021455,003894: 40,3657           55035                           TS       DSPTAB     +11D                       
021456,003895: 40,3660           45017                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
021457,003896: 40,3661           71300                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
021458,003897: 40,3662           65017                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
021459,003898: 40,3663           55300                           TS       IMODES33                              
021460,003899: 40,3664           44733                           CS       BIT10                                 
021461,003900: 40,3665           71277                           MASK     IMODES30                              
021462,003901: 40,3666           64733                           AD       BIT10                                 
021463,003902: 40,3667           55277                           TS       IMODES30                              
021464,003903: 
021465,003904: 40,3670           43734                           CS       RFAILS                                
021466,003905: 40,3671           70110                           MASK     RADMODES                              
021467,003906: 40,3672           64736                           AD       RCDUFBIT                              
021468,003907: 40,3673           54110                           TS       RADMODES                              
021469,003908: 
021470,003909: 40,3674           06040                           TC       C13STALL                              
021471,003910: 40,3675           44733                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
021472,003911: 40,3676           00006                           EXTEND                                         
021473,003912: 40,3677           03013                           WAND     CHAN13                                
021474,003913: 40,3700           43733                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
021475,003914: 40,3701           00006                           EXTEND                                         #  OPERATOR ERROR.
021476,003915: 40,3702           03011                           WAND     DSALMOUT                              
021477,003916: 40,3703           34354        TSTAB              CAF      BINCON                                #  (DEC 10)
021478,003917: 40,3704           54117                           TS       ERCNT                                 #  ERCNT = COUNT
021479,003918: 40,3705           00004                           INHINT                                         
021480,003919: 40,3706           50117                           INDEX    ERCNT                                 
021481,003920: 40,3707           11022                           CCS      DSPTAB                                
021482,003921: 40,3710           64744                           AD       ONE                                   

Page 486

021484,003923: 40,3711           03716                           TC       ERPLUS                                
021485,003924: 40,3712           64744                           AD       ONE                                   
021486,003925: 40,3713           40000        ERMINUS            CS       A                                     
021487,003926: 40,3714           73736                           MASK     NOTBIT12                              
021488,003927: 40,3715           03721                           TC       ERCOM                                 
021489,003928: 40,3716           40000        ERPLUS             CS       A                                     
021490,003929: 40,3717           73736                           MASK     NOTBIT12                              
021491,003930: 40,3720           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
021492,003931: 40,3721           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
021493,003932: 40,3722           55022                           TS       DSPTAB                                
021494,003933: 40,3723           00003                           RELINT                                         
021495,003934: 40,3724           10117                           CCS      ERCNT                                 
021496,003935: 40,3725           03704                           TC       TSTAB      +1                         
021497,003936: 40,3726           34746                           CAF      ZERO                                  
021498,003937: 40,3727           54375                           TS       FAILREG                               
021499,003938: 40,3730           54376                           TS       FAILREG    +1                         
021500,003939: 40,3731           55357                           TS       SFAIL                                 
021501,003940: 40,3732           05146                           TC       ENDOFJOB                              
021502,003941: 
021503,003942: 40,3733           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
021504,003943:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
021505,003944: 40,3734           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
021506,003945: 40,3735           00053        GL,ETC.            OCT      00053                                 #  NO ATT, GIMB LOCK, DAPLITE, SUPER KR.
021507,003946: 40,3736           73777        NOTBIT12           OCT      73777                                 
021508,003947: 
021509,003948: 
021510,003949: 40,3737                        ENDPINS1           EQUALS                                         
021511,003950: 
021512,003951: 
021513,003952: 40,3737  30,2000                                  SBANK=   LOWSUPER                              

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