Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

009167,000002:                                                                                                  ## Copyright:   Public domain.
009168,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
009169,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
009170,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
009171,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
009172,000007:                                                                                                  ## Assembler:   yaYUL
009173,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009174,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009175,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
009176,000011:                                                                                                  ##              2016-10-08 RSB  Finished transcription.
009177,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
009178,000013:                                                                                                  ##              2016-11-01 RSB  More typos.
009179,000014:                                                                                                  ##              2016-11-02 RSB  More typos.
009180,000015: 

Page 232

009182,000017:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM           DATE - 22 NOV 1966
009183,000018:                                                                                                  #  MOD NO - 0                                            LOG SECTION - PINBALL GAME
009184,000019:                                                                                                  #  MOD BY - FILENE                                                     BUTTONS AND LIGHTS
009185,000020:                                                                                                  #                                                        ASSEMBLY - SUNBURST REV 18
009186,000021: 
009187,000022:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009188,000023: 
009189,000024:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
009190,000025:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
009191,000026:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
009192,000027:                                                                                                  #  FROM INTERNAL PROGRAM, AND FROM THE UPLINK.
009193,000028:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
009194,000029:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
009195,000030:                                                                                                  #  DECIMAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
009196,000031:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
009197,000032:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
009198,000033: 
009199,000034:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
009200,000035:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
009201,000036:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
009202,000037:                                                                                                  #  :EXTENDED VERBS:).
009203,000038:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
009204,000039:                                                                                                  #  OPERATION INFORMATION:.
009205,000040: 
009206,000041: 
009207,000042:                                                                                                  #  CALLING SEQUENCES -
009208,000043: 
009209,000044:                                                                                                  #  KEYBOARD:
009210,000045:                                                                                                  #     EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
009211,000046:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
009212,000047:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
009213,000048:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
009214,000049: 
009215,000050:                                                                                                  #  UPLINK:
009216,000051:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT, WHICH
009217,000052:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
009218,000053:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT :CHARIN:) AND EXECUTES A RESUME.
009219,000054: 
009220,000055:                                                                                                  #  INTERNAL PROGRAMS:
009221,000056:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
009222,000057:                                                                                                  #  CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB).  DETAILS
009223,000058:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
009224,000059:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
009225,000060:                                                                                                  #     THERE IS AN INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009226,000061:                                                                                                  #  IN CONJUNCTION WITH :NVSUB:.  THIS IS CALLED GRAB/FREE.  DETAILS
009227,000062:                                                                                                  #  DESCRIBED ON REMARKS JUST BEFORE :GRABDSP:, :GRABWAIT: (SEE SYMBOLD TABLE
009228,000063:                                                                                                  #  FOR PAGE NUMERS).
009229,000064: 

Page 233

009231,000066:                                                                                                  #  NORMAL EXIT MODES-
009232,000067: 
009233,000068:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, EXIT IS TO :ENDOFJOB:.
009234,000069: 
009235,000070:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
009236,000071:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
009237,000072:                                                                                                  #  :NVSUB: AND :NVSUBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
009238,000073: 
009239,000074: 
009240,000075:                                                                                                  #  ALARM OR ABORT EXIT MODES-
009241,000076: 
009242,000077:                                                                                                  #        EXTERNAL INITIATION:
009243,000078:                                                                                                  #           IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
009244,000079:                                                                                                  #        ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
009245,000080: 
009246,000081:                                                                                                  #        INTERNAL PROGRAM INITIATION:
009247,000082:                                                                                                  #           IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
009248,000083:                                                                                                  #        (WITH OCTAL 01501) AND EXIT TO :ENDOFJOB:.
009249,000084: 
009250,000085:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN DIGITAL DEVELOPMENT
009251,000086:                                                                                                  #  REPORT NO. 11.
009252,000087: 
009253,000088: 
009254,000089:                                                                                                  #  OUTPUT-
009255,000090: 
009256,000091:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
009257,000092:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
009258,000093:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
009259,000094:                                                                                                  #  IN INTERRUPT.
009260,000095: 
009261,000096: 
009262,000097:                                                                                                  #  ERASABLE INITIALIZATION-
009263,000098: 
009264,000099:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
009265,000100:                                                                                                  #  PINBALL IN :STARTSUB:.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
009266,000101:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, GRABLOCK, VERBREG, NOUNREG, 
009267,000102:                                                                                                  #  DSPLIST, +1, +2, DSPCOUNT.
009268,000103: 
009269,000104:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
009270,000105:                                                                                                  #  PINBALL IS GIVEN BELOW.
009271,000106: 
009272,000107: 
009273,000108:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
009274,000109: 
009275,000110:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
009276,000111:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.

Page 234

009278,000113: 
009279,000114:                                                                                                  #        NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
009280,000115:                                                                                                  #                  OF RELATED INTEREST   NVSBWAIT
009281,000116:                                                                                                  #                                        NVSUBUSY
009282,000117:                                                                                                  #                                        PRENVBSY
009283,000118: 
009284,000119:                                                                                                  #        GRABDSP   INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009285,000120:                                                                                                  #        FREEDSP   IN CONJUNCTION WITH :NVSUB:.
009286,000121:                                                                                                  #                    OF RELATED INTEREST   GRABWAIT
009287,000122:                                                                                                  #                                          GRABUSY
009288,000123:                                                                                                  #                                          PREGBSY
009289,000124: 
009290,000125:                                                                                                  #        ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO TO SLEEP WHILE
009291,000126:                                                                                                  #                  AWAITING OPERATORS RESPONSE.
009292,000127:                                                                                                  #                    OF RELATED INTEREST   DATAWAIT
009293,000128: 
009294,000129:                                                                                                  #        MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
009295,000130: 
009296,000131:                                                                                                  #        THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
009297,000132:                                                                                                  #        BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
009298,000133: 
009299,000134:                                                                                                  #        THE NOUN TABLES THEMSELVES ARE FOUND ON 7 PAGES STARTING AT :NNADTAB:
009300,000135: 
009301,000136: 
009302,000137:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
009303,000138:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR DIGITAL DEVELOPMENT REPORT NO. 11.
009304,000139: 

Page 235

009306,000141:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
009307,000142: 
009308,000143:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
009309,000144:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
009310,000145:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
009311,000146: 
009312,000147:                                                                                                  #                                        HENRY 6, ACT 2, SCENE 4
009313,000148: 

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

009316,000151: 
009317,000152: 
009318,000153:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
009319,000154: 
009320,000155: 
009321,000156:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
009322,000157: 
009323,000158:                                                                                                  #  DSPCOUNT      ERASE                   # DISPLAY POSITION INDICATOR
009324,000159:                                                                                                  #  DECBRNCH      ERASE                   # +DEC, -DEC, OCT INDICATOR
009325,000160:                                                                                                  #  VERBREG       ERASE                   # VERB CODE
009326,000161:                                                                                                  #  NOUNREG       ERASE                   # NOUN CODE
009327,000162:                                                                                                  #  XREG          ERASE                   # R1 INPUT BUFFER
009328,000163:                                                                                                  #  YREG          ERASE                   # R2 INPUT BUFFER
009329,000164:                                                                                                  #  ZREG          ERASE                   # R3 INPUT BUFFER
009330,000165:                                                                                                  #  XREGLP        ERASE                   # LO PART OF XREG (FOR DEC CONV ONLY)
009331,000166:                                                                                                  #  YREGLP        ERASE                   # LO PART OF YREG (FOR DEC CONV ONLY)
009332,000167:                                                                                                  #  ZREGLP        ERASE                   # LO PART OF ZREG (FOR DEC CONV ONLY)
009333,000168:                                                                                                  #  MODREG        ERASE                   # MODE CODE
009334,000169:                                                                                                  #  DSPLOCK       ERASE                   # KEYBOARD/SUBROUTINE CALL INTERLOCK
009335,000170:                                                                                                  #  REQRET        ERASE                   # RETURN REGISTER FOR LOAD
009336,000171:                                                                                                  #  LOADSTAT      ERASE                   # STATUS INDICATOR FOR LOADTST
009337,000172:                                                                                                  #  CLPASS        ERASE                   # PASS INDICATOR FOR CLEAR
009338,000173:                                                                                                  #  NOUT          ERASE                   # ACTIVITY COUNTER FOR DSPTAB
009339,000174:                                                                                                  #  NOUNCADR      ERASE                   # MACHINE CADR FOR NOUN
009340,000175:                                                                                                  #  MONSAVE       ERASE                   # N/V CODE FOR MONITOR. (= MONSAVE1-1)
009341,000176:                                                                                                  #  MONSAVE1      ERASE                   # NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
009342,000177:                                                                                                  #  DSPTAB        ERASE           +13D    # 0-10, DISPLAY PANEL BUFFER, 11-13, C RELAYS
009343,000178:                                                                                                  #  CADRSTOR      ERASE                   # ENDIDLE STORAGE
009344,000179:                                                                                                  #  GRABLOCK      ERASE                   # INTERNAL INTERLOCK FOR DISPLAY SYSTEM
009345,000180:                                                                                                  #  NVQTEM        ERASE                   # NVSUB STORAGE FOR CALLING ADDRESS
009346,000181:                                                                                                  #                                        # MUST = NVBNKTEM-1.
009347,000182:                                                                                                  #  NVBNKTEM      ERASE                   # NVSUB STORAGE FOR CALLING BANK
009348,000183:                                                                                                  #                                        # MUST = NVQTEM+1
009349,000184:                                                                                                  #  DSPLIST       ERASE           +2      # WAITING LIST FOR DSP SYST INTERNAL USE
009350,000185:                                                                                                  #  EXTVBACT      ERASE                   # EXTENDED VERB ACTIVITY INTERLOCK
009351,000186:                                                                                                  #  DSPTEM1       ERASE           +2      # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
009352,000187:                                                                                                  #  DSPTEM2       ERASE           +2      # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
009353,000188: 

Page 236

009355,000190:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
009356,000191: 
009357,000192: 
009358,000193:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009359,000194: 
009360,000195:                                                                                                  #  DSEXIT        =       INTB15+         # RETURN FOR DSPIN
009361,000196:                                                                                                  #  EXITEM        =       INTB15+         # RETURN FOR SCALE FACTOR ROUTINE SELECT
009362,000197:                                                                                                  #  BLANKRET      =       INTB15+         # RETURN FOR 2BLANK
009363,000198: 
009364,000199:                                                                                                  #  WRDRET        =       INTBIT15        # RETURN FOR 5BLANK.
009365,000200:                                                                                                  #  WDRET         =       INTBIT15        # RETURN FOR DSPWD
009366,000201:                                                                                                  #  DECRET        =       INTBIT15        # RETURN FOR PUTCOM(DEC LOAD)
009367,000202:                                                                                                  #  21/22REG      =       INTBIT15        # TEMP FOR CHARIN
009368,000203: 
009369,000204:                                                                                                  #  UPDATRET      =       POLISH          # RETURN FOR UPDATNN, UPDATVB
009370,000205:                                                                                                  #  CHAR          =       POLISH          # TEMP FOR CHARIN
009371,000206:                                                                                                  #  ERCNT         =       POLISH          # COUNTER FOR ERROR LIGHT RESET
009372,000207:                                                                                                  #  DECOUNT       =       POLISH          # COUNTER FOR SCALING AND DISPLAY (DEC)
009373,000208: 
009374,000209:                                                                                                  #  SGNON         =       VBUF            # TEMP FOR +,- ON
009375,000210:                                                                                                  #  NOUNTEM       =       VBUF            # COUNTER FOR MIXNOUN FETCH
009376,000211:                                                                                                  #  DISTEM        =       VBUF            # COUNTER FOR OCTAL DISPLAY VERB
009377,000212:                                                                                                  #  DECTEM        =       VBUF            # COUNTER FOR FETCH (DEC DISPLAY VERBS)
009378,000213: 
009379,000214:                                                                                                  #  SGNOFF        =       VBUF    +1      # TEMP FOR +,- ON
009380,000215:                                                                                                  #  NVTEMP        =       VBUF    +1      # TEMP FOR NVSUB
009381,000216:                                                                                                  #  SFTEMP1       =       VBUF    +1      # STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
009382,000217: 
009383,000218:                                                                                                  #  CODE          =       VBUF    +2      # FOR DSPIN
009384,000219:                                                                                                  #  SFTEMP2       =       VBUF    +2      # STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
009385,000220: 
009386,000221:                                                                                                  #  MIXTEMP       =       VBUF    +3      # FOR MIXNOUN DATA
009387,000222:                                                                                                  #  SIGNRET       =       VBUF    +3      # RETURN FOR +,- ON
009388,000223: 
009389,000224:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
009390,000225: 
009391,000226:                                                                                                  #  ENTRET        =       DOTINC          # EXIT FROM ENTER
009392,000227: 
009393,000228:                                                                                                  #  WDCNT         =       DOTRET          # CHAR COUNTER FOR DSPWD
009394,000229:                                                                                                  #  INREL         =       DOTRET          # INPUT BUFFER SELECTOR (X, Y, Z, REG)
009395,000230: 
009396,000231:                                                                                                  #  DSPMMTEM      =       MATINC          # DSPCOUNT SAVE FOR DSPMM
009397,000232:                                                                                                  #  MIXBR         =       MATINC          # INDICATOR FOR MIXED OR NORMAL NOUN
009398,000233: 
009399,000234:                                                                                                  #  TEM1          ERASE                   # EXEC TEMP
009400,000235:                                                                                                  #  DSREL         =       TEM1            # REL ADDRESS FOR DSPIN
009401,000236: 
009402,000237:                                                                                                  #  TEM2          ERASE                   # EXEC TEMP
009403,000238:                                                                                                  #  DSMAG         =       TEM2            # MAGNITUDE STORE FOR DSPIN

Page 237

009405,000240:                                                                                                  #  IDADDTEM      =       TEM2            # MIXNOUN INDIRECT ADDRESS STORAGE
009406,000241: 
009407,000242:                                                                                                  #  TEM3          ERASE                   # EXEC TEMP
009408,000243:                                                                                                  #  COUNT         =       TEM3            # FOR DSPIN
009409,000244: 
009410,000245:                                                                                                  #  TEM4          ERASE                   # EXEC TEMP
009411,000246:                                                                                                  #  LSTPTR        =       TEM4            # LIST POINTER FOR GRABUSY
009412,000247:                                                                                                  #  RELRET        =       TEM4            # RETURN FOR RELDSP
009413,000248:                                                                                                  #  FREERET       =       TEM4            # RETURN FOR FREEDSP
009414,000249: 
009415,000250:                                                                                                  #  TEM5          ERASE                   # EXEC TEMP
009416,000251:                                                                                                  #  NOUNADD       =       TEM5            # TEMP STORAGE FOR NOUN ADDRESS
009417,000252: 
009418,000253:                                                                                                  #  NNADTEM       ERASE                   # TEMP FOR NOUN ADDRESS TABLE ENTRY
009419,000254:                                                                                                  #  NNTYPTEM      ERASE                   # TEMP FOR NOUN TYPE TABLE ENTRY
009420,000255:                                                                                                  #  IDAD1TEM      ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)
009421,000256:                                                                                                  #                                        # MUST = IDAD2TEM-1, = IDAD3TEM-2.
009422,000257:                                                                                                  #  IDAD2TEM      ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)
009423,000258:                                                                                                  #                                        # MUST = IDAD1TEM+1, IDAD3TEM-1.
009424,000259:                                                                                                  #  IDAD3TEM      ERASE                   # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN)
009425,000260:                                                                                                  #                                        # MUST = IDAD1TEM+2, IDAD2TEM+1.
009426,000261:                                                                                                  #  RUTMXTEM      ERASE                   # TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
009427,000262:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION.
009428,000263: 
009429,000264: 
009430,000265:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
009431,000266: 
009432,000267:                                                                                                  #  DSPCNT        ERASE                   # COUNTER FOR DSPOUT
009433,000268:                                                                                                  #  UPLOCK        ERASE                   # BIT1 = UPLINK INTERLOCK (ACTIVATED BY
009434,000269:                                                                                                  #                                        #                                         RECEPTION OF A BAD MESSAGE IN UPLINK)
009435,000270:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
009436,000271: 
009437,000272: 
009438,000273: 
009439,000274:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
009440,000275: 
009441,000276:                                                                                                  #  KEYTEMP1      =       WAITEXIT        # TEMP FOR KEYRUPT, UPRUPT
009442,000277:                                                                                                  #  DSRUPTEM      =       WAITEXIT        # TEMP FOR DSPOUT
009443,000278:                                                                                                  #  KEYTEMP2      =       RUPTAGN         # TEMP FOR KEYRUPT, UPRUPT
009444,000279:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
009445,000280: 

Page 238

009447,000282:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
009448,000283:                                                                                                  #  0        10000
009449,000284:                                                                                                  #  1        00001
009450,000285:                                                                                                  #  9        01001
009451,000286:                                                                                                  #  VERB     10001
009452,000287:                                                                                                  #  ERROR RES10010
009453,000288:                                                                                                  #  KEY RLSE 11001
009454,000289:                                                                                                  #  +        11010
009455,000290:                                                                                                  #  -        11011
009456,000291:                                                                                                  #  ENTER    11100
009457,000292:                                                                                                  #  CLEAR    11110
009458,000293:                                                                                                  #  NOUN     11111
009459,000294: 
009460,000295: 
009461,000296:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
009462,000297:                                                                                                  #  A'S SELECTS A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
009463,000298:                                                                                                  #  ENERGIZED.
009464,000299:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
009465,000300:                                                                                                  #  C'S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD.
009466,000301:                                                                                                  #  D'S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
009467,000302: 
009468,000303:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
009469,000304:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
009470,000305:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
009471,000306:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
009472,000307:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
009473,000308:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
009474,000309: 
009475,000310:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
009476,000311:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
009477,000312:                                                                                                  #  MD2   24     R2D2  10
009478,000313:                                                                                                  #  VD1   23     R2D3   7
009479,000314:                                                                                                  #  VD2   22     R2D4   6
009480,000315:                                                                                                  #  ND1   21     R2D5   5
009481,000316:                                                                                                  #  ND2   20     R3D1   4
009482,000317:                                                                                                  #  R1D1  16     R3D2   3
009483,000318:                                                                                                  #  R1D2  15     R3D3   2
009484,000319:                                                                                                  #  R1D3  14     R3D4   1
009485,000320:                                                                                                  #  R1D4  13     R3D5   0
009486,000321:                                                                                                  #  R1D5  12
009487,000322: 
009488,000323: 
009489,000324:                                                                                                  #  THERE IS AN 11-REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
009490,000325: 
009491,000326:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
009492,000327:                                                                                                  #  RELADD
009493,000328:                                                                                                  #  10     1011                    MD1 (25)      MD2 (24)
009494,000329:                                                                                                  #  9      1010                    VD1 (23)      VD2 (22)

Page 239

009496,000331:                                                                                                  #  8      1001                    ND1 (21)      ND2 (20)
009497,000332:                                                                                                  #  7      1000                                  R1D1 (16)
009498,000333:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
009499,000334:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
009500,000335:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
009501,000336:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
009502,000337:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
009503,000338:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
009504,000339:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
009505,000340:                                                                                                  #         0000   NO RELAYWORD
009506,000341: 
009507,000342: 
009508,000343:                                                                                                  #  THE 5-BIT RELAY CODES ARE,
009509,000344:                                                                                                  #  BLANK      00000
009510,000345:                                                                                                  #  0          10101
009511,000346:                                                                                                  #  1          00011
009512,000347:                                                                                                  #  2          11001
009513,000348:                                                                                                  #  3          11011
009514,000349:                                                                                                  #  4          01111
009515,000350:                                                                                                  #  5          11110
009516,000351:                                                                                                  #  6          11100
009517,000352:                                                                                                  #  7          10011
009518,000353:                                                                                                  #  8          11101
009519,000354:                                                                                                  #  9          11111
009520,000355: 

Page 240

009522,000357:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
009523,000358: 
009524,000359: 04,2000                                           SETLOC   20000                                 
009525,000360: 
009526,000361: 04,2000           03472        GRABUSYB           TC       GRABUSY1                              #  STANDARD LEAD INS. DONT MOVE.
009527,000362: 04,2001           03514        NVSUBSYB           TC       NVSUBSY1                              
009528,000363: 
009529,000364: 04,2002           37763        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
009530,000365: 04,2003           56303                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
009531,000366: 04,2004           54105                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
009532,000367: 04,2005           56144                           XCH      MPAC                                  
009533,000368: 04,2006           54107                           TS       CHAR                                  
009534,000369: 04,2007           50000                           INDEX    A                                     
009535,000370: 04,2010           02011                           TC       +1                                    #  INPUT CODE    FUNCTION
009536,000371: 04,2011           03313                           TC       CHARALRM                              #  0
009537,000372: 04,2012           02070                           TC       NUM                                   #  1
009538,000373: 04,2013           02070                           TC       NUM                                   #  2
009539,000374: 04,2014           02070                           TC       NUM                                   #  3
009540,000375: 04,2015           02070                           TC       NUM                                   #  4
009541,000376: 04,2016           02070                           TC       NUM                                   #  5
009542,000377: 04,2017           02070                           TC       NUM                                   #  6
009543,000378: 04,2020           02070                           TC       NUM                                   #  7
009544,000379: 04,2021           02061                           TC       89TEST                                #  10            8
009545,000380: 04,2022           02061                           TC       89TEST                                #  11            9
009546,000381: 04,2023           03313                           TC       CHARALRM                              #  12
009547,000382: 04,2024           03313                           TC       CHARALRM                              #  13
009548,000383: 04,2025           03313                           TC       CHARALRM                              #  14
009549,000384: 04,2026           03313                           TC       CHARALRM                              #  15
009550,000385: 04,2027           03313                           TC       CHARALRM                              #  16
009551,000386: 04,2030           03313                           TC       CHARALRM                              #  17
009552,000387: 04,2031           02066                           TC       NUM        -2                         #  20            0
009553,000388: 04,2032           02243                           TC       VERB                                  #  21            VERB
009554,000389: 04,2033           02355                           TC       ERROR                                 #  22            ERROR LIGHT RESET
009555,000390: 04,2034           02053                           TC       ABRT23GO                              #  23            SUBORBIT ABORT
009556,000391: 04,2035           02056                           TC       ABRT24GO                              #  24            CONORBIT ABORT
009557,000392: 04,2036           03313                           TC       CHARALRM                              #  25
009558,000393: 04,2037           03313                           TC       CHARALRM                              #  26
009559,000394: 04,2040           03313                           TC       CHARALRM                              #  27
009560,000395: 04,2041           03313                           TC       CHARALRM                              #  30
009561,000396: 04,2042           03336                           TC       VBRELDSP                              #  31            KEY RELEASE
009562,000397: 04,2043           02275                           TC       POSGN                                 #  32            +
009563,000398: 04,2044           02262                           TC       NEGSGN                                #  33            -
009564,000399: 04,2045           02051                           TC       ENTERJMP                              #  34            ENTER
009565,000400: 04,2046           03313                           TC       CHARALRM                              #  35
009566,000401: 04,2047           02446                           TC       CLEAR                                 #  36            CLEAR
009567,000402: 04,2050           02256                           TC       NOUN                                  #  37            NOUN
009568,000403: 

Page 241

009570,000405: 04,2051           05225        ENTERJMP           TC       POSTJUMP                              
009571,000406: 04,2052           12003                           CADR     ENTER                                 
009572,000407: 
009573,000408: 04,2053           04666        ABRT23GO           TC       RELDSP                                
009574,000409: 04,2054           05225                           TC       POSTJUMP                              
009575,000410: 04,2055           56350                           CADR     SUBABORT                              
009576,000411: 04,2056           04666        ABRT24GO           TC       RELDSP                                
009577,000412: 04,2057           05225                           TC       POSTJUMP                              
009578,000413: 04,2060           56353                           CADR     CONORBIT                              
009579,000414: 
009580,000415: 04,2061           36311        89TEST             CAF      THREE                                 
009581,000416: 04,2062           70271                           MASK     DECBRNCH                              
009582,000417: 04,2063           10000                           CCS      A                                     
009583,000418: 04,2064           02070                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
009584,000419: 04,2065           03313                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
009585,000420: 
009586,000421: 
009587,000422:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
009588,000423:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
009589,000424:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
009590,000425:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
009591,000426:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
009592,000427:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
009593,000428: 
009594,000429: 04,2066           37767                           CAF      ZERO                                  
009595,000430: 04,2067           54107                           TS       CHAR                                  
009596,000431: 04,2070           10270        NUM                CCS      DSPCOUNT                              
009597,000432: 04,2071           02075                           TC       +4                                    #  +
009598,000433: 04,2072           02075                           TC       +3                                    #  +0
009599,000434: 04,2073           02074                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
009600,000435: 04,2074           05567                           TC       ENDOFJOB                              #  -0
009601,000436: 04,2075           02213                           TC       GETINREL                              
009602,000437: 04,2076           10306                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
009603,000438: 04,2077           37767                           CAF      ZERO                                  
009604,000439: 04,2100           54306                           TS       CLPASS                                
009605,000440: 04,2101           02102                           TC       +1                                    
009606,000441: 04,2102           50107                           INDEX    CHAR                                  
009607,000442: 04,2103           34300                           CAF      RELTAB                                
009608,000443: 04,2104           74556                           MASK     LOW5                                  
009609,000444: 04,2105           54114                           TS       CODE                                  
009610,000445: 04,2106           30270                           CA       DSPCOUNT                              
009611,000446: 04,2107           54133                           TS       COUNT                                 
009612,000447: 04,2110           03217                           TC       DSPIN                                 
009613,000448: 04,2111           36311                           CAF      THREE                                 
009614,000449: 04,2112           70271                           MASK     DECBRNCH                              
009615,000450: 04,2113           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
009616,000451: 04,2114           02125                           TC       DECTOBIN                              #  +
009617,000452: 04,2115           50127                           INDEX    INREL                                 #  +0 OCTAL
009618,000453: 04,2116           56272                           XCH      VERBREG                               

