Source Code

These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
This means that source code does not represent a specific historical revision of Sundance, but rather a mixture of the three released versions. Nonetheless, it is capable of flying the whole Apollo 9 mission. This source code matches the binary dumps, as closely as feasible, but 100% match is not possible, due mostly to changes in memory addresses at which code and variables were allocated in different revisions of Sundance. Refer to this list of explanations for each binary mismatch.

Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

014497,000002:                                                                                                  ## Copyright:   Public domain.
014498,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
014499,000004:                                                                                                  ## Purpose:     A section of a reconstructed, mixed version of Sundance
014500,000005:                                                                                                  ##              It is part of the reconstructed source code for the Lunar
014501,000006:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
014502,000007:                                                                                                  ##              No original listings of this program are available;
014503,000008:                                                                                                  ##              instead, this file was created via disassembly of dumps
014504,000009:                                                                                                  ##              of various revisions of Sundance core rope modules.
014505,000010:                                                                                                  ## Assembler:   yaYUL
014506,000011:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
014507,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
014508,000013:                                                                                                  ## Mod history: 2020-06-17 MAS  Created from Luminary 69.
014509,000014:                                                                                                  ##              2021-05-30 ABS  RCDUFBIT -> BIT7 to match Luminary 69.
014510,000015: 
014511,000016:                                                                                                  ## Sundance 306
014512,000017: 
014513,000018:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
014514,000019:                                                                                                  #  MOD NO - 4      DATE - 27 APRIL 1967      ASSEMBLY - PINDANCE REV 18
014515,000020:                                                                                                  #  MOD BY - FILENE
014516,000021:                                                                                                  #  LOG SECTION - PINBALL GAME  BUTTONS AND LIGHTS
014517,000022: 
014518,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION-
014519,000024: 
014520,000025:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
014521,000026:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
014522,000027:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
014523,000028:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
014524,000029:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
014525,000030:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
014526,000031:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
014527,000032:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
014528,000033:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
014529,000034: 
014530,000035:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
014531,000036:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
014532,000037:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
014533,000038:                                                                                                  #  :EXTENDED VERBS:).
014534,000039:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
014535,000040:                                                                                                  #  OPERATION INFORMATION:.
014536,000041: 

Ramón Alonso, one of the original AGC developers, provides a little more insight: Apparently, nobody had yet arrived at any kind of software requirements for the AGC's user interface when the desire arose within the Instrumentation Laboratory to set up a demo guidance-computer unit with which to impress visitors to the lab. Of course, this demo would have to do something, if it was going to be at all impressive, and to do something it would need some software. In short order, some of the coders threw together a demo program, inventing and using the verb/noun user-interface concept (in the whimsical fashion seen in much of this code), but without any idea that the verb/noun concept would somehow survive into the flight software. As time passed, and more and more people became familiar with the demo, nobody got around to inventing an improvement for the user interface, so the coders simply built it into the flight software without any specific requirements to do so.

However, that does not mean that the verb/noun interface was universally beloved. Ramón says that many objections were received from naysayers, such as "it's not scientific", "it's not dignified", or even "astronauts won't understand it". Even though the coders of the demo hadn't seriously intended the verb/noun interface to be used in any permanent way, it became a kind of devilish game to counter these objections with (perhaps) sophistic arguments as to why the interface was really a good one. In the end, the coders won. I don't know whether they were elated or dismayed by this victory.

The astronauts, of course, could understand the interface, but they did not like it. Most of them really wanted an interface much more like that they had used in aircraft: i.e., lots of dials and switches. Dave Scott is the the only astronaut I'm aware of who had kind words for it (or for the AGC in general), though we are told that Jim McDivitt wasn't necessary completely hostile to it.

—Ron Burkey, 07/2009

014571,000076: 
014572,000077:                                                                                                  #  CALLING SEQUENCES-
014573,000078: 
014574,000079:                                                                                                  #  KEYBOARD:
014575,000080:                                                                                                  #     EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
014576,000081:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
014577,000082:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
014578,000083:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
014579,000084: 
014580,000085:                                                                                                  #  UPLINK:
014581,000086:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
014582,000087:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
014583,000088:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
014584,000089: 
014585,000090:                                                                                                  #  INTERNAL PROGRAMS:
014586,000091:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
014587,000092:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
014588,000093:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
014589,000094:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
014590,000095: 
014591,000096:                                                                                                  #  NORMAL EXIT MODES -
014592,000097:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
014593,000098:                                                                                                  #           1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
014594,000099:                                                                                                  #           2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
014595,000100:                                                                                                  #              PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
014596,000101:                                                                                                  #              RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
014597,000102:                                                                                                  #              CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
014598,000103:                                                                                                  #              ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
014599,000104:                                                                                                  #           3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
014600,000105:                                                                                                  #              SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
014601,000106:                                                                                                  #              30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
014602,000107:                                                                                                  #           4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
014603,000108:                                                                                                  #              ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
014604,000109:                                                                                                  #              THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
014605,000110: 
014606,000111:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
014607,000112:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
014608,000113:                                                                                                  #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
014609,000114: 
014610,000115: 
014611,000116:                                                                                                  #  ALARM OR ABORT EXIT MODES-
014612,000117: 
014613,000118:                                                                                                  #  EXTERNAL INITIATION:
014614,000119:                                                                                                  #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
014615,000120:                                                                                                  #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
014616,000121: 
014617,000122:                                                                                                  #  INTERNAL PROGRAM INITIATION:
014618,000123:                                                                                                  #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
014619,000124:                                                                                                  #  (WITH OCTAL 01501).
014620,000125:                                                                                                  #     IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
014621,000126:                                                                                                  #  CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
014622,000127:                                                                                                  #           1) ENDIDLE OR DATAWAIT.
014623,000128:                                                                                                  #           2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
014624,000129: 
014625,000130:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
014626,000131:                                                                                                  #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
014627,000132: 
014628,000133: 
014629,000134:                                                                                                  #  OUTPUT-
014630,000135: 
014631,000136:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
014632,000137:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
014633,000138:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
014634,000139:                                                                                                  #  IN INTERRUPT.
014635,000140: 
014636,000141: 
014637,000142:                                                                                                  #  ERASABLE INITIALIZATION-
014638,000143: 
014639,000144:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
014640,000145:                                                                                                  #  PINBALL IN :STARTSUB:.   REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
014641,000146:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
014642,000147:                                                                                                  #  DSPCOUNT, NOUT.
014643,000148: 
014644,000149:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
014645,000150:                                                                                                  #  PINBALL IS GIVEN BELOW.
014646,000151: 
014647,000152: 
014648,000153:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
014649,000154: 
014650,000155:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
014651,000156:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
014652,000157: 
014653,000158:                                                                                                  #     NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
014654,000159:                                                                                                  #               OF RELATED INTEREST   NVSBWAIT
014655,000160:                                                                                                  #                                     NVSUBUSY
014656,000161:                                                                                                  #                                     PRENVBSY
014657,000162: 
014658,000163:                                                                                                  #     ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
014659,000164:                                                                                                  #               AWAITING OPERATORS RESPONSE.
014660,000165: 
014661,000166:                                                                                                  #     DSPMM   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
014662,000167:                                                                                                  #             PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
014663,000168:                                                                                                  #             (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
014664,000169:                                                                                                  #             FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
014665,000170: 
014666,000171:                                                                                                  #     BLANKSUB   ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
014667,000172:                                                                                                  #                COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
014668,000173: 
014669,000174:                                                                                                  #     JAMTERM   ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
014670,000175:                                                                                                  #     JAMPROC   TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
014671,000176: 
014672,000177:                                                                                                  #     MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
014673,000178: 
014674,000179:                                                                                                  #     PLEASE PERFORM, PLEASE MARK SITUATIONS
014675,000180:                                                                                                  #                  REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
014676,000181:                                                                                                  #                  THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
014677,000182:                                                                                                  #                  SYMBOL TABLE FOR PAGE NUMBER).
014678,000183: 
014679,000184:                                                                                                  #     THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
014680,000185:                                                                                                  #     BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
014681,000186: 
014682,000187:                                                                                                  #     THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
014683,000188:                                                                                                  #     TABLES:.
014684,000189: 
014685,000190: 
014686,000191:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
014687,000192:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
014688,000193:                                                                                                  #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
014689,000194: 

The document described above, "Keyboard and Display Program Operation" by Alan I. Green and Robert J. Filene is available online at the Virtual AGC website. —Ron Burkey, 07/2009

014695,000200: 
014696,000201:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
014697,000202: 
014698,000203:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
014699,000204:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
014700,000205:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
014701,000206: 
014702,000207:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4
014703,000208: 

Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 07/2009

014706,000211: 
014707,000212:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
014708,000213: 
014709,000214: 
014710,000215:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
014711,000216: 
014712,000217:                                                                                                  #  DSPCOUNT ERASE                  DISPLAY POSITION INDICATOR
014713,000218:                                                                                                  #  DECBRNCH ERASE                  +DEC, - DEC, OCT INDICATOR
014714,000219:                                                                                                  #  VERBREG  ERASE                  VERB CODE
014715,000220:                                                                                                  #  NOUNREG  ERASE                  NOUN CODE
014716,000221:                                                                                                  #  XREG     ERASE                  R1 INPUT BUFFER
014717,000222:                                                                                                  #  YREG     ERASE                  R2 INPUT BUFFER
014718,000223:                                                                                                  #  ZREG     ERASE                  R3 INPUT BUFFER
014719,000224:                                                                                                  #  XREGLP   ERASE                  LO PART OF XREG (FOR DEC CONV ONLY)
014720,000225:                                                                                                  #  YREGLP   ERASE                  LO PART OF YREG (FOR DEC CONV ONLY)
014721,000226:                                                                                                  #  HITEMOUT =      YREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
014722,000227:                                                                                                  #                                           MUST = LOTEMOUT-1.
014723,000228:                                                                                                  #  ZREGLP   ERASE                  LO PART OF ZREG (FOR DEC CONV ONLY)
014724,000229:                                                                                                  #  LOTEMOUT =      ZREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
014725,000230:                                                                                                  #                                           MUST = HITEMOUT+1.
014726,000231:                                                                                                  #  MODREG   ERASE                  MODE CODE
014727,000232:                                                                                                  #  DSPLOCK  ERASE                  KEYBOARD/SUBROUTINE CALL INTERLOCK
014728,000233:                                                                                                  #  REQRET   ERASE                  RETURN REGISTER FOR LOAD
014729,000234:                                                                                                  #  LOADSTAT ERASE                  STATUS INDICATOR FOR LOADTST
014730,000235:                                                                                                  #  CLPASS   ERASE                  PASS INDICATOR CLEAR
014731,000236:                                                                                                  #  NOUT     ERASE                  ACTIVITY COUNTER FOR DSPTAB
014732,000237:                                                                                                  #  NOUNCADR ERASE                  MACHINE CADR FOR NOUN
014733,000238:                                                                                                  #  MONSAVE  ERASE                  N/V CODE FOR MONITOR. (= MONSAVE1-1)
014734,000239:                                                                                                  #  MONSAVE1 ERASE                  NOUNCADR FOR MONITOR (MATBS) =MONSAVE+1
014735,000240:                                                                                                  #  MONSAVE2 ERASE                  NVMONOPT OPTIONS
014736,000241:                                                                                                  #  DSPTAB   ERASE          +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
014737,000242:                                                                                                  #  CADRSTOR ERASE                  ENDIDLE STORAGE
014738,000243:                                                                                                  #  NVQTEM   ERASE                  NVSUB STORAGE FOR CALLING ADDRESS
014739,000244:                                                                                                  #                                  MUST = NVBNKTEM-1
014740,000245:                                                                                                  #  NVBNKTEM ERASE                  NVSUB STORAGE FOR CALLING BANK
014741,000246:                                                                                                  #                                  MUST = NVQTEM+1
014742,000247:                                                                                                  #  VERBSAVE ERASE                  NEEDED FOR RECYCLE
014743,000248:                                                                                                  #  DSPLIST  ERASE                  WAITING REG FOR DSP SYST INTERNAL USE
014744,000249:                                                                                                  #  EXTVBACT REASE                  EXTENDED VERB ACTIVITY INTERLOCK
014745,000250:                                                                                                  #  DSPTEM1  ERASE          +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
014746,000251:                                                                                                  #  DSPTEM2  ERASE          +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
014747,000252:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
014748,000253: 
014749,000254: 
014750,000255:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014751,000256: 
014752,000257:                                                                                                  #  DSEXIT   =      INTB15+         RETURN FOR DSPIN
014753,000258:                                                                                                  #  EXITEM   =      INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
014754,000259:                                                                                                  #  BLANKRET =      INTB15+         RETURN FOR 2BLANK
014755,000260: 
014756,000261:                                                                                                  #  WRDRET   =      INTBIT15        RETURN FOR 5BLANK
014757,000262:                                                                                                  #  WDRET    =      INTBIT15        RETURN FOR DSPWD
014758,000263:                                                                                                  #  DECRET   =      INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
014759,000264:                                                                                                  #  21/22REG =      INTBIT15        TEMP FOR CHARIN
014760,000265: 
014761,000266:                                                                                                  #  UPDATRET =      POLISH          RETURN FOR UPDATNN, UPDATVB
014762,000267:                                                                                                  #  CHAR     =      POLISH          TEMP FOR CHARIN
014763,000268:                                                                                                  #  ERCNT    =      POLISH          COUNTER FOR ERROR LIGHT RESET
014764,000269:                                                                                                  #  DECOUNT  =      POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
014765,000270: 
014766,000271:                                                                                                  #  SGNON    =      VBUF            TEMP FOR +,- ON
014767,000272:                                                                                                  #  NOUNTEM  =      VBUF            COUNTER FOR MIXNOUN FETCH
014768,000273:                                                                                                  #  DISTEM   =      VBUF            COUNTER FOR OCTAL DISPLAY VERBS
014769,000274:                                                                                                  #  DECTEM   =      VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
014770,000275: 
014771,000276:                                                                                                  #  SGNOFF   =      VBUF    +1      TEMP FOR +,- ON
014772,000277:                                                                                                  #  NVTEMP   =      VBUF    +1      TEMP FOR NVSUB
014773,000278:                                                                                                  #  SFTEMP1  =      VBUF    +1      STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
014774,000279:                                                                                                  #  HITEMIN  =      VBUF    +1      TEMP FOR LOAD OF HRS, MIN, SEC
014775,000280:                                                                                                  #                                           MUST = LOTEMIN-1.
014776,000281:                                                                                                  #  CODE     =      VBUF    +2      FOR DSPIN
014777,000282:                                                                                                  #  SFTEMP2  =      VBUF    +2      STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
014778,000283:                                                                                                  #  LOTEMIN  =      VBUF    +2      TEMP FOR LOAD OF HRS, MIN, SEC
014779,000284:                                                                                                  #                                           MUST = HITEMIN+1.
014780,000285:                                                                                                  #  MIXTEMP  =      VBUF    +3      FOR MIXNOUN DATA
014781,000286:                                                                                                  #  SIGNRET  =      VBUF    +3      RETURN FOR +,- ON
014782,000287: 
014783,000288:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
014784,000289: 
014785,000290:                                                                                                  #  ENTRET   =      DOTINC          EXIT FROM ENTER
014786,000291: 
014787,000292:                                                                                                  #  WDCNT    =      DOTRET          CHAR COUNTER FOR DSPWD
014788,000293:                                                                                                  #  INREL    =      DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
014789,000294: 
014790,000295:                                                                                                  #  DSPMMTEM =      MATINC          DSPCOUNT SAVE FOR DSPMM
014791,000296:                                                                                                  #  MIXBR    =      MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
014792,000297: 
014793,000298:                                                                                                  #  TEM1     ERASE                  EXEC TEMP
014794,000299:                                                                                                  #  DSREL    =      TEM1            REL ADDRESS FOR DSPIN
014795,000300: 
014796,000301:                                                                                                  #  TEM2     ERASE                  EXEC TEMP
014797,000302:                                                                                                  #  DSMAG    =      TEM2            MAGNITUDE STORE FOR DSPIN
014798,000303:                                                                                                  #  IDADDTEM =      TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
014799,000304: 
014800,000305:                                                                                                  #  TEM3     ERASE                  EXEC TEMP
014801,000306:                                                                                                  #  COUNT    =      TEM3            FOR DSPIN
014802,000307: 
014803,000308:                                                                                                  #  TEM4     ERASE                  EXEC TEMP
014804,000309:                                                                                                  #  LSTPTR   =      TEM4            LIST POINTER FOR GRABUSY
014805,000310:                                                                                                  #  RELRET   =      TEM4            RETURN FOR RELDSP
014806,000311:                                                                                                  #  FREERET  =      TEM4            RETURN FOR FREEDSP
014807,000312:                                                                                                  #  DSPWDRET =      TEM4            RETURN FOR DSPSIGN
014808,000313:                                                                                                  #  SEPSCRET =      TEM4            RETURN FOR SEPSEC
014809,000314:                                                                                                  #  SEPMNRET =      TEM4            RETURN FOR SEPMIN
014810,000315: 
014811,000316:                                                                                                  #  TEM5     ERASE                  EXEC TEMP
014812,000317:                                                                                                  #  NOUNADD  =      TEM5            TEMP STORAGE FOR NOUN ADDRESS
014813,000318: 
014814,000319:                                                                                                  #  NNADTEM  ERASE                  TEMP FOR NOUN ADDRESS TABLE ENTRY
014815,000320:                                                                                                  #  NNTYPTEM ERASE                  TEMP FOR NOUN TYPE TABLE ENTRY
014816,000321:                                                                                                  #  IDAD1TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
014817,000322:                                                                                                  #                                  MUST = IDAD2TEM-1, = IDAD3TEM-2.
014818,000323:                                                                                                  #  IDAD2TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
014819,000324:                                                                                                  #                                  MUST = IDAD1TEM+1, = IDAD3TEM-1.
014820,000325:                                                                                                  #  IDAD3TEM ERASE                  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
014821,000326:                                                                                                  #                                  MUST = IDAD1TEM+2, = IDAD2TEM+1.
014822,000327:                                                                                                  #  RUTMXTEM ERASE                  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
014823,000328:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014824,000329: 
014825,000330: 
014826,000331:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014827,000332: 
014828,000333:                                                                                                  #  MPAC, THRU MPAC +6
014829,000334:                                                                                                  #  BUF, +1, +2
014830,000335:                                                                                                  #  BUF2, +1, +2
014831,000336:                                                                                                  #  MPTEMP
014832,000337:                                                                                                  #  ADDRWD
014833,000338:                                                                                                  #    END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
014834,000339: 
014835,000340: 
014836,000341:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
014837,000342: 
014838,000343:                                                                                                  #  DSPCNT   ERASE                  COUNTER FOR DSPOUT
014839,000344:                                                                                                  #  UPLOCK   ERASE                  BIT1 = UPLINK INTERLOCK (ACTIVATED BY
014840,000345:                                                                                                  #                                                                          RECEPTION OF A BAD MESSAGE IN UPLINK)
014841,000346:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
014842,000347: 
014843,000348: 
014844,000349:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
014845,000350: 
014846,000351:                                                                                                  #  KEYTEMP1 =      WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
014847,000352:                                                                                                  #  DSRUPTEM =      WAITEXIT        TEMP FOR DSPOUT
014848,000353:                                                                                                  #  KEYTEMP2 =      RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
014849,000354:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
014850,000355: 
014851,000356:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
014852,000357:                                                                                                  #  0        10000
014853,000358:                                                                                                  #  1        00001
014854,000359:                                                                                                  #  9        01001
014855,000360:                                                                                                  #  VERB     10001
014856,000361:                                                                                                  #  ERROR RES10010
014857,000362:                                                                                                  #  KEY RLSE 11001
014858,000363:                                                                                                  #  +        11010
014859,000364:                                                                                                  #  -        11011
014860,000365:                                                                                                  #  ENTER    11100
014861,000366:                                                                                                  #  CLEAR    11110
014862,000367:                                                                                                  #  NOUN     11111

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

014864,000369: 
014865,000370: 
014866,000371:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
014867,000372:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
014868,000373:                                                                                                  #  ENERGIZED.
014869,000374:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
014870,000375:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
014871,000376:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
014872,000377: 
014873,000378:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
014874,000379:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
014875,000380:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
014876,000381:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
014877,000382:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
014878,000383:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
014879,000384: 
014880,000385:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
014881,000386:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
014882,000387:                                                                                                  #  MD2   24     R2D2  10
014883,000388:                                                                                                  #  VD1   23     R2D3   7
014884,000389:                                                                                                  #  VD2   22     R2D4   6
014885,000390:                                                                                                  #  ND1   21     R2D5   5
014886,000391:                                                                                                  #  ND2   20     R3D1   4
014887,000392:                                                                                                  #  R1D1  16     R3D2   3
014888,000393:                                                                                                  #  R1D2  15     R3D3   2
014889,000394:                                                                                                  #  R1D3  14     R3D4   1
014890,000395:                                                                                                  #  R1D4  13     R3D5   0
014891,000396:                                                                                                  #  R1D5  12
014892,000397: 
014893,000398: 
014894,000399:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
014895,000400: 
014896,000401:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
014897,000402:                                                                                                  #  RELADD
014898,000403:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
014899,000404:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)
014900,000405:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
014901,000406:                                                                                                  #  7      1000                                  R1D1 (16)
014902,000407:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
014903,000408:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
014904,000409:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
014905,000410:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
014906,000411:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
014907,000412:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
014908,000413:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
014909,000414:                                                                                                  #         0000   NO RELAYWORD
014910,000415: 
014911,000416: 
014912,000417:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
014913,000418:                                                                                                  #  BLANK      00000
014914,000419:                                                                                                  #  0          10101
014915,000420:                                                                                                  #  1          00011
014916,000421:                                                                                                  #  2          11001
014917,000422:                                                                                                  #  3          11011
014918,000423:                                                                                                  #  4          01111
014919,000424:                                                                                                  #  5          11110
014920,000425:                                                                                                  #  6          11100
014921,000426:                                                                                                  #  7          10011
014922,000427:                                                                                                  #  8          11101
014923,000428:                                                                                                  #  9          11111
014924,000429: 
014925,000430: 
014926,000431:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
014927,000432: 
014928,000433:                                                                                                  #             KEY RELEASE LIGHT    - BIT 5 OF CHANNEL 11
014929,000434:                                                                                                  #             VERB/NOUN FLASH      - BIT 6 OF CHANNEL 11
014930,000435:                                                                                                  #             OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
014931,000436: 

Hint: In the source code below, each of the blue operands to the right of the instruction opcodes is a hyperlink back to the definition of the symbol. This is particularly useful for tracing program flow.

