Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

016867,000002:                                                                                                  ## Copyright:   Public domain.
016868,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
016869,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
016870,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
016871,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
016872,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
016873,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
016874,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
016875,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
016876,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
016877,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
016878,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
016879,000014:                                                                                                  ##              the original YUL assembler.
016880,000015:                                                                                                  ##
016881,000016:                                                                                                  ## Assembler:   yaYUL
016882,000017:                                                                                                  ## Contact:     Jim Lawton <jim.lawton@gmail.com>
016883,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
016884,000019:                                                                                                  ## Pages:       390-471
016885,000020:                                                                                                  ## Mod history: 2009-05-16 JVL  Started updating from page images.
016886,000021:                                                                                                  ##              2009-05-25 JVL  Finished updating from page images.
016887,000022:                                                                                                  ##              2009-07-01 RSB  Began annotating.
016888,000023:                                                                                                  ##              2010-12-31 JL   Fixed page number comment.
016889,000024:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
016890,000025:                                                                                                  ##                              and corrected the errors found.
016891,000026:                                                                                                  ##              2017-01-21 MAS  Corrected some lingering comment errors.
016892,000027:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
016893,000028:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes identified while proofing Artemis 72.
016894,000029:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted while proofing Luminary 116.
016895,000030:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
016896,000031:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
016897,000032:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
016898,000033:                                                                                                  ##                              Changed 360-CDUD to 360-CDUO.
016899,000034:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
016900,000035:                                                                                                  ##                              Luminary 99 vs Comanche 55.
016901,000036:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
016902,000037: 
016903,000038:                                                                                                  ## This source code has been transcribed or otherwise adapted from
016904,000039:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
016905,000040:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
016906,000041:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
016907,000042:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
016908,000043:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
016909,000044:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
016910,000045:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
016911,000046:                                                                                                  ## actually created.
016912,000047:                                                                                                  ##
016913,000048:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
016914,000049:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
016915,000050:                                                                                                  ## the listing from which it was transcribed. It has been verified to
016916,000051:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
016917,000052:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
016918,000053:                                                                                                  ##
016919,000054:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
016920,000055:                                                                                                  ##
016921,000056:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
016922,000057: 

Page 390

016924,000059:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
016925,000060:                                                                                                  #  MOD NO - 4            DATE - 27 APRIL 1967            ASSEMBLY - PINDANCE REV 18
016926,000061:                                                                                                  #  MOD BY - FILENE
016927,000062:                                                                                                  #  LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
016928,000063: 
016929,000064:                                                                                                  #  FUNCTIONAL DESCRIPTION-
016930,000065: 
016931,000066:                                                                                                  #  THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
016932,000067:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
016933,000068:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
016934,000069:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
016935,000070: 
016936,000071:                                                                                                  #  THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
016937,000072:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
016938,000073:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
016939,000074:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
016940,000075:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
016941,000076: 
016942,000077:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
016943,000078:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
016944,000079:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
016945,000080:                                                                                                  #  :EXTENDED VERBS:).
016946,000081: 
016947,000082:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
016948,000083:                                                                                                  #  OPERATION INFORMATION:.
016949,000084: 

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

016984,000119: 
016985,000120:                                                                                                  #  CALLING SEQUENCES -
016986,000121: 
016987,000122:                                                                                                  #  KEYBOARD:
016988,000123:                                                                                                  #  EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
016989,000124:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
016990,000125:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
016991,000126:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
016992,000127: 
016993,000128:                                                                                                  #  UPLINK:
016994,000129:                                                                                                  #  EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
016995,000130:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
016996,000131:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT :CHARIN:) AND EXECUTES A RESUME.
016997,000132: 
016998,000133:                                                                                                  #  INTERNAL PROGRAMS:
016999,000134:                                                                                                  #  INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
017000,000135:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
017001,000136:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
017002,000137:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
017003,000138: 
017004,000139:                                                                                                  #  NORMAL EXIT MODES -
017005,000140: 
017006,000141:                                                                                                  #        IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
017007,000142:                                                                                                  #                1)      ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
017008,000143:                                                                                                  #                2)      EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE

Page 391

017010,000145:                                                                                                  #                        PINBALL EXECUTIVE JOB WITH PRIORITY 30000.  IT IS THE 
017011,000146:                                                                                                  #                        RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
017012,000147:                                                                                                  #                        CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
017013,000148:                                                                                                  #                        ALSO PINBALL IS A NOVAC JOB.  EBANK SET FOR COMMON.
017014,000149:                                                                                                  #                3)      VERB 37.  CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
017015,000150:                                                                                                  #                        SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
017016,000151:                                                                                                  #                        30000.  THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
017017,000152:                                                                                                  #                4)      KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
017018,000153:                                                                                                  #                        ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF 
017019,000154:                                                                                                  #                        THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
017020,000155: 
017021,000156:                                                                                                  #  IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
017022,000157:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
017023,000158:                                                                                                  #  :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
017024,000159: 
017025,000160:                                                                                                  #  ALARM OR ABORT EXIT MODES -
017026,000161: 
017027,000162:                                                                                                  #        EXTERNAL INITIATION:
017028,000163:                                                                                                  #        IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
017029,000164:                                                                                                  #        ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
017030,000165: 
017031,000166:                                                                                                  #        INTERNAL PROGRAM INITIATION:
017032,000167:                                                                                                  #        IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
017033,000168:                                                                                                  #        (WITH OCTAL 01501).
017034,000169:                                                                                                  #        IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
017035,000170:                                                                                                  #        CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
017036,000171:                                                                                                  #                1) ENDIDLE OR DATAWAIT.
017037,000172:                                                                                                  #                2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
017038,000173: 
017039,000174:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
017040,000175:                                                                                                  #  E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
017041,000176: 
017042,000177:                                                                                                  #  OUTPUT -
017043,000178: 
017044,000179:                                                                                                  #  INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
017045,000180:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
017046,000181:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
017047,000182:                                                                                                  #  IN INTERRUPT.
017048,000183: 
017049,000184:                                                                                                  #  ERASABLE INITIALIZATION -
017050,000185: 
017051,000186:                                                                                                  #  FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
017052,000187:                                                                                                  #  PINBALL IN :STARTSUB:.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
017053,000188:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
017054,000189:                                                                                                  #  DSPCOUNT, NOUT.
017055,000190: 
017056,000191:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR

Page 392

017058,000193:                                                                                                  #  PINBALL IS GIVEN BELOW.
017059,000194: 
017060,000195:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST -
017061,000196: 
017062,000197:                                                                                                  #  REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
017063,000198:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.
017064,000199: 
017065,000200:                                                                                                  #        NVSUB           CALLING POINT FOR INTERNAL USE OF PINBALL.
017066,000201:                                                                                                  #                        OF RELATED INTEREST     NVSBWAIT
017067,000202:                                                                                                  #                                                NVSUBUSY
017068,000203:                                                                                                  #                                                PRENVBSY
017069,000204: 
017070,000205:                                                                                                  #        ENDIDLE         ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
017071,000206:                                                                                                  #                        AWAITING OPERATORS RESPONSE.
017072,000207: 
017073,000208:                                                                                                  #        DSPMM           ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
017074,000209:                                                                                                  #                        PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
017075,000210:                                                                                                  #                        (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
017076,000211:                                                                                                  #                        FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
017077,000212: 
017078,000213:                                                                                                  #        BLANKSUB        ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
017079,000214:                                                                                                  #                        COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
017080,000215: 
017081,000216:                                                                                                  #        JAMTERM         ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
017082,000217:                                                                                                  #        JAMPROC         TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
017083,000218: 
017084,000219:                                                                                                  #        MONITOR         VERBS FOR PERIODIC (1 PER SEC) DISPLAY.
017085,000220: 
017086,000221:                                                                                                  #        PLEASE PERFORM, PLEASE MARK SITUATIONS
017087,000222:                                                                                                  #                REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
017088,000223:                                                                                                  #                THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
017089,000224:                                                                                                  #                SYMBOL TABLE FOR PAGE NUMBER).
017090,000225: 
017091,000226:                                                                                                  #        THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
017092,000227:                                                                                                  #        BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
017093,000228: 
017094,000229:                                                                                                  #        THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
017095,000230:                                                                                                  #        TABLES:.
017096,000231: 
017097,000232:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
017098,000233:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
017099,000234:                                                                                                  #  DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
017100,000235: 

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

017106,000241: 
017107,000242:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
017108,000243: 
017109,000244:                                                                                                  #  ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
017110,000245:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO

Page 393

017112,000247:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
017113,000248:                                                                                                  #                                        HENRY 6, ACT 2, SCENE 4
017114,000249: 

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

017117,000252: 
017118,000253:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
017119,000254: 
017120,000255:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
017121,000256: 
017122,000257:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
017123,000258:                                                                                                  #  DECBRNCH      ERASE                   +DEC, -DEC, OCT INDICATOR
017124,000259:                                                                                                  #  VERBREG       ERASE                   VERB CODE
017125,000260:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
017126,000261:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
017127,000262:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
017128,000263:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
017129,000264:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
017130,000265:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
017131,000266:                                                                                                  #  HITEMOUT      =       YREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
017132,000267:                                                                                                  #                                                MUST = LOTEMOUT-1.
017133,000268:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
017134,000269:                                                                                                  #  LOTEMOUT      =       ZREGLP          TEMP FOR DISPLAY OF HRS, MIN, SEC
017135,000270:                                                                                                  #                                                MUST = HITEMOUT+1.
017136,000271:                                                                                                  #  MODREG        ERASE                   MODE CODE
017137,000272:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
017138,000273:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
017139,000274:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
017140,000275:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
017141,000276:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
017142,000277:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
017143,000278:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
017144,000279:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
017145,000280:                                                                                                  #  MONSAVE2      ERASE                   NVMONOPT OPTIONS
017146,000281:                                                                                                  #  DSPTAB        ERASE           +13D    0-10, DISPLAY PANEL BUFFER.11-13, C RELAYS
017147,000282:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
017148,000283:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
017149,000284:                                                                                                  #                                        MUST = NVBNKTEM-1
017150,000285:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
017151,000286:                                                                                                  #                                        MUST = NVQTEM+1
017152,000287:                                                                                                  #  VERBSAVE      ERASE                   NEEDED FOR RECYCLE
017153,000288:                                                                                                  #  DSPLIST       ERASE                   WAITING REG FOR DSP SYST INTERNAL USE
017154,000289:                                                                                                  #  EXTVBACT      REASE                   EXTENDED VERB ACTIVITY INTERLOCK
017155,000290:                                                                                                  #  DSPTEM1       ERASE           +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
017156,000291:                                                                                                  #  DSPTEM2       ERASE           +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
017157,000292: 
017158,000293:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
017159,000294: 
017160,000295:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017161,000296: 

Page 394

017163,000298: 
017164,000299:                                                                                                  #  DSEXIT        =       INTB15+         RETURN FOR DSPIN
017165,000300:                                                                                                  #  EXITEM        =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
017166,000301:                                                                                                  #  BLANKRET      =       INTB15+         RETURN FOR 2BLANK
017167,000302: 
017168,000303:                                                                                                  #  WRDRET        =       INTBIT15        RETURN FOR 5BLANK
017169,000304:                                                                                                  #  WDRET         =       INTBIT15        RETURN FOR DSPWD
017170,000305:                                                                                                  #  DECRET        =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
017171,000306:                                                                                                  #  21/22REG      =       INTBIT15        TEMP FOR CHARIN
017172,000307: 
017173,000308:                                                                                                  #  UPDATRET      =       POLISH          RETURN FOR UPDATNN, UPDATVB
017174,000309:                                                                                                  #  CHAR          =       POLISH          TEMP FOR CHARIN
017175,000310:                                                                                                  #  ERCNT         =       POLISH          COUNTER FOR ERROR LIGHT RESET
017176,000311:                                                                                                  #  DECOUNT       =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
017177,000312: 
017178,000313:                                                                                                  #  SGNON         =       VBUF            TEMP FOR +,- ON
017179,000314:                                                                                                  #  NOUNTEM       =       VBUF            COUNTER FOR MIXNOUN FETCH
017180,000315:                                                                                                  #  DISTEM        =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
017181,000316:                                                                                                  #  DECTEM        =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
017182,000317: 
017183,000318:                                                                                                  #  SGNOFF        =       VBUF    +1      TEMP FOR +,- ON
017184,000319:                                                                                                  #  NVTEMP        =       VBUF    +1      TEMP FOR NVSUB
017185,000320:                                                                                                  #  SFTEMP1       =       VBUF    +1      STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
017186,000321:                                                                                                  #  HITEMIN       =       VBUF    +1      TEMP FOR LOAD OF HRS, MIN, SEC
017187,000322:                                                                                                  #                                                MUST = LOTEMIN-1.
017188,000323:                                                                                                  #  CODE          =       VBUF    +2      FOR DSPIN
017189,000324:                                                                                                  #  SFTEMP2       =       VBUF    +2      STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
017190,000325:                                                                                                  #  LOTEMIN       =       VBUF    +2      TEMP FOR LOAD OF HRS, MIN, SEC
017191,000326:                                                                                                  #                                                MUST = HITEMIN+1.
017192,000327:                                                                                                  #  MIXTEMP       =       VBUF    +3      FOR MIXNOUN DATA
017193,000328:                                                                                                  #  SIGNRET       =       VBUF    +3      RETURN FOR +,- ON
017194,000329:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
017195,000330: 
017196,000331:                                                                                                  #  ENTRET        =       DOTINC          EXIT FROM ENTER
017197,000332: 
017198,000333:                                                                                                  #  WDCNT         =       DOTRET          CHAR COUNTER FOR DSPWD
017199,000334:                                                                                                  #  INREL         =       DOTRET          INPUT BUFFER SELECTOR (X, Y, Z, REG)
017200,000335: 
017201,000336:                                                                                                  #  DSPMMTEM      =       MATINC          DSPCOUNT SAVE FOR DSPMM
017202,000337:                                                                                                  #  MIXBR         =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
017203,000338: 
017204,000339:                                                                                                  #  TEM1          ERASE                   EXEC TEMP
017205,000340:                                                                                                  #  DSREL         =       TEM1            REL ADDRESS FOR DSPIN
017206,000341: 
017207,000342:                                                                                                  #  TEM2          ERASE                   EXEC TEMP
017208,000343:                                                                                                  #  DSMAG         =       TEM2            MAGNITUDE STORE FOR DSPIN
017209,000344:                                                                                                  #  IDADDTEM      =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
017210,000345:                                                                                                  #  TEM3          ERASE                   EXEC TEMP
017211,000346:                                                                                                  #  COUNT         =       TEM3            FOR DSPIN
017212,000347: 

Page 395

017214,000349:                                                                                                  #  TEM4          ERASE                   EXEC TEMP
017215,000350:                                                                                                  #  LSTPTR        =       TEM4            LIST POINTER FOR GRABUSY
017216,000351:                                                                                                  #  RELRET        =       TEM4            RETURN FOR RELDSP
017217,000352:                                                                                                  #  FREERET       =       TEM4            RETURN FOR FREEDSP
017218,000353:                                                                                                  #  DSPWDRET      =       TEM4            RETURN FOR DSPSIGN
017219,000354:                                                                                                  #  SEPSCRET      =       TEM4            RETURN FOR SEPSEC
017220,000355:                                                                                                  #  SEPMNRET      =       TEM4            RETURN FOR SEPMIN
017221,000356: 
017222,000357:                                                                                                  #  TEM5          ERASE                   EXEC TEMP
017223,000358:                                                                                                  #  NOUNADD       =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
017224,000359: 
017225,000360:                                                                                                  #  NNADTEM       ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
017226,000361:                                                                                                  #  NNTYPTEM      ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
017227,000362:                                                                                                  #  IDAD1TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
017228,000363:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
017229,000364:                                                                                                  #  IDAD2TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
017230,000365:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
017231,000366:                                                                                                  #  IDAD3TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
017232,000367:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
017233,000368:                                                                                                  #  RUTMXTEM      ERASE                   TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
017234,000369: 
017235,000370:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017236,000371: 
017237,000372:                                                                                                  #  ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017238,000373: 
017239,000374:                                                                                                  #        MPAC, THRU MPAC +6
017240,000375:                                                                                                  #        BUF, +1, +2
017241,000376:                                                                                                  #        BUF2, +1, +2
017242,000377:                                                                                                  #        MPTEMP
017243,000378:                                                                                                  #        ADDRWD
017244,000379: 
017245,000380:                                                                                                  #  END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
017246,000381: 
017247,000382:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
017248,000383: 
017249,000384:                                                                                                  #  DSPCNT        ERASE                   COUNTER FOR DSPOUT
017250,000385:                                                                                                  #  UPLOCK        ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
017251,000386:                                                                                                  #                                        RECEPTION OF A BAD MESSAGE IN UPLINK)
017252,000387: 
017253,000388:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
017254,000389: 
017255,000390:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
017256,000391: 
017257,000392:                                                                                                  #  KEYTEMP1      =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
017258,000393:                                                                                                  #  DSRUPTEM      =       WAITEXIT        TEMP FOR DSPOUT
017259,000394:                                                                                                  #  KEYTEMP2      =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
017260,000395: 
017261,000396:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
017262,000397: 

Page 396

017264,000399:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
017265,000400:                                                                                                  #  0             10000
017266,000401:                                                                                                  #  1             00001
017267,000402:                                                                                                  #  9             01001
017268,000403:                                                                                                  #  VERB          10001
017269,000404:                                                                                                  #  ERROR RES     10010
017270,000405:                                                                                                  #  KEY RLSE      11001
017271,000406:                                                                                                  #  +             11010
017272,000407:                                                                                                  #  -             11011
017273,000408:                                                                                                  #  ENTER         11100
017274,000409:                                                                                                  #  CLEAR         11110
017275,000410:                                                                                                  #  NOUN          11111
017276,000411: 

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

017278,000413: 
017279,000414:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL.  SET OUT0 TO AAAABCCCCCDDDDD.
017280,000415:                                                                                                  #  A-S   SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
017281,000416:                                                                                                  #        ENERGIZED.
017282,000417:                                                                                                  #  B     FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
017283,000418:                                                                                                  #  C-S   5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
017284,000419:                                                                                                  #  D-S   5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
017285,000420: 
017286,000421:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
017287,000422:                                                                                                  #  MD1   MD2                             (MAJOR MODE)
017288,000423:                                                                                                  #  VD1   VD2 (VERB)      ND1     ND2     (NOUN)
017289,000424:                                                                                                  #  R1D1  R1D2    R1D3    R1D4    R1D5    (R1)
017290,000425:                                                                                                  #  R2D1  R2D2    R2D3    R2D4    R2D5    (R2)
017291,000426:                                                                                                  #  R3D1  R3D2    R3D3    R3D4    R3D5    (R3)
017292,000427: 
017293,000428:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
017294,000429: 
017295,000430:                                                                                                  #  MD1   25              R2D1    11              ALL ARE OCTAL
017296,000431:                                                                                                  #  MD2   24              R2D2    10
017297,000432:                                                                                                  #  VD1   23              R2D3     7
017298,000433:                                                                                                  #  VD2   22              R2D4     6
017299,000434:                                                                                                  #  ND1   21              R2D5     5
017300,000435:                                                                                                  #  ND2   20              R3D1     4
017301,000436:                                                                                                  #  R1D1  16              R3D2     3
017302,000437:                                                                                                  #  R1D2  15              R3D3     2
017303,000438:                                                                                                  #  R1D3  14              R3D4     1
017304,000439:                                                                                                  #  R1D4  13              R3D5     0
017305,000440:                                                                                                  #  R1D5  12
017306,000441: 
017307,000442:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
017308,000443: 
017309,000444:                                                                                                  #  DSPTAB                RELAYWD         BIT11           BITS 10-6       BITS 5-1
017310,000445:                                                                                                  #  RELADD
017311,000446:                                                                                                  #  10            1011                            MD1 (25)        MD2 (24)
017312,000447:                                                                                                  #  9             1010                            VD1 (23)        VD2 (22)
017313,000448:                                                                                                  #  8             1001                            ND1 (21)        ND2 (20)
017314,000449:                                                                                                  #  7             1000                                            R1D1 (16)

Page 397

017316,000451:                                                                                                  #  6             0111            +R1             R1D2 (15)       R1D3 (14)
017317,000452:                                                                                                  #  5             0110            -R1             R1D4 (13)       R1D5 (12)
017318,000453:                                                                                                  #  4             0101            +R2             R2D1 (11)       R2D2 (10)
017319,000454:                                                                                                  #  3             0100            -R2             R2D3 (7)        R2D4 (6)
017320,000455:                                                                                                  #  2             0011                            R2D5 (5)        R3D1 (4)
017321,000456:                                                                                                  #  1             0010            +R3             R3D2 (3)        R3D3 (2)
017322,000457:                                                                                                  #  0             0001            -R3             R3D4 (1)        R3D5 (0)
017323,000458:                                                                                                  #                0000        NO RELAYWORD
017324,000459: 
017325,000460:                                                                                                  #  THE 5 BIT OUTPUT RELAY CODES ARE:
017326,000461: 
017327,000462:                                                                                                  #  BLANK 00000
017328,000463:                                                                                                  #  0     10101
017329,000464:                                                                                                  #  1     00011
017330,000465:                                                                                                  #  2     11001
017331,000466:                                                                                                  #  3     11011
017332,000467:                                                                                                  #  4     01111
017333,000468:                                                                                                  #  5     11110
017334,000469:                                                                                                  #  6     11100
017335,000470:                                                                                                  #  7     10011
017336,000471:                                                                                                  #  8     11101
017337,000472:                                                                                                  #  9     11111
017338,000473: 
017339,000474:                                                                                                  #  OUTPUT BITS USED BY PINBALL:
017340,000475: 
017341,000476:                                                                                                  #        KEY RELEASE LIGHT       -       BIT 5 OF CHANNEL 11
017342,000477:                                                                                                  #        VERB/NOUN FLASH         -       BIT 6 OF CHANNEL 11
017343,000478:                                                                                                  #        OPERATOR ERROR LIGHT    -       BIT 7 OF CHANNEL 11
017344,000479: 

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. Page 398

017349,000484:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
017350,000485: 
017351,000486: 40,2077                                           BANK     40                                    
017352,000487: 40,2000                                           SETLOC   PINBALL1                              
017353,000488: 40,2000                                           BANK                                           
017354,000489: 
017355,000490: 40,2077                                           COUNT*   $$/PIN                                
017356,000491: 40,2077           34753        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
017357,000492: 40,2100           57012                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
017358,000493: 40,2101           54115                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
017359,000494: 40,2102           11042                           CCS      CADRSTOR                              #  ALL KEYS EXCEPT ER TURN ON KR LITE IF
017360,000495: 40,2103           02105                           TC       +2                                    #  CADRSTOR IS FULL.  THIS REMINDS OPERATOR
017361,000496: 40,2104           02112                           TC       CHARIN2                               #  TO RE-ESTABLISH A FLASHING DISPLAY
017362,000497: 40,2105           42156                           CS       ELRCODE1                              #  WHICH HE HAS OBSCURED WITH DISPLAYS OF
017363,000498: 40,2106           60154                           AD       MPAC                                  #  HIS OWN (SEE REMARKS PRECEDING ROUTINE
017364,000499: 40,2107           00006                           EXTEND                                         #  VBRELDSP).
017365,000500: 40,2110           12112                           BZF      CHARIN2                               
017366,000501: 40,2111           04374                           TC       RELDSPON                              
017367,000502: 40,2112           56154        CHARIN2            XCH      MPAC                                  
017368,000503: 40,2113           54117                           TS       CHAR                                  
017369,000504: 40,2114           50000                           INDEX    A                                     
017370,000505: 40,2115           02116                           TC       +1                                    #  INPUT CODE    FUNCTION
017371,000506: 40,2116           03434                           TC       CHARALRM                              #  0
017372,000507: 40,2117           02175                           TC       NUM                                   #  1
017373,000508: 40,2120           02175                           TC       NUM                                   #  2
017374,000509: 40,2121           02175                           TC       NUM                                   #  3
017375,000510: 40,2122           02175                           TC       NUM                                   #  4
017376,000511: 40,2123           02175                           TC       NUM                                   #  5
017377,000512: 40,2124           02175                           TC       NUM                                   #  6
017378,000513: 40,2125           02175                           TC       NUM                                   #  7
017379,000514: 40,2126           02161                           TC       89TEST                                #  10            8
017380,000515: 40,2127           02161                           TC       89TEST                                #  11            9
017381,000516: 40,2130           03434                           TC       CHARALRM                              #  12
017382,000517: 40,2131           03434                           TC       CHARALRM                              #  13
017383,000518: 40,2132           03434                           TC       CHARALRM                              #  14
017384,000519: 40,2133           03434                           TC       CHARALRM                              #  15
017385,000520: 40,2134           03434                           TC       CHARALRM                              #  16
017386,000521: 40,2135           03434                           TC       CHARALRM                              #  17
017387,000522: 40,2136           02173                           TC       NUM        -2                         #  20            0
017388,000523: 40,2137           02354                           TC       VERB                                  #  21            VERB
017389,000524: 40,2140           03603                           TC       ERROR                                 #  22            ERROR LIGHT RESET
017390,000525: 40,2141           03434                           TC       CHARALRM                              #  23
017391,000526: 40,2142           03434                           TC       CHARALRM                              #  24
017392,000527: 40,2143           03434                           TC       CHARALRM                              #  25
017393,000528: 40,2144           03434                           TC       CHARALRM                              #  26
017394,000529: 40,2145           03434                           TC       CHARALRM                              #  27
017395,000530: 40,2146           03434                           TC       CHARALRM                              #  30
017396,000531: 40,2147           03461                           TC       VBRELDSP                              #  31            KEY RELEASE
017397,000532: 40,2150           02407                           TC       POSGN                                 #  32            +

Page 399

017399,000534: 40,2151           02374                           TC       NEGSGN                                #  33            -
017400,000535: 40,2152           02157                           TC       ENTERJMP                              #  34            ENTER
017401,000536: 40,2153           03434                           TC       CHARALRM                              #  35
017402,000537: 40,2154           02467                           TC       CLEAR                                 #  36            CLEAR
017403,000538: 40,2155           02370                           TC       NOUN                                  #  37            NOUN
017404,000539: 
017405,000540: 40,2156           00022        ELRCODE1           OCT      22                                    
017406,000541: 40,2157           04635        ENTERJMP           TC       POSTJUMP                              
017407,000542: 40,2160           62002                           CADR     ENTER                                 
017408,000543: 
017409,000544: 40,2161           10777        89TEST             CCS      DSPCOUNT                              
017410,000545: 40,2162           02166                           TC       +4                                    #  +
017411,000546: 40,2163           02166                           TC       +3                                    #  +0
017412,000547: 40,2164           05155                           TC       ENDOFJOB                              #  - BLOCK DATA IN IF DSPCOUNT IS - OR -0
017413,000548: 40,2165           05155                           TC       ENDOFJOB                              #  -0
017414,000549: 40,2166           36245                           CAF      THREE                                 
017415,000550: 40,2167           71000                           MASK     DECBRNCH                              
017416,000551: 40,2170           10000                           CCS      A                                     
017417,000552: 40,2171           02175                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
017418,000553: 40,2172           03434                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
017419,000554: 
017420,000555:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME.  FOR DECIMAL IT CONVERTS INCOMING
017421,000556:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
017422,000557:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG.  HI PART OF DEC IN XREG,
017423,000558:                                                                                                  #  YREG, ZREG.  THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
017424,000559:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
017425,000560:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
017426,000561: 
017427,000562: 40,2173           34755                           CAF      ZERO                                  
017428,000563: 40,2174           54117                           TS       CHAR                                  
017429,000564: 40,2175           10777        NUM                CCS      DSPCOUNT                              
017430,000565: 40,2176           02202                           TC       +4                                    #  +
017431,000566: 40,2177           02202                           TC       +3                                    #  +0
017432,000567: 40,2200           02201                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
017433,000568: 40,2201           05155                           TC       ENDOFJOB                              #  -0
017434,000569: 40,2202           02324                           TC       GETINREL                              
017435,000570: 40,2203           11015                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
017436,000571: 40,2204           34755                           CAF      ZERO                                  
017437,000572: 40,2205           55015                           TS       CLPASS                                
017438,000573: 40,2206           02207                           TC       +1                                    
017439,000574: 40,2207           50117                           INDEX    CHAR                                  
017440,000575: 40,2210           34066                           CAF      RELTAB                                
017441,000576: 40,2211           74346                           MASK     LOW5                                  
017442,000577: 40,2212           54124                           TS       CODE                                  
017443,000578: 40,2213           30777                           CA       DSPCOUNT                              
017444,000579: 40,2214           54143                           TS       COUNT                                 
017445,000580: 40,2215           03322                           TC       DSPIN                                 
017446,000581: 40,2216           36245                           CAF      THREE                                 

Page 400