Page 242

009620,000455: 04,2117           54022                           TS       CYL                                   
009621,000456: 04,2120           40022                           CS       CYL                                   
009622,000457: 04,2121           40022                           CS       CYL                                   
009623,000458: 04,2122           56022                           XCH      CYL                                   
009624,000459: 04,2123           60107                           AD       CHAR                                  
009625,000460: 04,2124           02142                           TC       ENDNMTST                              
009626,000461: 04,2125           50127        DECTOBIN           INDEX    INREL                                 
009627,000462: 04,2126           56272                           XCH      VERBREG                               
009628,000463: 04,2127           54144                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
009629,000464: 04,2130           37767                           CAF      ZERO                                  
009630,000465: 04,2131           54145                           TS       MPAC       +1                         
009631,000466: 04,2132           34570                           CAF      TEN                                   #  10 X 2EXP-14
009632,000467: 04,2133           07357                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
009633,000468: 04,2134           56145                           XCH      MPAC       +1                         
009634,000469: 04,2135           60107                           AD       CHAR                                  
009635,000470: 04,2136           54145                           TS       MPAC       +1                         
009636,000471: 04,2137           02142                           TC       ENDNMTST                              #  NO OF
009637,000472: 04,2140           26144                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
009638,000473: 04,2141           02160                           TC       DECEND                                
009639,000474: 04,2142           50127        ENDNMTST           INDEX    INREL                                 
009640,000475: 04,2143           54272                           TS       VERBREG                               
009641,000476: 04,2144           40270                           CS       DSPCOUNT                              
009642,000477: 04,2145           50127                           INDEX    INREL                                 
009643,000478: 04,2146           62204                           AD       CRITCON                               
009644,000479: 04,2147           00006                           EXTEND                                         
009645,000480: 04,2150           12152                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
009646,000481: 04,2151           02201                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
009647,000482: 04,2152           36311        ENDNUM             CAF      THREE                                 
009648,000483: 04,2153           70271                           MASK     DECBRNCH                              
009649,000484: 04,2154           10000                           CCS      A                                     
009650,000485: 04,2155           02160                           TC       DECEND                                
009651,000486: 04,2156           40270        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
009652,000487: 04,2157           02202                           TC       MORNUM     +1                         #  NEGATIVELY
009653,000488: 04,2160           07155        DECEND             TC       DMP                                   #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
009654,000489: 04,2161           02211                           ADRES    DECON                                 #  2EXP14/10EXP5, GIVES (SUM/10EXP5)X2EXP-14
009655,000490: 04,2162           36311                           CAF      THREE                                 #  IN MPAC, +1, +2.
009656,000491: 04,2163           70271                           MASK     DECBRNCH                              
009657,000492: 04,2164           50000                           INDEX    A                                     
009658,000493: 04,2165           02165                           TC       +0                                    
009659,000494: 04,2166           02172                           TC       +DECSGN                               
009660,000495: 04,2167           00006                           EXTEND                                         #  - CASE
009661,000496: 04,2170           40146                           DCS      MPAC       +1                         
009662,000497: 04,2171           52146                           DXCH     MPAC       +1                         
009663,000498: 04,2172           56146        +DECSGN            XCH      MPAC       +2                         
009664,000499: 04,2173           50127                           INDEX    INREL                                 
009665,000500: 04,2174           54275                           TS       XREGLP     -2                         
009666,000501: 04,2175           56145                           XCH      MPAC       +1                         
009667,000502: 04,2176           50127                           INDEX    INREL                                 
009668,000503: 04,2177           54272                           TS       VERBREG                               
009669,000504: 04,2200           02156                           TC       ENDALL                                

Page 243

009671,000506: 04,2201           10270        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
009672,000507: 04,2202           54270                           TS       DSPCOUNT                              
009673,000508: 04,2203           05567                           TC       ENDOFJOB                              
009674,000509: 
009675,000510: 04,2204           00022        CRITCON            OCT      22                                    #  (DEC 18)
009676,000511: 04,2205           00020                           OCT      20                                    #  (DEC 16)
009677,000512: 04,2206           00012                           OCT      12                                    #  (DEC 10)
009678,000513: 04,2207           00005                           OCT      5                                     
009679,000514: 04,2210           00000                           OCT      0                                     
009680,000515: 
009681,000516: 04,2211           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
009682,000517: 
009683,000518:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
009684,000519:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
009685,000520: 
009686,000521: 04,2213           50270        GETINREL           INDEX    DSPCOUNT                              
009687,000522: 04,2214           32217                           CAF      INRELTAB                              
009688,000523: 04,2215           54127                           TS       INREL                                 #  (A TEMP. REG)
009689,000524: 04,2216           00002                           TC       Q                                     
009690,000525: 
009691,000526: 04,2217           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
009692,000527: 04,2220           00004                           OCT      4                                     #  R3D4           =(1)
009693,000528: 04,2221           00004                           OCT      4                                     #  R3D3           =(2)
009694,000529: 04,2222           00004                           OCT      4                                     #  R3D2           =(3)
009695,000530: 04,2223           00004                           OCT      4                                     #  R3D1           =(4)
009696,000531: 04,2224           00003                           OCT      3                                     #  R2D5           =(5)
009697,000532: 04,2225           00003                           OCT      3                                     #  R2D4           =(6)
009698,000533: 04,2226           00003                           OCT      3                                     #  R2D3           =(7)
009699,000534: 04,2227           00003                           OCT      3                                     #  R2D2           =(8D)
009700,000535: 04,2230           00003                           OCT      3                                     #  R2D1           =(9D)
009701,000536: 04,2231           00002                           OCT      2                                     #  R1D5           =(10D)
009702,000537: 04,2232           00002                           OCT      2                                     #  R1D4           =(11D)
009703,000538: 04,2233           00002                           OCT      2                                     #  R1D3           =(12D)
009704,000539: 04,2234           00002                           OCT      2                                     #  R1D2           =(13D)
009705,000540: 04,2235           00002                           OCT      2                                     #  R1D1           =(14D)
009706,000541: 04,2236           04736                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
009707,000542: 04,2237           00001                           OCT      1                                     #  ND2            =(16D)
009708,000543: 04,2240           00001                           OCT      1                                     #  ND1            =(17D)
009709,000544: 04,2241           00000                           OCT      0                                     #  VD2            =(18D)
009710,000545: 04,2242           00000                           OCT      0                                     #  VD1            =(19D)
009711,000546: 
009712,000547: 04,2243           37767        VERB               CAF      ZERO                                  
009713,000548: 04,2244           54272                           TS       VERBREG                               
009714,000549: 04,2245           34565                           CAF      VD1                                   
009715,000550: 04,2246           54270        NVCOM              TS       DSPCOUNT                              
009716,000551: 04,2247           02557                           TC       2BLANK                                

Page 244

009718,000553: 04,2250           37767                           CAF      ZERO                                  
009719,000554: 04,2251           54271                           TS       DECBRNCH                              #  SET FOR DEC V/N CODE
009720,000555: 04,2252           54304                           TS       REQRET                                #  SET FOR ENTPAS0
009721,000556: 04,2253           34505                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
009722,000557: 04,2254           54126                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
009723,000558:                                                                                                  #  TO TC ENDOFJOB
009724,000559: 04,2255           05567                           TC       ENDOFJOB                              
009725,000560: 04,2256           37767        NOUN               CAF      ZERO                                  
009726,000561: 04,2257           54273                           TS       NOUNREG                               
009727,000562: 04,2260           34566                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
009728,000563: 04,2261           02246                           TC       NVCOM                                 
009729,000564: 
009730,000565: 
009731,000566: 04,2262           02334        NEGSGN             TC       SIGNTEST                              
009732,000567: 04,2263           02321                           TC       -ON                                   
009733,000568: 04,2264           37762                           CAF      TWO                                   
009734,000569: 04,2265           50127        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
009735,000570: 04,2266           67755                           AD       BIT7                                  #  BIT 5 FOR R1.  BIT 4 FOR R2.
009736,000571: 04,2267           26271                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
009737,000572: 04,2270           10306        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0. MAKE IT +0.
009738,000573: 04,2271           37767                           CAF      ZERO                                  
009739,000574: 04,2272           54306                           TS       CLPASS                                
009740,000575: 04,2273           02274                           TC       +1                                    
009741,000576: 04,2274           05567                           TC       ENDOFJOB                              
009742,000577: 
009743,000578: 04,2275           02334        POSGN              TC       SIGNTEST                              
009744,000579: 04,2276           02301                           TC       +ON                                   
009745,000580: 04,2277           37763                           CAF      ONE                                   
009746,000581: 04,2300           02265                           TC       BOTHSGN                               
009747,000582: 
009748,000583: 04,2301           22002        +ON                LXCH     Q                                     
009749,000584: 04,2302           02213                           TC       GETINREL                              
009750,000585: 04,2303           50127                           INDEX    INREL                                 
009751,000586: 04,2304           32327                           CAF      SGNTAB     -2                         
009752,000587: 04,2305           54113                           TS       SGNOFF                                
009753,000588: 04,2306           67763                           AD       ONE                                   
009754,000589: 04,2307           54112                           TS       SGNON                                 
009755,000590: 04,2310           37767        SGNCOM             CAF      ZERO                                  
009756,000591: 04,2311           54114                           TS       CODE                                  
009757,000592: 04,2312           56113                           XCH      SGNOFF                                
009758,000593: 04,2313           03301                           TC       11DSPIN                               
009759,000594: 04,2314           37751                           CAF      BIT11                                 
009760,000595: 04,2315           54114                           TS       CODE                                  
009761,000596: 04,2316           56112                           XCH      SGNON                                 
009762,000597: 04,2317           03301                           TC       11DSPIN                               
009763,000598: 04,2320           00001                           TC       L                                     
009764,000599: 04,2321           22002        -ON                LXCH     Q                                     
009765,000600: 04,2322           02213                           TC       GETINREL                              
009766,000601: 04,2323           50127                           INDEX    INREL                                 

Page 245

009768,000603: 04,2324           32327                           CAF      SGNTAB     -2                         
009769,000604: 04,2325           54112                           TS       SGNON                                 
009770,000605: 04,2326           67763                           AD       ONE                                   
009771,000606: 04,2327           54113                           TS       SGNOFF                                
009772,000607: 04,2330           02310                           TC       SGNCOM                                
009773,000608: 
009774,000609: 04,2331           00005        SGNTAB             OCT      5                                     #  -R1
009775,000610: 04,2332           00003                           OCT      3                                     #  -R2
009776,000611: 04,2333           00000                           OCT      0                                     #  -R3
009777,000612: 
009778,000613: 04,2334           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
009779,000614: 04,2335           36311                           CAF      THREE                                 #  R2D1, OR R3D1.  ALLOWS ONLY FIRST OF
009780,000615: 04,2336           70271                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
009781,000616: 04,2337           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0,  SIGN
009782,000617: 04,2340           05567                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
009783,000618: 04,2341           44527                           CS       R1D1                                  
009784,000619: 04,2342           02350                           TC       SGNTST1                               
009785,000620: 04,2343           44530                           CS       R2D1                                  
009786,000621: 04,2344           02350                           TC       SGNTST1                               
009787,000622: 04,2345           44531                           CS       R3D1                                  
009788,000623: 04,2346           02350                           TC       SGNTST1                               
009789,000624: 04,2347           05567                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
009790,000625: 04,2350           60270        SGNTST1            AD       DSPCOUNT                              
009791,000626: 04,2351           00006                           EXTEND                                         
009792,000627: 04,2352           12354                           BZF      +2                                    #  MATCH FOUND
009793,000628: 04,2353           00002                           TC       Q                                     
009794,000629: 04,2354           00001                           TC       L                                     #  SIGN LEGAL
009795,000630: 
009796,000631:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
009797,000632:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
009798,000633:                                                                                                  #  PROG ALM, TRACKER FAIL.
009799,000634:                                                                                                  #  LEAVES GIMBAL LOCK ALONE.
009800,000635:                                                                                                  #  IT ALSO ZEROES OUT THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
009801,000636:                                                                                                  #  IT ALSO SETS :CAUTION RESET" TO 1.
009802,000637:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
009803,000638: 
009804,000639: 04,2355           56105        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
009805,000640: 04,2356           54303                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
009806,000641: 04,2357           00004                           INHINT                                         
009807,000642: 04,2360           37752                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
009808,000643: 04,2361           00006                           EXTEND                                         
009809,000644: 04,2362           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
009810,000645: 04,2363           32444                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
009811,000646: 04,2364           70326                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
009812,000647: 04,2365           67745                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
009813,000648: 04,2366           54326                           TS       DSPTAB     +11D                       

Page 246

009815,000650: 04,2367           45642                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERAGE PROG
009816,000651: 04,2370           70366                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
009817,000652: 04,2371           65642                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
009818,000653: 04,2372           54366                           TS       IMODES33                              
009819,000654: 04,2373           47752                           CS       BIT10                                 
009820,000655: 04,2374           70365                           MASK     IMODES30                              
009821,000656: 04,2375           67752                           AD       BIT10                                 
009822,000657: 04,2376           54365                           TS       IMODES30                              
009823,000658: 
009824,000659: 04,2377           42443                           CS       RFAILS                                
009825,000660: 04,2400           70412                           MASK     RADMODES                              
009826,000661: 04,2401           67755                           AD       BIT7                                  
009827,000662: 04,2402           54412                           TS       RADMODES                              
009828,000663: 
009829,000664: 04,2403           47752                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
009830,000665: 04,2404           00006                           EXTEND                                         
009831,000666: 04,2405           03013                           WAND     CHAN13                                
009832,000667: 04,2406           42442                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
009833,000668: 04,2407           00006                           EXTEND                                         #  OPERATOR ERROR.
009834,000669: 04,2410           03011                           WAND     DSALMOUT                              
009835,000670: 04,2411           34570        TSTAB              CAF      BINCON                                #  (DEC 10)
009836,000671: 04,2412           54107                           TS       ERCNT                                 #  ERCNT = COUNT
009837,000672: 04,2413           00004                           INHINT                                         
009838,000673: 04,2414           50107                           INDEX    ERCNT                                 
009839,000674: 04,2415           10313                           CCS      DSPTAB                                
009840,000675: 04,2416           67763                           AD       ONE                                   
009841,000676: 04,2417           02424                           TC       ERPLUS                                
009842,000677: 04,2420           67763                           AD       ONE                                   
009843,000678: 04,2421           40000        ERMINUS            CS       A                                     
009844,000679: 04,2422           72445                           MASK     NOTBIT12                              
009845,000680: 04,2423           02427                           TC       ERCOM                                 
009846,000681: 04,2424           40000        ERPLUS             CS       A                                     
009847,000682: 04,2425           72445                           MASK     NOTBIT12                              
009848,000683: 04,2426           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
009849,000684: 04,2427           50107        ERCOM              INDEX    ERCNT                                 #  ETC.
009850,000685: 04,2430           54313                           TS       DSPTAB                                
009851,000686: 04,2431           00003                           RELINT                                         
009852,000687: 04,2432           10107                           CCS      ERCNT                                 
009853,000688: 04,2433           02412                           TC       TSTAB      +1                         
009854,000689: 04,2434           37767                           CAF      ZERO                                  
009855,000690: 04,2435           55360                           TS       FAILREG                               
009856,000691: 04,2436           55361                           TS       FAILREG    +1                         
009857,000692: 04,2437           55362                           TS       FAILREG    +2                         
009858,000693: 04,2440           55357                           TS       SFAIL                                 
009859,000694: 04,2441           05567                           TC       ENDOFJOB                              
009860,000695: 
009861,000696: 04,2442           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
009862,000697:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
009863,000698: 04,2443           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
009864,000699: 04,2444           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS

Page 247

009866,000701: 04,2445           73777        NOTBIT12           OCT      73777                                 
009867,000702: 
009868,000703: 
009869,000704:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
009870,000705:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
009871,000706:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
009872,000707: 
009873,000708:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
009874,000709:                                                                                                  #  APPROPRIATE TO BE CLEARED.
009875,000710: 
009876,000711:                                                                                                  #  CLPASS   +0  PASS0, CAN BE BACKED UP
009877,000712:                                                                                                  #           +NZ  HIPASS, CAN BE BACKED UP
009878,000713:                                                                                                  #           -NZ  PASS0, CANNOT BE BACKED UP
009879,000714: 
009880,000715: 04,2446           10270        CLEAR              CCS      DSPCOUNT                              
009881,000716: 04,2447           67763                           AD       ONE                                   
009882,000717: 04,2450           02452                           TC       +2                                    
009883,000718: 04,2451           67763                           AD       ONE                                   
009884,000719: 04,2452           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
009885,000720: 04,2453           32217                           CAF      INRELTAB                              #  FAIL LEGALTST.
009886,000721: 04,2454           54127                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
009887,000722: 04,2455           10306                           CCS      CLPASS                                
009888,000723: 04,2456           02464                           TC       CLPASHI                               #  +
009889,000724: 04,2457           02461                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
009890,000725: 04,2460           02461                           TC       +1                                    #  -
009891,000726: 04,2461           30127                           CA       INREL                                 
009892,000727: 04,2462           02506                           TC       LEGALTST                              
009893,000728: 04,2463           02501                           TC       CLEAR1                                
009894,000729: 04,2464           10127        CLPASHI            CCS      INREL                                 
009895,000730: 04,2465           54127                           TS       INREL                                 
009896,000731: 04,2466           02506                           TC       LEGALTST                              
009897,000732: 04,2467           32555                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER, BACKS DATA REQUESTS.
009898,000733: 04,2470           26304                           ADS      REQRET                                
009899,000734: 04,2471           30127                           CA       INREL                                 
009900,000735: 04,2472           54115                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
009901,000736: 04,2473           00006                           EXTEND                                         
009902,000737: 04,2474           26272                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
009903,000738: 04,2475           05206                           TC       BANKCALL                              
009904,000739: 04,2476           12315                           CADR     UPDATVB                               
009905,000740: 04,2477           30115                           CA       MIXTEMP                               
009906,000741: 04,2500           54127                           TS       INREL                                 #  RESTORE INREL
009907,000742: 04,2501           02504        CLEAR1             TC       CLR5                                  
009908,000743: 04,2502           24306                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0.
009909,000744: 04,2503           05567                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
009910,000745: 04,2504           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
009911,000746: 04,2505           02516                           TC       5BLANK     +2                         
009912,000747: 04,2506           65336        LEGALTST           AD       NEG2                                  
009913,000748: 04,2507           10000                           CCS      A                                     
009914,000749: 04,2510           00002                           TC       Q                                     #  LEGAL  INREL G/ 2

Page 248

009916,000751: 04,2511           04736                           TC       CCSHOLE                               
009917,000752: 04,2512           05567                           TC       ENDOFJOB                              #  ILLEGAL INREL= 0,1
009918,000753: 04,2513           00002                           TC       Q                                     #  LEGAL  INREL = 2
009919,000754: 
009920,000755:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
009921,000756:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
009922,000757:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
009923,000758: 
009924,000759: 04,2514           22002        5BLANK             LXCH     Q                                     
009925,000760: 04,2515           02213                           TC       GETINREL                              
009926,000761: 04,2516           37767                           CAF      ZERO                                  
009927,000762: 04,2517           50127                           INDEX    INREL                                 
009928,000763: 04,2520           54272                           TS       VERBREG                               #  ZERO X, Y, Z, REG.
009929,000764: 04,2521           50127                           INDEX    INREL                                 
009930,000765: 04,2522           54275                           TS       XREGLP     -2                         
009931,000766: 04,2523           54114                           TS       CODE                                  
009932,000767: 04,2524           50127                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
009933,000768: 04,2525           47755                           CS       BIT7                                  #  PROTECT OTHERS
009934,000769: 04,2526           70271                           MASK     DECBRNCH                              
009935,000770: 04,2527           72556                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
009936,000771: 04,2530           54271                           TS       DECBRNCH                              
009937,000772: 04,2531           50127                           INDEX    INREL                                 
009938,000773: 04,2532           32546                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
009939,000774: 04,2533           54133                           TS       COUNT                                 
009940,000775: 04,2534           03217                           TC       DSPIN                                 
009941,000776: 04,2535           50127        5BLANK1            INDEX    INREL                                 
009942,000777: 04,2536           32551                           CAF      DOUBLK     -2                         
009943,000778: 04,2537           54270                           TS       DSPCOUNT                              
009944,000779: 04,2540           02557                           TC       2BLANK                                
009945,000780: 04,2541           47762                           CS       TWO                                   
009946,000781: 04,2542           26270                           ADS      DSPCOUNT                              
009947,000782: 04,2543           02557                           TC       2BLANK                                
009948,000783: 04,2544           50127                           INDEX    INREL                                 
009949,000784: 04,2545           34525                           CAF      R1D1       -2                         
009950,000785: 04,2546           54270                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
009951,000786: 04,2547           00001                           TC       L                                     #  OF REG. JUST BLANKED
009952,000787: 
009953,000788: 04,2550           00016        SINBLANK           OCT      16                                    #  DEC 14
009954,000789: 04,2551           00005                           OCT      5                                     
009955,000790: 04,2552           00004                           OCT      4                                     
009956,000791: 04,2553           00015        DOUBLK             OCT      15                                    #  DEC 13
009957,000792: 04,2554           00011                           OCT      11                                    #  DEC 9
009958,000793: 04,2555           00003                           OCT      3                                     
009959,000794: 
009960,000795: 04,2556           77774        BRNCHCON           OCT      77774                                 
009961,000796: 
009962,000797:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
009963,000798:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT

Page 249

009965,000800: 
009966,000801: 04,2557           30270        2BLANK             CA       DSPCOUNT                              
009967,000802: 04,2560           54021                           TS       SR                                    
009968,000803: 04,2561           42572                           CS       BLANKCON                              
009969,000804: 04,2562           00004                           INHINT                                         
009970,000805: 04,2563           50021                           INDEX    SR                                    
009971,000806: 04,2564           56313                           XCH      DSPTAB                                
009972,000807: 04,2565           00006                           EXTEND                                         
009973,000808: 04,2566           62570                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
009974,000809: 04,2567           24307                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
009975,000810: 04,2570           00003                           RELINT                                         #  IF -, NOUT OK
009976,000811: 04,2571           00002                           TC       Q                                     
009977,000812: 04,2572           04000        BLANKCON           OCT      4000                                  
009978,000813: 

Page 250

009980,000815:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
009981,000816:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
009982,000817:                                                                                                  #  PASSES.
009983,000818: 
009984,000819: 
009985,000820:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
009986,000821:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
009987,000822:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
009988,000823: 
009989,000824: 05,2000                                           SETLOC   22000                                 
009990,000825: 
009991,000826: 05,2000           03344        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
009992,000827: 05,2001           13403        DSPMM              TCF      DSPMM1                                
009993,000828: 05,2002           02663        LOADLV1            TC       LOADLV                                
009994,000829:                                                                                                  #  END OF STANDARD LEAD INS.
009995,000830: 
009996,000831: 
009997,000832: 05,2003           37767        ENTER              CAF      ZERO                                  
009998,000833: 05,2004           54306                           TS       CLPASS                                
009999,000834: 05,2005           34505                           CAF      ENDINST                               
010000,000835: 05,2006           54126                           TS       ENTRET                                
010001,000836: 05,2007           10304                           CCS      REQRET                                
010002,000837: 05,2010           02031                           TC       ENTPAS0                               #  IF +, PASS 0
010003,000838: 05,2011           02031                           TC       ENTPAS0                               #  IF +, PASS 0
010004,000839: 05,2012           02013                           TC       +1                                    #  IF -, NOT PASS 0
010005,000840: 05,2013           36311                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN,
010006,000841: 05,2014           70271                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
010007,000842: 05,2015           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
010008,000843: 05,2016           02020                           TC       +2                                    #  CHARACTERS AND CONTINUE.
010009,000844: 05,2017           02024                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
010010,000845: 05,2020           10270                           CCS      DSPCOUNT                              
010011,000846: 05,2021           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
010012,000847: 05,2022           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
010013,000848: 05,2023           02024                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
010014,000849: 05,2024           40304        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
010015,000850: 05,2025           54304                           TS       REQRET                                #  SET REQRET +.
010016,000851: 05,2026           04626                           TC       FLASHOFF                              
010017,000852: 05,2027           00304                           TC       REQRET                                
010018,000853: 
010019,000854: 05,2030     0126               ENTEXIT            =        ENTRET                                
010020,000855: 
010021,000856: 05,2030           00030        LOWVERB            OCT      30                                    #  LOWER VERB THAT AVOIDS NOUN TEST.
010022,000857: 
010023,000858: 05,2031           37767        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
010024,000859: 05,2032           54271                           TS       DECBRNCH                              
010025,000860: 05,2033           40272        TESTVB             CS       VERBREG                               #  IF VERB IS 30-77, SKIP NOUN TEST.

Page 251