014935,000440: 
014936,000441:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
014937,000442: 
014938,000443: 40,2212                                           BANK     40                                    
014939,000444: 40,2000                                           SETLOC   PINBALL1                              
014940,000445: 40,2000                                           BANK                                           
014941,000446: 
014942,000447: 40,2212                                           COUNT*   $$/PIN                                
014943,000448: 40,2212           35026        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
014944,000449: 40,2213           57013                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
014945,000450: 40,2214           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
014946,000451: 40,2215           11043                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
014947,000452: 40,2216           02220                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
014948,000453: 40,2217           02225                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
014949,000454: 40,2220           42271                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
014950,000455: 40,2221           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
014951,000456: 40,2222           00006                           EXTEND                                         #  VBRELDSP).
014952,000457: 40,2223           12225                           BZF      CHARIN2                               
014953,000458: 40,2224           04406                           TC       RELDSPON                              
014954,000459: 40,2225           56154        CHARIN2            XCH      MPAC                                  
014955,000460: 40,2226           54117                           TS       CHAR                                  
014956,000461: 40,2227           50000                           INDEX    A                                     
014957,000462: 40,2230           02231                           TC       +1                                    #  INPUT CODE     FUNCTION
014958,000463: 40,2231           03537                           TC       CHARALRM                              #  0
014959,000464: 40,2232           02310                           TC       NUM                                   #  1
014960,000465: 40,2233           02310                           TC       NUM                                   #  2
014961,000466: 40,2234           02310                           TC       NUM                                   #  3
014962,000467: 40,2235           02310                           TC       NUM                                   #  4
014963,000468: 40,2236           02310                           TC       NUM                                   #  5
014964,000469: 40,2237           02310                           TC       NUM                                   #  6
014965,000470: 40,2240           02310                           TC       NUM                                   #  7
014966,000471: 40,2241           02274                           TC       89TEST                                #  10                 8
014967,000472: 40,2242           02274                           TC       89TEST                                #  11                 9
014968,000473: 40,2243           03537                           TC       CHARALRM                              #  12
014969,000474: 40,2244           03537                           TC       CHARALRM                              #  13
014970,000475: 40,2245           03537                           TC       CHARALRM                              #  14
014971,000476: 40,2246           03537                           TC       CHARALRM                              #  15
014972,000477: 40,2247           03537                           TC       CHARALRM                              #  16
014973,000478: 40,2250           03537                           TC       CHARALRM                              #  17
014974,000479: 40,2251           02306                           TC       NUM        -2                         #  20                 0
014975,000480: 40,2252           02467                           TC       VERB                                  #  21                 VERB
014976,000481: 40,2253           03705                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
014977,000482: 40,2254           03537                           TC       CHARALRM                              #  23
014978,000483: 40,2255           03537                           TC       CHARALRM                              #  24
014979,000484: 40,2256           03537                           TC       CHARALRM                              #  25
014980,000485: 40,2257           03537                           TC       CHARALRM                              #  26
014981,000486: 40,2260           03537                           TC       CHARALRM                              #  27
014982,000487: 40,2261           03537                           TC       CHARALRM                              #  30
014983,000488: 40,2262           03563                           TC       VBRELDSP                              #  31                 KEY RELEASE
014984,000489: 40,2263           02522                           TC       POSGN                                 #  32                 +
014985,000490: 40,2264           02507                           TC       NEGSGN                                #  33                 -
014986,000491: 40,2265           02272                           TC       ENTERJMP                              #  34                 ENTER
014987,000492: 40,2266           03537                           TC       CHARALRM                              #  35
014988,000493: 40,2267           02602                           TC       CLEAR                                 #  36                 CLEAR
014989,000494: 40,2270           02503                           TC       NOUN                                  #  37                 NOUN
014990,000495: 
014991,000496: 
014992,000497: 40,2271           00022        ELRCODE1           OCT      22                                    
014993,000498: 40,2272           04674        ENTERJMP           TC       POSTJUMP                              
014994,000499: 40,2273           62002                           CADR     ENTER                                 
014995,000500: 
014996,000501: 40,2274           11000        89TEST             CCS      DSPCOUNT                              
014997,000502: 40,2275           02301                           TC       +4                                    #  +
014998,000503: 40,2276           02301                           TC       +3                                    #  +0
014999,000504: 40,2277           05225                           TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
015000,000505: 40,2300           05225                           TC       ENDOFJOB                              #  -0
015001,000506: 40,2301           36221                           CAF      THREE                                 
015002,000507: 40,2302           71001                           MASK     DECBRNCH                              
015003,000508: 40,2303           10000                           CCS      A                                     
015004,000509: 40,2304           02310                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
015005,000510: 40,2305           03537                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
015006,000511: 
015007,000512: 
015008,000513:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
015009,000514:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
015010,000515:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
015011,000516:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
015012,000517:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
015013,000518:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
015014,000519: 
015015,000520: 40,2306           35030                           CAF      ZERO                                  
015016,000521: 40,2307           54117                           TS       CHAR                                  
015017,000522: 40,2310           11000        NUM                CCS      DSPCOUNT                              
015018,000523: 40,2311           02315                           TC       +4                                    #  +
015019,000524: 40,2312           02315                           TC       +3                                    #  +0
015020,000525: 40,2313           02314                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
015021,000526: 40,2314           05225                           TC       ENDOFJOB                              #  -0
015022,000527: 40,2315           02437                           TC       GETINREL                              
015023,000528: 40,2316           11016                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
015024,000529: 40,2317           35030                           CAF      ZERO                                  
015025,000530: 40,2320           55016                           TS       CLPASS                                
015026,000531: 40,2321           02322                           TC       +1                                    
015027,000532: 40,2322           50117                           INDEX    CHAR                                  
015028,000533: 40,2323           34072                           CAF      RELTAB                                
015029,000534: 40,2324           74360                           MASK     LOW5                                  
015030,000535: 40,2325           54124                           TS       CODE                                  
015031,000536: 40,2326           31000                           CA       DSPCOUNT                              
015032,000537: 40,2327           54143                           TS       COUNT                                 
015033,000538: 40,2330           03435                           TC       DSPIN                                 
015034,000539: 40,2331           36221                           CAF      THREE                                 
015035,000540: 40,2332           71001                           MASK     DECBRNCH                              
015036,000541: 40,2333           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
015037,000542: 40,2334           02345                           TC       DECTOBIN                              #  +
015038,000543: 40,2335           50137                           INDEX    INREL                                 #  +0 OCTAL
015039,000544: 40,2336           57002                           XCH      VERBREG                               
015040,000545: 40,2337           54022                           TS       CYL                                   
015041,000546: 40,2340           40022                           CS       CYL                                   
015042,000547: 40,2341           40022                           CS       CYL                                   
015043,000548: 40,2342           56022                           XCH      CYL                                   
015044,000549: 40,2343           60117                           AD       CHAR                                  
015045,000550: 40,2344           02362                           TC       ENDNMTST                              
015046,000551: 40,2345           50137        DECTOBIN           INDEX    INREL                                 
015047,000552: 40,2346           57002                           XCH      VERBREG                               
015048,000553: 40,2347           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
015049,000554: 40,2350           35030                           CAF      ZERO                                  
015050,000555: 40,2351           54155                           TS       MPAC       +1                         
015051,000556: 40,2352           34375                           CAF      TEN                                   #  10 X 2EXP-14
015052,000557: 40,2353           07261                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
015053,000558: 40,2354           56155                           XCH      MPAC       +1                         
015054,000559: 40,2355           60117                           AD       CHAR                                  
015055,000560: 40,2356           54155                           TS       MPAC       +1                         
015056,000561: 40,2357           02362                           TC       ENDNMTST                              #  NO OF
015057,000562: 40,2360           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
015058,000563: 40,2361           02400                           TC       DECEND                                
015059,000564: 40,2362           50137        ENDNMTST           INDEX    INREL                                 
015060,000565: 40,2363           55002                           TS       VERBREG                               
015061,000566: 40,2364           41000                           CS       DSPCOUNT                              
015062,000567: 40,2365           50137                           INDEX    INREL                                 
015063,000568: 40,2366           62430                           AD       CRITCON                               
015064,000569: 40,2367           00006                           EXTEND                                         
015065,000570: 40,2370           12372                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
015066,000571: 40,2371           02425                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
015067,000572: 40,2372           36221        ENDNUM             CAF      THREE                                 
015068,000573: 40,2373           71001                           MASK     DECBRNCH                              
015069,000574: 40,2374           10000                           CCS      A                                     
015070,000575: 40,2375           02400                           TC       DECEND                                
015071,000576: 40,2376           41000        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
015072,000577: 40,2377           02426                           TC       MORNUM     +1                         #  NEGATIVELY
015073,000578: 40,2400           45026        DECEND             CS       ONE                                   
015074,000579: 40,2401           60137                           AD       INREL                                 
015075,000580: 40,2402           00006                           EXTEND                                         
015076,000581: 40,2403           62376                           BZMF     ENDALL                                #  IF INREL=0,1(VBREG,NNREG), LEAVE WHOLE
015077,000582: 40,2404           07057                           TC       DMP                                   #  IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC
015078,000583:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
015079,000584: 40,2405           02435                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
015080,000585: 40,2406           36221                           CAF      THREE                                 #  IN MPAC, +1, +2.
015081,000586: 40,2407           71001                           MASK     DECBRNCH                              
015082,000587: 40,2410           50000                           INDEX    A                                     
015083,000588: 40,2411           02411                           TC       +0                                    
015084,000589: 40,2412           02416                           TC       +DECSGN                               
015085,000590: 40,2413           00006                           EXTEND                                         #  - CASE
015086,000591: 40,2414           40156                           DCS      MPAC       +1                         
015087,000592: 40,2415           52156                           DXCH     MPAC       +1                         
015088,000593: 40,2416           56156        +DECSGN            XCH      MPAC       +2                         
015089,000594: 40,2417           50137                           INDEX    INREL                                 
015090,000595: 40,2420           55005                           TS       XREGLP     -2                         
015091,000596: 40,2421           56155                           XCH      MPAC       +1                         
015092,000597: 40,2422           50137                           INDEX    INREL                                 
015093,000598: 40,2423           55002                           TS       VERBREG                               
015094,000599: 40,2424           02376                           TC       ENDALL                                
015095,000600: 40,2425           11000        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
015096,000601: 40,2426           55000                           TS       DSPCOUNT                              
015097,000602: 40,2427           05225                           TC       ENDOFJOB                              
015098,000603: 
015099,000604: 40,2430           00022        CRITCON            OCT      22                                    #  (DEC 18)
015100,000605: 40,2431           00020                           OCT      20                                    #  (DEC 16)
015101,000606: 40,2432           00012                           OCT      12                                    #  (DEC 10)
015102,000607: 40,2433           00005                           OCT      5                                     
015103,000608: 40,2434           00000                           OCT      0                                     
015104,000609: 
015105,000610: 40,2435           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
015106,000611: 
015107,000612: 
015108,000613:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
015109,000614:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
015110,000615: 
015111,000616: 40,2437           51000        GETINREL           INDEX    DSPCOUNT                              
015112,000617: 40,2440           32443                           CAF      INRELTAB                              
015113,000618: 40,2441           54137                           TS       INREL                                 #  (A TEMP, REG)
015114,000619: 40,2442           00002                           TC       Q                                     
015115,000620: 
015116,000621: 40,2443           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
015117,000622: 40,2444           00004                           OCT      4                                     #  R3D4           =(1)
015118,000623: 40,2445           00004                           OCT      4                                     #  R3D3           =(2)
015119,000624: 40,2446           00004                           OCT      4                                     #  R3D2           =(3)
015120,000625: 40,2447           00004                           OCT      4                                     #  R3D1           =(4)
015121,000626: 40,2450           00003                           OCT      3                                     #  R2D5           =(5)
015122,000627: 40,2451           00003                           OCT      3                                     #  R2D4           =(6)
015123,000628: 40,2452           00003                           OCT      3                                     #  R2D3           =(7)
015124,000629: 40,2453           00003                           OCT      3                                     #  R2D2           =(8D)
015125,000630: 40,2454           00003                           OCT      3                                     #  R2D1           =(9D)
015126,000631: 40,2455           00002                           OCT      2                                     #  R1D5           =(10D)
015127,000632: 40,2456           00002                           OCT      2                                     #  R1D4           =(11D)
015128,000633: 40,2457           00002                           OCT      2                                     #  R1D3           =(12D)
015129,000634: 40,2460           00002                           OCT      2                                     #  R1D2           =(13D)
015130,000635: 40,2461           00002                           OCT      2                                     #  R1D1           =(14D)
015131,000636: 40,2462           05723                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
015132,000637: 40,2463           00001                           OCT      1                                     #  ND2            =(16D)
015133,000638: 40,2464           00001                           OCT      1                                     #  ND1            =(17D)
015134,000639: 40,2465           00000                           OCT      0                                     #  VD2            =(18D)
015135,000640: 40,2466           00000                           OCT      0                                     #  VD1            =(19D)
015136,000641: 
015137,000642: 40,2467           35030        VERB               CAF      ZERO                                  
015138,000643: 40,2470           55002                           TS       VERBREG                               
015139,000644: 40,2471           34372                           CAF      VD1                                   
015140,000645: 40,2472           55000        NVCOM              TS       DSPCOUNT                              
015141,000646: 40,2473           02714                           TC       2BLANK                                
015142,000647: 40,2474           35026                           CAF      ONE                                   
015143,000648: 40,2475           55001                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
015144,000649: 40,2476           35030                           CAF      ZERO                                  
015145,000650: 40,2477           55014                           TS       REQRET                                #  SET FOR ENTPAS0
015146,000651: 40,2500           34231                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
015147,000652: 40,2501           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
015148,000653:                                                                                                  #  TO TC ENDOFJOB
015149,000654: 40,2502           05225                           TC       ENDOFJOB                              
015150,000655: 40,2503           35030        NOUN               CAF      ZERO                                  
015151,000656: 40,2504           55003                           TS       NOUNREG                               
015152,000657: 40,2505           34373                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
015153,000658: 40,2506           02472                           TC       NVCOM                                 
015154,000659: 
015155,000660: 
015156,000661: 40,2507           02561        NEGSGN             TC       SIGNTEST                              
015157,000662: 40,2510           02546                           TC       -ON                                   
015158,000663: 40,2511           35025                           CAF      TWO                                   
015159,000664: 40,2512           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
015160,000665: 40,2513           65020                           AD       BIT7                                  #  BIT 5 FOR R1,  BIT 4 FOR R2,
015161,000666: 40,2514           27001                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
015162,000667: 40,2515           11016        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
015163,000668: 40,2516           35030                           CAF      ZERO                                  
015164,000669: 40,2517           55016                           TS       CLPASS                                
015165,000670: 40,2520           02521                           TC       +1                                    
015166,000671: 40,2521           05225                           TC       ENDOFJOB                              
015167,000672: 
015168,000673: 40,2522           02561        POSGN              TC       SIGNTEST                              
015169,000674: 40,2523           02526                           TC       +ON                                   
015170,000675: 40,2524           35026                           CAF      ONE                                   
015171,000676: 40,2525           02512                           TC       BOTHSGN                               
015172,000677: 
015173,000678: 40,2526           22002        +ON                LXCH     Q                                     
015174,000679: 40,2527           02437                           TC       GETINREL                              
015175,000680: 40,2530           50137                           INDEX    INREL                                 
015176,000681: 40,2531           32554                           CAF      SGNTAB     -2                         
015177,000682: 40,2532           54123                           TS       SGNOFF                                
015178,000683: 40,2533           65026                           AD       ONE                                   
015179,000684: 40,2534           54122                           TS       SGNON                                 
015180,000685: 40,2535           35030        SGNCOM             CAF      ZERO                                  
015181,000686: 40,2536           54124                           TS       CODE                                  
015182,000687: 40,2537           56123                           XCH      SGNOFF                                
015183,000688: 40,2540           03517                           TC       11DSPIN                               
015184,000689: 40,2541           35014                           CAF      BIT11                                 
015185,000690: 40,2542           54124                           TS       CODE                                  
015186,000691: 40,2543           56122                           XCH      SGNON                                 
015187,000692: 40,2544           03517                           TC       11DSPIN                               
015188,000693: 40,2545           00001                           TC       L                                     
015189,000694: 40,2546           22002        -ON                LXCH     Q                                     
015190,000695: 40,2547           02437                           TC       GETINREL                              
015191,000696: 40,2550           50137                           INDEX    INREL                                 
015192,000697: 40,2551           32554                           CAF      SGNTAB     -2                         
015193,000698: 40,2552           54122                           TS       SGNON                                 
015194,000699: 40,2553           65026                           AD       ONE                                   
015195,000700: 40,2554           54123                           TS       SGNOFF                                
015196,000701: 40,2555           02535                           TC       SGNCOM                                
015197,000702: 
015198,000703: 40,2556           00005        SGNTAB             OCT      5                                     #  -R1
015199,000704: 40,2557           00003                           OCT      3                                     #  -R2
015200,000705: 40,2560           00000                           OCT      0                                     #  -R3
015201,000706: 
015202,000707: 
015203,000708: 40,2561           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
015204,000709: 40,2562           36221                           CAF      THREE                                 #  R2D1, OR R3D1. ALLOWS ONLY FIRST OF
015205,000710: 40,2563           71001                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
015206,000711: 40,2564           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
015207,000712: 40,2565           05225                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
015208,000713: 40,2566           44331                           CS       R1D1                                  
015209,000714: 40,2567           02575                           TC       SGNTST1                               
015210,000715: 40,2570           44332                           CS       R2D1                                  
015211,000716: 40,2571           02575                           TC       SGNTST1                               
015212,000717: 40,2572           44333                           CS       R3D1                                  
015213,000718: 40,2573           02575                           TC       SGNTST1                               
015214,000719: 40,2574           05225                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
015215,000720: 40,2575           61000        SGNTST1            AD       DSPCOUNT                              
015216,000721: 40,2576           00006                           EXTEND                                         
015217,000722: 40,2577           12601                           BZF      +2                                    #  MATCH FOUND
015218,000723: 40,2600           00002                           TC       Q                                     
015219,000724: 40,2601           00001                           TC       L                                     #  SIGN LEGAL
015220,000725: 
015221,000726: 
015222,000727:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
015223,000728:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
015224,000729:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
015225,000730: 
015226,000731:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
015227,000732:                                                                                                  #  APPROPRIATE TO BE CLEARED.
015228,000733: 
015229,000734:                                                                                                  #  CLPASS   +0  PASS0, CAN BE BACKED UP
015230,000735:                                                                                                  #           +NZ  HIPASS, CAN BE BACKED UP
015231,000736:                                                                                                  #           -NZ  PASS0, CANNOT BE BACKED UP
015232,000737: 
015233,000738: 40,2602           11000        CLEAR              CCS      DSPCOUNT                              
015234,000739: 40,2603           65026                           AD       ONE                                   
015235,000740: 40,2604           02606                           TC       +2                                    
015236,000741: 40,2605           65026                           AD       ONE                                   
015237,000742: 40,2606           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
015238,000743: 40,2607           32443                           CAF      INRELTAB                              #  FAIL LEGALTST.
015239,000744: 40,2610           54137                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
015240,000745: 40,2611           11016                           CCS      CLPASS                                
015241,000746: 40,2612           02620                           TC       CLPASHI                               #  +
015242,000747: 40,2613           02615                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
015243,000748: 40,2614           02615                           TC       +1                                    #  -
015244,000749: 40,2615           30137                           CA       INREL                                 
015245,000750: 40,2616           02642                           TC       LEGALTST                              
015246,000751: 40,2617           02635                           TC       CLEAR1                                
015247,000752: 40,2620           10137        CLPASHI            CCS      INREL                                 
015248,000753: 40,2621           54137                           TS       INREL                                 
015249,000754: 40,2622           02642                           TC       LEGALTST                              
015250,000755: 40,2623           32712                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
015251,000756: 40,2624           27014                           ADS      REQRET                                
015252,000757: 40,2625           30137                           CA       INREL                                 
015253,000758: 40,2626           54125                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
015254,000759: 40,2627           00006                           EXTEND                                         
015255,000760: 40,2630           27002                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
015256,000761: 40,2631           04655                           TC       BANKCALL                              
015257,000762: 40,2632           62340                           CADR     UPDATVB                               
015258,000763: 40,2633           30125                           CA       MIXTEMP                               
015259,000764: 40,2634           54137                           TS       INREL                                 #  RESTORE INREL
015260,000765: 40,2635           02640        CLEAR1             TC       CLR5                                  
015261,000766: 40,2636           25016                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
015262,000767: 40,2637           05225                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
015263,000768: 40,2640           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
015264,000769: 40,2641           02653                           TC       5BLANK     +2                         
015265,000770: 40,2642           67720        LEGALTST           AD       NEG2                                  
015266,000771: 40,2643           10000                           CCS      A                                     
015267,000772: 40,2644           00002                           TC       Q                                     #  LEGAL  INREL G/ 2
015268,000773: 40,2645           05723                           TC       CCSHOLE                               
015269,000774: 40,2646           05225                           TC       ENDOFJOB                              #  ILLEGAL   INREL= 0,1
015270,000775: 40,2647           00002                           TC       Q                                     #  LEGAL    INREL = 2
015271,000776: 
015272,000777: 
015273,000778:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
015274,000779:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
015275,000780:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
015276,000781: 
015277,000782: 40,2650           55000                           TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
015278,000783: 40,2651           22002        5BLANK             LXCH     Q                                     
015279,000784: 40,2652           02437                           TC       GETINREL                              
015280,000785: 40,2653           35030                           CAF      ZERO                                  
015281,000786: 40,2654           50137                           INDEX    INREL                                 
015282,000787: 40,2655           55002                           TS       VERBREG                               #  ZERO X, Y, Z REG.
015283,000788: 40,2656           50137                           INDEX    INREL                                 
015284,000789: 40,2657           55005                           TS       XREGLP     -2                         
015285,000790: 40,2660           54124                           TS       CODE                                  
015286,000791: 40,2661           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
015287,000792: 40,2662           45020                           CS       BIT7                                  #  PROTECT OTHERS
015288,000793: 40,2663           71001                           MASK     DECBRNCH                              
015289,000794: 40,2664           72713                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
015290,000795: 40,2665           55001                           TS       DECBRNCH                              
015291,000796: 40,2666           50137                           INDEX    INREL                                 
015292,000797: 40,2667           32703                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
015293,000798: 40,2670           54143                           TS       COUNT                                 
015294,000799: 40,2671           03435                           TC       DSPIN                                 
015295,000800: 40,2672           50137        5BLANK1            INDEX    INREL                                 
015296,000801: 40,2673           32706                           CAF      DOUBLK     -2                         
015297,000802: 40,2674           55000                           TS       DSPCOUNT                              
015298,000803: 40,2675           02714                           TC       2BLANK                                
015299,000804: 40,2676           45025                           CS       TWO                                   
015300,000805: 40,2677           27000                           ADS      DSPCOUNT                              
015301,000806: 40,2700           02714                           TC       2BLANK                                
015302,000807: 40,2701           50137                           INDEX    INREL                                 
015303,000808: 40,2702           34327                           CAF      R1D1       -2                         
015304,000809: 40,2703           55000                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
015305,000810: 40,2704           00001                           TC       L                                     #  OF REG. JUST BLANKED
015306,000811: 
015307,000812: 40,2705           00016        SINBLANK           OCT      16                                    #  DEC 14
015308,000813: 40,2706           00005                           OCT      5                                     
015309,000814: 40,2707           00004                           OCT      4                                     
015310,000815: 40,2710           00015        DOUBLK             OCT      15                                    #  DEC 13
015311,000816: 40,2711           00011                           OCT      11                                    #  DEC 9
015312,000817: 40,2712           00003                           OCT      3                                     
015313,000818: 
015314,000819: 40,2713           77774        BRNCHCON           OCT      77774                                 
015315,000820: 
015316,000821:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
015317,000822:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
015318,000823: 
015319,000824: 40,2714           31000        2BLANK             CA       DSPCOUNT                              
015320,000825: 40,2715           54021                           TS       SR                                    
015321,000826: 40,2716           42727                           CS       BLANKCON                              
015322,000827: 40,2717           00004                           INHINT                                         
015323,000828: 40,2720           50021                           INDEX    SR                                    
015324,000829: 40,2721           57024                           XCH      DSPTAB                                
015325,000830: 40,2722           00006                           EXTEND                                         
015326,000831: 40,2723           62725                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
015327,000832: 40,2724           25017                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
015328,000833: 40,2725           00003                           RELINT                                         #  IF -,NOUT OK
015329,000834: 40,2726           00002                           TC       Q                                     
015330,000835: 40,2727           04000        BLANKCON           OCT      4000                                  
015331,000836: 
015332,000837:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
015333,000838:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
015334,000839:                                                                                                  #  PASSES.
015335,000840: 
015336,000841: 
015337,000842:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
015338,000843:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
015339,000844:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
015340,000845: 
015341,000846: 
015342,000847: 41,2000                                           BANK     41                                    
015343,000848: 41,2000                                           SETLOC   PINBALL2                              
015344,000849: 41,2000                                           BANK                                           
015345,000850: 
015346,000851: 41,2000                                           COUNT*   $$/PIN                                
015347,000852: 41,2000           03537        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
015348,000853: 41,2001           02773        LOADLV1            TC       LOADLV                                
015349,000854:                                                                                                  #  END OF STANDARD LEAD INS.
015350,000855: 
015351,000856: 
015352,000857: 41,2002           35030        ENTER              CAF      ZERO                                  
015353,000858: 41,2003           55016                           TS       CLPASS                                
015354,000859: 41,2004           34231                           CAF      ENDINST                               
015355,000860: 41,2005           54136                           TS       ENTRET                                
015356,000861: 41,2006           11014                           CCS      REQRET                                
015357,000862: 41,2007           02035                           TC       ENTPAS0                               #  IF +, PASS 0
015358,000863: 41,2010           02035                           TC       ENTPAS0                               #  IF +, PASS 0
015359,000864: 41,2011           02012                           TC       +1                                    #  IF -, NOT PASS 0
015360,000865: 41,2012           32033        ENTPASHI           CAF      MMADREF                               
015361,000866: 41,2013           61014                           AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
015362,000867: 41,2014           00006                           EXTEND                                         #  AND RECYCLE(DECIDE AT MMCHANG+1).
015363,000868: 41,2015           12027                           BZF      ACCEPTWD                              
015364,000869: 41,2016           36221                           CAF      THREE                                 #  IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
015365,000870: 41,2017           71001                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
015366,000871: 41,2020           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
015367,000872: 41,2021           02023                           TC       +2                                    #  CHARACTERS AND CONTINUE.
015368,000873: 41,2022           02027                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
015369,000874: 41,2023           11000                           CCS      DSPCOUNT                              
015370,000875: 41,2024           02351                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
015371,000876: 41,2025           02351                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
015372,000877: 41,2026           02027                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
015373,000878: 41,2027           41014        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
015374,000879: 41,2030           55014                           TS       REQRET                                #  SET REQRET +.
015375,000880: 41,2031           04445                           TC       FLASHOFF                              
015376,000881: 41,2032           01014                           TC       REQRET                                
015377,000882: 
015378,000883: 41,2033     0136               ENTEXIT            =        ENTRET                                
015379,000884: 
015380,000885: 41,2033           03424        MMADREF            ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
015381,000886: 
015382,000887: 41,2034           00034        LOWVERB            DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
015383,000888: 
015384,000889: 41,2035           35030        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
015385,000890: 41,2036           55001                           TS       DECBRNCH                              
015386,000891: 41,2037           44372                           CS       VD1                                   #  BLOCK FURTHER NUM CHAR, SO THAT STRAY
015387,000892: 41,2040           55000                           TS       DSPCOUNT                              #  CHAR DO NOT GET INTO VERB OR NOUN LTS.
015388,000893: 41,2041           41002        TESTVB             CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
015389,000894: 41,2042           55042                           TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
015390,000895: 41,2043           62034                           AD       LOWVERB                               #  LOWVERB - VB
015391,000896: 41,2044           00006                           EXTEND                                         
015392,000897: 41,2045           62133                           BZMF     VERBFAN                               #  VERB G/E LOWVERB
015393,000898: 41,2046           00006        TESTNN             EXTEND                                         #  VERB L/ LOWVERB
015394,000899: 41,2047           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015395,000900: 41,2050           52006                           DXCH     Z                                     #  ROUTINE.
015396,000901: 41,2051           50140                           INDEX    MIXBR                                 
015397,000902: 41,2052           02052                           TC       +0                                    
015398,000903: 41,2053           02055                           TC       +2                                    #  NORMAL
015399,000904: 41,2054           02221                           TC       MIXNOUN                               #  MIXED
015400,000905: 41,2055           10146                           CCS      NNADTEM                               #  NORMAL
015401,000906: 41,2056           02131                           TC       VERBFAN    -2                         #       NORMAL IF +
015402,000907: 41,2057           02351                           TC       GODSPALM                              #  NOT IN USE   IF +0
015403,000908: 41,2060           02064                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
015404,000909: 41,2061           25020                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
015405,000910: 41,2062           04323                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
015406,000911: 41,2063           02120                           TC       INTMCTBS   +2                         
015407,000912: 41,2064           35010        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
015408,000913: 41,2065           55016                           TS       CLPASS                                
015409,000914: 41,2066           44231                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
015410,000915: 41,2067           60136                           AD       ENTEXIT                               #              FROM EXTERNAL
015411,000916: 41,2070           00006                           EXTEND                                         
015412,000917: 41,2071           12073                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
015413,000918: 41,2072           02116                           TC       INTMCTBS                              
015414,000919: 41,2073           02307                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
015415,000920: 41,2074           11001                           CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
015416,000921: 41,2075           04157                           TC       ALMCYCLE                              #  FOR MCTBS.
015417,000922: 41,2076           44372                           CS       VD1                                   #  OCTAL USED  OK
015418,000923: 41,2077           55000                           TS       DSPCOUNT                              #  BLOCK NUM CHAR IN
015419,000924: 41,2100           11043                           CCS      CADRSTOR                              
015420,000925: 41,2101           02104                           TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
015421,000926: 41,2102           02105                           TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
015422,000927: 41,2103           02104                           TC       +1                                    
015423,000928: 41,2104           04441                           TC       FLASHON                               
015424,000929: 41,2105           57006        USEADD             XCH      ZREG                                  
015425,000930: 41,2106           04315                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
015426,000931: 41,2107           00006                           EXTEND                                         
015427,000932: 41,2110           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015428,000933: 41,2111           52006                           DXCH     Z                                     #  ROUTINE.
015429,000934: 41,2112           02133                           TC       VERBFAN                               
015430,000935: 
015431,000936: 41,2113     1000                                  EBANK=   DSPCOUNT                              
015432,000937: 41,2113           02064 64102  LODNNLOC           2CADR    LODNNTAB                              
015433,000938: 
015434,000939: 
015435,000940: 41,2115           77772        NEG5               OCT      77772                                 
015436,000941: 
015437,000942: 41,2116           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
015438,000943: 41,2117           04315                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
015439,000944: 41,2120           45031                           CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
015440,000945: 41,2121           61002                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
015441,000946: 41,2122           00006                           EXTEND                                         
015442,000947: 41,2123           12133                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
015443,000948: 41,2124           34333                           CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
015444,000949: 41,2125           55000                           TS       DSPCOUNT                              
015445,000950: 41,2126           31020                           CA       NOUNCADR                              
015446,000951: 41,2127           03356                           TC       DSPOCTWD                              
015447,000952: 41,2130           02133                           TC       VERBFAN                               
015448,000953: 
015449,000954: 41,2131           65026                           AD       ONE                                   
015450,000955: 41,2132           04315                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015451,000956: 41,2133           42145        VERBFAN            CS       LST2CON                               
015452,000957: 41,2134           61002                           AD       VERBREG                               #  VERB-LST2CON
015453,000958: 41,2135           10000                           CCS      A                                     
015454,000959: 41,2136           65026                           AD       ONE                                   #  VERB G/ LST2CON
015455,000960: 41,2137           02141                           TC       +2                                    
015456,000961: 41,2140           02146                           TC       VBFANDIR                              #  VERB L/ LST2CON
015457,000962: 41,2141           54154                           TS       MPAC                                  
015458,000963: 41,2142           04471                           TC       RELDSP                                #  RELEASE DISPLAY SYST
015459,000964: 41,2143           04674                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
015460,000965: 41,2144           66000                           CADR     GOEXTVB                               
015461,000966: 41,2145           00050        LST2CON            DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
015462,000967: 
015463,000968: 41,2146           51002        VBFANDIR           INDEX    VERBREG                               
015464,000969: 41,2147           32151                           CAF      VERBTAB                               
015465,000970: 41,2150           04677                           TC       BANKJUMP                              
015466,000971: 
015467,000972: 41,2151           62351        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
015468,000973: 41,2152           62365                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
015469,000974: 41,2153           62373                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
015470,000975: 41,2154           62400                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
015471,000976: 41,2155           62360                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
015472,000977: 41,2156           62353                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
015473,000978: 41,2157           62521                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
015474,000979: 41,2160           61104                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
015475,000980: 41,2161           62351                           CADR     GODSPALM                              #  VB08 SPARE
015476,000981: 41,2162           62351                           CADR     GODSPALM                              #  VB09 SPARE
015477,000982: 41,2163           61533                           CADR     DSPALARM                              #  VB10 SPARE
015478,000983: 41,2164           63223                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
015479,000984: 41,2165           63223                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
015480,000985: 41,2166           63223                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
015481,000986: 41,2167           63223                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
015482,000987: 41,2170           63223                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
015483,000988: 41,2171           63223                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
015484,000989: 41,2172           63223                           CADR     MONITOR                               #  VB17 MONITOR DP DEC  (R1,R2)
015485,000990: 41,2173           62351                           CADR     GODSPALM                              #  VB18 SPARE
015486,000991: 41,2174           62351                           CADR     GODSPALM                              #  VB19 SPARE
015487,000992: 41,2175           62351                           CADR     GODSPALM                              #  VB20 SPARE
015488,000993: 41,2176           62730                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
015489,000994: 41,2177           62741                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
015490,000995: 41,2200           62756                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
015491,000996: 41,2201           62701                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
015492,000997: 41,2202           62614                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
015493,000998: 41,2203           62351                           CADR     GODSPALM                              #  VB26 SPARE
015494,000999: 41,2204           63346                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
015495,001000:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
015496,001001: 41,2205           62351                           CADR     GODSPALM                              #  VB28 SPARE
015497,001002: 41,2206           62351                           CADR     GODSPALM                              #  VB29 SPARE
015498,001003: 41,2207           63461        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
015499,001004: 41,2210           63505                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
015500,001005: 41,2211           61561                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
015501,001006: 41,2212           61544                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
015502,001007: 41,2213           61552                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
015503,001008: 41,2214           63606                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
015504,001009: 41,2215           12264                           CADR     SLAP1                                 #  VB36 FRESH START
015505,001010: 41,2216           63423                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
015506,001011: 41,2217           62351                           CADR     GODSPALM                              #  VB38 SPARE
015507,001012: 41,2220           62351                           CADR     GODSPALM                              #  VB39 SPARE
015508,001013: 
015509,001014: 
015510,001015:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
015511,001016: 
015512,001017:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
015513,001018:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
015514,001019:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
015515,001020:                                                                                                  #   MIXTEMP.
015516,001021: 
015517,001022: 41,2221           10146        MIXNOUN            CCS      NNADTEM                               
015518,001023: 41,2222           02226                           TC       +4                                    #  +  IN USE
015519,001024: 41,2223           02351                           TC       GODSPALM                              #  +0  NOT IN USE
015520,001025: 41,2224           02226                           TC       +2                                    #  -  IN USE
015521,001026: 41,2225           02226                           TC       +1                                    #  -0  IN USE
015522,001027: 41,2226           46216                           CS       SIX                                   
015523,001028: 41,2227           61002                           AD       VERBREG                               
015524,001029: 41,2230           00006                           EXTEND                                         
015525,001030: 41,2231           62233                           BZMF     +2                                    #  VERB L/E 6
015526,001031: 41,2232           02133                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
015527,001032: 41,2233           35025                           CAF      TWO                                   
015528,001033: 41,2234           54117        MIXNN1             TS       DECOUNT                               
015529,001034: 41,2235           62260                           AD       MIXAD                                 
015530,001035: 41,2236           54145                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
015531,001036: 41,2237           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
015532,001037: 41,2240           30150                           CA       IDAD1TEM                              #  OF NOUN.
015533,001038: 41,2241           54122                           TS       NOUNTEM                               
015534,001039:                                                                                                  #  TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
015535,001040:                                                                                                  #    MINOR PART ONLY.
015536,001041: 41,2242           03031                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
015537,001042: 41,2243           02261                           TC       DPTEST                                
015538,001043: 41,2244           02246                           TC       MIXNN2                                #  NO DP
015539,001044: 41,2245           24122                           INCR     NOUNTEM                               #  DP GET MINOR PART
015540,001045: 41,2246           30122        MIXNN2             CA       NOUNTEM                               
015541,001046: 41,2247           74370                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1     FOR DP
015542,001047: 41,2250           04325                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
015543,001048: 41,2251           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
015544,001049: 41,2252           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
015545,001050: 41,2253           50145                           INDEX    NOUNADD                               
015546,001051: 41,2254           56000                           XCH      0                                     #  STORE IN MIXTEM + K
015547,001052: 41,2255           10117                           CCS      DECOUNT                               
015548,001053: 41,2256           02234                           TC       MIXNN1                                
015549,001054: 41,2257           02133                           TC       VERBFAN                               
015550,001055: 
015551,001056: 41,2260           00125        MIXAD              TC       MIXTEMP                               
015552,001057: 
015553,001058: 
015554,001059:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
015555,001060:                                                                                                  #           RETURNS TO L+1 IF NO DP.
015556,001061:                                                                                                  #           RETURNS TO L+2 IF DP.
015557,001062: 
015558,001063: 41,2261           50000        DPTEST             INDEX    A                                     
015559,001064: 41,2262           12263                           TCF      +1                                    
015560,001065: 41,2263           00002                           TC       Q                                     #  OCTAL ONLY  NO DP
015561,001066: 41,2264           00002                           TC       Q                                     #  FRACT NO DP
015562,001067: 41,2265           00002                           TC       Q                                     #  DEG  NO DP
015563,001068: 41,2266           00002                           TC       Q                                     #  ARITH  NO DP
015564,001069: 41,2267           12301                           TCF      DPTEST1                               #  DP1OUT
015565,001070: 41,2270           12301                           TCF      DPTEST1                               #  DP2OUT
015566,001071: 41,2271           00002                           TC       Q                                     #  LRPOSOUT NO DP (DATA IN CHANNEL 33)
015567,001072: 41,2272           12301                           TCF      DPTEST1                               #  DP3OUT
015568,001073: 41,2273           00002                           TC       Q                                     #  HMS   NO DP
015569,001074: 41,2274           00002                           TC       Q                                     #  M/S   NO DP
015570,001075: 41,2275           12301                           TCF      DPTEST1                               #  DP4OUT
015571,001076: 41,2276           00002                           TC       Q                                     #  ARITH1   NO DP
015572,001077: 41,2277           00002                           TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
015573,001078: 41,2300           00002                           TC       Q                                     #  360-CDU   NO DP
015574,001079: 41,2301           50002        DPTEST1            INDEX    Q                                     
015575,001080: 41,2302           00001                           TC       1                                     #  RETURN TO L+2
015576,001081: 
015577,001082: 
015578,001083: 41,2303           34331        REQDATX            CAF      R1D1                                  
015579,001084: 41,2304           12310                           TCF      REQCOM                                
015580,001085: 41,2305           34332        REQDATY            CAF      R2D1                                  
015581,001086: 41,2306           12310                           TCF      REQCOM                                
015582,001087: 41,2307           34333        REQDATZ            CAF      R3D1                                  
015583,001088: 41,2310           55000        REQCOM             TS       DSPCOUNT                              
015584,001089: 41,2311           40002                           CS       Q                                     
015585,001090: 41,2312           55014                           TS       REQRET                                
015586,001091: 41,2313           04655                           TC       BANKCALL                              
015587,001092: 41,2314           60651                           CADR     5BLANK                                
015588,001093: 41,2315           04441                           TC       FLASHON                               
015589,001094: 41,2316           00136        ENDRQDAT           TC       ENTEXIT                               
015590,001095: 
015591,001096: 41,2317           55003                           TS       NOUNREG                               
015592,001097: 41,2320           56002        UPDATNN            XCH      Q                                     
015593,001098: 41,2321           54117                           TS       UPDATRET                              
015594,001099: 41,2322           00006                           EXTEND                                         
015595,001100: 41,2323           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
015596,001101: 41,2324           52006                           DXCH     Z                                     #  ROUTINE.
015597,001102: 41,2325           10146                           CCS      NNADTEM                               
015598,001103: 41,2326           65026                           AD       ONE                                   #  NORMAL
015599,001104: 41,2327           12332                           TCF      PUTADD                                
015600,001105: 41,2330           12333                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
015601,001106: 41,2331           12333                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
015602,001107: 41,2332           04315        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015603,001108: 41,2333           34373                           CAF      ND1                                   
015604,001109: 41,2334           55000                           TS       DSPCOUNT                              
015605,001110: 41,2335           31003                           CA       NOUNREG                               
015606,001111: 41,2336           12345                           TCF      UPDAT1                                
015607,001112: 
015608,001113: 41,2337           55002                           TS       VERBREG                               
015609,001114: 41,2340           56002        UPDATVB            XCH      Q                                     
015610,001115: 41,2341           54117                           TS       UPDATRET                              
015611,001116: 41,2342           34372                           CAF      VD1                                   
015612,001117: 41,2343           55000                           TS       DSPCOUNT                              
015613,001118: 41,2344           31002                           CA       VERBREG                               
015614,001119: 41,2345           04674        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN,SINCE
015615,001120: 41,2346           61432                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
015616,001121: 41,2347           00117                           TC       UPDATRET                              
015617,001122: 
015618,001123: 
015619,001124: 41,2350           04157        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
015620,001125: 
015621,001126: 
015622,001127: 41,2351           04674        GODSPALM           TC       POSTJUMP                              
015623,001128: 41,2352           61533                           CADR     DSPALARM                              
015624,001129: 
015625,001130:                                                                                                  #           NOUN   TABLES
015626,001131:                                                                                                  #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
015627,001132:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
015628,001133:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
015629,001134:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
015630,001135:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
015631,001136: 
015632,001137:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
015633,001138:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
015634,001139: 
015635,001140:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
015636,001141: 
015637,001142:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
015638,001143:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
015639,001144:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
015640,001145: 
015641,001146:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
015642,001147:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
015643,001148:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
015644,001149:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
015645,001150:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
015646,001151:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
015647,001152: 
015648,001153:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
015649,001154:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
015650,001155:                                                                                                  #  THE FIRST OF THESE ENTRIES.
015651,001156:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
015652,001157:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
015653,001158: 
015654,001159:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
015655,001160:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
015656,001161:                                                                                                  #        QQQQQRRRRRSSSSS
015657,001162:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
015658,001163:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
015659,001164:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
015660,001165:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
015661,001166:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
015662,001167: 
015663,001168: 
015664,001169:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
015665,001170:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
015666,001171:                                                                                                  #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
015667,001172: 
015668,001173: 
015669,001174:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
015670,001175:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
015671,001176: 
015672,001177:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
015673,001178:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
015674,001179: 
015675,001180:                                                                                                  #           DISPLAY  VERBS
015676,001181: 41,2353           45025        DSPABC             CS       TWO                                   
015677,001182: 41,2354           02424                           TC       COMPTEST                              
015678,001183: 41,2355           50145                           INDEX    NOUNADD                               
015679,001184: 41,2356           40002                           CS       2                                     
015680,001185: 41,2357           56132                           XCH      BUF        +2                         
015681,001186: 41,2360           45026        DSPAB              CS       ONE                                   
015682,001187: 41,2361           02424                           TC       COMPTEST                              
015683,001188: 41,2362           50145                           INDEX    NOUNADD                               
015684,001189: 41,2363           40001                           CS       1                                     
015685,001190: 41,2364           56131                           XCH      BUF        +1                         
015686,001191: 41,2365           02443        DSPA               TC       DECTEST                               
015687,001192: 41,2366           02466                           TC       TSTFORDP                              
015688,001193: 41,2367           50145                           INDEX    NOUNADD                               
015689,001194: 41,2370           40000                           CS       0                                     
015690,001195: 41,2371           56130        DSPCOM1            XCH      BUF                                   
015691,001196: 41,2372           02405                           TC       DSPCOM2                               
015692,001197: 41,2373           45026        DSPB               CS       ONE                                   
015693,001198: 41,2374           02437                           TC       DCOMPTST                              
015694,001199: 41,2375           50145                           INDEX    NOUNADD                               
015695,001200: 41,2376           40001                           CS       1                                     
015696,001201: 41,2377           02371                           TC       DSPCOM1                               
015697,001202: 41,2400           45025        DSPC               CS       TWO                                   
015698,001203: 41,2401           02437                           TC       DCOMPTST                              
015699,001204: 41,2402           50145                           INDEX    NOUNADD                               
015700,001205: 41,2403           40002                           CS       2                                     
015701,001206: 41,2404           02371                           TC       DSPCOM1                               
015702,001207: 41,2405           45025        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
015703,001208: 41,2406           61002                           AD       VERBREG                               #  -1 -0 +1 +2 +3    IN A
015704,001209: 41,2407           10000                           CCS      A                                     #  +0 +0 +0 +1 +2     IN A AFTER CCS
015705,001210: 41,2410           02413                           TC       DSPCOM3                               
015706,001211: 41,2411           00136                           TC       ENTEXIT                               
015707,001212: 41,2412           02413                           TC       +1                                    
015708,001213: 41,2413           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
015709,001214: 41,2414           50000                           INDEX    A                                     
015710,001215: 41,2415           34331                           CAF      R1D1                                  
015711,001216: 41,2416           55000                           TS       DSPCOUNT                              
015712,001217: 41,2417           50122                           INDEX    DISTEM                                
015713,001218: 41,2420           40130                           CS       BUF                                   
015714,001219: 41,2421           03356                           TC       DSPOCTWD                              
015715,001220: 41,2422           56122                           XCH      DISTEM                                
015716,001221: 41,2423           02407                           TC       DSPCOM2    +2                         
015717,001222: 
015718,001223:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
015719,001224:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
015720,001225: 41,2424           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
015721,001226: 41,2425           22002                           LXCH     Q                                     
015722,001227: 41,2426           02513        COMPTST1           TC       GETCOMP                               
015723,001228: 41,2427           04343                           TC       LEFT5                                 
015724,001229: 41,2430           76221                           MASK     THREE                                 #  NOUN COMP
015725,001230: 41,2431           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
015726,001231: 41,2432           10000                           CCS      A                                     
015727,001232: 41,2433           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
015728,001233: 41,2434           05723                           TC       CCSHOLE                               
015729,001234: 41,2435           02351                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
015730,001235: 41,2436           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
015731,001236: 
015732,001237: 
015733,001238:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
015734,001239:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
015735,001240: 41,2437           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
015736,001241: 41,2440           22002                           LXCH     Q                                     
015737,001242: 41,2441           02443                           TC       DECTEST                               
015738,001243: 41,2442           02426                           TC       COMPTST1                              
015739,001244: 
015740,001245: 41,2443           00006        DECTEST            EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
015741,001246: 41,2444           22156                           QXCH     MPAC       +2                         #  CODE NUMBER). RETURNS IF NOT.
015742,001247: 41,2445           02513                           TC       GETCOMP                               
015743,001248: 41,2446           75011                           MASK     BIT14                                 
015744,001249: 41,2447           10000                           CCS      A                                     
015745,001250: 41,2450           02351                           TC       GODSPALM                              
015746,001251: 41,2451           00156                           TC       MPAC       +2                         
015747,001252: 
015748,001253: 
015749,001254: 41,2452           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
015750,001255: 41,2453           02513                           TC       GETCOMP                               #  ( BIT4 OF COMP CODE NUMBER). RETURNS
015751,001256: 41,2454           75011                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
015752,001257: 41,2455           10000                           CCS      A                                     
015753,001258: 41,2456           04157                           TC       ALMCYCLE                              
015754,001259: 41,2457           00001                           TC       L                                     
015755,001260: 
015756,001261: 
015757,001262:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
015758,001263:                                                                                                  #  IF NOT, IT RETURNS.
015759,001264: 41,2460           22002        NOUNTEST           LXCH     Q                                     
015760,001265: 41,2461           02513                           TC       GETCOMP                               
015761,001266: 41,2462           10000                           CCS      A                                     
015762,001267: 41,2463           00001                           TC       L                                     
015763,001268: 41,2464           00001                           TC       L                                     
015764,001269: 41,2465           02351                           TC       GODSPALM                              
015765,001270: 
015766,001271: 
015767,001272: 41,2466           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
015768,001273: 41,2467           30146                           CA       NNADTEM                               
015769,001274: 41,2470           65026                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015770,001275: 41,2471           00006                           EXTEND                                         
015771,001276: 41,2472           12504                           BZF      CHANDSP                               
015772,001277: 41,2473           50140                           INDEX    MIXBR                                 
015773,001278: 41,2474           02474                           TC       +0                                    
015774,001279: 41,2475           02477                           TC       +2                                    #  NORMAL
015775,001280: 41,2476           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
015776,001281: 41,2477           03023                           TC       SFRUTNOR                              
015777,001282: 41,2500           02261                           TC       DPTEST                                
015778,001283: 41,2501           00001                           TC       L                                     #  NO DP
015779,001284: 41,2502           24145                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
015780,001285: 41,2503           00001                           TC       L                                     
015781,001286: 
015782,001287: 
015783,001288: 41,2504           00006        CHANDSP            EXTEND                                         
015784,001289: 41,2505           51020                           INDEX    NOUNCADR                              
015785,001290: 41,2506           00000                           READ     0                                     
015786,001291: 41,2507           40000                           CS       A                                     
015787,001292: 41,2510           12371                           TCF      DSPCOM1                               
015788,001293: 
015789,001294: 
015790,001295: 41,2511           00147        COMPICK            ADRES    NNTYPTEM                              
015791,001296: 41,2512           00146                           ADRES    NNADTEM                               
015792,001297: 
015793,001298: 41,2513           50140        GETCOMP            INDEX    MIXBR                                 #  NORMAL                MIXED
015794,001299: 41,2514           32510                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
015795,001300: 41,2515           50000                           INDEX    A                                     
015796,001301: 41,2516           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
015797,001302: 41,2517           74362                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB (MIX)
015798,001303: 41,2520           00002                           TC       Q                                     
015799,001304: 
015800,001305: 
015801,001306: 41,2521           02513        DECDSP             TC       GETCOMP                               
015802,001307: 41,2522           04343                           TC       LEFT5                                 
015803,001308: 41,2523           76221                           MASK     THREE                                 
015804,001309: 41,2524           54117                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
015805,001310: 41,2525           54122        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
015806,001311: 41,2526           60145                           AD       NOUNADD                               #  DECTEM 1COMP +0, 2COMP +1, 3COMP +2
015807,001312: 41,2527           50000                           INDEX    A                                     
015808,001313: 41,2530           40000                           CS       0                                     
015809,001314: 41,2531           50122                           INDEX    DECTEM                                
015810,001315: 41,2532           57004                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
015811,001316: 41,2533           10122                           CCS      DECTEM                                
015812,001317: 41,2534           02525                           TC       DSPDCGET                              #  MORE TO GET
015813,001318: 41,2535           35030        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
015814,001319: 41,2536           54155                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
015815,001320: 41,2537           54156                           TS       MPAC       +2                         
015816,001321: 41,2540           50117                           INDEX    DECOUNT                               
015817,001322: 41,2541           34331                           CAF      R1D1                                  
015818,001323: 41,2542           55000                           TS       DSPCOUNT                              
015819,001324: 41,2543           50117                           INDEX    DECOUNT                               
015820,001325: 41,2544           41004                           CS       XREG                                  
015821,001326: 41,2545           54154                           TS       MPAC                                  
015822,001327: 41,2546           03044                           TC       SFCONUM                               #  2X ( SF CON NUMB ) IN A
015823,001328: 41,2547           54123                           TS       SFTEMP1                               
015824,001329: 41,2550           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
015825,001330: 41,2551           32563                           DCA      GTSFOUTL                              #     READING ROUTINE.
015826,001331: 41,2552           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
015827,001332: 41,2553           50140                           INDEX    MIXBR                                 
015828,001333: 41,2554           02554                           TC       +0                                    
015829,001334: 41,2555           02560                           TC       DSPSFNOR                              
015830,001335: 41,2556           03031                           TC       SFRUTMIX                              
015831,001336: 41,2557           02573                           TC       DECDSP3                               
015832,001337: 
015833,001338: 41,2560           03023        DSPSFNOR           TC       SFRUTNOR                              
015834,001339: 41,2561           02573                           TC       DECDSP3                               
015835,001340: 
015836,001341: 41,2562     1000                                  EBANK=   DSPCOUNT                              
015837,001342: 41,2562           02122 64102  GTSFOUTL           2CADR    GTSFOUT                               
015838,001343: 
015839,001344: 
015840,001345: 
015841,001346: 41,2564           04655        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
015842,001347: 41,2565           61341                           CADR     DSPDECWD                              
015843,001348: 41,2566           10117                           CCS      DECOUNT                               
015844,001349: 41,2567           02571                           TC       +2                                    
015845,001350: 41,2570           00136                           TC       ENTEXIT                               
015846,001351: 41,2571           54117                           TS       DECOUNT                               
015847,001352: 41,2572           02535                           TC       DSPDCPUT                              #  MORE TO DISPLAY
015848,001353: 
015849,001354: 41,2573           50000        DECDSP3            INDEX    A                                     
015850,001355: 41,2574           32576                           CAF      SFOUTABR                              
015851,001356: 41,2575           04677                           TC       BANKJUMP                              
015852,001357: 
015853,001358: 41,2576           61531        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
015854,001359: 41,2577           62564                           CADR     DSPDCEND                              
015855,001360: 41,2600           60730                           CADR     DEGOUTSF                              
015856,001361: 41,2601           61012                           CADR     ARTOUTSF                              
015857,001362: 41,2602           61023                           CADR     DP1OUTSF                              
015858,001363: 41,2603           61030                           CADR     DP2OUTSF                              
015859,001364: 41,2604           60750                           CADR     LRPOSOUT                              
015860,001365: 41,2605           61032                           CADR     DP3OUTSF                              
015861,001366: 41,2606           65205                           CADR     HMSOUT                                
015862,001367: 41,2607           65260                           CADR     M/SOUT                                
015863,001368: 41,2610           61030                           CADR     DP2OUTSF                              
015864,001369: 41,2611           61017                           CADR     AROUT1SF                              
015865,001370: 41,2612           61045                           CADR     2INTOUT                               
015866,001371: 41,2613           60736                           CADR     360-CDUO                              
015867,001372: 41,2614                        ENDRTOUT           EQUALS                                         
015868,001373: 
015869,001374: 
015870,001375:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
015871,001376:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
015872,001377: 
015873,001378: 40,2730                                           SETLOC   BLANKCON   +1                         
015874,001379: 
015875,001380: 40,2730                                           COUNT*   $$/PIN                                
015876,001381:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
015877,001382:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
015878,001383: 
015879,001384: 40,2730           35030        DEGOUTSF           CAF      ZERO                                  
015880,001385: 40,2731           54156                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
015881,001386: 40,2732           02765                           TC       FIXRANGE                              
015882,001387: 40,2733           02735                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
015883,001388: 40,2734           02760                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
015884,001389: 40,2735           02776                           TC       DEGCOM                                
015885,001390: 
015886,001391:                                                                                                  #  360-CDUO COMPUTES 360 - CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND
015887,001392:                                                                                                  #  GOES TO DEGOUTSF.
015888,001393: 
015889,001394: 40,2736           02740        360-CDUO           TC       360-CDU                               
015890,001395: 40,2737           02730                           TC       DEGOUTSF                              
015891,001396: 
015892,001397: 40,2740           30154        360-CDU            CA       MPAC                                  
015893,001398: 40,2741           75006                           MASK     POSMAX                                #  IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING
015894,001399: 40,2742           00006                           EXTEND                                         
015895,001400: 40,2743           12747                           BZF      360-CDUE                              
015896,001401: 40,2744           40154                           CS       MPAC                                  #  COMPUTE 360 DEGREES MINUS ANGLE
015897,001402: 40,2745           65026                           AD       ONE                                   
015898,001403: 40,2746           54154                           TS       MPAC                                  
015899,001404: 40,2747           00002        360-CDUE           TC       Q                                     
015900,001405: 
015901,001406:                                                                                                  #  LRPOSOUT DISPLAYS +0,1,2,OR 3 (WHOLE) FOR CHANNEL 33,BITS 7-6 = 11,10,
015902,001407:                                                                                                  #  01,00 RESPECTIVELY.
015903,001408: 
015904,001409: 40,2750           00006        LRPOSOUT           EXTEND                                         
015905,001410: 40,2751           00033                           READ     CHAN33                                
015906,001411: 40,2752           00006                           EXTEND                                         
015907,001412: 40,2753           75015                           MP       BIT10                                 #  BITS 7-6 TO BITS 2-1
015908,001413: 40,2754           40000                           COM                                            
015909,001414: 40,2755           76221                           MASK     THREE                                 
015910,001415: 40,2756           54154                           TS       MPAC                                  
015911,001416: 40,2757           03012                           TC       ARTOUTSF                              #  DISPLAY AS WHOLE
015912,001417: 
015913,001418: 40,2760           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
015914,001419: 40,2761           50156                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
015915,001420: 40,2762           33007                           DCA      DEGTAB                                
015916,001421: 40,2763           52124                           DXCH     SFTEMP1                               
015917,001422: 40,2764           00002                           TC       Q                                     
015918,001423: 
015919,001424: 40,2765           10154        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
015920,001425: 40,2766           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
015921,001426: 40,2767           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
015922,001427: 40,2770           12771                           TCF      +1                                    
015923,001428: 
015924,001429: 40,2771           45010                           CS       BIT15                                 
015925,001430: 40,2772           70154                           MASK     MPAC                                  
015926,001431: 40,2773           54154                           TS       MPAC                                  
015927,001432: 40,2774           50002                           INDEX    Q                                     
015928,001433: 40,2775           00001                           TC       1                                     
015929,001434: 
015930,001435: 40,2776           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER , DOES SHORTMP, AND
015931,001436: 40,2777           50156                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
015932,001437: 40,3000           33007                           DCA      DEGTAB                                
015933,001438: 40,3001           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
015934,001439: 40,3002           07261                           TC       SHORTMP                               
015935,001440: 40,3003           52124                           DXCH     SFTEMP1                               
015936,001441: 40,3004           20155                           DAS      MPAC                                  
015937,001442: 40,3005           03015                           TC       SCOUTEND                              
015938,001443: 
015939,001444: 
015940,001445: 40,3006           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
015941,001446: 40,3007           03656                           OCT      03656                                 #  LOW PART OF    .18
015942,001447: 40,3010           16314                           OCT      16314                                 #  HI PART OF     .45
015943,001448: 40,3011           31463                           OCT      31463                                 #  LO PART OF     .45
015944,001449: 
015945,001450: 40,3012           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
015946,001451: 40,3013           52155                           DXCH     MPAC                                  
015947,001452: 40,3014           04427                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015948,001453: 40,3015           04674        SCOUTEND           TC       POSTJUMP                              
015949,001454: 40,3016           62564                           CADR     DSPDCEND                              
015950,001455: 
015951,001456: 40,3017           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
015952,001457: 40,3020           52155                           DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
015953,001458: 40,3021           04427                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
015954,001459: 40,3022           03024                           TC       L14/OUT                               
015955,001460: 
015956,001461: 
015957,001462: 40,3023           03036        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
015958,001463: 40,3024           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
015959,001464: 40,3025           56155                           XCH      MPAC       +1                         #  BY B14.
015960,001465: 40,3026           54154                           TS       MPAC                                  
015961,001466: 40,3027           03015                           TC       SCOUTEND                              
015962,001467: 
015963,001468: 
015964,001469: 40,3030           03036        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
015965,001470: 40,3031           03015                           TC       SCOUTEND                              
015966,001471: 
015967,001472: 
015968,001473: 40,3032           03036        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
015969,001474: 40,3033           36216                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
015970,001475: 40,3034           03266                           TC       TPLEFTN                               #  SHIFT LEFT 7.
015971,001476: 40,3035           03015                           TC       SCOUTEND                              
015972,001477: 
015973,001478: 40,3036     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
015974,001479: 
015975,001480: 40,3036           56002        DPOUT              XCH      Q                                     
015976,001481: 40,3037           54162                           TS       MPAC+6                                
015977,001482: 40,3040           03062                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
015978,001483: 40,3041           07231                           TC       TPAGREE                               #  MAKE DP DATA AGREE
015979,001484: 40,3042           07057                           TC       DMP                                   
015980,001485: 40,3043           00123                           ADRES    SFTEMP1                               
015981,001486: 40,3044           00162                           TC       MPAC+6                                
015982,001487:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
015983,001488:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
015984,001489:                                                                                                  #  BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
015985,001490:                                                                                                  #  RXD1-RXD2.
015986,001491: 
015987,001492: 40,3045           02651        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
015988,001493: 40,3046           02526                           TC       +ON                                   #  TURN ON + SIGN
015989,001494: 40,3047           30154                           CA       MPAC                                  
015990,001495: 40,3050           03421                           TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
015991,001496: 40,3051           46221                           CS       THREE                                 
015992,001497: 40,3052           50117                           INDEX    DECOUNT                               
015993,001498: 40,3053           64331                           AD       R1D1                                  #  RXD4
015994,001499: 40,3054           55000                           TS       DSPCOUNT                              
015995,001500: 40,3055           03062                           TC       READLO                                #  GET 2ND INTEGER
015996,001501: 40,3056           30155                           CA       MPAC       +1                         
015997,001502: 40,3057           03421                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
015998,001503: 40,3060           04674                           TC       POSTJUMP                              
015999,001504: 40,3061           62566                           CADR     DSPDCEND   +2                         
016000,001505: 
016001,001506: 
016002,001507:                                                                                                  #  READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN 
016003,001508:                                                                                                  #  MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
016004,001509:                                                                                                  #  DOES NOT FORCE TPAGREE.
016005,001510: 
016006,001511: 40,3062           56002        READLO             XCH      Q                                     
016007,001512: 40,3063           54144                           TS       TEM4                                  
016008,001513: 40,3064           50140                           INDEX    MIXBR                                 
016009,001514: 40,3065           03065                           TC       +0                                    
016010,001515: 40,3066           03102                           TC       RDLONOR                               
016011,001516: 40,3067           50117                           INDEX    DECOUNT                               
016012,001517: 40,3070           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
016013,001518: 40,3071           74370                           MASK     LOW11                                 #  E SUBK
016014,001519: 40,3072           04325                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
016015,001520: 40,3073           00006        READLO1            EXTEND                                         #  MIXED         NORMAL
016016,001521: 40,3074           50000                           INDEX    A                                     #  C(ESUBK)      C(E)
016017,001522: 40,3075           30001                           DCA      0                                     #  C((E SUBK)+1)      C(E+1)
016018,001523: 40,3076           52155                           DXCH     MPAC                                  
016019,001524: 40,3077           35030                           CAF      ZERO                                  
016020,001525: 40,3100           54156                           TS       MPAC       +2                         
016021,001526: 40,3101           00144                           TC       TEM4                                  
016022,001527: 40,3102           30145        RDLONOR            CA       NOUNADD                               #  E
016023,001528: 40,3103           03073        ENDRDLO            TC       READLO1                               
016024,001529: 
016025,001530: 
016026,001531: 42,3205                                           BANK     42                                    
016027,001532: 42,2000                                           SETLOC   PINBALL3                              
016028,001533: 42,2000                                           BANK                                           
016029,001534: 
016030,001535: 42,3205                                           COUNT*   $$/PIN                                
016031,001536: 42,3205           04655        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
016032,001537: 42,3206           61062                           CADR     READLO                                #  MPAC+1.
016033,001538: 42,3207           07231                           TC       TPAGREE                               #  MAKE DP DATA AGREE
016034,001539: 42,3210           03374                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
016035,001540:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
016036,001541: 42,3211           07057                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
016037,001542: 42,3212           03246                           ADRES    SECON2                                #  MULT BY .06
016038,001543: 42,3213           34333                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
016039,001544: 42,3214           55000                           TS       DSPCOUNT                              
016040,001545: 42,3215           04655                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
016041,001546: 42,3216           61341                           CADR     DSPDECWD                              
016042,001547: 42,3217           03412                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
016043,001548: 42,3220           33250                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
016044,001549: 42,3221           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
016045,001550: 42,3222           55010                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
016046,001551: 42,3223           33251                           CAF      MINCON2    +1                         
016047,001552: 42,3224           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
016048,001553: 42,3225           04427                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
016049,001554:                                                                                                  #  MULT BY .0006
016050,001555: 42,3226           34332                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
016051,001556: 42,3227           55000                           TS       DSPCOUNT                              
016052,001557: 42,3230           04655                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
016053,001558: 42,3231           61341                           CADR     DSPDECWD                              
016054,001559: 42,3232           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
016055,001560: 42,3233           33255                           DCA      HRCON1                                
016056,001561: 42,3234           52155                           DXCH     MPAC                                  
016057,001562: 42,3235           31010                           CA       HITEMOUT                              #  USE WHOLE HOURS
016058,001563: 42,3236           04427                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
016059,001564:                                                                                                  #  MULT BY .16384
016060,001565: 42,3237           34331                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
016061,001566: 42,3240           55000                           TS       DSPCOUNT                              
016062,001567: 42,3241           04655                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
016063,001568: 42,3242           61341                           CADR     DSPDECWD                              
016064,001569: 42,3243           00136                           TC       ENTEXIT                               
016065,001570: 
016066,001571: 42,3244           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #   2EXP12/6000
016067,001572: 
016068,001573: 42,3246           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
016069,001574: 42,3247           01217                           OCT      01217                                 
016070,001575: 42,3250           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
016071,001576: 42,3251           32445                           OCT      32445                                 
016072,001577: 42,3252           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
016073,001578: 42,3253           10422                           OCT      10422                                 
016074,001579: 42,3254           05174 13261  HRCON1             2DEC     .16384                                
016075,001580: 
016076,001581: 42,3256           00000                           OCT      00000                                 
016077,001582: 42,3257           00062        RNDCON             OCT      00062                                 #  .5 SEC
016078,001583: 
016079,001584: 
016080,001585: 42,3260           04655        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
016081,001586: 42,3261           61062                           CADR     READLO                                #  MPAC+1.
016082,001587: 42,3262           07231                           TC       TPAGREE                               #  MAKE DP DATA AGREE
016083,001588: 42,3263           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
016084,001589: 42,3264           03266                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
016085,001590: 42,3265           03317                           TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
016086,001591: 42,3266           63354                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1  FOR CCS
016087,001592: 42,3267           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
016088,001593: 42,3270           03303                           TC       M/SLIMIT                              #  G/ 59M58.5S
016089,001594: 42,3271           03317                           TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
016090,001595: 42,3272           03317                           TC       M/SNORM                               #  L/ 59M58.5S
016091,001596: 42,3273           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
016092,001597: 42,3274           03276                           TC       +2                                    
016093,001598: 42,3275           03317                           TC       M/SNORM                               #  MPAC+1 = +0. L/ 59M58.5S
016094,001599: 42,3276           63355                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1  FOR CCS
016095,001600: 42,3277           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
016096,001601: 42,3300           03303                           TC       M/SLIMIT                              #  G/ 59M58.5S
016097,001602: 42,3301           03317                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
016098,001603: 42,3302           03317                           TC       M/SNORM                               #  L/ 59M58.5S
016099,001604: 42,3303           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
016100,001605: 42,3304           33357                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
016101,001606: 42,3305           03314                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
016102,001607: 42,3306           43357                           CS       M/SCON3                               
016103,001608: 42,3307           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
016104,001609: 42,3310           43360                           CS       M/SCON3    +1                         
016105,001610: 42,3311           54155        LIMITCOM           TS       MPAC       +1                         
016106,001611: 42,3312           33356                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
016107,001612: 42,3313           03375                           TC       SEPSECNR   +1                         
016108,001613: 42,3314           54154        +LIMIT             TS       MPAC                                  
016109,001614: 42,3315           33360                           CAF      M/SCON3    +1                         
016110,001615: 42,3316           03311                           TC       LIMITCOM                              
016111,001616: 42,3317           03361        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
016112,001617:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
016113,001618: 42,3320           33352                           CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
016114,001619: 42,3321           07261                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
016115,001620: 42,3322           46221                           CS       THREE                                 #  GIVES SEC/100 MOD 60
016116,001621: 42,3323           27000                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
016117,001622: 42,3324           04655                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
016118,001623: 42,3325           61401                           CADR     DSPDC2NR                              
016119,001624: 42,3326           35030                           CAF      ZERO                                  
016120,001625: 42,3327           54124                           TS       CODE                                  
016121,001626: 42,3330           45025                           CS       TWO                                   
016122,001627: 42,3331           50117                           INDEX    DECOUNT                               
016123,001628: 42,3332           64331                           AD       R1D1                                  #  RXD3
016124,001629: 42,3333           54143                           TS       COUNT                                 
016125,001630: 42,3334           04655                           TC       BANKCALL                              #  BLANK MIDDLE CHAR
016126,001631: 42,3335           61435                           CADR     DSPIN                                 
016127,001632: 42,3336           03412                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
016128,001633: 42,3337           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
016129,001634: 42,3340           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
016130,001635: 42,3341           73353                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
016131,001636: 42,3342           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
016132,001637: 42,3343           50117                           INDEX    DECOUNT                               
016133,001638: 42,3344           34331                           CAF      R1D1                                  #  RXD1
016134,001639: 42,3345           55000                           TS       DSPCOUNT                              
016135,001640: 42,3346           04655                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
016136,001641: 42,3347           61401                           CADR     DSPDC2NR                              
016137,001642: 42,3350           04674                           TC       POSTJUMP                              
016138,001643: 42,3351           62566                           CADR     DSPDCEND   +2                         
016139,001644: 
016140,001645: 42,3352           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
016141,001646: 42,3353           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
016142,001647: 
016143,001648: 42,3354           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
016144,001649: 42,3355           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
016145,001650: 42,3356           03320        NORMADR            ADRES    M/SNORM    +1                         
016146,001651: 42,3357           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
016147,001652: 42,3360           37016                           OCT      37016                                 
016148,001653: 
016149,001654: 
016150,001655: 42,3361           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
016151,001656: 42,3362           13371                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
016152,001657: 42,3363           13371                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
016153,001658: 42,3364           13365                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
016154,001659: 42,3365           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
016155,001660: 42,3366           43257                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
016156,001661: 42,3367           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
016157,001662: 42,3370           13374                           TCF      SEPSECNR                              
016158,001663: 42,3371           00006        POSEC              EXTEND                                         
016159,001664: 42,3372           33257                           DCA      RNDCON     -1                         
016160,001665: 42,3373           13367                           TCF      SEPSEC1                               
016161,001666: 42,3374           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
016162,001667: 42,3375           54144                           TS       SEPSCRET                              
016163,001668: 42,3376           07057                           TC       DMP                                   #  MULT BY 2EXP12/6000
016164,001669: 42,3377           03244                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
016165,001670: 42,3400           00006                           EXTEND                                         #  AND BELOW.
016166,001671: 42,3401           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
016167,001672: 42,3402           53011                           DXCH     HITEMOUT                              
016168,001673: 42,3403           04416                           TC       TPSL1                                 
016169,001674: 42,3404           04416                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
016170,001675: 42,3405           35030                           CAF      ZERO                                  
016171,001676: 42,3406           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
016172,001677: 42,3407           56155                           XCH      MPAC       +1                         
016173,001678: 42,3410           56154                           XCH      MPAC                                  
016174,001679: 42,3411           00144                           TC       SEPSCRET                              
016175,001680: 
016176,001681: 
016177,001682: 42,3412           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
016178,001683: 42,3413           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
016179,001684: 42,3414           31011                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
016180,001685: 42,3415           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
016181,001686: 42,3416           75024                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
016182,001687: 42,3417           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
016183,001688: 42,3420           75012                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
016184,001689: 42,3421           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
016185,001690:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
016186,001691: 42,3422           31010                           CA       HITEMOUT                              
016187,001692: 42,3423           54154                           TS       MPAC                                  
016188,001693: 42,3424           07057                           TC       DMP                                   #  MULT BY 1/15
016189,001694: 42,3425           03252                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
016190,001695: 42,3426           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
016191,001696: 
016192,001697: 
016193,001698:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
016194,001699:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
016195,001700:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
016196,001701:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
016197,001702:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
016198,001703:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
016199,001704: 
016200,001705: 
016201,001706: 40,3104                                           SETLOC   ENDRDLO    +1                         
016202,001707: 
016203,001708: 40,3104                                           COUNT*   $$/PIN                                
016204,001709: 40,3104           50140        DSPDPDEC           INDEX    MIXBR                                 
016205,001710: 40,3105           03105                           TC       +0                                    
016206,001711: 40,3106           03110                           TC       +2                                    #  NORMAL NOUN
016207,001712: 40,3107           03533                           TC       DSPALARM                              
016208,001713: 40,3110           00006                           EXTEND                                         
016209,001714: 40,3111           50145                           INDEX    NOUNADD                               
016210,001715: 40,3112           30001                           DCA      0                                     
016211,001716: 40,3113           52155                           DXCH     MPAC                                  
016212,001717: 40,3114           34331                           CAF      R1D1                                  
016213,001718: 40,3115           55000                           TS       DSPCOUNT                              
016214,001719: 40,3116           35030                           CAF      ZERO                                  
016215,001720: 40,3117           54156                           TS       MPAC       +2                         
016216,001721: 40,3120           07231                           TC       TPAGREE                               
016217,001722: 40,3121           03406                           TC       DSP2DEC                               
016218,001723: 40,3122           00136        ENDDPDEC           TC       ENTEXIT                               
016219,001724: 
016220,001725:                                                                                                  #  LOAD VERBS           IF ALARM CONDITION IS DETECTED DURING EXECUTE,
016221,001726:                                                                                                  #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
016222,001727:                                                                                                  #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
016223,001728:                                                                                                  #  TO EXECUTE  OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY  1) DECIMAL MACHINE
016224,001729:                                                                                                  #  CADR  2) MIXTURE OF OCTAL/DECIMAL DATA  3) OCTAL DATA INTO DECIMAL
016225,001730:                                                                                                  #  ONLY NOUN  4) DEC DATA INTO OCT ONLY NOUN  5) DATA TOO LARGE FOR SCALE
016226,001731:                                                                                                  #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
016227,001732:                                                                                                  #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
016228,001733:                                                                                                  #  ENTER OF CADR.
016229,001734: 
016230,001735: 
016231,001736: 41,2614                                           SETLOC   ENDRTOUT                              
016232,001737: 
016233,001738: 41,2614                                           COUNT*   $$/PIN                                
016234,001739: 41,2614           45025        ABCLOAD            CS       TWO                                   
016235,001740: 41,2615           02424                           TC       COMPTEST                              
016236,001741: 41,2616           02460                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
016237,001742: 41,2617           33003                           CAF      VBSP1LD                               
016238,001743: 41,2620           02337                           TC       UPDATVB    -1                         
016239,001744: 41,2621           02303                           TC       REQDATX                               
016240,001745: 41,2622           33004                           CAF      VBSP2LD                               
016241,001746: 41,2623           02337                           TC       UPDATVB    -1                         
016242,001747: 41,2624           02305                           TC       REQDATY                               
016243,001748: 41,2625           33005                           CAF      VBSP3LD                               
016244,001749: 41,2626           02337                           TC       UPDATVB    -1                         
016245,001750: 41,2627           02307                           TC       REQDATZ                               
016246,001751: 
016247,001752: 
016248,001753: 41,2630           46216        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
016249,001754: 41,2631           03006                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
016250,001755: 41,2632           00006                           EXTEND                                         
016251,001756: 41,2633           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
016252,001757: 41,2634           52006                           DXCH     Z                                     #  ROUTINE.
016253,001758: 41,2635           35030                           CAF      ZERO                                  #  X COMP
016254,001759: 41,2636           03072                           TC       PUTCOM                                
016255,001760: 41,2637           50145                           INDEX    NOUNADD                               
016256,001761: 41,2640           54000                           TS       0                                     
016257,001762: 41,2641           35026                           CAF      ONE                                   #  Y COMP
016258,001763: 41,2642           03072                           TC       PUTCOM                                
016259,001764: 41,2643           50145                           INDEX    NOUNADD                               
016260,001765: 41,2644           54001                           TS       1                                     
016261,001766: 41,2645           35025                           CAF      TWO                                   #  Z COMP
016262,001767: 41,2646           03072                           TC       PUTCOM                                
016263,001768: 41,2647           50145                           INDEX    NOUNADD                               
016264,001769: 41,2650           54002                           TS       2                                     
016265,001770: 41,2651           45032                           CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
016266,001771: 41,2652           61003                           AD       NOUNREG                               #   FLAG BITS AS SPECIFIED.
016267,001772: 41,2653           00006                           EXTEND                                         
016268,001773: 41,2654           12656                           BZF      +2                                    
016269,001774: 41,2655           02773                           TC       LOADLV                                
016270,001775: 41,2656           31004                           CA       XREG                                  #  ECADR OF FLAG WORD.
016271,001776: 41,2657           04316                           TC       SETNCADR   +1                         #   SET EBANK, NOUNADD.
016272,001777: 41,2660           31006                           CA       ZREG                                  #  ZERO TO RESET BITS, NON-ZERO TO SET BITS
016273,001778: 41,2661           00004                           INHINT                                         
016274,001779: 41,2662           00006                           EXTEND                                         
016275,001780: 41,2663           12672                           BZF      BITSOFF                               
016276,001781: 41,2664           50145                           INDEX    NOUNADD                               
016277,001782: 41,2665           40000                           CS       0                                     
016278,001783: 41,2666           71005                           MASK     YREG                                  #  BITS TO BE PROCESSED.
016279,001784: 41,2667           50145                           INDEX    NOUNADD                               
016280,001785: 41,2670           26000                           ADS      0                                     #  SET BITS.
016281,001786: 41,2671           02677                           TC       BITSOFF1                              
016282,001787: 41,2672           41005        BITSOFF            CS       YREG                                  #  BITS TO BE PROCESSED.
016283,001788: 41,2673           50145                           INDEX    NOUNADD                               
016284,001789: 41,2674           70000                           MASK     0                                     
016285,001790: 41,2675           50145                           INDEX    NOUNADD                               
016286,001791: 41,2676           54000                           TS       0                                     #  RESET BITS.
016287,001792: 41,2677           00003        BITSOFF1           RELINT                                         
016288,001793: 41,2700           02773                           TC       LOADLV                                
016289,001794: 
016290,001795: 41,2701           45026        ABLOAD             CS       ONE                                   
016291,001796: 41,2702           02424                           TC       COMPTEST                              
016292,001797: 41,2703           02460                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
016293,001798: 41,2704           33003                           CAF      VBSP1LD                               
016294,001799: 41,2705           02337                           TC       UPDATVB    -1                         
016295,001800: 41,2706           02303                           TC       REQDATX                               
016296,001801: 41,2707           33004                           CAF      VBSP2LD                               
016297,001802: 41,2710           02337                           TC       UPDATVB    -1                         
016298,001803: 41,2711           02305                           TC       REQDATY                               
016299,001804: 41,2712           45031        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
016300,001805: 41,2713           03006                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
016301,001806: 41,2714           00006                           EXTEND                                         
016302,001807: 41,2715           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
016303,001808: 41,2716           52006                           DXCH     Z                                     #  ROUTINE.
016304,001809: 41,2717           35030                           CAF      ZERO                                  #  X COMP
016305,001810: 41,2720           03072                           TC       PUTCOM                                
016306,001811: 41,2721           50145                           INDEX    NOUNADD                               
016307,001812: 41,2722           54000                           TS       0                                     
016308,001813: 41,2723           35026                           CAF      ONE                                   #  Y COMP
016309,001814: 41,2724           03072                           TC       PUTCOM                                
016310,001815: 41,2725           50145                           INDEX    NOUNADD                               
016311,001816: 41,2726           54001                           TS       1                                     
016312,001817: 41,2727           02773                           TC       LOADLV                                
016313,001818: 
016314,001819: 41,2730           02303        ALOAD              TC       REQDATX                               
016315,001820: 41,2731           00006                           EXTEND                                         
016316,001821: 41,2732           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
016317,001822: 41,2733           52006                           DXCH     Z                                     #  ROUTINE.
016318,001823: 41,2734           35030                           CAF      ZERO                                  #  X COMP
016319,001824: 41,2735           03072                           TC       PUTCOM                                
016320,001825: 41,2736           50145                           INDEX    NOUNADD                               
016321,001826: 41,2737           54000                           TS       0                                     
016322,001827: 41,2740           02773                           TC       LOADLV                                
016323,001828: 
016324,001829: 41,2741           45026        BLOAD              CS       ONE                                   
016325,001830: 41,2742           02424                           TC       COMPTEST                              
016326,001831: 41,2743           35010                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
016327,001832: 41,2744           55016                           TS       CLPASS                                
016328,001833: 41,2745           02305                           TC       REQDATY                               
016329,001834: 41,2746           00006                           EXTEND                                         
016330,001835: 41,2747           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
016331,001836: 41,2750           52006                           DXCH     Z                                     #  ROUTINE.
016332,001837: 41,2751           35026                           CAF      ONE                                   
016333,001838: 41,2752           03072                           TC       PUTCOM                                
016334,001839: 41,2753           50145                           INDEX    NOUNADD                               
016335,001840: 41,2754           54001                           TS       1                                     
016336,001841: 41,2755           02773                           TC       LOADLV                                
016337,001842: 
016338,001843: 41,2756           45025        CLOAD              CS       TWO                                   
016339,001844: 41,2757           02424                           TC       COMPTEST                              
016340,001845: 41,2760           35010                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
016341,001846: 41,2761           55016                           TS       CLPASS                                
016342,001847: 41,2762           02307                           TC       REQDATZ                               
016343,001848: 41,2763           00006                           EXTEND                                         
016344,001849: 41,2764           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
016345,001850: 41,2765           52006                           DXCH     Z                                     #  ROUTINE.
016346,001851: 41,2766           35025                           CAF      TWO                                   
016347,001852: 41,2767           03072                           TC       PUTCOM                                
016348,001853: 41,2770           50145                           INDEX    NOUNADD                               
016349,001854: 41,2771           54002                           TS       2                                     
016350,001855: 41,2772           02773                           TC       LOADLV                                
016351,001856: 
016352,001857: 41,2773           35030        LOADLV             CAF      ZERO                                  
016353,001858: 41,2774           55001                           TS       DECBRNCH                              
016354,001859: 41,2775           45030                           CS       ZERO                                  
016355,001860: 41,2776           55015                           TS       LOADSTAT                              
016356,001861: 41,2777           44372                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
016357,001862: 41,3000           55000                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
016358,001863: 41,3001           04674                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
016359,001864: 41,3002           61651                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
016360,001865: 
016361,001866: 41,3003           00025        VBSP1LD            DEC      21         B-14                       #  VB21 = ALOAD
016362,001867: 41,3004           00026        VBSP2LD            DEC      22         B-14                       #  VB22 = BLOAD
016363,001868: 41,3005           00027        VBSP3LD            DEC      23         B-14                       #  VB23 = CLOAD
016364,001869: 
016365,001870: 
016366,001871: 41,3006           54117        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
016367,001872: 41,3007           41001                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
016368,001873: 41,3010           54021                           TS       SR                                    
016369,001874: 41,3011           40021                           CS       SR                                    
016370,001875: 41,3012           40021                           CS       SR                                    #  SHIFTED RIGHT 2
016371,001876: 41,3013           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
016372,001877: 41,3014           13016                           TCF      +2                                    #  SOME ONES IN LOW 3
016373,001878: 41,3015           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
016374,001879: 41,3016           60117                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
016375,001880: 41,3017           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
016376,001881: 41,3020           13022                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
016377,001882: 41,3021           04157                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
016378,001883: 41,3022           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC.  OK
016379,001884: 
016380,001885: 
016381,001886: 41,3023           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
016382,001887: 41,3024           54114                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
016383,001888: 41,3025           34361                           CAF      MID5                                  
016384,001889: 41,3026           70147                           MASK     NNTYPTEM                              
016385,001890: 41,3027           04334                           TC       RIGHT5                                
016386,001891: 41,3030           00114                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
016387,001892: 
016388,001893: 41,3031           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
016389,001894: 41,3032           54114                           TS       EXITEM                                
016390,001895: 41,3033           50117                           INDEX    DECOUNT                               
016391,001896: 41,3034           33063                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
016392,001897: 41,3035           54001                           TS       L                                     
016393,001898: 41,3036           50117                           INDEX    DECOUNT                               
016394,001899: 41,3037           34360                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
016395,001900: 41,3040           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
016396,001901: 41,3041           50001                           INDEX    L                                     
016397,001902: 41,3042           00000                           TC       0                                     
016398,001903:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
016399,001904: 41,3043           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
016400,001905: 
016401,001906: 41,3044           56002        SFCONUM            XCH      Q                                     #  GETS 2X(SF CONSTANT NUMBER)
016402,001907: 41,3045           54114                           TS       EXITEM                                
016403,001908: 41,3046           50140                           INDEX    MIXBR                                 
016404,001909: 41,3047           03047                           TC       +0                                    
016405,001910: 41,3050           03066                           TC       CONUMNOR                              #  NORMAL NOUN
016406,001911: 41,3051           50117                           INDEX    DECOUNT                               #  MIXED NOUN
016407,001912: 41,3052           33063                           CAF      DISPLACE                              
016408,001913: 41,3053           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
016409,001914: 41,3054           50117                           INDEX    DECOUNT                               
016410,001915: 41,3055           34360                           CAF      LOW5                                  
016411,001916: 41,3056           70147                           MASK     NNTYPTEM                              
016412,001917: 41,3057           50001                           INDEX    L                                     
016413,001918: 41,3060           00000                           TC       0                                     
016414,001919:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
016415,001920: 41,3061           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
016416,001921: 41,3062           00114                           TC       EXITEM                                
016417,001922: 
016418,001923: 41,3063           03022        DISPLACE           TC       GOQ                                   
016419,001924: 41,3064           04334                           TC       RIGHT5                                
016420,001925: 41,3065           04343                           TC       LEFT5                                 
016421,001926: 
016422,001927: 41,3066           34360        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
016423,001928: 41,3067           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
016424,001929: 41,3070           60000                           DOUBLE                                         
016425,001930: 41,3071           00114                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
016426,001931: 
016427,001932: 
016428,001933: 41,3072           54117        PUTCOM             TS       DECOUNT                               
016429,001934: 41,3073           56002                           XCH      Q                                     
016430,001935: 41,3074           54115                           TS       DECRET                                
016431,001936: 41,3075           35030                           CAF      ZERO                                  
016432,001937: 41,3076           54162                           TS       MPAC+6                                
016433,001938: 41,3077           50117                           INDEX    DECOUNT                               
016434,001939: 41,3100           57007                           XCH      XREGLP                                
016435,001940: 41,3101           54155                           TS       MPAC       +1                         
016436,001941: 41,3102           50117                           INDEX    DECOUNT                               
016437,001942: 41,3103           57004                           XCH      XREG                                  
016438,001943: 41,3104           54154                           TS       MPAC                                  
016439,001944: 41,3105           50140                           INDEX    MIXBR                                 
016440,001945: 41,3106           03106                           TC       +0                                    
016441,001946: 41,3107           03134                           TC       PUTNORM                               #  NORMAL NOUN
016442,001947:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
016443,001948: 41,3110           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
016444,001949: 41,3111           30150                           CA       IDAD1TEM                              #          OF NOUN.
016445,001950: 41,3112           74370                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
016446,001951: 41,3113           04315                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
016447,001952: 41,3114           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
016448,001953: 41,3115           60117                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
016449,001954: 41,3116           54145                           TS       NOUNADD                               
016450,001955: 41,3117           11001                           CCS      DECBRNCH                              
016451,001956: 41,3120           03167                           TC       PUTDECSF                              #  +  DEC
016452,001957: 41,3121           02452                           TC       DCTSTCYC                              #  +0 OCTAL
016453,001958: 41,3122           03031                           TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1. IF SO,
016454,001959: 41,3123           02261                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
016455,001960: 41,3124           03152                           TC       PUTCOM2                               #  NO DP
016456,001961:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
016457,001962:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
016458,001963:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
016459,001964: 41,3125           24145        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
016460,001965: 41,3126           30145                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
016461,001966: 41,3127           26117                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
016462,001967: 41,3130           35030                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
016463,001968: 41,3131           50117                           INDEX    DECOUNT                               
016464,001969: 41,3132           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
016465,001970: 41,3133           03152                           TC       PUTCOM2                               
016466,001971: 
016467,001972: 41,3134           04323        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
016468,001973: 41,3135           11001                           CCS      DECBRNCH                              
016469,001974: 41,3136           03167                           TC       PUTDECSF                              #  +  DEC
016470,001975: 41,3137           02452                           TC       DCTSTCYC                              #  +0 OCTAL
016471,001976: 41,3140           03023                           TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT = 1. IF SO,
016472,001977: 41,3141           02261                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
016473,001978: 41,3142           03146                           TC       PUTCOM2    -4                         #  NO DP
016474,001979: 41,3143           35030                           CAF      ZERO                                  #  DP
016475,001980: 41,3144           54117                           TS       DECOUNT                               
016476,001981: 41,3145           03125                           TC       PUTDPCOM                              
016477,001982: 
016478,001983: 41,3146           30146                           CA       NNADTEM                               
016479,001984: 41,3147           65026                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
016480,001985: 41,3150           00006                           EXTEND                                         
016481,001986: 41,3151           13156                           BZF      CHANLOAD                              
016482,001987: 41,3152           56154        PUTCOM2            XCH      MPAC                                  
016483,001988: 41,3153           00115                           TC       DECRET                                
016484,001989: 
016485,001990: 41,3154     1000                                  EBANK=   DSPCOUNT                              
016486,001991: 41,3154           02130 64102  GTSFINLC           2CADR    GTSFIN                                
016487,001992: 
016488,001993: 
016489,001994: 
016490,001995: 41,3156           45032        CHANLOAD           CS       SEVEN                                 #  DONT LOAD CHAN 7. (IT = SUPERBANK).
016491,001996: 41,3157           61020                           AD       NOUNCADR                              
016492,001997: 41,3160           00006                           EXTEND                                         
016493,001998: 41,3161           12773                           BZF      LOADLV                                
016494,001999: 41,3162           30154                           CA       MPAC                                  
016495,002000: 41,3163           00006                           EXTEND                                         
016496,002001: 41,3164           51020                           INDEX    NOUNCADR                              
016497,002002: 41,3165           01000                           WRITE    0                                     
016498,002003: 41,3166           02773                           TC       LOADLV                                
016499,002004: 
016500,002005: 
016501,002006:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
016502,002007: 
016503,002008: 41,3167           03044        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
016504,002009: 41,3170           54123                           TS       SFTEMP1                               
016505,002010: 41,3171           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
016506,002011: 41,3172           33155                           DCA      GTSFINLC                              #  READING ROUTINE.
016507,002012: 41,3173           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
016508,002013: 41,3174           50140                           INDEX    MIXBR                                 
016509,002014: 41,3175           03175                           TC       +0                                    
016510,002015: 41,3176           03201                           TC       PUTSFNOR                              
016511,002016: 41,3177           03031                           TC       SFRUTMIX                              
016512,002017: 41,3200           03202                           TC       PUTDCSF2                              
016513,002018: 41,3201           03023        PUTSFNOR           TC       SFRUTNOR                              
016514,002019: 
016515,002020: 41,3202           50000        PUTDCSF2           INDEX    A                                     
016516,002021: 41,3203           33205                           CAF      SFINTABR                              
016517,002022: 41,3204           04677                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
016518,002023: 41,3205           62350        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
016519,002024:                                                                                                  #  WITH OCTAL ONLY NOUN.
016520,002025: 41,3206           61221                           CADR     BINROUND                              
016521,002026: 41,3207           61123                           CADR     DEGINSF                               
016522,002027: 41,3210           61211                           CADR     ARTHINSF                              
016523,002028: 41,3211           61227                           CADR     DPINSF                                
016524,002029: 41,3212           61254                           CADR     DPINSF2                               
016525,002030: 41,3213           61533                           CADR     DSPALARM                              #  LRPOSOUT CANT BE LOADED.
016526,002031: 41,3214           61227                           CADR     DPINSF                                #  SAME AS ARITHDP1
016527,002032: 41,3215           65427                           CADR     HMSIN                                 
016528,002033: 41,3216           61533                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
016529,002034: 41,3217           61261                           CADR     DPINSF4                               
016530,002035: 41,3220           61224                           CADR     ARTIN1SF                              
016531,002036: 41,3221           61533                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
016532,002037: 41,3222           61123                           CADR     DEGINSF                               #  TESTS AT END FOR 360-CDU
016533,002038: 41,3223                        ENDRUTIN           EQUALS                                         
016534,002039: 
016535,002040: 
016536,002041:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
016537,002042:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
016538,002043: 
016539,002044: 
016540,002045: 40,3123                                           SETLOC   ENDDPDEC   +1                         
016541,002046: 
016542,002047: 40,3123                                           COUNT*   $$/PIN                                
016543,002048:                                                                                                  #  DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
016544,002049: 
016545,002050: 40,3123           07057        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
016546,002051: 40,3124           03207                           ADRES    DEGCON1                               #  MULT BY 5.5  5(10)X2EXP-3
016547,002052: 40,3125           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
016548,002053: 40,3126           35014                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
016549,002054: 40,3127           03131                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
016550,002055: 40,3130           45014                           CS       BIT11                                 
016551,002056: 40,3131           60155                           AD       MPAC       +1                         
016552,002057: 40,3132           03300                           TC       2ROUND     +2                         
016553,002058: 40,3133           04416                           TC       TPSL1                                 #  LEFT 1
016554,002059: 40,3134           04416        DEGINSF2           TC       TPSL1                                 #  LEFT 2
016555,002060: 40,3135           03307                           TC       TESTOFUF                              
016556,002061: 40,3136           04416                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
016557,002062: 40,3137           10154                           CCS      MPAC                                  
016558,002063: 40,3140           03144                           TC       SIGNFIX                               #  IF+, GO TO SIGNFIX
016559,002064: 40,3141           03144                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
016560,002065: 40,3142           40000                           COM                                            #  IF -,  USE -MAGNITUDE +1
016561,002066: 40,3143           54154                           TS       MPAC                                  #  IF -0, USE +0
016562,002067: 40,3144           10162        SIGNFIX            CCS      MPAC+6                                
016563,002068: 40,3145           03203                           TC       SGNTO1                                #  IF OVERFLOW
016564,002069: 40,3146           03156                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
016565,002070: 40,3147           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
016566,002071: 40,3150           05723                           TC       CCSHOLE                               
016567,002072: 40,3151           03201                           TC       NEG180                                
016568,002073: 40,3152           03153                           TC       +1                                    
016569,002074: 40,3153           56154                           XCH      MPAC                                  
016570,002075: 40,3154           75006                           MASK     POSMAX                                
016571,002076: 40,3155           54154                           TS       MPAC                                  
016572,002077: 40,3156           50140        ENDSCALE           INDEX    MIXBR                                 #  IF ROUTINE NO. IS NOT CDU DEGREES,
016573,002078: 40,3157           03157                           TC       +0                                    #   THEN THIS IS 360 - CDU DEGREES
016574,002079: 40,3160           03163                           TC       +3                                    #   AND ANGLE IN MPAC MUST BE REPLACED
016575,002080: 40,3161           03173                           TC       SFMIXCAL                              #   BY 360 DEGREES MINUS ITSELF.
016576,002081: 40,3162           03164        MIXBACK            TC       +2                                    
016577,002082: 40,3163           03176                           TC       SFNORCAL                              
016578,002083: 40,3164           40000        NORBACK            CS       A                                     
016579,002084: 40,3165           65025                           AD       BIT2                                  
016580,002085: 40,3166           00006                           EXTEND                                         
016581,002086: 40,3167           13171                           BZF      +2                                    
016582,002087: 40,3170           02740                           TC       360-CDU                               
016583,002088: 40,3171           04674        ENDSCAL1           TC       POSTJUMP                              
016584,002089: 40,3172           63152                           CADR     PUTCOM2                               
016585,002090: 
016586,002091: 40,3173           04655        SFMIXCAL           TC       BANKCALL                              
016587,002092: 40,3174           63031                           CADR     SFRUTMIX                              
016588,002093: 40,3175           03162                           TC       MIXBACK                               
016589,002094: 
016590,002095: 40,3176           04655        SFNORCAL           TC       BANKCALL                              
016591,002096: 40,3177           63023                           CADR     SFRUTNOR                              
016592,002097: 40,3200           03164                           TC       NORBACK                               
016593,002098: 
016594,002099: 40,3201           45006        NEG180             CS       POSMAX                                
016595,002100: 40,3202           03155                           TC       ENDSCALE   -1                         
016596,002101: 
016597,002102: 40,3203           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
016598,002103: 40,3204           75006                           MASK     POSMAX                                
016599,002104: 40,3205           40000                           CS       A                                     
016600,002105: 40,3206           03155                           TC       ENDSCALE   -1                         
016601,002106: 
016602,002107: 40,3207           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
016603,002108: 
016604,002109: 
016605,002110: 40,3211           07057        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
016606,002111: 40,3212           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
016607,002112: 40,3213           56156                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
016608,002113: 40,3214           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
016609,002114: 40,3215           56154                           XCH      MPAC                                  
016610,002115: 40,3216           00006                           EXTEND                                         
016611,002116: 40,3217           13221                           BZF      BINROUND                              
016612,002117: 40,3220           04157                           TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
016613,002118: 40,3221           03276        BINROUND           TC       2ROUND                                
016614,002119: 40,3222           03307                           TC       TESTOFUF                              
016615,002120: 40,3223           03171                           TC       ENDSCAL1                              #  RETURNS IF NO OF/UF
016616,002121: 
016617,002122: 40,3224           07057        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
016618,002123: 40,3225           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
016619,002124: 40,3226           03221                           TC       BINROUND                              
016620,002125: 
016621,002126: 
016622,002127: 40,3227           07057        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
016623,002128: 40,3230           00123                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
016624,002129: 40,3231           56156                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
016625,002130: 40,3232           60000                           DOUBLE                                         
016626,002131: 40,3233           54156                           TS       MPAC       +2                         
016627,002132: 40,3234           35030                           CAF      ZERO                                  
016628,002133: 40,3235           60155                           AD       MPAC       +1                         
016629,002134: 40,3236           03300                           TC       2ROUND     +2                         
016630,002135: 40,3237           03307                           TC       TESTOFUF                              
016631,002136: 40,3240           50140                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
016632,002137: 40,3241           03241                           TC       +0                                    
016633,002138: 40,3242           03252                           TC       DPINORM                               
016634,002139: 40,3243           30117                           CA       DECOUNT                               #  MIXED NOUN
016635,002140: 40,3244           60145        DPINCOM            AD       NOUNADD                               #       MIXED              NORMAL
016636,002141: 40,3245           54002                           TS       Q                                     #    E SUBK            E
016637,002142: 40,3246           56155                           XCH      MPAC       +1                         
016638,002143: 40,3247           50002                           INDEX    Q                                     
016639,002144: 40,3250           54001                           TS       1                                     #  PLACE LOW PART IN
016640,002145: 40,3251           03171                           TC       ENDSCAL1                              #  (E SUBK) +1    MIXED
016641,002146: 
016642,002147: 40,3252           35030        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
016643,002148: 40,3253           03244                           TC       DPINCOM                               
016644,002149: 
016645,002150: 
016646,002151: 40,3254           07057        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
016647,002152: 40,3255           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016648,002153: 40,3256           36216                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
016649,002154: 40,3257           03266                           TC       TPLEFTN                               #  SHIFT LEFT 7.
016650,002155: 40,3260           03231                           TC       DPINSF     +2                         
016651,002156: 
016652,002157: 40,3261           07057        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
016653,002158: 40,3262           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016654,002159: 40,3263           35025                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
016655,002160: 40,3264           03266                           TC       TPLEFTN                               #  SHIFT LEFT 3.
016656,002161: 40,3265           03231                           TC       DPINSF     +2                         
016657,002162: 
016658,002163: 
016659,002164: 40,3266           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
016660,002165: 40,3267           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
016661,002166: 40,3270           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
016662,002167: 40,3271           54123        LEFTNCOM           TS       SFTEMP1                               #      LOOP TIME .37 MSEC.
016663,002168: 40,3272           04416                           TC       TPSL1                                 
016664,002169: 40,3273           10123                           CCS      SFTEMP1                               
016665,002170: 40,3274           03271                           TC       LEFTNCOM                              
016666,002171: 40,3275           00124                           TC       SFTEMP2                               
016667,002172: 
016668,002173: 
016669,002174: 40,3276           56155        2ROUND             XCH      MPAC       +1                         
016670,002175: 40,3277           60000                           DOUBLE                                         
016671,002176: 40,3300           54155                           TS       MPAC       +1                         
016672,002177: 40,3301           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
016673,002178: 40,3302           60154                           AD       MPAC                                  
016674,002179: 40,3303           54154                           TS       MPAC                                  
016675,002180: 40,3304           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
016676,002181: 40,3305           54162                           TS       MPAC+6                                
016677,002182: 40,3306           00002        2RNDEND            TC       Q                                     
016678,002183: 
016679,002184: 
016680,002185: 40,3307           10162        TESTOFUF           CCS      MPAC+6                                #  RETURNS IF NO OF/UF
016681,002186: 40,3310           04157                           TC       ALMCYCLE                              #  OF   ALARM AND RECYCLE.
016682,002187: 40,3311           00002                           TC       Q                                     
016683,002188: 40,3312           04157                           TC       ALMCYCLE                              #  UF   ALARM AND RECYCLE.
016684,002189: 
016685,002190: 
016686,002191: 42,3427                                           SETLOC   ENDSPMIN   +1                         
016687,002192: 
016688,002193: 42,3427                                           COUNT*   $$/PIN                                
016689,002194: 42,3427           03550        HMSIN              TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
016690,002195: 42,3430           07057                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
016691,002196: 42,3431           03511                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
016692,002197: 42,3432           03520                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
016693,002198: 42,3433           35030                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383 ).
016694,002199: 42,3434           54156                           TS       MPAC       +2                         
016695,002200: 42,3435           33513                           CAF      HRCON                                 
016696,002201: 42,3436           54154                           TS       MPAC                                  
016697,002202: 42,3437           33514                           CAF      HRCON      +1                         
016698,002203: 42,3440           56155                           XCH      MPAC       +1                         
016699,002204: 42,3441           07261                           TC       SHORTMP                               
016700,002205: 42,3442           03531                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
016701,002206: 42,3443           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
016702,002207: 42,3444           52124                           DXCH     HITEMIN                               
016703,002208: 42,3445           31005                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
016704,002209: 42,3446           23010                           LXCH     YREGLP                                
016705,002210: 42,3447           52155                           DXCH     MPAC                                  
016706,002211: 42,3450           07057                           TC       DMP                                   
016707,002212: 42,3451           03511                           ADRES    WHOLECON                              
016708,002213: 42,3452           03520                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
016709,002214: 42,3453           43516                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
016710,002215: 42,3454           03536                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
016711,002216: 42,3455           56155                           XCH      MPAC       +1                         
016712,002217: 42,3456           00006                           EXTEND                                         
016713,002218: 42,3457           73515                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
016714,002219: 42,3460           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
016715,002220: 42,3461           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN
016716,002221: 42,3462           13464                           BZF      +2                                    
016717,002222: 42,3463           04157                           TC       ALMCYCLE                              
016718,002223: 42,3464           31006                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
016719,002224: 42,3465           23011                           LXCH     ZREGLP                                
016720,002225: 42,3466           52155                           DXCH     MPAC                                  
016721,002226: 42,3467           07057                           TC       DMP                                   
016722,002227: 42,3470           03511                           ADRES    WHOLECON                              
016723,002228: 42,3471           03520                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
016724,002229: 42,3472           43517                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
016725,002230: 42,3473           03536                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
016726,002231: 42,3474           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
016727,002232: 42,3475           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
016728,002233: 42,3476           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
016729,002234: 42,3477           13501                           BZF      +2                                    
016730,002235: 42,3500           04157                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
016731,002236: 42,3501           35030                           CAF      ZERO                                  
016732,002237: 42,3502           54156                           TS       MPAC       +2                         
016733,002238: 42,3503           07231                           TC       TPAGREE                               
016734,002239: 42,3504           52155                           DXCH     MPAC                                  
016735,002240: 42,3505           50145                           INDEX    NOUNADD                               
016736,002241: 42,3506           52001                           DXCH     0                                     
016737,002242: 42,3507           04674                           TC       POSTJUMP                              
016738,002243: 42,3510           62773                           CADR     LOADLV                                
016739,002244: 
016740,002245: 42,3511           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
016741,002246: 42,3512           03240                           OCT      03240                                 
016742,002247: 42,3513           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
016743,002248: 42,3514           37100                           OCT      37100                                 
016744,002249: 42,3515           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
016745,002250: 42,3516           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
016746,002251: 42,3517           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
016747,002252: 
016748,002253: 
016749,002254: 42,3520           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
016750,002255: 42,3521           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
016751,002256: 42,3522           54156                           TS       MPAC       +2                         
016752,002257: 42,3523           35030                           CAF      ZERO                                  
016753,002258: 42,3524           60155                           AD       MPAC       +1                         
016754,002259: 42,3525           54155                           TS       MPAC       +1                         
016755,002260: 42,3526           35030                           CAF      ZERO                                  
016756,002261: 42,3527           60154                           AD       MPAC                                  #  CANT OVFLOW
016757,002262: 42,3530           56154                           XCH      MPAC                                  
016758,002263: 42,3531           10154        MPACTST            CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
016759,002264: 42,3532           04157                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
016760,002265: 42,3533           00002                           TC       Q                                     
016761,002266: 42,3534           04157                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
016762,002267: 42,3535           00002                           TC       Q                                     
016763,002268: 
016764,002269: 42,3536           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
016765,002270: 42,3537           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1
016766,002271: 42,3540           65026                           AD       ONE                                   
016767,002272: 42,3541           13543                           TCF      +2                                    
016768,002273: 42,3542           65026                           AD       ONE                                   
016769,002274: 42,3543           60156                           AD       MPAC       +2                         
016770,002275: 42,3544           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
016771,002276: 42,3545           63547                           BZMF     +2                                    
016772,002277: 42,3546           04157                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
016773,002278: 42,3547           00002                           TC       Q                                     #  MAG OF MPAC+1 L/= CON
016774,002279: 
016775,002280: 
016776,002281:                                                                                                  #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
016777,002282:                                                                                                  #  ALARM IF NOT. (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
016778,002283: 42,3550           43555        ALL3DEC            CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
016779,002284: 42,3551           71001                           MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
016780,002285: 42,3552           63555                           AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
016781,002286: 42,3553           10000                           CCS      A                                     
016782,002287: 42,3554           03560                           TC       FORCEV25                              
016783,002288: 42,3555           77743        OCT34BAR           OCT      77743                                 
016784,002289: 42,3556           03560                           TC       FORCEV25                              
016785,002290: 42,3557           00002                           TC       Q                                     
016786,002291: 
016787,002292: 42,3560           44113        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
016788,002293: 42,3561           55042                           TS       VERBSAVE                              #   IN CASE OPERATOR EXECUTED A LOWER LOAD
016789,002294: 42,3562           04157                           TC       ALMCYCLE                              #   VERB.  ALARM AND RECYCLE.
016790,002295: 42,3563                        ENDHMSS            EQUALS                                         
016791,002296: 
016792,002297:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
016793,002298:                                                                                                  #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
016794,002299:                                                                                                  #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
016795,002300:                                                                                                  #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
016796,002301:                                                                                                  #  HE HAS INITIATED THROUGH THE KEYBOARD).
016797,002302: 
016798,002303:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
016799,002304:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
016800,002305:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
016801,002306:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
016802,002307:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
016803,002308:                                                                                                  #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
016804,002309:                                                                                                  #  MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
016805,002310: 
016806,002311:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON(+=ON, +0=OFF)
016807,002312:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
016808,002313:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
016809,002314: 
016810,002315:                                                                                                  #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
016811,002316:                                                                                                  #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
016812,002317: 
016813,002318:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
016814,002319:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
016815,002320: 
016816,002321:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
016817,002322: 41,3223                                           SETLOC   ENDRUTIN                              
016818,002323: 
016819,002324: 41,3223                                           COUNT*   $$/PIN                                
016820,002325: 41,3223           43232        MONITOR            CS       BIT15/14                              
016821,002326: 41,3224           71020                           MASK     NOUNCADR                              
016822,002327: 41,3225           54155        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
016823,002328: 41,3226           40136                           CS       ENTEXIT                               
016824,002329: 41,3227           64231                           AD       ENDINST                               
016825,002330: 41,3230           10000                           CCS      A                                     
016826,002331: 41,3231           03240                           TC       MONIT2                                
016827,002332: 41,3232           60000        BIT15/14           OCT      60000                                 
016828,002333: 41,3233           03240                           TC       MONIT2                                
016829,002334: 41,3234           35011                           CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
016830,002335: 41,3235           26155                           ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
016831,002336: 41,3236           35030                           CAF      ZERO                                  
016832,002337: 41,3237           55023                           TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
016833,002338: 41,3240           36050        MONIT2             CAF      LOW7                                  
016834,002339: 41,3241           71002                           MASK     VERBREG                               
016835,002340: 41,3242           04343                           TC       LEFT5                                 
016836,002341: 41,3243           54022                           TS       CYL                                   
016837,002342: 41,3244           40022                           CS       CYL                                   
016838,002343: 41,3245           56022                           XCH      CYL                                   
016839,002344: 41,3246           61003                           AD       NOUNREG                               
016840,002345: 41,3247           54154                           TS       MPAC                                  #  TEMP STORAGE
016841,002346: 41,3250           35030                           CAF      ZERO                                  
016842,002347: 41,3251           55013                           TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
016843,002348: 41,3252           11043                           CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
016844,002349: 41,3253           03255                           TC       +2                                    #  ARE BOTH EMPTY. (LITE COMES ON IF NEW
016845,002350: 41,3254           04514                           TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
016846,002351: 41,3255           00004                           INHINT                                         
016847,002352: 41,3256           11021                           CCS      MONSAVE                               
016848,002353: 41,3257           03264                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
016849,002354: 41,3260           35026                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
016850,002355: 41,3261           05252                           TC       WAITLIST                              
016851,002356: 41,3262     1000                                  EBANK=   DSPCOUNT                              
016852,002357: 41,3262           03270 62102                     2CADR    MONREQ                                
016853,002358: 
016854,002359: 41,3264           52155                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
016855,002360: 41,3265           53022                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
016856,002361: 41,3266           00003                           RELINT                                         #  SET UP EXTERNAL MONITOR BIT
016857,002362: 41,3267           00136                           TC       ENTRET                                
016858,002363: 
016859,002364: 
016860,002365: 41,3270           04412        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
016861,002366: 41,3271           11022                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
016862,002367: 41,3272           03276                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
016863,002368: 41,3273           03276                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
016864,002369: 41,3274           03307                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
016865,002370: 41,3275           03307                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
016866,002371: 41,3276           33313                           CAF      MONDEL                                
016867,002372: 41,3277           05252                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
016868,002373: 41,3300     1000                                  EBANK=   DSPCOUNT                              
016869,002374: 41,3300           03270 62102                     2CADR    MONREQ                                
016870,002375: 
016871,002376: 41,3302           34367                           CAF      CHRPRIO                               
016872,002377: 41,3303           05142                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
016873,002378: 41,3304     1000                                  EBANK=   DSPCOUNT                              
016874,002379: 41,3304           03314 62102                     2CADR    MONDO                                 
016875,002380: 
016876,002381: 41,3306           05321                           TC       TASKOVER                              
016877,002382: 
016878,002383: 41,3307           35030        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
016879,002384: 41,3310           55021                           TS       MONSAVE                               
016880,002385: 41,3311           55022                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
016881,002386: 41,3312           05321                           TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
016882,002387: 41,3313           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
016883,002388: 
016884,002389: 
016885,002390: 41,3314           11022        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
016886,002391: 41,3315           03321                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
016887,002392: 41,3316           03321                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
016888,002393: 41,3317           05225                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
016889,002394: 41,3320           05225                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
016890,002395: 41,3321           11013                           CCS      DSPLOCK                               
016891,002396: 41,3322           03344                           TC       MONBUSY                               #  NVSUB IS BUSY
016892,002397: 41,3323           36050                           CAF      LOW7                                  
016893,002398: 41,3324           71021                           MASK     MONSAVE                               
016894,002399: 41,3325           02317                           TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
016895,002400: 41,3326           34156                           CAF      MID7                                  
016896,002401: 41,3327           71021                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
016897,002402: 41,3330           63342                           AD       MONREF                                #  -DEC10, STARTING IN BIT8
016898,002403: 41,3331           54023                           TS       EDOP                                  #  RIGHT 7
016899,002404: 41,3332           30023                           CA       EDOP                                  
016900,002405: 41,3333           55002                           TS       VERBREG                               
016901,002406: 41,3334           33343                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
016902,002407: 41,3335           54136                           TS       ENTRET                                
016903,002408: 41,3336           43232                           CS       BIT15/14                              
016904,002409: 41,3337           71022                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
016905,002410: 41,3340           54156                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
016906,002411: 41,3341           02046        ENDMONDO           TC       TESTNN                                #  EBANK.
016907,002412: 