017448,000583: 40,2217           71000                           MASK     DECBRNCH                              
017449,000584: 40,2220           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
017450,000585: 40,2221           02232                           TC       DECTOBIN                              #  +
017451,000586: 40,2222           50137                           INDEX    INREL                                 #  +0 OCTAL
017452,000587: 40,2223           57001                           XCH      VERBREG                               
017453,000588: 40,2224           54022                           TS       CYL                                   
017454,000589: 40,2225           40022                           CS       CYL                                   
017455,000590: 40,2226           40022                           CS       CYL                                   
017456,000591: 40,2227           56022                           XCH      CYL                                   
017457,000592: 40,2230           60117                           AD       CHAR                                  
017458,000593: 40,2231           02247                           TC       ENDNMTST                              
017459,000594: 40,2232           50137        DECTOBIN           INDEX    INREL                                 
017460,000595: 40,2233           57001                           XCH      VERBREG                               
017461,000596: 40,2234           54154                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
017462,000597: 40,2235           34755                           CAF      ZERO                                  
017463,000598: 40,2236           54155                           TS       MPAC       +1                         
017464,000599: 40,2237           34363                           CAF      TEN                                   #  10 X 2EXP-14
017465,000600: 40,2240           07307                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
017466,000601: 40,2241           56155                           XCH      MPAC       +1                         
017467,000602: 40,2242           60117                           AD       CHAR                                  
017468,000603: 40,2243           54155                           TS       MPAC       +1                         
017469,000604: 40,2244           02247                           TC       ENDNMTST                              #  NO OF
017470,000605: 40,2245           26154                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
017471,000606: 40,2246           02265                           TC       DECEND                                
017472,000607: 40,2247           50137        ENDNMTST           INDEX    INREL                                 
017473,000608: 40,2250           55001                           TS       VERBREG                               
017474,000609: 40,2251           40777                           CS       DSPCOUNT                              
017475,000610: 40,2252           50137                           INDEX    INREL                                 
017476,000611: 40,2253           62315                           AD       CRITCON                               
017477,000612: 40,2254           00006                           EXTEND                                         
017478,000613: 40,2255           12257                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
017479,000614: 40,2256           02312                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
017480,000615: 40,2257           36245        ENDNUM             CAF      THREE                                 
017481,000616: 40,2260           71000                           MASK     DECBRNCH                              
017482,000617: 40,2261           10000                           CCS      A                                     
017483,000618: 40,2262           02265                           TC       DECEND                                
017484,000619: 40,2263           40777        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
017485,000620: 40,2264           02313                           TC       MORNUM     +1                         #  NEGATIVELY
017486,000621: 40,2265           44753        DECEND             CS       ONE                                   
017487,000622: 40,2266           60137                           AD       INREL                                 
017488,000623: 40,2267           00006                           EXTEND                                         
017489,000624: 40,2270           62263                           BZMF     ENDALL                                #  IF INREL=0,1 (VBREG,NNREG), LEAVE WHOLE
017490,000625: 40,2271           07103                           TC       DMP                                   #  IF INREL=2,3,4 (R1,R2,R3), CONVERT TO FRAC
017491,000626:                                                                                                  #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
017492,000627: 40,2272           02322                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
017493,000628: 40,2273           36245                           CAF      THREE                                 #  IN MPAC, +1, +2.
017494,000629: 40,2274           71000                           MASK     DECBRNCH                              
017495,000630: 40,2275           50000                           INDEX    A                                     
017496,000631: 40,2276           02276                           TC       +0                                    
017497,000632: 40,2277           02303                           TC       +DECSGN                               

Page 401

017499,000634: 40,2300           00006                           EXTEND                                         #  - CASE
017500,000635: 40,2301           40156                           DCS      MPAC       +1                         
017501,000636: 40,2302           52156                           DXCH     MPAC       +1                         
017502,000637: 40,2303           56156        +DECSGN            XCH      MPAC       +2                         
017503,000638: 40,2304           50137                           INDEX    INREL                                 
017504,000639: 40,2305           55004                           TS       XREGLP     -2                         
017505,000640: 40,2306           56155                           XCH      MPAC       +1                         
017506,000641: 40,2307           50137                           INDEX    INREL                                 
017507,000642: 40,2310           55001                           TS       VERBREG                               
017508,000643: 40,2311           02263                           TC       ENDALL                                
017509,000644: 40,2312           10777        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
017510,000645: 40,2313           54777                           TS       DSPCOUNT                              
017511,000646: 40,2314           05155                           TC       ENDOFJOB                              
017512,000647: 
017513,000648: 40,2315           00022        CRITCON            OCT      22                                    #  (DEC 18)
017514,000649: 40,2316           00020                           OCT      20                                    #  (DEC 16)
017515,000650: 40,2317           00012                           OCT      12                                    #  (DEC 10)
017516,000651: 40,2320           00005                           OCT      5                                     
017517,000652: 40,2321           00000                           OCT      0                                     
017518,000653: 
017519,000654: 40,2322           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
017520,000655: 
017521,000656:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
017522,000657:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
017523,000658: 
017524,000659: 40,2324           50777        GETINREL           INDEX    DSPCOUNT                              
017525,000660: 40,2325           32330                           CAF      INRELTAB                              
017526,000661: 40,2326           54137                           TS       INREL                                 #  (A TEMP, REG)
017527,000662: 40,2327           00002                           TC       Q                                     
017528,000663: 
017529,000664: 40,2330           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
017530,000665: 40,2331           00004                           OCT      4                                     #  R3D4           =(1)
017531,000666: 40,2332           00004                           OCT      4                                     #  R3D3           =(2)
017532,000667: 40,2333           00004                           OCT      4                                     #  R3D2           =(3)
017533,000668: 40,2334           00004                           OCT      4                                     #  R3D1           =(4)
017534,000669: 40,2335           00003                           OCT      3                                     #  R2D5           =(5)
017535,000670: 40,2336           00003                           OCT      3                                     #  R2D4           =(6)
017536,000671: 40,2337           00003                           OCT      3                                     #  R2D3           =(7)
017537,000672: 40,2340           00003                           OCT      3                                     #  R2D2           =(8D)
017538,000673: 40,2341           00003                           OCT      3                                     #  R2D1           =(9D)
017539,000674: 40,2342           00002                           OCT      2                                     #  R1D5           =(10D)
017540,000675: 40,2343           00002                           OCT      2                                     #  R1D4           =(11D)
017541,000676: 40,2344           00002                           OCT      2                                     #  R1D3           =(12D)
017542,000677: 40,2345           00002                           OCT      2                                     #  R1D2           =(13D)
017543,000678: 40,2346           00002                           OCT      2                                     #  R1D1           =(14D)
017544,000679: 40,2347           05705                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
017545,000680: 40,2350           00001                           OCT      1                                     #  ND2            =(16D)
017546,000681: 40,2351           00001                           OCT      1                                     #  ND1            =(17D)

Page 402

017548,000683: 40,2352           00000                           OCT      0                                     #  VD2            =(18D)
017549,000684: 40,2353           00000                           OCT      0                                     #  VD1            =(19D)
017550,000685: 
017551,000686: 40,2354           34755        VERB               CAF      ZERO                                  
017552,000687: 40,2355           55001                           TS       VERBREG                               
017553,000688: 40,2356           34360                           CAF      VD1                                   
017554,000689: 40,2357           54777        NVCOM              TS       DSPCOUNT                              
017555,000690: 40,2360           02601                           TC       2BLANK                                
017556,000691: 40,2361           34753                           CAF      ONE                                   
017557,000692: 40,2362           55000                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
017558,000693: 40,2363           34755                           CAF      ZERO                                  
017559,000694: 40,2364           55013                           TS       REQRET                                #  SET FOR ENTPAS0
017560,000695: 40,2365           34217                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
017561,000696: 40,2366           54136                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
017562,000697:                                                                                                  #  TO TC ENDOFJOB
017563,000698: 40,2367           05155                           TC       ENDOFJOB                              
017564,000699: 40,2370           34755        NOUN               CAF      ZERO                                  
017565,000700: 40,2371           55002                           TS       NOUNREG                               
017566,000701: 40,2372           34361                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
017567,000702: 40,2373           02357                           TC       NVCOM                                 
017568,000703: 
017569,000704: 40,2374           02446        NEGSGN             TC       SIGNTEST                              
017570,000705: 40,2375           02433                           TC       -ON                                   
017571,000706: 40,2376           34752                           CAF      TWO                                   
017572,000707: 40,2377           50137        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
017573,000708: 40,2400           64745                           AD       BIT7                                  #  BIT 5 FOR R1,  BIT 4 FOR R2,
017574,000709: 40,2401           27000                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
017575,000710: 40,2402           11015        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
017576,000711: 40,2403           34755                           CAF      ZERO                                  
017577,000712: 40,2404           55015                           TS       CLPASS                                
017578,000713: 40,2405           02406                           TC       +1                                    
017579,000714: 40,2406           05155                           TC       ENDOFJOB                              
017580,000715: 
017581,000716: 40,2407           02446        POSGN              TC       SIGNTEST                              
017582,000717: 40,2410           02413                           TC       +ON                                   
017583,000718: 40,2411           34753                           CAF      ONE                                   
017584,000719: 40,2412           02377                           TC       BOTHSGN                               
017585,000720: 
017586,000721: 40,2413           22002        +ON                LXCH     Q                                     
017587,000722: 40,2414           02324                           TC       GETINREL                              
017588,000723: 40,2415           50137                           INDEX    INREL                                 
017589,000724: 40,2416           32441                           CAF      SGNTAB     -2                         
017590,000725: 40,2417           54123                           TS       SGNOFF                                
017591,000726: 40,2420           64753                           AD       ONE                                   
017592,000727: 40,2421           54122                           TS       SGNON                                 
017593,000728: 40,2422           34755        SGNCOM             CAF      ZERO                                  
017594,000729: 40,2423           54124                           TS       CODE                                  
017595,000730: 40,2424           56123                           XCH      SGNOFF                                

Page 403

017597,000732: 40,2425           03404                           TC       11DSPIN                               
017598,000733: 40,2426           34741                           CAF      BIT11                                 
017599,000734: 40,2427           54124                           TS       CODE                                  
017600,000735: 40,2430           56122                           XCH      SGNON                                 
017601,000736: 40,2431           03404                           TC       11DSPIN                               
017602,000737: 40,2432           00001                           TC       L                                     
017603,000738: 40,2433           22002        -ON                LXCH     Q                                     
017604,000739: 40,2434           02324                           TC       GETINREL                              
017605,000740: 40,2435           50137                           INDEX    INREL                                 
017606,000741: 40,2436           32441                           CAF      SGNTAB     -2                         
017607,000742: 40,2437           54122                           TS       SGNON                                 
017608,000743: 40,2440           64753                           AD       ONE                                   
017609,000744: 40,2441           54123                           TS       SGNOFF                                
017610,000745: 40,2442           02422                           TC       SGNCOM                                
017611,000746: 
017612,000747: 40,2443           00005        SGNTAB             OCT      5                                     #  -R1
017613,000748: 40,2444           00003                           OCT      3                                     #  -R2
017614,000749: 40,2445           00000                           OCT      0                                     #  -R3
017615,000750: 
017616,000751: 40,2446           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
017617,000752: 40,2447           36245                           CAF      THREE                                 #  R2D1, OR R3D1.  ALLOWS ONLY FIRST OF
017618,000753: 40,2450           71000                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
017619,000754: 40,2451           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0,  SIGN
017620,000755: 40,2452           05155                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
017621,000756: 40,2453           44317                           CS       R1D1                                  
017622,000757: 40,2454           02462                           TC       SGNTST1                               
017623,000758: 40,2455           44320                           CS       R2D1                                  
017624,000759: 40,2456           02462                           TC       SGNTST1                               
017625,000760: 40,2457           44321                           CS       R3D1                                  
017626,000761: 40,2460           02462                           TC       SGNTST1                               
017627,000762: 40,2461           05155                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
017628,000763: 40,2462           60777        SGNTST1            AD       DSPCOUNT                              
017629,000764: 40,2463           00006                           EXTEND                                         
017630,000765: 40,2464           12466                           BZF      +2                                    #  MATCH FOUND
017631,000766: 40,2465           00002                           TC       Q                                     
017632,000767: 40,2466           00001                           TC       L                                     #  SIGN LEGAL
017633,000768: 
017634,000769:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
017635,000770:                                                                                                  #  NT XREG, YREG, ZREG IS CLEARED).  SUCCESSIVE CLEARS TAKE CARE OF EACH RX
017636,000771:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
017637,000772: 
017638,000773:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
017639,000774:                                                                                                  #  APPROPRIATE TO BE CLEARED.
017640,000775: 
017641,000776:                                                                                                  #  CLPASS        +0 PASS0, CAN BE BACKED UP
017642,000777:                                                                                                  #                +NZ HIPASS, CAN BE BACKED UP
017643,000778:                                                                                                  #                -NZ PASS0, CANNOT BE BACKED UP

Page 404

017645,000780: 40,2467           10777        CLEAR              CCS      DSPCOUNT                              
017646,000781: 40,2470           64753                           AD       ONE                                   
017647,000782: 40,2471           02473                           TC       +2                                    
017648,000783: 40,2472           64753                           AD       ONE                                   
017649,000784: 40,2473           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
017650,000785: 40,2474           32330                           CAF      INRELTAB                              #  FAIL LEGALTST.
017651,000786: 40,2475           54137                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
017652,000787: 40,2476           11015                           CCS      CLPASS                                
017653,000788: 40,2477           02505                           TC       CLPASHI                               #  +
017654,000789: 40,2500           02502                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
017655,000790: 40,2501           02502                           TC       +1                                    #  -
017656,000791: 40,2502           30137                           CA       INREL                                 
017657,000792: 40,2503           02527                           TC       LEGALTST                              
017658,000793: 40,2504           02522                           TC       CLEAR1                                
017659,000794: 40,2505           10137        CLPASHI            CCS      INREL                                 
017660,000795: 40,2506           54137                           TS       INREL                                 
017661,000796: 40,2507           02527                           TC       LEGALTST                              
017662,000797: 40,2510           32577                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
017663,000798: 40,2511           27013                           ADS      REQRET                                
017664,000799: 40,2512           30137                           CA       INREL                                 
017665,000800: 40,2513           54125                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
017666,000801: 40,2514           00006                           EXTEND                                         
017667,000802: 40,2515           27001                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
017668,000803: 40,2516           04616                           TC       BANKCALL                              
017669,000804: 40,2517           62340                           CADR     UPDATVB                               
017670,000805: 40,2520           30125                           CA       MIXTEMP                               
017671,000806: 40,2521           54137                           TS       INREL                                 #  RESTORE INREL
017672,000807: 40,2522           02525        CLEAR1             TC       CLR5                                  
017673,000808: 40,2523           25015                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
017674,000809: 40,2524           05155                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
017675,000810: 40,2525           22002        CLR5               LXCH     Q                                     #  USES 5BLANK BUT AVOIDS ITS TC GETINREL
017676,000811: 40,2526           02540                           TC       5BLANK     +2                         
017677,000812: 40,2527           67746        LEGALTST           AD       NEG2                                  
017678,000813: 40,2530           10000                           CCS      A                                     
017679,000814: 40,2531           00002                           TC       Q                                     #  LEGAL         INREL G/ 2
017680,000815: 40,2532           05705                           TC       CCSHOLE                               
017681,000816: 40,2533           05155                           TC       ENDOFJOB                              #  ILLEGAL       INREL=0,1
017682,000817: 40,2534           00002                           TC       Q                                     #  LEGAL         INREL=2
017683,000818: 
017684,000819:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
017685,000820:                                                                                                  #  YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
017686,000821:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
017687,000822: 
017688,000823: 40,2535           54777                           TS       DSPCOUNT                              #  NEEDED FOR BLANKSUB
017689,000824: 40,2536           22002        5BLANK             LXCH     Q                                     
017690,000825: 40,2537           02324                           TC       GETINREL                              
017691,000826: 40,2540           34755                           CAF      ZERO                                  
017692,000827: 40,2541           50137                           INDEX    INREL                                 
017693,000828: 40,2542           55001                           TS       VERBREG                               #  ZERO X, Y, Z REG.

Page 405

017695,000830: 40,2543           50137                           INDEX    INREL                                 
017696,000831: 40,2544           55004                           TS       XREGLP     -2                         
017697,000832: 40,2545           54124                           TS       CODE                                  
017698,000833: 40,2546           50137                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
017699,000834: 40,2547           44745                           CS       BIT7                                  #  PROTECT OTHERS
017700,000835: 40,2550           71000                           MASK     DECBRNCH                              
017701,000836: 40,2551           72600                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
017702,000837: 40,2552           55000                           TS       DECBRNCH                              
017703,000838: 40,2553           50137                           INDEX    INREL                                 
017704,000839: 40,2554           32570                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
017705,000840: 40,2555           54143                           TS       COUNT                                 
017706,000841: 40,2556           03322                           TC       DSPIN                                 
017707,000842: 40,2557           50137        5BLANK1            INDEX    INREL                                 
017708,000843: 40,2560           32573                           CAF      DOUBLK     -2                         
017709,000844: 40,2561           54777                           TS       DSPCOUNT                              
017710,000845: 40,2562           02601                           TC       2BLANK                                
017711,000846: 40,2563           44752                           CS       TWO                                   
017712,000847: 40,2564           26777                           ADS      DSPCOUNT                              
017713,000848: 40,2565           02601                           TC       2BLANK                                
017714,000849: 40,2566           50137                           INDEX    INREL                                 
017715,000850: 40,2567           34315                           CAF      R1D1       -2                         
017716,000851: 40,2570           54777                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
017717,000852: 40,2571           00001                           TC       L                                     #  OF REG. JUST BLANKED
017718,000853: 
017719,000854: 40,2572           00016        SINBLANK           OCT      16                                    #  DEC 14
017720,000855: 40,2573           00005                           OCT      5                                     
017721,000856: 40,2574           00004                           OCT      4                                     
017722,000857: 40,2575           00015        DOUBLK             OCT      15                                    #  DEC 13
017723,000858: 40,2576           00011                           OCT      11                                    #  DEC 9
017724,000859: 40,2577           00003                           OCT      3                                     
017725,000860: 
017726,000861: 40,2600           77774        BRNCHCON           OCT      77774                                 
017727,000862: 
017728,000863:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
017729,000864:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
017730,000865: 
017731,000866: 40,2601           30777        2BLANK             CA       DSPCOUNT                              
017732,000867: 40,2602           54021                           TS       SR                                    
017733,000868: 40,2603           42614                           CS       BLANKCON                              
017734,000869: 40,2604           00004                           INHINT                                         
017735,000870: 40,2605           50021                           INDEX    SR                                    
017736,000871: 40,2606           57023                           XCH      DSPTAB                                
017737,000872: 40,2607           00006                           EXTEND                                         
017738,000873: 40,2610           62612                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
017739,000874: 40,2611           25016                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
017740,000875: 40,2612           00003                           RELINT                                         #  IF -, NOUT OK
017741,000876: 40,2613           00002                           TC       Q                                     
017742,000877: 40,2614           04000        BLANKCON           OCT      4000                                  
017743,000878: 

Page 406

017745,000880:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
017746,000881:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
017747,000882:                                                                                                  #  PASSES.
017748,000883: 
017749,000884:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
017750,000885:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
017751,000886:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
017752,000887: 
017753,000888: 41,2000                                           BANK     41                                    
017754,000889: 41,2000                                           SETLOC   PINBALL2                              
017755,000890: 41,2000                                           BANK                                           
017756,000891: 
017757,000892: 41,2000                                           COUNT*   $$/PIN                                
017758,000893: 41,2000           03544        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
017759,000894: 41,2001           02775        LOADLV1            TC       LOADLV                                
017760,000895: 
017761,000896:                                                                                                  #  END OF STANDARD LEAD INS.
017762,000897: 
017763,000898: 41,2002           34755        ENTER              CAF      ZERO                                  
017764,000899: 41,2003           55015                           TS       CLPASS                                
017765,000900: 41,2004           34217                           CAF      ENDINST                               
017766,000901: 41,2005           54136                           TS       ENTRET                                
017767,000902: 41,2006           11013                           CCS      REQRET                                
017768,000903: 41,2007           02035                           TC       ENTPAS0                               #  IF +, PASS 0
017769,000904: 41,2010           02035                           TC       ENTPAS0                               #  IF +, PASS 0
017770,000905: 41,2011           02012                           TC       +1                                    #  IF -, NOT PASS 0
017771,000906: 41,2012           32033        ENTPASHI           CAF      MMADREF                               
017772,000907: 41,2013           61013                           AD       REQRET                                #  IF L/ 2 CHAR IN FOR MM CODE, ALARM
017773,000908: 41,2014           00006                           EXTEND                                         #  AND RECYCLE (DECIDE AT MMCHANG+1).
017774,000909: 41,2015           12027                           BZF      ACCEPTWD                              
017775,000910: 41,2016           36245                           CAF      THREE                                 #  IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
017776,000911: 41,2017           71000                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
017777,000912: 41,2020           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
017778,000913: 41,2021           02023                           TC       +2                                    #  CHARACTERS AND CONTINUE.
017779,000914: 41,2022           02027                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
017780,000915: 41,2023           10777                           CCS      DSPCOUNT                              
017781,000916: 41,2024           02351                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
017782,000917: 41,2025           02351                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
017783,000918: 41,2026           02027                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
017784,000919: 41,2027           41013        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
017785,000920: 41,2030           55013                           TS       REQRET                                #  SET REQRET +.
017786,000921: 41,2031           04433                           TC       FLASHOFF                              
017787,000922: 41,2032           01013                           TC       REQRET                                
017788,000923: 
017789,000924: 41,2033     0136               ENTEXIT            =        ENTRET                                
017790,000925: 
017791,000926: 41,2033           03431        MMADREF            ADRES    MMCHANG    +1                         #  ASSUMES TC REQMM AT MMCHANG.
017792,000927: 

Page 407

017794,000929: 41,2034           00034        LOWVERB            DEC      28         B-14                       #  LOWER VERB THAT AVOIDS NOUN TEST.
017795,000930: 
017796,000931: 41,2035           34755        ENTPAS0            CAF      ZERO                                  #  NOUN VERB SUB ENTERS HERE
017797,000932: 41,2036           55000                           TS       DECBRNCH                              
017798,000933: 41,2037           44360                           CS       VD1                                   #  BLOCK FURTHER NUM CHAR, SO THAT STRAY
017799,000934: 41,2040           54777                           TS       DSPCOUNT                              #  CHAR DO NOT GET INTO VERB OR NOUN LTS.
017800,000935: 41,2041           41001        TESTVB             CS       VERBREG                               #  IF VERB IS G/E LOWVB, SKIP NOUN TEST.
017801,000936: 41,2042           55041                           TS       VERBSAVE                              #  SAVE VERB FOR POSSIBLE RECYCLE.
017802,000937: 41,2043           62034                           AD       LOWVERB                               #  LOWVERB - VB
017803,000938: 41,2044           00006                           EXTEND                                         
017804,000939: 41,2045           62133                           BZMF     VERBFAN                               #  VERB G/ E LOWVERB
017805,000940: 41,2046           00006        TESTNN             EXTEND                                         #  VERB L/ LOWVERB
017806,000941: 41,2047           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
017807,000942: 41,2050           52006                           DXCH     Z                                     #  ROUTINE.
017808,000943: 41,2051           50140                           INDEX    MIXBR                                 
017809,000944: 41,2052           02052                           TC       +0                                    
017810,000945: 41,2053           02055                           TC       +2                                    #  NORMAL
017811,000946: 41,2054           02221                           TC       MIXNOUN                               #  MIXED
017812,000947: 41,2055           10146                           CCS      NNADTEM                               #  NORMAL
017813,000948: 41,2056           02131                           TC       VERBFAN    -2                         #        NORMAL  IF +
017814,000949: 41,2057           02351                           TC       GODSPALM                              #  NOT IN USE    IF +0
017815,000950: 41,2060           02064                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
017816,000951: 41,2061           25017                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
017817,000952: 41,2062           04311                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
017818,000953: 41,2063           02120                           TC       INTMCTBS   +2                         
017819,000954: 41,2064           34735        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
017820,000955: 41,2065           55015                           TS       CLPASS                                
017821,000956: 41,2066           44217                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
017822,000957: 41,2067           60136                           AD       ENTEXIT                               #        FROM EXTERNAL
017823,000958: 41,2070           00006                           EXTEND                                         
017824,000959: 41,2071           12073                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
017825,000960: 41,2072           02116                           TC       INTMCTBS                              
017826,000961: 41,2073           02307                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
017827,000962: 41,2074           11000                           CCS      DECBRNCH                              #  ALARM AND RECYCLE IF DECIMAL USED
017828,000963: 41,2075           04145                           TC       ALMCYCLE                              #  FOR MCTBS.
017829,000964: 41,2076           44360                           CS       VD1                                   #  OCTAL USED OK
017830,000965: 41,2077           54777                           TS       DSPCOUNT                              #  BLOCK NUM CHAR IN
017831,000966: 41,2100           11042                           CCS      CADRSTOR                              
017832,000967: 41,2101           02104                           TC       +3                                    #  EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
017833,000968: 41,2102           02105                           TC       USEADD                                #  ON IF ENDIDLE NOT = +0.
017834,000969: 41,2103           02104                           TC       +1                                    
017835,000970: 41,2104           04427                           TC       FLASHON                               
017836,000971: 41,2105           57005        USEADD             XCH      ZREG                                  
017837,000972: 41,2106           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
017838,000973: 41,2107           00006                           EXTEND                                         
017839,000974: 41,2110           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
017840,000975: 41,2111           52006                           DXCH     Z                                     #  ROUTINE.
017841,000976: 41,2112           02133                           TC       VERBFAN                               
017842,000977: 
017843,000978: 41,2113     0777                                  EBANK=   DSPCOUNT                              

Page 408

017845,000980: 41,2113           02103 64101  LODNNLOC           2CADR    LODNNTAB                              
017846,000981: 
017847,000982: 41,2115           77772        NEG5               OCT      77772                                 
017848,000983: 
017849,000984: 41,2116           30156        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
017850,000985: 41,2117           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
017851,000986: 41,2120           44756                           CS       FIVE                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
017852,000987: 41,2121           61001                           AD       VERBREG                               #  CADR TO BE SPECIFIED.
017853,000988: 41,2122           00006                           EXTEND                                         
017854,000989: 41,2123           12133                           BZF      VERBFAN                               #  DONT DISPLAY CADR IF VB = 05.
017855,000990: 41,2124           34321                           CAF      R3D1                                  #  VB NOT = 05. DISPLAY CADR.
017856,000991: 41,2125           54777                           TS       DSPCOUNT                              
017857,000992: 41,2126           31017                           CA       NOUNCADR                              
017858,000993: 41,2127           03363                           TC       DSPOCTWD                              
017859,000994: 41,2130           02133                           TC       VERBFAN                               
017860,000995: 
017861,000996: 41,2131           64753                           AD       ONE                                   
017862,000997: 41,2132           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
017863,000998: 41,2133           42145        VERBFAN            CS       LST2CON                               
017864,000999: 41,2134           61001                           AD       VERBREG                               #  VERB-LST2CON
017865,001000: 41,2135           10000                           CCS      A                                     
017866,001001: 41,2136           64753                           AD       ONE                                   #  VERB G/ LST2CON
017867,001002: 41,2137           02141                           TC       +2                                    
017868,001003: 41,2140           02146                           TC       VBFANDIR                              #  VERB L/ LST2CON
017869,001004: 41,2141           54154                           TS       MPAC                                  
017870,001005: 41,2142           04457                           TC       RELDSP                                #  RELEASE DISPLAY SYST
017871,001006: 41,2143           04635                           TC       POSTJUMP                              #  GO TO GOEXTVB WITH VB-40 IN MPAC.
017872,001007: 41,2144           66000                           CADR     GOEXTVB                               
017873,001008: 41,2145           00050        LST2CON            DEC      40         B-14                       #  FIRST LIST2 VERB (EXTENDED VERB)
017874,001009: 
017875,001010: 41,2146           51001        VBFANDIR           INDEX    VERBREG                               
017876,001011: 41,2147           32151                           CAF      VERBTAB                               
017877,001012: 41,2150           04640                           TC       BANKJUMP                              
017878,001013: 
017879,001014: 41,2151           62351        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
017880,001015: 41,2152           62365                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
017881,001016: 41,2153           62373                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
017882,001017: 41,2154           62400                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
017883,001018: 41,2155           62360                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
017884,001019: 41,2156           62353                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
017885,001020: 41,2157           62523                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
017886,001021: 41,2160           60771                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
017887,001022: 41,2161           62351                           CADR     GODSPALM                              #  VB08 SPARE
017888,001023: 41,2162           62351                           CADR     GODSPALM                              #  VB09 SPARE
017889,001024: 41,2163           61420                           CADR     DSPALARM                              #  VB10 SPARE
017890,001025: 41,2164           63230                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
017891,001026: 41,2165           63230                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
017892,001027: 41,2166           63230                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
017893,001028: 41,2167           63230                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)

Page 409

017895,001030: 41,2170           63230                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
017896,001031: 41,2171           63230                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
017897,001032: 41,2172           63230                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
017898,001033: 41,2173           62351                           CADR     GODSPALM                              #  VB18 SPARE
017899,001034: 41,2174           62351                           CADR     GODSPALM                              #  VB19 SPARE
017900,001035: 41,2175           62351                           CADR     GODSPALM                              #  VB20 SPARE
017901,001036: 41,2176           62732                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
017902,001037: 41,2177           62743                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
017903,001038: 41,2200           62760                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
017904,001039: 41,2201           62703                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
017905,001040: 41,2202           62616                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
017906,001041: 41,2203           62351                           CADR     GODSPALM                              #  VB26 SPARE
017907,001042: 41,2204           63353                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
017908,001043:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
017909,001044: 41,2205           62351                           CADR     GODSPALM                              #  VB28 SPARE
017910,001045: 41,2206           62351                           CADR     GODSPALM                              #  VB29 SPARE
017911,001046: 41,2207           63466        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
017912,001047: 41,2210           63512                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
017913,001048: 41,2211           61457                           CADR     VBRESEQ                               #  VB32 RESEQUENCE
017914,001049: 41,2212           61442                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
017915,001050: 41,2213           61450                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
017916,001051: 41,2214           63613                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
017917,001052: 41,2215           12447                           CADR     SLAP1                                 #  VB36 FRESH START
017918,001053: 41,2216           63430                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
017919,001054: 41,2217           62351                           CADR     GODSPALM                              #  VB38 SPARE
017920,001055: 41,2220           62351                           CADR     GODSPALM                              #  VB39 SPARE
017921,001056: 
017922,001057:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.