010027,000862: 05,2034           62030                           AD       LOWVERB                               #  LOWVERB - VB
010028,000863: 05,2035           00006                           EXTEND                                         
010029,000864: 05,2036           62116                           BZMF     VERBFAN                               #  VERB G/ E 30
010030,000865: 05,2037           00006        TESTNN             EXTEND                                         #  VERB L/ 30
010031,000866: 05,2040           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010032,000867: 05,2041           52006                           DXCH     Z                                     #  ROUTINE.
010033,000868: 05,2042           50130                           INDEX    MIXBR                                 
010034,000869: 05,2043           02043                           TC       +0                                    
010035,000870: 05,2044           02046                           TC       +2                                    #  NORMAL
010036,000871: 05,2045           02176                           TC       MIXNOUN                               #  MIXED
010037,000872: 05,2046           10136                           CCS      NNADTEM                               #  NORMAL
010038,000873: 05,2047           02114                           TC       VERBFAN    -2                         #       NORMAL IF +
010039,000874: 05,2050           02324                           TC       GODSPALM                              #  NOT IN USE   IF +0
010040,000875: 05,2051           02055                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
010041,000876: 05,2052           24310                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
010042,000877: 05,2053           04521                           TC       SETNADD                               #  ECADR FROM NOUNCADR, SETS EB, NOUNADD.
010043,000878: 05,2054           02102                           TC       INTMCTBS   +2                         
010044,000879: 05,2055           37745        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
010045,000880: 05,2056           54306                           TS       CLPASS                                
010046,000881: 05,2057           44505                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
010047,000882: 05,2060           60126                           AD       ENTEXIT                               #              FROM EXTERNAL
010048,000883: 05,2061           00006                           EXTEND                                         
010049,000884: 05,2062           12064                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
010050,000885: 05,2063           02100                           TC       INTMCTBS                              
010051,000886: 05,2064           02256                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
010052,000887: 05,2065           10271                           CCS      DECBRNCH                              
010053,000888: 05,2066           02324                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MCTBS
010054,000889: 05,2067           56276                           XCH      ZREG                                  #  OCTAL USED    OK
010055,000890: 05,2070           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
010056,000891: 05,2071           00006                           EXTEND                                         
010057,000892: 05,2072           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010058,000893: 05,2073           52006                           DXCH     Z                                     #  ROUTINE.
010059,000894: 05,2074           02116                           TC       VERBFAN                               
010060,000895: 
010061,000896: 05,2075     0270                                  EBANK=   DSPCOUNT                              
010062,000897: 05,2075           02000 46060  LODNNLOC           2CADR    LODNNTAB                              
010063,000898: 
010064,000899: 05,2077           77772        NEG5               OCT      77772                                 
010065,000900: 
010066,000901: 05,2100           30146        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
010067,000902: 05,2101           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB. NOUNADD.
010068,000903: 05,2102           47760                           CS       BIT4                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
010069,000904: 05,2103           70272                           MASK     VERBREG                               #  CADR TO BE SPECIFIED.
010070,000905: 05,2104           62077                           AD       NEG5                                  #  MASKING MAKES VB15 LOOK LIKE VB05.
010071,000906: 05,2105           00006                           EXTEND                                         
010072,000907: 05,2106           12116                           BZF      VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY CADR.
010073,000908: 05,2107           34531                           CAF      R3D1                                  #  VB NOT = 05 OR 15. DISPLAY CADR.
010074,000909: 05,2110           54270                           TS       DSPCOUNT                              
010075,000910: 05,2111           30310                           CA       NOUNCADR                              
010076,000911: 05,2112           03222                           TC       DSPOCTWD                              

Page 252

010078,000913: 05,2113           02116                           TC       VERBFAN                               
010079,000914: 
010080,000915: 05,2114           67763                           AD       ONE                                   
010081,000916: 05,2115           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010082,000917: 05,2116           42131        VERBFAN            CS       LST2CON                               
010083,000918: 05,2117           60272                           AD       VERBREG                               #  VERB = LST2CON
010084,000919: 05,2120           10000                           CCS      A                                     
010085,000920: 05,2121           67763                           AD       ONE                                   #  VERB G/ LST2CON
010086,000921: 05,2122           02124                           TC       +2                                    
010087,000922: 05,2123           02133                           TC       VBFANDIR                              #  VERB L/ LST2CON
010088,000923: 05,2124           54144                           TS       MPAC                                  
010089,000924: 05,2125           04666                           TC       RELDSP                                #  RELEASE DISPLAY SYST
010090,000925: 05,2126           56144                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
010091,000926: 05,2127           62132                           AD       LST2CADR                              
010092,000927: 05,2130           05230                           TC       BANKJUMP                              
010093,000928: 05,2131           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
010094,000929: 05,2132           22000        LST2CADR           CADR     LST2FAN                               
010095,000930: 
010096,000931: 05,2133           50272        VBFANDIR           INDEX    VERBREG                               
010097,000932: 05,2134           32136                           CAF      VERBTAB                               
010098,000933: 05,2135           05230                           TC       BANKJUMP                              
010099,000934: 
010100,000935: 05,2136           12324        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
010101,000936: 05,2137           12340                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
010102,000937: 05,2140           12345                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
010103,000938: 05,2141           12352                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
010104,000939: 05,2142           12333                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
010105,000940: 05,2143           12326                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
010106,000941: 05,2144           12445                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
010107,000942: 05,2145           10722                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
010108,000943: 05,2146           11315                           CADR     DSPALARM                              #  VB10 SPARE
010109,000944: 05,2147           13077                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
010110,000945: 05,2150           13077                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
010111,000946: 05,2151           13077                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
010112,000947: 05,2152           13077                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
010113,000948: 05,2153           13077                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
010114,000949: 05,2154           13077                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
010115,000950: 05,2155           13077                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
010116,000951: 05,2156           12324                           CADR     GODSPALM                              #  VB20 SPARE
010117,000952: 05,2157           12620                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
010118,000953: 05,2160           12631                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
010119,000954: 05,2161           12646                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
010120,000955: 05,2162           12572                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
010121,000956: 05,2163           12535                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
010122,000957: 05,2164           12324                           CADR     GODSPALM                              #  VB26 SPARE
010123,000958: 05,2165           13214                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
010124,000959:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
010125,000960: 05,2166           13314        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
010126,000961: 05,2167           13340                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
010127,000962: 05,2170           11343                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2

Page 253

010129,000964: 05,2171           11326                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
010130,000965: 05,2172           11333                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
010131,000966: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
010132,000967: 05,2174           02000                           CADR     SLAP1                                 #  VB36 FRESH START
010133,000968: 05,2175           13267                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
010134,000969: 
010135,000970:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
010136,000971: 

Page 254

010138,000973:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
010139,000974:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
010140,000975:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
010141,000976:                                                                                                  #  MIXTEMP.
010142,000977: 
010143,000978: 05,2176           10136        MIXNOUN            CCS      NNADTEM                               
010144,000979: 05,2177           02203                           TC       +4                                    #  + IN USE
010145,000980: 05,2200           02324                           TC       GODSPALM                              #  +0 NOT IN USE
010146,000981: 05,2201           02203                           TC       +2                                    #  - IN USE
010147,000982: 05,2202           02203                           TC       +1                                    #  -0 IN USE
010148,000983: 05,2203           46306                           CS       SIX                                   
010149,000984: 05,2204           60272                           AD       VERBREG                               
010150,000985: 05,2205           00006                           EXTEND                                         
010151,000986: 05,2206           62210                           BZMF     +2                                    #  VERB L/E 6
010152,000987: 05,2207           02116                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
010153,000988: 05,2210           37762                           CAF      TWO                                   
010154,000989: 05,2211           54107        MIXNN1             TS       DECOUNT                               
010155,000990: 05,2212           62235                           AD       MIXAD                                 
010156,000991: 05,2213           54135                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
010157,000992: 05,2214           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010158,000993: 05,2215           30140                           CA       IDAD1TEM                              #  OF NOUN.
010159,000994: 05,2216           54112                           TS       NOUNTEM                               
010160,000995:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY).  IF SO, GET
010161,000996:                                                                                                  #    MINOR PART ONLY.
010162,000997: 05,2217           02721                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
010163,000998: 05,2220           02236                           TC       DPTEST                                
010164,000999: 05,2221           02223                           TC       MIXNN2                                #  NO DP
010165,001000: 05,2222           24112                           INCR     NOUNTEM                               #  DP GET MINOR PART
010166,001001: 05,2223           30112        MIXNN2             CA       NOUNTEM                               
010167,001002: 05,2224           74563                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1     FOR DP
010168,001003: 05,2225           04523                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
010169,001004: 05,2226           50000                           INDEX    A                                     #  PICK UP C(ESUBK) NOT DP
010170,001005: 05,2227           30000                           CA       0                                     #  OR C((ESUBK)+1) FOR DP MINOR PART
010171,001006: 05,2230           50135                           INDEX    NOUNADD                               
010172,001007: 05,2231           56000                           XCH      0                                     #  STORE IN MIXTEM + K
010173,001008: 05,2232           10107                           CCS      DECOUNT                               
010174,001009: 05,2233           02211                           TC       MIXNN1                                
010175,001010: 05,2234           02116                           TC       VERBFAN                               
010176,001011: 
010177,001012: 05,2235           00115        MIXAD              TC       MIXTEMP                               
010178,001013: 
010179,001014:                                                                                                  #  DPTEST        ENTER WITH SF ROUT NUMBER IN A.
010180,001015:                                                                                                  #                RETURNS TO L+1 IF NO DP.
010181,001016:                                                                                                  #                RETURNS TO L+2 IF DP.
010182,001017: 
010183,001018: 05,2236           50000        DPTEST             INDEX    A                                     
010184,001019: 05,2237           12240                           TCF      +1                                    
010185,001020: 05,2240           00002                           TC       Q                                     #  OCTAL ONLY NO DP

Page 255

010187,001022: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
010188,001023: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
010189,001024: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
010190,001025: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
010191,001026: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
010192,001027: 05,2246           00002                           TC       Q                                     #  LRPOSOUT NO DP (DATA IN CHANNEL 33)
010193,001028: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
010194,001029: 05,2250           50002        DPTEST1            INDEX    Q                                     
010195,001030: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
010196,001031: 
010197,001032: 05,2252           34527        REQDATX            CAF      R1D1                                  
010198,001033: 05,2253           12257                           TCF      REQCOM                                
010199,001034: 05,2254           34530        REQDATY            CAF      R2D1                                  
010200,001035: 05,2255           12257                           TCF      REQCOM                                
010201,001036: 05,2256           34531        REQDATZ            CAF      R3D1                                  
010202,001037: 05,2257           54270        REQCOM             TS       DSPCOUNT                              
010203,001038: 05,2260           40002                           CS       Q                                     
010204,001039: 05,2261           54304                           TS       REQRET                                
010205,001040: 05,2262           05206                           TC       BANKCALL                              
010206,001041: 05,2263           10514                           CADR     5BLANK                                
010207,001042: 05,2264           04622                           TC       FLASHON                               
010208,001043: 05,2265           44505                           CS       ENDINST                               
010209,001044: 05,2266           60126                           AD       ENTEXIT                               
010210,001045: 05,2267           00006                           EXTEND                                         
010211,001046: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
010212,001047: 05,2271           47767                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
010213,001048: 05,2272           54327                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
010214,001049: 05,2273           00126        ENDRQDAT           TC       ENTEXIT                               
010215,001050: 
010216,001051:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
010217,001052:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
010218,001053: 
010219,001054: 05,2274           54273                           TS       NOUNREG                               
010220,001055: 05,2275           56002        UPDATNN            XCH      Q                                     
010221,001056: 05,2276           54107                           TS       UPDATRET                              
010222,001057: 05,2277           00006                           EXTEND                                         
010223,001058: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010224,001059: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
010225,001060: 05,2302           10136                           CCS      NNADTEM                               
010226,001061: 05,2303           67763                           AD       ONE                                   #  NORMAL
010227,001062: 05,2304           12307                           TCF      PUTADD                                
010228,001063: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
010229,001064: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
010230,001065: 05,2307           04513        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB. NOUNADD.
010231,001066: 05,2310           34566                           CAF      ND1                                   
010232,001067: 05,2311           54270                           TS       DSPCOUNT                              

Page 256

010234,001069: 05,2312           30273                           CA       NOUNREG                               
010235,001070: 05,2313           12322                           TCF      UPDAT1                                
010236,001071: 
010237,001072: 05,2314           54272                           TS       VERBREG                               
010238,001073: 05,2315           56002        UPDATVB            XCH      Q                                     
010239,001074: 05,2316           54107                           TS       UPDATRET                              
010240,001075: 05,2317           34565                           CAF      VD1                                   
010241,001076: 05,2320           54270                           TS       DSPCOUNT                              
010242,001077: 05,2321           30272                           CA       VERBREG                               
010243,001078: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
010244,001079: 05,2323           00107                           TC       UPDATRET                              
010245,001080: 
010246,001081: 05,2324           05225        GODSPALM           TC       POSTJUMP                              
010247,001082: 05,2325           11315                           CADR     DSPALARM                              
010248,001083: 

Page 257

010250,001085:                                                                                                  #  NOUN TABLES
010251,001086: 
010252,001087:                                                                                                  #  NOUN CODE L/ 55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
010253,001088:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
010254,001089:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
010255,001090:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
010256,001091:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
010257,001092: 
010258,001093:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
010259,001094:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
010260,001095: 
010261,001096:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
010262,001097: 
010263,001098:                                                                                                  #  FOR THE NORMAL CASE, M'S ARE THE COMPONENT CODE NUMBER.
010264,001099:                                                                                                  #                       N'S ARE THE SF ROUTINE CODE NUMBER.
010265,001100:                                                                                                  #                       P'S ARE THE SF CONSTANT CODE NUMBER.
010266,001101: 
010267,001102:                                                                                                  #  MIXED-CASE,M'S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
010268,001103:                                                                                                  #             N'S ARE THE SF CONSTANT2 CODE NUMBER
010269,001104:                                                                                                  #             P'S ARE THE SF CONSTANT1 CODE NUMBER
010270,001105:                                                                                                  #             N'S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
010271,001106:                                                                                                  #             P'S ARE THE SF CONSTANT1 CODE NUMBER
010272,001107:                                                                                                  #             P'S ARE THE SF CONSTANT1 CODE NUMBER     1 COMPONENT CASE
010273,001108: 
010274,001109:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
010275,001110:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
010276,001111:                                                                                                  #  THE FIRST OF THESE ENTRIES.
010277,001112:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
010278,001113:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K
010279,001114: 
010280,001115:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
010281,001116:                                                                                                  #  CASE ONLY.  THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
010282,001117:                                                                                                  #        QQQQQRRRRRSSSSS
010283,001118:                                                                                                  #  Q'S ARE THE SF ROUTINE 3 CODE NUMBER      3 COMPONENT CASE
010284,001119:                                                                                                  #  R'S ARE THE SF ROUTINE 2 CODE NUMBER
010285,001120:                                                                                                  #  S'S ARE THE SF ROUTINE 1 CODE NUMBER
010286,001121:                                                                                                  #  R'S ARE THE SF ROUTINE 2 CODE NUMBER      2 COMPONENT CASE
010287,001122:                                                                                                  #  S'S ARE THE SF ROUTINE 1 CODE NUMBER
010288,001123: 
010289,001124: 
010290,001125:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
010291,001126:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
010292,001127:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
010293,001128:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
010294,001129:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
010295,001130: 
010296,001131: 
010297,001132:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
010298,001133:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.

Page 258

010300,001135: 
010301,001136:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
010302,001137:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
010303,001138: 

Page 259

010305,001140:                                                                                                  #  DISPLAY VERBS
010306,001141: 
010307,001142: 05,2326           47762        DSPABC             CS       TWO                                   
010308,001143: 05,2327           02376                           TC       COMPTEST                              
010309,001144: 05,2330           50135                           INDEX    NOUNADD                               
010310,001145: 05,2331           40002                           CS       2                                     
010311,001146: 05,2332           56122                           XCH      BUF        +2                         
010312,001147: 05,2333           47763        DSPAB              CS       ONE                                   
010313,001148: 05,2334           02376                           TC       COMPTEST                              
010314,001149: 05,2335           50135                           INDEX    NOUNADD                               
010315,001150: 05,2336           40001                           CS       1                                     
010316,001151: 05,2337           56121                           XCH      BUF        +1                         
010317,001152: 05,2340           02420        DSPA               TC       TSTFORDP                              
010318,001153: 05,2341           50135                           INDEX    NOUNADD                               
010319,001154: 05,2342           40000                           CS       0                                     
010320,001155: 05,2343           56120        DSPCOM1            XCH      BUF                                   
010321,001156: 05,2344           02357                           TC       DSPCOM2                               
010322,001157: 05,2345           47763        DSPB               CS       ONE                                   
010323,001158: 05,2346           02376                           TC       COMPTEST                              
010324,001159: 05,2347           50135                           INDEX    NOUNADD                               
010325,001160: 05,2350           40001                           CS       1                                     
010326,001161: 05,2351           02343                           TC       DSPCOM1                               
010327,001162: 05,2352           47762        DSPC               CS       TWO                                   
010328,001163: 05,2353           02376                           TC       COMPTEST                              
010329,001164: 05,2354           50135                           INDEX    NOUNADD                               
010330,001165: 05,2355           40002                           CS       2                                     
010331,001166: 05,2356           02343                           TC       DSPCOM1                               
010332,001167: 05,2357           47762        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
010333,001168: 05,2360           60272                           AD       VERBREG                               #  -1 -0 +1 +2 +3   IN A
010334,001169: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1 +2    IN A AFTER CCS
010335,001170: 05,2362           02365                           TC       DSPCOM3                               
010336,001171: 05,2363           00126                           TC       ENTEXIT                               
010337,001172: 05,2364           02365                           TC       +1                                    
010338,001173: 05,2365           54112        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
010339,001174: 05,2366           50000                           INDEX    A                                     
010340,001175: 05,2367           34527                           CAF      R1D1                                  
010341,001176: 05,2370           54270                           TS       DSPCOUNT                              
010342,001177: 05,2371           50112                           INDEX    DISTEM                                
010343,001178: 05,2372           40120                           CS       BUF                                   
010344,001179: 05,2373           03222                           TC       DSPOCTWD                              
010345,001180: 05,2374           56112                           XCH      DISTEM                                
010346,001181: 05,2375           02361                           TC       DSPCOM2    +2                         
010347,001182: 
010348,001183:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
010349,001184:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
010350,001185:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
010351,001186: 05,2376           54113        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
010352,001187: 05,2377           22002                           LXCH     Q                                     
010353,001188: 05,2400           47763        COMPTST1           CS       ONE                                   
010354,001189: 05,2401           60273                           AD       NOUNREG                               
010355,001190: 05,2402           00006                           EXTEND                                         

Page 260

010357,001192: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
010358,001193: 05,2404           50130                           INDEX    MIXBR                                 #  NOUNT NOT = 01.
010359,001194: 05,2405           32442                           CAF      COMPICK    -1                         
010360,001195: 05,2406           50000                           INDEX    A                                     
010361,001196: 05,2407           30000                           CA       0                                     
010362,001197: 05,2410           74560                           MASK     HI5                                   
010363,001198: 05,2411           04541                           TC       LEFT5                                 #  NOUN COMP
010364,001199: 05,2412           60113                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
010365,001200: 05,2413           10000                           CCS      A                                     
010366,001201: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
010367,001202: 05,2415           04736                           TC       CCSHOLE                               
010368,001203: 05,2416           02324                           TC       GODSPALM                              #  NOUN L/ VERB COMP
010369,001204: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
010370,001205: 
010371,001206: 
010372,001207: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
010373,001208: 05,2421           30136                           CA       NNADTEM                               
010374,001209: 05,2422           67763                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010375,001210: 05,2423           00006                           EXTEND                                         
010376,001211: 05,2424           12436                           BZF      CHANDSP                               
010377,001212: 05,2425           50130                           INDEX    MIXBR                                 
010378,001213: 05,2426           02426                           TC       +0                                    
010379,001214: 05,2427           02431                           TC       +2                                    #  NORMAL
010380,001215: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
010381,001216: 05,2431           02713                           TC       SFRUTNOR                              
010382,001217: 05,2432           02236                           TC       DPTEST                                
010383,001218: 05,2433           00001                           TC       L                                     #  NO DP
010384,001219: 05,2434           24135                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
010385,001220: 05,2435           00001                           TC       L                                     
010386,001221: 
010387,001222: 05,2436           00006        CHANDSP            EXTEND                                         
010388,001223: 05,2437           50310                           INDEX    NOUNCADR                              
010389,001224: 05,2440           00000                           READ     0                                     
010390,001225: 05,2441           40000                           CS       A                                     
010391,001226: 05,2442           12343                           TCF      DSPCOM1                               
010392,001227: 
010393,001228: 
010394,001229: 05,2443           00137        COMPICK            ADRES    NNTYPTEM                              
010395,001230: 05,2444           00136                           ADRES    NNADTEM                               
010396,001231: 
010397,001232: 05,2445           50130        DECDSP             INDEX    MIXBR                                 #  NORMAL                 MIXED
010398,001233: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM         ADRES NNADTEM
010399,001234: 05,2447           50000                           INDEX    A                                     
010400,001235: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)            C(NNADTEM)
010401,001236: 05,2451           74560                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB (NORM)OF NNADTAB (MIX)
010402,001237: 05,2452           04541                           TC       LEFT5                                 

Page 261

010404,001239: 
010405,001240: 05,2453           54107                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
010406,001241: 05,2454           54112        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
010407,001242: 05,2455           60135                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
010408,001243: 05,2456           50000                           INDEX    A                                     
010409,001244: 05,2457           40000                           CS       0                                     
010410,001245: 05,2460           50112                           INDEX    DECTEM                                
010411,001246: 05,2461           56274                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
010412,001247: 05,2462           10112                           CCS      DECTEM                                
010413,001248: 05,2463           02454                           TC       DSPDCGET                              #  MORE TO GET
010414,001249: 05,2464           37767        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
010415,001250: 05,2465           54145                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
010416,001251: 05,2466           54146                           TS       MPAC       +2                         
010417,001252: 05,2467           50107                           INDEX    DECOUNT                               
010418,001253: 05,2470           34527                           CAF      R1D1                                  
010419,001254: 05,2471           54270                           TS       DSPCOUNT                              
010420,001255: 05,2472           50107                           INDEX    DECOUNT                               
010421,001256: 05,2473           40274                           CS       XREG                                  
010422,001257: 05,2474           54144                           TS       MPAC                                  
010423,001258: 05,2475           02734                           TC       SFCONUM                               #  2X( SF CON NUMB ) IN A
010424,001259: 05,2476           54113                           TS       SFTEMP1                               
010425,001260: 05,2477           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
010426,001261: 05,2500           32512                           DCA      GTSFOUTL                              #     READING ROUTINE.
010427,001262: 05,2501           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2
010428,001263: 05,2502           50130                           INDEX    MIXBR                                 
010429,001264: 05,2503           02503                           TC       +0                                    
010430,001265: 05,2504           02507                           TC       DSPSFNOR                              
010431,001266: 05,2505           02721                           TC       SFRUTMIX                              
010432,001267: 05,2506           02522                           TC       DECDSP3                               
010433,001268: 
010434,001269: 05,2507           02713        DSPSFNOR           TC       SFRUTNOR                              
010435,001270: 05,2510           02522                           TC       DECDSP3                               
010436,001271: 
010437,001272: 05,2511     0270                                  EBANK=   DSPCOUNT                              
010438,001273: 05,2511           02037 46060  GTSFOUTL           2CADR    GTSFOUT                               
010439,001274: 
010440,001275: 
010441,001276: 05,2513           05206        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
010442,001277: 05,2514           11117                           CADR     DSPDECWD                              
010443,001278: 05,2515           10107                           CCS      DECOUNT                               
010444,001279: 05,2516           02520                           TC       +2                                    
010445,001280: 05,2517           00126                           TC       ENTEXIT                               
010446,001281: 05,2520           54107                           TS       DECOUNT                               
010447,001282: 05,2521           02464                           TC       DSPDCPUT                              #  MORE TO DISPLAY
010448,001283: 
010449,001284: 05,2522           50000        DECDSP3            INDEX    A                                     
010450,001285: 05,2523           32525                           CAF      SFOUTABR                              
010451,001286: 05,2524           05230                           TC       BANKJUMP                              
010452,001287: 

Page 262

