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.

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

Page 402

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

Page 403

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

Page 404

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

017748,000180: 
017749,000181: 
017750,000182:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
017751,000183: 
017752,000184:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
017753,000185:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO

Page 405

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

Page 406

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

Page 407

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

Page 408

017906,000338:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
017907,000339:                                                                                                  #  0        10000
017908,000340:                                                                                                  #  1        00001
017909,000341:                                                                                                  #  9        01001
017910,000342:                                                                                                  #  VERB     10001
017911,000343:                                                                                                  #  ERROR RES10010
017912,000344:                                                                                                  #  KEY RLSE 11001
017913,000345:                                                                                                  #  +        11010
017914,000346:                                                                                                  #  -        11011
017915,000347:                                                                                                  #  ENTER    11100
017916,000348:                                                                                                  #  CLEAR    11110
017917,000349:                                                                                                  #  NOUN     11111

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

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

Page 409

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

Page 410

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

Page 411

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

Page 412

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

Page 413

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

Page 414

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

Page 415

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

Page 416

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

Page 417

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

Page 418

018391,000823: 40,2600           25015                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
018392,000824: 40,2601           00003                           RELINT                                         #  IF -,NOUT OK
018393,000825: 40,2602           00002                           TC       Q                                     
018394,000826: 40,2603           04000        BLANKCON           OCT      4000                                  
018395,000827: 

Page 419

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

Page 420

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

Page 421

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

Page 422

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

Page 423

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

Page 424

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

Page 425

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

Page 426

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

Page 427

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

Page 428

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

Page 429

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

Page 430

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

Page 431

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

Page 432

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

Page 433

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

Page 434

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

Page 435

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

Page 436

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

Page 437

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

Page 438

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

Page 439

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

Page 440

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

Page 441

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

Page 442

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

Page 443

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

Page 444

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

Page 445

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

Page 446

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

Page 447

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

Page 448

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

Page 449

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

Page 450

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

Page 451

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

Page 452

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

Page 453

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

Page 454

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

Page 455

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

Page 456

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

Page 457

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

Page 458

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

Page 459

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

Page 460

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

Page 461

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

Page 462

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

Page 463

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

Page 464

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

Page 465

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

Page 466

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

Page 467

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

Page 468

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

Page 469

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

Page 470

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

Page 471

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

Page 472

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

Page 473

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

Page 474

021031,003463: 40,3640           03621                           TC       RECAL2                                
021032,003464: 

Page 475

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

Page 476

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

Page 477

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

Page 478

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

Page 479

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

Page 480

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

Page 481

021315,003747:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
021316,003748: 
021317,003749:    4503  43,2002               PINTEST            EQUALS   LST2FAN                               
021318,003750: 

Page 482

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

Page 483

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

Page 484

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

Page 485

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

Page 486

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

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