Page 410

017924,001059:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
017925,001060:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
017926,001061:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2.  IT SETS NOUNADD FOR
017927,001062:                                                                                                  #  MIXTEMP.
017928,001063: 
017929,001064: 41,2221           10146        MIXNOUN            CCS      NNADTEM                               
017930,001065: 41,2222           02226                           TC       +4                                    #  + IN USE
017931,001066: 41,2223           02351                           TC       GODSPALM                              #  +0 NOT IN USE
017932,001067: 41,2224           02226                           TC       +2                                    #  - IN USE
017933,001068: 41,2225           02226                           TC       +1                                    #  -0 IN USE
017934,001069: 41,2226           46242                           CS       SIX                                   
017935,001070: 41,2227           61001                           AD       VERBREG                               
017936,001071: 41,2230           00006                           EXTEND                                         
017937,001072: 41,2231           62233                           BZMF     +2                                    #  VERB L/E 6
017938,001073: 41,2232           02133                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
017939,001074: 41,2233           34752                           CAF      TWO                                   
017940,001075: 41,2234           54117        MIXNN1             TS       DECOUNT                               
017941,001076: 41,2235           62260                           AD       MIXAD                                 
017942,001077: 41,2236           54145                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
017943,001078: 41,2237           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
017944,001079: 41,2240           30150                           CA       IDAD1TEM                              #  OF NOUN.
017945,001080: 41,2241           54122                           TS       NOUNTEM                               
017946,001081:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY).  IF SO, GET
017947,001082:                                                                                                  #        MINOR PART ONLY.
017948,001083: 41,2242           03034                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
017949,001084: 41,2243           02261                           TC       DPTEST                                
017950,001085: 41,2244           02246                           TC       MIXNN2                                #  NO DP
017951,001086: 41,2245           24122                           INCR     NOUNTEM                               #  DP GET MINOR PART
017952,001087: 41,2246           30122        MIXNN2             CA       NOUNTEM                               
017953,001088: 41,2247           74356                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1     FOR DP
017954,001089: 41,2250           04313                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
017955,001090: 41,2251           50000                           INDEX    A                                     #  PICK UP C(ESUBK) NOT DP
017956,001091: 41,2252           30000                           CA       0                                     #  OR C((ESUBK)+1) FOR DP MINOR PART
017957,001092: 41,2253           50145                           INDEX    NOUNADD                               
017958,001093: 41,2254           56000                           XCH      0                                     #  STORE IN MIXTEM + K
017959,001094: 41,2255           10117                           CCS      DECOUNT                               
017960,001095: 41,2256           02234                           TC       MIXNN1                                
017961,001096: 41,2257           02133                           TC       VERBFAN                               
017962,001097: 
017963,001098: 41,2260           00125        MIXAD              TC       MIXTEMP                               
017964,001099: 
017965,001100:                                                                                                  #  DPTEST        ENTER WITH SF ROUT NUMBER IN A.
017966,001101:                                                                                                  #                RETURNS TO L+1 IF NO DP.
017967,001102:                                                                                                  #                RETURNS TO L+2 IF DP.
017968,001103: 
017969,001104: 41,2261           50000        DPTEST             INDEX    A                                     
017970,001105: 41,2262           12263                           TCF      +1                                    
017971,001106: 41,2263           00002                           TC       Q                                     #  OCTAL ONLY NO DP
017972,001107: 41,2264           00002                           TC       Q                                     #  FRACT NO DP

Page 411

017974,001109: 41,2265           00002                           TC       Q                                     #  DEG  NO DP
017975,001110: 41,2266           00002                           TC       Q                                     #  ARITH  NO DP
017976,001111: 41,2267           12301                           TCF      DPTEST1                               #  DP1OUT
017977,001112: 41,2270           12301                           TCF      DPTEST1                               #  DP2OUT
017978,001113: 41,2271           00002                           TC       Q                                     #  LRPOSOUT NO DP (DATA IN CHANNEL 33)
017979,001114: 41,2272           12301                           TCF      DPTEST1                               #  DP3OUT
017980,001115: 41,2273           00002                           TC       Q                                     #  HMS   NO DP
017981,001116: 41,2274           00002                           TC       Q                                     #  M/S   NO DP
017982,001117: 41,2275           12301                           TCF      DPTEST1                               #  DP4OUT
017983,001118: 41,2276           00002                           TC       Q                                     #  ARITH1   NO DP
017984,001119: 41,2277           00002                           TC       Q                                     #  2INTOUT  NO DP TO GET HI PART IN MPAC
017985,001120: 41,2300           00002                           TC       Q                                     #  360-CDU   NO DP
017986,001121: 41,2301           50002        DPTEST1            INDEX    Q                                     
017987,001122: 41,2302           00001                           TC       1                                     #  RETURN TO L+2
017988,001123: 
017989,001124: 41,2303           34317        REQDATX            CAF      R1D1                                  
017990,001125: 41,2304           12310                           TCF      REQCOM                                
017991,001126: 41,2305           34320        REQDATY            CAF      R2D1                                  
017992,001127: 41,2306           12310                           TCF      REQCOM                                
017993,001128: 41,2307           34321        REQDATZ            CAF      R3D1                                  
017994,001129: 41,2310           54777        REQCOM             TS       DSPCOUNT                              
017995,001130: 41,2311           40002                           CS       Q                                     
017996,001131: 41,2312           55013                           TS       REQRET                                
017997,001132: 41,2313           04616                           TC       BANKCALL                              
017998,001133: 41,2314           60536                           CADR     5BLANK                                
017999,001134: 41,2315           04427                           TC       FLASHON                               
018000,001135: 41,2316           00136        ENDRQDAT           TC       ENTEXIT                               
018001,001136: 
018002,001137: 41,2317           55002                           TS       NOUNREG                               
018003,001138: 41,2320           56002        UPDATNN            XCH      Q                                     
018004,001139: 41,2321           54117                           TS       UPDATRET                              
018005,001140: 41,2322           00006                           EXTEND                                         
018006,001141: 41,2323           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018007,001142: 41,2324           52006                           DXCH     Z                                     #  ROUTINE.
018008,001143: 41,2325           10146                           CCS      NNADTEM                               
018009,001144: 41,2326           64753                           AD       ONE                                   #  NORMAL
018010,001145: 41,2327           12332                           TCF      PUTADD                                
018011,001146: 41,2330           12333                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
018012,001147: 41,2331           12333                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
018013,001148: 41,2332           04303        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018014,001149: 41,2333           34361                           CAF      ND1                                   
018015,001150: 41,2334           54777                           TS       DSPCOUNT                              
018016,001151: 41,2335           31002                           CA       NOUNREG                               
018017,001152: 41,2336           12345                           TCF      UPDAT1                                
018018,001153: 
018019,001154: 41,2337           55001                           TS       VERBREG                               
018020,001155: 41,2340           56002        UPDATVB            XCH      Q                                     
018021,001156: 41,2341           54117                           TS       UPDATRET                              
018022,001157: 41,2342           34360                           CAF      VD1                                   

Page 412

018024,001159: 41,2343           54777                           TS       DSPCOUNT                              
018025,001160: 41,2344           31001                           CA       VERBREG                               
018026,001161: 41,2345           04635        UPDAT1             TC       POSTJUMP                              #  CANT USE SWCALL TO GO TO DSPDECVN, SINCE
018027,001162: 41,2346           61317                           CADR     GOVNUPDT                              #  UPDATVB CAN ITSELF BE CALLED BY SWCALL.
018028,001163: 41,2347           00117                           TC       UPDATRET                              
018029,001164: 
018030,001165: 41,2350           04145        GOALMCYC           TC       ALMCYCLE                              #  NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
018031,001166: 
018032,001167: 41,2351           04635        GODSPALM           TC       POSTJUMP                              
018033,001168: 41,2352           61420                           CADR     DSPALARM                              
018034,001169: 

Page 413

018036,001171:                                                                                                  #  NOUN TABLES
018037,001172: 
018038,001173:                                                                                                  #  NOUN CODE L/40, NORMAL NOUN CASE.  NOUN CODE G/E 40, MIXED NOUN CASE.
018039,001174:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
018040,001175:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR (E OR F) TO
018041,001176:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED.  -0 INDICATES AUGMENT
018042,001177:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
018043,001178: 
018044,001179:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS (IDADDREL) IN LOW
018045,001180:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
018046,001181: 
018047,001182:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
018048,001183: 
018049,001184:                                                                                                  #  FOR THE NORMAL CASE,  M-S ARE THE COMPONENT CODE NUMBER.
018050,001185:                                                                                                  #                        N-S ARE THE SF ROUTINE CODE NUMBER.
018051,001186:                                                                                                  #                        P-S ARE THE SF CONSTANT CODE NUMBER.
018052,001187: 
018053,001188:                                                                                                  #  MIXED CASE,           M-S ARE THE SF CONSTANT3 CODE NUMBER    3 COMPONENT CASE
018054,001189:                                                                                                  #                        N-S ARE THE SF CONSTANT2 CODE NUMBER
018055,001190:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER
018056,001191:                                                                                                  #                        N-S ARE THE SF CONSTANT2 CODE NUMBER    2 COMPONENT CASE
018057,001192:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER
018058,001193:                                                                                                  #                        P-S ARE THE SF CONSTANT1 CODE NUMBER    1 COMPONENT CASE
018059,001194: 
018060,001195:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE (IDADDTAB) FOR MIXED CASE ONLY.
018061,001196:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
018062,001197:                                                                                                  #  THE FIRST OF THESE ENTRIES.
018063,001198:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
018064,001199:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
018065,001200: 
018066,001201:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE (RUTMXTAB) FOR MIXED
018067,001202:                                                                                                  #  CASE ONLY.  THERE IS ONE ENTRY PER MIXED NOUN.  THE FORM IS,
018068,001203: 
018069,001204:                                                                                                  #        QQQQQRRRRRSSSSS
018070,001205: 
018071,001206:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER          3 COMPONENT CASE
018072,001207:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
018073,001208:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
018074,001209:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER          2 COMPONENT CASE
018075,001210:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
018076,001211: 
018077,001212:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
018078,001213:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
018079,001214:                                                                                                  #  (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
018080,001215: 
018081,001216:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
018082,001217:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
018083,001218: 
018084,001219:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
018085,001220:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
018086,001221: 

Page 414

018088,001223:                                                                                                  #  DISPLAY VERBS
018089,001224: 
018090,001225: 41,2353           44752        DSPABC             CS       TWO                                   
018091,001226: 41,2354           02424                           TC       COMPTEST                              
018092,001227: 41,2355           50145                           INDEX    NOUNADD                               
018093,001228: 41,2356           40002                           CS       2                                     
018094,001229: 41,2357           56132                           XCH      BUF        +2                         
018095,001230: 41,2360           44753        DSPAB              CS       ONE                                   
018096,001231: 41,2361           02424                           TC       COMPTEST                              
018097,001232: 41,2362           50145                           INDEX    NOUNADD                               
018098,001233: 41,2363           40001                           CS       1                                     
018099,001234: 41,2364           56131                           XCH      BUF        +1                         
018100,001235: 41,2365           02443        DSPA               TC       DECTEST                               
018101,001236: 41,2366           02466                           TC       TSTFORDP                              
018102,001237: 41,2367           50145                           INDEX    NOUNADD                               
018103,001238: 41,2370           40000                           CS       0                                     
018104,001239: 41,2371           56130        DSPCOM1            XCH      BUF                                   
018105,001240: 41,2372           02405                           TC       DSPCOM2                               
018106,001241: 41,2373           44753        DSPB               CS       ONE                                   
018107,001242: 41,2374           02437                           TC       DCOMPTST                              
018108,001243: 41,2375           50145                           INDEX    NOUNADD                               
018109,001244: 41,2376           40001                           CS       1                                     
018110,001245: 41,2377           02371                           TC       DSPCOM1                               
018111,001246: 41,2400           44752        DSPC               CS       TWO                                   
018112,001247: 41,2401           02437                           TC       DCOMPTST                              
018113,001248: 41,2402           50145                           INDEX    NOUNADD                               
018114,001249: 41,2403           40002                           CS       2                                     
018115,001250: 41,2404           02371                           TC       DSPCOM1                               
018116,001251: 41,2405           44752        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
018117,001252: 41,2406           61001                           AD       VERBREG                               #  -1 -0 +1 +2 +3   IN A
018118,001253: 41,2407           10000                           CCS      A                                     #  +0 +0 +0 +1 +2   IN A AFTER CCS
018119,001254: 41,2410           02413                           TC       DSPCOM3                               
018120,001255: 41,2411           00136                           TC       ENTEXIT                               
018121,001256: 41,2412           02413                           TC       +1                                    
018122,001257: 41,2413           54122        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
018123,001258: 41,2414           50000                           INDEX    A                                     
018124,001259: 41,2415           34317                           CAF      R1D1                                  
018125,001260: 41,2416           54777                           TS       DSPCOUNT                              
018126,001261: 41,2417           50122                           INDEX    DISTEM                                
018127,001262: 41,2420           40130                           CS       BUF                                   
018128,001263: 41,2421           03363                           TC       DSPOCTWD                              
018129,001264: 41,2422           56122                           XCH      DISTEM                                
018130,001265: 41,2423           02407                           TC       DSPCOM2    +2                         
018131,001266: 
018132,001267:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
018133,001268:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
018134,001269: 
018135,001270: 41,2424           54123        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
018136,001271: 41,2425           22002                           LXCH     Q                                     
018137,001272: 41,2426           02515        COMPTST1           TC       GETCOMP                               
018138,001273: 41,2427           04331                           TC       LEFT5                                 
018139,001274: 41,2430           76245                           MASK     THREE                                 #  NOUN COMP

Page 415

018141,001276: 41,2431           60123                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
018142,001277: 41,2432           10000                           CCS      A                                     
018143,001278: 41,2433           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
018144,001279: 41,2434           05705                           TC       CCSHOLE                               
018145,001280: 41,2435           02351                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
018146,001281: 41,2436           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
018147,001282: 
018148,001283:                                                                                                  #  DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
018149,001284:                                                                                                  #  IF NOT, IT PERFORMS REGULAR COMPTEST.
018150,001285: 
018151,001286: 41,2437           54123        DCOMPTST           TS       SFTEMP1                               #  - VERB COMP
018152,001287: 41,2440           22002                           LXCH     Q                                     
018153,001288: 41,2441           02443                           TC       DECTEST                               
018154,001289: 41,2442           02426                           TC       COMPTST1                              
018155,001290: 
018156,001291: 41,2443           00006        DECTEST            EXTEND                                         #  ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
018157,001292: 41,2444           22156                           QXCH     MPAC       +2                         #  CODE NUMBER).  RETURNS IF NOT.
018158,001293: 41,2445           02515                           TC       GETCOMP                               
018159,001294: 41,2446           74736                           MASK     BIT14                                 
018160,001295: 41,2447           10000                           CCS      A                                     
018161,001296: 41,2450           02351                           TC       GODSPALM                              
018162,001297: 41,2451           00156                           TC       MPAC       +2                         
018163,001298: 
018164,001299: 41,2452           22002        DCTSTCYC           LXCH     Q                                     #  ALARMS AND RECYCLES IF DEC ONLY BIT = 1
018165,001300: 41,2453           02515                           TC       GETCOMP                               #  (BIT4 OF COMP CODE NUMBER). RETURNS
018166,001301: 41,2454           74736                           MASK     BIT14                                 #  IF NOT.  USED BY LOAD VERBS.
018167,001302: 41,2455           10000                           CCS      A                                     
018168,001303: 41,2456           04145                           TC       ALMCYCLE                              
018169,001304: 41,2457           00001                           TC       L                                     
018170,001305: 
018171,001306:                                                                                                  #  NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
018172,001307:                                                                                                  #  IF NOT, IT RETURNS.
018173,001308: 
018174,001309: 41,2460           22002        NOUNTEST           LXCH     Q                                     
018175,001310: 41,2461           02515                           TC       GETCOMP                               
018176,001311: 41,2462           10000                           CCS      A                                     
018177,001312: 41,2463           00001                           TC       L                                     
018178,001313: 41,2464           00001                           TC       L                                     
018179,001314: 41,2465           02351                           TC       GODSPALM                              
018180,001315: 
018181,001316: 41,2466           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
018182,001317: 41,2467           30146                           CA       NNADTEM                               
018183,001318: 41,2470           64753                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
018184,001319: 41,2471           00006                           EXTEND                                         
018185,001320: 41,2472           12504                           BZF      CHANDSP                               
018186,001321: 41,2473           50140                           INDEX    MIXBR                                 
018187,001322: 41,2474           02474                           TC       +0                                    
018188,001323: 41,2475           02477                           TC       +2                                    #  NORMAL

Page 416

018190,001325: 41,2476           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
018191,001326: 41,2477           03026                           TC       SFRUTNOR                              
018192,001327: 41,2500           02261                           TC       DPTEST                                
018193,001328: 41,2501           00001                           TC       L                                     #  NO DP
018194,001329: 41,2502           24145                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
018195,001330: 41,2503           00001                           TC       L                                     
018196,001331: 
018197,001332: 41,2504           31017        CHANDSP            CA       NOUNCADR                              
018198,001333: 41,2505           75004                           MASK     LOW9                                  
018199,001334: 41,2506           00006                           EXTEND                                         
018200,001335: 41,2507           50000                           INDEX    A                                     
018201,001336: 41,2510           00000                           READ     0                                     
018202,001337: 41,2511           40000                           CS       A                                     
018203,001338: 41,2512           12371                           TCF      DSPCOM1                               
018204,001339: 
018205,001340: 41,2513           00147        COMPICK            ADRES    NNTYPTEM                              
018206,001341: 41,2514           00146                           ADRES    NNADTEM                               
018207,001342: 
018208,001343: 41,2515           50140        GETCOMP            INDEX    MIXBR                                 #  NORMAL                        MIXED
018209,001344: 41,2516           32512                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM                ADRES NNADTEM
018210,001345: 41,2517           50000                           INDEX    A                                     
018211,001346: 41,2520           30000                           CA       0                                     #  C(NNTYPTEM)                   C(NNADTEM)
018212,001347: 41,2521           74350                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB (NORM)    OF NNADTAB (MIX)
018213,001348: 41,2522           00002                           TC       Q                                     
018214,001349: 
018215,001350: 41,2523           02515        DECDSP             TC       GETCOMP                               
018216,001351: 41,2524           04331                           TC       LEFT5                                 
018217,001352: 41,2525           76245                           MASK     THREE                                 
018218,001353: 41,2526           54117                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
018219,001354: 41,2527           54122        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
018220,001355: 41,2530           60145                           AD       NOUNADD                               #  DECTEM 1COMP +0, 2COMP +1, 3COMP +2
018221,001356: 41,2531           50000                           INDEX    A                                     
018222,001357: 41,2532           40000                           CS       0                                     
018223,001358: 41,2533           50122                           INDEX    DECTEM                                
018224,001359: 41,2534           57003                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
018225,001360: 41,2535           10122                           CCS      DECTEM                                
018226,001361: 41,2536           02527                           TC       DSPDCGET                              #  MORE TO GET
018227,001362: 41,2537           34755        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
018228,001363: 41,2540           54155                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
018229,001364: 41,2541           54156                           TS       MPAC       +2                         
018230,001365: 41,2542           50117                           INDEX    DECOUNT                               
018231,001366: 41,2543           34317                           CAF      R1D1                                  
018232,001367: 41,2544           54777                           TS       DSPCOUNT                              
018233,001368: 41,2545           50117                           INDEX    DECOUNT                               
018234,001369: 41,2546           41003                           CS       XREG                                  
018235,001370: 41,2547           54154                           TS       MPAC                                  
018236,001371: 41,2550           03047                           TC       SFCONUM                               #  2X (SF CON NUMB) IN A

Page 417

018238,001373: 41,2551           54123                           TS       SFTEMP1                               
018239,001374: 41,2552           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
018240,001375: 41,2553           32565                           DCA      GTSFOUTL                              #        READING ROUTINE.
018241,001376: 41,2554           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
018242,001377: 41,2555           50140                           INDEX    MIXBR                                 
018243,001378: 41,2556           02556                           TC       +0                                    
018244,001379: 41,2557           02562                           TC       DSPSFNOR                              
018245,001380: 41,2560           03034                           TC       SFRUTMIX                              
018246,001381: 41,2561           02575                           TC       DECDSP3                               
018247,001382: 
018248,001383: 41,2562           03026        DSPSFNOR           TC       SFRUTNOR                              
018249,001384: 41,2563           02575                           TC       DECDSP3                               
018250,001385: 
018251,001386: 41,2564     0777                                  EBANK=   DSPCOUNT                              
018252,001387: 41,2564           02141 64101  GTSFOUTL           2CADR    GTSFOUT                               
018253,001388: 
018254,001389: 41,2566           04616        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
018255,001390: 41,2567           61226                           CADR     DSPDECWD                              
018256,001391: 41,2570           10117                           CCS      DECOUNT                               
018257,001392: 41,2571           02573                           TC       +2                                    
018258,001393: 41,2572           00136                           TC       ENTEXIT                               
018259,001394: 41,2573           54117                           TS       DECOUNT                               
018260,001395: 41,2574           02537                           TC       DSPDCPUT                              #  MORE TO DISPLAY
018261,001396: 
018262,001397: 41,2575           50000        DECDSP3            INDEX    A                                     
018263,001398: 41,2576           32600                           CAF      SFOUTABR                              
018264,001399: 41,2577           04640                           TC       BANKJUMP                              
018265,001400: 
018266,001401: 41,2600           61416        SFOUTABR           CADR     PREDSPAL                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
018267,001402: 41,2601           62566                           CADR     DSPDCEND                              
018268,001403: 41,2602           60615                           CADR     DEGOUTSF                              
018269,001404: 41,2603           60677                           CADR     ARTOUTSF                              
018270,001405: 41,2604           60710                           CADR     DP1OUTSF                              
018271,001406: 41,2605           60715                           CADR     DP2OUTSF                              
018272,001407: 41,2606           60635                           CADR     LRPOSOUT                              
018273,001408: 41,2607           60717                           CADR     DP3OUTSF                              
018274,001409: 41,2610           65230                           CADR     HMSOUT                                
018275,001410: 41,2611           65303                           CADR     M/SOUT                                
018276,001411: 41,2612           60715                           CADR     DP2OUTSF                              
018277,001412: 41,2613           60704                           CADR     AROUT1SF                              
018278,001413: 41,2614           60732                           CADR     2INTOUT                               
018279,001414: 41,2615           60623                           CADR     360-CDUO                              
018280,001415: 41,2616                        ENDRTOUT           EQUALS                                         
018281,001416: 
018282,001417:                                                                                                  #  THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
018283,001418:                                                                                                  #  LTS IN MPAC, MPAC+1.  ENDS WITH TC DSPDCEND
018284,001419: 

Page 418

018286,001421: 40,2615                                           SETLOC   BLANKCON   +1                         
018287,001422: 
018288,001423: 40,2615                                           COUNT*   $$/PIN                                
018289,001424:                                                                                                  #  DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
018290,001425:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
018291,001426: 
018292,001427: 40,2615           34755        DEGOUTSF           CAF      ZERO                                  
018293,001428: 40,2616           54156                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
018294,001429: 40,2617           02652                           TC       FIXRANGE                              
018295,001430: 40,2620           02622                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
018296,001431: 40,2621           02645                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
018297,001432: 40,2622           02663                           TC       DEGCOM                                
018298,001433: 
018299,001434:                                                                                                  #  360-CDUO COMPUTES 360 - CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND
018300,001435:                                                                                                  #  GOES TO DEGOUTSF.
018301,001436: 
018302,001437: 40,2623           02625        360-CDUO           TC       360-CDU                               
018303,001438: 40,2624           02615                           TC       DEGOUTSF                              
018304,001439: 
018305,001440: 40,2625           30154        360-CDU            CA       MPAC                                  
018306,001441: 40,2626           74733                           MASK     POSMAX                                #  IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING
018307,001442: 40,2627           00006                           EXTEND                                         
018308,001443: 40,2630           12634                           BZF      360-CDUE                              
018309,001444: 40,2631           40154                           CS       MPAC                                  #  COMPUTE 360 DEGREES MINUS ANGLE
018310,001445: 40,2632           64753                           AD       ONE                                   
018311,001446: 40,2633           54154                           TS       MPAC                                  
018312,001447: 40,2634           00002        360-CDUE           TC       Q                                     
018313,001448: 
018314,001449:                                                                                                  #  LRPOSOUT DISPLAYS +0,1,2, OR 3 (WHOLE) FOR CHANNEL 33, BITS 7-6 = 11,10,
018315,001450:                                                                                                  #  01,00 RESPECTIVELY.
018316,001451: 
018317,001452: 40,2635           00006        LRPOSOUT           EXTEND                                         
018318,001453: 40,2636           00033                           READ     CHAN33                                
018319,001454: 40,2637           00006                           EXTEND                                         
018320,001455: 40,2640           74742                           MP       BIT10                                 #  BITS 7-6 TO BITS 2-1
018321,001456: 40,2641           40000                           COM                                            
018322,001457: 40,2642           76245                           MASK     THREE                                 
018323,001458: 40,2643           54154                           TS       MPAC                                  
018324,001459: 40,2644           02677                           TC       ARTOUTSF                              #  DISPLAY AS WHOLE
018325,001460: 
018326,001461: 40,2645           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
018327,001462: 40,2646           50156                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
018328,001463: 40,2647           32674                           DCA      DEGTAB                                
018329,001464: 40,2650           52124                           DXCH     SFTEMP1                               
018330,001465: 40,2651           00002                           TC       Q                                     
018331,001466: 
018332,001467: 40,2652           10154        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
018333,001468: 40,2653           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
018334,001469: 40,2654           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
018335,001470: 40,2655           12656                           TCF      +1                                    
018336,001471: 

Page 419

018338,001473: 40,2656           44735                           CS       BIT15                                 
018339,001474: 40,2657           70154                           MASK     MPAC                                  
018340,001475: 40,2660           54154                           TS       MPAC                                  
018341,001476: 40,2661           50002                           INDEX    Q                                     
018342,001477: 40,2662           00001                           TC       1                                     
018343,001478: 
018344,001479: 40,2663           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
018345,001480: 40,2664           50156                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
018346,001481: 40,2665           32674                           DCA      DEGTAB                                
018347,001482: 40,2666           52155                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
018348,001483: 40,2667           07307                           TC       SHORTMP                               
018349,001484: 40,2670           52124                           DXCH     SFTEMP1                               
018350,001485: 40,2671           20155                           DAS      MPAC                                  
018351,001486: 40,2672           02702                           TC       SCOUTEND                              
018352,001487: 
018353,001488: 40,2673           05605        DEGTAB             OCT      05605                                 #  HI PART OF    .18
018354,001489: 40,2674           03656                           OCT      03656                                 #  LOW PART OF   .18
018355,001490: 40,2675           16314                           OCT      16314                                 #  HI PART OF    .45
018356,001491: 40,2676           31463                           OCT      31463                                 #  LO PART OF    .45
018357,001492: 
018358,001493: 40,2677           52124        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
018359,001494: 40,2700           52155                           DXCH     MPAC                                  
018360,001495: 40,2701           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
018361,001496: 40,2702           04635        SCOUTEND           TC       POSTJUMP                              
018362,001497: 40,2703           62566                           CADR     DSPDCEND                              
018363,001498: 
018364,001499: 40,2704           52124        AROUT1SF           DXCH     SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS OF
018365,001500: 40,2705           52155                           DXCH     MPAC                                  #  DP SFCON. SHIFTS RESULTS LEFT 14, BY
018366,001501: 40,2706           04415                           TC       PRSHRTMP                              #  TAKING RESULTS FROM MPAC+1, MPAC+2.
018367,001502: 40,2707           02711                           TC       L14/OUT                               
018368,001503: 
018369,001504: 40,2710           02723        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
018370,001505: 40,2711           56156        L14/OUT            XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
018371,001506: 40,2712           56155                           XCH      MPAC       +1                         #  BY B14.
018372,001507: 40,2713           54154                           TS       MPAC                                  
018373,001508: 40,2714           02702                           TC       SCOUTEND                              
018374,001509: 
018375,001510: 40,2715           02723        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
018376,001511: 40,2716           02702                           TC       SCOUTEND                              
018377,001512: 
018378,001513: 40,2717           02723        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
018379,001514: 40,2720           36242                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
018380,001515: 40,2721           03153                           TC       TPLEFTN                               #  SHIFT LEFT 7.
018381,001516: 40,2722           02702                           TC       SCOUTEND                              

Page 420