Sundance 292

016909,002414: 
016910,002415:    4136                                           BLOCK    2                                     
016911,002416: 
016912,002417:    4000                                           SETLOC   FFTAG8                                
016913,002418:    4000                                           BANK                                           
016914,002419: 
016915,002420:    4136                                           COUNT*   $$/PIN                                
016916,002421:    4136           34156        PASTEVB            CAF      MID7                                  
016917,002422:    4137           71023                           MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
016918,002423:    4140           00006                           EXTEND                                         
016919,002424:    4141           14143                           BZF      +2                                    
016920,002425:    4142           04144                           TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
016921,002426:    4143           31021                           CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
016922,002427:    4144           54023        PASTEOPT           TS       EDOP                                  #  RIGHT 7
016923,002428:    4145           30023                           CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
016924,002429:    4146           04655                           TC       BANKCALL                              #   VERBREG AND DISPLAY IT.
016925,002430:    4147           62337                           CADR     UPDATVB    -1                         
016926,002431:    4150           35030                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
016927,002432:    4151           55014                           TS       REQRET                                #   BE EXECUTED BY OPERATOR.
016928,002433:    4152           31023                           CA       MONSAVE2                              
016929,002434:    4153           04267                           TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
016930,002435:    4154           04155                           TC       +1                                    
016931,002436:    4155           05225        ENDPASTE           TC       ENDOFJOB                              
016932,002437: 
016933,002438:    4156           37600        MID7               OCT      37600                                 
016934,002439: 