010454,001289: 05,2525           11315        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
010455,001290: 05,2526           12513                           CADR     DSPDCEND                              
010456,001291: 05,2527           10573                           CADR     DEGOUTSF                              
010457,001292: 05,2530           10660                           CADR     ARTOUTSF                              
010458,001293: 05,2531           10665                           CADR     DP1OUTSF                              
010459,001294: 05,2532           10672                           CADR     DP2OUTSF                              
010460,001295: 05,2533           10601                           CADR     OPDEGOUT                              
010461,001296: 05,2534           10674                           CADR     DP3OUTSF                              
010462,001297: 05,2535                        ENDRTOUT           EQUALS                                         
010463,001298: 
010464,001299:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
010465,001300:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
010466,001301: 
010467,001302: 04,2573                                           SETLOC   BLANKCON   +1                         
010468,001303: 
010469,001304:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
010470,001305:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
010471,001306: 
010472,001307: 04,2573           37767        DEGOUTSF           CAF      ZERO                                  
010473,001308: 04,2574           54146                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE.
010474,001309: 04,2575           02632                           TC       FIXRANGE                              
010475,001310: 04,2576           02600                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
010476,001311: 04,2577           02625                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
010477,001312: 04,2600           02643                           TC       DEGCOM                                
010478,001313: 
010479,001314:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
010480,001315: 
010481,001316: 04,2601           10144        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
010482,001317: 04,2602           56144                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
010483,001318: 04,2603           02606                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
010484,001319: 04,2604           02615                           TC       NEGOPT                                #  IF NEG NON ZERO
010485,001320: 04,2605           67771                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
010486,001321: 04,2606           62657                           AD       20BIAS                                
010487,001322: 04,2607           54144        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
010488,001323: 04,2610           02613                           TC       +3                                    #  NO OVFLOW
010489,001324: 04,2611           37745                           CAF      BIT15                                 #  IF OVFLOW
010490,001325: 04,2612           26144                           ADS      MPAC                                  
010491,001326: 04,2613           37762                           CAF      TWO                                   #  SET MULTIPLIER TO .45
010492,001327: 04,2614           02574                           TC       DEGOUTSF   +1                         
010493,001328: 
010494,001329: 04,2615           56144        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
010495,001330: 04,2616           62657                           AD       20BIAS                                
010496,001331: 04,2617           10000                           CCS      A                                     
010497,001332: 04,2620           02607                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
010498,001333: 04,2621           04736                           TC       CCSHOLE                               
010499,001334: 04,2622           67763                           AD       ONE                                   #  IF NEG RESTORE SUM
010500,001335: 

Page 263

010502,001337: 04,2623           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
010503,001338: 04,2624           02607                           TC       BIASCOM                               
010504,001339: 
010505,001340: 04,2625           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
010506,001341: 04,2626           50146                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
010507,001342: 04,2627           32654                           DCA      DEGTAB                                
010508,001343: 04,2630           52114                           DXCH     SFTEMP1                               
010509,001344: 04,2631           00002                           TC       Q                                     
010510,001345: 
010511,001346: 04,2632           10144        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
010512,001347: 04,2633           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
010513,001348: 04,2634           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
010514,001349: 04,2635           12636                           TCF      +1                                    
010515,001350: 04,2636           47745                           CS       BIT15                                 
010516,001351: 04,2637           70144                           MASK     MPAC                                  
010517,001352: 04,2640           54144                           TS       MPAC                                  
010518,001353: 04,2641           50002                           INDEX    Q                                     
010519,001354: 04,2642           00001                           TC       1                                     
010520,001355: 
010521,001356: 04,2643           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
010522,001357: 04,2644           50146                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
010523,001358: 04,2645           32654                           DCA      DEGTAB                                
010524,001359: 04,2646           52145                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
010525,001360: 04,2647           07357                           TC       SHORTMP                               
010526,001361: 04,2650           52114                           DXCH     SFTEMP1                               
010527,001362: 04,2651           20145                           DAS      MPAC                                  
010528,001363: 04,2652           02663                           TC       SCOUTEND                              
010529,001364: 
010530,001365: 
010531,001366: 04,2653           05605        DEGTAB             OCT      05605                                 #  HI PART OF    .18
010532,001367: 04,2654           03656                           OCT      03656                                 #  LOW PART OF   .18
010533,001368: 04,2655           16314                           OCT      16314                                 #  HI PART OF    .45
010534,001369: 04,2656           31463                           OCT      31463                                 #  LO PART OF    .45
010535,001370: 
010536,001371: 04,2657           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
010537,001372: 
010538,001373: 04,2660           52114        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
010539,001374: 04,2661           52145                           DXCH     MPAC                                  
010540,001375: 04,2662           07357                           TC       SHORTMP                               
010541,001376: 04,2663           05225        SCOUTEND           TC       POSTJUMP                              
010542,001377: 04,2664           12513                           CADR     DSPDCEND                              
010543,001378: 
010544,001379: 04,2665           02677        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010545,001380: 04,2666           56146                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
010546,001381: 04,2667           56145                           XCH      MPAC       +1                         #  BY B14
010547,001382: 04,2670           54144                           TS       MPAC                                  
010548,001383: 04,2671           02663                           TC       SCOUTEND                              

Page 264

010550,001385: 
010551,001386: 04,2672           02677        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010552,001387: 04,2673           02663                           TC       SCOUTEND                              
010553,001388: 
010554,001389: 
010555,001390: 04,2674           02677        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010556,001391: 04,2675           03072                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
010557,001392: 04,2676           02663                           TC       SCOUTEND                              
010558,001393: 
010559,001394:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
010560,001395:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
010561,001396: 
010562,001397: 04,2677           56002        DPOUT              XCH      Q                                     
010563,001398: 04,2700           54111                           TS       OVFIND                                
010564,001399: 04,2701           50130                           INDEX    MIXBR                                 
010565,001400: 04,2702           02702                           TC       +0                                    
010566,001401: 04,2703           02720                           TC       DPOUTNOR                              
010567,001402: 04,2704           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010568,001403: 04,2705           30140                           CA       IDAD1TEM                              #      OF NOUN.
010569,001404: 04,2706           74563                           MASK     LOW11                                 #  E SUBK
010570,001405: 04,2707           04523                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
010571,001406: 04,2710           00006        DPOUTCOM           EXTEND                                         
010572,001407: 04,2711           50000                           INDEX    A                                     #  MIXED         NORMAL
010573,001408: 04,2712           30001                           DCA      0                                     #  C(ESUBK)      C(E)
010574,001409: 04,2713           52145                           DXCH     MPAC                                  #  C((E SUBK)+1)      C(E+1)
010575,001410: 04,2714           07327                           TC       TPAGREE                               #  MAKE DP DATA AGREE
010576,001411: 04,2715           07155                           TC       DMP                                   
010577,001412: 04,2716           00113                           ADRES    SFTEMP1                               
010578,001413: 04,2717           00111                           TC       OVFIND                                
010579,001414: 
010580,001415: 04,2720           30135        DPOUTNOR           CA       NOUNADD                               
010581,001416: 04,2721           02710                           TC       DPOUTCOM                              
010582,001417: 
010583,001418:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
010584,001419:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
010585,001420:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
010586,001421:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
010587,001422:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
010588,001423:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
010589,001424: 
010590,001425: 
010591,001426: 04,2722           50130        DSPDPDEC           INDEX    MIXBR                                 
010592,001427: 04,2723           02723                           TC       +0                                    
010593,001428: 04,2724           02726                           TC       +2                                    #  NORMAL NOUN
010594,001429: 04,2725           03315                           TC       DSPALARM                              
010595,001430: 

Page 265

010597,001432: 04,2726           00006                           EXTEND                                         
010598,001433: 04,2727           50135                           INDEX    NOUNADD                               
010599,001434: 04,2730           30001                           DCA      0                                     
010600,001435: 04,2731           52145                           DXCH     MPAC                                  
010601,001436: 04,2732           34527                           CAF      R1D1                                  
010602,001437: 04,2733           54270                           TS       DSPCOUNT                              
010603,001438: 04,2734           37767                           CAF      ZERO                                  
010604,001439: 04,2735           54146                           TS       MPAC       +2                         
010605,001440: 04,2736           07327                           TC       TPAGREE                               
010606,001441: 04,2737           03173                           TC       DSP2DEC                               
010607,001442: 04,2740           00126        ENDDPDEC           TC       ENTEXIT                               
010608,001443: 

Page 266

010610,001445: 05,2535                                           SETLOC   ENDRTOUT                              
010611,001446: 
010612,001447: 05,2535           47762        ABCLOAD            CS       TWO                                   
010613,001448: 05,2536           02376                           TC       COMPTEST                              
010614,001449: 05,2537           32673                           CAF      VBSP1LD                               
010615,001450: 05,2540           02314                           TC       UPDATVB    -1                         
010616,001451: 05,2541           02252                           TC       REQDATX                               
010617,001452: 05,2542           32674                           CAF      VBSP2LD                               
010618,001453: 05,2543           02314                           TC       UPDATVB    -1                         
010619,001454: 05,2544           02254                           TC       REQDATY                               
010620,001455: 05,2545           32675                           CAF      VBSP3LD                               
010621,001456: 05,2546           02314                           TC       UPDATVB    -1                         
010622,001457: 05,2547           02256                           TC       REQDATZ                               
010623,001458: 
010624,001459: 
010625,001460: 05,2550           46306        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
010626,001461: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010627,001462: 05,2552           00006                           EXTEND                                         
010628,001463: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010629,001464: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
010630,001465: 05,2555           37767                           CAF      ZERO                                  #  X COMP
010631,001466: 05,2556           02762                           TC       PUTCOM                                
010632,001467: 05,2557           50135                           INDEX    NOUNADD                               
010633,001468: 05,2560           54000                           TS       0                                     
010634,001469: 05,2561           37763                           CAF      ONE                                   #  Y COMP
010635,001470: 05,2562           02762                           TC       PUTCOM                                
010636,001471: 05,2563           50135                           INDEX    NOUNADD                               
010637,001472: 05,2564           54001                           TS       1                                     
010638,001473: 05,2565           37762                           CAF      TWO                                   #  Z COMP
010639,001474: 05,2566           02762                           TC       PUTCOM                                
010640,001475: 05,2567           50135                           INDEX    NOUNADD                               
010641,001476: 05,2570           54002                           TS       2                                     
010642,001477: 05,2571           02663                           TC       LOADLV                                
010643,001478: 
010644,001479: 05,2572           47763        ABLOAD             CS       ONE                                   
010645,001480: 05,2573           02376                           TC       COMPTEST                              
010646,001481: 05,2574           32673                           CAF      VBSP1LD                               
010647,001482: 05,2575           02314                           TC       UPDATVB    -1                         
010648,001483: 05,2576           02252                           TC       REQDATX                               
010649,001484: 05,2577           32674                           CAF      VBSP2LD                               
010650,001485: 05,2600           02314                           TC       UPDATVB    -1                         
010651,001486: 05,2601           02254                           TC       REQDATY                               
010652,001487: 05,2602           47766        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
010653,001488: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010654,001489: 05,2604           00006                           EXTEND                                         

Page 267

010656,001491: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010657,001492: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
010658,001493: 05,2607           37767                           CAF      ZERO                                  #  X COMP
010659,001494: 05,2610           02762                           TC       PUTCOM                                
010660,001495: 05,2611           50135                           INDEX    NOUNADD                               
010661,001496: 05,2612           54000                           TS       0                                     
010662,001497: 05,2613           37763                           CAF      ONE                                   #  Y COMP
010663,001498: 05,2614           02762                           TC       PUTCOM                                
010664,001499: 05,2615           50135                           INDEX    NOUNADD                               
010665,001500: 05,2616           54001                           TS       1                                     
010666,001501: 05,2617           02663                           TC       LOADLV                                
010667,001502: 
010668,001503: 05,2620           02252        ALOAD              TC       REQDATX                               
010669,001504: 05,2621           00006                           EXTEND                                         
010670,001505: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010671,001506: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
010672,001507: 05,2624           37767                           CAF      ZERO                                  #  X COMP
010673,001508: 05,2625           02762                           TC       PUTCOM                                
010674,001509: 05,2626           50135                           INDEX    NOUNADD                               
010675,001510: 05,2627           54000                           TS       0                                     
010676,001511: 05,2630           02663                           TC       LOADLV                                
010677,001512: 
010678,001513: 05,2631           47763        BLOAD              CS       ONE                                   
010679,001514: 05,2632           02376                           TC       COMPTEST                              
010680,001515: 05,2633           37745                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010681,001516: 05,2634           54306                           TS       CLPASS                                
010682,001517: 05,2635           02254                           TC       REQDATY                               
010683,001518: 05,2636           00006                           EXTEND                                         
010684,001519: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010685,001520: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
010686,001521: 05,2641           37763                           CAF      ONE                                   
010687,001522: 05,2642           02762                           TC       PUTCOM                                
010688,001523: 05,2643           50135                           INDEX    NOUNADD                               
010689,001524: 05,2644           54001                           TS       1                                     
010690,001525: 05,2645           02663                           TC       LOADLV                                
010691,001526: 
010692,001527: 05,2646           47762        CLOAD              CS       TWO                                   
010693,001528: 05,2647           02376                           TC       COMPTEST                              
010694,001529: 05,2650           37745                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010695,001530: 05,2651           54306                           TS       CLPASS                                
010696,001531: 05,2652           02256                           TC       REQDATZ                               
010697,001532: 05,2653           00006                           EXTEND                                         
010698,001533: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010699,001534: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
010700,001535: 05,2656           37762                           CAF      TWO                                   
010701,001536: 05,2657           02762                           TC       PUTCOM                                
010702,001537: 05,2660           50135                           INDEX    NOUNADD                               
010703,001538: 05,2661           54002                           TS       2                                     
010704,001539: 05,2662           02663                           TC       LOADLV                                
010705,001540: 

Page 268

010707,001542: 05,2663           37767        LOADLV             CAF      ZERO                                  
010708,001543: 05,2664           54271                           TS       DECBRNCH                              
010709,001544: 05,2665           47767                           CS       ZERO                                  
010710,001545: 05,2666           54305                           TS       LOADSTAT                              
010711,001546: 05,2667           44565                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
010712,001547: 05,2670           54270                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
010713,001548: 05,2671           05225                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
010714,001549: 05,2672           11440                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
010715,001550: 
010716,001551: 05,2673           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
010717,001552: 05,2674           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
010718,001553: 05,2675           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
010719,001554: 
010720,001555: 05,2676           54107        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
010721,001556: 05,2677           40271                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
010722,001557: 05,2700           54021                           TS       SR                                    
010723,001558: 05,2701           40021                           CS       SR                                    
010724,001559: 05,2702           40021                           CS       SR                                    #  SHIFTED RIGHT 2
010725,001560: 05,2703           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
010726,001561: 05,2704           12706                           TCF      +2                                    #  SOME ONES IN LOW 3
010727,001562: 05,2705           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
010728,001563: 05,2706           60107                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
010729,001564: 05,2707           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
010730,001565: 05,2710           12712                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
010731,001566: 05,2711           02324                           TC       GODSPALM                              
010732,001567: 05,2712           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC.  OK
010733,001568: 
010734,001569: 05,2713           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
010735,001570: 05,2714           54104                           TS       EXITEM                                #  CAN'T USE L FOR RETURN. TSTFORDP USES L.
010736,001571: 05,2715           34557                           CAF      MID5                                  
010737,001572: 05,2716           70137                           MASK     NNTYPTEM                              
010738,001573: 05,2717           04532                           TC       RIGHT5                                
010739,001574: 05,2720           00104                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
010740,001575: 
010741,001576: 05,2721           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
010742,001577: 05,2722           54104                           TS       EXITEM                                
010743,001578: 05,2723           50107                           INDEX    DECOUNT                               
010744,001579: 05,2724           32753                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010745,001580: 05,2725           54001                           TS       L                                     
010746,001581: 05,2726           50107                           INDEX    DECOUNT                               
010747,001582: 05,2727           34556                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
010748,001583: 05,2730           70143                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
010749,001584: 05,2731           50001                           INDEX    L                                     
010750,001585: 05,2732           00000                           TC       0                                     
010751,001586:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010752,001587: 05,2733           00104        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
010753,001588: 

Page 269

010755,001590: 05,2734           56002        SFCONUM            XCH      Q                                     #  GETS 2X(SF CONSTANT NUMBER)
010756,001591: 05,2735           54104                           TS       EXITEM                                
010757,001592: 05,2736           50130                           INDEX    MIXBR                                 
010758,001593: 05,2737           02737                           TC       +0                                    
010759,001594: 05,2740           02756                           TC       CONUMNOR                              #  NORMAL NOUN
010760,001595: 05,2741           50107                           INDEX    DECOUNT                               #  MIXED NOUN
010761,001596: 05,2742           32753                           CAF      DISPLACE                              
010762,001597: 05,2743           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010763,001598: 05,2744           50107                           INDEX    DECOUNT                               
010764,001599: 05,2745           34556                           CAF      LOW5                                  
010765,001600: 05,2746           70137                           MASK     NNTYPTEM                              
010766,001601: 05,2747           50001                           INDEX    L                                     
010767,001602: 05,2750           00000                           TC       0                                     
010768,001603:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010769,001604: 05,2751           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
010770,001605: 05,2752           00104                           TC       EXITEM                                
010771,001606: 
010772,001607: 05,2753           02712        DISPLACE           TC       GOQ                                   
010773,001608: 05,2754           04532                           TC       RIGHT5                                
010774,001609: 05,2755           04541                           TC       LEFT5                                 
010775,001610: 
010776,001611: 05,2756           34556        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
010777,001612: 05,2757           70137                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
010778,001613: 05,2760           60000                           DOUBLE                                         
010779,001614: 05,2761           00104                           TC       EXITEM                                #  2X(SF CONSTANT NUMBER) IN A
010780,001615: 
010781,001616: 
010782,001617: 05,2762           54107        PUTCOM             TS       DECOUNT                               
010783,001618: 05,2763           56002                           XCH      Q                                     
010784,001619: 05,2764           54105                           TS       DECRET                                
010785,001620: 05,2765           37767                           CAF      ZERO                                  
010786,001621: 05,2766           54111                           TS       OVFIND                                
010787,001622: 05,2767           50107                           INDEX    DECOUNT                               
010788,001623: 05,2770           56277                           XCH      XREGLP                                
010789,001624: 05,2771           54145                           TS       MPAC       +1                         
010790,001625: 05,2772           50107                           INDEX    DECOUNT                               
010791,001626: 05,2773           56274                           XCH      XREG                                  
010792,001627: 05,2774           54144                           TS       MPAC                                  
010793,001628: 05,2775           50130                           INDEX    MIXBR                                 
010794,001629: 05,2776           02776                           TC       +0                                    
010795,001630: 05,2777           03023                           TC       PUTNORM                               #  NORMAL NOUN
010796,001631:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
010797,001632: 05,3000           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010798,001633: 05,3001           30140                           CA       IDAD1TEM                              #          OF NOUN.
010799,001634: 05,3002           74563                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
010800,001635: 05,3003           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010801,001636: 05,3004           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
010802,001637: 05,3005           60107                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
010803,001638: 05,3006           54135                           TS       NOUNADD                               

Page 270

010805,001640: 05,3007           10271                           CCS      DECBRNCH                              
010806,001641: 05,3010           03051                           TC       PUTDECSF                              #  + DEC
010807,001642: 05,3011           02721                           TC       SFRUTMIX                              #  +0 OCTAL
010808,001643: 05,3012           02236                           TC       DPTEST                                
010809,001644: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
010810,001645:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
010811,001646:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
010812,001647:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
010813,001648: 05,3014           24135        PUTDPCOM           INCR     NOUNADD                               #  DP (ESUBK)-K+1  OR  E+1
010814,001649: 05,3015           30135                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
010815,001650: 05,3016           26107                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
010816,001651: 05,3017           37767                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
010817,001652: 05,3020           50107                           INDEX    DECOUNT                               
010818,001653: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
010819,001654: 05,3022           03040                           TC       PUTCOM2                               
010820,001655: 
010821,001656: 05,3023           04521        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010822,001657: 05,3024           10271                           CCS      DECBRNCH                              
010823,001658: 05,3025           03051                           TC       PUTDECSF                              #  + DEC
010824,001659: 05,3026           02713                           TC       SFRUTNOR                              #  +0 OCTAL
010825,001660: 05,3027           02236                           TC       DPTEST                                
010826,001661: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
010827,001662: 05,3031           37767                           CAF      ZERO                                  #  DP
010828,001663: 05,3032           54107                           TS       DECOUNT                               
010829,001664: 05,3033           03014                           TC       PUTDPCOM                              
010830,001665: 
010831,001666: 05,3034           30136                           CA       NNADTEM                               
010832,001667: 05,3035           67763                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010833,001668: 05,3036           00006                           EXTEND                                         
010834,001669: 05,3037           13044                           BZF      CHANLOAD                              
010835,001670: 05,3040           56144        PUTCOM2            XCH      MPAC                                  
010836,001671: 05,3041           00105                           TC       DECRET                                
010837,001672: 
010838,001673: 05,3042     0270                                  EBANK=   DSPCOUNT                              
010839,001674: 05,3042           02045 46060  GTSFINLC           2CADR    GTSFIN                                
010840,001675: 
010841,001676: 
010842,001677: 05,3044           56144        CHANLOAD           XCH      MPAC                                  
010843,001678: 05,3045           00006                           EXTEND                                         
010844,001679: 05,3046           50310                           INDEX    NOUNCADR                              
010845,001680: 05,3047           01000                           WRITE    0                                     
010846,001681: 05,3050           02663                           TC       LOADLV                                
010847,001682: 
010848,001683:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
010849,001684: 
010850,001685: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
010851,001686: 05,3052           54113                           TS       SFTEMP1                               

Page 271

010853,001688: 05,3053           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
010854,001689: 05,3054           33043                           DCA      GTSFINLC                              #  READING ROUTINE.
010855,001690: 05,3055           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
010856,001691: 05,3056           50130                           INDEX    MIXBR                                 
010857,001692: 05,3057           03057                           TC       +0                                    
010858,001693: 05,3060           03063                           TC       PUTSFNOR                              
010859,001694: 05,3061           02721                           TC       SFRUTMIX                              
010860,001695: 05,3062           03064                           TC       PUTDCSF2                              
010861,001696: 05,3063           02713        PUTSFNOR           TC       SFRUTNOR                              
010862,001697: 
010863,001698: 05,3064           50000        PUTDCSF2           INDEX    A                                     
010864,001699: 05,3065           33067                           CAF      SFINTABR                              
010865,001700: 05,3066           05230                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSION ROOM
010866,001701: 05,3067           11315        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
010867,001702: 05,3070           11021                           CADR     BINROUND                              
010868,001703: 05,3071           10741                           CADR     DEGINSF                               
010869,001704: 05,3072           11011                           CADR     ARTHINSF                              
010870,001705: 05,3073           11041                           CADR     DPINSF                                
010871,001706: 05,3074           11066                           CADR     DPINSF2                               
010872,001707: 05,3075           11024                           CADR     OPTDEGIN                              
010873,001708: 05,3076           11041                           CADR     DPINSF                                #  SAME AS ARITHDP1
010874,001709: 05,3077                        ENDRUTIN           EQUALS                                         
010875,001710: 
010876,001711: 
010877,001712:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
010878,001713:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET.
010879,001714: 
010880,001715: 04,2741                                           SETLOC   ENDDPDEC   +1                         
010881,001716: 
010882,001717:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
010883,001718: 
010884,001719: 04,2741           07155        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
010885,001720: 04,2742           03004                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
010886,001721: 04,2743           10145                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
010887,001722: 04,2744           37751                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
010888,001723: 04,2745           02747                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
010889,001724: 04,2746           47751                           CS       BIT11                                 
010890,001725: 04,2747           60145                           AD       MPAC       +1                         
010891,001726: 04,2750           03104                           TC       2ROUND     +2                         
010892,001727: 04,2751           04611                           TC       TPSL1                                 #  LEFT 1
010893,001728: 04,2752           04611        DEGINSF2           TC       TPSL1                                 #  LEFT 2
010894,001729: 04,2753           03113                           TC       TESTOFUF                              
010895,001730: 04,2754           04611                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
010896,001731: 04,2755           10144                           CCS      MPAC                                  
010897,001732: 04,2756           02762                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
010898,001733: 04,2757           02762                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
010899,001734: 04,2760           40000                           COM                                            #  IF -, USE -MAGNITUDE +1

Page 272

010901,001736: 04,2761           54144                           TS       MPAC                                  #  IF -0, USE +0
010902,001737: 04,2762           10111        SIGNFIX            CCS      OVFIND                                
010903,001738: 04,2763           03000                           TC       SGNTO1                                #  IF OVERFLOW
010904,001739: 04,2764           02774                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
010905,001740: 04,2765           10144                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
010906,001741: 04,2766           04736                           TC       CCSHOLE                               
010907,001742: 04,2767           02776                           TC       NEG180                                
010908,001743: 04,2770           02771                           TC       +1                                    
010909,001744: 04,2771           56144                           XCH      MPAC                                  
010910,001745: 04,2772           77743                           MASK     POSMAX                                
010911,001746: 04,2773           54144                           TS       MPAC                                  
010912,001747: 04,2774           05225        ENDSCALE           TC       POSTJUMP                              
010913,001748: 04,2775           13040                           CADR     PUTCOM2                               
010914,001749: 
010915,001750: 04,2776           47743        NEG180             CS       POSMAX                                
010916,001751: 04,2777           02773                           TC       ENDSCALE   -1                         
010917,001752: 
010918,001753: 04,3000           40144        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
010919,001754: 04,3001           77743                           MASK     POSMAX                                
010920,001755: 04,3002           40000                           CS       A                                     
010921,001756: 04,3003           02773                           TC       ENDSCALE   -1                         
010922,001757: 
010923,001758: 04,3004           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
010924,001759: 
010925,001760: 04,3006           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
010926,001761: 
010927,001762: 04,3010           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
010928,001763: 
010929,001764: 04,3011           07155        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
010930,001765: 04,3012           00113                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
010931,001766: 04,3013           56146                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
010932,001767: 04,3014           56145                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
010933,001768: 04,3015           56144                           XCH      MPAC                                  
010934,001769: 04,3016           00006                           EXTEND                                         
010935,001770: 04,3017           13021                           BZF      BINROUND                              
010936,001771: 04,3020           03315                           TC       DSPALARM                              #  TOO LARGE A LOAD
010937,001772: 04,3021           03102        BINROUND           TC       2ROUND                                
010938,001773: 04,3022           03113                           TC       TESTOFUF                              
010939,001774: 04,3023           02774                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
010940,001775: 
010941,001776: 
010942,001777: 04,3024           10144        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
010943,001778: 04,3025           03031                           TC       +4                                    
010944,001779: 04,3026           03031                           TC       +3                                    
010945,001780: 04,3027           03315                           TC       DSPALARM                              #  REJECT NEGATIVE INPUT
010946,001781: 04,3030           03315                           TC       DSPALARM                              #         DITTO
010947,001782: 04,3031           33010        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
010948,001783: 04,3032           26144                           ADS      MPAC                                  #  SUBTRACT BIAS
010949,001784: 04,3033           07155                           TC       DMP                                   #  MULT BY 100 / 45 B-2
010950,001785: 