018383,001518: 40,2723     0162               MPAC+6             =        MPAC       +6                         #  USE MPAC +6 INSTEAD OF OVFIND
018384,001519: 
018385,001520: 40,2723           56002        DPOUT              XCH      Q                                     
018386,001521: 40,2724           54162                           TS       MPAC+6                                
018387,001522: 40,2725           02747                           TC       READLO                                #  GET FRESH DATA FOR BOTH HI AND LO.
018388,001523: 40,2726           07257                           TC       TPAGREE                               #  MAKE DP DATA AGREE
018389,001524: 40,2727           07103                           TC       DMP                                   
018390,001525: 40,2730           00123                           ADRES    SFTEMP1                               
018391,001526: 40,2731           00162                           TC       MPAC+6                                
018392,001527: 
018393,001528:                                                                                                  #  THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
018394,001529:                                                                                                  #  AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
018395,001530:                                                                                                  #  BLANKED).  THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
018396,001531:                                                                                                  #  RXD1-RXD2.
018397,001532: 
018398,001533: 40,2732           02536        2INTOUT            TC       5BLANK                                #  TO BLANK RXD3
018399,001534: 40,2733           02413                           TC       +ON                                   #  TURN ON + SIGN
018400,001535: 40,2734           30154                           CA       MPAC                                  
018401,001536: 40,2735           03306                           TC       DSPDECVN                              #  DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
018402,001537: 40,2736           46245                           CS       THREE                                 
018403,001538: 40,2737           50117                           INDEX    DECOUNT                               
018404,001539: 40,2740           64317                           AD       R1D1                                  #  RXD4
018405,001540: 40,2741           54777                           TS       DSPCOUNT                              
018406,001541: 40,2742           02747                           TC       READLO                                #  GET 2ND INTEGER
018407,001542: 40,2743           30155                           CA       MPAC       +1                         
018408,001543: 40,2744           03306                           TC       DSPDECVN                              #  DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
018409,001544: 40,2745           04635                           TC       POSTJUMP                              
018410,001545: 40,2746           62570                           CADR     DSPDCEND   +2                         
018411,001546: 
018412,001547:                                                                                                  #  READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN 
018413,001548:                                                                                                  #  MPAC, MPAC+1.  THIS IS NEEDED FOR TIME DISPLAY.  IT ZEROES MPAC+2, BUT
018414,001549:                                                                                                  #  DOES NOT FORCE TPAGREE.
018415,001550: 
018416,001551: 40,2747           56002        READLO             XCH      Q                                     
018417,001552: 40,2750           54144                           TS       TEM4                                  
018418,001553: 40,2751           50140                           INDEX    MIXBR                                 
018419,001554: 40,2752           02752                           TC       +0                                    
018420,001555: 40,2753           02767                           TC       RDLONOR                               
018421,001556: 40,2754           50117                           INDEX    DECOUNT                               
018422,001557: 40,2755           30150                           CA       IDAD1TEM                              #  GET IDADDTAB ENTRY FOR COMP K OF NOUN.
018423,001558: 40,2756           74356                           MASK     LOW11                                 #  E SUBK
018424,001559: 40,2757           04313                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
018425,001560: 40,2760           00006        READLO1            EXTEND                                         #  MIXED                 NORMAL
018426,001561: 40,2761           50000                           INDEX    A                                     #  C(ESUBK)              C(E)
018427,001562: 40,2762           30001                           DCA      0                                     #  C((E SUBK)+1)         C(E+1)
018428,001563: 40,2763           52155                           DXCH     MPAC                                  
018429,001564: 40,2764           34755                           CAF      ZERO                                  
018430,001565: 40,2765           54156                           TS       MPAC       +2                         
018431,001566: 40,2766           00144                           TC       TEM4                                  

Page 421

018433,001568: 40,2767           30145        RDLONOR            CA       NOUNADD                               #  E
018434,001569: 40,2770           02760        ENDRDLO            TC       READLO1                               
018435,001570: 
018436,001571: 42,3230                                           BANK     42                                    
018437,001572: 42,2000                                           SETLOC   PINBALL3                              
018438,001573: 42,2000                                           BANK                                           
018439,001574: 
018440,001575: 42,3230                                           COUNT*   $$/PIN                                
018441,001576: 42,3230           04616        HMSOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
018442,001577: 42,3231           60747                           CADR     READLO                                #  MPAC+1.
018443,001578: 42,3232           07257                           TC       TPAGREE                               #  MAKE DP DATA AGREE
018444,001579: 42,3233           03417                           TC       SEPSECNR                              #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1. LEAVE
018445,001580:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
018446,001581: 42,3234           07103                           TC       DMP                                   #  USE ONLY FRACT SEC/60 MOD 60
018447,001582: 42,3235           03271                           ADRES    SECON2                                #  MULT BY .06
018448,001583: 42,3236           34321                           CAF      R3D1                                  #  GIVES CENTI-SEC/10EXP5 MOD 60
018449,001584: 42,3237           54777                           TS       DSPCOUNT                              
018450,001585: 42,3240           04616                           TC       BANKCALL                              #  DISPLAY SEC MOD 60
018451,001586: 42,3241           61226                           CADR     DSPDECWD                              
018452,001587: 42,3242           03435                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
018453,001588: 42,3243           33273                           CAF      MINCON2                               #  LEAVE FRACT MIN/60 IN MPAC+1.  LEAVE
018454,001589: 42,3244           56154                           XCH      MPAC                                  #  WHOLE HOURS IN MPAC.
018455,001590: 42,3245           55007                           TS       HITEMOUT                              #  SAVE WHOLE HOURS.
018456,001591: 42,3246           33274                           CAF      MINCON2    +1                         
018457,001592: 42,3247           56155                           XCH      MPAC       +1                         #  USE ONLY FRACT MIN/60 MOD 60
018458,001593: 42,3250           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
018459,001594:                                                                                                  #  MULT BY .0006
018460,001595: 42,3251           34320                           CAF      R2D1                                  #  GIVES MIN/10EXP5 MOD 60
018461,001596: 42,3252           54777                           TS       DSPCOUNT                              
018462,001597: 42,3253           04616                           TC       BANKCALL                              #  DISPLAY MIN MOD 60
018463,001598: 42,3254           61226                           CADR     DSPDECWD                              
018464,001599: 42,3255           00006                           EXTEND                                         #  MINUTES, SECONDS HAVE BEEN REMOVED
018465,001600: 42,3256           33300                           DCA      HRCON1                                
018466,001601: 42,3257           52155                           DXCH     MPAC                                  
018467,001602: 42,3260           31007                           CA       HITEMOUT                              #  USE WHOLE HOURS
018468,001603: 42,3261           04415                           TC       PRSHRTMP                              #  IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
018469,001604:                                                                                                  #  MULT BY .16384
018470,001605: 42,3262           34317                           CAF      R1D1                                  #  GIVES HOURS/10EXP5
018471,001606: 42,3263           54777                           TS       DSPCOUNT                              
018472,001607: 42,3264           04616                           TC       BANKCALL                              #  USE REGULAR DSPDECWD, WITH ROUND OFF.
018473,001608: 42,3265           61226                           CADR     DSPDECWD                              
018474,001609: 42,3266           00136                           TC       ENTEXIT                               
018475,001610: 
018476,001611: 42,3267           25660 31742  SECON1             2DEC*    1.666666666 E-4        B12*            #  2EXP12/6000
018477,001612: 42,3271           01727        SECON2             OCT      01727                                 #  .06 FOR SECONDS DISPLAY
018478,001613: 42,3272           01217                           OCT      01217                                 
018479,001614: 42,3273           00011        MINCON2            OCT      00011                                 #  .0006 FOR MINUTES DISLPAY
018480,001615: 42,3274           32445                           OCT      32445                                 

Page 422

018482,001617: 42,3275           02104        MINCON1            OCT      02104                                 #  .066..66 UPPED BY 2EXP-28
018483,001618: 42,3276           10422                           OCT      10422                                 
018484,001619: 42,3277           05174 13261  HRCON1             2DEC     .16384                                
018485,001620: 
018486,001621: 42,3301           00000                           OCT      00000                                 
018487,001622: 42,3302           00062        RNDCON             OCT      00062                                 #  .5 SEC
018488,001623: 
018489,001624: 42,3303           04616        M/SOUT             TC       BANKCALL                              #  READ FRESH DATA FOR HI AND LO INTO MPAC,
018490,001625: 42,3304           60747                           CADR     READLO                                #  MPAC+1.
018491,001626: 42,3305           07257                           TC       TPAGREE                               #  MAKE DP DATA AGREE
018492,001627: 42,3306           10154                           CCS      MPAC                                  #  IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
018493,001628: 42,3307           03311                           TC       +2                                    #  DISPLAY 59B59, WITH PROPER SIGN.
018494,001629: 42,3310           03342                           TC       M/SNORM                               #  MPAC = +0. L/ 59M58.5S
018495,001630: 42,3311           63377                           AD       M/SCON1                               #  - HI PART OF (59M58.5S) +1 FOR CCS
018496,001631: 42,3312           10000                           CCS      A                                     #  MAG OF MPAC - HI PART OF (59M58.5S)
018497,001632: 42,3313           03326                           TC       M/SLIMIT                              #  G/ 59M58.5S
018498,001633: 42,3314           03342                           TC       M/SNORM                               #  ORIGINAL MPAC = -0. L/ 59M58.5S
018499,001634: 42,3315           03342                           TC       M/SNORM                               #  L/ 59M58.5S
018500,001635: 42,3316           10155                           CCS      MPAC       +1                         #  MAG OF MPAC = HI PART OF 59M58.5S
018501,001636: 42,3317           03321                           TC       +2                                    
018502,001637: 42,3320           03342                           TC       M/SNORM                               #  MPAC+1 = +0. L/ 59M58.5S
018503,001638: 42,3321           63400                           AD       M/SCON2                               #  - LO PART OF (59M58.5S) +1 FOR CCS
018504,001639: 42,3322           10000                           CCS      A                                     #  MAG OF MPAC+1 - LO PART OF (59M58.5S)
018505,001640: 42,3323           03326                           TC       M/SLIMIT                              #  G/ 59M58.5S
018506,001641: 42,3324           03342                           TC       M/SNORM                               #  ORIGINAL MPAC+1 = -0. L/ 59M58.5S
018507,001642: 42,3325           03342                           TC       M/SNORM                               #  L/ 59M58.5S
018508,001643: 42,3326           10154        M/SLIMIT           CCS      MPAC                                  #  = 59M58.5S    LIMIT
018509,001644: 42,3327           33402                           CAF      M/SCON3                               #  MPAC CANNOT BE +/- 0 AT THIS POINT.
018510,001645: 42,3330           03337                           TC       +LIMIT                                #  FORCE MPAC, MPAC+1 TO +/- 59M59.5S
018511,001646: 42,3331           43402                           CS       M/SCON3                               
018512,001647: 42,3332           54154                           TS       MPAC                                  #  WILL DISPLAY 59M59S IN DSPDECNR
018513,001648: 42,3333           43403                           CS       M/SCON3    +1                         
018514,001649: 42,3334           54155        LIMITCOM           TS       MPAC       +1                         
018515,001650: 42,3335           33401                           CAF      NORMADR                               #  SET RETURN TO M/SNORM+1.
018516,001651: 42,3336           03420                           TC       SEPSECNR   +1                         
018517,001652: 42,3337           54154        +LIMIT             TS       MPAC                                  
018518,001653: 42,3340           33403                           CAF      M/SCON3    +1                         
018519,001654: 42,3341           03334                           TC       LIMITCOM                              
018520,001655: 42,3342           03404        M/SNORM            TC       SEPSEC                                #  LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
018521,001656:                                                                                                  #  WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
018522,001657: 42,3343           33375                           CAF      HISECON                               #  USE ONLY FRACT SEC/60 MOD 60
018523,001658: 42,3344           07307                           TC       SHORTMP                               #  MULT BY .6 + 2EXP-14
018524,001659: 42,3345           46245                           CS       THREE                                 #  GIVES SEC/100 MOD 60
018525,001660: 42,3346           26777                           ADS      DSPCOUNT                              #  DSPCOUNT ALREADY SET TO RXD1
018526,001661: 42,3347           04616                           TC       BANKCALL                              #  DISPLAY SEC MOD 60 IN D4D5.
018527,001662: 42,3350           61266                           CADR     DSPDC2NR                              
018528,001663: 42,3351           34755                           CAF      ZERO                                  
018529,001664: 42,3352           54124                           TS       CODE                                  
018530,001665: 42,3353           44752                           CS       TWO                                   

Page 423

018532,001667: 42,3354           50117                           INDEX    DECOUNT                               
018533,001668: 42,3355           64317                           AD       R1D1                                  #  RXD3
018534,001669: 42,3356           54143                           TS       COUNT                                 
018535,001670: 42,3357           04616                           TC       BANKCALL                              #  BLANK MIDDLE CHAR
018536,001671: 42,3360           61322                           CADR     DSPIN                                 
018537,001672: 42,3361           03435                           TC       SEPMIN                                #  REMOVE REST OF SECONDS
018538,001673: 42,3362           56155                           XCH      MPAC       +1                         #  LEAVE FRACT MIN/60 IN MPAC+1
018539,001674: 42,3363           00006                           EXTEND                                         #  USE ONLY FRACT MIN/60 MOD 60
018540,001675: 42,3364           73376                           MP       HIMINCON                              #  MULT BY .6 + 2EXP-7
018541,001676: 42,3365           52155                           DXCH     MPAC                                  #  GIVES MIN/100 MOD 60
018542,001677: 42,3366           50117                           INDEX    DECOUNT                               
018543,001678: 42,3367           34317                           CAF      R1D1                                  #  RXD1
018544,001679: 42,3370           54777                           TS       DSPCOUNT                              
018545,001680: 42,3371           04616                           TC       BANKCALL                              #  DISPLAY MIN MOD 60 IN D1D2.
018546,001681: 42,3372           61266                           CADR     DSPDC2NR                              
018547,001682: 42,3373           04635                           TC       POSTJUMP                              
018548,001683: 42,3374           62570                           CADR     DSPDCEND   +2                         
018549,001684: 
018550,001685: 42,3375           23147        HISECON            OCT      23147                                 #  .6 + 2EXP-14
018551,001686: 42,3376           23346        HIMINCON           OCT      23346                                 #  .6 + 2EXP-7
018552,001687: 
018553,001688: 42,3377           77753        M/SCON1            OCT      77753                                 #  - HI PART OF (59M58.5S) +1
018554,001689: 42,3400           41126        M/SCON2            OCT      41126                                 #  - LO PART OF (59M58.5S) +1
018555,001690: 42,3401           03343        NORMADR            ADRES    M/SNORM    +1                         
018556,001691: 42,3402           00025        M/SCON3            OCT      00025                                 #  59M 59.5S
018557,001692: 42,3403           37016                           OCT      37016                                 
018558,001693: 
018559,001694: 42,3404           10155        SEPSEC             CCS      MPAC       +1                         #  IF +, ROUND BY ADDING .5 SEC
018560,001695: 42,3405           13414                           TCF      POSEC                                 #  IF -, ROUND BY SUBTRACTING .5 SEC
018561,001696: 42,3406           13414                           TCF      POSEC                                 #  FINDS TIME IN MPAC, MPAC+1
018562,001697: 42,3407           13410                           TCF      +1                                    #  ROUNDS OFF BY +/- .5 SEC
018563,001698: 42,3410           00006                           EXTEND                                         #  LEAVES WHOLE MIN IN BIT13 OF
018564,001699: 42,3411           43302                           DCS      RNDCON     -1                         #  LOTEMOUT AND ABOVE.
018565,001700: 42,3412           20155        SEPSEC1            DAS      MPAC                                  #  LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
018566,001701: 42,3413           13417                           TCF      SEPSECNR                              
018567,001702: 42,3414           00006        POSEC              EXTEND                                         
018568,001703: 42,3415           33302                           DCA      RNDCON     -1                         
018569,001704: 42,3416           13412                           TCF      SEPSEC1                               
018570,001705: 42,3417           56002        SEPSECNR           XCH      Q                                     #  THIS ENTRY AVOIDS ROUNDING BY .5 SEC
018571,001706: 42,3420           54144                           TS       SEPSCRET                              
018572,001707: 42,3421           07103                           TC       DMP                                   #  MULT BY 2EXP12/6000
018573,001708: 42,3422           03267                           ADRES    SECON1                                #  GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
018574,001709: 42,3423           00006                           EXTEND                                         #  AND BELOW.
018575,001710: 42,3424           30155                           DCA      MPAC                                  #  SAVE MINUTES AND HOURS
018576,001711: 42,3425           53010                           DXCH     HITEMOUT                              
018577,001712: 42,3426           04404                           TC       TPSL1                                 
018578,001713: 42,3427           04404                           TC       TPSL1                                 #  GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
018579,001714: 42,3430           34755                           CAF      ZERO                                  
018580,001715: 42,3431           56156                           XCH      MPAC       +2                         #  LEAVE FRACT SEC/60 IN MPAC, MPAC+1.

Page 424

018582,001717: 42,3432           56155                           XCH      MPAC       +1                         
018583,001718: 42,3433           56154                           XCH      MPAC                                  
018584,001719: 42,3434           00144                           TC       SEPSCRET                              
018585,001720: 
018586,001721: 42,3435           56002        SEPMIN             XCH      Q                                     #  FINDS WHOLE MINUTES IN BIT13
018587,001722: 42,3436           54144                           TS       SEPMNRET                              #  OF LOTEMOUT AND ABOVE.
018588,001723: 42,3437           31010                           CA       LOTEMOUT                              #  REMOVES REST OF SECONDS.
018589,001724: 42,3440           00006                           EXTEND                                         #  LEAVES FRACT MIN/60 IN MPAC+1.
018590,001725: 42,3441           74751                           MP       BIT3                                  #  LEAVES WHOLE HOURS IN MPAC.
018591,001726: 42,3442           00006                           EXTEND                                         #  SR 12, THROW AWAY LP.
018592,001727: 42,3443           74737                           MP       BIT13                                 #  SR 2, TAKE FROM LP. = SL 12.
018593,001728: 42,3444           22155                           LXCH     MPAC       +1                         #  THIS FORCES BITS 12-1 TO 0 IF +,
018594,001729:                                                                                                  #  FORCES BITS 12-1 TO 1 IF -.
018595,001730: 42,3445           31007                           CA       HITEMOUT                              
018596,001731: 42,3446           54154                           TS       MPAC                                  
018597,001732: 42,3447           07103                           TC       DMP                                   #  MULT BY 1/15
018598,001733: 42,3450           03275                           ADRES    MINCON1                               #  GIVES FRACT MIN/60 IN MPAC+1.
018599,001734: 42,3451           00144        ENDSPMIN           TC       SEPMNRET                              #  GIVES WHOLE HOURS IN MPAC.
018600,001735: 
018601,001736:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
018602,001737:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
018603,001738:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
018604,001739:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO.  IF USED WITH NOUNS WHICH ARE
018605,001740:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
018606,001741:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
018607,001742: 
018608,001743: 40,2771                                           SETLOC   ENDRDLO    +1                         
018609,001744: 
018610,001745: 40,2771                                           COUNT*   $$/PIN                                
018611,001746: 40,2771           50140        DSPDPDEC           INDEX    MIXBR                                 
018612,001747: 40,2772           02772                           TC       +0                                    
018613,001748: 40,2773           02775                           TC       +2                                    #  NORMAL NOUN
018614,001749: 40,2774           03420                           TC       DSPALARM                              
018615,001750: 40,2775           00006                           EXTEND                                         
018616,001751: 40,2776           50145                           INDEX    NOUNADD                               
018617,001752: 40,2777           30001                           DCA      0                                     
018618,001753: 40,3000           52155                           DXCH     MPAC                                  
018619,001754: 40,3001           34317                           CAF      R1D1                                  
018620,001755: 40,3002           54777                           TS       DSPCOUNT                              
018621,001756: 40,3003           34755                           CAF      ZERO                                  
018622,001757: 40,3004           54156                           TS       MPAC       +2                         
018623,001758: 40,3005           07257                           TC       TPAGREE                               
018624,001759: 40,3006           03273                           TC       DSP2DEC                               
018625,001760: 40,3007           00136        ENDDPDEC           TC       ENTEXIT                               
018626,001761: 

Page 425

018628,001763:                                                                                                  #  LOAD VERBS            IF ALARM CONDITION IS DETECTED DURING EXECUTE,
018629,001764:                                                                                                  #  CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB.  IF ALARM CONDITION IS
018630,001765:                                                                                                  #  DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
018631,001766:                                                                                                  #  TO EXECUTE OF ORIGINAL LOAD VERB.  RECYCLE CAUSED BY  1) DECIMAL MACHINE
018632,001767:                                                                                                  #  CADR  2) MIXTURE OF OCTAL/DECIMAL DATA  3) OCTAL DATA INTO DECIMAL
018633,001768:                                                                                                  #  ONLY NOUN  4) DEC DATA INTO OCT ONLY NOUN  5) DATA TOO LARGE FOR SCALE
018634,001769:                                                                                                  #  6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
018635,001770:                                                                                                  #  AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
018636,001771:                                                                                                  #  ENTER OF CADR.
018637,001772: 
018638,001773: 41,2616                                           SETLOC   ENDRTOUT                              
018639,001774: 
018640,001775: 41,2616                                           COUNT*   $$/PIN                                
018641,001776: 41,2616           44752        ABCLOAD            CS       TWO                                   
018642,001777: 41,2617           02424                           TC       COMPTEST                              
018643,001778: 41,2620           02460                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
018644,001779: 41,2621           33006                           CAF      VBSP1LD                               
018645,001780: 41,2622           02337                           TC       UPDATVB    -1                         
018646,001781: 41,2623           02303                           TC       REQDATX                               
018647,001782: 41,2624           33007                           CAF      VBSP2LD                               
018648,001783: 41,2625           02337                           TC       UPDATVB    -1                         
018649,001784: 41,2626           02305                           TC       REQDATY                               
018650,001785: 41,2627           33010                           CAF      VBSP3LD                               
018651,001786: 41,2630           02337                           TC       UPDATVB    -1                         
018652,001787: 41,2631           02307                           TC       REQDATZ                               
018653,001788: 
018654,001789: 41,2632           46242        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
018655,001790: 41,2633           03011                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
018656,001791: 41,2634           00006                           EXTEND                                         
018657,001792: 41,2635           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018658,001793: 41,2636           52006                           DXCH     Z                                     #  ROUTINE.
018659,001794: 41,2637           34755                           CAF      ZERO                                  #  X COMP
018660,001795: 41,2640           03075                           TC       PUTCOM                                
018661,001796: 41,2641           50145                           INDEX    NOUNADD                               
018662,001797: 41,2642           54000                           TS       0                                     
018663,001798: 41,2643           34753                           CAF      ONE                                   #  Y COMP
018664,001799: 41,2644           03075                           TC       PUTCOM                                
018665,001800: 41,2645           50145                           INDEX    NOUNADD                               
018666,001801: 41,2646           54001                           TS       1                                     
018667,001802: 41,2647           34752                           CAF      TWO                                   #  Z COMP
018668,001803: 41,2650           03075                           TC       PUTCOM                                
018669,001804: 41,2651           50145                           INDEX    NOUNADD                               
018670,001805: 41,2652           54002                           TS       2                                     
018671,001806: 41,2653           44757                           CS       SEVEN                                 #  IF NOUN 7 HAS JUST BEEN LOADED, SET
018672,001807: 41,2654           61002                           AD       NOUNREG                               #  FLAG BITS AS SPECIFIED.
018673,001808: 41,2655           00006                           EXTEND                                         
018674,001809: 41,2656           12660                           BZF      +2                                    
018675,001810: 41,2657           02775                           TC       LOADLV                                

Page 426

018677,001812: 41,2660           31003                           CA       XREG                                  #  ECADR OF FLAG WORD.
018678,001813: 41,2661           04304                           TC       SETNCADR   +1                         #  SET EBANK, NOUNADD.
018679,001814: 41,2662           31005                           CA       ZREG                                  #  ZERO TO RESET BITS, NON-ZERO TO SET BITS
018680,001815: 41,2663           00004                           INHINT                                         
018681,001816: 41,2664           00006                           EXTEND                                         
018682,001817: 41,2665           12674                           BZF      BITSOFF                               
018683,001818: 41,2666           50145                           INDEX    NOUNADD                               
018684,001819: 41,2667           40000                           CS       0                                     
018685,001820: 41,2670           71004                           MASK     YREG                                  #  BITS TO BE PROCESSED.
018686,001821: 41,2671           50145                           INDEX    NOUNADD                               
018687,001822: 41,2672           26000                           ADS      0                                     #  SET BITS.
018688,001823: 41,2673           02701                           TC       BITSOFF1                              
018689,001824: 41,2674           41004        BITSOFF            CS       YREG                                  #  BITS TO BE PROCESSED.
018690,001825: 41,2675           50145                           INDEX    NOUNADD                               
018691,001826: 41,2676           70000                           MASK     0                                     
018692,001827: 41,2677           50145                           INDEX    NOUNADD                               
018693,001828: 41,2700           54000                           TS       0                                     #  RESET BITS.
018694,001829: 41,2701           00003        BITSOFF1           RELINT                                         
018695,001830: 41,2702           02775                           TC       LOADLV                                
018696,001831: 
018697,001832: 41,2703           44753        ABLOAD             CS       ONE                                   
018698,001833: 41,2704           02424                           TC       COMPTEST                              
018699,001834: 41,2705           02460                           TC       NOUNTEST                              #  TEST IF NOUN CAN BE LOADED.
018700,001835: 41,2706           33006                           CAF      VBSP1LD                               
018701,001836: 41,2707           02337                           TC       UPDATVB    -1                         
018702,001837: 41,2710           02303                           TC       REQDATX                               
018703,001838: 41,2711           33007                           CAF      VBSP2LD                               
018704,001839: 41,2712           02337                           TC       UPDATVB    -1                         
018705,001840: 41,2713           02305                           TC       REQDATY                               
018706,001841: 41,2714           44756        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
018707,001842: 41,2715           03011                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
018708,001843: 41,2716           00006                           EXTEND                                         
018709,001844: 41,2717           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018710,001845: 41,2720           52006                           DXCH     Z                                     #  ROUTINE.
018711,001846: 41,2721           34755                           CAF      ZERO                                  #  X COMP
018712,001847: 41,2722           03075                           TC       PUTCOM                                
018713,001848: 41,2723           50145                           INDEX    NOUNADD                               
018714,001849: 41,2724           54000                           TS       0                                     
018715,001850: 41,2725           34753                           CAF      ONE                                   #  Y COMP
018716,001851: 41,2726           03075                           TC       PUTCOM                                
018717,001852: 41,2727           50145                           INDEX    NOUNADD                               
018718,001853: 41,2730           54001                           TS       1                                     
018719,001854: 41,2731           02775                           TC       LOADLV                                
018720,001855: 
018721,001856: 41,2732           02303        ALOAD              TC       REQDATX                               
018722,001857: 41,2733           00006                           EXTEND                                         
018723,001858: 41,2734           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018724,001859: 41,2735           52006                           DXCH     Z                                     #  ROUTINE.
018725,001860: 41,2736           34755                           CAF      ZERO                                  #  X COMP
018726,001861: 41,2737           03075                           TC       PUTCOM                                

Page 427

018728,001863: 41,2740           50145                           INDEX    NOUNADD                               
018729,001864: 41,2741           54000                           TS       0                                     
018730,001865: 41,2742           02775                           TC       LOADLV                                
018731,001866: 
018732,001867: 41,2743           44753        BLOAD              CS       ONE                                   
018733,001868: 41,2744           02424                           TC       COMPTEST                              
018734,001869: 41,2745           34735                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018735,001870: 41,2746           55015                           TS       CLPASS                                
018736,001871: 41,2747           02305                           TC       REQDATY                               
018737,001872: 41,2750           00006                           EXTEND                                         
018738,001873: 41,2751           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018739,001874: 41,2752           52006                           DXCH     Z                                     #  ROUTINE.
018740,001875: 41,2753           34753                           CAF      ONE                                   
018741,001876: 41,2754           03075                           TC       PUTCOM                                
018742,001877: 41,2755           50145                           INDEX    NOUNADD                               
018743,001878: 41,2756           54001                           TS       1                                     
018744,001879: 41,2757           02775                           TC       LOADLV                                
018745,001880: 
018746,001881: 41,2760           44752        CLOAD              CS       TWO                                   
018747,001882: 41,2761           02424                           TC       COMPTEST                              
018748,001883: 41,2762           34735                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
018749,001884: 41,2763           55015                           TS       CLPASS                                
018750,001885: 41,2764           02307                           TC       REQDATZ                               
018751,001886: 41,2765           00006                           EXTEND                                         
018752,001887: 41,2766           32114                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
018753,001888: 41,2767           52006                           DXCH     Z                                     #  ROUTINE.
018754,001889: 41,2770           34752                           CAF      TWO                                   
018755,001890: 41,2771           03075                           TC       PUTCOM                                
018756,001891: 41,2772           50145                           INDEX    NOUNADD                               
018757,001892: 41,2773           54002                           TS       2                                     
018758,001893: 41,2774           02775                           TC       LOADLV                                
018759,001894: 
018760,001895: 41,2775           34755        LOADLV             CAF      ZERO                                  
018761,001896: 41,2776           55000                           TS       DECBRNCH                              
018762,001897: 41,2777           44755                           CS       ZERO                                  
018763,001898: 41,3000           55014                           TS       LOADSTAT                              
018764,001899: 41,3001           04457                           TC       RELDSP                                #  RELEASE FOR PRIORITY DISPLAY PROBLEM.
018765,001900: 41,3002           44360                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
018766,001901: 41,3003           54777                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
018767,001902: 41,3004           04635                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
018768,001903: 41,3005           61547                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
018769,001904: 
018770,001905: 41,3006           00025        VBSP1LD            DEC      21         B-14                       #  VB21 = ALOAD
018771,001906: 41,3007           00026        VBSP2LD            DEC      22         B-14                       #  VB22 = BLOAD
018772,001907: 41,3010           00027        VBSP3LD            DEC      23         B-14                       #  VB23 = CLOAD
018773,001908: 
018774,001909: 41,3011           54117        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
018775,001910: 41,3012           41000                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
018776,001911: 41,3013           54021                           TS       SR                                    