Sundance 306

016936,002441: 
016937,002442: 41,3342                                           SETLOC   ENDMONDO   +1                         
016938,002443: 41,3342                                           COUNT*   $$/PIN                                
016939,002444: 41,3342           75377        MONREF             OCT      75377                                 #  -DEC10, STARTING IN BIT8
016940,002445: 41,3343           04136        MONBACK            ADRES    PASTEVB                               
016941,002446: 
016942,002447: 41,3344           04406        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
016943,002448: 41,3345           05225                           TC       ENDOFJOB                              
016944,002449:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
016945,002450:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
016946,002451:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
016947,002452: 
016948,002453:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.
016949,002454: 
016950,002455:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
016951,002456:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
016952,002457:                                                                                                  #           V23N26 SHOULD BE USED.
016953,002458: 
016954,002459:                                                                                                  #  SUMMARY
016955,002460:                                                                                                  #  FOR BANKS L/E 27,                          V27N01E(FCADR)E
016956,002461:                                                                                                  #  FOR BANKS G/E 30,    V23N26E(SUPERBITS)E   V27N01E(FCADR)E
016957,002462: 
016958,002463: 41,3346           34331        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
016959,002464: 41,3347           55000                           TS       DSPCOUNT                              
016960,002465: 41,3350           31050                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
016961,002466: 41,3351           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
016962,002467: 41,3352           31020                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
016963,002468: 41,3353           04714                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
016964,002469: 41,3354           03356                           TC       DSPOCTWD                              
016965,002470: 41,3355           05225        ENDSPF             TC       ENDOFJOB                              
016966,002471: 
016967,002472:                                                                                                  #  WORD DISPLAY ROUTINES
016968,002473: 
016969,002474: 40,3313                                           SETLOC   TESTOFUF   +4                         
016970,002475: 40,3313                                           COUNT*   $$/PIN                                
016971,002476: 40,3313           56002        DSPSIGN            XCH      Q                                     
016972,002477: 40,3314           54144                           TS       DSPWDRET                              
016973,002478: 40,3315           10154                           CCS      MPAC                                  
016974,002479: 40,3316           03326                           TC       +8D                                   
016975,002480: 40,3317           03326                           TC       +7                                    
016976,002481: 40,3320           65026                           AD       ONE                                   
016977,002482: 40,3321           54154                           TS       MPAC                                  
016978,002483: 40,3322           02546                           TC       -ON                                   
016979,002484: 40,3323           40155                           CS       MPAC       +1                         
016980,002485: 40,3324           54155                           TS       MPAC       +1                         
016981,002486: 40,3325           00144                           TC       DSPWDRET                              
016982,002487: 40,3326           02526                           TC       +ON                                   
016983,002488: 40,3327           00144                           TC       DSPWDRET                              
016984,002489: 
016985,002490: 40,3330           00006        DSPRND             EXTEND                                         #  ROUND BY 5 EXP-6
016986,002491: 40,3331           33374                           DCA      DECROUND   -1                         
016987,002492: 40,3332           20155                           DAS      MPAC                                  
016988,002493: 40,3333           00006                           EXTEND                                         
016989,002494: 40,3334           13340                           BZF      +4                                    
016990,002495: 40,3335           00006                           EXTEND                                         
016991,002496: 40,3336           35006                           DCA      DPOSMAX                               
016992,002497: 40,3337           52155                           DXCH     MPAC                                  
016993,002498: 40,3340           00002                           TC       Q                                     
016994,002499: 
016995,002500:                                                                                                  #  DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
016996,002501:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
016997,002502: 
016998,002503: 40,3341           56002        DSPDECWD           XCH      Q                                     
016999,002504: 40,3342           54115                           TS       WDRET                                 
017000,002505: 40,3343           03313                           TC       DSPSIGN                               
017001,002506: 40,3344           03330                           TC       DSPRND                                
017002,002507: 40,3345           35024                           CAF      FOUR                                  
017003,002508: 40,3346           54137        DSPDCWD1           TS       WDCNT                                 
017004,002509: 40,3347           34375                           CAF      BINCON                                
017005,002510: 40,3350           07261                           TC       SHORTMP                               
017006,002511: 40,3351           50154        TRACE1             INDEX    MPAC                                  
017007,002512: 40,3352           34072                           CAF      RELTAB                                
017008,002513: 40,3353           74360                           MASK     LOW5                                  
017009,002514: 40,3354           54124                           TS       CODE                                  
017010,002515: 40,3355           35030                           CAF      ZERO                                  
017011,002516: 40,3356           56156                           XCH      MPAC       +2                         
017012,002517: 40,3357           56155                           XCH      MPAC       +1                         
017013,002518: 40,3360           54154                           TS       MPAC                                  
017014,002519: 40,3361           57000                           XCH      DSPCOUNT                              
017015,002520: 40,3362           54143        TRACE1S            TS       COUNT                                 
017016,002521: 40,3363           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
017017,002522: 40,3364           55000                           TS       DSPCOUNT                              
017018,002523: 40,3365           03435                           TC       DSPIN                                 
017019,002524: 40,3366           10137                           CCS      WDCNT                                 
017020,002525: 40,3367           03346                           TC       DSPDCWD1                              
017021,002526: 40,3370           44372                           CS       VD1                                   
017022,002527: 40,3371           55000                           TS       DSPCOUNT                              
017023,002528: 40,3372           00115                           TC       WDRET                                 
017024,002529: 
017025,002530: 40,3373           00000                           OCT      00000                                 
017026,002531: 40,3374           02476        DECROUND           OCT      02476                                 
017027,002532: 
017028,002533:                                                                                                  #  DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
017029,002534:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
017030,002535: 
017031,002536: 40,3375           56002        DSPDECNR           XCH      Q                                     
017032,002537: 40,3376           54115                           TS       WDRET                                 
017033,002538: 40,3377           03313                           TC       DSPSIGN                               
017034,002539: 40,3400           03345                           TC       DSPDCWD1   -1                         
017035,002540: 
017036,002541:                                                                                                  #  DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
017037,002542:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
017038,002543: 
017039,002544: 40,3401           56002        DSPDC2NR           XCH      Q                                     
017040,002545: 40,3402           54115                           TS       WDRET                                 
017041,002546: 40,3403           03313                           TC       DSPSIGN                               
017042,002547: 40,3404           35026                           CAF      ONE                                   
017043,002548: 40,3405           03346                           TC       DSPDCWD1                              
017044,002549: 
017045,002550: 
017046,002551:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
017047,002552:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
017048,002553: 
017049,002554: 40,3406           56002        DSP2DEC            XCH      Q                                     
017050,002555: 40,3407           54115                           TS       WDRET                                 
017051,002556: 40,3410           35030                           CAF      ZERO                                  
017052,002557: 40,3411           54124                           TS       CODE                                  
017053,002558: 40,3412           36221                           CAF      THREE                                 
017054,002559: 40,3413           03517                           TC       11DSPIN                               #  -R2 OFF
017055,002560: 40,3414           35024                           CAF      FOUR                                  
017056,002561: 40,3415           03517                           TC       11DSPIN                               #  +R2 OFF
017057,002562: 40,3416           03313                           TC       DSPSIGN                               
017058,002563: 40,3417           34332                           CAF      R2D1                                  
017059,002564: 40,3420           03346        END2DEC            TC       DSPDCWD1                              
017060,002565: 
017061,002566: 
017062,002567:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
017063,002568:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
017064,002569:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
017065,002570:                                                                                                  #  DISPLAY CONVERSION.
017066,002571: 
017067,002572: 40,3421           00006        DSPDECVN           EXTEND                                         
017068,002573: 40,3422           73431                           MP       VNDSPCON                              #  MULT BY .01
017069,002574: 40,3423           22154                           LXCH     MPAC                                  #  TAKE RESULTS FROM L.(MULT BY 2EXP14).
017070,002575: 40,3424           35030                           CAF      ZERO                                  
017071,002576: 40,3425           54155                           TS       MPAC       +1                         
017072,002577: 40,3426           56002                           XCH      Q                                     
017073,002578: 40,3427           54115                           TS       WDRET                                 
017074,002579: 40,3430           03404                           TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
017075,002580: 
017076,002581: 40,3431           00244        VNDSPCON           OCT      00244                                 #  .01 ROUNDED UP
017077,002582: 
017078,002583: 
017079,002584: 40,3432           03421        GOVNUPDT           TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE. REALLY PART
017080,002585: 40,3433           04674                           TC       POSTJUMP                              #  OF UPDATVB.
017081,002586: 40,3434           62347                           CADR     UPDAT1     +2                         
017082,002587: 
017083,002588: 40,3435                        ENDECVN            EQUALS                                         
017084,002589: 
017085,002590: 
017086,002591: 41,3356                                           SETLOC   ENDSPF     +1                         
017087,002592: 41,3356                                           COUNT*   $$/PIN                                
017088,002593:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
017089,002594:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
017090,002595: 
017091,002596: 41,3356           54022        DSPOCTWD           TS       CYL                                   
017092,002597: 41,3357           56002                           XCH      Q                                     
017093,002598: 41,3360           54115                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
017094,002599: 41,3361           35011                           CAF      BIT14                                 #  TO BLANK SIGNS
017095,002600: 41,3362           27000                           ADS      DSPCOUNT                              
017096,002601: 41,3363           35024                           CAF      FOUR                                  
017097,002602: 41,3364           54137        WDAGAIN            TS       WDCNT                                 
017098,002603: 41,3365           40022                           CS       CYL                                   
017099,002604: 41,3366           40022                           CS       CYL                                   
017100,002605: 41,3367           40022                           CS       CYL                                   
017101,002606: 41,3370           40000                           CS       A                                     
017102,002607: 41,3371           75032                           MASK     DSPMSK                                
017103,002608: 41,3372           50000                           INDEX    A                                     
017104,002609: 41,3373           34072                           CAF      RELTAB                                
017105,002610: 41,3374           74360                           MASK     LOW5                                  
017106,002611: 41,3375           54124                           TS       CODE                                  
017107,002612: 41,3376           57000                           XCH      DSPCOUNT                              
017108,002613: 41,3377           54143                           TS       COUNT                                 
017109,002614: 41,3400           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
017110,002615: 41,3401           55000                           TS       DSPCOUNT                              
017111,002616: 41,3402           04674                           TC       POSTJUMP                              
017112,002617: 41,3403           61525                           CADR     DSPOCTIN                              
017113,002618: 41,3404           10137        OCTBACK            CCS      WDCNT                                 
017114,002619: 41,3405           03364                           TC       WDAGAIN                               #  +
017115,002620: 41,3406           44372        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
017116,002621: 41,3407           55000                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
017117,002622: 41,3410           00115                           TC       WDRET                                 
017118,002623: 
017119,002624: 41,3411     5032               DSPMSK             =        SEVEN                                 
017120,002625: 
017121,002626: 
017122,002627:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
017123,002628:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
017124,002629:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
017125,002630: 
017126,002631: 41,3411           54020        DSP2BIT            TS       CYR                                   
017127,002632: 41,3412           56002                           XCH      Q                                     
017128,002633: 41,3413           54115                           TS       WDRET                                 
017129,002634: 41,3414           35026                           CAF      ONE                                   
017130,002635: 41,3415           54137                           TS       WDCNT                                 
017131,002636: 41,3416           40020                           CS       CYR                                   
017132,002637: 41,3417           40020                           CS       CYR                                   
017133,002638: 41,3420           56020                           XCH      CYR                                   
017134,002639: 41,3421           54022                           TS       CYL                                   
017135,002640: 41,3422           03371                           TC       WDAGAIN    +5                         
017136,002641: 
017137,002642: 
017138,002643:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
017139,002644:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
017140,002645:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
017141,002646:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
017142,002647: 
017143,002648: 40,3435                                           SETLOC   ENDECVN                               
017144,002649: 
017145,002650: 40,3435                                           COUNT*   $$/PIN                                
017146,002651: 40,3435           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
017147,002652: 40,3436           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
017148,002653: 40,3437           34360                           CAF      LOW5                                  
017149,002654: 40,3440           70143                           MASK     COUNT                                 
017150,002655: 40,3441           54021                           TS       SR                                    
017151,002656: 40,3442           56021                           XCH      SR                                    
017152,002657: 40,3443           54141                           TS       DSREL                                 
017153,002658: 40,3444           35026                           CAF      BIT1                                  
017154,002659: 40,3445           70143                           MASK     COUNT                                 
017155,002660: 40,3446           10000                           CCS      A                                     
017156,002661: 40,3447           03451                           TC       +2                                    #  LEFT IF COUNT IS ODD
017157,002662: 40,3450           03461                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
017158,002663: 40,3451           56124                           XCH      CODE                                  
017159,002664: 40,3452           04352                           TC       SLEFT5                                #  DOES NOT USE CYL
017160,002665: 40,3453           54124                           TS       CODE                                  
017161,002666: 40,3454           35011                           CAF      BIT14                                 
017162,002667: 40,3455           70143                           MASK     COUNT                                 
017163,002668: 40,3456           10000                           CCS      A                                     
017164,002669: 40,3457           35025                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
017165,002670: 40,3460           65026                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
017166,002671: 40,3461           54143                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
017167,002672:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
017168,002673:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
017169,002674: 40,3462           00004        DSPIN1             INHINT                                         
017170,002675: 40,3463           50141                           INDEX    DSREL                                 
017171,002676: 40,3464           11024                           CCS      DSPTAB                                
017172,002677: 40,3465           03467                           TC       +2                                    #  IF +
017173,002678: 40,3466           05723                           TC       CCSHOLE                               
017174,002679: 40,3467           65026                           AD       ONE                                   #  IF -
017175,002680: 40,3470           54142                           TS       DSMAG                                 
017176,002681: 40,3471           50143                           INDEX    COUNT                                 
017177,002682: 40,3472           73513                           MASK     DSMSK                                 
017178,002683: 40,3473           00006                           EXTEND                                         
017179,002684: 40,3474           60124                           SU       CODE                                  
017180,002685: 40,3475           00006                           EXTEND                                         
017181,002686: 40,3476           13511                           BZF      DSLV                                  #  SAME
017182,002687: 40,3477           50143        DFRNT              INDEX    COUNT                                 
017183,002688: 40,3500           43513                           CS       DSMSK                                 #  MASK WITH 77740,76037,75777, OR 74037
017184,002689: 40,3501           70142                           MASK     DSMAG                                 
017185,002690: 40,3502           60124                           AD       CODE                                  
017186,002691: 40,3503           40000                           CS       A                                     
017187,002692: 40,3504           50141                           INDEX    DSREL                                 
017188,002693: 40,3505           57024                           XCH      DSPTAB                                
017189,002694: 40,3506           00006                           EXTEND                                         
017190,002695: 40,3507           63511                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
017191,002696: 40,3510           25017                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
017192,002697: 40,3511           00003        DSLV               RELINT                                         
017193,002698: 40,3512           00114                           TC       DSEXIT                                
017194,002699: 
017195,002700: 40,3513           00037        DSMSK              OCT      37                                    
017196,002701: 40,3514           01740                           OCT      1740                                  
017197,002702: 40,3515           02000                           OCT      2000                                  
017198,002703: 40,3516           03740                           OCT      3740                                  
017199,002704: 
017200,002705: 
017201,002706:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
017202,002707:                                                                                                  #  BIT11 OF CODE.
017203,002708: 
017204,002709: 40,3517           54141        11DSPIN            TS       DSREL                                 
017205,002710: 40,3520           35025                           CAF      TWO                                   
017206,002711: 40,3521           54143                           TS       COUNT                                 
017207,002712: 40,3522           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
017208,002713: 40,3523           54114                           TS       DSEXIT                                
017209,002714: 40,3524           03462                           TC       DSPIN1                                
017210,002715: 
017211,002716: 
017212,002717: 40,3525           03435        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
017213,002718: 40,3526           33530                           CAF      +2                                    
017214,002719: 40,3527           04677                           TC       BANKJUMP                              
017215,002720: 40,3530           63404        ENDSPOCT           CADR     OCTBACK                               
017216,002721: 
017217,002722:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
017218,002723:                                                                                                  #  ABORT WITH 01501.
017219,002724:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
017220,002725:                                                                                                  #  DO TC ENTRET.
017221,002726: 
017222,002727: 40,3531           44372        PREDSPAL           CS       VD1                                   
017223,002728: 40,3532           55000                           TS       DSPCOUNT                              
017224,002729: 40,3533           43543        DSPALARM           CS       NVSBENDL                              
017225,002730: 40,3534           60136                           AD       ENTEXIT                               
017226,002731: 40,3535           00006                           EXTEND                                         
017227,002732: 40,3536           13541                           BZF      CHARALRM   +2                         
017228,002733: 40,3537           04376        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
017229,002734: 40,3540           05225                           TC       ENDOFJOB                              
017230,002735: 40,3541           05713                           TC       ABORT                                 
017231,002736: 40,3542           01501                           OCT      01501                                 
017232,002737: 40,3543           04214        NVSBENDL           TC       NVSUBEND                              
017233,002738: 