Page 273

010952,001787: 04,3034           03006                           ADRES    DEGCON2                               
010953,001788: 04,3035           37750                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
010954,001789: 04,3036           60145                           AD       MPAC       +1                         
010955,001790: 04,3037           03104                           TC       2ROUND     +2                         
010956,001791: 04,3040           02752                           TC       DEGINSF2                              
010957,001792: 
010958,001793: 04,3041           07155        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
010959,001794: 04,3042           00113                           ADRES    SFTEMP1                               #  SFTEMP.  STORES LOW PART OF RESULT
010960,001795: 04,3043           56146                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
010961,001796: 04,3044           60000                           DOUBLE                                         
010962,001797: 04,3045           54146                           TS       MPAC       +2                         
010963,001798: 04,3046           37767                           CAF      ZERO                                  
010964,001799: 04,3047           60145                           AD       MPAC       +1                         
010965,001800: 04,3050           03104                           TC       2ROUND     +2                         
010966,001801: 04,3051           03113                           TC       TESTOFUF                              
010967,001802: 04,3052           50130                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
010968,001803: 04,3053           03053                           TC       +0                                    
010969,001804: 04,3054           03064                           TC       DPINORM                               
010970,001805: 04,3055           30107                           CA       DECOUNT                               #  MIXEDNOUN
010971,001806: 04,3056           60135        DPINCOM            AD       NOUNADD                               #      MIXED                 NORMAL
010972,001807: 04,3057           54002                           TS       Q                                     #    E SUBK              E
010973,001808: 04,3060           56145                           XCH      MPAC       +1                         
010974,001809: 04,3061           50002                           INDEX    Q                                     
010975,001810: 04,3062           54001                           TS       1                                     #  PLACE LOW PART IN
010976,001811: 04,3063           02774                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
010977,001812: 04,3064           37767        DPINORM            CAF      ZERO                                  #  E +1          NORMAL
010978,001813: 04,3065           03056                           TC       DPINCOM                               
010979,001814: 
010980,001815: 
010981,001816: 04,3066           07155        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010982,001817: 04,3067           00113                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
010983,001818: 04,3070           03072                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
010984,001819: 04,3071           03043                           TC       DPINSF     +2                         
010985,001820: 
010986,001821: 
010987,001822: 04,3072           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
010988,001823: 04,3073           54114                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
010989,001824: 04,3074           36306                           CAF      SIX                                   
010990,001825: 04,3075           54113        LEFT7COM           TS       SFTEMP1                               
010991,001826: 04,3076           04611                           TC       TPSL1                                 
010992,001827: 04,3077           10113                           CCS      SFTEMP1                               
010993,001828: 04,3100           03075                           TC       LEFT7COM                              
010994,001829: 04,3101           00114                           TC       SFTEMP2                               
010995,001830: 
010996,001831: 04,3102           56145        2ROUND             XCH      MPAC       +1                         
010997,001832: 04,3103           60000                           DOUBLE                                         

Page 274

010999,001834: 04,3104           54145                           TS       MPAC       +1                         
011000,001835: 04,3105           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
011001,001836: 04,3106           60144                           AD       MPAC                                  
011002,001837: 04,3107           54144                           TS       MPAC                                  
011003,001838: 04,3110           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
011004,001839: 04,3111           54111                           TS       OVFIND                                
011005,001840: 04,3112           00002        2RNDEND            TC       Q                                     
011006,001841: 
011007,001842: 04,3113           10111        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
011008,001843: 04,3114           03315                           TC       DSPALARM                              #  OF
011009,001844: 04,3115           00002                           TC       Q                                     
011010,001845: 04,3116           03315                           TC       DSPALARM                              #  UF
011011,001846: 

Page 275

011013,001848:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
011014,001849:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR OTHER MONITOR.
011015,001850: 
011016,001851:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
011017,001852:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
011018,001853:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
011019,001854:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
011020,001855:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). 
011021,001856: 
011022,001857:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
011023,001858:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
011024,001859:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
011025,001860: 
011026,001861:                                                                                                  #  NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
011027,001862: 
011028,001863:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
011029,001864:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
011030,001865: 
011031,001866:                                                                                                  #  MONITOR DOESNT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW.
011032,001867: 05,3077                                           SETLOC   ENDRUTIN                              
011033,001868: 
011034,001869: 05,3077           47745        MONITOR            CS       BIT15                                 
011035,001870: 05,3100           70310                           MASK     NOUNCADR                              
011036,001871: 05,3101           54145        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
011037,001872: 05,3102           33401                           CAF      LOW6                                  
011038,001873: 05,3103           70272                           MASK     VERBREG                               
011039,001874: 05,3104           04541                           TC       LEFT5                                 
011040,001875: 05,3105           54022                           TS       CYL                                   
011041,001876: 05,3106           56022                           XCH      CYL                                   
011042,001877: 05,3107           60273                           AD       NOUNREG                               
011043,001878: 05,3110           54144                           TS       MPAC                                  #  TEMP STORAGE
011044,001879: 05,3111           40330                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
011045,001880: 05,3112           67762                           AD       TWO                                   
011046,001881: 05,3113           10000                           CCS      A                                     
011047,001882: 05,3114           04711                           TC       RELDSP1                               #  GRABLOCK=0,1. +0 INTO DSPLOCK AND
011048,001883: 05,3115           03121                           TC       +4                                    #  TURN OFF KEY RLSE LIGHT.
011049,001884: 05,3116           04736                           TC       CCSHOLE                               
011050,001885: 05,3117           37767                           CAF      ZERO                                  #  GRABLOCK=2. +0 INTO DSPLOCK AND
011051,001886: 05,3120           54303                           TS       DSPLOCK                               #  LEAVE KEY RLSE LIGHT ALONE
011052,001887: 05,3121           00004                           INHINT                                         
011053,001888: 05,3122           10311                           CCS      MONSAVE                               
011054,001889: 05,3123           03130                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
011055,001890: 05,3124           37763                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
011056,001891: 05,3125           05663                           TC       WAITLIST                              
011057,001892: 05,3126     0270                                  EBANK=   DSPCOUNT                              
011058,001893: 05,3126           03134 12060                     2CADR    MONREQ                                
011059,001894: 
011060,001895: 05,3130           52145                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE

Page 276

011062,001897: 05,3131           52312                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
011063,001898: 05,3132           00003                           RELINT                                         
011064,001899: 05,3133           00126                           TC       ENTRET                                
011065,001900: 
011066,001901: 
011067,001902: 05,3134           04605        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
011068,001903: 05,3135           10312                           CCS      MONSAVE1                              #  TIME IS SNATCHED N RUPT FOR NOUN 65
011069,001904: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
011070,001905: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
011071,001906: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS.
011072,001907: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS.
011073,001908: 05,3142           33157                           CAF      MONDEL                                
011074,001909: 05,3143           05663                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
011075,001910: 05,3144     0270                                  EBANK=   DSPCOUNT                              
011076,001911: 05,3144           03134 12060                     2CADR    MONREQ                                
011077,001912: 
011078,001913: 05,3146           35210                           CAF      CHRPRIO                               
011079,001914: 05,3147           05505                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
011080,001915: 05,3150     0270                                  EBANK=   DSPCOUNT                              
011081,001916: 05,3150           03160 12060                     2CADR    MONDO                                 
011082,001917: 
011083,001918: 05,3152           05727                           TC       TASKOVER                              
011084,001919: 
011085,001920: 05,3153           37767        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
011086,001921: 05,3154           54311                           TS       MONSAVE                               
011087,001922: 05,3155           54312                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
011088,001923: 05,3156           05727                           TC       TASKOVER                              
011089,001924: 
011090,001925: 
011091,001926: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
011092,001927: 
011093,001928: 
011094,001929: 05,3160           10312        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
011095,001930: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
011096,001931: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
011097,001932: 05,3163           05567                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011098,001933: 05,3164           05567                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011099,001934: 05,3165           10303                           CCS      DSPLOCK                               
011100,001935: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
011101,001936: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
011102,001937: 05,3170           70311                           MASK     MONSAVE                               
011103,001938: 05,3171           54113                           TS       NVTEMP                                
011104,001939: 05,3172           04460                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
011105,001940: 05,3173           05567                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
011106,001941: 05,3174           33210                           CAF      MONMASK                               
011107,001942: 05,3175           70311                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
011108,001943: 05,3176           04532                           TC       RIGHT5                                

Page 277

011110,001945: 05,3177           54020                           TS       CYR                                   
011111,001946: 05,3200           56020                           XCH      CYR                                   
011112,001947: 05,3201           54272                           TS       VERBREG                               
011113,001948: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
011114,001949: 05,3203           54126                           TS       ENTRET                                
011115,001950: 05,3204           47745                           CS       BIT15                                 
011116,001951: 05,3205           70312                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2.  INTMCTBS WILL
011117,001952: 05,3206           54146                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
011118,001953: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
011119,001954: 
011120,001955:    4435                                           SETLOC   ENDRMODF                              
011121,001956: 
011122,001957:    4435           34443        PASTEVB            CAF      MIDSIX                                
011123,001958:    4436           70311                           MASK     MONSAVE                               
011124,001959:    4437           54113                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
011125,001960:    4440           04460                           TC       NVSUBMON                              #       DISPLAY IT.
011126,001961:    4441           04442                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
011127,001962:    4442           05567        ENDPASTE           TC       ENDOFJOB                              
011128,001963: 
011129,001964:    4443           07700        MIDSIX             OCT      07700                                 
011130,001965: 
011131,001966: 05,3210                                           SETLOC   ENDMONDO   +1                         
011132,001967: 05,3210           00700        MONMASK            OCT      700                                   
011133,001968: 05,3211           04435        MONBACK            ADRES    PASTEVB                               
011134,001969: 
011135,001970: 05,3212           04601        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
011136,001971: 05,3213           05567                           TC       ENDOFJOB                              
011137,001972: 
011138,001973: 
011139,001974:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
011140,001975:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
011141,001976:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
011142,001977: 
011143,001978: 05,3214           34527        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
011144,001979: 05,3215           54270                           TS       DSPCOUNT                              
011145,001980: 05,3216           30310                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
011146,001981: 05,3217           05241                           TC       DATACALL                              
011147,001982: 05,3220           03222                           TC       DSPOCTWD                              
011148,001983: 05,3221           05567        ENDSPF             TC       ENDOFJOB                              
011149,001984: 

Page 278

011151,001986:                                                                                                  #   DSPDECWD CONVERTS C(MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
011152,001987:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
011153,001988: 
011154,001989: 04,3117                                           SETLOC   TESTOFUF   +4                         
011155,001990: 
011156,001991: 04,3117           56002        DSPDECWD           XCH      Q                                     
011157,001992: 04,3120           54105                           TS       WDRET                                 
011158,001993: 04,3121           10144                           CCS      MPAC                                  
011159,001994: 04,3122           03131                           TC       +7                                    
011160,001995: 04,3123           03131                           TC       +6                                    
011161,001996: 04,3124           67763                           AD       ONE                                   
011162,001997: 04,3125           54144                           TS       MPAC                                  
011163,001998: 04,3126           02321                           TC       -ON                                   
011164,001999: 04,3127           40145                           CS       MPAC       +1                         
011165,002000: 04,3130           03133                           TC       +3                                    
011166,002001: 04,3131           02301                           TC       +ON                                   
011167,002002: 04,3132           56145                           XCH      MPAC       +1                         
011168,002003: 04,3133           63172                           AD       DECROUND                              
011169,002004: 04,3134           54145                           TS       MPAC       +1                         
011170,002005: 04,3135           37767                           CAF      ZERO                                  
011171,002006: 04,3136           60144                           AD       MPAC                                  
011172,002007: 04,3137           54144                           TS       MPAC                                  
011173,002008: 04,3140           03144                           TC       +4                                    
011174,002009: 04,3141           37743                           CAF      POSMAX                                
011175,002010: 04,3142           54144                           TS       MPAC                                  
011176,002011: 04,3143           54145                           TS       MPAC       +1                         
011177,002012: 04,3144           37761                           CAF      FOUR                                  
011178,002013: 04,3145           54127        DSPDCWD1           TS       WDCNT                                 
011179,002014: 04,3146           34570                           CAF      BINCON                                
011180,002015: 04,3147           07357                           TC       SHORTMP                               
011181,002016: 04,3150           50144        TRACE1             INDEX    MPAC                                  
011182,002017: 04,3151           34300                           CAF      RELTAB                                
011183,002018: 04,3152           74556                           MASK     LOW5                                  
011184,002019: 04,3153           54114                           TS       CODE                                  
011185,002020: 04,3154           37767                           CAF      ZERO                                  
011186,002021: 04,3155           56146                           XCH      MPAC       +2                         
011187,002022: 04,3156           56145                           XCH      MPAC       +1                         
011188,002023: 04,3157           54144                           TS       MPAC                                  
011189,002024: 04,3160           56270                           XCH      DSPCOUNT                              
011190,002025: 04,3161           54133        TRACE1S            TS       COUNT                                 
011191,002026: 04,3162           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011192,002027: 04,3163           54270                           TS       DSPCOUNT                              
011193,002028: 04,3164           03217                           TC       DSPIN                                 
011194,002029: 04,3165           10127                           CCS      WDCNT                                 
011195,002030: 04,3166           03145                           TC       DSPDCWD1                              
011196,002031: 04,3167           44565                           CS       VD1                                   
011197,002032: 04,3170           54270                           TS       DSPCOUNT                              
011198,002033: 04,3171           00105                           TC       WDRET                                 
011199,002034: 
011200,002035: 04,3172           02476        DECROUND           OCT      02476                                 
011201,002036: 

Page 279

011203,002038:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
011204,002039:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
011205,002040: 
011206,002041: 04,3173           56002        DSP2DEC            XCH      Q                                     
011207,002042: 04,3174           54105                           TS       WDRET                                 
011208,002043: 04,3175           37767                           CAF      ZERO                                  
011209,002044: 04,3176           54114                           TS       CODE                                  
011210,002045: 04,3177           36311                           CAF      THREE                                 
011211,002046: 04,3200           03301                           TC       11DSPIN                               #  -R2 OFF
011212,002047: 04,3201           37761                           CAF      FOUR                                  
011213,002048: 04,3202           03301                           TC       11DSPIN                               #  +R2 OFF
011214,002049: 04,3203           10144                           CCS      MPAC                                  
011215,002050: 04,3204           03214                           TC       +8D                                   
011216,002051: 04,3205           03214                           TC       +7                                    
011217,002052: 04,3206           67763                           AD       ONE                                   
011218,002053: 04,3207           54144                           TS       MPAC                                  
011219,002054: 04,3210           02321                           TC       -ON                                   
011220,002055: 04,3211           40145                           CS       MPAC       +1                         
011221,002056: 04,3212           54145                           TS       MPAC       +1                         
011222,002057: 04,3213           03215                           TC       +2                                    
011223,002058: 04,3214           02301                           TC       +ON                                   
011224,002059: 04,3215           34530                           CAF      R2D1                                  
011225,002060: 04,3216           03145        END2DEC            TC       DSPDCWD1                              
011226,002061: 
011227,002062: 
011228,002063: 05,3222                                           SETLOC   DSPFMEM    +6                         
011229,002064:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
011230,002065:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
011231,002066: 
011232,002067: 05,3222           54022        DSPOCTWD           TS       CYL                                   
011233,002068: 05,3223           56002                           XCH      Q                                     
011234,002069: 05,3224           54105                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
011235,002070: 05,3225           37746                           CAF      BIT14                                 #  TO BLANK SIGNS
011236,002071: 05,3226           26270                           ADS      DSPCOUNT                              
011237,002072: 05,3227           37761                           CAF      FOUR                                  
011238,002073: 05,3230           54127        WDAGAIN            TS       WDCNT                                 
011239,002074: 05,3231           40022                           CS       CYL                                   
011240,002075: 05,3232           40022                           CS       CYL                                   
011241,002076: 05,3233           40022                           CS       CYL                                   
011242,002077: 05,3234           40000                           CS       A                                     
011243,002078: 05,3235           77765                           MASK     DSPMSK                                
011244,002079: 05,3236           50000                           INDEX    A                                     
011245,002080: 05,3237           34300                           CAF      RELTAB                                
011246,002081: 05,3240           74556                           MASK     LOW5                                  
011247,002082: 05,3241           54114                           TS       CODE                                  
011248,002083: 05,3242           56270                           XCH      DSPCOUNT                              
011249,002084: 05,3243           54133                           TS       COUNT                                 
011250,002085: 05,3244           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011251,002086: 05,3245           54270                           TS       DSPCOUNT                              

Page 280

011253,002088: 05,3246           05225                           TC       POSTJUMP                              
011254,002089: 05,3247           11307                           CADR     DSPOCTIN                              
011255,002090: 05,3250           10127        OCTBACK            CCS      WDCNT                                 
011256,002091: 05,3251           03230                           TC       WDAGAIN                               #  +
011257,002092: 05,3252           44565        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
011258,002093: 05,3253           54270                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
011259,002094: 05,3254           00105                           TC       WDRET                                 
011260,002095: 
011261,002096: 05,3255     7765               DSPMSK             =        SEVEN                                 
011262,002097: 
011263,002098: 
011264,002099:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
011265,002100:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
011266,002101:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
011267,002102: 
011268,002103: 05,3255           54020        DSP2BIT            TS       CYR                                   
011269,002104: 05,3256           56002                           XCH      Q                                     
011270,002105: 05,3257           54105                           TS       WDRET                                 #  CANT USE L AS RETURN. UPDATNN USES L.
011271,002106: 05,3260           37763                           CAF      ONE                                   
011272,002107: 05,3261           54127                           TS       WDCNT                                 
011273,002108: 05,3262           40020                           CS       CYR                                   
011274,002109: 05,3263           40020                           CS       CYR                                   
011275,002110: 05,3264           56020                           XCH      CYR                                   
011276,002111: 05,3265           54022                           TS       CYL                                   
011277,002112: 05,3266           03235                           TC       WDAGAIN    +5                         
011278,002113: 
011279,002114: 
011280,002115:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
011281,002116:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
011282,002117:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
011283,002118:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
011284,002119: 
011285,002120: 04,3217                                           SETLOC   END2DEC    +1                         
011286,002121: 
011287,002122: 04,3217           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANYOF THE 
011288,002123: 04,3220           54104                           TS       DSEXIT                                #  ROTINE CALLING DSPIN USE L AS RETURN.
011289,002124: 04,3221           34556                           CAF      LOW5                                  
011290,002125: 04,3222           70133                           MASK     COUNT                                 
011291,002126: 04,3223           54021                           TS       SR                                    
011292,002127: 04,3224           56021                           XCH      SR                                    
011293,002128: 04,3225           54131                           TS       DSREL                                 
011294,002129: 04,3226           37763                           CAF      BIT1                                  
011295,002130: 04,3227           70133                           MASK     COUNT                                 
011296,002131: 04,3230           10000                           CCS      A                                     
011297,002132: 04,3231           03233                           TC       +2                                    #  LEFT IF COUNT IS ODD
011298,002133: 04,3232           03243                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
011299,002134: 04,3233           56114                           XCH      CODE                                  
011300,002135: 04,3234           04550                           TC       SLEFT5                                #  DOES NOT USE CYL

Page 281

011302,002137: 04,3235           54114                           TS       CODE                                  
011303,002138: 04,3236           37746                           CAF      BIT14                                 
011304,002139: 04,3237           70133                           MASK     COUNT                                 
011305,002140: 04,3240           10000                           CCS      A                                     
011306,002141: 04,3241           37762                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
011307,002142: 04,3242           67763                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
011308,002143: 04,3243           54133                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
011309,002144:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
011310,002145:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
011311,002146: 04,3244           00004        DSPIN1             INHINT                                         
011312,002147: 04,3245           50131                           INDEX    DSREL                                 
011313,002148: 04,3246           10313                           CCS      DSPTAB                                
011314,002149: 04,3247           03251                           TC       +2                                    #  IF +
011315,002150: 04,3250           04736                           TC       CCSHOLE                               
011316,002151: 04,3251           67763                           AD       ONE                                   #  IF -
011317,002152: 04,3252           54132                           TS       DSMAG                                 
011318,002153: 04,3253           50133                           INDEX    COUNT                                 
011319,002154: 04,3254           73275                           MASK     DSMSK                                 
011320,002155: 04,3255           00006                           EXTEND                                         
011321,002156: 04,3256           60114                           SU       CODE                                  
011322,002157: 04,3257           00006                           EXTEND                                         
011323,002158: 04,3260           13273                           BZF      DSLV                                  #  SAME
011324,002159: 04,3261           50133        DFRNT              INDEX    COUNT                                 
011325,002160: 04,3262           43275                           CS       DSMSK                                 #  MASK WITH 77740, 76037, 76777, OR 74037
011326,002161: 04,3263           70132                           MASK     DSMAG                                 
011327,002162: 04,3264           60114                           AD       CODE                                  
011328,002163: 04,3265           40000                           CS       A                                     
011329,002164: 04,3266           50131                           INDEX    DSREL                                 
011330,002165: 04,3267           56313                           XCH      DSPTAB                                
011331,002166: 04,3270           00006                           EXTEND                                         
011332,002167: 04,3271           63273                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
011333,002168: 04,3272           24307                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
011334,002169: 04,3273           00003        DSLV               RELINT                                         
011335,002170: 04,3274           00104                           TC       DSEXIT                                
011336,002171: 
011337,002172: 04,3275           00037        DSMSK              OCT      37                                    
011338,002173: 04,3276           01740                           OCT      1740                                  
011339,002174: 04,3277           02000                           OCT      2000                                  
011340,002175: 04,3300           03740                           OCT      3740                                  
011341,002176: 
011342,002177: 
011343,002178:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
011344,002179:                                                                                                  #  BIT11 OF CODE.
011345,002180: 
011346,002181: 04,3301           54131        11DSPIN            TS       DSREL                                 
011347,002182: 04,3302           37762                           CAF      TWO                                   
011348,002183: 04,3303           54133                           TS       COUNT                                 
011349,002184: 04,3304           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
011350,002185: 04,3305           54104                           TS       DSEXIT                                

Page 282

011352,002187: 04,3306           03244                           TC       DSPIN1                                
011353,002188: 
011354,002189: 
011355,002190: 04,3307           03217        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
011356,002191: 04,3310           33312                           CAF      +2                                    
011357,002192: 04,3311           05230                           TC       BANKJUMP                              
011358,002193: 04,3312           13250        ENDSPOCT           CADR     OCTBACK                               
011359,002194: 
011360,002195: 
011361,002196:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES
011362,002197:                                                                                                  #  ABORT WITH 01501.
011363,002198:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
011364,002199:                                                                                                  #  DC TC ENTRET.
011365,002200: 
011366,002201: 04,3313           34505        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
011367,002202: 04,3314           54126                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
011368,002203: 
011369,002204: 04,3315           04571        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
011370,002205: 04,3316           43325                           CS       NVSBENDL                              
011371,002206: 04,3317           60126                           AD       ENTEXIT                               
011372,002207: 04,3320           00006                           EXTEND                                         
011373,002208: 04,3321           13323                           BZF      +2                                    #  NVSUB INITIATED. ABORT
011374,002209: 04,3322           00126                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
011375,002210: 04,3323           06000                           TC       ABORT                                 
011376,002211: 04,3324           01501                           OCT      01501                                 
011377,002212: 04,3325           04464        NVSBENDL           TC       NVSUBEND                              
011378,002213: 
011379,002214: 
011380,002215:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER.  THEN IT USES MODE DISP.
011381,002216:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
011382,002217:                                                                                                  #  M M LIGHTS.
011383,002218: 
011384,002219: 05,3267                                           SETLOC   DSP2BIT    +10D                       
011385,002220: 
011386,002221: 05,3267           03302        MMCHANG            TC       REQMM                                 
011387,002222: 05,3270           37767                           CAF      ZERO                                  
011388,002223: 05,3271           56273                           XCH      NOUNREG                               
011389,002224: 05,3272           54144                           TS       MPAC                                  
011390,002225: 05,3273           34566                           CAF      ND1                                   
011391,002226: 05,3274           54270                           TS       DSPCOUNT                              
011392,002227: 05,3275           05206                           TC       BANKCALL                              
011393,002228: 05,3276           10557                           CADR     2BLANK                                
011394,002229: 05,3277           30144                           CA       MPAC                                  
011395,002230: 05,3300           05225                           TC       POSTJUMP                              
011396,002231: 05,3301           11315                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
011397,002232: 

Page 283