Page 428

018778,001913: 41,3014           40021                           CS       SR                                    
018779,001914: 41,3015           40021                           CS       SR                                    #  SHIFTED RIGHT 2
018780,001915: 41,3016           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
018781,001916: 41,3017           13021                           TCF      +2                                    #  SOME ONES IN LOW 3
018782,001917: 41,3020           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
018783,001918: 41,3021           60117                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
018784,001919: 41,3022           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
018785,001920: 41,3023           13025                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
018786,001921: 41,3024           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
018787,001922: 41,3025           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC.  OK
018788,001923: 
018789,001924: 41,3026           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
018790,001925: 41,3027           54114                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
018791,001926: 41,3030           34347                           CAF      MID5                                  
018792,001927: 41,3031           70147                           MASK     NNTYPTEM                              
018793,001928: 41,3032           04322                           TC       RIGHT5                                
018794,001929: 41,3033           00114                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
018795,001930: 
018796,001931: 41,3034           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
018797,001932: 41,3035           54114                           TS       EXITEM                                
018798,001933: 41,3036           50117                           INDEX    DECOUNT                               
018799,001934: 41,3037           33066                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
018800,001935: 41,3040           54001                           TS       L                                     
018801,001936: 41,3041           50117                           INDEX    DECOUNT                               
018802,001937: 41,3042           34346                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
018803,001938: 41,3043           70153                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
018804,001939: 41,3044           50001                           INDEX    L                                     
018805,001940: 41,3045           00000                           TC       0                                     
018806,001941: 
018807,001942:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
018808,001943: 41,3046           00114        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
018809,001944: 
018810,001945: 41,3047           56002        SFCONUM            XCH      Q                                     #  GETS 2X(SF CONSTANT NUMBER)
018811,001946: 41,3050           54114                           TS       EXITEM                                
018812,001947: 41,3051           50140                           INDEX    MIXBR                                 
018813,001948: 41,3052           03052                           TC       +0                                    
018814,001949: 41,3053           03071                           TC       CONUMNOR                              #  NORMAL NOUN
018815,001950: 41,3054           50117                           INDEX    DECOUNT                               #  MIXED NOUN
018816,001951: 41,3055           33066                           CAF      DISPLACE                              
018817,001952: 41,3056           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
018818,001953: 41,3057           50117                           INDEX    DECOUNT                               
018819,001954: 41,3060           34346                           CAF      LOW5                                  
018820,001955: 41,3061           70147                           MASK     NNTYPTEM                              
018821,001956: 41,3062           50001                           INDEX    L                                     
018822,001957: 41,3063           00000                           TC       0                                     
018823,001958: 
018824,001959:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
018825,001960: 41,3064           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER) IN A
018826,001961: 41,3065           00114                           TC       EXITEM                                
018827,001962: 
018828,001963: 41,3066           03025        DISPLACE           TC       GOQ                                   

Page 429

018830,001965: 41,3067           04322                           TC       RIGHT5                                
018831,001966: 41,3070           04331                           TC       LEFT5                                 
018832,001967: 
018833,001968: 41,3071           34346        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW5 OF
018834,001969: 41,3072           70147                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
018835,001970: 41,3073           60000                           DOUBLE                                         
018836,001971: 41,3074           00114                           TC       EXITEM                                #  2X(SF CONSTANT NUMBER) IN A
018837,001972: 
018838,001973: 41,3075           54117        PUTCOM             TS       DECOUNT                               
018839,001974: 41,3076           56002                           XCH      Q                                     
018840,001975: 41,3077           54115                           TS       DECRET                                
018841,001976: 41,3100           34755                           CAF      ZERO                                  
018842,001977: 41,3101           54162                           TS       MPAC+6                                
018843,001978: 41,3102           50117                           INDEX    DECOUNT                               
018844,001979: 41,3103           57006                           XCH      XREGLP                                
018845,001980: 41,3104           54155                           TS       MPAC       +1                         
018846,001981: 41,3105           50117                           INDEX    DECOUNT                               
018847,001982: 41,3106           57003                           XCH      XREG                                  
018848,001983: 41,3107           54154                           TS       MPAC                                  
018849,001984: 41,3110           50140                           INDEX    MIXBR                                 
018850,001985: 41,3111           03111                           TC       +0                                    
018851,001986: 41,3112           03137                           TC       PUTNORM                               #  NORMAL NOUN
018852,001987:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
018853,001988: 41,3113           50117                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
018854,001989: 41,3114           30150                           CA       IDAD1TEM                              #        OF NOUN.
018855,001990: 41,3115           74356                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
018856,001991: 41,3116           04303                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018857,001992: 41,3117           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
018858,001993: 41,3120           60117                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
018859,001994: 41,3121           54145                           TS       NOUNADD                               
018860,001995: 41,3122           11000                           CCS      DECBRNCH                              
018861,001996: 41,3123           03174                           TC       PUTDECSF                              #  + DEC
018862,001997: 41,3124           02452                           TC       DCTSTCYC                              #  +0 OCTAL
018863,001998: 41,3125           03034                           TC       SFRUTMIX                              #  TEST IF DEC ONLY BIT = 1. IF SO,
018864,001999: 41,3126           02261                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
018865,002000: 41,3127           03155                           TC       PUTCOM2                               #  NO DP
018866,002001:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
018867,002002:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
018868,002003:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
018869,002004: 41,3130           24145        PUTDPCOM           INCR     NOUNADD                               #  DP (ESUBK)-K+1  OR  E+1
018870,002005: 41,3131           30145                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
018871,002006: 41,3132           26117                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
018872,002007: 41,3133           34755                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
018873,002008: 41,3134           50117                           INDEX    DECOUNT                               
018874,002009: 41,3135           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
018875,002010: 41,3136           03155                           TC       PUTCOM2                               
018876,002011: 
018877,002012: 41,3137           04311        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
018878,002013: 41,3140           11000                           CCS      DECBRNCH                              

Page 430

018880,002015: 41,3141           03174                           TC       PUTDECSF                              #  + DEC
018881,002016: 41,3142           02452                           TC       DCTSTCYC                              #  +0 OCTAL
018882,002017: 41,3143           03026                           TC       SFRUTNOR                              #  TEST IF DEC ONLY BIT =1. IF SO,
018883,002018: 41,3144           02261                           TC       DPTEST                                #  ALARM AND RECYCLE. IF NOT, CONTINUE.
018884,002019: 41,3145           03151                           TC       PUTCOM2    -4                         #  NO DP
018885,002020: 41,3146           34755                           CAF      ZERO                                  #  DP
018886,002021: 41,3147           54117                           TS       DECOUNT                               
018887,002022: 41,3150           03130                           TC       PUTDPCOM                              
018888,002023: 
018889,002024: 41,3151           30146                           CA       NNADTEM                               
018890,002025: 41,3152           64753                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
018891,002026: 41,3153           00006                           EXTEND                                         
018892,002027: 41,3154           13161                           BZF      CHANLOAD                              
018893,002028: 41,3155           56154        PUTCOM2            XCH      MPAC                                  
018894,002029: 41,3156           00115                           TC       DECRET                                
018895,002030: 
018896,002031: 41,3157     0777                                  EBANK=   DSPCOUNT                              
018897,002032: 41,3157           02147 64101  GTSFINLC           2CADR    GTSFIN                                
018898,002033: 
018899,002034: 41,3161           44757        CHANLOAD           CS       SEVEN                                 #  DONT LOAD CHAN 7. (IT = SUPERBANK).
018900,002035: 41,3162           61017                           AD       NOUNCADR                              
018901,002036: 41,3163           00006                           EXTEND                                         
018902,002037: 41,3164           12775                           BZF      LOADLV                                
018903,002038: 41,3165           31017                           CA       NOUNCADR                              
018904,002039: 41,3166           75004                           MASK     LOW9                                  
018905,002040: 41,3167           56154                           XCH      MPAC                                  
018906,002041: 41,3170           00006                           EXTEND                                         
018907,002042: 41,3171           50154                           INDEX    MPAC                                  
018908,002043: 41,3172           01000                           WRITE    0                                     
018909,002044: 41,3173           02775                           TC       LOADLV                                
018910,002045: 
018911,002046:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
018912,002047: 
018913,002048: 41,3174           03047        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
018914,002049: 41,3175           54123                           TS       SFTEMP1                               
018915,002050: 41,3176           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
018916,002051: 41,3177           33160                           DCA      GTSFINLC                              #  READING ROUTINE.
018917,002052: 41,3200           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
018918,002053: 41,3201           50140                           INDEX    MIXBR                                 
018919,002054: 41,3202           03202                           TC       +0                                    
018920,002055: 41,3203           03206                           TC       PUTSFNOR                              
018921,002056: 41,3204           03034                           TC       SFRUTMIX                              
018922,002057: 41,3205           03207                           TC       PUTDCSF2                              
018923,002058: 41,3206           03026        PUTSFNOR           TC       SFRUTNOR                              
018924,002059: 
018925,002060: 41,3207           50000        PUTDCSF2           INDEX    A                                     
018926,002061: 41,3210           33212                           CAF      SFINTABR                              

Page 431

018928,002063: 41,3211           04640                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
018929,002064: 41,3212           62350        SFINTABR           CADR     GOALMCYC                              #  ALARM AND RECYCLE IF DEC LOAD
018930,002065:                                                                                                  #  WITH OCTAL ONLY NOUN.
018931,002066: 41,3213           61106                           CADR     BINROUND                              
018932,002067: 41,3214           61010                           CADR     DEGINSF                               
018933,002068: 41,3215           61076                           CADR     ARTHINSF                              
018934,002069: 41,3216           61114                           CADR     DPINSF                                
018935,002070: 41,3217           61141                           CADR     DPINSF2                               
018936,002071: 41,3220           61420                           CADR     DSPALARM                              #  LRPOSOUT CANT BE LOADED.
018937,002072: 41,3221           61114                           CADR     DPINSF                                #  SAME AS ARITHDP1
018938,002073: 41,3222           65452                           CADR     HMSIN                                 
018939,002074: 41,3223           61420                           CADR     DSPALARM                              #  MIN/SEC CANT BE LOADED.
018940,002075: 41,3224           61146                           CADR     DPINSF4                               
018941,002076: 41,3225           61111                           CADR     ARTIN1SF                              
018942,002077: 41,3226           61420                           CADR     DSPALARM                              #  2INTOUT CANT BE LOADED.
018943,002078: 41,3227           61010                           CADR     DEGINSF                               #  TESTS AT END FOR 360-CDU
018944,002079: 41,3230                        ENDRUTIN           EQUALS                                         
018945,002080: 
018946,002081:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
018947,002082:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
018948,002083: 
018949,002084: 40,3010                                           SETLOC   ENDDPDEC   +1                         
018950,002085: 
018951,002086: 40,3010                                           COUNT*   $$/PIN                                
018952,002087:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
018953,002088: 
018954,002089: 40,3010           07103        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
018955,002090: 40,3011           03074                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
018956,002091: 40,3012           10155                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
018957,002092: 40,3013           34741                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
018958,002093: 40,3014           03016                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
018959,002094: 40,3015           44741                           CS       BIT11                                 
018960,002095: 40,3016           60155                           AD       MPAC       +1                         
018961,002096: 40,3017           03165                           TC       2ROUND     +2                         
018962,002097: 40,3020           04404                           TC       TPSL1                                 #  LEFT 1
018963,002098: 40,3021           04404        DEGINSF2           TC       TPSL1                                 #  LEFT 2
018964,002099: 40,3022           03174                           TC       TESTOFUF                              
018965,002100: 40,3023           04404                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
018966,002101: 40,3024           10154                           CCS      MPAC                                  
018967,002102: 40,3025           03031                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
018968,002103: 40,3026           03031                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
018969,002104: 40,3027           40000                           COM                                            #  IF -, USE -MAGNITUDE +1
018970,002105: 40,3030           54154                           TS       MPAC                                  #  IF -0, USE +0
018971,002106: 40,3031           10162        SIGNFIX            CCS      MPAC+6                                
018972,002107: 40,3032           03070                           TC       SGNTO1                                #  IF OVERFLOW
018973,002108: 40,3033           03043                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
018974,002109: 40,3034           10154                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
018975,002110: 40,3035           05705                           TC       CCSHOLE                               

Page 432

018977,002112: 40,3036           03066                           TC       NEG180                                
018978,002113: 40,3037           03040                           TC       +1                                    
018979,002114: 40,3040           56154                           XCH      MPAC                                  
018980,002115: 40,3041           74733                           MASK     POSMAX                                
018981,002116: 40,3042           54154                           TS       MPAC                                  
018982,002117: 40,3043           50140        ENDSCALE           INDEX    MIXBR                                 #  IF ROUTINE NO. IS NOT CDU DEGREES,
018983,002118: 40,3044           03044                           TC       +0                                    #  THEN THIS IS 360 - CDU DEGREES
018984,002119: 40,3045           03050                           TC       +3                                    #  AND ANGLE IN MPAC MUST BE REPLACED
018985,002120: 40,3046           03060                           TC       SFMIXCAL                              #  BY 360 DEGREES MINUS ITSELF.
018986,002121: 40,3047           03051        MIXBACK            TC       +2                                    
018987,002122: 40,3050           03063                           TC       SFNORCAL                              
018988,002123: 40,3051           40000        NORBACK            CS       A                                     
018989,002124: 40,3052           64752                           AD       BIT2                                  
018990,002125: 40,3053           00006                           EXTEND                                         
018991,002126: 40,3054           13056                           BZF      +2                                    
018992,002127: 40,3055           02625                           TC       360-CDU                               
018993,002128: 40,3056           04635        ENDSCAL1           TC       POSTJUMP                              
018994,002129: 40,3057           63155                           CADR     PUTCOM2                               
018995,002130: 
018996,002131: 40,3060           04616        SFMIXCAL           TC       BANKCALL                              
018997,002132: 40,3061           63034                           CADR     SFRUTMIX                              
018998,002133: 40,3062           03047                           TC       MIXBACK                               
018999,002134: 
019000,002135: 40,3063           04616        SFNORCAL           TC       BANKCALL                              
019001,002136: 40,3064           63026                           CADR     SFRUTNOR                              
019002,002137: 40,3065           03051                           TC       NORBACK                               
019003,002138: 
019004,002139: 40,3066           44733        NEG180             CS       POSMAX                                
019005,002140: 40,3067           03042                           TC       ENDSCALE   -1                         
019006,002141: 
019007,002142: 40,3070           40154        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
019008,002143: 40,3071           74733                           MASK     POSMAX                                
019009,002144: 40,3072           40000                           CS       A                                     
019010,002145: 40,3073           03042                           TC       ENDSCALE   -1                         
019011,002146: 
019012,002147: 40,3074           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
019013,002148: 
019014,002149: 40,3076           07103        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019015,002150: 40,3077           00123                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
019016,002151: 40,3100           56156                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
019017,002152: 40,3101           56155                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
019018,002153: 40,3102           56154                           XCH      MPAC                                  
019019,002154: 40,3103           00006                           EXTEND                                         
019020,002155: 40,3104           13106                           BZF      BINROUND                              
019021,002156: 40,3105           04145                           TC       ALMCYCLE                              #  TOO LARGE A LOAD. ALARM AND RECYCLE.
019022,002157: 40,3106           03163        BINROUND           TC       2ROUND                                
019023,002158: 40,3107           03174                           TC       TESTOFUF                              
019024,002159: 40,3110           03056                           TC       ENDSCAL1                              #  RETURNS IF NO OF/UF
019025,002160: 

Page 433

019027,002162: 40,3111           07103        ARTIN1SF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019028,002163: 40,3112           00123                           ADRES    SFTEMP1                               #  ROUNDS MPAC+1 INTO MPAC.
019029,002164: 40,3113           03106                           TC       BINROUND                              
019030,002165: 
019031,002166: 40,3114           07103        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
019032,002167: 40,3115           00123                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
019033,002168: 40,3116           56156                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
019034,002169: 40,3117           60000                           DOUBLE                                         
019035,002170: 40,3120           54156                           TS       MPAC       +2                         
019036,002171: 40,3121           34755                           CAF      ZERO                                  
019037,002172: 40,3122           60155                           AD       MPAC       +1                         
019038,002173: 40,3123           03165                           TC       2ROUND     +2                         
019039,002174: 40,3124           03174                           TC       TESTOFUF                              
019040,002175: 40,3125           50140                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
019041,002176: 40,3126           03126                           TC       +0                                    
019042,002177: 40,3127           03137                           TC       DPINORM                               
019043,002178: 40,3130           30117                           CA       DECOUNT                               #  MIXED NOUN
019044,002179: 40,3131           60145        DPINCOM            AD       NOUNADD                               #        MIXED           NORMAL
019045,002180: 40,3132           54002                           TS       Q                                     #        E SUBK          E
019046,002181: 40,3133           56155                           XCH      MPAC       +1                         
019047,002182: 40,3134           50002                           INDEX    Q                                     
019048,002183: 40,3135           54001                           TS       1                                     #  PLACE LOW PART IN
019049,002184: 40,3136           03056                           TC       ENDSCAL1                              #  (E SUBK) +1   MIXED
019050,002185: 
019051,002186: 40,3137           34755        DPINORM            CAF      ZERO                                  #  E +1          NORMAL
019052,002187: 40,3140           03131                           TC       DPINCOM                               
019053,002188: 
019054,002189: 40,3141           07103        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019055,002190: 40,3142           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019056,002191: 40,3143           36242                           CAF      SIX                                   #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
019057,002192: 40,3144           03153                           TC       TPLEFTN                               #  SHIFT LEFT 7.
019058,002193: 40,3145           03116                           TC       DPINSF     +2                         
019059,002194: 
019060,002195: 40,3146           07103        DPINSF4            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
019061,002196: 40,3147           00123                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019062,002197: 40,3150           34752                           CAF      TWO                                   #  LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
019063,002198: 40,3151           03153                           TC       TPLEFTN                               #  SHIFT LEFT 3.
019064,002199: 40,3152           03116                           TC       DPINSF     +2                         
019065,002200: 
019066,002201: 40,3153           56002        TPLEFTN            XCH      Q                                     #  SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
019067,002202: 40,3154           54124                           TS       SFTEMP2                               #  TO +1 FOR OF, -1 FOR UF.
019068,002203: 40,3155           56002                           XCH      Q                                     #  CALL WITH N-1 IN A.
019069,002204: 40,3156           54123        LEFTNCOM           TS       SFTEMP1                               #        LOOP TIME .37 MSEC.
019070,002205: 40,3157           04404                           TC       TPSL1                                 
019071,002206: 40,3160           10123                           CCS      SFTEMP1                               
019072,002207: 40,3161           03156                           TC       LEFTNCOM                              

Page 434

019074,002209: 40,3162           00124                           TC       SFTEMP2                               
019075,002210: 
019076,002211: 40,3163           56155        2ROUND             XCH      MPAC       +1                         
019077,002212: 40,3164           60000                           DOUBLE                                         
019078,002213: 40,3165           54155                           TS       MPAC       +1                         
019079,002214: 40,3166           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
019080,002215: 40,3167           60154                           AD       MPAC                                  
019081,002216: 40,3170           54154                           TS       MPAC                                  
019082,002217: 40,3171           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
019083,002218: 40,3172           54162                           TS       MPAC+6                                
019084,002219: 40,3173           00002        2RNDEND            TC       Q                                     
019085,002220: 
019086,002221: 40,3174           10162        TESTOFUF           CCS      MPAC+6                                #  RETURNS IF NO OF/UF
019087,002222: 40,3175           04145                           TC       ALMCYCLE                              #  OF    ALARM AND RECYCLE.
019088,002223: 40,3176           00002                           TC       Q                                     
019089,002224: 40,3177           04145                           TC       ALMCYCLE                              #  UF    ALARM AND RECYCLE.
019090,002225: 
019091,002226: 42,3452                                           SETLOC   ENDSPMIN   +1                         
019092,002227: 
019093,002228: 42,3452                                           COUNT*   $$/PIN                                
019094,002229: 42,3452           03573        HMSIN              TC       ALL3DEC                               #  IF ALL 3 WORDS WERE NOT LOADED, ALARM.
019095,002230: 42,3453           07103                           TC       DMP                                   #  XREG, XREGLP (=HOURS) WERE ALREADY PUT
019096,002231: 42,3454           03534                           ADRES    WHOLECON                              #  INTO MPAC, MPAC+1.
019097,002232: 42,3455           03543                           TC       RND/TST                               #  ROUND OFF TO WHOLE HRS IN MPAC+1.
019098,002233: 42,3456           34755                           CAF      ZERO                                  #  ALARM IF MPAC NON ZERO (G/ 16383).
019099,002234: 42,3457           54156                           TS       MPAC       +2                         
019100,002235: 42,3460           33536                           CAF      HRCON                                 
019101,002236: 42,3461           54154                           TS       MPAC                                  
019102,002237: 42,3462           33537                           CAF      HRCON      +1                         
019103,002238: 42,3463           56155                           XCH      MPAC       +1                         
019104,002239: 42,3464           07307                           TC       SHORTMP                               
019105,002240: 42,3465           03554                           TC       MPACTST                               #  ALARM IF MPAC NON ZERO (G/ 745)
019106,002241: 42,3466           52156                           DXCH     MPAC       +1                         #  STORE HOURS CONTRIBUTION
019107,002242: 42,3467           52124                           DXCH     HITEMIN                               
019108,002243: 42,3470           31004                           CA       YREG                                  #  PUT YREG, YREGLP INTO MPAC, +1.
019109,002244: 42,3471           23007                           LXCH     YREGLP                                
019110,002245: 42,3472           52155                           DXCH     MPAC                                  
019111,002246: 42,3473           07103                           TC       DMP                                   
019112,002247: 42,3474           03534                           ADRES    WHOLECON                              
019113,002248: 42,3475           03543                           TC       RND/TST                               #  ROUND OFF TO WHOLE MIN IN MPAC+1
019114,002249: 42,3476           43541                           CS       59MIN                                 #  ALARM IF MPAC NON ZERO (G/16383)
019115,002250: 42,3477           03561                           TC       SIZETST                               #  ALARM IF MPAC+1 G/ 59MIN
019116,002251: 42,3500           56155                           XCH      MPAC       +1                         
019117,002252: 42,3501           00006                           EXTEND                                         
019118,002253: 42,3502           73540                           MP       MINCON                                #  LEAVES MINUTES CONTRIBUTION IN A,L
019119,002254: 42,3503           20124                           DAS      HITEMIN                               #  ADD IN MINUTES CONTRIBUTION
019120,002255: 42,3504           00006                           EXTEND                                         #  IF THIS DAS OVERFLOWS, G/ 745 HR, 39MIN

Page 435

019122,002257: 42,3505           13507                           BZF      +2                                    
019123,002258: 42,3506           04145                           TC       ALMCYCLE                              
019124,002259: 42,3507           31005                           CA       ZREG                                  #  PUT ZREG, ZREGLP INTO MPAC, +1.
019125,002260: 42,3510           23010                           LXCH     ZREGLP                                
019126,002261: 42,3511           52155                           DXCH     MPAC                                  
019127,002262: 42,3512           07103                           TC       DMP                                   
019128,002263: 42,3513           03534                           ADRES    WHOLECON                              
019129,002264: 42,3514           03543                           TC       RND/TST                               #  ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
019130,002265: 42,3515           43542                           CS       59.99SEC                              #  ALARM IF MPAC NON ZERO (G/163.83 SEC)
019131,002266: 42,3516           03561                           TC       SIZETST                               #  ALARM IF MPAC+1 G/59.99 SEC
019132,002267: 42,3517           52124                           DXCH     HITEMIN                               #  ADD IN SECONDS CONTRIBUTION
019133,002268: 42,3520           20155                           DAS      MPAC                                  #  IF THIS DAS OVERFLOWS,
019134,002269: 42,3521           00006                           EXTEND                                         #  G/ 745 HR, 39 MIN, 14.55 SEC.
019135,002270: 42,3522           13524                           BZF      +2                                    
019136,002271: 42,3523           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE
019137,002272: 42,3524           34755                           CAF      ZERO                                  
019138,002273: 42,3525           54156                           TS       MPAC       +2                         
019139,002274: 42,3526           07257                           TC       TPAGREE                               
019140,002275: 42,3527           52155                           DXCH     MPAC                                  
019141,002276: 42,3530           50145                           INDEX    NOUNADD                               
019142,002277: 42,3531           52001                           DXCH     0                                     
019143,002278: 42,3532           04635                           TC       POSTJUMP                              
019144,002279: 42,3533           62775                           CADR     LOADLV                                
019145,002280: 
019146,002281: 42,3534           00006        WHOLECON           OCT      00006                                 #  (10EXP5/2EXP14)2EXP14
019147,002282: 42,3535           03240                           OCT      03240                                 
019148,002283: 42,3536           00025        HRCON              OCT      00025                                 #  1 HOUR IN CENTI-SEC
019149,002284: 42,3537           37100                           OCT      37100                                 
019150,002285: 42,3540           13560        MINCON             OCT      13560                                 #  1 MINUTE IN CENTI-SEC
019151,002286: 42,3541           00073        59MIN              OCT      00073                                 #  59 AS WHOLE
019152,002287: 42,3542           13557        59.99SEC           OCT      13557                                 #  5999 CENTI-SEC
019153,002288: 
019154,002289: 42,3543           56156        RND/TST            XCH      MPAC       +2                         #  ROUNDS MPAC+2 INTO MPAC+1.
019155,002290: 42,3544           60000                           DOUBLE                                         #  ALARMS IF MPAC NOT 0
019156,002291: 42,3545           54156                           TS       MPAC       +2                         
019157,002292: 42,3546           34755                           CAF      ZERO                                  
019158,002293: 42,3547           60155                           AD       MPAC       +1                         
019159,002294: 42,3550           54155                           TS       MPAC       +1                         
019160,002295: 42,3551           34755                           CAF      ZERO                                  
019161,002296: 42,3552           60154                           AD       MPAC                                  #  CANT OVFLOW
019162,002297: 42,3553           56154                           XCH      MPAC                                  
019163,002298: 42,3554           10154        MPACTST            CCS      MPAC                                  #  ALARM IF MPAC NON ZERO
019164,002299: 42,3555           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019165,002300: 42,3556           00002                           TC       Q                                     
019166,002301: 42,3557           04145                           TC       ALMCYCLE                              #  ALARM AND RECYCLE.
019167,002302: 42,3560           00002                           TC       Q                                     
019168,002303: 
019169,002304: 42,3561           54156        SIZETST            TS       MPAC       +2                         #  CALLED WITH - CON IN A
019170,002305: 42,3562           10155                           CCS      MPAC       +1                         #  GET MAG OF MPAC+1

Page 436

019172,002307: 42,3563           64753                           AD       ONE                                   
019173,002308: 42,3564           13566                           TCF      +2                                    
019174,002309: 42,3565           64753                           AD       ONE                                   
019175,002310: 42,3566           60156                           AD       MPAC       +2                         
019176,002311: 42,3567           00006                           EXTEND                                         #  MAG OF MPAC+1 - CON
019177,002312: 42,3570           63572                           BZMF     +2                                    
019178,002313: 42,3571           04145                           TC       ALMCYCLE                              #  MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
019179,002314: 42,3572           00002                           TC       Q                                     #  MAG OF MPAC+1 L/= CON
019180,002315: 
019181,002316:                                                                                                  #  ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
019182,002317:                                                                                                  #  ALARM IF NOT. (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
019183,002318: 
019184,002319: 42,3573           43600        ALL3DEC            CS       OCT34BAR                              #  GET BITS 3,4,5 IN A
019185,002320: 42,3574           71000                           MASK     DECBRNCH                              #  GET BITS 3,4,5 OF DECBRNCH IN A
019186,002321: 42,3575           63600                           AD       OCT34BAR                              #  BITS 3,4,5 OF DECBRNCH MUST ALL = 1
019187,002322: 42,3576           10000                           CCS      A                                     
019188,002323: 42,3577           03603                           TC       FORCEV25                              
019189,002324: 42,3600           77743        OCT34BAR           OCT      77743                                 
019190,002325: 42,3601           03603                           TC       FORCEV25                              
019191,002326: 42,3602           00002                           TC       Q                                     
019192,002327: 
019193,002328: 42,3603           46010        FORCEV25           CS       OCT31                                 #  FORCE VERB 25 TO BE EXECUTED BY RECYCLE
019194,002329: 42,3604           55041                           TS       VERBSAVE                              #  IN CASE OPERATOR EXECUTED A LOWER LOAD
019195,002330: 42,3605           04145                           TC       ALMCYCLE                              #  VERB.  ALARM AND RECYCLE.
019196,002331: 42,3606                        ENDHMSS            EQUALS                                         
019197,002332: 