Sundance 292

017235,002740: 
017236,002741:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
017237,002742:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
017238,002743:                                                                                                  #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
017239,002744:                                                                                                  #  MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
017240,002745:                                                                                                  #  FOR MM CODE.
017241,002746: 
017242,002747:    4157                                           SETLOC   MID7       +1                         
017243,002748:    4157                                           COUNT*   $$/PIN                                
017244,002749:    4157           04376        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
017245,002750:    4160           41042                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
017246,002751:    4161           55014                           TS       REQRET                                #  SET FOR ENTPAS0
017247,002752:    4162           04655                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
017248,002753:    4163           62337                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
017249,002754:    4164           04674                           TC       POSTJUMP                              
017250,002755:    4165           62002        ENDALM             CADR     ENTER                                 
017251,002756: 

Sundance 306

017253,002758: 
017254,002759:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
017255,002760:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
017256,002761:                                                                                                  #  MM LIGHTS.
017257,002762:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
017258,002763:                                                                                                  #  IF NOT, IT RECYCLES.
017259,002764: 
017260,002765: 41,3423                                           SETLOC   DSP2BIT    +10D                       
017261,002766: 
017262,002767: 41,3423                                           COUNT*   $$/PIN                                
017263,002768: 41,3423           03445        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
017264,002769:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
017265,002770:                                                                                                  #  MMADREF AT ENTPASHI.
017266,002771: 41,3424           35022                           CAF      BIT5                                  #  OCT20 = ND2.
017267,002772: 41,3425           61000                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
017268,002773: 41,3426           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
017269,002774: 41,3427           13431                           BZF      +2                                    
017270,002775: 41,3430           04157                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
017271,002776: 41,3431           35030                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
017272,002777: 41,3432           57003                           XCH      NOUNREG                               
017273,002778: 41,3433           54154                           TS       MPAC                                  
017274,002779: 41,3434           34373                           CAF      ND1                                   
017275,002780: 41,3435           55000                           TS       DSPCOUNT                              
017276,002781: 41,3436           04655                           TC       BANKCALL                              
017277,002782: 41,3437           60714                           CADR     2BLANK                                
017278,002783: 41,3440           44372                           CS       VD1                                   #  BLOCK NUM CHAR IN
017279,002784: 41,3441           55000                           TS       DSPCOUNT                              
017280,002785: 41,3442           30154                           CA       MPAC                                  
017281,002786: 41,3443           04674                           TC       POSTJUMP                              
017282,002787: 41,3444           10007                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
017283,002788: 
017284,002789: 
017285,002790: 41,3445  04,2007               MODROUTB           =        V37                                   
017286,002791: 41,3445           40002        REQMM              CS       Q                                     
017287,002792: 41,3446           55014                           TS       REQRET                                
017288,002793: 41,3447           34373                           CAF      ND1                                   
017289,002794: 41,3450           55000                           TS       DSPCOUNT                              
017290,002795: 41,3451           35030                           CAF      ZERO                                  
017291,002796: 41,3452           55003                           TS       NOUNREG                               
017292,002797: 41,3453           04655                           TC       BANKCALL                              
017293,002798: 41,3454           60714                           CADR     2BLANK                                
017294,002799: 41,3455           04441                           TC       FLASHON                               
017295,002800: 41,3456           35026                           CAF      ONE                                   
017296,002801: 41,3457           55001                           TS       DECBRNCH                              #  SET FOR DEC
017297,002802: 41,3460           00136                           TC       ENTEXIT                               
017298,002803: 
017299,002804: 
017300,002805:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
017301,002806:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
017302,002807:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
017303,002808:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
017304,002809:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
017305,002810:                                                                                                  #  COMPONENT 3  BBCON
017306,002811: 
017307,002812: 41,3461           35026        VBRQEXEC           CAF      BIT1                                  
017308,002813: 41,3462           71046                           MASK     DSPTEM1                               
017309,002814: 41,3463           10000                           CCS      A                                     
017310,002815: 41,3464           03503                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
017311,002816: 41,3465           34363                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
017312,002817: 41,3466           54154        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
017313,002818: 41,3467           45026                           CS       BIT1                                  
017314,002819: 41,3470           71046                           MASK     DSPTEM1                               
017315,002820: 41,3471           54160                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
017316,002821: 41,3472           04471        REQUESTC           TC       RELDSP                                
017317,002822: 41,3473           34231                           CA       ENDINST                               
017318,002823: 41,3474           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
017319,002824: 41,3475           00006                           EXTEND                                         
017320,002825: 41,3476           31050                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
017321,002826: 41,3477           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
017322,002827: 41,3500           30160                           CA       MPAC       +4                         #  PRIO IN A
017323,002828: 41,3501           00004                           INHINT                                         
017324,002829: 41,3502           00154                           TC       MPAC                                  
017325,002830: 
017326,002831: 41,3503           34366        SETVAC             CAF      TCFINDVC                              
017327,002832: 41,3504           03466                           TC       REQEX1                                
017328,002833: 
017329,002834:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
017330,002835:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
017331,002836:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
017332,002837:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
017333,002838:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
017334,002839:                                                                                                  #  COMPONENT 3  BBCON
017335,002840: 
017336,002841: 41,3505           34364        VBRQWAIT           CAF      TCWAIT                                
017337,002842: 41,3506           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
017338,002843: 41,3507           31046                           CA       DSPTEM1                               #  TIME DELAY
017339,002844: 41,3510           03471        ENDRQWT            TC       REQUESTC   -1                         
017340,002845: 
017341,002846:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
017342,002847:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
017343,002848:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
017344,002849: 
017345,002850: 40,3544                                           SETLOC   NVSBENDL   +1                         
017346,002851: 40,3544                                           COUNT*   $$/PIN                                
017347,002852: 40,3544           35026        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
017348,002853: 40,3545           55015                           TS       LOADSTAT                              
017349,002854: 40,3546           04216                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
017350,002855: 40,3547           04471                           TC       RELDSP                                
017351,002856: 40,3550           04445                           TC       FLASHOFF                              
017352,002857: 40,3551           03651                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
017353,002858: 
017354,002859: 
017355,002860: 40,3552           45026        VBTERM             CS       ONE                                   
017356,002861: 40,3553           03545                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
017357,002862: 
017358,002863:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC.  IT MUST BE CALLED UNDER
017359,002864:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
017360,002865: 
017361,002866: 40,3554           35030        PROCKEY            CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
017362,002867: 40,3555           55014                           TS       REQRET                                
017363,002868: 40,3556           44372                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
017364,002869: 40,3557           55000                           TS       DSPCOUNT                              
017365,002870: 40,3560           03544                           TC       VBPROC                                
017366,002871: 
017367,002872: 
017368,002873:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
017369,002874:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
017370,002875:                                                                                                  #   DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
017371,002876:                                                                                                  #   OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
017372,002877: 
017373,002878: 40,3561           45030        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
017374,002879: 40,3562           03545                           TC       VBPROC     +1                         
017375,002880: 
017376,002881: 
017377,002882:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
017378,002883:                                                                                                  #  END OF LOAD.
017379,002884: 
017380,002885:                                                                                                  #  KEY RELEASE ROUTINE
017381,002886: 
017382,002887:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
017383,002888: 
017384,002889:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
017385,002890:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
017386,002891:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
017387,002892:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
017388,002893: 
017389,002894:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
017390,002895:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
017391,002896:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
017392,002897: 
017393,002898:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
017394,002899:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
017395,002900:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
017396,002901:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
017397,002902:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
017398,002903:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
017399,002904:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
017400,002905:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
017401,002906:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST.  THIS WORKS ONLY FOR
017402,002907:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
017403,002908:                                                                                                  #  SUBROUTINES.
017404,002909: 
017405,002910: 40,3563           45024        VBRELDSP           CS       BIT3                                  
017406,002911: 40,3564           00006                           EXTEND                                         
017407,002912: 40,3565           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
017408,002913: 40,3566           10115                           CCS      21/22REG                              #  OLD DSPLOCK
017409,002914: 40,3567           35011                           CAF      BIT14                                 
017410,002915: 40,3570           71022                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
017411,002916: 40,3571           10000                           CCS      A                                     
017412,002917: 40,3572           03601                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
017413,002918: 40,3573           04471        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
017414,002919: 40,3574           11043                           CCS      CADRSTOR                              #   RELEASE DISPLAY SYSTEM AND
017415,002920: 40,3575           03577                           TC       +2                                    #   DO RE-ESTABLISH IF CADRSTOR IS FULL.
017416,002921: 40,3576           05225                           TC       ENDOFJOB                              
017417,002922: 40,3577           04674                           TC       POSTJUMP                              
017418,002923: 40,3600           20746                           CADR     PINBRNCH                              
017419,002924: 40,3601           35030        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
017420,002925: 40,3602           55013                           TS       DSPLOCK                               #   JUST UNSUSPEND IT BY CLEARING DSPLOCK.
017421,002926: 40,3603           11043                           CCS      CADRSTOR                              #   TURN KEY RELEASE LIGHT OFF IF BOTH
017422,002927: 40,3604           05225                           TC       ENDOFJOB                              #   CADRSTOR AND DSPLIST ARE EMPTY.
017423,002928: 40,3605           04514                           TC       RELDSP1                               
017424,002929: 40,3606           05225                           TC       ENDOFJOB                              
017425,002930: 
017426,002931: 40,3607                        ENDRELDS           EQUALS                                         
017427,002932: 