011399,002234: 05,3302  04,3315               MODROUTB           =        DSPALARM                              #  **FIX LATER**
011400,002235: 05,3302           40002        REQMM              CS       Q                                     
011401,002236: 05,3303           54304                           TS       REQRET                                
011402,002237: 05,3304           34566                           CAF      ND1                                   
011403,002238: 05,3305           54270                           TS       DSPCOUNT                              
011404,002239: 05,3306           37767                           CAF      ZERO                                  
011405,002240: 05,3307           54273                           TS       NOUNREG                               
011406,002241: 05,3310           05206                           TC       BANKCALL                              
011407,002242: 05,3311           10557                           CADR     2BLANK                                
011408,002243: 05,3312           04622                           TC       FLASHON                               
011409,002244: 05,3313           00126                           TC       ENTEXIT                               
011410,002245: 
011411,002246: 
011412,002247:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
011413,002248:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
011414,002249:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011415,002250:                                                                                                  #  COMPONENT 1  PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
011416,002251:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT)
011417,002252:                                                                                                  #  COMPONENT 3  BBCON
011418,002253: 
011419,002254: 05,3314           37763        VBRQEXEC           CAF      BIT1                                  
011420,002255: 05,3315           70337                           MASK     DSPTEM1                               
011421,002256: 05,3316           10000                           CCS      A                                     
011422,002257: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
011423,002258: 05,3320           35723                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
011424,002259: 05,3321           54144        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
011425,002260: 05,3322           47763                           CS       BIT1                                  
011426,002261: 05,3323           70337                           MASK     DSPTEM1                               
011427,002262: 05,3324           54150                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
011428,002263: 05,3325           04666        REQUESTC           TC       RELDSP                                
011429,002264: 05,3326           34505                           CA       ENDINST                               
011430,002265: 05,3327           54147                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
011431,002266: 05,3330           00006                           EXTEND                                         
011432,002267: 05,3331           30341                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
011433,002268: 05,3332           52146                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
011434,002269: 05,3333           30150                           CA       MPAC       +4                         #  PRIO IN A
011435,002270: 05,3334           00004                           INHINT                                         
011436,002271: 05,3335           00144                           TC       MPAC                                  
011437,002272: 
011438,002273: 05,3336           34562        SETVAC             CAF      TCFINDVC                              
011439,002274: 05,3337           03321                           TC       REQEX1                                
011440,002275: 
011441,002276:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
011442,002277:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
011443,002278:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WTIH
011444,002279:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
011445,002280:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
011446,002281:                                                                                                  #  COMPONENT 3  BBCON

Page 284

011448,002283: 05,3340           34561        VBRQWAIT           CAF      TCWAIT                                
011449,002284: 05,3341           54144                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
011450,002285: 05,3342           30337                           CA       DSPTEM1                               #  TIME DELAY
011451,002286: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
011452,002287: 
011453,002288:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
011454,002289:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
011455,002290:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
011456,002291: 
011457,002292: 
011458,002293: 04,3326                                           SETLOC   NVSBENDL   +1                         
011459,002294: 04,3326           37763        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
011460,002295: 04,3327           54305                           TS       LOADSTAT                              
011461,002296: 04,3330           04666                           TC       RELDSP                                
011462,002297: 04,3331           04626                           TC       FLASHOFF                              
011463,002298: 04,3332           03440                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
011464,002299: 
011465,002300: 
011466,002301: 04,3333           04466        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011467,002302: 04,3334           47763                           CS       ONE                                   
011468,002303: 04,3335           03327                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
011469,002304: 
011470,002305: 
011471,002306:                                                                                                  #  FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD.
011472,002307: 
011473,002308:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SERCHES LIST ONLY
011474,002309:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
011475,002310: 
011476,002311: 04,3336           47761        VBRELDSP           CS       BIT3                                  
011477,002312: 04,3337           00006                           EXTEND                                         
011478,002313: 04,3340           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LITE
011479,002314: 04,3341           04666                           TC       RELDSP                                #  SEARCHES LIST
011480,002315: 04,3342           05567                           TC       ENDOFJOB                              
011481,002316: 
011482,002317: 
011483,002318:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
011484,002319: 
011485,002320: 04,3343           37766        BUMP               CAF      FIVE                                  #  R2D5
011486,002321: 04,3344           54270                           TS       DSPCOUNT                              
011487,002322: 04,3345           54133                           TS       COUNT                                 
011488,002323: 04,3346           37763                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
011489,002324: 04,3347           70133                           MASK     COUNT                                 
011490,002325: 04,3350           56133                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
011491,002326: 04,3351           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)

Page 285

011493,002328: 04,3352           56021                           XCH      SR                                    #  DSREL IN A
011494,002329: 04,3353           50000                           INDEX    A                                     
011495,002330: 04,3354           10313                           CCS      DSPTAB                                
011496,002331: 04,3355           03357                           TC       +2                                    
011497,002332: 04,3356           04736                           TC       CCSHOLE                               
011498,002333: 04,3357           67763                           AD       ONE                                   #  DSMAG IN A
011499,002334: 04,3360           50133                           INDEX    COUNT                                 
011500,002335: 04,3361           73275                           MASK     DSMSK                                 
011501,002336: 04,3362           50133                           INDEX    COUNT                                 
011502,002337: 04,3363           03364                           TC       +1                                    
011503,002338: 04,3364           03366                           TC       +2                                    #  EVEN(RIGHT)  OK
011504,002339: 04,3365           04532                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
011505,002340: 04,3366           54114                           TS       CODE                                  
011506,002341: 04,3367           47766                           CS       FIVE                                  
011507,002342: 04,3370           60270                           AD       DSPCOUNT                              #  DSPCOUNT-5
011508,002343: 04,3371           10000                           CCS      A                                     #  TO PREVENT -0
011509,002344: 04,3372           67763                           AD       ONE                                   
011510,002345: 04,3373           03375                           TC       +2                                    
011511,002346: 04,3374           04736                           TC       CCSHOLE                               
011512,002347: 04,3375           54133                           TS       COUNT                                 
011513,002348: 04,3376           03217                           TC       DSPIN                                 #  CODE ALREADY IN CODE
011514,002349: 04,3377           40270                           CS       DSPCOUNT                              
011515,002350: 04,3400           64527                           AD       R1D1                                  #  OCT 16
011516,002351: 04,3401           10000                           CCS      A                                     
011517,002352: 04,3402           56270                           XCH      DSPCOUNT                              #  +. DSPCOUNT L/ OCT 16
011518,002353: 04,3403           67763                           AD       ONE                                   #  INCREMENT DSPCOUNT
011519,002354: 04,3404           03344                           TC       BUMP       +1                         
011520,002355: 
011521,002356: 04,3405           37767        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
011522,002357: 04,3406           54270                           TS       DSPCOUNT                              
011523,002358: 04,3407           63436                           AD       SWTAB      +2                         #  OCT 3
011524,002359: 04,3410           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
011525,002360: 04,3411           10313                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
011526,002361: 04,3412           03414                           TC       +2                                    
011527,002362: 04,3413           04736                           TC       CCSHOLE                               
011528,002363: 04,3414           67763                           AD       ONE                                   
011529,002364: 04,3415           77751                           MASK     BIT11                                 
011530,002365: 04,3416           54114                           TS       CODE                                  
011531,002366: 04,3417           50270                           INDEX    DSPCOUNT                              
011532,002367: 04,3420           33434                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
011533,002368: 04,3421           03301                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
011534,002369: 04,3422           40270                           CS       DSPCOUNT                              
011535,002370: 04,3423           63436                           AD       SWTAB      +2                         #  OCT 3
011536,002371: 04,3424           10000                           CCS      A                                     
011537,002372: 04,3425           56270                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
011538,002373: 04,3426           67763                           AD       ONE                                   #  INCREMENT DSPCOUNT
011539,002374: 04,3427           03406                           TC       SWSGN      +1                         
011540,002375: 04,3430           34527                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
011541,002376: 04,3431           54270                           TS       DSPCOUNT                              
011542,002377: 04,3432           02514                           TC       5BLANK                                #  BLANKS R1

Page 286

011544,002379: 04,3433           00126                           TC       ENTEXIT                               
011545,002380: 
011546,002381: 04,3434           00000        SWTAB              OCT      0                                     #  -R3
011547,002382: 04,3435           00001                           OCT      1                                     #  +R3
011548,002383: 04,3436           00003                           OCT      3                                     #  -R2
011549,002384: 04,3437           00004                           OCT      4                                     #  +R2
011550,002385: 

Page 287

011552,002387:                                                                                                  #  NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
011553,002388:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
011554,002389:                                                                                                  #  INTO A.      V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
011555,002390: 
011556,002391:                                                                                                  #  NVSUB CAN BE USED WTIH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
011557,002392:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
011558,002393: 
011559,002394:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
011560,002395:                                                                                                  #  SYSTEM IS AVAIALBLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
011561,002396:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
011562,002397:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
011563,002398:                                                                                                  #  FURTHER ACTION).
011564,002399: 
011565,002400:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
011566,002401:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
011567,002402:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
011568,002403:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
011569,002404: 
011570,002405:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
011571,002406:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
011572,002407:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL TO TO VERBS,
011573,002408:                                                                                                  #  PROCED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
011574,002409:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
011575,002410:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED.
011576,002411:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
011577,002412:                                                                                                  #  MONITOR SET UP.
011578,002413: 
011579,002414:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
011580,002415: 
011581,002416:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
011582,002417:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
011583,002418: 
011584,002419:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
011585,002420:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
011586,002421: 
011587,002422:    4444                                           SETLOC   MIDSIX     +1                         
011588,002423:    4444           54113        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
011589,002424:    4445           10303                           CCS      DSPLOCK                               
011590,002425:    4446           00002                           TC       Q                                     #  DSP SYST BLOCKED, RET TO 1+ CALLING LOC
011591,002426:    4447           30002                           CA       Q                                     #  DSP SYST AVAILABLE.
011592,002427:    4450           67763                           AD       ONE                                   
011593,002428:    4451           54331                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
011594,002429:    4452           04466                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011595,002430:    4453           34457        NVSUBCOM           CAF      NVSBBBNK                              
011596,002431: 
011597,002432:    4454           56006                           XCH      BBANK                                 
011598,002433:    4455           54332                           TS       NVBNKTEM                              
011599,002434:    4456           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
011600,002435:    4457     0270                                  EBANK=   DSPCOUNT                              
011601,002436:    4457           12060        NVSBBBNK           BBCON    NVSUB1                                
011602,002437: 

Page 288

011604,002439:    4460           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
011605,002440:    4461           67763                           AD       ONE                                   
011606,002441:    4462           54331                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
011607,002442:    4463           04453                           TC       NVSUBCOM                              
011608,002443: 
011609,002444:    4464           52332        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
011610,002445:    4465           52006                           DXCH     Z                                     #  DTCB
011611,002446: 
011612,002447: 05,3344                                           SETLOC   ENDRQWT    +1                         
011613,002448: 
011614,002449: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
011615,002450: 05,3345           54126                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
011616,002451: 05,3346           33401                           CAF      LOW6                                  
011617,002452: 05,3347           70113                           MASK     NVTEMP                                
011618,002453: 05,3350           54144                           TS       MPAC                                  #  TEMP STORAGE
011619,002454: 05,3351           33402                           CAF      MID6                                  
011620,002455: 05,3352           70113                           MASK     NVTEMP                                
011621,002456: 05,3353           04532                           TC       RIGHT5                                
011622,002457: 05,3354           54020                           TS       CYR                                   
011623,002458: 05,3355           56020                           XCH      CYR                                   
011624,002459: 05,3356           54145                           TS       MPAC       +1                         #  TEMP STORAGE
011625,002460: 05,3357           10144                           CCS      MPAC                                  #  TEST NOUN
011626,002461: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
011627,002462: 05,3361           56145                           XCH      MPAC       +1                         
011628,002463: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
011629,002464: 05,3363           04464        ENTSET             TC       NVSUBEND                              
011630,002465: 05,3364           10145                           CCS      MPAC       +1                         #  TEST VERB
011631,002466: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
011632,002467: 05,3366           56144                           XCH      MPAC                                  
011633,002468: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN, THEN RETURN
011634,002469: 05,3370           04464                           TC       NVSUBEND                              
011635,002470: 05,3371           56145                           XCH      MPAC       +1                         
011636,002471: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
011637,002472: 05,3373           56144                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0.
011638,002473: 05,3374           02274                           TC       UPDATNN    -1                         
011639,002474: 05,3375           37767                           CAF      ZERO                                  
011640,002475: 05,3376           54305                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
011641,002476: 05,3377           54306                           TS       CLPASS                                
011642,002477: 05,3400           02031                           TC       ENTPAS0                               
011643,002478: 
011644,002479:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
011645,002480:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
011646,002481: 
011647,002482: 
011648,002483: 05,3401           00077        LOW6               OCT      77                                    
011649,002484: 05,3402           07700        MID6               OCT      7700                                  
011650,002485: 

Page 289

011652,002487:    4466                                           SETLOC   NVSUBEND   +2                         
011653,002488:    4466           47745        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
011654,002489:    4467           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
011655,002490:    4470           70312                           MASK     MONSAVE1                              
011656,002491:    4471           67745                           AD       BIT15                                 
011657,002492:    4472           54312                           TS       MONSAVE1                              
011658,002493:    4473           00003                           RELINT                                         
011659,002494:    4474           00002                           TC       Q                                     
011660,002495: 
011661,002496: 
011662,002497:                                                                                                  #  LOADSTAT  +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
011663,002498:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
011664,002499:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB.
011665,002500:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
011666,002501: 
011667,002502: 
011668,002503:                                                                                                  #  L  TO ENDIDLE  (FIXED FIXED)
011669,002504:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
011670,002505:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
011671,002506:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE, SINCE JOB SLEEP AND 
011672,002507:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011673,002508:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
011674,002509:                                                                                                  #  L+1      FOR TERMINATE
011675,002510:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
011676,002511:                                                                                                  #  L+3      FOR DATA IN
011677,002512:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DTA.
011678,002513: 
011679,002514:    4475           37763        ENDIDLE            CAF      ONE                                   
011680,002515:    4476           54303                           TS       DSPLOCK                               
011681,002516:    4477           22004                           LXCH     FBANK                                 
011682,002517:    4500           56002                           XCH      Q                                     
011683,002518:    4501           52124                           DXCH     BUF2                                  
011684,002519:    4502           05235                           TC       MAKECADR                              
011685,002520:    4503           54327                           TS       CADRSTOR                              
011686,002521:    4504           05545                           TC       JOBSLEEP                              
011687,002522: 
011688,002523:    4505           05567        ENDINST            TC       ENDOFJOB                              
011689,002524: 
011690,002525:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
011691,002526:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
011692,002527:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
011693,002528:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
011694,002529:                                                                                                  #  AND JOBWAK CAN HANDLE ONLY FIXED MEMORY.
011695,002530:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
011696,002531: 
011697,002532:    4506           10305        DATAWAIT           CCS      LOADSTAT                              

Page 290

011699,002534:    4507           17015                           TCF      DATWAIT1                              #  PROCEED. RETURN TO L+2.
011700,002535:    4510           14475                           TCF      ENDIDLE                               #  STILL WAITING. GO TO SLEEP.
011701,002536:    4511           00002                           TC       Q                                     #  TERMINATE. RETURN TO L+1.
011702,002537:    4512           17017                           TCF      Q+2                                   #  DATA IN. RETURN TO L+3
011703,002538:    4513     7015               DATWAIT1           =        Q+1                                   #  RETURN TO L+2
011704,002539: 
011705,002540:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
011706,002541:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
011707,002542: 
011708,002543: 
011709,002544: 05,3403                                           SETLOC   MID6       +1                         
011710,002545:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
011711,002546: 
011712,002547: 05,3403           34567        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
011713,002548: 05,3404           56270                           XCH      DSPCOUNT                              
011714,002549: 05,3405           54130                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
011715,002550: 05,3406           30302                           CA       MODREG                                
011716,002551: 05,3407           22002                           LXCH     Q                                     
011717,002552: 05,3410           03255                           TC       DSP2BIT                               
011718,002553: 05,3411           56130                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
011719,002554: 05,3412           54270                           TS       DSPCOUNT                              
011720,002555: 05,3413           00001        DSPMMEND           TC       L                                     
011721,002556: 
011722,002557: 
011723,002558:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS
011724,002559:                                                                                                  #  LOADED (OR RESEQUENCE VERB IS
011725,002560:                                                                                                  #  EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
011726,002561:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
011727,002562: 
011728,002563:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
011729,002564:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
011730,002565: 
011731,002566: 04,3440                                           SETLOC   SWTAB      +4                         
011732,002567: 
011733,002568: 04,3440           10327        RECALTST           CCS      CADRSTOR                              
011734,002569: 04,3441           03446                           TC       RECAL1                                
011735,002570: 04,3442           05567                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
011736,002571: 04,3443           03446                           TC       RECAL1                                
011737,002572: 04,3444           54327                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
011738,002573: 04,3445           03464                           TC       RECAL3                                #  +0 INTO CADRSTOR, RELEASE DISPLAY,
011739,002574:                                                                                                  #     AND ENDOFJOB.  NEEDED FOR DATAWAIT.        
011740,002575: 04,3446           37767        RECAL1             CAF      ZERO                                  
011741,002576: 04,3447           56327                           XCH      CADRSTOR                              
011742,002577: 04,3450           00004                           INHINT                                         
011743,002578: 04,3451           05551                           TC       JOBWAKE                               
011744,002579: 04,3452           10305                           CCS      LOADSTAT                              
011745,002580: 04,3453           03470                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
011746,002581: 04,3454           05567                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
011747,002582: 04,3455           03466                           TC       DOTERM                                #  - TERMINATE

Page 291

011749,002584: 04,3456           37762                           CAF      TWO                                   #  -0 DATA IN OR RESEQUENCE
011750,002585: 04,3457           50064        RECAL2             INDEX    LOCCTR                                
011751,002586: 04,3460           60154                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
011752,002587: 04,3461           50064                           INDEX    LOCCTR                                
011753,002588: 04,3462           54154                           TS       LOC                                   
011754,002589: 04,3463           00003                           RELINT                                         
011755,002590: 04,3464           04711        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
011756,002591: 04,3465           05567                           TC       ENDOFJOB                              
011757,002592: 
011758,002593: 04,3466           37767        DOTERM             CAF      ZERO                                  
011759,002594: 04,3467           03457                           TC       RECAL2                                
011760,002595: 
011761,002596: 04,3470           37763        DOPROC             CAF      ONE                                   
011762,002597: 04,3471           03457                           TC       RECAL2                                
011763,002598: 

Page 292

011765,002600:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
011766,002601: 
011767,002602: 
011768,002603:                                                                                                  #  COMPONENT CODE NUMBER         INTERPRETATION
011769,002604: 
011770,002605:                                                                                                  #  00000                         1 COMPONENT
011771,002606:                                                                                                  #  00001                         2 COMPONENT (EACH S P)
011772,002607:                                                                                                  #  00010                         3 COMPONENT (EACH SP)
011773,002608: 
011774,002609: 
011775,002610:                                                                                                  #  SF ROUTINE CODE NUMBER        INTERPRETATION
011776,002611: 
011777,002612:                                                                                                  #  00000         OCTAL ONLY
011778,002613:                                                                                                  #  00001         STRAIGHT FRACTIONAL
011779,002614:                                                                                                  #  00010         DEGREES (XXX.XX)
011780,002615:                                                                                                  #  00011         ARITHMETIC SF
011781,002616:                                                                                                  #  00100         ARITH DP1       OUT(MULT BY 2/14 AT END)        IN(STRAIGHT)
011782,002617:                                                                                                  #  00101         ARITH DP2       OUT(STRAIGHT)                   IN(SL 7 AT END)
011783,002618:                                                                                                  #  00110         OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
011784,002619:                                                                                                  #  00111         ARITH DP3       OUT ( SL 7 AT END)              IN ( STRAIGHT)
011785,002620:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
011786,002621: 
011787,002622: 
011788,002623:                                                                                                  #  SF CONSTANT CODE NUMBER       INTERPRETATION
011789,002624: 
011790,002625:                                                                                                  #  00000                         WHOLE
011791,002626:                                                                                                  #  00000                         TIME SEC(XXX.XX SEC)SAME AS WHOLE (ARITH DP1)
011792,002627:                                                                                                  #  00001                         TIME HOURS(XXX.XX) USE ARITH DP2
011793,002628:                                                                                                  #  00010                         DEGREES
011794,002629:                                                                                                  #  00010                         OPTICS DEGREES
011795,002630:                                                                                                  #  00011                         GYRO DEGREES(XX.XXX)  USE ARITH DP1
011796,002631:                                                                                                  #  00100                         GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
011797,002632:                                                                                                  #  00101                         GYRO AXIS ACCEL. DRIFT
011798,002633:                                                                                                  #                                .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
011799,002634:                                                                                                  #  00110                         PIPA BIAS X.XXXX CM/SEC SEC
011800,002635:                                                                                                  #  00111                         PIPA SCALE FACTOR ERROR
011801,002636:                                                                                                  #                                    XXXXX. PARTS/MILLION
011802,002637:                                                                                                  #  01000                         POSITION(XXXX.X KILOMETERS) USE ARITHDP3
011803,002638:                                                                                                  #  01001                         VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
011804,002639:                                                                                                  #  01010                         TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
011805,002640:                                                                                                  #  01011                         ELEVATION DEGREES(89.999MAX) USE ARITH
011806,002641:                                                                                                  #  01100                         RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
011807,002642:                                                                                                  #                                                            USE ARITHDP1
011808,002643:                                                                                                  #  01101                         RENDEZVOUS RADAR RANGE RATE(XXXXX.FEET/SEC
011809,002644:                                                                                                  #                                                            USE ARITHDP1
011810,002645:                                                                                                  #  01110                         LANDING RADAR ALTITUDE(XXXXX.FEET)
011811,002646:                                                                                                  #                                                            USE ARITHDP1

Page 293

011813,002648:                                                                                                  #  01111                         INITIAL/FINAL ALTITUDE(XXXXX.FEET)
011814,002649:                                                                                                  #                                                            USE ARITHDP1
011815,002650:                                                                                                  #  10000                         ALTITUDE RATE(XXXXX.FEET)      USE ARITH
011816,002651:                                                                                                  #  10001                         FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
011817,002652:                                                                                                  #                                                               USE ARITH
011818,002653:                                                                                                  #  10010                         ROTATIONAL HAND CONTROL ANGLE RATES
011819,002654:                                                                                                  #                                      XXXXX.DEG/SEC            USE ARITH
011820,002655:                                                                                                  #  10011                         LANDING RADAR VELX(XXXXX.FEET/SEC)
011821,002656:                                                                                                  #                                                            USE ARITHDP1
011822,002657:                                                                                                  #  10100                         LANDING RADAR VELY(XXXXX.FEET/SEC)
011823,002658:                                                                                                  #                                                            USE ARITHDP1
011824,002659:                                                                                                  #  10101                         LANDING RADAR VELZ(XXXXX.FEET/SEC)
011825,002660:                                                                                                  #                                                            USE ARITHDP1
011826,002661:                                                                                                  #  10110                         OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
011827,002662:                                                                                                  #                                                            USE ARITHDP1
011828,002663:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
011829,002664: 
011830,002665:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
011831,002666:                                                                                                  #  NOUN TABLES.
011832,002667:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
011833,002668:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
011834,002669:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
011835,002670: 

Page 294

011837,002672:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
011838,002673:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
011839,002674:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
011840,002675: 
011841,002676: 
011842,002677:                                                                                                  #  LODNNTAB LOADS NNADTEM WTIH THE NNADTAB ENTRY, NNTYPTEM WITH THE
011843,002678:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
011844,002679:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
011845,002680:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY, MIXBR IS SET FOR
011846,002681:                                                                                                  #  MIXED OR NORMAL NOUN.
011847,002682: 
011848,002683: 23,2000                                           BANK     23                                    
011849,002684: 23,2000           52142        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
011850,002685: 23,2001           50273                           INDEX    NOUNREG                               
011851,002686: 23,2002           32052                           CAF      NNADTAB                               
011852,002687: 23,2003           54136                           TS       NNADTEM                               
011853,002688: 23,2004           50273                           INDEX    NOUNREG                               
011854,002689: 23,2005           32152                           CAF      NNTYPTAB                              
011855,002690: 23,2006           54137                           TS       NNTYPTEM                              
011856,002691: 23,2007           40273                           CS       NOUNREG                               
011857,002692: 23,2010           62036                           AD       MIXCON                                
011858,002693: 23,2011           00006                           EXTEND                                         
011859,002694: 23,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
011860,002695: 23,2013           37763                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
011861,002696: 23,2014           54130                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
011862,002697: 23,2015           02034                           TC       LODNLV                                
011863,002698: 23,2016           37762        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
011864,002699: 23,2017           54130                           TS       MIXBR                                 
011865,002700: 23,2020           50273                           INDEX    NOUNREG                               
011866,002701: 23,2021           32420                           CAF      RUTMXTAB   -55                        
011867,002702: 23,2022           54143                           TS       RUTMXTEM                              
011868,002703: 23,2023           35337                           CAF      LOW10                                 
011869,002704: 23,2024           70136                           MASK     NNADTEM                               
011870,002705: 23,2025           54002                           TS       Q                                     #  TEMP
011871,002706: 23,2026           50000                           INDEX    A                                     
011872,002707: 23,2027           32406                           CAF      IDADDTAB                              
011873,002708: 23,2030           54140                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY.
011874,002709: 23,2031           00006                           EXTEND                                         
011875,002710: 23,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
011876,002711: 23,2033           32410                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
011877,002712: 23,2034           52142        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN ADDESS INTO A, L.
011878,002713: 23,2035           52006                           DXCH     Z                                     
011879,002714: 
011880,002715: 23,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
011881,002716: 
011882,002717: 
011883,002718:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WTIH THE DP SFOUTAB ENTRIES.