Page 437

019199,002334:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
019200,002335:                                                                                                  #  VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
019201,002336:                                                                                                  #  ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
019202,002337:                                                                                                  #  THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
019203,002338:                                                                                                  #  HE HAS INITIATED THROUGH THE KEYBOARD).
019204,002339: 
019205,002340:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
019206,002341:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
019207,002342:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
019208,002343:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
019209,002344:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
019210,002345:                                                                                                  #  INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
019211,002346:                                                                                                  #  MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
019212,002347: 
019213,002348:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
019214,002349:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
019215,002350:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
019216,002351: 
019217,002352:                                                                                                  #  NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
019218,002353:                                                                                                  #  VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
019219,002354: 
019220,002355:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
019221,002356:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
019222,002357: 
019223,002358:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
019224,002359: 
019225,002360: 41,3230                                           SETLOC   ENDRUTIN                              
019226,002361: 
019227,002362: 41,3230                                           COUNT*   $$/PIN                                
019228,002363: 41,3230           43237        MONITOR            CS       BIT15/14                              
019229,002364: 41,3231           71017                           MASK     NOUNCADR                              
019230,002365: 41,3232           54155        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
019231,002366: 41,3233           40136                           CS       ENTEXIT                               
019232,002367: 41,3234           64217                           AD       ENDINST                               
019233,002368: 41,3235           10000                           CCS      A                                     
019234,002369: 41,3236           03245                           TC       MONIT2                                
019235,002370: 41,3237           60000        BIT15/14           OCT      60000                                 
019236,002371: 41,3240           03245                           TC       MONIT2                                
019237,002372: 41,3241           34736                           CAF      BIT14                                 #  EXTERNALLY INITIATED MONITOR,
019238,002373: 41,3242           26155                           ADS      MPAC       +1                         #  SET BIT 14 FOR MONSAVE1.
019239,002374: 41,3243           34755                           CAF      ZERO                                  
019240,002375: 41,3244           55022                           TS       MONSAVE2                              #  ZERO NVMONOPT OPTIONS
019241,002376: 41,3245           36074        MONIT2             CAF      LOW7                                  
019242,002377: 41,3246           71001                           MASK     VERBREG                               
019243,002378: 41,3247           04331                           TC       LEFT5                                 
019244,002379: 41,3250           54022                           TS       CYL                                   
019245,002380: 41,3251           40022                           CS       CYL                                   
019246,002381: 41,3252           56022                           XCH      CYL                                   
019247,002382: 41,3253           61002                           AD       NOUNREG                               
019248,002383: 41,3254           54154                           TS       MPAC                                  #  TEMP STORAGE
019249,002384: 41,3255           34755                           CAF      ZERO                                  

Page 438

019251,002386: 41,3256           55012                           TS       DSPLOCK                               #  +0 INTO DSPLOCK SO MONITOR CAN RUN.
019252,002387: 41,3257           11042                           CCS      CADRSTOR                              #  TURN OFF KR LITE IF CADRSTOR AND DSPLIST
019253,002388: 41,3260           03262                           TC       +2                                    #  ARE BOTH EMPTY. (LITE COMES ON IF NEW
019254,002389: 41,3261           04502                           TC       RELDSP1                               #  MONITOR IS KEYED IN OVER OLD MONITOR.)
019255,002390: 41,3262           00004                           INHINT                                         
019256,002391: 41,3263           11020                           CCS      MONSAVE                               
019257,002392: 41,3264           03271                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
019258,002393: 41,3265           34753                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
019259,002394: 41,3266           05203                           TC       WAITLIST                              
019260,002395: 41,3267     0777                                  EBANK=   DSPCOUNT                              
019261,002396: 41,3267           03275 62101                     2CADR    MONREQ                                
019262,002397: 
019263,002398: 41,3271           52155                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
019264,002399: 41,3272           53021                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
019265,002400: 41,3273           00003                           RELINT                                         #  SET UP EXTERNAL MONITOR BIT
019266,002401: 41,3274           00136                           TC       ENTRET                                
019267,002402: 
019268,002403: 41,3275           04400        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
019269,002404: 41,3276           11021                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
019270,002405: 41,3277           03303                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
019271,002406: 41,3300           03303                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
019272,002407: 41,3301           03314                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
019273,002408: 41,3302           03314                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
019274,002409: 41,3303           33320                           CAF      MONDEL                                
019275,002410: 41,3304           05203                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
019276,002411: 41,3305     0777                                  EBANK=   DSPCOUNT                              
019277,002412: 41,3305           03275 62101                     2CADR    MONREQ                                
019278,002413: 
019279,002414: 41,3307           34355                           CAF      CHRPRIO                               
019280,002415: 41,3310           05072                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
019281,002416: 41,3311     0777                                  EBANK=   DSPCOUNT                              
019282,002417: 41,3311           03321 62101                     2CADR    MONDO                                 
019283,002418: 
019284,002419: 41,3313           05261                           TC       TASKOVER                              
019285,002420: 
019286,002421: 41,3314           34755        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
019287,002422: 41,3315           55020                           TS       MONSAVE                               
019288,002423: 41,3316           55021                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
019289,002424: 41,3317           05261                           TC       TASKOVER                              #  TURN OFF EXTERNAL MONITOR BIT.
019290,002425: 41,3320           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
019291,002426: 
019292,002427: 41,3321           11021        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
019293,002428: 41,3322           03326                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
019294,002429: 41,3323           03326                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
019295,002430: 41,3324           05155                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
019296,002431: 41,3325           05155                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
019297,002432: 41,3326           11012                           CCS      DSPLOCK                               
019298,002433: 41,3327           03351                           TC       MONBUSY                               #  NVSUB IS BUSY

Page 439

019300,002435: 41,3330           36074                           CAF      LOW7                                  
019301,002436: 41,3331           71020                           MASK     MONSAVE                               
019302,002437: 41,3332           02317                           TC       UPDATNN    -1                         #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
019303,002438: 41,3333           34144                           CAF      MID7                                  
019304,002439: 41,3334           71020                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
019305,002440: 41,3335           63347                           AD       MONREF                                #  -DEC10, STARTING IN BIT8
019306,002441: 41,3336           54023                           TS       EDOP                                  #  RIGHT 7
019307,002442: 41,3337           30023                           CA       EDOP                                  
019308,002443: 41,3340           55001                           TS       VERBREG                               
019309,002444: 41,3341           33350                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
019310,002445: 41,3342           54136                           TS       ENTRET                                
019311,002446: 41,3343           43237                           CS       BIT15/14                              
019312,002447: 41,3344           71021                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2.  INTMCTBS WILL
019313,002448: 41,3345           54156                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
019314,002449: 41,3346           02046        ENDMONDO           TC       TESTNN                                #  EBANK.
019315,002450: 
019316,002451:    4124                                           BLOCK    2                                     
019317,002452: 
019318,002453:    4000                                           SETLOC   FFTAG8                                
019319,002454:    4000                                           BANK                                           
019320,002455: 
019321,002456:    4124                                           COUNT*   $$/PIN                                
019322,002457:    4124           34144        PASTEVB            CAF      MID7                                  
019323,002458:    4125           71022                           MASK     MONSAVE2                              #  NVMONOPT PASTE OPTION
019324,002459:    4126           00006                           EXTEND                                         
019325,002460:    4127           14131                           BZF      +2                                    
019326,002461:    4130           04132                           TC       PASTEOPT                              #  PASTE PLEASE VERB FOR NVMONOPT
019327,002462:    4131           31020                           CA       MONSAVE                               #  PASTE MONITOR VERB - PASTE OPTION IS 0
019328,002463:    4132           54023        PASTEOPT           TS       EDOP                                  #  RIGHT 7
019329,002464:    4133           30023                           CA       EDOP                                  #  PLACE MONITOR VERB OR PLEASE VERB INTO
019330,002465:    4134           04616                           TC       BANKCALL                              #   VERBREG AND DISPLAY IT.
019331,002466:    4135           62337                           CADR     UPDATVB    -1                         
019332,002467:    4136           34755                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
019333,002468:    4137           55013                           TS       REQRET                                #   BE EXECUTED BY OPERATOR.
019334,002469:    4140           31022                           CA       MONSAVE2                              
019335,002470:    4141           04255                           TC       BLANKSUB                              #  PROCESS NVMONOPT BLANK OPTION IF ANY
019336,002471:    4142           04143                           TC       +1                                    
019337,002472:    4143           05155        ENDPASTE           TC       ENDOFJOB                              
019338,002473: 
019339,002474:    4144           37600        MID7               OCT      37600                                 
019340,002475: 
019341,002476: 41,3347                                           SETLOC   ENDMONDO   +1                         
019342,002477: 41,3347                                           COUNT*   $$/PIN                                
019343,002478: 41,3347           75377        MONREF             OCT      75377                                 #  -DEC10, STARTING IN BIT8
019344,002479: 41,3350           04124        MONBACK            ADRES    PASTEVB                               
019345,002480: 
019346,002481: 41,3351           04374        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
019347,002482: 41,3352           05155                           TC       ENDOFJOB                              

Page 440

019349,002484:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
019350,002485:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
019351,002486:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
019352,002487:                                                                                                  #  
019353,002488:                                                                                                  #  FOR BANKS L/E 27, THIS IS ENOUGH.
019354,002489: 
019355,002490:                                                                                                  #  FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
019356,002491:                                                                                                  #  MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
019357,002492:                                                                                                  #        V23N26 SHOULD BE USED.
019358,002493: 
019359,002494:                                                                                                  #  SUMMARY
019360,002495:                                                                                                  #  FOR BANKS L/E 27,                             V27N01E(FCADR)E
019361,002496:                                                                                                  #  FOR BANKS G/E 30,     V23N26E(SUPERBITS)E     V27N01E(FCADR)E
019362,002497: 
019363,002498: 41,3353           34317        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
019364,002499: 41,3354           54777                           TS       DSPCOUNT                              
019365,002500: 41,3355           31047                           CA       DSPTEM1    +2                         #  SUPERBANK BITS WERE PRELOADED INTO
019366,002501: 41,3356           54001                           TS       L                                     #  3RD COMPONENT OF NOUN 26.
019367,002502: 41,3357           31017                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
019368,002503: 41,3360           04651                           TC       SUPDACAL                              #  CALL WITH FCADR IN A, SUPERBITS IN L.
019369,002504: 41,3361           03363                           TC       DSPOCTWD                              
019370,002505: 41,3362           05155        ENDSPF             TC       ENDOFJOB                              
019371,002506: 

Page 441

019373,002508:                                                                                                  #  WORD DISPLAY ROUTINES
019374,002509: 40,3200                                           SETLOC   TESTOFUF   +4                         
019375,002510: 40,3200                                           COUNT*   $$/PIN                                
019376,002511: 40,3200           56002        DSPSIGN            XCH      Q                                     
019377,002512: 40,3201           54144                           TS       DSPWDRET                              
019378,002513: 40,3202           10154                           CCS      MPAC                                  
019379,002514: 40,3203           03213                           TC       +8D                                   
019380,002515: 40,3204           03213                           TC       +7                                    
019381,002516: 40,3205           64753                           AD       ONE                                   
019382,002517: 40,3206           54154                           TS       MPAC                                  
019383,002518: 40,3207           02433                           TC       -ON                                   
019384,002519: 40,3210           40155                           CS       MPAC       +1                         
019385,002520: 40,3211           54155                           TS       MPAC       +1                         
019386,002521: 40,3212           00144                           TC       DSPWDRET                              
019387,002522: 40,3213           02413                           TC       +ON                                   
019388,002523: 40,3214           00144                           TC       DSPWDRET                              
019389,002524: 
019390,002525: 40,3215           00006        DSPRND             EXTEND                                         #  ROUND BY 5 EXP-6
019391,002526: 40,3216           33261                           DCA      DECROUND   -1                         
019392,002527: 40,3217           20155                           DAS      MPAC                                  
019393,002528: 40,3220           00006                           EXTEND                                         
019394,002529: 40,3221           13225                           BZF      +4                                    
019395,002530: 40,3222           00006                           EXTEND                                         
019396,002531: 40,3223           34733                           DCA      DPOSMAX                               
019397,002532: 40,3224           52155                           DXCH     MPAC                                  
019398,002533: 40,3225           00002                           TC       Q                                     
019399,002534: 
019400,002535:                                                                                                  #  DSPDECWD CONVERTS C(MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
019401,002536:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
019402,002537: 
019403,002538: 40,3226           56002        DSPDECWD           XCH      Q                                     
019404,002539: 40,3227           54115                           TS       WDRET                                 
019405,002540: 40,3230           03200                           TC       DSPSIGN                               
019406,002541: 40,3231           03215                           TC       DSPRND                                
019407,002542: 40,3232           34751                           CAF      FOUR                                  
019408,002543: 40,3233           54137        DSPDCWD1           TS       WDCNT                                 
019409,002544: 40,3234           34363                           CAF      BINCON                                
019410,002545: 40,3235           07307                           TC       SHORTMP                               
019411,002546: 40,3236           50154        TRACE1             INDEX    MPAC                                  
019412,002547: 40,3237           34066                           CAF      RELTAB                                
019413,002548: 40,3240           74346                           MASK     LOW5                                  
019414,002549: 40,3241           54124                           TS       CODE                                  
019415,002550: 40,3242           34755                           CAF      ZERO                                  
019416,002551: 40,3243           56156                           XCH      MPAC       +2                         
019417,002552: 40,3244           56155                           XCH      MPAC       +1                         
019418,002553: 40,3245           54154                           TS       MPAC                                  
019419,002554: 40,3246           56777                           XCH      DSPCOUNT                              
019420,002555: 40,3247           54143        TRACE1S            TS       COUNT                                 
019421,002556: 40,3250           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0

Page 442

019423,002558: 40,3251           54777                           TS       DSPCOUNT                              
019424,002559: 40,3252           03322                           TC       DSPIN                                 
019425,002560: 40,3253           10137                           CCS      WDCNT                                 
019426,002561: 40,3254           03233                           TC       DSPDCWD1                              
019427,002562: 40,3255           44360                           CS       VD1                                   
019428,002563: 40,3256           54777                           TS       DSPCOUNT                              
019429,002564: 40,3257           00115                           TC       WDRET                                 
019430,002565: 
019431,002566: 40,3260           00000                           OCT      00000                                 
019432,002567: 40,3261           02476        DECROUND           OCT      02476                                 
019433,002568: 
019434,002569:                                                                                                  #  DSPDECNR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
019435,002570:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
019436,002571: 
019437,002572: 40,3262           56002        DSPDECNR           XCH      Q                                     
019438,002573: 40,3263           54115                           TS       WDRET                                 
019439,002574: 40,3264           03200                           TC       DSPSIGN                               
019440,002575: 40,3265           03232                           TC       DSPDCWD1   -1                         
019441,002576: 
019442,002577:                                                                                                  #  DSPDC2NR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
019443,002578:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
019444,002579: 
019445,002580: 40,3266           56002        DSPDC2NR           XCH      Q                                     
019446,002581: 40,3267           54115                           TS       WDRET                                 
019447,002582: 40,3270           03200                           TC       DSPSIGN                               
019448,002583: 40,3271           34753                           CAF      ONE                                   
019449,002584: 40,3272           03233                           TC       DSPDCWD1                              
019450,002585: 
019451,002586:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
019452,002587:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
019453,002588: 
019454,002589: 40,3273           56002        DSP2DEC            XCH      Q                                     
019455,002590: 40,3274           54115                           TS       WDRET                                 
019456,002591: 40,3275           34755                           CAF      ZERO                                  
019457,002592: 40,3276           54124                           TS       CODE                                  
019458,002593: 40,3277           36245                           CAF      THREE                                 
019459,002594: 40,3300           03404                           TC       11DSPIN                               #  -R2 OFF
019460,002595: 40,3301           34751                           CAF      FOUR                                  
019461,002596: 40,3302           03404                           TC       11DSPIN                               #  +R2 OFF
019462,002597: 40,3303           03200                           TC       DSPSIGN                               
019463,002598: 40,3304           34320                           CAF      R2D1                                  
019464,002599: 40,3305           03233        END2DEC            TC       DSPDCWD1                              
019465,002600: 
019466,002601:                                                                                                  #  DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
019467,002602:                                                                                                  #  DSP LOC SPECIFIED IN DSPCOUNT.
019468,002603:                                                                                                  #  C(A) SHOULD BE IN FORM N X 2EXP-14.  THIS IS SCALED TO FORM N/100 BEFORE
019469,002604:                                                                                                  #  DISPLAY CONVERSION.
019470,002605: 

Page 443

019472,002607: 40,3306           00006        DSPDECVN           EXTEND                                         
019473,002608: 40,3307           73316                           MP       VNDSPCON                              #  MULT BY .01
019474,002609: 40,3310           22154                           LXCH     MPAC                                  #  TAKE RESULTS FROM L. (MULT BY 2EXP14).
019475,002610: 40,3311           34755                           CAF      ZERO                                  
019476,002611: 40,3312           54155                           TS       MPAC       +1                         
019477,002612: 40,3313           56002                           XCH      Q                                     
019478,002613: 40,3314           54115                           TS       WDRET                                 
019479,002614: 40,3315           03271                           TC       DSPDC2NR   +3                         #  NO SIGN, NO ROUND, 2 CHAR
019480,002615: 
019481,002616: 40,3316           00244        VNDSPCON           OCT      00244                                 #  .01 ROUNDED UP
019482,002617: 
019483,002618: 40,3317           03306        GOVNUPDT           TC       DSPDECVN                              #  THIS IS NOT FOR GENERAL USE. REALLY PART
019484,002619: 40,3320           04635                           TC       POSTJUMP                              #  OF UPDATVB.
019485,002620: 40,3321           62347                           CADR     UPDAT1     +2                         
019486,002621: 
019487,002622: 40,3322                        ENDECVN            EQUALS                                         
019488,002623: 
019489,002624: 41,3363                                           SETLOC   ENDSPF     +1                         
019490,002625: 41,3363                                           COUNT*   $$/PIN                                
019491,002626:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
019492,002627:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
019493,002628: 
019494,002629: 41,3363           54022        DSPOCTWD           TS       CYL                                   
019495,002630: 41,3364           56002                           XCH      Q                                     
019496,002631: 41,3365           54115                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
019497,002632: 41,3366           34736                           CAF      BIT14                                 #  TO BLANK SIGNS
019498,002633: 41,3367           26777                           ADS      DSPCOUNT                              
019499,002634: 41,3370           34751                           CAF      FOUR                                  
019500,002635: 41,3371           54137        WDAGAIN            TS       WDCNT                                 
019501,002636: 41,3372           40022                           CS       CYL                                   
019502,002637: 41,3373           40022                           CS       CYL                                   
019503,002638: 41,3374           40022                           CS       CYL                                   
019504,002639: 41,3375           40000                           CS       A                                     
019505,002640: 41,3376           74757                           MASK     DSPMSK                                
019506,002641: 41,3377           50000                           INDEX    A                                     
019507,002642: 41,3400           34066                           CAF      RELTAB                                
019508,002643: 41,3401           74346                           MASK     LOW5                                  
019509,002644: 41,3402           54124                           TS       CODE                                  
019510,002645: 41,3403           56777                           XCH      DSPCOUNT                              
019511,002646: 41,3404           54143                           TS       COUNT                                 
019512,002647: 41,3405           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
019513,002648: 41,3406           54777                           TS       DSPCOUNT                              
019514,002649: 41,3407           04635                           TC       POSTJUMP                              
019515,002650: 41,3410           61412                           CADR     DSPOCTIN                              
019516,002651: 41,3411           10137        OCTBACK            CCS      WDCNT                                 
019517,002652: 41,3412           03371                           TC       WDAGAIN                               #  +
019518,002653: 41,3413           44360        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
019519,002654: 41,3414           54777                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.

Page 444

019521,002656: 41,3415           00115                           TC       WDRET                                 
019522,002657: 
019523,002658: 41,3416     4757               DSPMSK             =        SEVEN                                 
019524,002659: 
019525,002660:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
019526,002661:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
019527,002662:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
019528,002663: 
019529,002664: 41,3416           54020        DSP2BIT            TS       CYR                                   
019530,002665: 41,3417           56002                           XCH      Q                                     
019531,002666: 41,3420           54115                           TS       WDRET                                 
019532,002667: 41,3421           34753                           CAF      ONE                                   
019533,002668: 41,3422           54137                           TS       WDCNT                                 
019534,002669: 41,3423           40020                           CS       CYR                                   
019535,002670: 41,3424           40020                           CS       CYR                                   
019536,002671: 41,3425           56020                           XCH      CYR                                   
019537,002672: 41,3426           54022                           TS       CYL                                   
019538,002673: 41,3427           03376                           TC       WDAGAIN    +5                         
019539,002674: 
019540,002675:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE.  BOTH
019541,002676:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
019542,002677:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
019543,002678:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
019544,002679: 
019545,002680: 40,3322                                           SETLOC   ENDECVN                               
019546,002681: 
019547,002682: 40,3322                                           COUNT*   $$/PIN                                
019548,002683: 40,3322           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE 
019549,002684: 40,3323           54114                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
019550,002685: 40,3324           34346                           CAF      LOW5                                  
019551,002686: 40,3325           70143                           MASK     COUNT                                 
019552,002687: 40,3326           54021                           TS       SR                                    
019553,002688: 40,3327           56021                           XCH      SR                                    
019554,002689: 40,3330           54141                           TS       DSREL                                 
019555,002690: 40,3331           34753                           CAF      BIT1                                  
019556,002691: 40,3332           70143                           MASK     COUNT                                 
019557,002692: 40,3333           10000                           CCS      A                                     
019558,002693: 40,3334           03336                           TC       +2                                    #  LEFT IF COUNT IS ODD
019559,002694: 40,3335           03346                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
019560,002695: 40,3336           56124                           XCH      CODE                                  
019561,002696: 40,3337           04340                           TC       SLEFT5                                #  DOES NOT USE CYL
019562,002697: 40,3340           54124                           TS       CODE                                  
019563,002698: 40,3341           34736                           CAF      BIT14                                 
019564,002699: 40,3342           70143                           MASK     COUNT                                 
019565,002700: 40,3343           10000                           CCS      A                                     
019566,002701: 40,3344           34752                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
019567,002702: 40,3345           64753                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
019568,002703: 40,3346           54143                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT

Page 445

019570,002705:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
019571,002706:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
019572,002707: 40,3347           00004        DSPIN1             INHINT                                         
019573,002708: 40,3350           50141                           INDEX    DSREL                                 
019574,002709: 40,3351           11023                           CCS      DSPTAB                                
019575,002710: 40,3352           03354                           TC       +2                                    #  IF +
019576,002711: 40,3353           05705                           TC       CCSHOLE                               
019577,002712: 40,3354           64753                           AD       ONE                                   #  IF -
019578,002713: 40,3355           54142                           TS       DSMAG                                 
019579,002714: 40,3356           50143                           INDEX    COUNT                                 
019580,002715: 40,3357           73400                           MASK     DSMSK                                 
019581,002716: 40,3360           00006                           EXTEND                                         
019582,002717: 40,3361           60124                           SU       CODE                                  
019583,002718: 40,3362           00006                           EXTEND                                         
019584,002719: 40,3363           13376                           BZF      DSLV                                  #  SAME
019585,002720: 40,3364           50143        DFRNT              INDEX    COUNT                                 
019586,002721: 40,3365           43400                           CS       DSMSK                                 #  MASK WITH 77740, 76037, 75777, OR 74037
019587,002722: 40,3366           70142                           MASK     DSMAG                                 
019588,002723: 40,3367           60124                           AD       CODE                                  
019589,002724: 40,3370           40000                           CS       A                                     
019590,002725: 40,3371           50141                           INDEX    DSREL                                 
019591,002726: 40,3372           57023                           XCH      DSPTAB                                
019592,002727: 40,3373           00006                           EXTEND                                         
019593,002728: 40,3374           63376                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
019594,002729: 40,3375           25016                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
019595,002730: 40,3376           00003        DSLV               RELINT                                         
019596,002731: 40,3377           00114                           TC       DSEXIT                                
019597,002732: 
019598,002733: 40,3400           00037        DSMSK              OCT      37                                    
019599,002734: 40,3401           01740                           OCT      1740                                  
019600,002735: 40,3402           02000                           OCT      2000                                  
019601,002736: 40,3403           03740                           OCT      3740                                  
019602,002737: 
019603,002738:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
019604,002739:                                                                                                  #  BIT11 OF CODE.
019605,002740: 
019606,002741: 40,3404           54141        11DSPIN            TS       DSREL                                 
019607,002742: 40,3405           34752                           CAF      TWO                                   
019608,002743: 40,3406           54143                           TS       COUNT                                 
019609,002744: 40,3407           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
019610,002745: 40,3410           54114                           TS       DSEXIT                                
019611,002746: 40,3411           03347                           TC       DSPIN1                                
019612,002747: 
019613,002748: 40,3412           03322        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
019614,002749: 40,3413           33415                           CAF      +2                                    
019615,002750: 40,3414           04640                           TC       BANKJUMP                              
019616,002751: 40,3415           63411        ENDSPOCT           CADR     OCTBACK                               
019617,002752: 

Page 446

019619,002754:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
019620,002755:                                                                                                  #  ABORT WITH 01501.
019621,002756: 
019622,002757:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
019623,002758:                                                                                                  #  DO TC ENTRET.
019624,002759: 
019625,002760: 40,3416           44360        PREDSPAL           CS       VD1                                   
019626,002761: 40,3417           54777                           TS       DSPCOUNT                              
019627,002762: 40,3420           43441        DSPALARM           CS       NVSBENDL                              
019628,002763: 40,3421           60136                           AD       ENTEXIT                               
019629,002764: 40,3422           00006                           EXTEND                                         
019630,002765: 40,3423           13436                           BZF      CHARALRM   +2                         
019631,002766: 40,3424           43440                           CS       MONADR                                #  IF THIS IS A MONITOR, KILL IT
019632,002767: 40,3425           60136                           AD       ENTEXIT                               
019633,002768: 40,3426           00006                           EXTEND                                         
019634,002769: 40,3427           13431                           BZF      +2                                    
019635,002770: 40,3430           03434                           TC       CHARALRM                              
019636,002771: 40,3431           04204                           TC       KILMONON                              
019637,002772: 40,3432           04364                           TC       FALTON                                
019638,002773: 40,3433           04124                           TC       PASTEVB                               #  PUT MONITOR VERB BACK IN VERBREG
019639,002774: 40,3434           04364        CHARALRM           TC       FALTON                                #  NOT NVSUB INITIATED. TURN ON OPR ERROR
019640,002775: 40,3435           05155                           TC       ENDOFJOB                              
019641,002776: 40,3436           05652                           TC       POODOO                                
019642,002777: 40,3437           01501                           OCT      01501                                 
019643,002778: 40,3440           04124        MONADR             GENADR   PASTEVB                               
019644,002779: 40,3441           04202        NVSBENDL           TC       NVSUBEND                              
019645,002780: 
019646,002781:                                                                                                  #  ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
019647,002782:                                                                                                  #  WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
019648,002783:                                                                                                  #  THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
019649,002784:                                                                                                  #  MCTBS.  ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
019650,002785:                                                                                                  #  FOR MM CODE.
019651,002786: 
019652,002787:    4145                                           SETLOC   MID7       +1                         
019653,002788:    4145                                           COUNT*   $$/PIN                                
019654,002789:    4145           04364        ALMCYCLE           TC       FALTON                                #  TURN ON CHECK FAIL LIGHT.
019655,002790:    4146           41041                           CS       VERBSAVE                              #  GET ORIGINAL VERB THAT WAS EXECUTED
019656,002791:    4147           55013                           TS       REQRET                                #  SET FOR ENTPAS0
019657,002792:    4150           04616                           TC       BANKCALL                              #  PUTS ORIGINAL VERB INTO VERBREG AND
019658,002793:    4151           62337                           CADR     UPDATVB    -1                         #  DISPLAYS IT IN VERB LIGHTS.
019659,002794:    4152           04635                           TC       POSTJUMP                              
019660,002795:    4153           62002        ENDALM             CADR     ENTER                                 
019661,002796: 
019662,002797:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER.  THEN IT USES MODE DISP.
019663,002798:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
019664,002799:                                                                                                  #  MM LIGHTS.
019665,002800:                                                                                                  #  IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
019666,002801:                                                                                                  #  IF NOT, IT RECYCLES.
019667,002802: 

Page 447