Sundance 292

017429,002934: 
017430,002935:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
017431,002936:                                                                                                  #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
017432,002937:                                                                                                  #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
017433,002938:                                                                                                  #  PLACE 0VVVVVVVNNNNNNN INTO A.
017434,002939:                                                                                                  #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
017435,002940: 
017436,002941:                                                                                                  #  IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
017437,002942:                                                                                                  #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
017438,002943:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
017439,002944: 
017440,002945:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
017441,002946:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
017442,002947: 
017443,002948:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
017444,002949:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
017445,002950:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
017446,002951:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
017447,002952:                                                                                                  #  FURTHER ACTION).
017448,002953: 
017449,002954:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
017450,002955:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
017451,002956:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
017452,002957:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
017453,002958: 
017454,002959:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
017455,002960:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET
017456,002961:                                                                                                  #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
017457,002962:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
017458,002963:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
017459,002964:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
017460,002965:                                                                                                  #  MONITOR SET UP.
017461,002966: 
017462,002967:                                                                                                  #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
017463,002968:                                                                                                  #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
017464,002969: 
017465,002970:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
017466,002971:                                                                                                  #  MONITOR.
017467,002972: 
017468,002973:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
017469,002974:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
017470,002975: 
017471,002976:                                                                                                  #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
017472,002977:                                                                                                  #  (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
017473,002978:                                                                                                  #  ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
017474,002979:                                                                                                  #  :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
017475,002980:                                                                                                  #  NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
017476,002981:                                                                                                  #  LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
017477,002982:                                                                                                  #  LIGHTS.
017478,002983: 
017479,002984:                                                                                                  #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL
017480,002985:                                                                                                  #  PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
017481,002986:                                                                                                  #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
017482,002987:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
017483,002988:                                                                                                  #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
017484,002989:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
017485,002990:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
017486,002991:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
017487,002992:                                                                                                  #  BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
017488,002993:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
017489,002994: 
017490,002995:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
017491,002996:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
017492,002997: 
017493,002998:    4166                                           SETLOC   ENDALM     +1                         
017494,002999: 
017495,003000:    4166                                           COUNT*   $$/PIN                                
017496,003001:    4166           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
017497,003002:    4167           54123        NVMONOPT           TS       NVTEMP                                
017498,003003:    4170           35011                           CAF      BIT14                                 
017499,003004:    4171           71022                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
017500,003005:    4172           61013                           AD       DSPLOCK                               
017501,003006:    4173           10000                           CCS      A                                     
017502,003007:    4174           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
017503,003008:    4175           35026                           CAF      ONE                                   #  DSP SYST AVAILABLE
017504,003009:    4176           60002        NVSBCOM            AD       Q                                     
017505,003010:    4177           55040                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
017506,003011:    4200           23023                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
017507,003012:    4201           04216                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
017508,003013:    4202           34213        NVSUBCOM           CAF      NVSBBBNK                              
017509,003014: 
017510,003015:    4203           56006                           XCH      BBANK                                 
017511,003016:    4204           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
017512,003017:    4205           04007                           ROR      SUPERBNK                              
017513,003018:    4206           55041                           TS       NVBNKTEM                              
017514,003019:    4207           34213                           CAF      PINSUPBT                              
017515,003020:    4210           00006                           EXTEND                                         
017516,003021:    4211           01007                           WRITE    SUPERBNK                              
017517,003022:    4212           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
017518,003023:    4213     1000                                  EBANK=   DSPCOUNT                              
017519,003024:    4213           62102        NVSBBBNK           BBCON    NVSUB1                                
017520,003025: 
017521,003026:    4214     4213               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
017522,003027: 
017523,003028:    4214           53041        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
017524,003029:    4215           05235                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
017525,003030: 