Page 295

011885,002720: 
011886,002721: 23,2037           52114        GTSFOUT            DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
011887,002722: 23,2040           00006                           EXTEND                                         
011888,002723: 23,2041           50000                           INDEX    A                                     
011889,002724: 23,2042           32331                           DCA      SFOUTAB                               
011890,002725: 23,2043           52114        SFCOM              DXCH     SFTEMP1                               
011891,002726: 23,2044           52006                           DXCH     Z                                     
011892,002727: 
011893,002728: 
011894,002729:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
011895,002730: 
011896,002731: 23,2045           52114        GTSFIN             DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
011897,002732: 23,2046           00006                           EXTEND                                         
011898,002733: 23,2047           50000                           INDEX    A                                     
011899,002734: 23,2050           32253                           DCA      SFINTAB                               
011900,002735: 23,2051           12043                           TCF      SFCOM                                 
011901,002736: 
011902,002737:                                                                                                  #  NN   NORMAL NOUNS
011903,002738: 23,2052           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
011904,002739: 23,2053           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
011905,002740: 23,2054           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
011906,002741: 23,2055           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
011907,002742: 23,2056           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
011908,002743: 23,2057           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
011909,002744: 23,2060           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
011910,002745: 23,2061           00000                           OCT      00000                                 #  07 SPARE
011911,002746: 23,2062           77776                           OCT      77776                                 #  10 CHANNEL TO BE SPECIFIED
011912,002747: 23,2063           00000                           OCT      00000                                 #  11 SPARE
011913,002748: 23,2064           00000                           OCT      00000                                 #  12 SPARE
011914,002749: 23,2065           00000                           OCT      00000                                 #  13 SPARE
011915,002750: 23,2066           00000                           OCT      00000                                 #  14 SPARE
011916,002751: 23,2067           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
011917,002752: 23,2070           00024                           ECADR    TIME2                                 #  16 TIME SECONDS
011918,002753: 23,2071           00024                           ECADR    TIME2                                 #  17 TIME HOURS
011919,002754: 23,2072           00032                           ECADR    CDUX                                  #  20 ICDU
011920,002755: 23,2073           00037                           ECADR    PIPAX                                 #  21 PIPAS
011921,002756: 23,2074           00400                           ECADR    THETAD                                #  22 NEW ANGLES I
011922,002757: 23,2075           00342                           ECADR    DSPTEM2                               #  23 DELTA ANGLES I
011923,002758: 23,2076           00337                           ECADR    DSPTEM1                               #  24 DELTA TIME (SEC)
011924,002759: 23,2077           00337                           ECADR    DSPTEM1                               #  25 CHECKLIST
011925,002760: 23,2100           00337                           ECADR    DSPTEM1                               #  26 PRIO/DELAY
011926,002761: 23,2101           01355                           ECADR    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
011927,002762: 23,2102           00337                           ECADR    DSPTEM1                               #  30 STAR NUMBERS
011928,002763: 23,2103           01363                           ECADR    ALMCADR                               #  31 ALMCADR, ALMCADR +1, ERCOUNT
011929,002764: 23,2104           02166                           ECADR    TDEC                                  #  32 DECISION TIME (MIDCOURSE)
011930,002765: 23,2105           02046                           ECADR    TET                                   #  33 EPHEMERIS TIME(MIDCOURSE)
011931,002766: 23,2106           02174                           ECADR    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
011932,002767: 23,2107           00337                           ECADR    DSPTEM1                               #  35 INBIT MESSAGE

Page 296

011934,002769: 23,2110           01500                           ECADR    LANDMARK                              #  36 LANDMARK DATA 1
011935,002770: 23,2111           01503                           ECADR    LANDMARK   +3                         #  37 LANDMARK DATA 2
011936,002771: 23,2112           00035                           ECADR    OPTY                                  #  40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
011937,002772: 23,2113           00422                           ECADR    TANG                                  #  41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
011938,002773: 23,2114           00342                           ECADR    DSPTEM2                               #  42 AOT ROTATION ANGLES
011939,002774: 23,2115           00374                           ECADR    XYMARK                                #  43 AOT DETENT CODE
011940,002775: 23,2116           00357                           ECADR    FORVEL                                #  44 FORWARD VELOCITY, LATERAL VELOCITY
011941,002776: 23,2117           03031                           ECADR    PCOM                                  #  45 ROTATIONAL HAND CONTROLLER ANGLE RATE
011942,002777: 23,2120           00000                           OCT      00000                                 #  46 SPARE
011943,002778: 23,2121           00000                           OCT      00000                                 #  47 SPARE
011944,002779: 23,2122           01360                           ECADR    FAILREG                               #  50 FAILREG, FAILREG +1, FAILREG +2.
011945,002780: 23,2123           00000                           OCT      00000                                 #  51 SPARE
011946,002781: 23,2124           01444                           ECADR    GBIASX                                #  52 GYRO BIAS DRIFT
011947,002782: 23,2125           01447                           ECADR    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
011948,002783: 23,2126           01452                           ECADR    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
011949,002784: 
011950,002785:                                                                                                  #  NN  MIXED NOUNS
011951,002786: 23,2127           02000                           OCT      02000                                 #  55 LANDING RADAR ALTITUDE, TIME(SEC)
011952,002787: 23,2130           02002                           OCT      02002                                 #  56 LANDING RADAR VELX, TIME(SEC)
011953,002788: 23,2131           02004                           OCT      02004                                 #  57 LANDING RADAR VELY, TIME(SEC)
011954,002789: 23,2132           02006                           OCT      02006                                 #  60 LANDING RADAR VELZ, TIME(SEC)
011955,002790: 23,2133           02010                           OCT      02010                                 #  61 TARGET AZIMUTH AND ELEVATION
011956,002791: 23,2134           04012                           OCT      04012                                 #  62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
011957,002792: 23,2135           04015                           OCT      04015                                 #  63 REND. RADAR RANGE RATE, TRUN, SHAFT
011958,002793: 23,2136           04020                           OCT      04020                                 #  64 INITIAL ALT, FINAL ALT, ALT RATE
011959,002794: 23,2137           02023                           OCT      02023                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
011960,002795:                                                                                                  #       (FETCHED IN INTERRUPT)
011961,002796: 23,2140           04025                           OCT      04025                                 #  66 SYSTEM TEST RESULTS
011962,002797: 23,2141           04030                           OCT      04030                                 #  67 DELTA GYRO ANGLES
011963,002798: 23,2142           02033                           OCT      02033                                 #  70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
011964,002799: 23,2143           02035                           OCT      02035                                 #  71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
011965,002800: 23,2144           04037                           OCT      04037                                 #  72 DELTA POSITION
011966,002801: 23,2145           04042                           OCT      04042                                 #  73 DELTA VELOCITY
011967,002802: 23,2146           04045                           OCT      04045                                 #  74 MEASUREMENT DATA (MIDCOURSE)
011968,002803: 23,2147           04050                           OCT      04050                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
011969,002804: 23,2150           04053                           OCT      04053                                 #  76 POSITION VECTOR
011970,002805: 23,2151           04056                           OCT      04056                                 #  77 VELOCITY VECTOR
011971,002806: 
011972,002807:                                                                                                  #  NN        NORMAL NOUNS
011973,002808: 23,2152           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
011974,002809: 23,2153           00040                           OCT      00040                                 #  01 1COMP  FRACTIONAL
011975,002810: 23,2154           00140                           OCT      00140                                 #  02 1COMP  WHOLE
011976,002811: 23,2155           00102                           OCT      00102                                 #  03 1COMP  DEGREES
011977,002812: 23,2156           00241                           OCT      00241                                 #  04 1COMP  HOURS
011978,002813: 23,2157           00200                           OCT      00200                                 #  05 1COMP  SECONDS
011979,002814: 23,2160           00343                           OCT      00343                                 #  06 1COMP  GYRO DEGREES
011980,002815: 23,2161           00000                           OCT      00000                                 #  07        SPARE
011981,002816: 23,2162           00000                           OCT      00000                                 #  10 1COMP  OCTAL ONLY

Page 297

011983,002818: 23,2163           00000                           OCT      00000                                 #  11        SPARE
011984,002819: 23,2164           00000                           OCT      00000                                 #  12        SPARE
011985,002820: 23,2165           00000                           OCT      00000                                 #  13        SPARE
011986,002821: 23,2166           00000                           OCT      00000                                 #  14        SPARE
011987,002822: 23,2167           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
011988,002823: 23,2170           00200                           OCT      00200                                 #  16 1COMP  SECONDS
011989,002824: 23,2171           00241                           OCT      00241                                 #  17 1COMP  HOURS
011990,002825: 23,2172           04102                           OCT      04102                                 #  20 3COMP  DEGREES
011991,002826: 23,2173           04140                           OCT      04140                                 #  21 3COMP  WHOLE
011992,002827: 23,2174           04102                           OCT      04102                                 #  22 3COMP  DEGREES
011993,002828: 23,2175           04102                           OCT      04102                                 #  23 3COMP  DEGREES
011994,002829: 23,2176           00200                           OCT      00200                                 #  24 1COMP  SECONDS
011995,002830: 23,2177           00140                           OCT      00140                                 #  25 1COMP  WHOLE
011996,002831: 23,2200           04000                           OCT      04000                                 #  26 3COMP  OCTAL ONLY
011997,002832: 23,2201           00140                           OCT      00140                                 #  27 1COMP  WHOLE
011998,002833: 23,2202           04140                           OCT      04140                                 #  30 3COMP  WHOLE
011999,002834: 23,2203           04000                           OCT      04000                                 #  31 3COMP  OCTALONLY
012000,002835: 23,2204           00252                           OCT      00252                                 #  32 1COMP  TIME WEEKS
012001,002836: 23,2205           00252                           OCT      00252                                 #  33 1COMP  TIME WEEKS
012002,002837: 23,2206           00350                           OCT      00350                                 #  34 1COMP  POSITION
012003,002838: 23,2207           04000                           OCT      04000                                 #  35 3COMP  OCTAL ONLY
012004,002839: 23,2210           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
012005,002840: 23,2211           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
012006,002841: 23,2212           02102                           OCT      02102                                 #  40 2COMP  DEGREES
012007,002842: 23,2213           02102                           OCT      02102                                 #  41 2COMP  DEGREES
012008,002843: 23,2214           02102                           OCT      02102                                 #  42 2COMP  DEGREES
012009,002844: 23,2215           00140                           OCT      00140                                 #  43 1COMP  WHOLE
012010,002845: 23,2216           02161                           OCT      02161                                 #  44 2COMP  FORWARD/LATERAL VELOCITY
012011,002846: 23,2217           04162                           OCT      04162                                 #  45 3COMP  ROT HAND CONT ANGLE RATE
012012,002847: 23,2220           00000                           OCT      00000                                 #  46        SPARE
012013,002848: 23,2221           00000                           OCT      00000                                 #  47        SPARE
012014,002849: 23,2222           04000                           OCT      04000                                 #  50 3COMP  OCTAL ONLY
012015,002850: 23,2223           00000                           OCT      00000                                 #  51        SPARE
012016,002851: 23,2224           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
012017,002852: 23,2225           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
012018,002853: 23,2226           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
012019,002854: 
012020,002855:                                                                                                  #  NN        MIXED NOUNS
012021,002856: 23,2227           00016                           OCT      00016                                 #  55 2COMP  LANDING RADAR ALT, SECONDS
012022,002857: 23,2230           00023                           OCT      00023                                 #  56 3COMP  LANDING RADAR VELX, SECONDS
012023,002858: 23,2231           00024                           OCT      00024                                 #  57 2COMP  LANDING RADAR VELY, SECONDS
012024,002859: 23,2232           00025                           OCT      00025                                 #  60 3COMP  LANDING RADAR VELZ, SECONDS
012025,002860: 23,2233           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
012026,002861: 23,2234           04114                           OCT      04114                                 #  62 3COMP  REND. RADAR RANGE, DEG, DEG
012027,002862: 23,2235           04115                           OCT      04115                                 #  63 2COMP  REND. RAD. RANGE RATE, DEG,DEG
012028,002863: 23,2236           40757                           OCT      40757                                 #  64 2COMP  IN/FN ALT, IN/FN ALT, ALT RATE
012029,002864: 23,2237           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS
012030,002865: 23,2240           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
012031,002866: 23,2241           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
012032,002867: 23,2242           00126                           OCT      00126                                 #  70 3COMP  OPT TRACK AZIMUTH, DEGREES

Page 298

012034,002869: 23,2243           00126                           OCT      00126                                 #  71 2COMP  OPT TRACK AZIMUTH, DEGREES
012035,002870: 23,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
012036,002871: 23,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
012037,002872: 23,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, POSITION
012038,002873: 23,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
012039,002874: 23,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
012040,002875: 23,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
012041,002876: 
012042,002877: 
012043,002878: 23,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
012044,002879: 23,2253           03240                           OCT      03240                                 
012045,002880: 23,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
012046,002881: 23,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
012047,002882: 23,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF )
012048,002883: 23,2257           00000                           OCT      0                                     
012049,002884: 23,2260           10707                           OCT      10707                                 #  GYRO DEGREES
012050,002885: 23,2261           03435                           OCT      03435                                 #              UPPED BY 1
012051,002886: 23,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
012052,002887: 23,2263           02133                           OCT      02133                                 
012053,002888: 23,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
012054,002889: 23,2265           30322                           OCT      30322                                 
012055,002890: 23,2266           00004                           OCT      00004                                 #  PIPA BIAS
012056,002891: 23,2267           14021                           OCT      14021                                 
012057,002892: 23,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR
012058,002893: 23,2271           31463                           OCT      31463                                 
012059,002894: 23,2272           23420                           OCT      23420                                 #  POSITION
012060,002895: 23,2273           00000                           OCT      00000                                 
012061,002896: 23,2274           00201                           OCT      00201                                 #  VELOCITY
012062,002897: 23,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
012063,002898: 23,2276           01371                           OCT      01371                                 #  TIME WEEKS
012064,002899: 23,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
012065,002900: 23,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
012066,002901: 23,2301           03434                           OCT      03434                                 
012067,002902: 23,2302           00006                           OCT      00006                                 #  RENDEZVOUS RADAR RANGE
012068,002903: 23,2303           20162                           OCT      20162                                 
012069,002904: 23,2304           00011                           OCT      00011                                 #  RENDEZVOUS RADAR RANGE RATE
012070,002905: 23,2305           27066                           OCT      27066                                 
012071,002906: 23,2306           00005                           OCT      00005                                 #  LANDING RADAR ALTITUDE
012072,002907: 23,2307           24733                           OCT      24733                                 
012073,002908: 23,2310           00002                           OCT      00002                                 #  INITIAL/FINAL ALTITUDE
012074,002909: 23,2311           23224                           OCT      23224                                 
012075,002910: 23,2312           00014                           OCT      00014                                 #  ALTITUDE RATE
012076,002911: 23,2313           06500                           OCT      06500                                 
012077,002912: 23,2314           00012                           OCT      00012                                 #  FORWARD/LATERAL VELOCITY
012078,002913: 23,2315           36455                           OCT      36455                                 
012079,002914: 23,2316           04256                           OCT      04256                                 #  ROT HAND CONT ANGLE RATE
012080,002915: 23,2317           07071                           OCT      07071                                 
012081,002916: 23,2320           00011                           OCT      00011                                 #  LANDING RADAR VELX
012082,002917: 23,2321           17410                           OCT      17410                                 

Page 299

012084,002919: 23,2322           00004                           OCT      00004                                 #  LANDING RADAR VELY
012085,002920: 23,2323           33740                           OCT      33740                                 
012086,002921: 23,2324           00007                           OCT      00007                                 #  LANDING RADAR VELZ
012087,002922: 23,2325           03701                           OCT      03701                                 
012088,002923: 23,2326           00005                           OCT      00005                                 #  OPTICAL AZIMUTH TRACKER ANGLE
012089,002924: 23,2327           21616                           OCT      21616                                 
012090,002925:                                                                                                  #  END OF SFINTAB
012091,002926: 
012092,002927: 
012093,002928: 23,2330           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
012094,002929: 23,2331           13261                           OCT      13261                                 
012095,002930: 23,2332           27670                           OCT      27670                                 #  TIME HOURS
012096,002931: 23,2333           31357                           OCT      31357                                 
012097,002932: 23,2334           00000                           OCT      0                                     #  DEGREES
012098,002933: 23,2335           00000                           OCT      0                                     
012099,002934: 23,2336           00714                           OCT      00714                                 #  GYRO DEGREES
012100,002935: 23,2337           31463                           OCT      31463                                 #  (POINT BETWEEN BITS 7-8)
012101,002936: 23,2340           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
012102,002937: 23,2341           32323                           OCT      32323                                 
012103,002938: 23,2342           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
012104,002939: 23,2343           06400                           OCT      06400                                 
012105,002940: 23,2344           07237                           OCT      07237                                 #  PIPA BIAS
012106,002941: 23,2345           37776                           OCT      37776                                 
012107,002942: 23,2346           00120                           OCT      00120                                 #  PIPA SCALE ERROR
012108,002943: 23,2347           00000                           OCT      00000                                 
012109,002944: 23,2350           00321                           OCT      00321                                 #  POSITION
012110,002945: 23,2351           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
012111,002946: 23,2352           37441                           OCT      37441                                 #  VELOCITY
012112,002947: 23,2353           14247                           OCT      14247                                 
012113,002948: 23,2354           05300                           OCT      05300                                 #  TIME WEEKS
012114,002949: 23,2355           20305                           OCT      20305                                 
012115,002950: 23,2356           34631                           OCT      34631                                 #  ELEVATION DEGREES
012116,002951: 23,2357           23146                           OCT      23146                                 
012117,002952: 23,2360           04725                           OCT      04725                                 #  RENDEZVOUS RADAR RANGE
012118,002953: 23,2361           35454                           OCT      35454                                 
012119,002954: 23,2362           03225                           OCT      03225                                 #  RENDEZFOUS RADAR RANGE RATE
012120,002955: 23,2363           07470                           OCT      07470                                 
012121,002956: 23,2364           05521                           OCT      05521                                 #  LANDING RADAR ALTITUDE
012122,002957: 23,2365           30260                           OCT      30260                                 
012123,002958: 23,2366           14226                           OCT      14226                                 #  INITIAL/FINAL ALTITUDE
012124,002959: 23,2367           31757                           OCT      31757                                 
012125,002960: 23,2370           02476                           OCT      02476                                 #  ALTITUDE RATE
012126,002961: 23,2371           05531                           OCT      05531                                 
012127,002962: 23,2372           02727                           OCT      02727                                 #  FORWARD/LATERAL VELOCITY
012128,002963: 23,2373           16415                           OCT      16415                                 
012129,002964: 23,2374           00007                           OCT      00007                                 #  ROT HAND CONT ANGLE RATE
012130,002965: 23,2375           13734                           OCT      13734                                 
012131,002966: 23,2376           03277                           OCT      03277                                 #  LANDING RADAR VELX
012132,002967: 23,2377           14165                           OCT      14165                                 

Page 300

012134,002969: 23,2400           06442                           OCT      06442                                 #  LANDING RADAR VELY
012135,002970: 23,2401           04735                           OCT      04735                                 
012136,002971: 23,2402           04374                           OCT      04374                                 #  LANDING RADAR VELZ
012137,002972: 23,2403           30251                           OCT      30251                                 
012138,002973: 23,2404           05605                           OCT      05605                                 #  OPTICAL TRACKER-AZIMUTH ANGLE
012139,002974: 23,2405           03656                           OCT      03656                                 
012140,002975:                                                                                                  #  END OF SFOUTAB
012141,002976: 
012142,002977: 
012143,002978:                                                                                                  #  MIXNOUN  SF ROUT
012144,002979: 23,2406           03471        IDADDTAB           ECADR    RSTACK     +18D                       #  01       LANDING RADAR ALTITUDE
012145,002980: 23,2407           03475                           ECADR    RSTACK     +22D                       #  01       SECONDS
012146,002981: 23,2410           03447                           ECADR    RSTACK                                #  02       LANDING RADAR VELX
012147,002982: 23,2411           03453                           ECADR    RSTACK     +4                         #  02       SECONDS
012148,002983: 23,2412           03455                           ECADR    RSTACK     +6                         #  03       LANDING RADAR VELY
012149,002984: 23,2413           03461                           ECADR    RSTACK     +10D                       #  03       SECONDS
012150,002985: 23,2414           03463                           ECADR    RSTACK     +12D                       #  04       LANDING RADAR VELZ
012151,002986: 23,2415           03467                           ECADR    RSTACK     +16D                       #  04       SECONDS
012152,002987: 23,2416           00337                           ECADR    DSPTEM1                               #  05       DEGREES
012153,002988: 23,2417           00340                           ECADR    DSPTEM1    +1                         #  05       ELEVATION DEGREES
012154,002989: 23,2420           03447                           ECADR    RSTACK                                #  06       RENDEZVOUS RADAR RANGE
012155,002990: 23,2421           03451                           ECADR    RSTACK     +2                         #  06       DEGREES
012156,002991: 23,2422           03452                           ECADR    RSTACK     +3                         #  06       DEGREES
012157,002992: 23,2423           03455                           ECADR    RSTACK     +6                         #  07       RENDEZVOUS RADAR RANGE RATE
012158,002993: 23,2424           03457                           ECADR    RSTACK     +8D                        #  07       DEGREES
012159,002994: 23,2425           03460                           ECADR    RSTACK     +9D                        #  07       DEGREES
012160,002995: 23,2426           00351                           ECADR    ALT                                   #  10       INITIAL/FINAL ALTITUDE
012161,002996: 23,2427           00354                           ECADR    FINALT                                #  10       INITIAL/FINAL ALTITUDE
012162,002997: 23,2430           00353                           ECADR    ALTRATE                               #  10       ALTITUDE RATE
012163,002998: 23,2431           00013                           ECADR    SAMPTIME                              #  11       HOURS
012164,002999: 23,2432           00013                           ECADR    SAMPTIME                              #  11       SECONDS
012165,003000: 23,2433           00342                           ECADR    DSPTEM2                               #  12       WHOLE
012166,003001: 23,2434           00343                           ECADR    DSPTEM2    +1                         #  12       FRACTIONAL
012167,003002: 23,2435           00344                           ECADR    DSPTEM2    +2                         #  12       WHOLE
012168,003003: 23,2436           00403                           ECADR    DELVX                                 #  13       GYRO DEGREES
012169,003004: 23,2437           00405                           ECADR    DELVX      +2                         #  13       GYRO DEGREES
012170,003005: 23,2440           00407                           ECADR    DELVX      +4                         #  13       GYRO DEGREES
012171,003006: 23,2441           01475                           ECADR    AZANG                                 #  14       OPT TRACK AZIMUTH ANGLE
012172,003007: 23,2442           01475                           ECADR    ELANG                                 #  14       DEGREES
012173,003008: 23,2443           01475                           ECADR    DESLOTSY                              #  15       OPT TRACK AZIMUTH ANGLE
012174,003009: 23,2444           01475                           ECADR    DESLOTSX                              #  15       DEGREES
012175,003010: 23,2445           02052                           ECADR    DELR                                  #  16       POSITION
012176,003011: 23,2446           02054                           ECADR    DELR       +2                         #  16       POSITION
012177,003012: 23,2447           02056                           ECADR    DELR       +4                         #  16       POSITION
012178,003013: 23,2450           02060                           ECADR    DELVEL                                #  17       VELOCITY
012179,003014: 23,2451           02062                           ECADR    DELVEL     +2                         #  17       VELOCITY
012180,003015: 23,2452           02064                           ECADR    DELVEL     +4                         #  17       VELOCITY
012181,003016: 23,2453           02166                           ECADR    TDEC                                  #  20       TIME WEEKS
012182,003017: 23,2454           02174                           ECADR    MEASQ                                 #  20       POSITION

Page 301