019669,002804: 41,3430                                           SETLOC   DSP2BIT    +10D                       
019670,002805: 
019671,002806: 41,3430                                           COUNT*   $$/PIN                                
019672,002807: 41,3430           03452        MMCHANG            TC       REQMM                                 #  ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
019673,002808:                                                                                                  #  IF THIS MOVES AT ALL, MUST CHANGE
019674,002809:                                                                                                  #  MMADREF AT ENTPASHI.
019675,002810: 41,3431           34747                           CAF      BIT5                                  #  OCT20 = ND2.
019676,002811: 41,3432           60777                           AD       DSPCOUNT                              #  DSPCOUNT MUST = -ND2.
019677,002812: 41,3433           00006                           EXTEND                                         #  DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
019678,002813: 41,3434           13436                           BZF      +2                                    
019679,002814: 41,3435           04145                           TC       ALMCYCLE                              #  DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
019680,002815: 41,3436           34755                           CAF      ZERO                                  #  DSPCOUNT = -ND2.
019681,002816: 41,3437           57002                           XCH      NOUNREG                               
019682,002817: 41,3440           54154                           TS       MPAC                                  
019683,002818: 41,3441           34361                           CAF      ND1                                   
019684,002819: 41,3442           54777                           TS       DSPCOUNT                              
019685,002820: 41,3443           04616                           TC       BANKCALL                              
019686,002821: 41,3444           60601                           CADR     2BLANK                                
019687,002822: 41,3445           44360                           CS       VD1                                   #  BLOCK NUM CHAR IN
019688,002823: 41,3446           54777                           TS       DSPCOUNT                              
019689,002824: 41,3447           30154                           CA       MPAC                                  
019690,002825: 41,3450           04635                           TC       POSTJUMP                              
019691,002826: 41,3451           10040                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
019692,002827: 
019693,002828: 41,3452  04,2040               MODROUTB           =        V37                                   
019694,002829: 41,3452           40002        REQMM              CS       Q                                     
019695,002830: 41,3453           55013                           TS       REQRET                                
019696,002831: 41,3454           34361                           CAF      ND1                                   
019697,002832: 41,3455           54777                           TS       DSPCOUNT                              
019698,002833: 41,3456           34755                           CAF      ZERO                                  
019699,002834: 41,3457           55002                           TS       NOUNREG                               
019700,002835: 41,3460           04616                           TC       BANKCALL                              
019701,002836: 41,3461           60601                           CADR     2BLANK                                
019702,002837: 41,3462           04427                           TC       FLASHON                               
019703,002838: 41,3463           34753                           CAF      ONE                                   
019704,002839: 41,3464           55000                           TS       DECBRNCH                              #  SET FOR DEC
019705,002840: 41,3465           00136                           TC       ENTEXIT                               
019706,002841: 
019707,002842:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
019708,002843:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.  DISPLAY SYST IS RELEASED.
019709,002844:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
019710,002845:                                                                                                  #  COMPONENT 1  PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
019711,002846:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT)
019712,002847:                                                                                                  #  COMPONENT 3  BBCON
019713,002848: 
019714,002849: 41,3466           34753        VBRQEXEC           CAF      BIT1                                  
019715,002850: 41,3467           71045                           MASK     DSPTEM1                               
019716,002851: 41,3470           10000                           CCS      A                                     

Page 448

019718,002853: 41,3471           03510                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
019719,002854: 41,3472           34351                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
019720,002855: 41,3473           54154        REQEX1             TS       MPAC                                  #  TC NOVAC OR TC FINDVAC INTO MPAC
019721,002856: 41,3474           44753                           CS       BIT1                                  
019722,002857: 41,3475           71045                           MASK     DSPTEM1                               
019723,002858: 41,3476           54160                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
019724,002859: 41,3477           04457        REQUESTC           TC       RELDSP                                
019725,002860: 41,3500           34217                           CA       ENDINST                               
019726,002861: 41,3501           54157                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
019727,002862: 41,3502           00006                           EXTEND                                         
019728,002863: 41,3503           31047                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
019729,002864: 41,3504           52156                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
019730,002865: 41,3505           30160                           CA       MPAC       +4                         #  PRIO IN A
019731,002866: 41,3506           00004                           INHINT                                         
019732,002867: 41,3507           00154                           TC       MPAC                                  
019733,002868: 
019734,002869: 41,3510           34354        SETVAC             CAF      TCFINDVC                              
019735,002870: 41,3511           03473                           TC       REQEX1                                
019736,002871: 
019737,002872:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
019738,002873:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
019739,002874:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
019740,002875:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
019741,002876:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
019742,002877:                                                                                                  #  COMPONENT 3  BBCON
019743,002878: 
019744,002879: 41,3512           34352        VBRQWAIT           CAF      TCWAIT                                
019745,002880: 41,3513           54154                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
019746,002881: 41,3514           31045                           CA       DSPTEM1                               #  TIME DELAY
019747,002882: 41,3515           03476        ENDRQWT            TC       REQUESTC   -1                         
019748,002883: 
019749,002884:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
019750,002885:                                                                                                  #  TC ENDOFJOB INTO MPAC+3.  IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
019751,002886:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
019752,002887: 
019753,002888: 40,3442                                           SETLOC   NVSBENDL   +1                         
019754,002889: 40,3442                                           COUNT*   $$/PIN                                
019755,002890: 40,3442           34753        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
019756,002891: 40,3443           55014                           TS       LOADSTAT                              
019757,002892: 40,3444           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
019758,002893: 40,3445           04457                           TC       RELDSP                                
019759,002894: 40,3446           04433                           TC       FLASHOFF                              
019760,002895: 40,3447           03547                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
019761,002896: 
019762,002897: 40,3450           44753        VBTERM             CS       ONE                                   
019763,002898: 40,3451           03443                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
019764,002899: 

Page 449

019766,002901:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
019767,002902:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
019768,002903: 
019769,002904: 40,3452           34755        PROCKEY            CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
019770,002905: 40,3453           55013                           TS       REQRET                                
019771,002906: 40,3454           44360                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
019772,002907: 40,3455           54777                           TS       DSPCOUNT                              
019773,002908: 40,3456           03442                           TC       VBPROC                                
019774,002909: 
019775,002910:                                                                                                  #  VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
019776,002911:                                                                                                  #  (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
019777,002912:                                                                                                  #   DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
019778,002913:                                                                                                  #   OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
019779,002914: 
019780,002915: 40,3457           44755        VBRESEQ            CS       ZERO                                  #  MAKE IT LOOK LIKE DATA IN.
019781,002916: 40,3460           03443                           TC       VBPROC     +1                         
019782,002917: 
019783,002918:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
019784,002919:                                                                                                  #  END OF LOAD.
019785,002920: 

Page 450

019787,002922: 
019788,002923:                                                                                                  #  KEY RELEASE ROUTINE
019789,002924: 
019790,002925:                                                                                                  #  THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
019791,002926: 
019792,002927:                                                                                                  #  THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
019793,002928:                                                                                                  #  UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
019794,002929:                                                                                                  #  THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
019795,002930:                                                                                                  #  THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
019796,002931: 
019797,002932:                                                                                                  #  IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
019798,002933:                                                                                                  #  AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
019799,002934:                                                                                                  #  USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
019800,002935: 
019801,002936:                                                                                                  #  IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
019802,002937:                                                                                                  #  TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
019803,002938:                                                                                                  #  NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
019804,002939:                                                                                                  #  THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
019805,002940:                                                                                                  #  RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
019806,002941:                                                                                                  #  OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
019807,002942:                                                                                                  #  INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEYRLSE WILL
019808,002943:                                                                                                  #  RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
019809,002944:                                                                                                  #  THEM, SO THAT HE CAN SEE THE WAITING REQUEST. THIS WORKS ONLY FOR
019810,002945:                                                                                                  #  INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
019811,002946:                                                                                                  #  SUBROUTINES.
019812,002947: 
019813,002948: 40,3461           44751        VBRELDSP           CS       BIT3                                  
019814,002949: 40,3462           00006                           EXTEND                                         
019815,002950: 40,3463           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
019816,002951: 40,3464           10115                           CCS      21/22REG                              #  OLD DSPLOCK
019817,002952: 40,3465           34736                           CAF      BIT14                                 
019818,002953: 40,3466           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT (EMB)
019819,002954: 40,3467           10000                           CCS      A                                     
019820,002955: 40,3470           03477                           TC       UNSUSPEN                              #  OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
019821,002956: 40,3471           04457        TSTLTS4            TC       RELDSP                                #  NOT UNSUSPENDING EXTERNAL MONITOR,
019822,002957: 40,3472           11042                           CCS      CADRSTOR                              #        RELEASE DISPLAY SYSTEM AND
019823,002958: 40,3473           03475                           TC       +2                                    #        DO RE-ESTABLISH IF CADRSTOR IS FULL.
019824,002959: 40,3474           05155                           TC       ENDOFJOB                              
019825,002960: 40,3475           04635                           TC       POSTJUMP                              
019826,002961: 40,3476           21050                           CADR     PINBRNCH                              
019827,002962: 40,3477           34755        UNSUSPEN           CAF      ZERO                                  #  EXTERNAL MONITOR IS SUSPENDED,
019828,002963: 40,3500           55012                           TS       DSPLOCK                               #        JUST UNSUSPEND IT BY CLEARING DSPLOCK.
019829,002964: 40,3501           11042                           CCS      CADRSTOR                              #        TURN KEY RELEASE LIGHT OFF IF BOTH
019830,002965: 40,3502           05155                           TC       ENDOFJOB                              #        CADRSTOR AND DSPLIST ARE EMPTY.
019831,002966: 40,3503           04502                           TC       RELDSP1                               
019832,002967: 40,3504           05155                           TC       ENDOFJOB                              
019833,002968: 
019834,002969: 40,3505                        ENDRELDS           EQUALS                                         
019835,002970: 

Page 451

019837,002972:                                                                                                  #  NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
019838,002973:                                                                                                  #  USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
019839,002974:                                                                                                  #  TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
019840,002975:                                                                                                  #  PLACE 0VVVVVVVNNNNNNN INTO A.
019841,002976:                                                                                                  #  V-S ARE THE 7 BIT VERB CODE.  N-S ARE THE 7 BIT NOUN CODE.
019842,002977: 
019843,002978:                                                                                                  #  IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
019844,002979:                                                                                                  #  VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS -
019845,002980:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
019846,002981: 
019847,002982:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
019848,002983:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
019849,002984: 
019850,002985:                                                                                                  #  NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
019851,002986:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
019852,002987:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
019853,002988:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY (RETURN WITH NO
019854,002989:                                                                                                  #  FURTHER ACTION).
019855,002990: 
019856,002991:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
019857,002992:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
019858,002993:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
019859,002994:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
019860,002995: 
019861,002996:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
019862,002997:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET
019863,002998:                                                                                                  #  IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
019864,002999:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
019865,003000:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
019866,003001:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
019867,003002:                                                                                                  #  MONITOR SET UP.
019868,003003: 
019869,003004:                                                                                                  #  THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
019870,003005:                                                                                                  #  INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
019871,003006: 
019872,003007:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
019873,003008:                                                                                                  #  MONITOR.
019874,003009: 
019875,003010:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
019876,003011:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
019877,003012: 
019878,003013:                                                                                                  #  NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
019879,003014:                                                                                                  #  (SIMILARLY FOR PLEASE MARK).  FIRST PLACE THE CODED NUMBER FOR WHAT
019880,003015:                                                                                                  #  ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
019881,003016:                                                                                                  #  :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
019882,003017:                                                                                                  #  NOUN.  GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
019883,003018:                                                                                                  #  LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
019884,003019:                                                                                                  #  LIGHTS.
019885,003020: 
019886,003021:                                                                                                  #  NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL

Page 452

019888,003023:                                                                                                  #  PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
019889,003024:                                                                                                  #  A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
019890,003025:                                                                                                  #  LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
019891,003026:                                                                                                  #  SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL 
019892,003027:                                                                                                  #  BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
019893,003028:                                                                                                  #  CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.)  IF BITS 1-3 OF L ARE
019894,003029:                                                                                                  #  OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
019895,003030:                                                                                                  #  BLANKSUB.  IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
019896,003031:                                                                                                  #  THE PARAMETER IN L HAS NO EFFECT.
019897,003032: 
019898,003033:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
019899,003034:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
019900,003035: 
019901,003036:    4154                                           SETLOC   ENDALM     +1                         
019902,003037: 
019903,003038:    4154                                           COUNT*   $$/PIN                                
019904,003039:    4154           22007        NVSUB              LXCH     7                                     #  ZERO NVMONOPT OPTIONS
019905,003040:    4155           54123        NVMONOPT           TS       NVTEMP                                
019906,003041:    4156           34736                           CAF      BIT14                                 
019907,003042:    4157           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
019908,003043:    4160           61012                           AD       DSPLOCK                               
019909,003044:    4161           10000                           CCS      A                                     
019910,003045:    4162           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
019911,003046:    4163           34753                           CAF      ONE                                   #  DSP SYST AVAILABLE
019912,003047:    4164           60002        NVSBCOM            AD       Q                                     
019913,003048:    4165           55037                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
019914,003049:    4166           23022                           LXCH     MONSAVE2                              #  STORE NVMONOPT OPTIONS
019915,003050:    4167           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
019916,003051:    4170           34201        NVSUBCOM           CAF      NVSBBBNK                              
019917,003052: 
019918,003053:    4171           56006                           XCH      BBANK                                 
019919,003054:    4172           00006                           EXTEND                                         #  SAVE OLD SUPERBITS
019920,003055:    4173           04007                           ROR      SUPERBNK                              
019921,003056:    4174           55040                           TS       NVBNKTEM                              
019922,003057:    4175           34201                           CAF      PINSUPBT                              
019923,003058:    4176           00006                           EXTEND                                         
019924,003059:    4177           01007                           WRITE    SUPERBNK                              
019925,003060:    4200           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
019926,003061:    4201     0777                                  EBANK=   DSPCOUNT                              
019927,003062:    4201           62101        NVSBBBNK           BBCON    NVSUB1                                
019928,003063: 
019929,003064:    4202     4201               PINSUPBT           =        NVSBBBNK                              #  CONTAINS THE PINBALL SUPERBITS.
019930,003065: 
019931,003066:    4202           53040        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
019932,003067:    4203           05165                           TC       SUPDXCHZ                              #  DTCB WITH SUPERBIT SWITCHING
019933,003068: 
019934,003069: 41,3516                                           SETLOC   ENDRQWT    +1                         
019935,003070: 
019936,003071: 41,3516                                           COUNT*   $$/PIN                                
019937,003072: 
019938,003073:                                                                                                  #  BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS

Page 453

019940,003075:                                                                                                  #   -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
019941,003076: 
019942,003077: 41,3516           64757        BLANKDSP           AD       SEVEN                                 #  7,8,9, OR 10 (A HAD 0,1,2,OR 3)
019943,003078: 41,3517           00004                           INHINT                                         
019944,003079: 41,3520           54124                           TS       CODE                                  #  BLANK SPECIFIED DSPTABS
019945,003080: 41,3521           44740                           CS       BIT12                                 
019946,003081: 41,3522           50124                           INDEX    CODE                                  
019947,003082: 41,3523           57023                           XCH      DSPTAB                                
019948,003083: 41,3524           10000                           CCS      A                                     
019949,003084: 41,3525           25016                           INCR     NOUT                                  
019950,003085: 41,3526           03527                           TC       +1                                    
019951,003086: 41,3527           10124                           CCS      CODE                                  
019952,003087: 41,3530           03520                           TC       BLANKDSP   +2                         
019953,003088: 41,3531           00003                           RELINT                                         
019954,003089: 41,3532           50123                           INDEX    NVTEMP                                
019955,003090: 41,3533           03540                           TC       +5                                    
019956,003091: 41,3534           03535                           TC       +1                                    #  NVTEMP HAS    -4 (NEVER TOUCH MODREG)
019957,003092: 41,3535           55001                           TS       VERBREG                               #                -3
019958,003093: 41,3536           55002                           TS       NOUNREG                               #                -2
019959,003094: 41,3537           55015                           TS       CLPASS                                #                -1
019960,003095: 41,3540           44360                           CS       VD1                                   
019961,003096: 41,3541           54777                           TS       DSPCOUNT                              
019962,003097: 41,3542           04433                           TC       FLASHOFF                              #  PROTECT AGAINST INVISIBLE FLASH
019963,003098: 41,3543           03566                           TC       ENTSET     -2                         #  ZEROS REQRET
019964,003099: 
019965,003100: 41,3544           33570        NVSUB1             CAF      ENTSET                                #  IN BANK
019966,003101: 41,3545           54136                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
019967,003102: 41,3546           10123                           CCS      NVTEMP                                #  WHAT NOW
019968,003103: 41,3547           03553                           TC       +4                                    #  NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
019969,003104: 41,3550           02351                           TC       GODSPALM                              
019970,003105: 41,3551           03516                           TC       BLANKDSP                              #  BLANK DISPLAY AS SPECIFIED
019971,003106: 41,3552           02351                           TC       GODSPALM                              
019972,003107: 41,3553           36074                           CAF      LOW7                                  
019973,003108: 41,3554           70123                           MASK     NVTEMP                                
019974,003109: 41,3555           54157                           TS       MPAC       +3                         #  TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
019975,003110: 41,3556           30123                           CA       NVTEMP                                #                USES MPAC, +1, +2
019976,003111: 41,3557           54023                           TS       EDOP                                  #  RIGHT 7
019977,003112: 41,3560           30023                           CA       EDOP                                  
019978,003113: 41,3561           54160                           TS       MPAC       +4                         #  TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
019979,003114:                                                                                                  #                USES MPAC, +1, +2).
019980,003115: 41,3562           10157                           CCS      MPAC       +3                         #  TEST NOUN
019981,003116: 41,3563           03571                           TC       NVSUB2                                #  IF NOUN NOT +0, GO ON
019982,003117: 41,3564           30160                           CA       MPAC       +4                         
019983,003118: 41,3565           02337                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
019984,003119: 41,3566           34755                           CAF      ZERO                                  #  ZERO REQRET SO THAT PASTED VERBS CAN
019985,003120: 41,3567           55013                           TS       REQRET                                #  BE EXECUTED BY OPERATOR.
019986,003121: 41,3570           04202        ENTSET             TC       NVSUBEND                              
019987,003122: 41,3571           10160        NVSUB2             CCS      MPAC       +4                         #  TEST VERB
019988,003123: 41,3572           03576                           TC       +4                                    #  IF VERB NOT +0, GO ON
019989,003124: 41,3573           30157                           CA       MPAC       +3                         

Page 454

019991,003126: 41,3574           02317                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
019992,003127: 41,3575           04202                           TC       NVSUBEND                              
019993,003128: 41,3576           30156                           CA       MPAC       +2                         #  TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
019994,003129: 41,3577           54161                           TS       MPAC       +5                         #        USES MPAC, +1, +2)
019995,003130: 41,3600           30160                           CA       MPAC       +4                         
019996,003131: 41,3601           02337                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
019997,003132: 41,3602           30157                           CA       MPAC       +3                         #  BOTH AND GO TO ENTPAS0.
019998,003133: 41,3603           02317                           TC       UPDATNN    -1                         
019999,003134: 41,3604           34755                           CAF      ZERO                                  
020000,003135: 41,3605           55014                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
020001,003136: 41,3606           55015                           TS       CLPASS                                
020002,003137: 41,3607           55013                           TS       REQRET                                #  SET REQRET FOR PASS 0.
020003,003138: 41,3610           30161                           CA       MPAC       +5                         #  RESTORES MACH CADR TO BE SPEC TO MPAC+2
020004,003139: 41,3611           54156                           TS       MPAC       +2                         #  FOR USE IN INTMCTBS (IN ENTPAS0).
020005,003140: 41,3612           02035        ENDNVSB1           TC       ENTPAS0                               
020006,003141: 
020007,003142:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
020008,003143:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS).
020009,003144: 
020010,003145:    4204                                           SETLOC   NVSUBEND   +2                         
020011,003146:    4204                                           COUNT*   $$/PIN                                
020012,003147:                                                                                                  #  FORCE BIT 15 OF MONSAVE1 TO 1.
020013,003148:    4204           34735        KILMONON           CAF      BIT15                                 #        THIS IS THE KILL MONITOR BIT.
020014,003149:    4205           55021                           TS       MONSAVE1                              #  TURN OFF BIT 14, THE EXTERNAL
020015,003150:                                                                                                  #        MONITOR BIT.
020016,003151:    4206           00002                           TC       Q                                     
020017,003152: 
020018,003153:                                                                                                  #  LOADSTAT      +0      INACTIVE (WAITING FOR DATA). SET BY NVSUB
020019,003154:                                                                                                  #                +1      PROCEED NO DATA. SET BY SPECIAL VERB
020020,003155:                                                                                                  #                -1      TERMINATE  SET BY SPECIAL VERB
020021,003156:                                                                                                  #                -0              DATA IN         SET BY END OF LOAD ROUTINE
020022,003157:                                                                                                  #                        OR      RESEQUENCE      SET BY VERB 32
020023,003158: 
020024,003159:                                                                                                  #  L TC ENDIDLE (FIXED FIXED)
020025,003160:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
020026,003161:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
020027,003162:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
020028,003163:                                                                                                  #  SINCE JOB SLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
020029,003164:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
020030,003165:                                                                                                  #        L+1     FOR TERMINATE
020031,003166:                                                                                                  #        L+2     FOR PROCEED WITHOUT DATA
020032,003167:                                                                                                  #        L+3     FOR DATA IN, OR RESEQUENCE
020033,003168:                                                                                                  #  IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
020034,003169: 
020035,003170:                                                                                                  #  ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP

Page 455

020037,003172:                                                                                                  #  IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
020038,003173:                                                                                                  #  1)    CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
020039,003174:                                                                                                  #        EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
020040,003175:                                                                                                  #  2)    DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
020041,003176:                                                                                                  #        NVSUBUSY.
020042,003177: 
020043,003178:    4207           22002        ENDIDLE            LXCH     Q                                     #  RETURN ADDRESS INTO L.
020044,003179:    4210           04220                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0
020045,003180:    4211           04224                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0
020046,003181:    4212           30001                           CA       L                                     #  DONT SET DSPLOCK TO 1 SO CAN USE
020047,003182:    4213           75012                           MASK     LOW10                                 #  ENDIDLE WITH NVSUB INITIATED MONITOR.
020048,003183:    4214           60004                           AD       FBANK                                 #  SAME STRATEGY FOR CADR AS MAKECADR.
020049,003184:    4215           55042                           TS       CADRSTOR                              
020050,003185:    4216           05133                           TC       JOBSLEEP                              
020051,003186: 
020052,003187:    4217           05155        ENDINST            TC       ENDOFJOB                              
020053,003188: 
020054,003189:    4220           11042        ISCADR+0           CCS      CADRSTOR                              #  ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
020055,003190:    4221           04227                           TC       DSPABORT                              #  RETURNS IF CADRSTOR = +0.
020056,003191:    4222           00002                           TC       Q                                     
020057,003192:    4223           04227                           TC       DSPABORT                              
020058,003193: 
020059,003194:    4224           11043        ISLIST+0           CCS      DSPLIST                               #  ABORTS (CODE 01206) IF DSPLIST NOT= +0.
020060,003195:    4225           04227                           TC       DSPABORT                              #  RETURNS IF DSPLIST = +0.
020061,003196:    4226           00002                           TC       Q                                     
020062,003197:    4227           05652        DSPABORT           TC       POODOO                                
020063,003198:    4230           01206                           OCT      01206                                 
020064,003199: 
020065,003200:                                                                                                  #  JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
020066,003201:                                                                                                  #  IT DOES ENDOFJOB.
020067,003202: 
020068,003203:    4231           34201        JAMTERM            CAF      PINSUPBT                              
020069,003204:    4232           00006                           EXTEND                                         
020070,003205:    4233           01007                           WRITE    SUPERBNK                              
020071,003206:    4234           34242                           CAF      34DEC                                 
020072,003207:    4235           55013                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
020073,003208:    4236           44360                           CS       VD1                                   
020074,003209:    4237           54777                           TS       DSPCOUNT                              
020075,003210:    4240           04635                           TC       POSTJUMP                              
020076,003211:    4241           61450                           CADR     VBTERM                                
020077,003212: 
020078,003213:    4242           00042        34DEC              DEC      34         B-14                       
020079,003214: 
020080,003215:                                                                                                  #  JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
020081,003216:                                                                                                  #  FUNCTION. IT DOES ENDOFJOB.
020082,003217: 

Page 456

020084,003219:    4243           34201        JAMPROC            CAF      PINSUPBT                              
020085,003220:    4244           00006                           EXTEND                                         
020086,003221:    4245           01007                           WRITE    SUPERBNK                              
020087,003222:    4246           34254                           CAF      33DEC                                 
020088,003223:    4247           55013                           TS       REQRET                                #  LEAVE ENTER SET FOR ENTPASS0.
020089,003224:    4250           44360                           CS       VD1                                   
020090,003225:    4251           54777                           TS       DSPCOUNT                              
020091,003226:    4252           04635                           TC       POSTJUMP                              
020092,003227:    4253           61442                           CADR     VBPROC                                
020093,003228: 
020094,003229:    4254           00041        33DEC              DEC      33         B-14                       
020095,003230: 
020096,003231:                                                                                                  #  BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
020097,003232:                                                                                                  #  CALL WITH BLANKING CODE IN A.
020098,003233:                                                                                                  #  BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
020099,003234:                                                                                                  #  ANY COMBINATION OF THESE BITS IS ACCEPTED.
020100,003235: 
020101,003236:                                                                                                  #  DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
020102,003237: 
020103,003238:    4255           74757        BLANKSUB           MASK     SEVEN                                 
020104,003239:    4256           54123                           TS       NVTEMP                                #  STORE BLANKING CODE IN NVTEMP.
020105,003240:    4257           34736                           CAF      BIT14                                 
020106,003241:    4260           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020107,003242:    4261           61012                           AD       DSPLOCK                               
020108,003243:    4262           10000                           CCS      A                                     
020109,003244:    4263           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020110,003245:    4264           24002                           INCR     Q                                     #  DSP SYST AVAILABLE
020111,003246:                                                                                                  #  SET RETURN FOR 2+ CALLING LOC
020112,003247:    4265           10123                           CCS      NVTEMP                                
020113,003248:    4266           14270                           TCF      +2                                    
020114,003249:    4267           00002                           TC       Q                                     #  NOTHING TO BLANK. RET TO 2+ CALLING LOC
020115,003250:    4270           22002                           LXCH     Q                                     #  SET RETURN FOR 2 + CALLING LOC
020116,003251:    4271           34302                           CAF      BLNKBBNK                              
020117,003252:    4272           56006                           XCH      BBANK                                 
020118,003253:    4273           00006                           EXTEND                                         
020119,003254:    4274           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBITS.
020120,003255:    4275           52131                           DXCH     BUF                                   
020121,003256:    4276           34201                           CAF      PINSUPBT                              
020122,003257:    4277           00006                           EXTEND                                         
020123,003258:    4300           01007                           WRITE    SUPERBNK                              
020124,003259:    4301           03505                           TC       BLNKSUB1                              
020125,003260: 
020126,003261:    4302     0777                                  EBANK=   DSPCOUNT                              
020127,003262:    4302           60101        BLNKBBNK           BBCON    BLNKSUB1                              
020128,003263:    4303                        ENDBLFF            EQUALS                                         
020129,003264: 
020130,003265: 40,3505                                           SETLOC   ENDRELDS                              
020131,003266: 40,3505                                           COUNT*   $$/PIN                                
020132,003267: 40,3505           30777        BLNKSUB1           CA       DSPCOUNT                              #  SAVE OLD DSPCOUNT FOR LATER RESTORATION

Page 457

020134,003269: 40,3506           54132                           TS       BUF        +2                         
020135,003270: 40,3507           34753                           CAF      BIT1                                  #  TEST BIT1. SEE IF R1 TO BE BLANKED.
020136,003271: 40,3510           03527                           TC       TESTBIT                               
020137,003272: 40,3511           34317                           CAF      R1D1                                  
020138,003273: 40,3512           02535                           TC       5BLANK     -1                         
020139,003274: 40,3513           34752                           CAF      BIT2                                  #  TEST BIT2. SEE IF R2 TO BE BLANKED.
020140,003275: 40,3514           03527                           TC       TESTBIT                               
020141,003276: 40,3515           34320                           CAF      R2D1                                  
020142,003277: 40,3516           02535                           TC       5BLANK     -1                         
020143,003278: 40,3517           34751                           CAF      BIT3                                  #  TEST BIT3. SEE IF R3 TO BE BLANKED.
020144,003279: 40,3520           03527                           TC       TESTBIT                               
020145,003280: 40,3521           34321                           CAF      R3D1                                  
020146,003281: 40,3522           02535                           TC       5BLANK     -1                         
020147,003282: 40,3523           30132                           CA       BUF        +2                         #  RESTORE DSPCOUNT TO STATE IT HAD
020148,003283: 40,3524           54777                           TS       DSPCOUNT                              #        BEFORE BLANKSUB.
020149,003284: 40,3525           52131                           DXCH     BUF                                   #  CALL L+2 DIRECTLY.
020150,003285: 40,3526           05166                           TC       SUPDXCHZ   +1                         #  DTCB WITH SUPERBIT SWITCHING
020151,003286: 
020152,003287: 40,3527           70123        TESTBIT            MASK     NVTEMP                                #  NVTEMP CONTAINS BLANKING CODE.
020153,003288: 40,3530           10000                           CCS      A                                     
020154,003289: 40,3531           00002                           TC       Q                                     #  IF CURRENT BIT = 1, RETURN TO L+1.
020155,003290: 40,3532           50002                           INDEX    Q                                     #  IF CURRENT BIT = 0, RETURN TO L+3.
020156,003291: 40,3533           00002                           TC       2                                     
020157,003292: 
020158,003293: 40,3534                        ENDBSUB1           EQUALS                                         
020159,003294: 
020160,003295:                                                                                                  #  DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
020161,003296:                                                                                                  #  PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
020162,003297: 
020163,003298:                                                                                                  #  IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
020164,003299: 
020165,003300:                                                                                                  #  DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
020166,003301: 
020167,003302: 07,2667                                           BANK     7                                     
020168,003303: 04,2000                                           SETLOC   PINBALL4                              
020169,003304: 04,2000                                           BANK                                           
020170,003305: 
020171,003306: 04,2636                                           COUNT*   $$/PIN                                
020172,003307: 04,2636           56002        DSPMM              XCH      Q                                     
020173,003308: 04,2637           54154                           TS       MPAC                                  
020174,003309: 04,2640           00004                           INHINT                                         
020175,003310: 04,2641           34355                           CAF      CHRPRIO                               
020176,003311: 04,2642           05072                           TC       NOVAC                                 
020177,003312: 04,2643     0777                                  EBANK=   DSPCOUNT                              
020178,003313: 04,2643           03534 60101                     2CADR    DSPMMJB                               
020179,003314: 
020180,003315: 04,2645           00003                           RELINT                                         
020181,003316: 04,2646           00154        ENDSPMM            TC       MPAC                                  
020182,003317: 