Sundance 306

017527,003032: 
017528,003033: 41,3511                                           SETLOC   ENDRQWT    +1                         
017529,003034: 
017530,003035: 41,3511                                           COUNT*   $$/PIN                                
017531,003036:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
017532,003037:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
017533,003038: 
017534,003039: 41,3511           65032        BLANKDSP           AD       SEVEN                                 #  7,8,9,OR 10 (A HAD 0,1,2,OR 3)
017535,003040: 41,3512           00004                           INHINT                                         
017536,003041: 41,3513           54124                           TS       CODE                                  #  BLANK SPECIFIED DSPTABS
017537,003042: 41,3514           45013                           CS       BIT12                                 
017538,003043: 41,3515           50124                           INDEX    CODE                                  
017539,003044: 41,3516           57024                           XCH      DSPTAB                                
017540,003045: 41,3517           10000                           CCS      A                                     
017541,003046: 41,3520           25017                           INCR     NOUT                                  
017542,003047: 41,3521           03522                           TC       +1                                    
017543,003048: 41,3522           10124                           CCS      CODE                                  
017544,003049: 41,3523           03513                           TC       BLANKDSP   +2                         
017545,003050: 41,3524           00003                           RELINT                                         
017546,003051: 41,3525           50123                           INDEX    NVTEMP                                
017547,003052: 41,3526           03533                           TC       +5                                    
017548,003053: 41,3527           03530                           TC       +1                                    #  NVTEMP HAS -4 (NEVER TOUCH MODREG)
017549,003054: 41,3530           55002                           TS       VERBREG                               #             -3
017550,003055: 41,3531           55003                           TS       NOUNREG                               #             -2
017551,003056: 41,3532           55016                           TS       CLPASS                                #             -1
017552,003057: 41,3533           44372                           CS       VD1                                   
017553,003058: 41,3534           55000                           TS       DSPCOUNT                              
017554,003059: 41,3535           04445                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
017555,003060: 41,3536           03561                           TC       ENTSET     -2                         #  ZEROS REQRET
017556,003061: 
017557,003062: 41,3537           33563        NVSUB1             CAF      ENTSET                                #  IN BANK
017558,003063: 41,3540           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
017559,003064: 41,3541           10123                           CCS      NVTEMP                                #  WHAT NOW
017560,003065: 41,3542           03546                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
017561,003066: 41,3543           02351                           TC       GODSPALM                              
017562,003067: 41,3544           03511                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
017563,003068: 41,3545           02351                           TC       GODSPALM                              
017564,003069: 41,3546           36050                           CAF      LOW7                                  
017565,003070: 41,3547           70123                           MASK     NVTEMP                                
017566,003071: 41,3550           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
017567,003072: 41,3551           30123                           CA       NVTEMP                                #                  USES MPAC, +1, +2
017568,003073: 41,3552           54023                           TS       EDOP                                  #  RIGHT 7
017569,003074: 41,3553           30023                           CA       EDOP                                  
017570,003075: 41,3554           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
017571,003076:                                                                                                  #                 USES MPAC, +1, +2).
017572,003077: 41,3555           10157                           CCS      MPAC       +3                         #  TEST NOUN
017573,003078: 41,3556           03564                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
017574,003079: 41,3557           30160                           CA       MPAC       +4                         
017575,003080: 41,3560           02337                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
017576,003081: 41,3561           35030                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
017577,003082: 41,3562           55014                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
017578,003083: 41,3563           04214        ENTSET             TC       NVSUBEND                              
017579,003084: 41,3564           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
017580,003085: 41,3565           03571                           TC       +4                                    #  IF VERB NOT +0, GO ON
017581,003086: 41,3566           30157                           CA       MPAC       +3                         
017582,003087: 41,3567           02317                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
017583,003088: 41,3570           04214                           TC       NVSUBEND                              
017584,003089: 41,3571           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
017585,003090: 41,3572           54161                           TS       MPAC       +5                         #               USES MPAC, +1, +2)
017586,003091: 41,3573           30160                           CA       MPAC       +4                         
017587,003092: 41,3574           02337                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
017588,003093: 41,3575           30157                           CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
017589,003094: 41,3576           02317                           TC       UPDATNN    -1                         
017590,003095: 41,3577           35030                           CAF      ZERO                                  
017591,003096: 41,3600           55015                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
017592,003097: 41,3601           55016                           TS       CLPASS                                
017593,003098: 41,3602           55014                           TS       REQRET                                #  SET REQRET FOR PASS 0.
017594,003099: 41,3603           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
017595,003100: 41,3604           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
017596,003101: 41,3605           02035        ENDNVSB1           TC       ENTPAS0                               
017597,003102: 

Sundance 292

017599,003104: 
017600,003105:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
017601,003106:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
017602,003107: 
017603,003108: 
017604,003109:    4216                                           SETLOC   NVSUBEND   +2                         
017605,003110:    4216                                           COUNT*   $$/PIN                                
017606,003111:                                                                                                  #  FORCE BIT 15 OF MONSAVE1 TO 1.
017607,003112:    4216           35010        KILMONON           CAF      BIT15                                 #     THIS IS THE KILL MONITOR BIT.
017608,003113:    4217           55022                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
017609,003114:                                                                                                  #   MONITOR BIT.
017610,003115:    4220           00002                           TC       Q                                     
017611,003116: 
017612,003117: 
017613,003118:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
017614,003119:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
017615,003120:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
017616,003121:                                                                                                  #           -0    DATA IN      SET BY END OF LOAD ROUTINE
017617,003122:                                                                                                  #              OR RESEQUENCE   SET BY VERB 32
017618,003123: 
017619,003124: 
017620,003125:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
017621,003126:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
017622,003127:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
017623,003128:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
017624,003129:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
017625,003130:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
017626,003131:                                                                                                  #  L+1      FOR TERMINATE
017627,003132:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
017628,003133:                                                                                                  #  L+3      FOR DATA IN, OR RESEQUENCE
017629,003134:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
017630,003135: 
017631,003136: 
017632,003137:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
017633,003138:                                                                                                  #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
017634,003139:                                                                                                  #  1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
017635,003140:                                                                                                  #  EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
017636,003141:                                                                                                  #  2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
017637,003142:                                                                                                  #  NVSUBUSY.
017638,003143: 
017639,003144:    4221           22002        ENDIDLE            LXCH     Q                                     #  RETURN ADDRESS INTO L.
017640,003145:    4222           04232                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
017641,003146:    4223           04236                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
017642,003147:    4224           30001                           CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
017643,003148:    4225           75062                           MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
017644,003149:    4226           60004                           AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
017645,003150:    4227           55043                           TS       CADRSTOR                              
017646,003151:    4230           05203                           TC       JOBSLEEP                              
017647,003152: 
017648,003153: 
017649,003154:    4231           05225        ENDINST            TC       ENDOFJOB                              
017650,003155: 
017651,003156: 
017652,003157:    4232           11043        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
017653,003158:    4233           04241                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
017654,003159:    4234           00002                           TC       Q                                     
017655,003160:    4235           04241                           TC       DSPABORT                              
017656,003161: 
017657,003162:    4236           11044        ISLIST+0           CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
017658,003163:    4237           04241                           TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
017659,003164:    4240           00002                           TC       Q                                     
017660,003165:    4241           05713        DSPABORT           TC       ABORT                                 
017661,003166:    4242           01206                           OCT      01206                                 
017662,003167: 
017663,003168: 
017664,003169:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
017665,003170:                                                                                                  #  IT DOES ENDOFJOB.
017666,003171: 
017667,003172:    4243           34213        JAMTERM            CAF      PINSUPBT                              
017668,003173:    4244           00006                           EXTEND                                         
017669,003174:    4245           01007                           WRITE    SUPERBNK                              
017670,003175:    4246           34254                           CAF      34DEC                                 
017671,003176:    4247           55014                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
017672,003177:    4250           44372                           CS       VD1                                   
017673,003178:    4251           55000                           TS       DSPCOUNT                              
017674,003179:    4252           04674                           TC       POSTJUMP                              
017675,003180:    4253           61552                           CADR     VBTERM                                
017676,003181: 
017677,003182:    4254           00042        34DEC              DEC      34         B-14                       
017678,003183: 
017679,003184: 
017680,003185:                                                                                                  #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
017681,003186:                                                                                                  #  FUNCTION. IT DOES ENDOFJOB.
017682,003187: 
017683,003188:    4255           34213        JAMPROC            CAF      PINSUPBT                              
017684,003189:    4256           00006                           EXTEND                                         
017685,003190:    4257           01007                           WRITE    SUPERBNK                              
017686,003191:    4260           34266                           CAF      33DEC                                 
017687,003192:    4261           55014                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
017688,003193:    4262           44372                           CS       VD1                                   
017689,003194:    4263           55000                           TS       DSPCOUNT                              
017690,003195:    4264           04674                           TC       POSTJUMP                              
017691,003196:    4265           61544                           CADR     VBPROC                                
017692,003197: 
017693,003198:    4266           00041        33DEC              DEC      33         B-14                       
017694,003199: 
017695,003200: 
017696,003201:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
017697,003202:                                                                                                  #  CALL WITH BLANKING CODE IN A.
017698,003203:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
017699,003204:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
017700,003205: 
017701,003206:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
017702,003207: 
017703,003208:    4267           75032        BLANKSUB           MASK     SEVEN                                 
017704,003209:    4270           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
017705,003210:    4271           35011                           CAF      BIT14                                 
017706,003211:    4272           71022                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
017707,003212:    4273           61013                           AD       DSPLOCK                               
017708,003213:    4274           10000                           CCS      A                                     
017709,003214:    4275           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
017710,003215:    4276           24002                           INCR     Q                                     #  DSP SYST AVAILABLE
017711,003216:                                                                                                  #  SET RETURN FOR 2+ CALLING LOC
017712,003217:    4277           10123                           CCS      NVTEMP                                
017713,003218:    4300           14302                           TCF      +2                                    
017714,003219:    4301           00002                           TC       Q                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
017715,003220:    4302           22002                           LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
017716,003221:    4303           34314                           CAF      BLNKBBNK                              
017717,003222:    4304           56006                           XCH      BBANK                                 
017718,003223:    4305           00006                           EXTEND                                         
017719,003224:    4306           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
017720,003225:    4307           52131                           DXCH     BUF                                   
017721,003226:    4310           34213                           CAF      PINSUPBT                              
017722,003227:    4311           00006                           EXTEND                                         
017723,003228:    4312           01007                           WRITE    SUPERBNK                              
017724,003229:    4313           03607                           TC       BLNKSUB1                              
017725,003230: 
017726,003231:    4314     1000                                  EBANK=   DSPCOUNT                              
017727,003232:    4314           60102        BLNKBBNK           BBCON    BLNKSUB1                              
017728,003233:    4315                        ENDBLFF            EQUALS                                         
017729,003234: 

Sundance 306

017731,003236: 
017732,003237: 40,3607                                           SETLOC   ENDRELDS                              
017733,003238: 40,3607                                           COUNT*   $$/PIN                                
017734,003239: 40,3607           31000        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION
017735,003240: 40,3610           54132                           TS       BUF        +2                         
017736,003241: 40,3611           35026                           CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
017737,003242: 40,3612           03631                           TC       TESTBIT                               
017738,003243: 40,3613           34331                           CAF      R1D1                                  
017739,003244: 40,3614           02650                           TC       5BLANK     -1                         
017740,003245: 40,3615           35025                           CAF      BIT2                                  #  TEST BIT 2. SEE IF R2 TO BE BLANKED.
017741,003246: 40,3616           03631                           TC       TESTBIT                               
017742,003247: 40,3617           34332                           CAF      R2D1                                  
017743,003248: 40,3620           02650                           TC       5BLANK     -1                         
017744,003249: 40,3621           35024                           CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
017745,003250: 40,3622           03631                           TC       TESTBIT                               
017746,003251: 40,3623           34333                           CAF      R3D1                                  
017747,003252: 40,3624           02650                           TC       5BLANK     -1                         
017748,003253: 40,3625           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
017749,003254: 40,3626           55000                           TS       DSPCOUNT                              #       BEFORE BLANKSUB.
017750,003255: 40,3627           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
017751,003256: 40,3630           05236                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
017752,003257: 
017753,003258: 40,3631           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
017754,003259: 40,3632           10000                           CCS      A                                     
017755,003260: 40,3633           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
017756,003261: 40,3634           50002                           INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
017757,003262: 40,3635           00002                           TC       2                                     
017758,003263: 
017759,003264: 40,3636                        ENDBSUB1           EQUALS                                         
017760,003265: 

Sundance 292

017762,003267: 
017763,003268:                                                                                                  #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
017764,003269:                                                                                                  #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
017765,003270: 
017766,003271:                                                                                                  #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
017767,003272: 
017768,003273:                                                                                                  #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
017769,003274: 
017770,003275: 07,2622                                           BANK     7                                     
017771,003276: 04,2000                                           SETLOC   PINBALL4                              
017772,003277: 04,2000                                           BANK                                           
017773,003278: 
017774,003279: 04,2510                                           COUNT*   $$/PIN                                
017775,003280: 04,2510           56002        DSPMM              XCH      Q                                     
017776,003281: 04,2511           54154                           TS       MPAC                                  
017777,003282: 04,2512           00004                           INHINT                                         
017778,003283: 04,2513           34367                           CAF      CHRPRIO                               
017779,003284: 04,2514           05142                           TC       NOVAC                                 
017780,003285: 04,2515     1000                                  EBANK=   DSPCOUNT                              
017781,003286: 04,2515           03636 60102                     2CADR    DSPMMJB                               
017782,003287: 
017783,003288: 04,2517           00003                           RELINT                                         
017784,003289: 04,2520           00154        ENDSPMM            TC       MPAC                                  
017785,003290: 