012184,003019: 23,2455           02200                           ECADR    MEASMODE                              #  20       WHOLE
012185,003020: 23,2456           00337                           ECADR    DSPTEM1                               #  21       POSITION
012186,003021: 23,2457           00341                           ECADR    DSPTEM1    +2                         #  21       VELOCITY
012187,003022: 23,2460           02176                           ECADR    DELTAQ                                #  21       POSITION
012188,003023: 23,2461           00337                           ECADR    DSPTEM1                               #  22       POSITION
012189,003024: 23,2462           00341                           ECADR    DSPTEM1    +2                         #  22       POSITION
012190,003025: 23,2463           00343                           ECADR    DSPTEM1    +4                         #  22       POSITION
012191,003026: 23,2464           00337                           ECADR    DSPTEM1                               #  23       VELOCITY
012192,003027: 23,2465           00341                           ECADR    DSPTEM1    +2                         #  23       VELOCITY
012193,003028: 23,2466           00343                           ECADR    DSPTEM1    +4                         #  23       VELOCITY
012194,003029: 23,2467           00000                           OCT      00000                                 #           SPARE
012195,003030: 23,2470           00000                           OCT      00000                                 #           SPARE
012196,003031: 23,2471           00000                           OCT      00000                                 #           SPARE
012197,003032: 23,2472           00000                           OCT      00000                                 #           SPARE
012198,003033: 23,2473           00000                           OCT      00000                                 #           SPARE
012199,003034: 23,2474           00000                           OCT      00000                                 #           SPARE
012200,003035:                                                                                                  #  END OF IDADDTAB
012201,003036: 
012202,003037:                                                                                                  #  MIXNOUN  SF ROUT
012203,003038: 23,2475           00204        RUTMXTAB           OCT      00204                                 #  01  LANDING RADAR ALTITUDE, SECONDS
012204,003039: 23,2476           00204                           OCT      00204                                 #  02  LANDING RADAR VELX, SECONDS
012205,003040: 23,2477           00204                           OCT      00204                                 #  03  LANDING RADAR VELY, SECONDS
012206,003041: 23,2500           00204                           OCT      00204                                 #  04  LANDING RADAR VELZ, SECONDS
012207,003042: 23,2501           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
012208,003043: 23,2502           04104                           OCT      04104                                 #  06  RENDEZVOUS RADAR RANGE, DEG, DEG
012209,003044: 23,2503           04104                           OCT      04104                                 #  07  REND. RADAR RANGE RATE, DEG, DEG
012210,003045: 23,2504           06204                           OCT      06204                                 #  10  INIT/FIN ALT, INIT/FIN ALT, ALT RATE
012211,003046: 23,2505           00205                           OCT      00205                                 #  11  HOURS, SECONDS
012212,003047: 23,2506           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
012213,003048: 23,2507           16347                           OCT      16347                                 #  13  GYRO DEGREES (FOR EACH)
012214,003049: 23,2510           00104                           OCT      00104                                 #  14  OPT TRACK AZIMUTH ANGLE, DEGREES
012215,003050: 23,2511           00104                           OCT      00104                                 #  15  OPT TRACK AZIMUTH ANGLE, DEGREES
012216,003051: 23,2512           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
012217,003052: 23,2513           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
012218,003053: 23,2514           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
012219,003054: 23,2515           16247                           OCT      16247                                 #  21  POSITION, VELOCITY, POSITION
012220,003055: 23,2516           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
012221,003056: 23,2517           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
012222,003057:                                                                                                  #  END OF RUTMXTAB
012223,003058: 

Page 302

012225,003060:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
012226,003061: 
012227,003062:    4513                                           BLOCK    02                                    
012228,003063: 
012229,003064:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
012230,003065:                                                                                                  #                ARE SET.  E ADRES IS DERIVED AND PUT INTO NOUNADD.
012231,003066: 
012232,003067:    4513           54310        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
012233,003068:    4514           54003                           TS       EBANK                                 #  SET EBANK BITS
012234,003069:    4515           74564                           MASK     LOW8                                  
012235,003070:    4516           65352                           AD       OCT1400                               
012236,003071:    4517           54135                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
012237,003072:    4520           00002                           TC       Q                                     
012238,003073: 
012239,003074:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
012240,003075:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
012241,003076: 
012242,003077:    4521           30310        SETNADD            CA       NOUNCADR                              
012243,003078:    4522           14514                           TCF      SETNCADR   +1                         
012244,003079: 
012245,003080:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
012246,003081:                                                                                                  #                DERIVED AND LEFT IN A.
012247,003082: 
012248,003083:    4523           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
012249,003084:    4524           74564                           MASK     LOW8                                  
012250,003085:    4525           65352                           AD       OCT1400                               #  E ADRES LEFT IN A
012251,003086:    4526           00002                           TC       Q                                     
012252,003087: 
012253,003088: 
012254,003089:    4527           00016        R1D1               OCT      16                                    
012255,003090:    4530           00011        R2D1               OCT      11                                    
012256,003091:    4531           00004        R3D1               OCT      4                                     
012257,003092: 
012258,003093:    4532           54020        RIGHT5             TS       CYR                                   
012259,003094:    4533           40020                           CS       CYR                                   
012260,003095:    4534           40020                           CS       CYR                                   
012261,003096:    4535           40020                           CS       CYR                                   
012262,003097:    4536           40020                           CS       CYR                                   
012263,003098:    4537           56020                           XCH      CYR                                   
012264,003099:    4540           00002                           TC       Q                                     
012265,003100: 
012266,003101:    4541           54022        LEFT5              TS       CYL                                   
012267,003102:    4542           40022                           CS       CYL                                   
012268,003103:    4543           40022                           CS       CYL                                   

Page 303

012270,003105:    4544           40022                           CS       CYL                                   
012271,003106:    4545           40022                           CS       CYL                                   
012272,003107:    4546           56022                           XCH      CYL                                   
012273,003108:    4547           00002                           TC       Q                                     
012274,003109: 
012275,003110:    4550           60000        SLEFT5             DOUBLE                                         
012276,003111:    4551           60000                           DOUBLE                                         
012277,003112:    4552           60000                           DOUBLE                                         
012278,003113:    4553           60000                           DOUBLE                                         
012279,003114:    4554           60000                           DOUBLE                                         
012280,003115:    4555           00002                           TC       Q                                     
012281,003116: 
012282,003117: 
012283,003118:    4556           00037        LOW5               OCT      37                                    
012284,003119:    4557           01740        MID5               OCT      1740                                  
012285,003120:    4560           76000        HI5                OCT      76000                                 #  MUST STAY HERE
012286,003121: 
012287,003122:    4561     5723               TCNOVAC            =        SVCT3      +5                         
012288,003123:    4561           05663        TCWAIT             TC       WAITLIST                              
012289,003124:    4562     5717               TCTSKOVR           =        SVCT3      +1                         
012290,003125:    4562           05516        TCFINDVC           TC       FINDVAC                               
012291,003126: 
012292,003127: 
012293,003128:    4563     5210               CHRPRIO            =        PRIO30                                #  EXEC PRIORITY OF CHARIN
012294,003129: 
012295,003130:    4563           03777        LOW11              OCT      3777                                  
012296,003131:    4564     4563               B12-1              EQUALS   LOW11                                 
012297,003132:    4564           00377        LOW8               OCT      377                                   
012298,003133:    4565           00023        VD1                OCT      23                                    
012299,003134:    4566           00021        ND1                OCT      21                                    
012300,003135:    4567           00025        MD1                OCT      25                                    
012301,003136: 
012302,003137:    4570           00012        BINCON             DEC      10         B-14                       
012303,003138: 
012304,003139:    4571           37755        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT.
012305,003140:    4572           00006                           EXTEND                                         
012306,003141:    4573           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
012307,003142:    4574           00002                           TC       Q                                     
012308,003143: 
012309,003144:    4575           47755        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
012310,003145:    4576           00006                           EXTEND                                         
012311,003146:    4577           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
012312,003147:    4600           00002                           TC       Q                                     
012313,003148: 
012314,003149:    4601           37757        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
012315,003150:    4602           00006                           EXTEND                                         
012316,003151:    4603           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
012317,003152:    4604           00002                           TC       Q                                     
012318,003153: 

Page 304

012320,003155:    4605           00006        LODSAMPT           EXTEND                                         
012321,003156:    4606           30025                           DCA      TIME2                                 
012322,003157:    4607           52014                           DXCH     SAMPTIME                              
012323,003158:    4610           00002                           TC       Q                                     
012324,003159: 
012325,003160: 
012326,003161:    4611           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
012327,003162:    4612           30146                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
012328,003163:    4613           20146                           DAS      MPAC       +1                         
012329,003164:    4614           60144                           AD       MPAC                                  
012330,003165:    4615           26144                           ADS      MPAC                                  
012331,003166:    4616           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
012332,003167:    4617           00002                           TC       Q                                     #  NO NET OF/UF
012333,003168:    4620           54111                           TS       OVFIND                                #  MPAC +6 SET TO +/- 1 FOR OF/UF
012334,003169:    4621           00002                           TC       Q                                     
012335,003170: 
012336,003171: 
012337,003172:    4622           37756        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
012338,003173:    4623           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
012339,003174:    4624           05011                           WOR      DSALMOUT                              
012340,003175:    4625           00002                           TC       Q                                     
012341,003176: 
012342,003177:    4626           47756        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
012343,003178:    4627           00006                           EXTEND                                         
012344,003179:    4630           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
012345,003180:    4631           00002                           TC       Q                                     
012346,003181: 

Page 305

012348,003183:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
012349,003184:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
012350,003185:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
012351,003186: 
012352,003187:                                                                                                  #        WHEN FINISHED , THERE MUST BE A FREEDSP , TO RELEAS THE
012353,003188:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
012354,003189: 
012355,003190:                                                                                                  #        THE CALLING SEQUENCES ARE
012356,003191:                                                                                                  #  L        TC     GRABDSP
012357,003192:                                                                                                  #  L+1      RETURN HERE WHEN THE SYSTEM IS ALREADY GRABBED
012358,003193:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
012359,003194: 
012360,003195:                                                                                                  #  L        TC     NVSUB
012361,003196:                                                                                                  #  L+1      RETURN HERE IF THE OPERATOR HAS INTERVENED
012362,003197:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
012363,003198: 
012364,003199:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
012365,003200:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT.
012366,003201:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012367,003202:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012368,003203:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
012369,003204: 
012370,003205:                                                                                                  #        THE CALLING SEQUENCE IS
012371,003206:                                                                                                  #           CAF    WAKEFCADR
012372,003207:                                                                                                  #           TC     GRABUSY
012373,003208: 
012374,003209:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
012375,003210:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
012376,003211:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012377,003212:                                                                                                  #  HANDLE ONLY FIXED MEMORY
012378,003213:                                                                                                  #                                              YOUR CADR IS PUT
012379,003214:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO).  IT ALSO TURNS ON KEY RELEASE LIGHT.
012380,003215: 
012381,003216:                                                                                                  #         THE CALLING SEQUENCE IS
012382,003217:                                                                                                  #           CAF    WAKEFCADR
012383,003218:                                                                                                  #           TC     NVSUBUSY
012384,003219: 
012385,003220: 
012386,003221:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 1.75 SECS.
012387,003222:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
012388,003223:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
012389,003224: 
012390,003225: 
012391,003226:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD 
012392,003227:                                                                                                  #  AND DISPLAY SYSTEM.
012393,003228:                                                                                                  #  +0  FREE

Page 306

012395,003230:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
012396,003231:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
012397,003232: 
012398,003233:    4632           10330        GRABDSP            CCS      GRABLOCK                              
012399,003234:    4633           00002                           TC       Q                                     #  ALREADY GRABBED, RETURN TO L+1
012400,003235:    4634           37763                           CAF      ONE                                   #  NOT GRABBED, SET TO +1
012401,003236:    4635           54330                           TS       GRABLOCK                              #  AND RETURN TO L+2
012402,003237:    4636           17015                           TCF      Q+1                                   
012403,003238: 
012404,003239: 
012405,003240:    4637           35337        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012406,003241:    4640           70002                           MASK     Q                                     #  BANKS ONLY DESIRING THE FCADR OF
012407,003242:    4641           60004                           AD       FBANK                                 #  1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
012408,003243:    4642           05225        GRABUSY            TC       POSTJUMP                              #  TO BE ENTERED.
012409,003244:    4643           10000                           CADR     GRABUSYB                              
012410,003245: 04,3472                                           SETLOC   DOPROC     +2                         
012411,003246: 04,3472           54001        GRABUSY1           TS       L                                     
012412,003247: 04,3473           10330                           CCS      GRABLOCK                              
012413,003248: 04,3474           03477                           TC       +3                                    #  STILL GRABBED
012414,003249: 04,3475           30001                           CA       L                                     #  NOT GRABBED SO DO DIRECT CALL
012415,003250: 04,3476           05230                           TC       BANKJUMP                              
012416,003251: 04,3477           37762                           CAF      TWO                                   
012417,003252: 04,3500           54134                           TS       LSTPTR                                
012418,003253: 04,3501           50134                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
012419,003254: 04,3502           10333                           CCS      DSPLIST                               #  FROM BOTTOM.
012420,003255: 04,3503           03505                           TC       +2                                    
012421,003256: 04,3504           03510                           TC       PUTINLST                              #  SPACE FOUND
012422,003257: 04,3505           10134                           CCS      LSTPTR                                #  DECREMENT POINTER
012423,003258: 04,3506           03500                           TC       -6                                    
012424,003259: 04,3507           03554                           TC       LSTFULL                               
012425,003260: 04,3510           30001        PUTINLST           CA       L                                     
012426,003261: 04,3511           50134                           INDEX    LSTPTR                                
012427,003262: 04,3512           54333                           TS       DSPLIST                               
012428,003263: 04,3513           05545                           TC       JOBSLEEP                              
012429,003264: 
012430,003265: 
012431,003266:                                                                                                  #  GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012432,003267:                                                                                                  #  SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 (L = LOC FROM
012433,003268:                                                                                                  #  WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
012434,003269:                                                                                                  #  JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
012435,003270:                                                                                                  #  SYSTEM IS FREED.
012436,003271: 
012437,003272:    4644                                           SETLOC   GRABUSY    +2                         
012438,003273:    4644           10330        GRABWAIT           CCS      GRABLOCK                              
012439,003274:    4645           14637                           TCF      PREGBSY                               #  GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
012440,003275:    4646           37763                           CAF      ONE                                   #  NOT GRABBED. GRAB AND RETURN TO L+1.

Page 307

012442,003277:    4647           54330                           TS       GRABLOCK                              
012443,003278:    4650           00002                           TC       Q                                     
012444,003279: 
012445,003280: 
012446,003281:    4651           44656        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012447,003282:    4652           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF (LOC
012448,003283:    4653           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
012449,003284:    4654           05225        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
012450,003285:    4655           10001                           CADR     NVSUBSYB                              
012451,003286:    4656           02003        2K+3               OCT      2003                                  
012452,003287: 
012453,003288: 04,3514                                           SETLOC   PUTINLST   +4                         
012454,003289: 04,3514           54001        NVSUBSY1           TS       L                                     
012455,003290: 04,3515           10303                           CCS      DSPLOCK                               #  TEST IF REALLY LOCKED OUT
012456,003291: 04,3516           03521                           TC       +3                                    #  STILL BUSY
012457,003292: 04,3517           30001                           CA       L                                     #  DSPLOCK = +0 SO RETURN DIRECTLY
012458,003293: 04,3520           05230                           TC       BANKJUMP                              
012459,003294: 04,3521           37762                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
012460,003295: 04,3522           54330                           TS       GRABLOCK                              
012461,003296: 04,3523           30001                           CA       L                                     
012462,003297: 04,3524           56335                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
012463,003298: 04,3525           56334                           XCH      DSPLIST    +1                         #          (BOTTOM)
012464,003299: 04,3526           56333                           XCH      DSPLIST                               
012465,003300: 04,3527           10000                           CCS      A                                     
012466,003301: 04,3530           03554                           TC       LSTFULL                               
012467,003302: 04,3531           03533                           TC       +2                                    
012468,003303: 04,3532           03554                           TC       LSTFULL                               
012469,003304: 04,3533           04601                           TC       RELDSPON                              
012470,003305: 04,3534           30001                           CA       L                                     
012471,003306: 04,3535           05545        ENDNVBSY           TC       JOBSLEEP                              
012472,003307: 
012473,003308: 
012474,003309:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012475,003310:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
012476,003311:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
012477,003312:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
012478,003313:                                                                                                  #  IS NOT BUSY.
012479,003314: 
012480,003315:    4657                                           SETLOC   NVSUBUSY   +3                         
012481,003316:    4657           54113        NVSBWAIT           TS       NVTEMP                                
012482,003317:    4660           10303                           CCS      DSPLOCK                               
012483,003318:    4661           14664                           TCF      NVSBWT1                               #  BUSY
012484,003319:    4662           30002                           CA       Q                                     #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
012485,003320:    4663           14451                           TCF      NVSUB      +5                         #  AFTER EXECUTION.
012486,003321:    4664           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
012487,003322:    4665           14651                           TCF      PRENVBSY                              #  GO TO SLEEP.
012488,003323: 

Page 308

012490,003325:    4666           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
012491,003326:    4667           54134                           TS       RELRET                                #  OFF, SEARCH DSPLIST
012492,003327:    4670           37771                           CAF      NEG1                                  
012493,003328:    4671           60330                           AD       GRABLOCK                              
012494,003329:    4672           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
012495,003330:    4673           64701                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
012496,003331:    4674           04714                           TC       WKSEARCH                              
012497,003332:    4675           04701                           TC       RELDSP2                               #  LIST EMPTY
012498,003333:    4676           05551                           TC       JOBWAKE                               #  LIST NOT EMPTY
012499,003334:    4677           37763                           CAF      ONE                                   
012500,003335:    4700           54330                           TS       GRABLOCK                              
012501,003336:    4701           00004        RELDSP2            INHINT                                         
012502,003337:    4702           47757                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
012503,003338:    4703           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
012504,003339:    4704           03011                           WAND     DSALMOUT                              
012505,003340:    4705           37767                           CAF      ZERO                                  
012506,003341:    4706           54303                           TS       DSPLOCK                               
012507,003342:    4707           00003                           RELINT                                         
012508,003343:    4710           00134                           TC       RELRET                                
012509,003344:    4711           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. NO DSPLIST SEARCH.
012510,003345:    4712           54134                           TS       RELRET                                #  NO LIST SEARCH
012511,003346:    4713           04701                           TC       RELDSP2                               
012512,003347: 
012513,003348: 
012514,003349:    4714           37767        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
012515,003350:    4715           56333                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
012516,003351:    4716           56334                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
012517,003352:    4717           56335                           XCH      DSPLIST    +2                         
012518,003353:    4720           00006                           EXTEND                                         
012519,003354:    4721           17020                           BZF      TCQ                                   #  EMPTY, RETURN TO L+1
012520,003355:    4722           00004                           INHINT                                         #  NOT EMPTY
012521,003356:    4723           17015                           TCF      Q+1                                   #  RETURN TO L+2
012522,003357: 
012523,003358:    4724           56002        FREEDSP            XCH      Q                                     
012524,003359:    4725           54134                           TS       FREERET                               
012525,003360:    4726           00004                           INHINT                                         
012526,003361:    4727           34735                           CAF      SHOTIME                               
012527,003362:    4730           05663                           TC       WAITLIST                              
012528,003363:    4731     0270                                  EBANK=   DSPCOUNT                              
012529,003364:    4731           03536 10060                     2CADR    FREEWAIT                              
012530,003365: 
012531,003366:    4733           00003                           RELINT                                         
012532,003367:    4734           00134                           TC       FREERET                               
012533,003368: 
012534,003369:    4735           00257        SHOTIME            DEC      175        B-14                       #  SET FOR 1.75 SECS FOR 501
012535,003370: 04,3536                                           SETLOC   ENDNVBSY   +1                         
012536,003371: 

Page 309

012538,003373: 04,3536           35210        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
012539,003374: 04,3537           05505                           TC       NOVAC                                 
012540,003375: 04,3540     0270                                  EBANK=   DSPCOUNT                              
012541,003376: 04,3540           03543 10060                     2CADR    FREDSPDO                              
012542,003377: 
012543,003378: 04,3542           05727                           TC       TASKOVER                              
012544,003379: 
012545,003380: 
012546,003381: 04,3543           04714        FREDSPDO           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
012547,003382: 04,3544           03552                           TC       LSTEMPTY                              #  LIST EMPTY
012548,003383: 04,3545           05551                           TC       JOBWAKE                               #  LIST NOT EMPTY
012549,003384: 04,3546           00003                           RELINT                                         
012550,003385: 04,3547           37763                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
012551,003386: 04,3550           54330                           TS       GRABLOCK                              
012552,003387: 04,3551           05567                           TC       ENDOFJOB                              
012553,003388: 04,3552           37767        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
012554,003389: 04,3553           03550                           TC       -3                                    
012555,003390: 
012556,003391: 
012557,003392: 04,3554           06000        LSTFULL            TC       ABORT                                 
012558,003393: 04,3555           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
012559,003394: 

Page 310

012561,003396:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
012562,003397:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
012563,003398: 
012564,003399: 05,3414                                           SETLOC   DSPMMEND   +1                         
012565,003400: 
012566,003401: 05,3414           00004        VBTSTLTS           INHINT                                         
012567,003402: 05,3415           47763                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
012568,003403: 05,3416           70366                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
012569,003404: 05,3417           67763                           AD       BIT1                                  
012570,003405: 05,3420           54366                           TS       IMODES33                              
012571,003406: 
012572,003407: 05,3421           33457                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
012573,003408: 05,3422           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
012574,003409: 05,3423           05011                           WOR      DSALMOUT                              
012575,003410: 05,3424           33460                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
012576,003411: 05,3425           54326                           TS       DSPTAB     +11D                       #  PROG ALM.
012577,003412: 05,3426           37752                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
012578,003413: 05,3427           00006                           EXTEND                                         
012579,003414: 05,3430           05013                           WOR      CHAN13                                
012580,003415: 05,3431           34570                           CAF      TEN                                   
012581,003416: 05,3432           54107        TSTLTS1            TS       ERCNT                                 
012582,003417: 05,3433           43455                           CS       FULLDSP                               
012583,003418: 05,3434           50107                           INDEX    ERCNT                                 
012584,003419: 05,3435           54313                           TS       DSPTAB                                
012585,003420: 05,3436           10107                           CCS      ERCNT                                 
012586,003421: 05,3437           03432                           TC       TSTLTS1                               
012587,003422: 05,3440           43456                           CS       FULLDSP1                              
012588,003423: 05,3441           54314                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
012589,003424: 05,3442           54317                           TS       DSPTAB     +4                         
012590,003425: 05,3443           54321                           TS       DSPTAB     +6                         
012591,003426: 05,3444           37764                           CAF      ELEVEN                                
012592,003427: 05,3445           54307                           TS       NOUT                                  
012593,003428: 05,3446           00003                           RELINT                                         
012594,003429: 05,3447           33462                           CAF      SHOLTS                                
012595,003430: 05,3450           00004                           INHINT                                         
012596,003431: 05,3451           05663                           TC       WAITLIST                              
012597,003432: 05,3452     0313                                  EBANK=   DSPTAB                                
012598,003433: 05,3452           03463 12060                     2CADR    TSTLTS2                               
012599,003434: 
012600,003435: 05,3454           05567                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
012601,003436:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
012602,003437:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
012603,003438: 
012604,003439: 05,3455           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8'S
012605,003440: 05,3456           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8'S AND +
012606,003441: 05,3457           00175        TSTCON1            OCT      00175                                 
012607,003442:                                                                                                  #  UPLINK ACTIVITY, TEMP. KEY RLSE,
012608,003443:                                                                                                  #  V/N FLASH, OPERATOR ERROR.

Page 311

012610,003445: 05,3460           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D BITS 3,4,6,8,9.
012611,003446:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
012612,003447: 05,3461           00115        TSTCON3            OCT      00115                                 #  CHAN 11 BITS 1, 3, 4, 7.
012613,003448:                                                                                                  #  UPLINK ACITIVY, TEMP, OPERATOR ERROR.
012614,003449: 05,3462           00764        SHOLTS             OCT      764                                   #  5 SEC
012615,003450: 
012616,003451: 05,3463           35210        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
012617,003452: 05,3464           05505                           TC       NOVAC                                 
012618,003453: 05,3465     0313                                  EBANK=   DSPTAB                                
012619,003454: 05,3465           03470 12060                     2CADR    TSTLTS3                               
012620,003455: 
012621,003456: 05,3467           05727                           TC       TASKOVER                              
012622,003457: 
012623,003458: 
012624,003459: 05,3470           43461        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
012625,003460: 05,3471           00004                           INHINT                                         
012626,003461: 05,3472           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
012627,003462: 05,3473           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
012628,003463: 05,3474           47752                           CS       BIT10                                 #  TURN OFF  TEST ALARM OUTBIT
012629,003464: 05,3475           00006                           EXTEND                                         
012630,003465: 05,3476           03013                           WAND     CHAN13                                
012631,003466: 05,3477           37745                           CAF      BIT15                                 #  TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
012632,003467: 05,3500           54326                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
012633,003468: 05,3501           43521                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
012634,003469: 05,3502           70366                           MASK     IMODES33                              #  LIGHTS COMPLETE.
012635,003470: 05,3503           65642                           AD       PRIO16                                
012636,003471: 05,3504           54366                           TS       IMODES33                              
012637,003472: 
012638,003473: 05,3505           43523                           CS       OCT55000                              
012639,003474: 05,3506           70365                           MASK     IMODES30                              
012640,003475: 05,3507           65641                           AD       PRIO15                                #  15000.
012641,003476: 05,3510           54365                           TS       IMODES30                              
012642,003477: 
012643,003478: 05,3511           43522                           CS       RFAILS2                               
012644,003479: 05,3512           70412                           MASK     RADMODES                              
012645,003480: 05,3513           67755                           AD       BIT7                                  
012646,003481: 05,3514           54412                           TS       RADMODES                              
012647,003482: 
012648,003483: 05,3515           00003                           RELINT                                         
012649,003484: 
012650,003485: 05,3516           02001                           TC       DSPMM                                 #  REDISPLAY C(MODREG)
012651,003486: 05,3517           05225                           TC       POSTJUMP                              #  TURN OFF KEY RLSE LIGHT (AND SEARCH LIST
012652,003487: 05,3520           11333                           CADR     VBTERM                                #  IF APPROPRIATE).
012653,003488:                                                                                                  #  TURN OFF V/N FLASH, SET LOADSTAT FOR
012654,003489:                                                                                                  #  TERMINATE CONDITION, AND TO TO
012655,003490:                                                                                                  #  RECALTST. FINALLY DO TC ENDOFJOB.
012656,003491: 

Page 312

012658,003493: 05,3521           16001        13-11,1            OCT      16001                                 
012659,003494: 05,3522           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
012660,003495: 05,3523           55000        OCT55000           OCT      55000                                 

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