Page 458

020184,003319:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
020185,003320: 
020186,003321: 40,3534                                           SETLOC   ENDBSUB1                              
020187,003322: 
020188,003323: 40,3534                                           COUNT*   $$/PIN                                
020189,003324: 40,3534           34362        DSPMMJB            CAF      MD1                                   #  GETS HERE THRU DSPMM
020190,003325: 40,3535           56777                           XCH      DSPCOUNT                              
020191,003326: 40,3536           54140                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
020192,003327: 40,3537           11011                           CCS      MODREG                                
020193,003328: 40,3540           64753                           AD       ONE                                   
020194,003329: 40,3541           03306                           TC       DSPDECVN                              #  IF MODREG IS + OR +0, DISPLAY MODREG
020195,003330: 40,3542           03544                           TC       +2                                    #  IF MODREG IS -NZ, DO NOTHING
020196,003331: 40,3543           02601                           TC       2BLANK                                #  IF MODREG IS -0, BLANK MM
020197,003332: 40,3544           56140                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
020198,003333: 40,3545           54777                           TS       DSPCOUNT                              
020199,003334: 40,3546           05155                           TC       ENDOFJOB                              
020200,003335: 
020201,003336:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
020202,003337:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
020203,003338:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
020204,003339:                                                                                                  #  
020205,003340:                                                                                                  #  IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
020206,003341:                                                                                                  #  LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
020207,003342: 
020208,003343: 40,3547           11042        RECALTST           CCS      CADRSTOR                              
020209,003344: 40,3550           03552                           TC       RECAL1                                
020210,003345: 40,3551           05155                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
020211,003346: 40,3552           34755        RECAL1             CAF      ZERO                                  
020212,003347: 40,3553           57042                           XCH      CADRSTOR                              
020213,003348: 40,3554           00004                           INHINT                                         
020214,003349: 40,3555           05137                           TC       JOBWAKE                               
020215,003350: 40,3556           11014                           CCS      LOADSTAT                              
020216,003351: 40,3557           03601                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
020217,003352: 40,3560           05155                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
020218,003353: 40,3561           03577                           TC       DOTERM                                #  - TERMINATE
020219,003354: 40,3562           34752                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
020220,003355: 40,3563           50064        RECAL2             INDEX    LOCCTR                                
020221,003356: 40,3564           60164                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
020222,003357: 40,3565           50064                           INDEX    LOCCTR                                
020223,003358: 40,3566           54164                           TS       LOC                                   
020224,003359: 40,3567           31002                           CA       NOUNREG                               #  SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
020225,003360: 40,3570           54001                           TS       L                                     #  TIME OF RESPONSE TO ENDIDLE FOR
020226,003361: 40,3571           31001                           CA       VERBREG                               #  POSSIBLE LATER TESTING BY JOB THAT HAS
020227,003362: 40,3572           50064                           INDEX    LOCCTR                                #  BEEN WAKED UP.
020228,003363: 40,3573           52155                           DXCH     MPAC                                  
020229,003364: 40,3574           00003                           RELINT                                         
020230,003365: 40,3575           04457        RECAL3             TC       RELDSP                                
020231,003366: 40,3576           05155                           TC       ENDOFJOB                              
020232,003367: 

Page 459

020234,003369: 40,3577           34755        DOTERM             CAF      ZERO                                  
020235,003370: 40,3600           03563                           TC       RECAL2                                
020236,003371: 
020237,003372: 40,3601           34753        DOPROC             CAF      ONE                                   
020238,003373: 40,3602           03563                           TC       RECAL2                                
020239,003374: 

Page 460

020241,003376: 
020242,003377:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
020243,003378: 
020244,003379:    4303                                           SETLOC   ENDBLFF                               
020245,003380: 
020246,003381:    4303                                           COUNT*   $$/PIN                                
020247,003382: 
020248,003383:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
020249,003384:                                                                                                  #                ARE SET.  E ADRES IS DERIVED AND PUT INTO NOUNADD.
020250,003385: 
020251,003386:    4303           55017        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
020252,003387:    4304           54003                           TS       EBANK                                 #  SET EBANK BITS
020253,003388:    4305           74357                           MASK     LOW8                                  
020254,003389:    4306           65007                           AD       OCT1400                               
020255,003390:    4307           54145                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
020256,003391:    4310           00002                           TC       Q                                     
020257,003392: 
020258,003393:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
020259,003394:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
020260,003395: 
020261,003396:    4311           31017        SETNADD            CA       NOUNCADR                              
020262,003397:    4312           14304                           TCF      SETNCADR   +1                         
020263,003398: 
020264,003399:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
020265,003400:                                                                                                  #                DERIVED AND LEFT IN A.
020266,003401: 
020267,003402:    4313           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
020268,003403:    4314           74357                           MASK     LOW8                                  
020269,003404:    4315           65007                           AD       OCT1400                               #  E ADRES LEFT IN A
020270,003405:    4316           00002                           TC       Q                                     
020271,003406: 
020272,003407:    4317           00016        R1D1               OCT      16                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
020273,003408:    4320           00011        R2D1               OCT      11                                    #  DONT SEPARATE.
020274,003409:    4321           00004        R3D1               OCT      4                                     
020275,003410: 
020276,003411:    4322           54020        RIGHT5             TS       CYR                                   
020277,003412:    4323           40020                           CS       CYR                                   
020278,003413:    4324           40020                           CS       CYR                                   
020279,003414:    4325           40020                           CS       CYR                                   
020280,003415:    4326           40020                           CS       CYR                                   
020281,003416:    4327           56020                           XCH      CYR                                   
020282,003417:    4330           00002                           TC       Q                                     
020283,003418: 
020284,003419:    4331           54022        LEFT5              TS       CYL                                   
020285,003420:    4332           40022                           CS       CYL                                   
020286,003421:    4333           40022                           CS       CYL                                   
020287,003422:    4334           40022                           CS       CYL                                   
020288,003423:    4335           40022                           CS       CYL                                   

Page 461

020290,003425:    4336           56022                           XCH      CYL                                   
020291,003426:    4337           00002                           TC       Q                                     
020292,003427: 
020293,003428:    4340           60000        SLEFT5             DOUBLE                                         
020294,003429:    4341           60000                           DOUBLE                                         
020295,003430:    4342           60000                           DOUBLE                                         
020296,003431:    4343           60000                           DOUBLE                                         
020297,003432:    4344           60000                           DOUBLE                                         
020298,003433:    4345           00002                           TC       Q                                     
020299,003434: 
020300,003435:    4346           00037        LOW5               OCT      37                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
020301,003436:    4347           01740        MID5               OCT      1740                                  #  DONT SEPARATE.
020302,003437:    4350           76000        HI5                OCT      76000                                 #  MUST STAY HERE
020303,003438: 
020304,003439:    4351           05072        TCNOVAC            TC       NOVAC                                 
020305,003440:    4352           05203        TCWAIT             TC       WAITLIST                              
020306,003441:    4353           05261        TCTSKOVR           TC       TASKOVER                              
020307,003442:    4354           05105        TCFINDVC           TC       FINDVAC                               
020308,003443: 
020309,003444:    4355           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
020310,003445: 
020311,003446:    4356           03777        LOW11              OCT      3777                                  
020312,003447:    4357     4356               B12-1              EQUALS   LOW11                                 
020313,003448:    4357           00377        LOW8               OCT      377                                   
020314,003449: 
020315,003450:    4360           00023        VD1                OCT      23                                    #  THESE 3 CONSTANTS FORM A PACKED TABLE.
020316,003451:    4361           00021        ND1                OCT      21                                    #  DONT SEPARATE.
020317,003452:    4362           00025        MD1                OCT      25                                    
020318,003453: 
020319,003454:    4363           00012        BINCON             DEC      10         B-14                       
020320,003455: 
020321,003456:    4364           34745        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
020322,003457:    4365           00006                           EXTEND                                         
020323,003458:    4366           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
020324,003459:    4367           00002                           TC       Q                                     
020325,003460: 
020326,003461:    4370           44745        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
020327,003462:    4371           00006                           EXTEND                                         
020328,003463:    4372           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
020329,003464:    4373           00002                           TC       Q                                     
020330,003465: 
020331,003466:    4374           34747        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
020332,003467:    4375           00006                           EXTEND                                         
020333,003468:    4376           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
020334,003469:    4377           00002                           TC       Q                                     
020335,003470: 

Page 462

020337,003472:    4400           00006        LODSAMPT           EXTEND                                         
020338,003473:    4401           30025                           DCA      TIME2                                 
020339,003474:    4402           52014                           DXCH     SAMPTIME                              
020340,003475:    4403           00002                           TC       Q                                     
020341,003476: 
020342,003477:    4404           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
020343,003478:    4405           30156                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
020344,003479:    4406           20156                           DAS      MPAC       +1                         
020345,003480:    4407           60154                           AD       MPAC                                  
020346,003481:    4410           26154                           ADS      MPAC                                  
020347,003482:    4411           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
020348,003483:    4412           00002                           TC       Q                                     #  NO NET OF/UF
020349,003484:    4413           54162                           TS       MPAC+6                                #  MPAC +6 SET TO +/- 1 FOR OF/UF
020350,003485:    4414           00002                           TC       Q                                     
020351,003486: 
020352,003487:                                                                                                  #  IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
020353,003488:                                                                                                  #  IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
020354,003489:                                                                                                  #  PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
020355,003490:                                                                                                  #  SETTING RESULT TO -0.
020356,003491:                                                                                                  #   (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
020357,003492:                                                                                                  #   WHEN THEY CONTAIN THE SF CONSTANTS.)
020358,003493: 
020359,003494:    4415           54135        PRSHRTMP           TS       MPTEMP                                
020360,003495:    4416           10000                           CCS      A                                     
020361,003496:    4417           30135                           CA       MPTEMP                                #  C(A) +, DO REGULAR SHORTMP
020362,003497:    4420           17310                           TCF      SHORTMP    +1                         #  C(A) +0, DO REGULAR SHORTMP
020363,003498:    4421           14417                           TCF      -2                                    #  C(A) -, DO REGULAR SHORTMP
020364,003499:    4422           44755                           CS       ZERO                                  #  C(A) -0, FORCE RESULT TO -0 AND RETURN.
020365,003500:    4423           54154                           TS       MPAC                                  
020366,003501:    4424           54155                           TS       MPAC       +1                         
020367,003502:    4425           54156                           TS       MPAC       +2                         
020368,003503:    4426           00002                           TC       Q                                     
020369,003504: 
020370,003505:    4427           34746        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
020371,003506:    4430           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
020372,003507:    4431           05011                           WOR      DSALMOUT                              
020373,003508:    4432           00002                           TC       Q                                     
020374,003509: 
020375,003510:    4433           44746        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
020376,003511:    4434           00006                           EXTEND                                         
020377,003512:    4435           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
020378,003513:    4436           00002                           TC       Q                                     
020379,003514: 

Page 463

020381,003516:                                                                                                  #  INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
020382,003517: 
020383,003518:                                                                                                  #  USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
020384,003519:                                                                                                  #  CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
020385,003520:                                                                                                  #  HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
020386,003521:                                                                                                  #  OFFERED.
020387,003522: 
020388,003523:                                                                                                  #  THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
020389,003524:                                                                                                  #  PROGRAM.      1) BY ENDIDLE
020390,003525:                                                                                                  #                2) BY NVSUBUSY
020391,003526:                                                                                                  #  THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
020392,003527:                                                                                                  #  THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
020393,003528:                                                                                                  #  SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
020394,003529:                                                                                                  #  PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
020395,003530: 
020396,003531:                                                                                                  #  THE CALLING SEQUENCE FOR NVSUB IS
020397,003532:                                                                                                  #                        CAF             V/N
020398,003533:                                                                                                  #        L               TC              NVSUB
020399,003534:                                                                                                  #        L+1             RETURN HERE IF OPERATOR HAS INTERVENED
020400,003535:                                                                                                  #        L+2             RETURN HERE AFTER EXECUTION
020401,003536: 
020402,003537:                                                                                                  #  A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
020403,003538:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
020404,003539:                                                                                                  #  SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
020405,003540:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
020406,003541:                                                                                                  #  SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
020407,003542: 
020408,003543:                                                                                                  #  THE CALLING SEQUENCE IS
020409,003544:                                                                                                  #        CAF     WAKEFCADR
020410,003545:                                                                                                  #        TC      NVSUBUSY
020411,003546: 
020412,003547: 
020413,003548:                                                                                                  #  .
020414,003549: 
020415,003550:                                                                                                  #  NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
020416,003551:                                                                                                  #  IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
020417,003552:                                                                                                  #  NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL 
020418,003553:                                                                                                  #  PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
020419,003554: 
020420,003555:                                                                                                  #  NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
020421,003556:                                                                                                  #  SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
020422,003557:                                                                                                  #  WHEN
020423,003558:                                                                                                  #  1)    DSPLIST NOT= +0.  THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
020424,003559:                                                                                                  #        IS EXCEEDED.
020425,003560:                                                                                                  #  2)    CADRSTOR NOT= +0.  THIS INDICATES THAT A JOB IS ALREADY USING

Page 464

020427,003562:                                                                                                  #  ENDIDLE.  (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
020428,003563: 
020429,003564:    4437           44444        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
020430,003565:    4440           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF (LOC
020431,003566:    4441           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
020432,003567:    4442           04635        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
020433,003568:    4443           10647                           CADR     NVSUBSY1                              
020434,003569:    4444           02003        2K+3               OCT      2003                                  
020435,003570: 
020436,003571:                                                                                                  #  NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
020437,003572:                                                                                                  #  WITH HIS PROPER SUPERBITS.
020438,003573: 
020439,003574: 04,2647                                           SETLOC   ENDSPMM    +1                         
020440,003575: 04,2647                                           COUNT*   $$/PIN                                
020441,003576: 04,2647           54001        NVSUBSY1           TS       L                                     
020442,003577: 04,2650           04220                           TC       ISCADR+0                              #  ABORT IF CADRSTOR NOT= +0.
020443,003578: 04,2651           04224                           TC       ISLIST+0                              #  ABORT IF DSPLIST NOT= +0.
020444,003579: 04,2652           04374                           TC       RELDSPON                              
020445,003580: 04,2653           30001                           CA       L                                     
020446,003581: 04,2654           55043                           TS       DSPLIST                               
020447,003582: 04,2655           05133        ENDNVBSY           TC       JOBSLEEP                              
020448,003583: 
020449,003584:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
020450,003585:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
020451,003586:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
020452,003587:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
020453,003588:                                                                                                  #  IS NOT BUSY.
020454,003589: 
020455,003590:    4445                                           SETLOC   NVSUBUSY   +3                         
020456,003591:    4445                                           COUNT*   $$/PIN                                
020457,003592:    4445           22007        NVSBWAIT           LXCH     7                                     #  ZERO NVMONOPT OPTIONS
020458,003593:    4446           54123                           TS       NVTEMP                                
020459,003594:    4447           34736                           CAF      BIT14                                 
020460,003595:    4450           71021                           MASK     MONSAVE1                              #  EXTERNAL MONITOR BIT
020461,003596:    4451           61012                           AD       DSPLOCK                               
020462,003597:    4452           10000                           CCS      A                                     
020463,003598:    4453           14455                           TCF      NVSBWT1                               #  BUSY
020464,003599:    4454           14164                           TCF      NVSBCOM                               #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
020465,003600:                                                                                                  #  AFTER EXECUTION.
020466,003601:    4455           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
020467,003602:    4456           14437                           TCF      PRENVBSY                              #  GO TO SLEEP.
020468,003603: 
020469,003604:                                                                                                  #  RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
020470,003605:                                                                                                  #  VERB DISPATCHER, VBRESEQ, RECALTST.
020471,003606:                                                                                                  #  RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
020472,003607: 
020473,003608:    4457           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
020474,003609:    4460           54144                           TS       RELRET                                #  OFF, SEARCH DSPLIST
020475,003610:    4461           44736                           CS       BIT14                                 

Page 465

020477,003612:    4462           00004                           INHINT                                         
020478,003613:    4463           71021                           MASK     MONSAVE1                              
020479,003614:    4464           55021                           TS       MONSAVE1                              #  TURN OFF EXTERNAL MONITOR BIT
020480,003615:    4465           11043                           CCS      DSPLIST                               
020481,003616:    4466           04470                           TC       +2                                    
020482,003617:    4467           04473                           TC       RELDSP2                               #  LIST EMPTY
020483,003618:    4470           34755                           CAF      ZERO                                  
020484,003619:    4471           57043                           XCH      DSPLIST                               
020485,003620:    4472           05137                           TC       JOBWAKE                               
020486,003621:    4473           00003        RELDSP2            RELINT                                         
020487,003622:    4474           44747                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
020488,003623:    4475           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
020489,003624:    4476           03011                           WAND     DSALMOUT                              
020490,003625:    4477           34755                           CAF      ZERO                                  
020491,003626:    4500           55012                           TS       DSPLOCK                               
020492,003627:    4501           00144                           TC       RELRET                                
020493,003628:    4502           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
020494,003629:    4503           54144                           TS       RELRET                                #  TURN KEY RLSE LIGHT OFF IF DSPLIST IS
020495,003630:                                                                                                  #  EMPTY. LEAVE KEY RLSE LIGHT ALONE IF 
020496,003631:                                                                                                  #  DSPLIST IS NOT EMPTY.
020497,003632:    4504           11043                           CCS      DSPLIST                               
020498,003633:    4505           04507                           TC       +2                                    #  +  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
020499,003634:    4506           04473                           TC       RELDSP2                               #  +0 EMPTY. TURN OFF KEY RLSE LIGHT
020500,003635:    4507           34755                           CAF      ZERO                                  #  -  NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
020501,003636:    4510           55012                           TS       DSPLOCK                               
020502,003637:    4511           00144                           TC       RELRET                                
020503,003638: 
020504,003639:    4512                        ENDPINBF           EQUALS                                         
020505,003640: 

Page 466

020507,003642:                                                                                                  #  PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
020508,003643: 
020509,003644:    4512  43,2002               PINTEST            EQUALS   LST2FAN                               
020510,003645: 

Page 467

020512,003647:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
020513,003648:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
020514,003649: 
020515,003650: 41,3613                                           SETLOC   ENDNVSB1   +1                         
020516,003651: 
020517,003652: 41,3613                                           COUNT*   $$/PIN                                
020518,003653: 41,3613           00004        VBTSTLTS           INHINT                                         
020519,003654: 41,3614           44753                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
020520,003655: 41,3615           71303                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
020521,003656: 41,3616           64753                           AD       BIT1                                  
020522,003657: 41,3617           55303                           TS       IMODES33                              
020523,003658: 
020524,003659: 41,3620           33656                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
020525,003660: 41,3621           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
020526,003661: 41,3622           05011                           WOR      DSALMOUT                              
020527,003662: 41,3623           33657                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
020528,003663: 41,3624           55036                           TS       DSPTAB     +11D                       #  PROG ALM.
020529,003664: 41,3625           34742                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
020530,003665: 41,3626           00006                           EXTEND                                         
020531,003666: 41,3627           05013                           WOR      CHAN13                                
020532,003667: 41,3630           34363                           CAF      TEN                                   
020533,003668: 41,3631           54117        TSTLTS1            TS       ERCNT                                 
020534,003669: 41,3632           43654                           CS       FULLDSP                               
020535,003670: 41,3633           50117                           INDEX    ERCNT                                 
020536,003671: 41,3634           55023                           TS       DSPTAB                                
020537,003672: 41,3635           10117                           CCS      ERCNT                                 
020538,003673: 41,3636           03631                           TC       TSTLTS1                               
020539,003674: 41,3637           43655                           CS       FULLDSP1                              
020540,003675: 41,3640           55024                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
020541,003676: 41,3641           55027                           TS       DSPTAB     +4                         
020542,003677: 41,3642           55031                           TS       DSPTAB     +6                         
020543,003678: 41,3643           34760                           CAF      ELEVEN                                
020544,003679: 41,3644           55016                           TS       NOUT                                  
020545,003680: 41,3645           00003                           RELINT                                         
020546,003681: 41,3646           33661                           CAF      SHOLTS                                
020547,003682: 41,3647           00004                           INHINT                                         
020548,003683: 41,3650           05203                           TC       WAITLIST                              
020549,003684: 41,3651     1023                                  EBANK=   DSPTAB                                
020550,003685: 41,3651           03662 62102                     2CADR    TSTLTS2                               
020551,003686: 
020552,003687: 41,3653           05155                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
020553,003688:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
020554,003689:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
020555,003690: 
020556,003691: 41,3654           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
020557,003692: 41,3655           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
020558,003693: 41,3656           00175        TSTCON1            OCT      00175                                 
020559,003694:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
020560,003695:                                                                                                  #  V/N FLASH, OPERATOR ERROR.

Page 468

020562,003697: 41,3657           40674        TSTCON2            OCT      40674                                 #  DSPTAB+11D BITS 3,4,5,6,8,9. LR LITES,
020563,003698:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
020564,003699: 41,3660           00115        TSTCON3            OCT      00115                                 #  CHAN 11 BITS 1, 3, 4, 7.
020565,003700:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
020566,003701: 41,3661           00764        SHOLTS             OCT      764                                   #  5 SEC
020567,003702: 
020568,003703: 41,3662           34355        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
020569,003704: 41,3663           05072                           TC       NOVAC                                 
020570,003705: 41,3664     1023                                  EBANK=   DSPTAB                                
020571,003706: 41,3664           03667 62102                     2CADR    TSTLTS3                               
020572,003707: 
020573,003708: 41,3666           05261                           TC       TASKOVER                              
020574,003709: 
020575,003710: 41,3667           43660        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
020576,003711: 41,3670           00004                           INHINT                                         
020577,003712: 41,3671           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
020578,003713: 41,3672           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
020579,003714: 41,3673           44742                           CS       BIT10                                 #  TURN OFF  TEST ALARM OUTBIT
020580,003715: 41,3674           00006                           EXTEND                                         
020581,003716: 41,3675           03013                           WAND     CHAN13                                
020582,003717: 41,3676           34750                           CAF      BIT4                                  #  MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
020583,003718: 41,3677           00006                           EXTEND                                         #    (NO ATT LIGHT ON IF IN COARSE ALIGN)
020584,003719: 41,3700           02012                           RAND     CHAN12                                
020585,003720: 41,3701           64735                           AD       BIT15                                 #  TURN OFF AUTO, HOLD, FREE, SPARE,
020586,003721: 41,3702           55036                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
020587,003722: 41,3703           43726                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
020588,003723: 41,3704           71303                           MASK     IMODES33                              #  LIGHTS COMPLETE.
020589,003724: 41,3705           65026                           AD       PRIO16                                
020590,003725: 41,3706           55303                           TS       IMODES33                              
020591,003726: 
020592,003727: 41,3707           43730                           CS       OCT55000                              
020593,003728: 41,3710           71302                           MASK     IMODES30                              
020594,003729: 41,3711           65025                           AD       PRIO15                                #  15000.
020595,003730: 41,3712           55302                           TS       IMODES30                              
020596,003731: 
020597,003732: 41,3713           43727                           CS       RFAILS2                               
020598,003733: 41,3714           70110                           MASK     RADMODES                              
020599,003734: 41,3715           64745                           AD       RCDUFBIT                              
020600,003735: 41,3716           54110                           TS       RADMODES                              
020601,003736: 
020602,003737: 41,3717           00003                           RELINT                                         
020603,003738: 
020604,003739: 41,3720           04616                           TC       BANKCALL                              #  REDISPLAY C(MODREG)
020605,003740: 41,3721           10636                           CADR     DSPMM                                 
020606,003741: 41,3722           04204                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT.
020607,003742: 41,3723           04433                           TC       FLASHOFF                              #  TURN OFF V/N FLASH.
020608,003743: 41,3724           04635                           TC       POSTJUMP                              #  DOES RELDSP AND GOES TO PINBRNCH IF
020609,003744: 41,3725           61471                           CADR     TSTLTS4                               #   ENDIDLE IS AWAITING OPERATOR RESPONSE.

Page 469

020611,003746: 41,3726           16001        13-11,1            OCT      16001                                 
020612,003747: 41,3727           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
020613,003748: 41,3730           55000        OCT55000           OCT      55000                                 
020614,003749: 41,3731                        ENDPINS2           EQUALS                                         
020615,003750: 

Page 470

020617,003752:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
020618,003753:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
020619,003754:                                                                                                  #  PROG ALM, TRACKER FAIL.
020620,003755:                                                                                                  #  LEAVES GIMBAL LOCK AND NO ATT ALONE.
020621,003756:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY, RESTART.
020622,003757:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
020623,003758:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
020624,003759: 
020625,003760: 40,3603                                           SETLOC   DOPROC     +2                         
020626,003761: 40,3603                                           COUNT*   $$/PIN                                
020627,003762: 40,3603           56115        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
020628,003763: 40,3604           55012                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
020629,003764: 40,3605           00004                           INHINT                                         
020630,003765: 40,3606           34742                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
020631,003766: 40,3607           00006                           EXTEND                                         
020632,003767: 40,3610           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
020633,003768: 40,3611           33672                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
020634,003769: 40,3612           71036                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
020635,003770: 40,3613           64735                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
020636,003771: 40,3614           55036                           TS       DSPTAB     +11D                       
020637,003772: 40,3615           45026                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
020638,003773: 40,3616           71303                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
020639,003774: 40,3617           65026                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
020640,003775: 40,3620           55303                           TS       IMODES33                              
020641,003776: 40,3621           44742                           CS       BIT10                                 
020642,003777: 40,3622           71302                           MASK     IMODES30                              
020643,003778: 40,3623           64742                           AD       BIT10                                 
020644,003779: 40,3624           55302                           TS       IMODES30                              
020645,003780: 
020646,003781: 40,3625           43671                           CS       RFAILS                                
020647,003782: 40,3626           70110                           MASK     RADMODES                              
020648,003783: 40,3627           64745                           AD       RCDUFBIT                              
020649,003784: 40,3630           54110                           TS       RADMODES                              
020650,003785: 
020651,003786: 40,3631           44742                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
020652,003787: 40,3632           00006                           EXTEND                                         
020653,003788: 40,3633           03013                           WAND     CHAN13                                
020654,003789: 40,3634           43670                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
020655,003790: 40,3635           00006                           EXTEND                                         #  OPERATOR ERROR.
020656,003791: 40,3636           03011                           WAND     DSALMOUT                              
020657,003792: 40,3637           34363        TSTAB              CAF      BINCON                                #  (DEC 10)
020658,003793: 40,3640           54117                           TS       ERCNT                                 #  ERCNT = COUNT
020659,003794: 40,3641           00004                           INHINT                                         
020660,003795: 40,3642           50117                           INDEX    ERCNT                                 
020661,003796: 40,3643           11023                           CCS      DSPTAB                                
020662,003797: 40,3644           64753                           AD       ONE                                   
020663,003798: 40,3645           03652                           TC       ERPLUS                                
020664,003799: 40,3646           64753                           AD       ONE                                   
020665,003800: 40,3647           40000        ERMINUS            CS       A                                     
020666,003801: 40,3650           73673                           MASK     NOTBIT12                              

Page 471

020668,003803: 40,3651           03655                           TC       ERCOM                                 
020669,003804: 40,3652           40000        ERPLUS             CS       A                                     
020670,003805: 40,3653           73673                           MASK     NOTBIT12                              
020671,003806: 40,3654           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
020672,003807: 40,3655           50117        ERCOM              INDEX    ERCNT                                 #  ETC.
020673,003808: 40,3656           55023                           TS       DSPTAB                                
020674,003809: 40,3657           00003                           RELINT                                         
020675,003810: 40,3660           10117                           CCS      ERCNT                                 
020676,003811: 40,3661           03640                           TC       TSTAB      +1                         
020677,003812: 40,3662           34755                           CAF      ZERO                                  
020678,003813: 40,3663           54375                           TS       FAILREG                               
020679,003814: 40,3664           54376                           TS       FAILREG    +1                         
020680,003815: 40,3665           54377                           TS       FAILREG    +2                         
020681,003816: 40,3666           55357                           TS       SFAIL                                 
020682,003817: 40,3667           05155                           TC       ENDOFJOB                              
020683,003818: 
020684,003819: 40,3670           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
020685,003820:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
020686,003821: 40,3671           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
020687,003822: 40,3672           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS
020688,003823: 40,3673           73777        NOTBIT12           OCT      73777                                 
020689,003824: 
020690,003825: 40,3674                        ENDPINS1           EQUALS                                         
020691,003826: 
020692,003827: 40,3674  30,2000                                  SBANK=   LOWSUPER                              
020693,003828: 

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