Sundance 306

017787,003292: 
017788,003293:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
017789,003294: 
017790,003295: 40,3636                                           SETLOC   ENDBSUB1                              
017791,003296: 
017792,003297: 40,3636                                           COUNT*   $$/PIN                                
017793,003298: 40,3636           34374        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
017794,003299: 40,3637           57000                           XCH      DSPCOUNT                              
017795,003300: 40,3640           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
017796,003301: 40,3641           11012                           CCS      MODREG                                
017797,003302: 40,3642           65026                           AD       ONE                                   
017798,003303: 40,3643           03421                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
017799,003304: 40,3644           03646                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
017800,003305: 40,3645           02714                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
017801,003306: 40,3646           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
017802,003307: 40,3647           55000                           TS       DSPCOUNT                              
017803,003308: 40,3650           05225                           TC       ENDOFJOB                              
017804,003309: 
017805,003310: 
017806,003311:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
017807,003312:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
017808,003313:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
017809,003314: 
017810,003315:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
017811,003316:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
017812,003317: 
017813,003318: 40,3651           11043        RECALTST           CCS      CADRSTOR                              
017814,003319: 40,3652           03654                           TC       RECAL1                                
017815,003320: 40,3653           05225                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
017816,003321: 40,3654           35030        RECAL1             CAF      ZERO                                  
017817,003322: 40,3655           57043                           XCH      CADRSTOR                              
017818,003323: 40,3656           00004                           INHINT                                         
017819,003324: 40,3657           05207                           TC       JOBWAKE                               
017820,003325: 40,3660           11015                           CCS      LOADSTAT                              
017821,003326: 40,3661           03703                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
017822,003327: 40,3662           05225                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
017823,003328: 40,3663           03701                           TC       DOTERM                                #  - TERMINATE
017824,003329: 40,3664           35025                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
017825,003330: 40,3665           50064        RECAL2             INDEX    LOCCTR                                
017826,003331: 40,3666           60164                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
017827,003332: 40,3667           50064                           INDEX    LOCCTR                                
017828,003333: 40,3670           54164                           TS       LOC                                   
017829,003334: 40,3671           31003                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
017830,003335: 40,3672           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
017831,003336: 40,3673           31002                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
017832,003337: 40,3674           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
017833,003338: 40,3675           52155                           DXCH     MPAC                                  
017834,003339: 40,3676           00003                           RELINT                                         
017835,003340: 40,3677           04471        RECAL3             TC       RELDSP                                
017836,003341: 40,3700           05225                           TC       ENDOFJOB                              
017837,003342: 
017838,003343: 40,3701           35030        DOTERM             CAF      ZERO                                  
017839,003344: 40,3702           03665                           TC       RECAL2                                
017840,003345: 
017841,003346: 40,3703           35026        DOPROC             CAF      ONE                                   
017842,003347: 40,3704           03665                           TC       RECAL2                                
017843,003348: 

Sundance 292

017845,003350: 
017846,003351:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
017847,003352: 
017848,003353: 
017849,003354:    4315                                           SETLOC   ENDBLFF                               
017850,003355: 
017851,003356:    4315                                           COUNT*   $$/PIN                                
017852,003357:                                                                                                  #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
017853,003358:                                                                                                  #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
017854,003359: 
017855,003360:    4315           55020        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
017856,003361:    4316           54003                           TS       EBANK                                 #  SET EBANK BITS
017857,003362:    4317           74371                           MASK     LOW8                                  
017858,003363:    4320           65057                           AD       OCT1400                               
017859,003364:    4321           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
017860,003365:    4322           00002                           TC       Q                                     
017861,003366: 
017862,003367: 
017863,003368:                                                                                                  #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
017864,003369:                                                                                                  #                 E ADRES AND PUTS IT INTO NOUNADD.
017865,003370: 
017866,003371:    4323           31020        SETNADD            CA       NOUNCADR                              
017867,003372:    4324           14316                           TCF      SETNCADR   +1                         
017868,003373: 
017869,003374: 
017870,003375:                                                                                                  #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
017871,003376:                                                                                                  #                 DERIVED AND LEFT IN A.
017872,003377: 
017873,003378:    4325           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
017874,003379:    4326           74371                           MASK     LOW8                                  
017875,003380:    4327           65057                           AD       OCT1400                               #  E ADRES LEFT IN A
017876,003381:    4330           00002                           TC       Q                                     
017877,003382: 
017878,003383: 
017879,003384:    4331           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017880,003385:    4332           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
017881,003386:    4333           00004        R3D1               OCT      4                                     
017882,003387: 
017883,003388:    4334           54020        RIGHT5             TS       CYR                                   
017884,003389:    4335           40020                           CS       CYR                                   
017885,003390:    4336           40020                           CS       CYR                                   
017886,003391:    4337           40020                           CS       CYR                                   
017887,003392:    4340           40020                           CS       CYR                                   
017888,003393:    4341           56020                           XCH      CYR                                   
017889,003394:    4342           00002                           TC       Q                                     
017890,003395: 
017891,003396:    4343           54022        LEFT5              TS       CYL                                   
017892,003397:    4344           40022                           CS       CYL                                   
017893,003398:    4345           40022                           CS       CYL                                   
017894,003399:    4346           40022                           CS       CYL                                   
017895,003400:    4347           40022                           CS       CYL                                   
017896,003401:    4350           56022                           XCH      CYL                                   
017897,003402:    4351           00002                           TC       Q                                     
017898,003403: 
017899,003404:    4352           60000        SLEFT5             DOUBLE                                         
017900,003405:    4353           60000                           DOUBLE                                         
017901,003406:    4354           60000                           DOUBLE                                         
017902,003407:    4355           60000                           DOUBLE                                         
017903,003408:    4356           60000                           DOUBLE                                         
017904,003409:    4357           00002                           TC       Q                                     
017905,003410: 
017906,003411: 
017907,003412:    4360           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017908,003413:    4361           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
017909,003414:    4362           76000        HI5                OCT      76000                                 #  MUST STAY HERE
017910,003415: 
017911,003416:    4363           05142        TCNOVAC            TC       NOVAC                                 
017912,003417:    4364           05252        TCWAIT             TC       WAITLIST                              
017913,003418:    4365           05321        TCTSKOVR           TC       TASKOVER                              
017914,003419:    4366           05155        TCFINDVC           TC       FINDVAC                               
017915,003420: 
017916,003421: 
017917,003422:    4367           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
017918,003423: 
017919,003424: 
017920,003425:    4370           03777        LOW11              OCT      3777                                  
017921,003426:    4371     4370               B12-1              EQUALS   LOW11                                 
017922,003427:    4371           00377        LOW8               OCT      377                                   
017923,003428: 
017924,003429: 
017925,003430:    4372           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
017926,003431:    4373           00021        ND1                OCT      21                                    #  DONT SEPARATE.
017927,003432:    4374           00025        MD1                OCT      25                                    
017928,003433: 
017929,003434:    4375           00012        BINCON             DEC      10         B-14                       
017930,003435: 
017931,003436:    4376           35020        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
017932,003437:    4377           00006                           EXTEND                                         
017933,003438:    4400           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
017934,003439:    4401           00002                           TC       Q                                     
017935,003440: 
017936,003441:    4402           45020        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
017937,003442:    4403           00006                           EXTEND                                         
017938,003443:    4404           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
017939,003444:    4405           00002                           TC       Q                                     
017940,003445: 
017941,003446:    4406           35022        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
017942,003447:    4407           00006                           EXTEND                                         
017943,003448:    4410           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
017944,003449:    4411           00002                           TC       Q                                     
017945,003450: 
017946,003451:    4412           00006        LODSAMPT           EXTEND                                         
017947,003452:    4413           30025                           DCA      TIME2                                 
017948,003453:    4414           52014                           DXCH     SAMPTIME                              
017949,003454:    4415           00002                           TC       Q                                     
017950,003455: 
017951,003456: 
017952,003457:    4416           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
017953,003458:    4417           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
017954,003459:    4420           20156                           DAS      MPAC       +1                         
017955,003460:    4421           60154                           AD       MPAC                                  
017956,003461:    4422           26154                           ADS      MPAC                                  
017957,003462:    4423           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
017958,003463:    4424           00002                           TC       Q                                     #  NO NET OF/UF
017959,003464:    4425           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/-1 FOR OF/UF
017960,003465:    4426           00002                           TC       Q                                     
017961,003466: 
017962,003467: 
017963,003468:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
017964,003469:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
017965,003470:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
017966,003471:                                                                                                  #  SETTING RESULT TO -0.
017967,003472:                                                                                                  #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
017968,003473:                                                                                                  #   WHEN THEY CONTAIN TH E SF CONSTANTS.)
017969,003474: 
017970,003475:    4427           54135        PRSHRTMP           TS       MPTEMP                                
017971,003476:    4430           10000                           CCS      A                                     
017972,003477:    4431           30135                           CA       MPTEMP                                #  C(A) +, DO REGULAR SHORTMP
017973,003478:    4432           17262                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
017974,003479:    4433           14431                           TCF      -2                                    #  C(A) -, DO REGULAR SHORTMP
017975,003480:    4434           45030                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
017976,003481:    4435           54154                           TS       MPAC                                  
017977,003482:    4436           54155                           TS       MPAC       +1                         
017978,003483:    4437           54156                           TS       MPAC       +2                         
017979,003484:    4440           00002                           TC       Q                                     
017980,003485: 
017981,003486: 
017982,003487:    4441           35021        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
017983,003488:    4442           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
017984,003489:    4443           05011                           WOR      DSALMOUT                              
017985,003490:    4444           00002                           TC       Q                                     
017986,003491: 
017987,003492: 
017988,003493:    4445           45021        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
017989,003494:    4446           00006                           EXTEND                                         
017990,003495:    4447           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
017991,003496:    4450           00002                           TC       Q                                     
017992,003497: 
017993,003498:                                                                                                  #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
017994,003499: 
017995,003500:                                                                                                  #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
017996,003501:                                                                                                  #  CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
017997,003502:                                                                                                  #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
017998,003503:                                                                                                  #  OFFERED.
017999,003504: 
018000,003505:                                                                                                  #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
018001,003506:                                                                                                  #  PROGRAM.    1) BY ENDIDLE
018002,003507:                                                                                                  #              2) BY NVSUBUSY
018003,003508:                                                                                                  #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
018004,003509:                                                                                                  #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
018005,003510:                                                                                                  #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
018006,003511:                                                                                                  #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
018007,003512: 
018008,003513: 
018009,003514:                                                                                                  #  THE CALLING SEQUENCE FOR NVSUB IS
018010,003515:                                                                                                  #           CAF    V/N
018011,003516:                                                                                                  #  L        TC     NVSUB
018012,003517:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
018013,003518:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
018014,003519: 
018015,003520: 
018016,003521:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
018017,003522:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
018018,003523:                                                                                                  #  SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
018019,003524:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
018020,003525:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
018021,003526: 
018022,003527: 
018023,003528:                                                                                                  #         THE CALLING SEQUENCE IS
018024,003529:                                                                                                  #           CAF    WAKEFCADR
018025,003530:                                                                                                  #           TC     NVSUBUSY
018026,003531: 
018027,003532: 
018028,003533:                                                                                                  #  .
018029,003534: 
018030,003535: 
018031,003536:                                                                                                  #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
018032,003537:                                                                                                  #  IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
018033,003538:                                                                                                  #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL 
018034,003539:                                                                                                  #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
018035,003540: 
018036,003541: 
018037,003542:                                                                                                  #  NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
018038,003543:                                                                                                  #  SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
018039,003544:                                                                                                  #  WHEN
018040,003545:                                                                                                  #  1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
018041,003546:                                                                                                  #     IS EXCEEDED.
018042,003547:                                                                                                  #  2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING
018043,003548:                                                                                                  #  ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
018044,003549: 
018045,003550:    4451           44456        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
018046,003551:    4452           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
018047,003552:    4453           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
018048,003553:    4454           04674        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
018049,003554:    4455           10521                           CADR     NVSUBSY1                              
018050,003555:    4456           02003        2K+3               OCT      2003                                  
018051,003556: 
018052,003557:                                                                                                  #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
018053,003558:                                                                                                  #  WITH HIS PROPER SUPERBITS.
018054,003559: 
018055,003560: 04,2521                                           SETLOC   ENDSPMM    +1                         
018056,003561: 04,2521                                           COUNT*   $$/PIN                                
018057,003562: 04,2521           54001        NVSUBSY1           TS       L                                     
018058,003563: 04,2522           04232                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
018059,003564: 04,2523           04236                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
018060,003565: 04,2524           04406                           TC       RELDSPON                              
018061,003566: 04,2525           30001                           CA       L                                     
018062,003567: 04,2526           55044                           TS       DSPLIST                               
018063,003568: 04,2527           05203        ENDNVBSY           TC       JOBSLEEP                              
018064,003569: 
018065,003570: 
018066,003571:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
018067,003572:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
018068,003573:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
018069,003574:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
018070,003575:                                                                                                  #  IS NOT BUSY.
018071,003576: 
018072,003577:    4457                                           SETLOC   NVSUBUSY   +3                         
018073,003578:    4457                                           COUNT*   $$/PIN                                
018074,003579:    4457           22007        NVSBWAIT           LXCH     7                                     #  ZERO NVMONOPT OPTIONS
018075,003580:    4460           54123                           TS       NVTEMP                                
018076,003581:    4461           35011                           CAF      BIT14                                 
018077,003582:    4462           71022                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
018078,003583:    4463           61013                           AD       DSPLOCK                               
018079,003584:    4464           10000                           CCS      A                                     
018080,003585:    4465           14467                           TCF      NVSBWT1                               #  BUSY
018081,003586:    4466           14176                           TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
018082,003587:                                                                                                  #  AFTER EXECUTION.
018083,003588:    4467           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
018084,003589:    4470           14451                           TCF      PRENVBSY                              #  GO TO SLEEP.
018085,003590: 
018086,003591: 
018087,003592:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
018088,003593:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
018089,003594:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
018090,003595:    4471           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
018091,003596:    4472           54144                           TS       RELRET                                #  OFF, SEARCH DSPLIST
018092,003597:    4473           45011                           CS       BIT14                                 
018093,003598:    4474           00004                           INHINT                                         
018094,003599:    4475           71022                           MASK     MONSAVE1                              
018095,003600:    4476           55022                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
018096,003601:    4477           11044                           CCS      DSPLIST                               
018097,003602:    4500           04502                           TC       +2                                    
018098,003603:    4501           04505                           TC       RELDSP2                               #  LIST EMPTY
018099,003604:    4502           35030                           CAF      ZERO                                  
018100,003605:    4503           57044                           XCH      DSPLIST                               
018101,003606:    4504           05207                           TC       JOBWAKE                               
018102,003607:    4505           00003        RELDSP2            RELINT                                         
018103,003608:    4506           45022                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
018104,003609:    4507           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
018105,003610:    4510           03011                           WAND     DSALMOUT                              
018106,003611:    4511           35030                           CAF      ZERO                                  
018107,003612:    4512           55013                           TS       DSPLOCK                               
018108,003613:    4513           00144                           TC       RELRET                                
018109,003614:    4514           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
018110,003615:    4515           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
018111,003616:                                                                                                  #  EMPTY. LEAVE KEY RLSE LIGHT ALONE IF 
018112,003617:                                                                                                  #  DSPLIST IS NOT EMPTY.
018113,003618:    4516           11044                           CCS      DSPLIST                               
018114,003619:    4517           04521                           TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
018115,003620:    4520           04505                           TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
018116,003621:    4521           35030                           CAF      ZERO                                  #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
018117,003622:    4522           55013                           TS       DSPLOCK                               
018118,003623:    4523           00144                           TC       RELRET                                
018119,003624: 
018120,003625: 
018121,003626:    4524                        ENDPINBF           EQUALS                                         
018122,003627: 
018123,003628:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
018124,003629: 
018125,003630:    4524  43,2002               PINTEST            EQUALS   LST2FAN                               
018126,003631: 

Sundance 306

018128,003633: 
018129,003634:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
018130,003635:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
018131,003636: 
018132,003637: 41,3606                                           SETLOC   ENDNVSB1   +1                         
018133,003638: 
018134,003639: 41,3606                                           COUNT*   $$/PIN                                
018135,003640: 41,3606           00004        VBTSTLTS           INHINT                                         
018136,003641: 41,3607           45026                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
018137,003642: 41,3610           71305                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
018138,003643: 41,3611           65026                           AD       BIT1                                  
018139,003644: 41,3612           55305                           TS       IMODES33                              
018140,003645: 
018141,003646: 41,3613           33651                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
018142,003647: 41,3614           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
018143,003648: 41,3615           05011                           WOR      DSALMOUT                              
018144,003649: 41,3616           33652                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
018145,003650: 41,3617           55037                           TS       DSPTAB     +11D                       #  PROG ALM.
018146,003651: 41,3620           35015                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
018147,003652: 41,3621           00006                           EXTEND                                         
018148,003653: 41,3622           05013                           WOR      CHAN13                                
018149,003654: 41,3623           34375                           CAF      TEN                                   
018150,003655: 41,3624           54117        TSTLTS1            TS       ERCNT                                 
018151,003656: 41,3625           43647                           CS       FULLDSP                               
018152,003657: 41,3626           50117                           INDEX    ERCNT                                 
018153,003658: 41,3627           55024                           TS       DSPTAB                                
018154,003659: 41,3630           10117                           CCS      ERCNT                                 
018155,003660: 41,3631           03624                           TC       TSTLTS1                               
018156,003661: 41,3632           43650                           CS       FULLDSP1                              
018157,003662: 41,3633           55025                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
018158,003663: 41,3634           55030                           TS       DSPTAB     +4                         
018159,003664: 41,3635           55032                           TS       DSPTAB     +6                         
018160,003665: 41,3636           35033                           CAF      ELEVEN                                
018161,003666: 41,3637           55017                           TS       NOUT                                  
018162,003667: 41,3640           00003                           RELINT                                         
018163,003668: 41,3641           33654                           CAF      SHOLTS                                
018164,003669: 41,3642           00004                           INHINT                                         
018165,003670: 41,3643           05252                           TC       WAITLIST                              
018166,003671: 41,3644     1024                                  EBANK=   DSPTAB                                
018167,003672: 41,3644           03655 62102                     2CADR    TSTLTS2                               
018168,003673: 
018169,003674: 41,3646           05225                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
018170,003675:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
018171,003676:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
018172,003677: 
018173,003678: 
018174,003679: 41,3647           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
018175,003680: 41,3650           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
018176,003681: 41,3651           00175        TSTCON1            OCT      00175                                 
018177,003682:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
018178,003683:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
018179,003684: 41,3652           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D  BITS 4,6,8,9.
018180,003685:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
018181,003686: 41,3653           00115        TSTCON3            OCT      00115                                 #  CHAN 11  BITS 1, 3, 4, 7.
018182,003687:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
018183,003688: 41,3654           00764        SHOLTS             OCT      764                                   #  5 SEC
018184,003689: 
018185,003690: 
018186,003691: 41,3655           34367        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
018187,003692: 41,3656           05142                           TC       NOVAC                                 
018188,003693: 41,3657     1024                                  EBANK=   DSPTAB                                
018189,003694: 41,3657           03662 62102                     2CADR    TSTLTS3                               
018190,003695: 
018191,003696: 41,3661           05321                           TC       TASKOVER                              
018192,003697: 
018193,003698: 
018194,003699: 41,3662           43653        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
018195,003700: 41,3663           00004                           INHINT                                         
018196,003701: 41,3664           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
018197,003702: 41,3665           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
018198,003703: 41,3666           45015                           CS       BIT10                                 #  TURN OFF TEST ALARM OUTBIT
018199,003704: 41,3667           00006                           EXTEND                                         
018200,003705: 41,3670           03013                           WAND     CHAN13                                
018201,003706: 41,3671           35023                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
018202,003707: 41,3672           00006                           EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
018203,003708: 41,3673           02012                           RAND     CHAN12                                
018204,003709: 41,3674           65010                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
018205,003710: 41,3675           55037                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
018206,003711: 41,3676           43721                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
018207,003712: 41,3677           71305                           MASK     IMODES33                              #  LIGHTS COMPLETE.
018208,003713: 41,3700           65076                           AD       PRIO16                                
018209,003714: 41,3701           55305                           TS       IMODES33                              
018210,003715: 
018211,003716: 41,3702           43723                           CS       OCT55000                              
018212,003717: 41,3703           71304                           MASK     IMODES30                              
018213,003718: 41,3704           65075                           AD       PRIO15                                #  15000.
018214,003719: 41,3705           55304                           TS       IMODES30                              
018215,003720: 
018216,003721: 41,3706           43722                           CS       RFAILS2                               
018217,003722: 41,3707           71101                           MASK     RADMODES                              
018218,003723: 41,3710           65020                           AD       BIT7                                  
018219,003724: 41,3711           55101                           TS       RADMODES                              
018220,003725: 
018221,003726: 41,3712           00003                           RELINT                                         
018222,003727: 
018223,003728: 41,3713           04655                           TC       BANKCALL                              #  REDISPLAY C(MODREG)
018224,003729: 41,3714           10510                           CADR     DSPMM                                 
018225,003730: 41,3715           04216                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
018226,003731: 41,3716           04445                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
018227,003732: 41,3717           04674                           TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
018228,003733: 41,3720           61573                           CADR     TSTLTS4                               #   ENDIDLE IS AWAITING OPERATOR RESPONSE.
018229,003734: 41,3721           16001        13-11,1            OCT      16001                                 
018230,003735: 41,3722           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
018231,003736: 41,3723           55000        OCT55000           OCT      55000                                 
018232,003737: 41,3724                        ENDPINS2           EQUALS                                         
018233,003738: 
018234,003739:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
018235,003740:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
018236,003741:                                                                                                  #  PROG ALM, TRACKER FAIL.
018237,003742:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
018238,003743:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
018239,003744:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
018240,003745:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
018241,003746: 
018242,003747: 40,3705                                           SETLOC   DOPROC     +2                         
018243,003748: 40,3705                                           COUNT*   $$/PIN                                
018244,003749: 40,3705           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
018245,003750: 40,3706           55013                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
018246,003751: 40,3707           00004                           INHINT                                         
018247,003752: 40,3710           35015                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
018248,003753: 40,3711           00006                           EXTEND                                         
018249,003754: 40,3712           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
018250,003755: 40,3713           33774                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
018251,003756: 40,3714           71037                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
018252,003757: 40,3715           65010                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
018253,003758: 40,3716           55037                           TS       DSPTAB     +11D                       
018254,003759: 40,3717           45076                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
018255,003760: 40,3720           71305                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
018256,003761: 40,3721           65076                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
018257,003762: 40,3722           55305                           TS       IMODES33                              
018258,003763: 40,3723           45015                           CS       BIT10                                 
018259,003764: 40,3724           71304                           MASK     IMODES30                              
018260,003765: 40,3725           65015                           AD       BIT10                                 
018261,003766: 40,3726           55304                           TS       IMODES30                              
018262,003767: 
018263,003768: 40,3727           43773                           CS       RFAILS                                
018264,003769: 40,3730           71101                           MASK     RADMODES                              
018265,003770: 40,3731           65020                           AD       BIT7                                  
018266,003771: 40,3732           55101                           TS       RADMODES                              
018267,003772: 
018268,003773: 40,3733           45015                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
018269,003774: 40,3734           00006                           EXTEND                                         
018270,003775: 40,3735           03013                           WAND     CHAN13                                
018271,003776: 40,3736           43772                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
018272,003777: 40,3737           00006                           EXTEND                                         #  OPERATOR ERROR.
018273,003778: 40,3740           03011                           WAND     DSALMOUT                              
018274,003779: 40,3741           34375        TSTAB              CAF      BINCON                                #  (DEC 10)
018275,003780: 40,3742           54117                           TS       ERCNT                                 #  ERCNT = COUNT
018276,003781: 40,3743           00004                           INHINT                                         
018277,003782: 40,3744           50117                           INDEX    ERCNT                                 
018278,003783: 40,3745           11024                           CCS      DSPTAB                                
018279,003784: 40,3746           65026                           AD       ONE                                   
018280,003785: 40,3747           03754                           TC       ERPLUS                                
018281,003786: 40,3750           65026                           AD       ONE                                   
018282,003787: 40,3751           40000        ERMINUS            CS       A                                     
018283,003788: 40,3752           73775                           MASK     NOTBIT12                              
018284,003789: 40,3753           03757                           TC       ERCOM                                 
018285,003790: 40,3754           40000        ERPLUS             CS       A                                     
018286,003791: 40,3755           73775                           MASK     NOTBIT12                              
018287,003792: 40,3756           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
018288,003793: 40,3757           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
018289,003794: 40,3760           55024                           TS       DSPTAB                                
018290,003795: 40,3761           00003                           RELINT                                         
018291,003796: 40,3762           10117                           CCS      ERCNT                                 
018292,003797: 40,3763           03742                           TC       TSTAB      +1                         
018293,003798: 40,3764           35030                           CAF      ZERO                                  
018294,003799: 40,3765           54375                           TS       FAILREG                               
018295,003800: 40,3766           54376                           TS       FAILREG    +1                         
018296,003801: 40,3767           54377                           TS       FAILREG    +2                         
018297,003802: 40,3770           55357                           TS       SFAIL                                 
018298,003803: 40,3771           05225                           TC       ENDOFJOB                              
018299,003804: 
018300,003805: 40,3772           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
018301,003806:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
018302,003807: 40,3773           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
018303,003808: 40,3774           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS
018304,003809: 40,3775           73777        NOTBIT12           OCT      73777                                 
018305,003810: 
018306,003811: 
018307,003812: 40,3776                        ENDPINS1           EQUALS                                         
018308,003813: 
018309,003814: 
018310,003815: 40,3776  30,2000                                  SBANK=   LOWSUPER                              

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