Source Code

   YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS       BY MSTEWART MAR. 27,2017
This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations.

010203,000002:                                                                                                  ## Copyright:   Public domain.
010204,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
010205,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
010206,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
010207,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
010208,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
010209,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
010210,000009:                                                                                                  ##              Validation.
010211,000010:                                                                                                  ## Assembler:   yaYUL
010212,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
010213,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010214,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
010215,000014:                                                                                                  ##              2017-01-04 MAS  Pulled back PROCEED key functionality from Luminary 99.
010216,000015:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
010217,000016:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
010218,000017:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
010219,000018:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
010220,000019:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
010221,000020:                                                                                                  ##                              Luminary 99 vs Comanche 55.
010222,000021: 
010223,000022:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
010224,000023: 
010225,000024: 
010226,000025: 
010227,000026:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
010228,000027: 
010229,000028:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
010230,000029:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
010231,000030:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
010232,000031: 
010233,000032:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4

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

010236,000035: 
010237,000036: 
010238,000037: 
010239,000038:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
010240,000039: 
010241,000040: 
010242,000041: 
010243,000042:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
010244,000043: 
010245,000044:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
010246,000045:                                                                                                  #  DECBRNCH      ERASE                   +DEC, -DEC, OCT INDICATOR
010247,000046:                                                                                                  #  VERBREG       ERASE                   VERB CODE
010248,000047:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
010249,000048:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
010250,000049:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
010251,000050:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
010252,000051:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
010253,000052:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
010254,000053:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
010255,000054:                                                                                                  #  MODREG        ERASE                   MODE CODE
010256,000055:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
010257,000056:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
010258,000057:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
010259,000058:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
010260,000059:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
010261,000060:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
010262,000061:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
010263,000062:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
010264,000063:                                                                                                  #  DSPTAB        ERASE           +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
010265,000064:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
010266,000065:                                                                                                  #  GRABLOCK      ERASE                   INTERNAL INTERLOCK FOR DISPLAY SYSTEM
010267,000066:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
010268,000067:                                                                                                  #                                        MUST = NVBNKTEM-1
010269,000068:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
010270,000069:                                                                                                  #                                        MUST = NVQTEM+1
010271,000070:                                                                                                  #  DSPLIST       ERASE           +2      WAITING LIST FOR DSP SYST INTERNAL USE
010272,000071:                                                                                                  #  EXTVBACT      REASE                   EXTENDED VERB ACTIVITY INTERLOCK
010273,000072:                                                                                                  #  DSPTEM1       ERASE           +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
010274,000073:                                                                                                  #  DSPTEM2       ERASE           +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
010275,000074: 
010276,000075: 
010277,000076:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
010278,000077: 
010279,000078: 
010280,000079: 
010281,000080:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
010282,000081: 
010283,000082:                                                                                                  #  DSEXIT   =      INTB15+         RETURN FOR DSPIN
010284,000083:                                                                                                  #  EXITEM   =      INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
010285,000084:                                                                                                  #  BLANKRET =      INTB15+         RETURN FOR 2BLANK
010286,000085: 
010287,000086:                                                                                                  #  WRDRET   =      INTBIT15        RETURN FOR 5BLANK.
010288,000087:                                                                                                  #  WDRET    =      INTBIT15        RETURN FOR DSPWD
010289,000088:                                                                                                  #  DECRET   =      INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
010290,000089:                                                                                                  #  21/22REG =      INTBIT15        TEMP FOR CHARIN
010291,000090: 
010292,000091:                                                                                                  #  UPDATRET =      POLISH          RETURN FOR UPDATNN, UPDATVB
010293,000092:                                                                                                  #  CHAR     =      POLISH          TEMP FOR CHARIN
010294,000093:                                                                                                  #  ERCNT    =      POLISH          COUNTER FOR ERROR LIGHT RESET
010295,000094:                                                                                                  #  DECOUNT  =      POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
010296,000095: 
010297,000096:                                                                                                  #  SGNON    =      VBUF            TEMP FOR +,- ON
010298,000097:                                                                                                  #  NOUNTEM  =      VBUF            COUNTER FOR MIXNOUN FETCH
010299,000098:                                                                                                  #  DISTEM   =      VBUF            COUNTER FOR OCTAL DISPLAY VERBS
010300,000099:                                                                                                  #  DECTEM   =      VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
010301,000100: 
010302,000101:                                                                                                  #  SGNOFF   =       VBUF   +1      TEMP FOR +,- ON
010303,000102:                                                                                                  #  NVTEMP   =       VBUF   +1      TEMP FOR NVSUB
010304,000103:                                                                                                  #  SFTEMP1  =       VBUF   +1      STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
010305,000104: 
010306,000105:                                                                                                  #  CODE     =       VBUF   +2      FOR DSPIN
010307,000106:                                                                                                  #  SFTEMP2  =       VBUF   +2      STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
010308,000107: 
010309,000108:                                                                                                  #  MIXTEMP  =       VBUF   +3      FOR MIXNOUN DATA
010310,000109:                                                                                                  #  SIGNRET  =       VBUF   +3      RETURN FOR +,- ON
010311,000110: 
010312,000111:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
010313,000112: 
010314,000113:                                                                                                  #  ENTRET   =       DOTINC          EXIT FROM ENTER
010315,000114: 
010316,000115:                                                                                                  #  WDCNT    =       DOTRET          CHAR COUNTER FOR DSPWD
010317,000116:                                                                                                  #  INREL    =       DOTRET          INPUT BUFFER SELECTOR ( X, Y, Z, REG )
010318,000117: 
010319,000118:                                                                                                  #  DSPMMTEM =       MATINC          DSPCOUNT SAVE FOR DSPMM
010320,000119:                                                                                                  #  MIXBR    =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
010321,000120: 
010322,000121:                                                                                                  #  TEM1     ERASE                   EXEC TEMP
010323,000122:                                                                                                  #  DSREL    =       TEM1            REL ADDRESS FOR DSPIN
010324,000123: 
010325,000124:                                                                                                  #  TEM2     ERASE                   EXEC TEMP
010326,000125:                                                                                                  #  DSMAG    =       TEM2            MAGNITUDE STORE FOR DSPIN
010327,000126: 
010328,000127:                                                                                                  #  IDADDTEM =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
010329,000128: 
010330,000129:                                                                                                  #  TEM3     ERASE                   EXEC TEMP
010331,000130:                                                                                                  #  COUNT    =       TEM3            FOR DSPIN
010332,000131: 
010333,000132:                                                                                                  #  TEM4     ERASE                   EXEC TEMP
010334,000133:                                                                                                  #  LSTPTR   =       TEM4            LIST POINTER FOR GRABUSY
010335,000134:                                                                                                  #  RELRET   =       TEM4            RETURN FOR RELDSP
010336,000135:                                                                                                  #  FREERET  =       TEM4            RETURN FOR FREEDSP
010337,000136: 
010338,000137:                                                                                                  #  TEM5     ERASE                   EXEC TEMP
010339,000138:                                                                                                  #  NOUNADD  =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
010340,000139: 
010341,000140:                                                                                                  #  NNADTEM  ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
010342,000141:                                                                                                  #  NNTYPTEM ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
010343,000142:                                                                                                  #  IDAD1TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
010344,000143:                                                                                                  #                                   MUST = IDAD2TEM-1, = IDAD3TEM-2.
010345,000144:                                                                                                  #  IDAD2TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
010346,000145:                                                                                                  #                                   MUST = IDAD1TEM+1, = IDAD3TEM-1.
010347,000146:                                                                                                  #  IDAD3TEM ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
010348,000147:                                                                                                  #                                   MUST = IDAD1TEM+2,  = IDAD2TEM+1.
010349,000148:                                                                                                  #  RUTMXTEM ERASE                   TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
010350,000149:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
010351,000150: 
010352,000151: 
010353,000152: 
010354,000153:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
010355,000154: 
010356,000155:                                                                                                  #  DSPCNT   ERASE                   COUNTER FOR DSPOUT
010357,000156:                                                                                                  #  UPLOCK   ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
010358,000157:                                                                                                  #                                                                            RECEPTION OF A BAD MESSAGE IN UPLINK)
010359,000158:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
010360,000159: 
010361,000160: 
010362,000161: 
010363,000162:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
010364,000163: 
010365,000164:                                                                                                  #  KEYTEMP1 =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
010366,000165:                                                                                                  #  DSRUPTEM =       WAITEXIT        TEMP FOR DSPOUT
010367,000166:                                                                                                  #  KEYTEMP2 =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
010368,000167:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
010369,000168: 
010370,000169: 
010371,000170:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
010372,000171:                                                                                                  #  0        10000
010373,000172:                                                                                                  #  1        00001
010374,000173:                                                                                                  #  9        01001
010375,000174:                                                                                                  #  VERB     10001
010376,000175:                                                                                                  #  ERROR RES10010
010377,000176:                                                                                                  #  KEY RLSE 11001
010378,000177:                                                                                                  #  +        11010
010379,000178:                                                                                                  #  -        11011
010380,000179:                                                                                                  #  ENTER    11100
010381,000180:                                                                                                  #  CLEAR    11110
010382,000181:                                                                                                  #  NOUN     11111
010383,000182: 
010384,000183: 
010385,000184: 
010386,000185:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
010387,000186:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
010388,000187:                                                                                                  #  ENERGIZED.
010389,000188:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
010390,000189:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
010391,000190:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
010392,000191: 
010393,000192:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
010394,000193:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
010395,000194:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
010396,000195:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
010397,000196:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
010398,000197:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
010399,000198: 
010400,000199:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
010401,000200:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
010402,000201:                                                                                                  #  MD2   24     R2D2  10
010403,000202:                                                                                                  #  VD1   23     R2D3   7
010404,000203:                                                                                                  #  VD2   22     R2D4   6
010405,000204:                                                                                                  #  ND1   21     R2D5   5
010406,000205:                                                                                                  #  ND2   20     R3D1   4
010407,000206:                                                                                                  #  R1D1  16     R3D2   3
010408,000207:                                                                                                  #  R1D2  15     R3D3   2
010409,000208:                                                                                                  #  R1D3  14     R3D4   1
010410,000209:                                                                                                  #  R1D4  13     R3D5   0
010411,000210:                                                                                                  #  R1D5  12
010412,000211: 
010413,000212: 
010414,000213: 
010415,000214:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
010416,000215: 
010417,000216:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
010418,000217:                                                                                                  #  RELADD
010419,000218:                                                                                                  #  10     1011                    MD1 (25)      MD2 (24)
010420,000219:                                                                                                  #  9      1010                    VD1 (23)      VD2 (22)
010421,000220: 
010422,000221:                                                                                                  #  8      1001                    ND1 (21)      ND2 (20)
010423,000222:                                                                                                  #  7      1000                                  R1D1 (16)
010424,000223:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
010425,000224:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
010426,000225:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
010427,000226:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
010428,000227:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
010429,000228:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
010430,000229:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
010431,000230:                                                                                                  #         0000   NO RELAYWORD
010432,000231: 
010433,000232: 
010434,000233: 
010435,000234:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
010436,000235:                                                                                                  #  BLANK      00000
010437,000236:                                                                                                  #  0          10101
010438,000237:                                                                                                  #  1          00011
010439,000238:                                                                                                  #  2          11001
010440,000239:                                                                                                  #  3          11011
010441,000240:                                                                                                  #  4          01111
010442,000241:                                                                                                  #  5          11110
010443,000242:                                                                                                  #  6          11100
010444,000243:                                                                                                  #  7          10011
010445,000244:                                                                                                  #  8          11101
010446,000245:                                                                                                  #  9          11111
010447,000246: 
010448,000247: 
010449,000248:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
010450,000249: 
010451,000250: 
010452,000251: 
010453,000252: 04,2000                                           SETLOC   20000                                 
010454,000253: 
010455,000254: 04,2000           03461        GRABUSYB           TC       GRABUSY1                              #  STANDARD LEAD INS. DONT MOVE.
010456,000255: 04,2001           03503        NVSUBSYB           TC       NVSUBSY1                              
010457,000256: 
010458,000257: 04,2002           37657        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
010459,000258: 04,2003           56277                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
010460,000259: 04,2004           54101                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
010461,000260: 04,2005           56140                           XCH      MPAC                                  
010462,000261: 04,2006           54103                           TS       CHAR                                  
010463,000262: 04,2007           50000                           INDEX    A                                     
010464,000263: 04,2010           02011                           TC       +1                                    #  INPUT CODE     FUNCTION
010465,000264: 04,2011           03275                           TC       CHARALRM                              #  0
010466,000265: 04,2012           02062                           TC       NUM                                   #  1
010467,000266: 04,2013           02062                           TC       NUM                                   #  2
010468,000267: 04,2014           02062                           TC       NUM                                   #  3
010469,000268: 04,2015           02062                           TC       NUM                                   #  4
010470,000269: 04,2016           02062                           TC       NUM                                   #  5
010471,000270: 04,2017           02062                           TC       NUM                                   #  6
010472,000271: 04,2020           02062                           TC       NUM                                   #  7
010473,000272: 04,2021           02053                           TC       89TEST                                #  10                 8
010474,000273: 04,2022           02053                           TC       89TEST                                #  11                 9
010475,000274: 04,2023           03275                           TC       CHARALRM                              #  12
010476,000275: 04,2024           03275                           TC       CHARALRM                              #  13
010477,000276: 04,2025           03275                           TC       CHARALRM                              #  14
010478,000277: 04,2026           03275                           TC       CHARALRM                              #  15
010479,000278: 04,2027           03275                           TC       CHARALRM                              #  16
010480,000279: 04,2030           03275                           TC       CHARALRM                              #  17
010481,000280: 04,2031           02060                           TC       NUM        -2                         #  20                 0
010482,000281: 04,2032           02235                           TC       VERB                                  #  21                 VERB
010483,000282: 04,2033           02343                           TC       ERROR                                 #  22                 ERROR LIGHT RESET
010484,000283: 04,2034           03275                           TC       CHARALRM                              #  23
010485,000284: 04,2035           03275                           TC       CHARALRM                              #  24
010486,000285: 04,2036           03275                           TC       CHARALRM                              #  25
010487,000286: 04,2037           03275                           TC       CHARALRM                              #  26
010488,000287: 04,2040           03275                           TC       CHARALRM                              #  27
010489,000288: 04,2041           03275                           TC       CHARALRM                              #  30
010490,000289: 04,2042           03325                           TC       VBRELDSP                              #  31                 KEY RELEASE
010491,000290: 04,2043           02267                           TC       POSGN                                 #  32                 +
010492,000291: 04,2044           02254                           TC       NEGSGN                                #  33                 -
010493,000292: 04,2045           02051                           TC       ENTERJMP                              #  34                 ENTER
010494,000293: 04,2046           03275                           TC       CHARALRM                              #  35
010495,000294: 04,2047           02431                           TC       CLEAR                                 #  36                 CLEAR
010496,000295: 04,2050           02250                           TC       NOUN                                  #  37                 NOUN
010497,000296: 
010498,000297: 04,2051           04104        ENTERJMP           TC       POSTJUMP                              
010499,000298: 04,2052           12003                           CADR     ENTER                                 
010500,000299: 
010501,000300: 04,2053           36165        89TEST             CAF      THREE                                 
010502,000301: 04,2054           70265                           MASK     DECBRNCH                              
010503,000302: 04,2055           10000                           CCS      A                                     
010504,000303: 04,2056           02062                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
010505,000304: 04,2057           03275                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
010506,000305: 
010507,000306: 
010508,000307: 
010509,000308:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
010510,000309:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
010511,000310:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
010512,000311:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
010513,000312:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
010514,000313:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
010515,000314: 
010516,000315: 04,2060           37665                           CAF      ZERO                                  
010517,000316: 04,2061           54103                           TS       CHAR                                  
010518,000317: 04,2062           10264        NUM                CCS      DSPCOUNT                              
010519,000318: 04,2063           02067                           TC       +4                                    #  +
010520,000319: 04,2064           02067                           TC       +3                                    #  +0
010521,000320: 04,2065           02066                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
010522,000321: 04,2066           04421                           TC       ENDOFJOB                              #  -0
010523,000322: 04,2067           02205                           TC       GETINREL                              
010524,000323: 04,2070           10302                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
010525,000324: 04,2071           37665                           CAF      ZERO                                  
010526,000325: 04,2072           54302                           TS       CLPASS                                
010527,000326: 04,2073           02074                           TC       +1                                    
010528,000327: 04,2074           50103                           INDEX    CHAR                                  
010529,000328: 04,2075           34733                           CAF      RELTAB                                
010530,000329: 04,2076           75216                           MASK     LOW5                                  
010531,000330: 04,2077           54110                           TS       CODE                                  
010532,000331: 04,2100           30264                           CA       DSPCOUNT                              
010533,000332: 04,2101           54127                           TS       COUNT                                 
010534,000333: 04,2102           03201                           TC       DSPIN                                 
010535,000334: 04,2103           36165                           CAF      THREE                                 
010536,000335: 04,2104           70265                           MASK     DECBRNCH                              
010537,000336: 04,2105           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
010538,000337: 04,2106           02117                           TC       DECTOBIN                              #  +
010539,000338: 04,2107           50123                           INDEX    INREL                                 #  +0 OCTAL
010540,000339: 04,2110           56266                           XCH      VERBREG                               
010541,000340: 04,2111           54022                           TS       CYL                                   
010542,000341: 04,2112           40022                           CS       CYL                                   
010543,000342: 04,2113           40022                           CS       CYL                                   
010544,000343: 04,2114           56022                           XCH      CYL                                   
010545,000344: 04,2115           60103                           AD       CHAR                                  
010546,000345: 04,2116           02134                           TC       ENDNMTST                              
010547,000346: 04,2117           50123        DECTOBIN           INDEX    INREL                                 
010548,000347: 
010549,000348: 
010550,000349: 04,2120           56266                           XCH      VERBREG                               
010551,000350: 04,2121           54140                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
010552,000351: 04,2122           37665                           CAF      ZERO                                  
010553,000352: 04,2123           54141                           TS       MPAC       +1                         
010554,000353: 04,2124           37661                           CAF      TEN                                   #  10 X 2EXP-14
010555,000354: 04,2125           07266                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
010556,000355: 04,2126           56141                           XCH      MPAC       +1                         
010557,000356: 04,2127           60103                           AD       CHAR                                  
010558,000357: 04,2130           54141                           TS       MPAC       +1                         
010559,000358: 04,2131           02134                           TC       ENDNMTST                              #  NO OF
010560,000359: 04,2132           26140                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
010561,000360: 04,2133           02152                           TC       DECEND                                
010562,000361: 04,2134           50123        ENDNMTST           INDEX    INREL                                 
010563,000362: 04,2135           54266                           TS       VERBREG                               
010564,000363: 04,2136           40264                           CS       DSPCOUNT                              
010565,000364: 04,2137           50123                           INDEX    INREL                                 
010566,000365: 04,2140           62176                           AD       CRITCON                               
010567,000366: 04,2141           00006                           EXTEND                                         
010568,000367: 04,2142           12144                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
010569,000368: 04,2143           02173                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
010570,000369: 04,2144           36165        ENDNUM             CAF      THREE                                 
010571,000370: 04,2145           70265                           MASK     DECBRNCH                              
010572,000371: 04,2146           10000                           CCS      A                                     
010573,000372: 04,2147           02152                           TC       DECEND                                
010574,000373: 04,2150           40264        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
010575,000374: 04,2151           02174                           TC       MORNUM     +1                         #  NEGATIVELY
010576,000375: 04,2152           07063        DECEND             TC       DMP                                   #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
010577,000376: 04,2153           02203                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
010578,000377: 04,2154           36165                           CAF      THREE                                 #  IN MPAC, +1, +2.
010579,000378: 04,2155           70265                           MASK     DECBRNCH                              
010580,000379: 04,2156           50000                           INDEX    A                                     
010581,000380: 04,2157           02157                           TC       +0                                    
010582,000381: 04,2160           02164                           TC       +DECSGN                               
010583,000382: 04,2161           00006                           EXTEND                                         #  - CASE
010584,000383: 04,2162           40142                           DCS      MPAC       +1                         
010585,000384: 04,2163           52142                           DXCH     MPAC       +1                         
010586,000385: 04,2164           56142        +DECSGN            XCH      MPAC       +2                         
010587,000386: 04,2165           50123                           INDEX    INREL                                 
010588,000387: 04,2166           54271                           TS       XREGLP     -2                         
010589,000388: 04,2167           56141                           XCH      MPAC       +1                         
010590,000389: 04,2170           50123                           INDEX    INREL                                 
010591,000390: 04,2171           54266                           TS       VERBREG                               
010592,000391: 04,2172           02150                           TC       ENDALL                                
010593,000392: 04,2173           10264        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
010594,000393: 04,2174           54264                           TS       DSPCOUNT                              
010595,000394: 04,2175           04421                           TC       ENDOFJOB                              
010596,000395: 
010597,000396: 04,2176           00022        CRITCON            OCT      22                                    #  (DEC 18)
010598,000397: 04,2177           00020                           OCT      20                                    #  (DEC 16)
010599,000398: 04,2200           00012                           OCT      12                                    #  (DEC 10)
010600,000399: 
010601,000400: 04,2201           00005                           OCT      5                                     
010602,000401: 04,2202           00000                           OCT      0                                     
010603,000402: 
010604,000403: 04,2203           05174 13261  DECON              2DEC     E-5        B14                        #  2EXP14/10EXP5 = .16384 DEC
010605,000404: 
010606,000405: 
010607,000406:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
010608,000407:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
010609,000408: 
010610,000409: 04,2205           50264        GETINREL           INDEX    DSPCOUNT                              
010611,000410: 04,2206           32211                           CAF      INRELTAB                              
010612,000411: 04,2207           54123                           TS       INREL                                 #  (A TEMP, REG)
010613,000412: 04,2210           00002                           TC       Q                                     
010614,000413: 
010615,000414: 04,2211           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
010616,000415: 04,2212           00004                           OCT      4                                     #  R3D4           =(1)
010617,000416: 04,2213           00004                           OCT      4                                     #  R3D3           =(2)
010618,000417: 04,2214           00004                           OCT      4                                     #  R3D2           =(3)
010619,000418: 04,2215           00004                           OCT      4                                     #  R3D1           =(4)
010620,000419: 04,2216           00003                           OCT      3                                     #  R2D5           =(5)
010621,000420: 04,2217           00003                           OCT      3                                     #  R2D4           =(6)
010622,000421: 04,2220           00003                           OCT      3                                     #  R2D3           =(7)
010623,000422: 04,2221           00003                           OCT      3                                     #  R2D2           =(8D)
010624,000423: 04,2222           00003                           OCT      3                                     #  R2D1           =(9D)
010625,000424: 04,2223           00002                           OCT      2                                     #  R1D5           =(10D)
010626,000425: 04,2224           00002                           OCT      2                                     #  R1D4           =(11D)
010627,000426: 04,2225           00002                           OCT      2                                     #  R1D3           =(12D)
010628,000427: 04,2226           00002                           OCT      2                                     #  R1D2           =(13D)
010629,000428: 04,2227           00002                           OCT      2                                     #  R1D1           =(14D)
010630,000429: 04,2230           05456                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
010631,000430: 04,2231           00001                           OCT      1                                     #  ND2            =(16D)
010632,000431: 04,2232           00001                           OCT      1                                     #  ND1            =(17D)
010633,000432: 04,2233           00000                           OCT      0                                     #  VD2            =(18D)
010634,000433: 04,2234           00000                           OCT      0                                     #  VD1            =(19D)
010635,000434: 
010636,000435: 04,2235           37665        VERB               CAF      ZERO                                  
010637,000436: 04,2236           54266                           TS       VERBREG                               
010638,000437: 04,2237           35231                           CAF      VD1                                   
010639,000438: 04,2240           54264        NVCOM              TS       DSPCOUNT                              
010640,000439: 04,2241           02541                           TC       2BLANK                                
010641,000440: 04,2242           37665                           CAF      ZERO                                  
010642,000441: 04,2243           54265                           TS       DECBRNCH                              
010643,000442: 04,2244           54300                           TS       REQRET                                #  SET FOR ENTPAS0
010644,000443: 04,2245           35142                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
010645,000444: 04,2246           54122                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
010646,000445:                                                                                                  #  TO TC ENDOFJOB
010647,000446: 04,2247           04421                           TC       ENDOFJOB                              
010648,000447: 
010649,000448: 04,2250           37665        NOUN               CAF      ZERO                                  
010650,000449: 04,2251           54267                           TS       NOUNREG                               
010651,000450: 04,2252           35232                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
010652,000451: 04,2253           02240                           TC       NVCOM                                 
010653,000452: 
010654,000453: 
010655,000454: 
010656,000455: 04,2254           02326        NEGSGN             TC       SIGNTEST                              
010657,000456: 04,2255           02313                           TC       -ON                                   
010658,000457: 04,2256           37656                           CAF      TWO                                   
010659,000458: 04,2257           50123        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
010660,000459: 04,2260           67651                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
010661,000460: 04,2261           26265                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
010662,000461: 04,2262           10302        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
010663,000462: 04,2263           37665                           CAF      ZERO                                  
010664,000463: 04,2264           54302                           TS       CLPASS                                
010665,000464: 04,2265           02266                           TC       +1                                    
010666,000465: 04,2266           04421                           TC       ENDOFJOB                              
010667,000466: 
010668,000467: 04,2267           02326        POSGN              TC       SIGNTEST                              
010669,000468: 04,2270           02273                           TC       +ON                                   
010670,000469: 04,2271           37657                           CAF      ONE                                   
010671,000470: 04,2272           02257                           TC       BOTHSGN                               
010672,000471: 
010673,000472: 04,2273           22002        +ON                LXCH     Q                                     
010674,000473: 04,2274           02205                           TC       GETINREL                              
010675,000474: 04,2275           50123                           INDEX    INREL                                 
010676,000475: 04,2276           32321                           CAF      SGNTAB     -2                         
010677,000476: 04,2277           54107                           TS       SGNOFF                                
010678,000477: 04,2300           67657                           AD       ONE                                   
010679,000478: 04,2301           54106                           TS       SGNON                                 
010680,000479: 04,2302           37665        SGNCOM             CAF      ZERO                                  
010681,000480: 04,2303           54110                           TS       CODE                                  
010682,000481: 04,2304           56107                           XCH      SGNOFF                                
010683,000482: 04,2305           03263                           TC       11DSPIN                               
010684,000483: 04,2306           37645                           CAF      BIT11                                 
010685,000484: 04,2307           54110                           TS       CODE                                  
010686,000485: 04,2310           56106                           XCH      SGNON                                 
010687,000486: 04,2311           03263                           TC       11DSPIN                               
010688,000487: 04,2312           00001                           TC       L                                     
010689,000488: 04,2313           22002        -ON                LXCH     Q                                     
010690,000489: 04,2314           02205                           TC       GETINREL                              
010691,000490: 04,2315           50123                           INDEX    INREL                                 
010692,000491: 04,2316           32321                           CAF      SGNTAB     -2                         
010693,000492: 04,2317           54106                           TS       SGNON                                 
010694,000493: 04,2320           67657                           AD       ONE                                   
010695,000494: 04,2321           54107                           TS       SGNOFF                                
010696,000495: 04,2322           02302                           TC       SGNCOM                                
010697,000496: 
010698,000497: 04,2323           00005        SGNTAB             OCT      5                                     #  -R1
010699,000498: 
010700,000499: 04,2324           00003                           OCT      3                                     #  -R2
010701,000500: 04,2325           00000                           OCT      0                                     #  -R3
010702,000501: 
010703,000502: 
010704,000503: 
010705,000504: 04,2326           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
010706,000505: 04,2327           45167                           CS       R1D1                                  #  R2D1, OR R3D1.
010707,000506: 04,2330           02336                           TC       SGNTST1                               
010708,000507: 04,2331           45170                           CS       R2D1                                  
010709,000508: 04,2332           02336                           TC       SGNTST1                               
010710,000509: 04,2333           45171                           CS       R3D1                                  
010711,000510: 04,2334           02336                           TC       SGNTST1                               
010712,000511: 04,2335           04421                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
010713,000512: 04,2336           60264        SGNTST1            AD       DSPCOUNT                              
010714,000513: 04,2337           00006                           EXTEND                                         
010715,000514: 04,2340           12342                           BZF      +2                                    #  MATCH FOUND
010716,000515: 04,2341           00002                           TC       Q                                     
010717,000516: 04,2342           00001                           TC       L                                     #  SIGN LEGAL
010718,000517: 
010719,000518: 
010720,000519: 
010721,000520:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
010722,000521:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
010723,000522:                                                                                                  #  PROG ALM, TRACKER FAIL.
010724,000523:                                                                                                  #  LEAVES GIMBAL LOCK ALONE.
010725,000524:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
010726,000525:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
010727,000526:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
010728,000527: 
010729,000528: 04,2343           56101        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
010730,000529: 04,2344           54277                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
010731,000530: 04,2345           00004                           INHINT                                         
010732,000531: 04,2346           37646                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
010733,000532: 04,2347           00006                           EXTEND                                         
010734,000533: 04,2350           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
010735,000534: 04,2351           37652                           CAF      BIT6                                  #  LEAVE GIMBAL LOCK LAMP INTACT,
010736,000535: 04,2352           70322                           MASK     DSPTAB     +11D                       #  TURNING OFF, AUTO, HOLD, FREE, NO ATT.,
010737,000536: 04,2353           67641                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
010738,000537: 04,2354           54322                           TS       DSPTAB     +11D                       
010739,000538: 04,2355           44476                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
010740,000539: 04,2356           70370                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
010741,000540: 04,2357           64476                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
010742,000541: 04,2360           54370                           TS       IMODES33                              
010743,000542: 04,2361           47646                           CS       BIT10                                 
010744,000543: 04,2362           70367                           MASK     IMODES30                              
010745,000544: 04,2363           67646                           AD       BIT10                                 
010746,000545: 04,2364           54367                           TS       IMODES30                              
010747,000546: 
010748,000547: 04,2365           42427                           CS       RFAILS                                
010749,000548: 04,2366           70413                           MASK     RADMODES                              
010750,000549: 
010751,000550: 
010752,000551: 04,2367           67651                           AD       BIT7                                  
010753,000552: 04,2370           54413                           TS       RADMODES                              
010754,000553: 
010755,000554: 04,2371           47646                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
010756,000555: 04,2372           00006                           EXTEND                                         
010757,000556: 04,2373           03013                           WAND     CHAN13                                
010758,000557: 04,2374           42426                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
010759,000558: 04,2375           00006                           EXTEND                                         #  OPERATOR ERROR.
010760,000559: 04,2376           03011                           WAND     DSALMOUT                              
010761,000560: 04,2377           35234        TSTAB              CAF      BINCON                                #  (DEC 10)
010762,000561: 04,2400           54103                           TS       ERCNT                                 #  ERCNT = COUNT
010763,000562: 04,2401           00004                           INHINT                                         
010764,000563: 04,2402           50103                           INDEX    ERCNT                                 
010765,000564: 04,2403           10307                           CCS      DSPTAB                                
010766,000565: 04,2404           67657                           AD       ONE                                   
010767,000566: 04,2405           02412                           TC       ERPLUS                                
010768,000567: 04,2406           67657                           AD       ONE                                   
010769,000568: 04,2407           40000        ERMINUS            CS       A                                     
010770,000569: 04,2410           72430                           MASK     NOTBIT12                              
010771,000570: 04,2411           02415                           TC       ERCOM                                 
010772,000571: 04,2412           40000        ERPLUS             CS       A                                     
010773,000572: 04,2413           72430                           MASK     NOTBIT12                              
010774,000573: 04,2414           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
010775,000574: 04,2415           50103        ERCOM              INDEX    ERCNT                                 #  ETC.
010776,000575: 04,2416           54307                           TS       DSPTAB                                
010777,000576: 04,2417           00003                           RELINT                                         
010778,000577: 04,2420           10103                           CCS      ERCNT                                 
010779,000578: 04,2421           02400                           TC       TSTAB      +1                         
010780,000579: 04,2422           37665                           CAF      ZERO                                  
010781,000580: 04,2423           55363                           TS       FAILREG                               
010782,000581: 04,2424           55364                           TS       SFAIL                                 
010783,000582: 04,2425           04421                           TC       ENDOFJOB                              
010784,000583: 
010785,000584: 04,2426           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
010786,000585:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
010787,000586: 04,2427           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
010788,000587: 04,2430           73777        NOTBIT12           OCT      73777                                 
010789,000588: 
010790,000589: 
010791,000590: 
010792,000591:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
010793,000592:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
010794,000593:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
010795,000594: 
010796,000595:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
010797,000596:                                                                                                  #  APPROPRIATE TO BE CLEARED.
010798,000597: 
010799,000598:                                                                                                  #  CLPASS      +0 PASS0, CAN BE BACKED UP
010800,000599:                                                                                                  #              +NZ HIPASS, CAN BE BACKED UP
010801,000600:                                                                                                  #              -NZ PASS0, CANNOT BE BACKED UP
010802,000601: 
010803,000602: 
010804,000603: 04,2431           10264        CLEAR              CCS      DSPCOUNT                              
010805,000604: 04,2432           67657                           AD       ONE                                   
010806,000605: 04,2433           02435                           TC       +2                                    
010807,000606: 04,2434           67657                           AD       ONE                                   
010808,000607: 04,2435           54264                           TS       DSPCOUNT                              #  MAG OF DSPCOUNT
010809,000608: 04,2436           02205                           TC       GETINREL                              #  MUST SET INREL, EVEN FOR HIPASS
010810,000609: 04,2437           10302                           CCS      CLPASS                                
010811,000610: 04,2440           02446                           TC       CLPASHI                               #  +
010812,000611: 04,2441           02443                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
010813,000612: 04,2442           02443                           TC       +1                                    #  -
010814,000613: 04,2443           30123                           CA       INREL                                 
010815,000614: 04,2444           02470                           TC       LEGALTST                              
010816,000615: 04,2445           02463                           TC       CLEAR1                                
010817,000616: 04,2446           10123        CLPASHI            CCS      INREL                                 
010818,000617: 04,2447           54123                           TS       INREL                                 
010819,000618: 04,2450           02470                           TC       LEGALTST                              
010820,000619: 04,2451           32537                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
010821,000620: 04,2452           26300                           ADS      REQRET                                
010822,000621: 04,2453           30123                           CA       INREL                                 
010823,000622: 04,2454           54111                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
010824,000623: 04,2455           00006                           EXTEND                                         
010825,000624: 04,2456           26266                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
010826,000625: 04,2457           04065                           TC       BANKCALL                              
010827,000626: 04,2460           12315                           CADR     UPDATVB                               
010828,000627: 04,2461           30111                           CA       MIXTEMP                               
010829,000628: 04,2462           54123                           TS       INREL                                 #  RESTORE INREL
010830,000629: 04,2463           02466        CLEAR1             TC       CLR5                                  
010831,000630: 04,2464           24302                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
010832,000631: 04,2465           04421                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
010833,000632: 04,2466           22002        CLR5               LXCH     Q                                     #  USES 5BLANK BUT AVOIDS ITS TC GETINREL
010834,000633: 04,2467           02500                           TC       5BLANK     +2                         
010835,000634: 04,2470           67670        LEGALTST           AD       NEG2                                  
010836,000635: 04,2471           10000                           CCS      A                                     
010837,000636: 04,2472           00002                           TC       Q                                     #  LEGAL         INREL G/ 2
010838,000637: 04,2473           05456                           TC       CCSHOLE                               
010839,000638: 04,2474           04421                           TC       ENDOFJOB                              #  ILLEGAL       INREL= 0,1
010840,000639: 04,2475           00002                           TC       Q                                     #  LEGAL        INREL = 2
010841,000640: 
010842,000641: 
010843,000642: 
010844,000643:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
010845,000644:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
010846,000645:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
010847,000646: 
010848,000647: 04,2476           22002        5BLANK             LXCH     Q                                     
010849,000648: 04,2477           02205                           TC       GETINREL                              
010850,000649: 04,2500           37665                           CAF      ZERO                                  
010851,000650: 04,2501           50123                           INDEX    INREL                                 
010852,000651: 04,2502           54266                           TS       VERBREG                               #  ZERO X, Y, Z REG.
010853,000652: 04,2503           50123                           INDEX    INREL                                 
010854,000653: 
010855,000654: 
010856,000655: 04,2504           54271                           TS       XREGLP     -2                         
010857,000656: 04,2505           54110                           TS       CODE                                  
010858,000657: 04,2506           50123                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
010859,000658: 04,2507           47651                           CS       BIT7                                  #  PROTECT OTHERS
010860,000659: 04,2510           70265                           MASK     DECBRNCH                              
010861,000660: 04,2511           72540                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
010862,000661: 04,2512           54265                           TS       DECBRNCH                              
010863,000662: 04,2513           50123                           INDEX    INREL                                 
010864,000663: 04,2514           32530                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
010865,000664: 04,2515           54127                           TS       COUNT                                 
010866,000665: 04,2516           03201                           TC       DSPIN                                 
010867,000666: 04,2517           50123        5BLANK1            INDEX    INREL                                 
010868,000667: 04,2520           32533                           CAF      DOUBLK     -2                         
010869,000668: 04,2521           54264                           TS       DSPCOUNT                              
010870,000669: 04,2522           02541                           TC       2BLANK                                
010871,000670: 04,2523           47656                           CS       TWO                                   
010872,000671: 04,2524           26264                           ADS      DSPCOUNT                              
010873,000672: 04,2525           02541                           TC       2BLANK                                
010874,000673: 04,2526           50123                           INDEX    INREL                                 
010875,000674: 04,2527           35165                           CAF      R1D1       -2                         
010876,000675: 04,2530           54264                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
010877,000676: 04,2531           00001                           TC       L                                     #  OF REG. JUST BLANKED
010878,000677: 
010879,000678: 04,2532           00016        SINBLANK           OCT      16                                    #  DEC 14
010880,000679: 04,2533           00005                           OCT      5                                     
010881,000680: 04,2534           00004                           OCT      4                                     
010882,000681: 04,2535           00015        DOUBLK             OCT      15                                    #  DEC 13
010883,000682: 04,2536           00011                           OCT      11                                    #  DEC 9
010884,000683: 04,2537           00003                           OCT      3                                     
010885,000684: 
010886,000685: 04,2540           77774        BRNCHCON           OCT      77774                                 
010887,000686: 
010888,000687:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR  OF THE PAIR INTO
010889,000688:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
010890,000689: 
010891,000690: 04,2541           30264        2BLANK             CA       DSPCOUNT                              
010892,000691: 04,2542           54021                           TS       SR                                    
010893,000692: 04,2543           42554                           CS       BLANKCON                              
010894,000693: 04,2544           00004                           INHINT                                         
010895,000694: 04,2545           50021                           INDEX    SR                                    
010896,000695: 04,2546           56307                           XCH      DSPTAB                                
010897,000696: 04,2547           00006                           EXTEND                                         
010898,000697: 04,2550           62552                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
010899,000698: 04,2551           24303                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
010900,000699: 04,2552           00003                           RELINT                                         #  IF -, NOUT OK
010901,000700: 04,2553           00002                           TC       Q                                     
010902,000701: 04,2554           04000        BLANKCON           OCT      4000                                  
010903,000702: 
010904,000703: 
010905,000704:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
010906,000705:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
010907,000706:                                                                                                  #  PASSES.
010908,000707: 
010909,000708: 
010910,000709: 
010911,000710:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
010912,000711:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
010913,000712:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
010914,000713: 
010915,000714: 
010916,000715: 
010917,000716: 05,2000                                           SETLOC   22000                                 
010918,000717: 
010919,000718: 05,2000           03344        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
010920,000719: 05,2001           13403        DSPMM              TCF      DSPMM1                                
010921,000720: 05,2002           02663        LOADLV1            TC       LOADLV                                
010922,000721:                                                                                                  #  END OF STANDARD LEAD INS.
010923,000722: 
010924,000723: 
010925,000724: 
010926,000725: 05,2003           37665        ENTER              CAF      ZERO                                  
010927,000726: 05,2004           54302                           TS       CLPASS                                
010928,000727: 05,2005           35142                           CAF      ENDINST                               
010929,000728: 05,2006           54122                           TS       ENTRET                                
010930,000729: 05,2007           10300                           CCS      REQRET                                
010931,000730: 05,2010           02031                           TC       ENTPAS0                               #  IF +, PASS 0
010932,000731: 05,2011           02031                           TC       ENTPAS0                               #  IF +, PASS 0
010933,000732: 05,2012           02013                           TC       +1                                    #  IF -, NOT PASS 0
010934,000733: 05,2013           36165                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN,
010935,000734: 05,2014           70265                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
010936,000735: 05,2015           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
010937,000736: 05,2016           02020                           TC       +2                                    #  CHARACTERS AND CONTINUE.
010938,000737: 05,2017           02024                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
010939,000738: 05,2020           10264                           CCS      DSPCOUNT                              
010940,000739: 05,2021           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
010941,000740: 05,2022           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
010942,000741: 05,2023           02024                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
010943,000742: 05,2024           40300        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
010944,000743: 05,2025           54300                           TS       REQRET                                #  SET REQRET +.
010945,000744: 05,2026           05272                           TC       FLASHOFF                              
010946,000745: 05,2027           00300                           TC       REQRET                                
010947,000746: 
010948,000747: 05,2030     0122               ENTEXIT            =        ENTRET                                
010949,000748: 
010950,000749: 05,2030           00030        LOWVERB            OCT      30                                    #  LOWER VERB THAT AVOIDS NOUN TEST
010951,000750: 
010952,000751: 05,2031           37665        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
010953,000752: 05,2032           54265                           TS       DECBRNCH                              
010954,000753: 05,2033           40266        TESTVB             CS       VERBREG                               #  IF VERB IS 30-77, SKIP NOUN TEST
010955,000754: 
010956,000755: 
010957,000756: 05,2034           62030                           AD       LOWVERB                               #  30-VB
010958,000757: 05,2035           00006                           EXTEND                                         
010959,000758: 05,2036           62116                           BZMF     VERBFAN                               #  VERB G/ E 30
010960,000759: 05,2037           00006        TESTNN             EXTEND                                         #  VERB L/ 30
010961,000760: 05,2040           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010962,000761: 05,2041           52006                           DXCH     Z                                     #  ROUTINE.
010963,000762: 05,2042           50124                           INDEX    MIXBR                                 
010964,000763: 05,2043           02043                           TC       +0                                    
010965,000764: 05,2044           02046                           TC       +2                                    #  NORMAL
010966,000765: 05,2045           02176                           TC       MIXNOUN                               #  MIXED
010967,000766: 05,2046           10132                           CCS      NNADTEM                               #  NORMAL
010968,000767: 05,2047           02114                           TC       VERBFAN    -2                         #        NORMAL  IF +
010969,000768: 05,2050           02324                           TC       GODSPALM                              #  NOT IN USE     IF +0
010970,000769: 05,2051           02055                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
010971,000770: 05,2052           24304                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
010972,000771: 05,2053           05161                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010973,000772: 05,2054           02102                           TC       INTMCTBS   +2                         
010974,000773: 05,2055           37641        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010975,000774: 05,2056           54302                           TS       CLPASS                                
010976,000775: 05,2057           45142                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
010977,000776: 05,2060           60122                           AD       ENTEXIT                               #              FROM EXTERNAL
010978,000777: 05,2061           00006                           EXTEND                                         
010979,000778: 05,2062           12064                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
010980,000779: 05,2063           02100                           TC       INTMCTBS                              
010981,000780: 05,2064           02256                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
010982,000781: 05,2065           10265                           CCS      DECBRNCH                              
010983,000782: 05,2066           02324                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MCTBS
010984,000783: 05,2067           56272                           XCH      ZREG                                  #  OCTAL USED    OK
010985,000784: 05,2070           05153                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
010986,000785: 05,2071           00006                           EXTEND                                         
010987,000786: 05,2072           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010988,000787: 05,2073           52006                           DXCH     Z                                     #  ROUTINE.
010989,000788: 05,2074           02116                           TC       VERBFAN                               
010990,000789: 
010991,000790: 05,2075     0264                                  EBANK=   DSPCOUNT                              
010992,000791: 05,2075           02000 34000  LODNNLOC           2CADR    LODNNTAB                              
010993,000792: 
010994,000793: 05,2077           77772        NEG5               OCT      77772                                 
010995,000794: 
010996,000795: 05,2100           30142        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
010997,000796: 05,2101           05153                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
010998,000797: 05,2102           47654                           CS       BIT4                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
010999,000798: 05,2103           70266                           MASK     VERBREG                               #  CADR TO BE SPECIFIED.
011000,000799: 05,2104           62077                           AD       NEG5                                  #  MASKING MAKES VB15 LOOK LIKE VB05.
011001,000800: 05,2105           00006                           EXTEND                                         
011002,000801: 05,2106           12116                           BZF      VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY CADR.
011003,000802: 05,2107           35171                           CAF      R3D1                                  #  VB NOT = 05 OR 15, DISPLAY CADR.
011004,000803: 05,2110           54264                           TS       DSPCOUNT                              
011005,000804: 05,2111           30304                           CA       NOUNCADR                              
011006,000805: 05,2112           03222                           TC       DSPOCTWD                              
011007,000806: 
011008,000807: 
011009,000808: 05,2113           02116                           TC       VERBFAN                               
011010,000809: 
011011,000810: 05,2114           67657                           AD       ONE                                   
011012,000811: 05,2115           05153                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
011013,000812: 05,2116           42131        VERBFAN            CS       LST2CON                               
011014,000813: 05,2117           60266                           AD       VERBREG                               #  VERB-LST2CON
011015,000814: 05,2120           10000                           CCS      A                                     
011016,000815: 05,2121           67657                           AD       ONE                                   #  VERB G/ LST2CON
011017,000816: 05,2122           02124                           TC       +2                                    
011018,000817: 05,2123           02133                           TC       VBFANDIR                              #  VERB L/ LST2CON
011019,000818: 05,2124           54140                           TS       MPAC                                  
011020,000819: 05,2125           05333                           TC       RELDSP                                #  RELEASE DISPLAY SYST
011021,000820: 05,2126           56140                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
011022,000821: 05,2127           62132                           AD       LST2CADR                              
011023,000822: 05,2130           04107                           TC       BANKJUMP                              
011024,000823: 05,2131           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
011025,000824: 05,2132           22000        LST2CADR           CADR     LST2FAN                               
011026,000825: 
011027,000826: 05,2133           50266        VBFANDIR           INDEX    VERBREG                               
011028,000827: 05,2134           32136                           CAF      VERBTAB                               
011029,000828: 05,2135           04107                           TC       BANKJUMP                              
011030,000829: 
011031,000830: 05,2136           12324        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
011032,000831: 05,2137           12340                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
011033,000832: 05,2140           12345                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
011034,000833: 05,2141           12352                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
011035,000834: 05,2142           12333                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
011036,000835: 05,2143           12326                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
011037,000836: 05,2144           12445                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
011038,000837: 05,2145           10704                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
011039,000838: 05,2146           11277                           CADR     DSPALARM                              #  VB10 SPARE
011040,000839: 05,2147           13077                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
011041,000840: 05,2150           13077                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
011042,000841: 05,2151           13077                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
011043,000842: 05,2152           13077                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
011044,000843: 05,2153           13077                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
011045,000844: 05,2154           13077                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
011046,000845: 05,2155           13077                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
011047,000846: 05,2156           12324                           CADR     GODSPALM                              #  VB20 SPARE
011048,000847: 05,2157           12620                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
011049,000848: 05,2160           12631                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
011050,000849: 05,2161           12646                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
011051,000850: 05,2162           12572                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
011052,000851: 05,2163           12535                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
011053,000852: 05,2164           12324                           CADR     GODSPALM                              #  VB26 SPARE
011054,000853: 05,2165           13214                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
011055,000854:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
011056,000855: 05,2166           13314        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
011057,000856: 05,2167           13340                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
011058,000857: 05,2170           11332                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2
011059,000858: 
011060,000859: 
011061,000860: 05,2171           11310                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
011062,000861: 05,2172           11315                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
011063,000862: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
011064,000863: 05,2174           24000                           CADR     SLAP1                                 #  VB36 FRESH START
011065,000864: 05,2175           13267        ENDVBFAN           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
011066,000865: 
011067,000866: 
011068,000867: 
011069,000868:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
011070,000869: 
011071,000870: 
011072,000871: 
011073,000872:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
011074,000873:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
011075,000874:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
011076,000875:                                                                                                  #   MIXTEMP.
011077,000876: 
011078,000877: 05,2176           10132        MIXNOUN            CCS      NNADTEM                               
011079,000878: 05,2177           02203                           TC       +4                                    #  + IN USE
011080,000879: 05,2200           02324                           TC       GODSPALM                              #  +0 NOT IN USE
011081,000880: 05,2201           02203                           TC       +2                                    #  - IN USE
011082,000881: 05,2202           02203                           TC       +1                                    #  -0 IN USE
011083,000882: 05,2203           46162                           CS       SIX                                   
011084,000883: 05,2204           60266                           AD       VERBREG                               
011085,000884: 05,2205           00006                           EXTEND                                         
011086,000885: 05,2206           62210                           BZMF     +2                                    #  VERB L/E 6
011087,000886: 05,2207           02116                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
011088,000887: 05,2210           37656                           CAF      TWO                                   
011089,000888: 05,2211           54103        MIXNN1             TS       DECOUNT                               
011090,000889: 05,2212           62235                           AD       MIXAD                                 
011091,000890: 05,2213           54131                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
011092,000891: 05,2214           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
011093,000892: 05,2215           30134                           CA       IDAD1TEM                              #  OF NOUN.
011094,000893: 05,2216           54106                           TS       NOUNTEM                               
011095,000894:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
011096,000895:                                                                                                  #    MINOR PART ONLY.
011097,000896: 05,2217           02721                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
011098,000897: 05,2220           02236                           TC       DPTEST                                
011099,000898: 05,2221           02223                           TC       MIXNN2                                #  NO DP
011100,000899: 05,2222           24106                           INCR     NOUNTEM                               #  DP GET MINOR PART
011101,000900: 05,2223           30106        MIXNN2             CA       NOUNTEM                               
011102,000901: 05,2224           75226                           MASK     LOW11                                 #  ESUBK (NO DP) OR (ESUBK)+1     FOR DP
011103,000902: 05,2225           05163                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
011104,000903: 05,2226           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
011105,000904: 05,2227           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
011106,000905: 05,2230           50131                           INDEX    NOUNADD                               
011107,000906: 05,2231           56000                           XCH      0                                     #  STORE IN MIXTEM + K
011108,000907: 05,2232           10103                           CCS      DECOUNT                               
011109,000908: 05,2233           02211                           TC       MIXNN1                                
011110,000909: 05,2234           02116                           TC       VERBFAN                               
011111,000910: 
011112,000911: 05,2235           00111        MIXAD              TC       MIXTEMP                               
011113,000912: 
011114,000913: 
011115,000914: 
011116,000915:                                                                                                  #  DPTEST   ENTER WITH SF ROUT NUMBER IN A.
011117,000916:                                                                                                  #           RETURNS TO L+1 IF NO DP.
011118,000917:                                                                                                  #           RETURNS TO L+2 IF DP.
011119,000918: 
011120,000919: 05,2236           50000        DPTEST             INDEX    A                                     
011121,000920: 05,2237           12240                           TCF      +1                                    
011122,000921: 05,2240           00002                           TC       Q                                     #  OCTAL ONLY NO DP
011123,000922: 
011124,000923: 
011125,000924: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
011126,000925: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
011127,000926: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
011128,000927: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
011129,000928: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
011130,000929: 05,2246           00002                           TC       Q                                     #  OPDEG  NO DP
011131,000930: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
011132,000931: 05,2250           50002        DPTEST1            INDEX    Q                                     
011133,000932: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
011134,000933: 
011135,000934: 
011136,000935: 
011137,000936: 05,2252           35167        REQDATX            CAF      R1D1                                  
011138,000937: 05,2253           12257                           TCF      REQCOM                                
011139,000938: 05,2254           35170        REQDATY            CAF      R2D1                                  
011140,000939: 05,2255           12257                           TCF      REQCOM                                
011141,000940: 05,2256           35171        REQDATZ            CAF      R3D1                                  
011142,000941: 05,2257           54264        REQCOM             TS       DSPCOUNT                              
011143,000942: 05,2260           40002                           CS       Q                                     
011144,000943: 05,2261           54300                           TS       REQRET                                
011145,000944: 05,2262           04065                           TC       BANKCALL                              
011146,000945: 05,2263           10476                           CADR     5BLANK                                
011147,000946: 05,2264           05266                           TC       FLASHON                               
011148,000947: 05,2265           45142                           CS       ENDINST                               
011149,000948: 05,2266           60122                           AD       ENTEXIT                               
011150,000949: 05,2267           00006                           EXTEND                                         
011151,000950: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
011152,000951: 05,2271           47665                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
011153,000952: 05,2272           54323                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
011154,000953: 05,2273           00122        ENDRQDAT           TC       ENTEXIT                               
011155,000954: 
011156,000955:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
011157,000956:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
011158,000957: 
011159,000958: 
011160,000959: 05,2274           54267                           TS       NOUNREG                               
011161,000960: 05,2275           56002        UPDATNN            XCH      Q                                     
011162,000961: 05,2276           54103                           TS       UPDATRET                              
011163,000962: 05,2277           00006                           EXTEND                                         
011164,000963: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
011165,000964: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
011166,000965: 05,2302           10132                           CCS      NNADTEM                               
011167,000966: 05,2303           67657                           AD       ONE                                   #  NORMAL
011168,000967: 05,2304           12307                           TCF      PUTADD                                
011169,000968: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
011170,000969: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
011171,000970: 05,2307           05153        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
011172,000971: 05,2310           35232                           CAF      ND1                                   
011173,000972: 05,2311           54264                           TS       DSPCOUNT                              
011174,000973: 
011175,000974: 
011176,000975: 05,2312           30267                           CA       NOUNREG                               
011177,000976: 05,2313           12322                           TCF      UPDAT1                                
011178,000977: 
011179,000978: 05,2314           54266                           TS       VERBREG                               
011180,000979: 05,2315           56002        UPDATVB            XCH      Q                                     
011181,000980: 05,2316           54103                           TS       UPDATRET                              
011182,000981: 05,2317           35231                           CAF      VD1                                   
011183,000982: 05,2320           54264                           TS       DSPCOUNT                              
011184,000983: 05,2321           30266                           CA       VERBREG                               
011185,000984: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
011186,000985: 05,2323           00103                           TC       UPDATRET                              
011187,000986: 
011188,000987: 
011189,000988: 
011190,000989: 05,2324           04104        GODSPALM           TC       POSTJUMP                              
011191,000990: 05,2325           11277                           CADR     DSPALARM                              
011192,000991: 
011193,000992: 
011194,000993:                                                                                                  #           NOUN TABLES
011195,000994:                                                                                                  #  NOUN CODE L/55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
011196,000995:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR    FOR EACH NOUN.
011197,000996:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
011198,000997:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
011199,000998:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
011200,000999: 
011201,001000:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
011202,001001:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
011203,001002: 
011204,001003:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
011205,001004: 
011206,001005:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
011207,001006:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
011208,001007:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
011209,001008: 
011210,001009:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
011211,001010:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
011212,001011:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
011213,001012:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
011214,001013:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
011215,001014:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
011216,001015: 
011217,001016:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
011218,001017:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
011219,001018:                                                                                                  #  THE FIRST OF THESE ENTRIES.
011220,001019:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
011221,001020:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
011222,001021: 
011223,001022:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
011224,001023:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
011225,001024:                                                                                                  #        QQQQQRRRRRSSSSS
011226,001025:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
011227,001026:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
011228,001027:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
011229,001028:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
011230,001029:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
011231,001030: 
011232,001031:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
011233,001032:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
011234,001033:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
011235,001034:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
011236,001035:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
011237,001036: 
011238,001037: 
011239,001038: 
011240,001039:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
011241,001040:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
011242,001041: 
011243,001042: 
011244,001043:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
011245,001044:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
011246,001045: 
011247,001046: 
011248,001047:                                                                                                  #           DISPLAY VERBS
011249,001048: 05,2326           47656        DSPABC             CS       TWO                                   
011250,001049: 05,2327           02376                           TC       COMPTEST                              
011251,001050: 05,2330           50131                           INDEX    NOUNADD                               
011252,001051: 05,2331           40002                           CS       2                                     
011253,001052: 05,2332           56116                           XCH      BUF        +2                         
011254,001053: 05,2333           47657        DSPAB              CS       ONE                                   
011255,001054: 05,2334           02376                           TC       COMPTEST                              
011256,001055: 05,2335           50131                           INDEX    NOUNADD                               
011257,001056: 05,2336           40001                           CS       1                                     
011258,001057: 05,2337           56115                           XCH      BUF        +1                         
011259,001058: 05,2340           02420        DSPA               TC       TSTFORDP                              
011260,001059: 05,2341           50131                           INDEX    NOUNADD                               
011261,001060: 05,2342           40000                           CS       0                                     
011262,001061: 05,2343           56114        DSPCOM1            XCH      BUF                                   
011263,001062: 05,2344           02357                           TC       DSPCOM2                               
011264,001063: 05,2345           47657        DSPB               CS       ONE                                   
011265,001064: 05,2346           02376                           TC       COMPTEST                              
011266,001065: 05,2347           50131                           INDEX    NOUNADD                               
011267,001066: 05,2350           40001                           CS       1                                     
011268,001067: 05,2351           02343                           TC       DSPCOM1                               
011269,001068: 05,2352           47656        DSPC               CS       TWO                                   
011270,001069: 05,2353           02376                           TC       COMPTEST                              
011271,001070: 05,2354           50131                           INDEX    NOUNADD                               
011272,001071: 05,2355           40002                           CS       2                                     
011273,001072: 05,2356           02343                           TC       DSPCOM1                               
011274,001073: 05,2357           47656        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
011275,001074: 05,2360           60266                           AD       VERBREG                               #  -1 -0 +1 +2 +3   IN A
011276,001075: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1 +2    IN A AFTER CCS
011277,001076: 05,2362           02365                           TC       DSPCOM3                               
011278,001077: 05,2363           00122                           TC       ENTEXIT                               
011279,001078: 05,2364           02365                           TC       +1                                    
011280,001079: 05,2365           54106        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
011281,001080: 05,2366           50000                           INDEX    A                                     
011282,001081: 05,2367           35167                           CAF      R1D1                                  
011283,001082: 05,2370           54264                           TS       DSPCOUNT                              
011284,001083: 05,2371           50106                           INDEX    DISTEM                                
011285,001084: 05,2372           40114                           CS       BUF                                   
011286,001085: 05,2373           03222                           TC       DSPOCTWD                              
011287,001086: 05,2374           56106                           XCH      DISTEM                                
011288,001087: 05,2375           02361                           TC       DSPCOM2    +2                         
011289,001088: 
011290,001089:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
011291,001090:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
011292,001091:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
011293,001092: 05,2376           54107        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
011294,001093: 05,2377           22002                           LXCH     Q                                     
011295,001094: 05,2400           47657        COMPTST1           CS       ONE                                   
011296,001095: 05,2401           60267                           AD       NOUNREG                               
011297,001096: 05,2402           00006                           EXTEND                                         
011298,001097: 
011299,001098: 
011300,001099: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
011301,001100: 05,2404           50124                           INDEX    MIXBR                                 #  NOUN NOT = 01.
011302,001101: 05,2405           32442                           CAF      COMPICK    -1                         
011303,001102: 05,2406           50000                           INDEX    A                                     
011304,001103: 05,2407           30000                           CA       0                                     
011305,001104: 05,2410           75220                           MASK     HI5                                   
011306,001105: 05,2411           05201                           TC       LEFT5                                 #  NOUN COMP
011307,001106: 05,2412           60107                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
011308,001107: 05,2413           10000                           CCS      A                                     
011309,001108: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
011310,001109: 05,2415           05456                           TC       CCSHOLE                               
011311,001110: 05,2416           02324                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
011312,001111: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
011313,001112: 
011314,001113: 
011315,001114: 
011316,001115: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
011317,001116: 05,2421           30132                           CA       NNADTEM                               
011318,001117: 05,2422           67657                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
011319,001118: 05,2423           00006                           EXTEND                                         
011320,001119: 05,2424           12436                           BZF      CHANDSP                               
011321,001120: 05,2425           50124                           INDEX    MIXBR                                 
011322,001121: 05,2426           02426                           TC       +0                                    
011323,001122: 05,2427           02431                           TC       +2                                    #  NORMAL
011324,001123: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
011325,001124: 05,2431           02713                           TC       SFRUTNOR                              
011326,001125: 05,2432           02236                           TC       DPTEST                                
011327,001126: 05,2433           00001                           TC       L                                     #  NO DP
011328,001127: 05,2434           24131                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
011329,001128: 05,2435           00001                           TC       L                                     
011330,001129: 
011331,001130: 
011332,001131: 
011333,001132: 05,2436           00006        CHANDSP            EXTEND                                         
011334,001133: 05,2437           50304                           INDEX    NOUNCADR                              
011335,001134: 05,2440           00000                           READ     0                                     
011336,001135: 05,2441           40000                           CS       A                                     
011337,001136: 05,2442           12343                           TCF      DSPCOM1                               
011338,001137: 
011339,001138: 
011340,001139: 
011341,001140: 05,2443           00133        COMPICK            ADRES    NNTYPTEM                              
011342,001141: 05,2444           00132                           ADRES    NNADTEM                               
011343,001142: 
011344,001143: 05,2445           50124        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
011345,001144: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
011346,001145: 05,2447           50000                           INDEX    A                                     
011347,001146: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
011348,001147: 05,2451           75220                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
011349,001148: 05,2452           05201                           TC       LEFT5                                 
011350,001149: 
011351,001150: 
011352,001151: 05,2453           54103                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
011353,001152: 05,2454           54106        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
011354,001153: 05,2455           60131                           AD       NOUNADD                               #  DECTEM 1COMP +0, 2COMP +1, 3COMP +2
011355,001154: 05,2456           50000                           INDEX    A                                     
011356,001155: 05,2457           40000                           CS       0                                     
011357,001156: 05,2460           50106                           INDEX    DECTEM                                
011358,001157: 05,2461           56270                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
011359,001158: 05,2462           10106                           CCS      DECTEM                                
011360,001159: 05,2463           02454                           TC       DSPDCGET                              #  MORE TO GET
011361,001160: 05,2464           37665        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
011362,001161: 05,2465           54141                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
011363,001162: 05,2466           54142                           TS       MPAC       +2                         
011364,001163: 05,2467           50103                           INDEX    DECOUNT                               
011365,001164: 05,2470           35167                           CAF      R1D1                                  
011366,001165: 05,2471           54264                           TS       DSPCOUNT                              
011367,001166: 05,2472           50103                           INDEX    DECOUNT                               
011368,001167: 05,2473           40270                           CS       XREG                                  
011369,001168: 05,2474           54140                           TS       MPAC                                  
011370,001169: 05,2475           02734                           TC       SFCONUM                               #  2X ( SF CON NUMB ) IN A
011371,001170: 05,2476           54107                           TS       SFTEMP1                               
011372,001171: 05,2477           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
011373,001172: 05,2500           32512                           DCA      GTSFOUTL                              #     READING ROUTINE.
011374,001173: 05,2501           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
011375,001174: 05,2502           50124                           INDEX    MIXBR                                 
011376,001175: 05,2503           02503                           TC       +0                                    
011377,001176: 05,2504           02507                           TC       DSPSFNOR                              
011378,001177: 05,2505           02721                           TC       SFRUTMIX                              
011379,001178: 05,2506           02522                           TC       DECDSP3                               
011380,001179: 
011381,001180: 05,2507           02713        DSPSFNOR           TC       SFRUTNOR                              
011382,001181: 05,2510           02522                           TC       DECDSP3                               
011383,001182: 
011384,001183: 05,2511     0264                                  EBANK=   DSPCOUNT                              
011385,001184: 05,2511           02037 34000  GTSFOUTL           2CADR    GTSFOUT                               
011386,001185: 
011387,001186: 05,2513           04065        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
011388,001187: 05,2514           11101                           CADR     DSPDECWD                              
011389,001188: 05,2515           10103                           CCS      DECOUNT                               
011390,001189: 05,2516           02520                           TC       +2                                    
011391,001190: 05,2517           00122                           TC       ENTEXIT                               
011392,001191: 05,2520           54103                           TS       DECOUNT                               
011393,001192: 05,2521           02464                           TC       DSPDCPUT                              #  MORE TO DISPLAY
011394,001193: 
011395,001194: 05,2522           50000        DECDSP3            INDEX    A                                     
011396,001195: 05,2523           32525                           CAF      SFOUTABR                              
011397,001196: 05,2524           04107                           TC       BANKJUMP                              
011398,001197: 
011399,001198: 
011400,001199: 05,2525           11277        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
011401,001200: 05,2526           12513                           CADR     DSPDCEND                              
011402,001201: 05,2527           10555                           CADR     DEGOUTSF                              
011403,001202: 05,2530           10642                           CADR     ARTOUTSF                              
011404,001203: 05,2531           10647                           CADR     DP1OUTSF                              
011405,001204: 05,2532           10654                           CADR     DP2OUTSF                              
011406,001205: 05,2533           10563                           CADR     OPDEGOUT                              
011407,001206: 05,2534           10656                           CADR     DP3OUTSF                              
011408,001207: 05,2535                        ENDRTOUT           EQUALS                                         
011409,001208: 
011410,001209: 
011411,001210: 
011412,001211:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
011413,001212:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
011414,001213: 
011415,001214: 
011416,001215: 
011417,001216: 04,2555                                           SETLOC   BLANKCON   +1                         
011418,001217: 
011419,001218:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
011420,001219:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
011421,001220: 
011422,001221: 04,2555           37665        DEGOUTSF           CAF      ZERO                                  
011423,001222: 04,2556           54142                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
011424,001223: 04,2557           02614                           TC       FIXRANGE                              
011425,001224: 04,2560           02562                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
011426,001225: 04,2561           02607                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
011427,001226: 04,2562           02625                           TC       DEGCOM                                
011428,001227: 
011429,001228:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
011430,001229: 
011431,001230: 04,2563           10140        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
011432,001231: 04,2564           56140                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
011433,001232: 04,2565           02570                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
011434,001233: 04,2566           02577                           TC       NEGOPT                                #  IF NEG NON ZERO
011435,001234: 04,2567           67667                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
011436,001235: 04,2570           62641                           AD       20BIAS                                
011437,001236: 04,2571           54140        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
011438,001237: 04,2572           02575                           TC       +3                                    #  NO OVFLOW
011439,001238: 04,2573           37641                           CAF      BIT15                                 #  IF OVFLOW
011440,001239: 04,2574           26140                           ADS      MPAC                                  
011441,001240: 04,2575           37656                           CAF      TWO                                   #  SET MULTIPLIER TO .45
011442,001241: 04,2576           02556                           TC       DEGOUTSF   +1                         
011443,001242: 
011444,001243: 04,2577           56140        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
011445,001244: 04,2600           62641                           AD       20BIAS                                
011446,001245: 04,2601           10000                           CCS      A                                     
011447,001246: 04,2602           02571                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
011448,001247: 04,2603           05456                           TC       CCSHOLE                               
011449,001248: 04,2604           67657                           AD       ONE                                   #  IF NEG RESTORE SUM
011450,001249: 
011451,001250: 
011452,001251: 04,2605           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
011453,001252: 04,2606           02571                           TC       BIASCOM                               
011454,001253: 
011455,001254: 04,2607           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
011456,001255: 04,2610           50142                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
011457,001256: 04,2611           32636                           DCA      DEGTAB                                
011458,001257: 04,2612           52110                           DXCH     SFTEMP1                               
011459,001258: 04,2613           00002                           TC       Q                                     
011460,001259: 
011461,001260: 04,2614           10140        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
011462,001261: 04,2615           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
011463,001262: 04,2616           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
011464,001263: 04,2617           12620                           TCF      +1                                    
011465,001264: 04,2620           47641                           CS       BIT15                                 
011466,001265: 04,2621           70140                           MASK     MPAC                                  
011467,001266: 04,2622           54140                           TS       MPAC                                  
011468,001267: 04,2623           50002                           INDEX    Q                                     
011469,001268: 04,2624           00001                           TC       1                                     
011470,001269: 
011471,001270: 04,2625           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
011472,001271: 04,2626           50142                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
011473,001272: 04,2627           32636                           DCA      DEGTAB                                
011474,001273: 04,2630           52141                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
011475,001274: 04,2631           07266                           TC       SHORTMP                               
011476,001275: 04,2632           52110                           DXCH     SFTEMP1                               
011477,001276: 04,2633           20141                           DAS      MPAC                                  
011478,001277: 04,2634           02645                           TC       SCOUTEND                              
011479,001278: 
011480,001279: 04,2635           05605        DEGTAB             OCT      05605                                 #  HI PART OF    .18
011481,001280: 04,2636           03656                           OCT      03656                                 #  LOW PART OF   .18
011482,001281: 04,2637           16314                           OCT      16314                                 #  HI PART OF    .45
011483,001282: 04,2640           31463                           OCT      31463                                 #  LO PART OF    .45
011484,001283: 
011485,001284: 04,2641           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
011486,001285: 
011487,001286: 04,2642           52110        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
011488,001287: 04,2643           52141                           DXCH     MPAC                                  
011489,001288: 04,2644           07266                           TC       SHORTMP                               
011490,001289: 04,2645           04104        SCOUTEND           TC       POSTJUMP                              
011491,001290: 04,2646           12513                           CADR     DSPDCEND                              
011492,001291: 
011493,001292: 04,2647           02661        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
011494,001293: 04,2650           56142                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
011495,001294: 04,2651           56141                           XCH      MPAC       +1                         #  BY B14.
011496,001295: 04,2652           54140                           TS       MPAC                                  
011497,001296: 04,2653           02645                           TC       SCOUTEND                              
011498,001297: 
011499,001298: 
011500,001299: 04,2654           02661        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
011501,001300: 04,2655           02645                           TC       SCOUTEND                              
011502,001301: 
011503,001302: 
011504,001303: 
011505,001304: 04,2656           02661        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
011506,001305: 04,2657           03054                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
011507,001306: 04,2660           02645                           TC       SCOUTEND                              
011508,001307: 
011509,001308: 
011510,001309: 
011511,001310:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
011512,001311:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
011513,001312: 
011514,001313: 04,2661           56002        DPOUT              XCH      Q                                     
011515,001314: 04,2662           54105                           TS       OVFIND                                
011516,001315: 04,2663           50124                           INDEX    MIXBR                                 
011517,001316: 04,2664           02664                           TC       +0                                    
011518,001317: 04,2665           02702                           TC       DPOUTNOR                              
011519,001318: 04,2666           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
011520,001319: 04,2667           30134                           CA       IDAD1TEM                              #      OF NOUN.
011521,001320: 04,2670           75226                           MASK     LOW11                                 #  E SUBK
011522,001321: 04,2671           05163                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
011523,001322: 04,2672           00006        DPOUTCOM           EXTEND                                         
011524,001323: 04,2673           50000                           INDEX    A                                     #  MIXED         NORMAL
011525,001324: 04,2674           30001                           DCA      0                                     #  C(ESUBK)      C(E)
011526,001325: 04,2675           52141                           DXCH     MPAC                                  #  C((E SUBK)+1)      C(E+1)
011527,001326: 04,2676           07235                           TC       TPAGREE                               
011528,001327: 04,2677           07063                           TC       DMP                                   
011529,001328: 04,2700           00107                           ADRES    SFTEMP1                               
011530,001329: 04,2701           00105                           TC       OVFIND                                
011531,001330: 
011532,001331: 04,2702           30131        DPOUTNOR           CA       NOUNADD                               #  E
011533,001332: 04,2703           02672                           TC       DPOUTCOM                              
011534,001333: 
011535,001334: 
011536,001335: 
011537,001336:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
011538,001337:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
011539,001338:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
011540,001339:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
011541,001340:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
011542,001341:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
011543,001342: 
011544,001343: 
011545,001344: 
011546,001345: 04,2704           50124        DSPDPDEC           INDEX    MIXBR                                 
011547,001346: 04,2705           02705                           TC       +0                                    
011548,001347: 04,2706           02710                           TC       +2                                    #  NORMAL NOUN
011549,001348: 04,2707           03277                           TC       DSPALARM                              
011550,001349: 
011551,001350: 04,2710           00006                           EXTEND                                         
011552,001351: 04,2711           50131                           INDEX    NOUNADD                               
011553,001352: 04,2712           30001                           DCA      0                                     
011554,001353: 04,2713           52141                           DXCH     MPAC                                  
011555,001354: 04,2714           35167                           CAF      R1D1                                  
011556,001355: 04,2715           54264                           TS       DSPCOUNT                              
011557,001356: 04,2716           37665                           CAF      ZERO                                  
011558,001357: 04,2717           54142                           TS       MPAC       +2                         
011559,001358: 04,2720           07235                           TC       TPAGREE                               
011560,001359: 04,2721           03155                           TC       DSP2DEC                               
011561,001360: 04,2722           00122        ENDDPDEC           TC       ENTEXIT                               
011562,001361: 
011563,001362:                                                                                                  #           LOAD VERBS
011564,001363: 
011565,001364: 
011566,001365: 
011567,001366: 05,2535                                           SETLOC   ENDRTOUT                              
011568,001367: 
011569,001368: 05,2535           47656        ABCLOAD            CS       TWO                                   
011570,001369: 05,2536           02376                           TC       COMPTEST                              
011571,001370: 05,2537           32673                           CAF      VBSP1LD                               
011572,001371: 05,2540           02314                           TC       UPDATVB    -1                         
011573,001372: 05,2541           02252                           TC       REQDATX                               
011574,001373: 05,2542           32674                           CAF      VBSP2LD                               
011575,001374: 05,2543           02314                           TC       UPDATVB    -1                         
011576,001375: 05,2544           02254                           TC       REQDATY                               
011577,001376: 05,2545           32675                           CAF      VBSP3LD                               
011578,001377: 05,2546           02314                           TC       UPDATVB    -1                         
011579,001378: 05,2547           02256                           TC       REQDATZ                               
011580,001379: 
011581,001380: 
011582,001381: 
011583,001382: 05,2550           46162        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
011584,001383: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
011585,001384: 05,2552           00006                           EXTEND                                         
011586,001385: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
011587,001386: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
011588,001387: 05,2555           37665                           CAF      ZERO                                  #  X COMP
011589,001388: 05,2556           02762                           TC       PUTCOM                                
011590,001389: 05,2557           50131                           INDEX    NOUNADD                               
011591,001390: 05,2560           54000                           TS       0                                     
011592,001391: 05,2561           37657                           CAF      ONE                                   #  Y COMP
011593,001392: 05,2562           02762                           TC       PUTCOM                                
011594,001393: 05,2563           50131                           INDEX    NOUNADD                               
011595,001394: 05,2564           54001                           TS       1                                     
011596,001395: 05,2565           37656                           CAF      TWO                                   #  Z COMP
011597,001396: 05,2566           02762                           TC       PUTCOM                                
011598,001397: 05,2567           50131                           INDEX    NOUNADD                               
011599,001398: 05,2570           54002                           TS       2                                     
011600,001399: 05,2571           02663                           TC       LOADLV                                
011601,001400: 
011602,001401: 05,2572           47657        ABLOAD             CS       ONE                                   
011603,001402: 05,2573           02376                           TC       COMPTEST                              
011604,001403: 05,2574           32673                           CAF      VBSP1LD                               
011605,001404: 05,2575           02314                           TC       UPDATVB    -1                         
011606,001405: 05,2576           02252                           TC       REQDATX                               
011607,001406: 05,2577           32674                           CAF      VBSP2LD                               
011608,001407: 05,2600           02314                           TC       UPDATVB    -1                         
011609,001408: 05,2601           02254                           TC       REQDATY                               
011610,001409: 05,2602           47664        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
011611,001410: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
011612,001411: 05,2604           00006                           EXTEND                                         
011613,001412: 
011614,001413: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
011615,001414: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
011616,001415: 05,2607           37665                           CAF      ZERO                                  #  X COMP
011617,001416: 05,2610           02762                           TC       PUTCOM                                
011618,001417: 05,2611           50131                           INDEX    NOUNADD                               
011619,001418: 05,2612           54000                           TS       0                                     
011620,001419: 05,2613           37657                           CAF      ONE                                   #  Y COMP
011621,001420: 05,2614           02762                           TC       PUTCOM                                
011622,001421: 05,2615           50131                           INDEX    NOUNADD                               
011623,001422: 05,2616           54001                           TS       1                                     
011624,001423: 05,2617           02663                           TC       LOADLV                                
011625,001424: 
011626,001425: 05,2620           02252        ALOAD              TC       REQDATX                               
011627,001426: 05,2621           00006                           EXTEND                                         
011628,001427: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
011629,001428: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
011630,001429: 05,2624           37665                           CAF      ZERO                                  #  X COMP
011631,001430: 05,2625           02762                           TC       PUTCOM                                
011632,001431: 05,2626           50131                           INDEX    NOUNADD                               
011633,001432: 05,2627           54000                           TS       0                                     
011634,001433: 05,2630           02663                           TC       LOADLV                                
011635,001434: 
011636,001435: 05,2631           47657        BLOAD              CS       ONE                                   
011637,001436: 05,2632           02376                           TC       COMPTEST                              
011638,001437: 05,2633           37641                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
011639,001438: 05,2634           54302                           TS       CLPASS                                
011640,001439: 05,2635           02254                           TC       REQDATY                               
011641,001440: 05,2636           00006                           EXTEND                                         
011642,001441: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
011643,001442: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
011644,001443: 05,2641           37657                           CAF      ONE                                   
011645,001444: 05,2642           02762                           TC       PUTCOM                                
011646,001445: 05,2643           50131                           INDEX    NOUNADD                               
011647,001446: 05,2644           54001                           TS       1                                     
011648,001447: 05,2645           02663                           TC       LOADLV                                
011649,001448: 
011650,001449: 05,2646           47656        CLOAD              CS       TWO                                   
011651,001450: 05,2647           02376                           TC       COMPTEST                              
011652,001451: 05,2650           37641                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
011653,001452: 05,2651           54302                           TS       CLPASS                                
011654,001453: 05,2652           02256                           TC       REQDATZ                               
011655,001454: 05,2653           00006                           EXTEND                                         
011656,001455: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
011657,001456: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
011658,001457: 05,2656           37656                           CAF      TWO                                   
011659,001458: 05,2657           02762                           TC       PUTCOM                                
011660,001459: 05,2660           50131                           INDEX    NOUNADD                               
011661,001460: 05,2661           54002                           TS       2                                     
011662,001461: 05,2662           02663                           TC       LOADLV                                
011663,001462: 
011664,001463: 05,2663           37665        LOADLV             CAF      ZERO                                  
011665,001464: 05,2664           54265                           TS       DECBRNCH                              
011666,001465: 05,2665           47665                           CS       ZERO                                  
011667,001466: 05,2666           54301                           TS       LOADSTAT                              
011668,001467: 05,2667           45231                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
011669,001468: 05,2670           54264                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
011670,001469: 05,2671           04104                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
011671,001470: 05,2672           11427                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
011672,001471: 
011673,001472: 05,2673           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
011674,001473: 05,2674           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
011675,001474: 05,2675           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
011676,001475: 
011677,001476: 
011678,001477: 
011679,001478: 05,2676           54103        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
011680,001479: 05,2677           40265                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
011681,001480: 05,2700           54021                           TS       SR                                    
011682,001481: 05,2701           40021                           CS       SR                                    
011683,001482: 05,2702           40021                           CS       SR                                    #  SHIFTED RIGHT 2
011684,001483: 05,2703           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
011685,001484: 05,2704           12706                           TCF      +2                                    #  SOME ONES IN LOW 3
011686,001485: 05,2705           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
011687,001486: 05,2706           60103                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
011688,001487: 05,2707           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
011689,001488: 05,2710           12712                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
011690,001489: 05,2711           02324                           TC       GODSPALM                              
011691,001490: 05,2712           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC. OK
011692,001491: 
011693,001492: 
011694,001493: 
011695,001494: 05,2713           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
011696,001495: 05,2714           54100                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
011697,001496: 05,2715           35217                           CAF      MID5                                  
011698,001497: 05,2716           70133                           MASK     NNTYPTEM                              
011699,001498: 05,2717           05172                           TC       RIGHT5                                
011700,001499: 05,2720           00100                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
011701,001500: 
011702,001501: 05,2721           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
011703,001502: 05,2722           54100                           TS       EXITEM                                
011704,001503: 05,2723           50103                           INDEX    DECOUNT                               
011705,001504: 05,2724           32753                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
011706,001505: 05,2725           54001                           TS       L                                     
011707,001506: 05,2726           50103                           INDEX    DECOUNT                               
011708,001507: 05,2727           35216                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
011709,001508: 05,2730           70137                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
011710,001509: 05,2731           50001                           INDEX    L                                     
011711,001510: 05,2732           00000                           TC       0                                     
011712,001511:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
011713,001512: 05,2733           00100        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
011714,001513: 
011715,001514: 05,2734           56002        SFCONUM            XCH      Q                                     #  GETS 2X( SF CONSTANT NUMBER)
011716,001515: 05,2735           54100                           TS       EXITEM                                
011717,001516: 05,2736           50124                           INDEX    MIXBR                                 
011718,001517: 05,2737           02737                           TC       +0                                    
011719,001518: 05,2740           02756                           TC       CONUMNOR                              #  NORMAL NOUN
011720,001519: 05,2741           50103                           INDEX    DECOUNT                               #  MIXED NOUN
011721,001520: 05,2742           32753                           CAF      DISPLACE                              
011722,001521: 05,2743           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
011723,001522: 05,2744           50103                           INDEX    DECOUNT                               
011724,001523: 05,2745           35216                           CAF      LOW5                                  
011725,001524: 05,2746           70133                           MASK     NNTYPTEM                              
011726,001525: 05,2747           50001                           INDEX    L                                     
011727,001526: 05,2750           00000                           TC       0                                     
011728,001527:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
011729,001528: 05,2751           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
011730,001529: 05,2752           00100                           TC       EXITEM                                
011731,001530: 
011732,001531: 05,2753           02712        DISPLACE           TC       GOQ                                   
011733,001532: 05,2754           05172                           TC       RIGHT5                                
011734,001533: 05,2755           05201                           TC       LEFT5                                 
011735,001534: 
011736,001535: 05,2756           35216        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
011737,001536: 05,2757           70133                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
011738,001537: 05,2760           60000                           DOUBLE                                         
011739,001538: 05,2761           00100                           TC       EXITEM                                #  2X( SF CONSTANT NUMBER) IN A
011740,001539: 
011741,001540: 
011742,001541: 
011743,001542: 05,2762           54103        PUTCOM             TS       DECOUNT                               
011744,001543: 05,2763           56002                           XCH      Q                                     
011745,001544: 05,2764           54101                           TS       DECRET                                
011746,001545: 05,2765           37665                           CAF      ZERO                                  
011747,001546: 05,2766           54105                           TS       OVFIND                                
011748,001547: 05,2767           50103                           INDEX    DECOUNT                               
011749,001548: 05,2770           56273                           XCH      XREGLP                                
011750,001549: 05,2771           54141                           TS       MPAC       +1                         
011751,001550: 05,2772           50103                           INDEX    DECOUNT                               
011752,001551: 05,2773           56270                           XCH      XREG                                  
011753,001552: 05,2774           54140                           TS       MPAC                                  
011754,001553: 05,2775           50124                           INDEX    MIXBR                                 
011755,001554: 05,2776           02776                           TC       +0                                    
011756,001555: 05,2777           03023                           TC       PUTNORM                               #  NORMAL NOUN
011757,001556:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
011758,001557: 05,3000           50103                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
011759,001558: 05,3001           30134                           CA       IDAD1TEM                              #          OF NOUN.
011760,001559: 05,3002           75226                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
011761,001560: 05,3003           05153                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
011762,001561: 05,3004           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
011763,001562: 05,3005           60103                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
011764,001563: 05,3006           54131                           TS       NOUNADD                               
011765,001564: 
011766,001565: 05,3007           10265                           CCS      DECBRNCH                              
011767,001566: 05,3010           03051                           TC       PUTDECSF                              #  +  DEC
011768,001567: 05,3011           02721                           TC       SFRUTMIX                              #  +0  OCTAL
011769,001568: 05,3012           02236                           TC       DPTEST                                
011770,001569: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
011771,001570:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
011772,001571:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
011773,001572:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
011774,001573: 05,3014           24131        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
011775,001574: 05,3015           30131                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
011776,001575: 05,3016           26103                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
011777,001576: 05,3017           37665                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
011778,001577: 05,3020           50103                           INDEX    DECOUNT                               
011779,001578: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
011780,001579: 05,3022           03040                           TC       PUTCOM2                               
011781,001580: 
011782,001581: 05,3023           05161        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
011783,001582: 05,3024           10265                           CCS      DECBRNCH                              
011784,001583: 05,3025           03051                           TC       PUTDECSF                              #  +  DEC
011785,001584: 05,3026           02713                           TC       SFRUTNOR                              #  +0  OCTAL
011786,001585: 05,3027           02236                           TC       DPTEST                                
011787,001586: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
011788,001587: 05,3031           37665                           CAF      ZERO                                  #  DP
011789,001588: 05,3032           54103                           TS       DECOUNT                               
011790,001589: 05,3033           03014                           TC       PUTDPCOM                              
011791,001590: 
011792,001591: 05,3034           30132                           CA       NNADTEM                               
011793,001592: 05,3035           67657                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
011794,001593: 05,3036           00006                           EXTEND                                         
011795,001594: 05,3037           13044                           BZF      CHANLOAD                              
011796,001595: 05,3040           56140        PUTCOM2            XCH      MPAC                                  
011797,001596: 05,3041           00101                           TC       DECRET                                
011798,001597: 
011799,001598: 05,3042     0264                                  EBANK=   DSPCOUNT                              
011800,001599: 05,3042           02045 34000  GTSFINLC           2CADR    GTSFIN                                
011801,001600: 
011802,001601: 05,3044           56140        CHANLOAD           XCH      MPAC                                  
011803,001602: 05,3045           00006                           EXTEND                                         
011804,001603: 05,3046           50304                           INDEX    NOUNCADR                              
011805,001604: 05,3047           01000                           WRITE    0                                     
011806,001605: 05,3050           02663                           TC       LOADLV                                
011807,001606: 
011808,001607: 
011809,001608: 
011810,001609:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
011811,001610: 
011812,001611: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
011813,001612: 05,3052           54107                           TS       SFTEMP1                               
011814,001613: 
011815,001614: 05,3053           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
011816,001615: 05,3054           33043                           DCA      GTSFINLC                              #  READING ROUTINE.
011817,001616: 05,3055           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
011818,001617: 05,3056           50124                           INDEX    MIXBR                                 
011819,001618: 05,3057           03057                           TC       +0                                    
011820,001619: 05,3060           03063                           TC       PUTSFNOR                              
011821,001620: 05,3061           02721                           TC       SFRUTMIX                              
011822,001621: 05,3062           03064                           TC       PUTDCSF2                              
011823,001622: 05,3063           02713        PUTSFNOR           TC       SFRUTNOR                              
011824,001623: 
011825,001624: 05,3064           50000        PUTDCSF2           INDEX    A                                     
011826,001625: 05,3065           33067                           CAF      SFINTABR                              
011827,001626: 05,3066           04107                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
011828,001627: 05,3067           11277        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
011829,001628: 
011830,001629: 05,3070           11003                           CADR     BINROUND                              
011831,001630: 05,3071           10723                           CADR     DEGINSF                               
011832,001631: 05,3072           10773                           CADR     ARTHINSF                              
011833,001632: 05,3073           11023                           CADR     DPINSF                                
011834,001633: 05,3074           11050                           CADR     DPINSF2                               
011835,001634: 05,3075           11006                           CADR     OPTDEGIN                              
011836,001635: 05,3076           11023                           CADR     DPINSF                                #  SAME AS ARITHDP1
011837,001636: 05,3077                        ENDRUTIN           EQUALS                                         
011838,001637: 
011839,001638: 
011840,001639: 
011841,001640:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
011842,001641:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
011843,001642: 
011844,001643: 
011845,001644: 
011846,001645: 04,2723                                           SETLOC   ENDDPDEC   +1                         
011847,001646: 
011848,001647:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
011849,001648: 
011850,001649: 04,2723           07063        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
011851,001650: 04,2724           02766                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
011852,001651: 04,2725           10141                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
011853,001652: 04,2726           37645                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
011854,001653: 04,2727           02731                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
011855,001654: 04,2730           47645                           CS       BIT11                                 
011856,001655: 04,2731           60141                           AD       MPAC       +1                         
011857,001656: 04,2732           03066                           TC       2ROUND     +2                         
011858,001657: 04,2733           05255                           TC       TPSL1                                 #  LEFT 1
011859,001658: 04,2734           05255        DEGINSF2           TC       TPSL1                                 #  LEFT 2
011860,001659: 04,2735           03075                           TC       TESTOFUF                              
011861,001660: 04,2736           05255                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
011862,001661: 04,2737           10140                           CCS      MPAC                                  
011863,001662: 04,2740           02744                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
011864,001663: 04,2741           02744                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
011865,001664: 04,2742           40000                           COM                                            #  IF -, USE -MAGNITUDE +1
011866,001665: 
011867,001666: 04,2743           54140                           TS       MPAC                                  #  IF -0, USE +0
011868,001667: 04,2744           10105        SIGNFIX            CCS      OVFIND                                
011869,001668: 04,2745           02762                           TC       SGNTO1                                #  IF OVERFLOW
011870,001669: 04,2746           02756                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
011871,001670: 04,2747           10140                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
011872,001671: 04,2750           05456                           TC       CCSHOLE                               
011873,001672: 04,2751           02760                           TC       NEG180                                
011874,001673: 04,2752           02753                           TC       +1                                    
011875,001674: 04,2753           56140                           XCH      MPAC                                  
011876,001675: 04,2754           77637                           MASK     POSMAX                                
011877,001676: 04,2755           54140                           TS       MPAC                                  
011878,001677: 04,2756           04104        ENDSCALE           TC       POSTJUMP                              
011879,001678: 04,2757           13040                           CADR     PUTCOM2                               
011880,001679: 
011881,001680: 04,2760           47637        NEG180             CS       POSMAX                                
011882,001681: 04,2761           02755                           TC       ENDSCALE   -1                         
011883,001682: 
011884,001683: 04,2762           40140        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
011885,001684: 04,2763           77637                           MASK     POSMAX                                
011886,001685: 04,2764           40000                           CS       A                                     
011887,001686: 04,2765           02755                           TC       ENDSCALE   -1                         
011888,001687: 
011889,001688: 04,2766           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
011890,001689: 
011891,001690: 04,2770           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
011892,001691: 
011893,001692: 04,2772           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
011894,001693: 
011895,001694: 04,2773           07063        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
011896,001695: 04,2774           00107                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
011897,001696: 04,2775           56142                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
011898,001697: 04,2776           56141                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
011899,001698: 04,2777           56140                           XCH      MPAC                                  
011900,001699: 04,3000           00006                           EXTEND                                         
011901,001700: 04,3001           13003                           BZF      BINROUND                              
011902,001701: 04,3002           03277                           TC       DSPALARM                              #  TOO LARGE A LOAD
011903,001702: 04,3003           03064        BINROUND           TC       2ROUND                                
011904,001703: 04,3004           03075                           TC       TESTOFUF                              
011905,001704: 04,3005           02756                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
011906,001705: 
011907,001706: 
011908,001707: 
011909,001708: 04,3006           10140        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
011910,001709: 04,3007           03013                           TC       +4                                    
011911,001710: 04,3010           03013                           TC       +3                                    
011912,001711: 04,3011           03277                           TC       DSPALARM                              #  REJECT NEGATIVE INPUT
011913,001712: 04,3012           03277                           TC       DSPALARM                              #          DITTO
011914,001713: 04,3013           32772        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
011915,001714: 04,3014           26140                           ADS      MPAC                                  #  SUBTRACT BIAS
011916,001715: 04,3015           07063                           TC       DMP                                   #  MULT BY 100 / 45  B-2
011917,001716: 
011918,001717: 04,3016           02770                           ADRES    DEGCON2                               
011919,001718: 04,3017           37644                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
011920,001719: 04,3020           60141                           AD       MPAC       +1                         
011921,001720: 04,3021           03066                           TC       2ROUND     +2                         
011922,001721: 04,3022           02734                           TC       DEGINSF2                              
011923,001722: 
011924,001723: 04,3023           07063        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
011925,001724: 04,3024           00107                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
011926,001725: 04,3025           56142                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
011927,001726: 04,3026           60000                           DOUBLE                                         
011928,001727: 04,3027           54142                           TS       MPAC       +2                         
011929,001728: 04,3030           37665                           CAF      ZERO                                  
011930,001729: 04,3031           60141                           AD       MPAC       +1                         
011931,001730: 04,3032           03066                           TC       2ROUND     +2                         
011932,001731: 04,3033           03075                           TC       TESTOFUF                              
011933,001732: 04,3034           50124                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
011934,001733: 04,3035           03035                           TC       +0                                    
011935,001734: 04,3036           03046                           TC       DPINORM                               
011936,001735: 04,3037           30103                           CA       DECOUNT                               #  MIXEDNOUN
011937,001736: 04,3040           60131        DPINCOM            AD       NOUNADD                               #      MIXED                NORMAL
011938,001737: 04,3041           54002                           TS       Q                                     #    E SUBK             E
011939,001738: 04,3042           56141                           XCH      MPAC       +1                         
011940,001739: 04,3043           50002                           INDEX    Q                                     
011941,001740: 04,3044           54001                           TS       1                                     #  PLACE LOW PART IN
011942,001741: 04,3045           02756                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
011943,001742: 04,3046           37665        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
011944,001743: 04,3047           03040                           TC       DPINCOM                               
011945,001744: 
011946,001745: 
011947,001746: 
011948,001747: 04,3050           07063        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
011949,001748: 04,3051           00107                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
011950,001749: 04,3052           03054                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
011951,001750: 04,3053           03025                           TC       DPINSF     +2                         
011952,001751: 
011953,001752: 
011954,001753: 
011955,001754: 04,3054           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
011956,001755: 04,3055           54110                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
011957,001756: 04,3056           36162                           CAF      SIX                                   #  LEFT BY 7
011958,001757: 04,3057           54107        LEFT7COM           TS       SFTEMP1                               
011959,001758: 04,3060           05255                           TC       TPSL1                                 
011960,001759: 04,3061           10107                           CCS      SFTEMP1                               
011961,001760: 04,3062           03057                           TC       LEFT7COM                              
011962,001761: 04,3063           00110                           TC       SFTEMP2                               
011963,001762: 
011964,001763: 04,3064           56141        2ROUND             XCH      MPAC       +1                         
011965,001764: 04,3065           60000                           DOUBLE                                         
011966,001765: 
011967,001766: 04,3066           54141                           TS       MPAC       +1                         
011968,001767: 04,3067           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
011969,001768: 04,3070           60140                           AD       MPAC                                  
011970,001769: 04,3071           54140                           TS       MPAC                                  
011971,001770: 04,3072           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
011972,001771: 04,3073           54105                           TS       OVFIND                                
011973,001772: 04,3074           00002        2RNDEND            TC       Q                                     
011974,001773: 
011975,001774: 
011976,001775: 
011977,001776: 04,3075           10105        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
011978,001777: 04,3076           03277                           TC       DSPALARM                              #  OF
011979,001778: 04,3077           00002                           TC       Q                                     
011980,001779: 04,3100           03277                           TC       DSPALARM                              #  UF
011981,001780: 
011982,001781:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
011983,001782:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
011984,001783: 
011985,001784:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
011986,001785:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
011987,001786:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
011988,001787:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
011989,001788:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
011990,001789: 
011991,001790:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
011992,001791:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
011993,001792:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
011994,001793: 
011995,001794:                                                                                                  #  NVSUB  AND VB=TERMINATE TURN KILL MONITOR BIT ON.
011996,001795: 
011997,001796:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
011998,001797:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
011999,001798: 
012000,001799:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
012001,001800: 05,3077                                           SETLOC   ENDRUTIN                              
012002,001801: 
012003,001802: 05,3077           47641        MONITOR            CS       BIT15                                 
012004,001803: 05,3100           70304                           MASK     NOUNCADR                              
012005,001804: 05,3101           54141        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
012006,001805: 05,3102           33401                           CAF      LOW6                                  
012007,001806: 05,3103           70266                           MASK     VERBREG                               
012008,001807: 05,3104           05201                           TC       LEFT5                                 
012009,001808: 05,3105           54022                           TS       CYL                                   
012010,001809: 05,3106           56022                           XCH      CYL                                   
012011,001810: 05,3107           60267                           AD       NOUNREG                               
012012,001811: 05,3110           54140                           TS       MPAC                                  #  TEMP STORAGE
012013,001812: 05,3111           40324                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
012014,001813: 05,3112           67656                           AD       TWO                                   
012015,001814: 05,3113           10000                           CCS      A                                     
012016,001815: 05,3114           05356                           TC       RELDSP1                               #  GRABLOCK=0,1, +0 INTO DSPLOCK AND
012017,001816: 05,3115           03121                           TC       +4                                    #  TURN OFF KEY RLSE LIGHT.
012018,001817: 05,3116           05456                           TC       CCSHOLE                               
012019,001818: 05,3117           37665                           CAF      ZERO                                  #  GRABLOCK=2, +0 INTO DSPLOCK AND
012020,001819: 05,3120           54277                           TS       DSPLOCK                               #  LEAVE KEY RLSE LIGHT ALONE
012021,001820: 05,3121           00004                           INHINT                                         
012022,001821: 05,3122           10305                           CCS      MONSAVE                               
012023,001822: 05,3123           03130                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
012024,001823: 05,3124           37657                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
012025,001824: 05,3125           04517                           TC       WAITLIST                              
012026,001825: 05,3126     0264                                  EBANK=   DSPCOUNT                              
012027,001826: 05,3126           03134 12000                     2CADR    MONREQ                                
012028,001827: 
012029,001828: 05,3130           52141                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE
012030,001829: 
012031,001830: 05,3131           52306                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
012032,001831: 05,3132           00003                           RELINT                                         
012033,001832: 05,3133           00122                           TC       ENTRET                                
012034,001833: 
012035,001834: 
012036,001835: 
012037,001836: 05,3134           05251        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
012038,001837: 05,3135           10306                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
012039,001838: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
012040,001839: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
012041,001840: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
012042,001841: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
012043,001842: 05,3142           33157                           CAF      MONDEL                                
012044,001843: 05,3143           04517                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
012045,001844: 05,3144     0264                                  EBANK=   DSPCOUNT                              
012046,001845: 05,3144           03134 12000                     2CADR    MONREQ                                
012047,001846: 05,3146           35225                           CAF      CHRPRIO                               
012048,001847: 05,3147           04344                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
012049,001848: 05,3150     0264                                  EBANK=   DSPCOUNT                              
012050,001849: 05,3150           03160 12000                     2CADR    MONDO                                 
012051,001850: 
012052,001851: 05,3152           04563                           TC       TASKOVER                              
012053,001852: 
012054,001853: 05,3153           37665        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
012055,001854: 05,3154           54305                           TS       MONSAVE                               
012056,001855: 05,3155           54306                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
012057,001856: 05,3156           04563                           TC       TASKOVER                              
012058,001857: 
012059,001858: 
012060,001859: 
012061,001860: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
012062,001861: 
012063,001862: 
012064,001863: 
012065,001864: 05,3160           10306        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
012066,001865: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
012067,001866: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
012068,001867: 05,3163           04421                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
012069,001868: 05,3164           04421                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
012070,001869: 05,3165           10277                           CCS      DSPLOCK                               
012071,001870: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
012072,001871: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
012073,001872: 05,3170           70305                           MASK     MONSAVE                               
012074,001873: 05,3171           54107                           TS       NVTEMP                                
012075,001874: 05,3172           05115                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
012076,001875: 05,3173           04421                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
012077,001876: 05,3174           33210                           CAF      MONMASK                               
012078,001877: 05,3175           70305                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
012079,001878: 05,3176           05172                           TC       RIGHT5                                
012080,001879: 
012081,001880: 05,3177           54020                           TS       CYR                                   
012082,001881: 05,3200           56020                           XCH      CYR                                   
012083,001882: 05,3201           54266                           TS       VERBREG                               
012084,001883: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
012085,001884: 05,3203           54122                           TS       ENTRET                                
012086,001885: 05,3204           47641                           CS       BIT15                                 
012087,001886: 05,3205           70306                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2.  INTMCTBS WILL
012088,001887: 05,3206           54142                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
012089,001888: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
012090,001889: 
012091,001890:    5072                                           SETLOC   ENDRMODF                              
012092,001891: 
012093,001892:    5072           35100        PASTEVB            CAF      MIDSIX                                
012094,001893:    5073           70305                           MASK     MONSAVE                               
012095,001894:    5074           54107                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
012096,001895:    5075           05115                           TC       NVSUBMON                              #       DISPLAY IT.
012097,001896:    5076           05077                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
012098,001897:    5077           04421        ENDPASTE           TC       ENDOFJOB                              
012099,001898: 
012100,001899:    5100           07700        MIDSIX             OCT      07700                                 
012101,001900: 
012102,001901: 
012103,001902: 
012104,001903: 05,3210                                           SETLOC   ENDMONDO   +1                         
012105,001904: 05,3210           00700        MONMASK            OCT      700                                   
012106,001905: 05,3211           05072        MONBACK            ADRES    PASTEVB                               
012107,001906: 
012108,001907: 05,3212           05245        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
012109,001908: 05,3213           04421                           TC       ENDOFJOB                              
012110,001909: 
012111,001910: 
012112,001911: 
012113,001912:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
012114,001913:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
012115,001914:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
012116,001915: 
012117,001916: 05,3214           35167        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
012118,001917: 05,3215           54264                           TS       DSPCOUNT                              
012119,001918: 05,3216           30304                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
012120,001919: 05,3217           04120                           TC       DATACALL                              
012121,001920: 05,3220           03222                           TC       DSPOCTWD                              
012122,001921: 05,3221           04421        ENDSPF             TC       ENDOFJOB                              
012123,001922: 
012124,001923:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1) TO A SIGN AND 5 CHAR DECIMAL
012125,001924:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
012126,001925: 
012127,001926: 04,3101                                           SETLOC   TESTOFUF   +4                         
012128,001927: 04,3101           56002        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
012129,001928: 04,3102           54101                           TS       WDRET                                 #  CANT USE L FOR RETURN.+ON USES L.
012130,001929: 04,3103           10140                           CCS      MPAC                                  
012131,001930: 04,3104           03113                           TC       +7                                    
012132,001931: 04,3105           03113                           TC       +6                                    
012133,001932: 04,3106           67657                           AD       ONE                                   
012134,001933: 04,3107           54140                           TS       MPAC                                  
012135,001934: 04,3110           02313                           TC       -ON                                   
012136,001935: 04,3111           40141                           CS       MPAC       +1                         
012137,001936: 04,3112           03115                           TC       +3                                    
012138,001937: 04,3113           02273                           TC       +ON                                   
012139,001938: 04,3114           56141                           XCH      MPAC       +1                         
012140,001939: 04,3115           63154                           AD       DECROUND                              
012141,001940: 04,3116           54141                           TS       MPAC       +1                         
012142,001941: 04,3117           37665                           CAF      ZERO                                  
012143,001942: 04,3120           60140                           AD       MPAC                                  
012144,001943: 04,3121           54140                           TS       MPAC                                  
012145,001944: 04,3122           03126                           TC       +4                                    
012146,001945: 04,3123           37637                           CAF      POSMAX                                
012147,001946: 04,3124           54140                           TS       MPAC                                  
012148,001947: 04,3125           54141                           TS       MPAC       +1                         
012149,001948: 04,3126           37655                           CAF      FOUR                                  
012150,001949: 04,3127           54123        DSPDCWD1           TS       WDCNT                                 
012151,001950: 04,3130           35234                           CAF      BINCON                                
012152,001951: 04,3131           07266                           TC       SHORTMP                               
012153,001952: 04,3132           50140        TRACE1             INDEX    MPAC                                  
012154,001953: 04,3133           34733                           CAF      RELTAB                                
012155,001954: 04,3134           75216                           MASK     LOW5                                  
012156,001955: 04,3135           54110                           TS       CODE                                  
012157,001956: 04,3136           37665                           CAF      ZERO                                  
012158,001957: 04,3137           56142                           XCH      MPAC       +2                         
012159,001958: 04,3140           56141                           XCH      MPAC       +1                         
012160,001959: 04,3141           54140                           TS       MPAC                                  
012161,001960: 04,3142           56264                           XCH      DSPCOUNT                              
012162,001961: 04,3143           54127        TRACE1S            TS       COUNT                                 
012163,001962: 04,3144           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
012164,001963: 04,3145           54264                           TS       DSPCOUNT                              
012165,001964: 04,3146           03201                           TC       DSPIN                                 
012166,001965: 04,3147           10123                           CCS      WDCNT                                 
012167,001966: 04,3150           03127                           TC       DSPDCWD1                              
012168,001967: 04,3151           45231                           CS       VD1                                   
012169,001968: 04,3152           54264                           TS       DSPCOUNT                              
012170,001969: 04,3153           00101                           TC       WDRET                                 
012171,001970: 
012172,001971: 04,3154           02476        DECROUND           OCT      02476                                 
012173,001972: 
012174,001973:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
012175,001974:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
012176,001975: 
012177,001976: 04,3155           56002        DSP2DEC            XCH      Q                                     #  MUST USE SAME RETURN AS DSPDECWD
012178,001977: 04,3156           54101                           TS       WDRET                                 
012179,001978: 04,3157           37665                           CAF      ZERO                                  
012180,001979: 04,3160           54110                           TS       CODE                                  
012181,001980: 04,3161           36165                           CAF      THREE                                 
012182,001981: 04,3162           03263                           TC       11DSPIN                               #  -R2 OFF
012183,001982: 04,3163           37655                           CAF      FOUR                                  
012184,001983: 04,3164           03263                           TC       11DSPIN                               #  +R2 OFF
012185,001984: 04,3165           10140                           CCS      MPAC                                  
012186,001985: 04,3166           03176                           TC       +8D                                   
012187,001986: 04,3167           03176                           TC       +7                                    
012188,001987: 04,3170           67657                           AD       ONE                                   
012189,001988: 04,3171           54140                           TS       MPAC                                  
012190,001989: 04,3172           02313                           TC       -ON                                   
012191,001990: 04,3173           40141                           CS       MPAC       +1                         
012192,001991: 04,3174           54141                           TS       MPAC       +1                         
012193,001992: 04,3175           03177                           TC       +2                                    
012194,001993: 04,3176           02273                           TC       +ON                                   
012195,001994: 04,3177           35170                           CAF      R2D1                                  
012196,001995: 04,3200           03127        END2DEC            TC       DSPDCWD1                              
012197,001996: 
012198,001997: 
012199,001998: 
012200,001999: 05,3222                                           SETLOC   DSPFMEM    +6                         
012201,002000:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
012202,002001:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
012203,002002: 
012204,002003: 05,3222           54022        DSPOCTWD           TS       CYL                                   
012205,002004: 05,3223           56002                           XCH      Q                                     
012206,002005: 05,3224           54101                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
012207,002006: 05,3225           37642                           CAF      BIT14                                 #  TO BLANK SIGNS
012208,002007: 05,3226           26264                           ADS      DSPCOUNT                              
012209,002008: 05,3227           37655                           CAF      FOUR                                  
012210,002009: 05,3230           54123        WDAGAIN            TS       WDCNT                                 
012211,002010: 05,3231           40022                           CS       CYL                                   
012212,002011: 05,3232           40022                           CS       CYL                                   
012213,002012: 05,3233           40022                           CS       CYL                                   
012214,002013: 05,3234           40000                           CS       A                                     
012215,002014: 05,3235           77663                           MASK     DSPMSK                                
012216,002015: 05,3236           50000                           INDEX    A                                     
012217,002016: 05,3237           34733                           CAF      RELTAB                                
012218,002017: 05,3240           75216                           MASK     LOW5                                  
012219,002018: 05,3241           54110                           TS       CODE                                  
012220,002019: 05,3242           56264                           XCH      DSPCOUNT                              
012221,002020: 05,3243           54127                           TS       COUNT                                 
012222,002021: 05,3244           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
012223,002022: 05,3245           54264                           TS       DSPCOUNT                              
012224,002023: 
012225,002024: 05,3246           04104                           TC       POSTJUMP                              
012226,002025: 05,3247           11271                           CADR     DSPOCTIN                              
012227,002026: 05,3250           10123        OCTBACK            CCS      WDCNT                                 
012228,002027: 05,3251           03230                           TC       WDAGAIN                               #  +
012229,002028: 05,3252           45231        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
012230,002029: 05,3253           54264                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
012231,002030: 05,3254           00101                           TC       WDRET                                 
012232,002031: 
012233,002032: 05,3255     7663               DSPMSK             =        SEVEN                                 
012234,002033: 
012235,002034: 
012236,002035: 
012237,002036:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
012238,002037:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
012239,002038:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
012240,002039: 
012241,002040: 05,3255           54020        DSP2BIT            TS       CYR                                   
012242,002041: 05,3256           56002                           XCH      Q                                     
012243,002042: 05,3257           54101                           TS       WDRET                                 #  CANT USE L AS RETURN. UPDATIN USES L.
012244,002043: 05,3260           37657                           CAF      ONE                                   
012245,002044: 05,3261           54123                           TS       WDCNT                                 
012246,002045: 05,3262           40020                           CS       CYR                                   
012247,002046: 05,3263           40020                           CS       CYR                                   
012248,002047: 05,3264           56020                           XCH      CYR                                   
012249,002048: 05,3265           54022                           TS       CYL                                   
012250,002049: 05,3266           03235                           TC       WDAGAIN    +5                         
012251,002050: 
012252,002051: 
012253,002052: 
012254,002053:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
012255,002054:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
012256,002055:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
012257,002056:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
012258,002057: 
012259,002058: 04,3201                                           SETLOC   END2DEC    +1                         
012260,002059: 
012261,002060: 04,3201           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANY OF THE
012262,002061: 04,3202           54100                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
012263,002062: 04,3203           35216                           CAF      LOW5                                  
012264,002063: 04,3204           70127                           MASK     COUNT                                 
012265,002064: 04,3205           54021                           TS       SR                                    
012266,002065: 04,3206           56021                           XCH      SR                                    
012267,002066: 04,3207           54125                           TS       DSREL                                 
012268,002067: 04,3210           37657                           CAF      BIT1                                  
012269,002068: 04,3211           70127                           MASK     COUNT                                 
012270,002069: 04,3212           10000                           CCS      A                                     
012271,002070: 04,3213           03215                           TC       +2                                    #  LEFT IF COUNT IS ODD
012272,002071: 04,3214           03225                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
012273,002072: 04,3215           56110                           XCH      CODE                                  
012274,002073: 04,3216           05210                           TC       SLEFT5                                #  DOES NOT USE CYL
012275,002074: 
012276,002075: 04,3217           54110                           TS       CODE                                  
012277,002076: 04,3220           37642                           CAF      BIT14                                 
012278,002077: 04,3221           70127                           MASK     COUNT                                 
012279,002078: 04,3222           10000                           CCS      A                                     
012280,002079: 04,3223           37656                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
012281,002080: 04,3224           67657                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
012282,002081: 04,3225           54127                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
012283,002082:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
012284,002083:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
012285,002084: 04,3226           00004        DSPIN1             INHINT                                         
012286,002085: 04,3227           50125                           INDEX    DSREL                                 
012287,002086: 04,3230           10307                           CCS      DSPTAB                                
012288,002087: 04,3231           03233                           TC       +2                                    #  IF +
012289,002088: 04,3232           05456                           TC       CCSHOLE                               
012290,002089: 04,3233           67657                           AD       ONE                                   #  IF -
012291,002090: 04,3234           54126                           TS       DSMAG                                 
012292,002091: 04,3235           50127                           INDEX    COUNT                                 
012293,002092: 04,3236           73257                           MASK     DSMSK                                 
012294,002093: 04,3237           00006                           EXTEND                                         
012295,002094: 04,3240           60110                           SU       CODE                                  
012296,002095: 04,3241           00006                           EXTEND                                         
012297,002096: 04,3242           13255                           BZF      DSLV                                  #  SAME
012298,002097: 04,3243           50127        DFRNT              INDEX    COUNT                                 
012299,002098: 04,3244           43257                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
012300,002099: 04,3245           70126                           MASK     DSMAG                                 
012301,002100: 04,3246           60110                           AD       CODE                                  
012302,002101: 04,3247           40000                           CS       A                                     
012303,002102: 04,3250           50125                           INDEX    DSREL                                 
012304,002103: 04,3251           56307                           XCH      DSPTAB                                
012305,002104: 04,3252           00006                           EXTEND                                         
012306,002105: 04,3253           63255                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
012307,002106: 04,3254           24303                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
012308,002107: 04,3255           00003        DSLV               RELINT                                         
012309,002108: 04,3256           00100                           TC       DSEXIT                                
012310,002109: 
012311,002110: 04,3257           00037        DSMSK              OCT      37                                    
012312,002111: 04,3260           01740                           OCT      1740                                  
012313,002112: 04,3261           02000                           OCT      2000                                  
012314,002113: 04,3262           03740                           OCT      3740                                  
012315,002114: 
012316,002115: 
012317,002116: 
012318,002117:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
012319,002118:                                                                                                  #  BIT11 OF CODE.
012320,002119: 
012321,002120: 04,3263           54125        11DSPIN            TS       DSREL                                 
012322,002121: 04,3264           37656                           CAF      TWO                                   
012323,002122: 04,3265           54127                           TS       COUNT                                 
012324,002123: 04,3266           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
012325,002124: 04,3267           54100                           TS       DSEXIT                                
012326,002125: 
012327,002126: 04,3270           03226                           TC       DSPIN1                                
012328,002127: 
012329,002128: 
012330,002129: 
012331,002130: 04,3271           03201        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
012332,002131: 04,3272           33274                           CAF      +2                                    
012333,002132: 04,3273           04107                           TC       BANKJUMP                              
012334,002133: 04,3274           13250        ENDSPOCT           CADR     OCTBACK                               
012335,002134: 
012336,002135: 
012337,002136: 
012338,002137:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
012339,002138:                                                                                                  #  ABORT WITH 01501.
012340,002139:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
012341,002140:                                                                                                  #  DO TC ENTRET.
012342,002141: 
012343,002142: 04,3275           35142        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
012344,002143: 04,3276           54122                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
012345,002144: 
012346,002145: 04,3277           05235        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
012347,002146: 04,3300           43307                           CS       NVSBENDL                              
012348,002147: 04,3301           60122                           AD       ENTEXIT                               
012349,002148: 04,3302           00006                           EXTEND                                         
012350,002149: 04,3303           13305                           BZF      +2                                    #  NVSUB INITIATED. ABORT
012351,002150: 04,3304           00122                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
012352,002151: 04,3305           05440                           TC       ABORT                                 
012353,002152: 04,3306           01501                           OCT      01501                                 
012354,002153: 04,3307           05121        NVSBENDL           TC       NVSUBEND                              
012355,002154: 
012356,002155: 
012357,002156: 
012358,002157:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
012359,002158:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
012360,002159:                                                                                                  #  M M LIGHTS.
012361,002160: 
012362,002161: 05,3267                                           SETLOC   DSP2BIT    +10D                       
012363,002162: 
012364,002163: 05,3267           03302        MMCHANG            TC       REQMM                                 
012365,002164: 05,3270           37665                           CAF      ZERO                                  
012366,002165: 05,3271           56267                           XCH      NOUNREG                               
012367,002166: 05,3272           54140                           TS       MPAC                                  
012368,002167: 05,3273           35232                           CAF      ND1                                   
012369,002168: 05,3274           54264                           TS       DSPCOUNT                              
012370,002169: 05,3275           04065                           TC       BANKCALL                              
012371,002170: 05,3276           10541                           CADR     2BLANK                                
012372,002171: 05,3277           30140                           CA       MPAC                                  
012373,002172: 05,3300           04104                           TC       POSTJUMP                              
012374,002173: 05,3301           11277                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
012375,002174: 
012376,002175: 05,3302  04,3277               MODROUTB           =        DSPALARM                              #  **FIX LATER**
012377,002176: 05,3302           40002        REQMM              CS       Q                                     
012378,002177: 05,3303           54300                           TS       REQRET                                
012379,002178: 05,3304           35232                           CAF      ND1                                   
012380,002179: 05,3305           54264                           TS       DSPCOUNT                              
012381,002180: 05,3306           37665                           CAF      ZERO                                  
012382,002181: 05,3307           54267                           TS       NOUNREG                               
012383,002182: 05,3310           04065                           TC       BANKCALL                              
012384,002183: 05,3311           10541                           CADR     2BLANK                                
012385,002184: 05,3312           05266                           TC       FLASHON                               
012386,002185: 05,3313           00122                           TC       ENTEXIT                               
012387,002186: 
012388,002187: 
012389,002188: 
012390,002189:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
012391,002190:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
012392,002191:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
012393,002192:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
012394,002193:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
012395,002194:                                                                                                  #  COMPONENT 3  BBCON
012396,002195: 
012397,002196: 05,3314           37657        VBRQEXEC           CAF      BIT1                                  
012398,002197: 05,3315           70333                           MASK     DSPTEM1                               
012399,002198: 05,3316           10000                           CCS      A                                     
012400,002199: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
012401,002200: 05,3320           35221                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
012402,002201: 05,3321           54140        REQEX1             TS       MPAC                                  #  TC NOVAC OR TC FINDVAC INTO MPAC
012403,002202: 05,3322           47657                           CS       BIT1                                  
012404,002203: 05,3323           70333                           MASK     DSPTEM1                               
012405,002204: 05,3324           54144                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
012406,002205: 05,3325           05333        REQUESTC           TC       RELDSP                                
012407,002206: 05,3326           35142                           CA       ENDINST                               
012408,002207: 05,3327           54143                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
012409,002208: 05,3330           00006                           EXTEND                                         
012410,002209: 05,3331           30335                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
012411,002210: 05,3332           52142                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
012412,002211: 05,3333           30144                           CA       MPAC       +4                         #  PRIO IN A
012413,002212: 05,3334           00004                           INHINT                                         
012414,002213: 05,3335           00140                           TC       MPAC                                  
012415,002214: 
012416,002215: 05,3336           35224        SETVAC             CAF      TCFINDVC                              
012417,002216: 05,3337           03321                           TC       REQEX1                                
012418,002217: 
012419,002218:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
012420,002219:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
012421,002220:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
012422,002221:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
012423,002222:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
012424,002223:                                                                                                  #  COMPONENT 3  BBCON
012425,002224: 
012426,002225: 05,3340           35222        VBRQWAIT           CAF      TCWAIT                                
012427,002226: 05,3341           54140                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
012428,002227: 05,3342           30333                           CA       DSPTEM1                               #  TIME DELAY
012429,002228: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
012430,002229: 
012431,002230:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
012432,002231:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
012433,002232:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
012434,002233: 
012435,002234: 
012436,002235: 
012437,002236: 04,3310                                           SETLOC   NVSBENDL   +1                         
012438,002237: 04,3310           37657        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
012439,002238: 04,3311           54301                           TS       LOADSTAT                              
012440,002239: 04,3312           05333                           TC       RELDSP                                
012441,002240: 04,3313           05272                           TC       FLASHOFF                              
012442,002241: 04,3314           03427                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
012443,002242: 
012444,002243: 
012445,002244: 
012446,002245: 04,3315           05123        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
012447,002246: 04,3316           47657                           CS       ONE                                   
012448,002247: 04,3317           03311                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
012449,002248: 
012450,002249:                                                                                                  #  PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
012451,002250:                                                                                                  #  EXECUTIVE CONTROL, WITH CHRPRIO.
012452,002251: 
012453,002252: 04,3320           37665        PROCKEY            CAF      ZERO                                  #  SET REQRET FOR ENTER PASS 0.
012454,002253: 04,3321           54300                           TS       REQRET                                
012455,002254: 04,3322           45231                           CS       VD1                                   #  BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
012456,002255: 04,3323           54264                           TS       DSPCOUNT                              
012457,002256: 04,3324           03310                           TC       VBPROC                                
012458,002257: 
012459,002258: 
012460,002259: 
012461,002260:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
012462,002261: 
012463,002262: 
012464,002263: 
012465,002264:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
012466,002265:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
012467,002266: 
012468,002267: 04,3325           47655        VBRELDSP           CS       BIT3                                  
012469,002268: 04,3326           00006                           EXTEND                                         
012470,002269: 04,3327           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LIGHT
012471,002270: 04,3330           05333                           TC       RELDSP                                #  SEARCHES LIST
012472,002271: 04,3331           04421                           TC       ENDOFJOB                              
012473,002272: 
012474,002273: 
012475,002274: 
012476,002275:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
012477,002276: 
012478,002277: 04,3332           37664        BUMP               CAF      FIVE                                  #  R2D5
012479,002278: 04,3333           54264                           TS       DSPCOUNT                              
012480,002279: 04,3334           54127                           TS       COUNT                                 
012481,002280: 04,3335           37657                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
012482,002281: 04,3336           70127                           MASK     COUNT                                 
012483,002282: 04,3337           56127                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
012484,002283: 04,3340           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)
012485,002284: 
012486,002285: 04,3341           56021                           XCH      SR                                    #  DSREL IN A
012487,002286: 04,3342           50000                           INDEX    A                                     
012488,002287: 04,3343           10307                           CCS      DSPTAB                                
012489,002288: 04,3344           03346                           TC       +2                                    
012490,002289: 04,3345           05456                           TC       CCSHOLE                               
012491,002290: 04,3346           67657                           AD       ONE                                   #  DSMAG IN A
012492,002291: 04,3347           50127                           INDEX    COUNT                                 
012493,002292: 04,3350           73257                           MASK     DSMSK                                 
012494,002293: 04,3351           50127                           INDEX    COUNT                                 
012495,002294: 04,3352           03353                           TC       +1                                    
012496,002295: 04,3353           03355                           TC       +2                                    #  EVEN(RIGHT)  OK
012497,002296: 04,3354           05172                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
012498,002297: 04,3355           54110                           TS       CODE                                  
012499,002298: 04,3356           47664                           CS       FIVE                                  
012500,002299: 04,3357           60264                           AD       DSPCOUNT                              #  DSPCOUNT-5
012501,002300: 04,3360           10000                           CCS      A                                     #  TO PREVENT -0
012502,002301: 04,3361           67657                           AD       ONE                                   
012503,002302: 04,3362           03364                           TC       +2                                    
012504,002303: 04,3363           05456                           TC       CCSHOLE                               
012505,002304: 04,3364           54127                           TS       COUNT                                 
012506,002305: 04,3365           03201                           TC       DSPIN                                 #  CODE ALREADY IN CODE
012507,002306: 04,3366           40264                           CS       DSPCOUNT                              
012508,002307: 04,3367           65167                           AD       R1D1                                  #  OCT 16
012509,002308: 04,3370           10000                           CCS      A                                     
012510,002309: 04,3371           56264                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
012511,002310: 04,3372           67657                           AD       ONE                                   #  INCREMENT DSPCOUNT
012512,002311: 04,3373           03333                           TC       BUMP       +1                         
012513,002312: 
012514,002313: 04,3374           37665        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
012515,002314: 04,3375           54264                           TS       DSPCOUNT                              
012516,002315: 04,3376           63425                           AD       SWTAB      +2                         #  OCT 3
012517,002316: 04,3377           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
012518,002317: 04,3400           10307                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
012519,002318: 04,3401           03403                           TC       +2                                    
012520,002319: 04,3402           05456                           TC       CCSHOLE                               
012521,002320: 04,3403           67657                           AD       ONE                                   
012522,002321: 04,3404           77645                           MASK     BIT11                                 
012523,002322: 04,3405           54110                           TS       CODE                                  
012524,002323: 04,3406           50264                           INDEX    DSPCOUNT                              
012525,002324: 04,3407           33423                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
012526,002325: 04,3410           03263                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
012527,002326: 04,3411           40264                           CS       DSPCOUNT                              
012528,002327: 04,3412           63425                           AD       SWTAB      +2                         #  OCT 3
012529,002328: 04,3413           10000                           CCS      A                                     
012530,002329: 04,3414           56264                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
012531,002330: 04,3415           67657                           AD       ONE                                   #  INCREMENT DSPCOUNT
012532,002331: 04,3416           03375                           TC       SWSGN      +1                         
012533,002332: 04,3417           35167                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
012534,002333: 04,3420           54264                           TS       DSPCOUNT                              
012535,002334: 04,3421           02476                           TC       5BLANK                                #  BLANKS R1
012536,002335: 
012537,002336: 04,3422           00122                           TC       ENTEXIT                               
012538,002337: 
012539,002338: 04,3423           00000        SWTAB              OCT      0                                     #  -R3
012540,002339: 04,3424           00001                           OCT      1                                     #  +R3
012541,002340: 04,3425           00003                           OCT      3                                     #  -R2
012542,002341: 04,3426           00004                           OCT      4                                     #  +R2
012543,002342: 
012544,002343:                                                                                                  #  NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
012545,002344:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
012546,002345:                                                                                                  #  INTO A.      V-S ARE 6BIT VERB CODE. N-S , 6 BIT NOUN CODE.
012547,002346: 
012548,002347:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
012549,002348:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
012550,002349: 
012551,002350:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
012552,002351:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
012553,002352:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
012554,002353:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
012555,002354:                                                                                                  #  FURTHER ACTION).
012556,002355: 
012557,002356:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
012558,002357:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
012559,002358:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
012560,002359:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
012561,002360: 
012562,002361:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
012563,002362:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
012564,002363:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS.
012565,002364:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
012566,002365:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
012567,002366:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
012568,002367:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
012569,002368:                                                                                                  #  MONITOR SET UP.
012570,002369: 
012571,002370:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
012572,002371: 
012573,002372:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
012574,002373:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
012575,002374: 
012576,002375:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
012577,002376:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
012578,002377: 
012579,002378:    5101                                           SETLOC   MIDSIX     +1                         
012580,002379:    5101           54107        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
012581,002380:    5102           10277                           CCS      DSPLOCK                               
012582,002381:    5103           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
012583,002382:    5104           30002                           CA       Q                                     #  DSP SYST AVAILABLE
012584,002383:    5105           67657                           AD       ONE                                   
012585,002384:    5106           54325                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
012586,002385:    5107           05123                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
012587,002386:    5110           35114        NVSUBCOM           CAF      NVSBBBNK                              
012588,002387: 
012589,002388:    5111           56006                           XCH      BBANK                                 
012590,002389:    5112           54326                           TS       NVBNKTEM                              
012591,002390:    5113           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
012592,002391:    5114     0264                                  EBANK=   DSPCOUNT                              
012593,002392:    5114           12000        NVSBBBNK           BBCON    NVSUB1                                
012594,002393: 
012595,002394:    5115           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
012596,002395:    5116           67657                           AD       ONE                                   
012597,002396:    5117           54325                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
012598,002397:    5120           05110                           TC       NVSUBCOM                              
012599,002398: 
012600,002399:    5121           52326        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
012601,002400:    5122           52006                           DXCH     Z                                     #  DTCB
012602,002401: 
012603,002402: 05,3344                                           SETLOC   ENDRQWT    +1                         
012604,002403: 
012605,002404: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
012606,002405: 05,3345           54122                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
012607,002406: 05,3346           33401                           CAF      LOW6                                  
012608,002407: 05,3347           70107                           MASK     NVTEMP                                
012609,002408: 05,3350           54140                           TS       MPAC                                  #  TEMP STORAGE
012610,002409: 05,3351           33402                           CAF      MID6                                  
012611,002410: 05,3352           70107                           MASK     NVTEMP                                
012612,002411: 05,3353           05172                           TC       RIGHT5                                
012613,002412: 05,3354           54020                           TS       CYR                                   
012614,002413: 05,3355           56020                           XCH      CYR                                   
012615,002414: 05,3356           54141                           TS       MPAC       +1                         #  TEMP STORAGE
012616,002415: 05,3357           10140                           CCS      MPAC                                  #  TEST NOUN
012617,002416: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
012618,002417: 05,3361           56141                           XCH      MPAC       +1                         
012619,002418: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB, THEN RETURN
012620,002419: 05,3363           05121        ENTSET             TC       NVSUBEND                              
012621,002420: 05,3364           10141                           CCS      MPAC       +1                         #  TEST VERB
012622,002421: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
012623,002422: 05,3366           56140                           XCH      MPAC                                  
012624,002423: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
012625,002424: 05,3370           05121                           TC       NVSUBEND                              
012626,002425: 05,3371           56141                           XCH      MPAC       +1                         
012627,002426: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
012628,002427: 05,3373           56140                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
012629,002428: 05,3374           02274                           TC       UPDATNN    -1                         
012630,002429: 05,3375           37665                           CAF      ZERO                                  
012631,002430: 05,3376           54301                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
012632,002431: 05,3377           54302                           TS       CLPASS                                
012633,002432: 05,3400           02031                           TC       ENTPAS0                               
012634,002433: 
012635,002434:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
012636,002435:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
012637,002436: 
012638,002437: 
012639,002438: 
012640,002439: 05,3401           00077        LOW6               OCT      77                                    
012641,002440: 05,3402           07700        MID6               OCT      7700                                  
012642,002441: 
012643,002442:    5123                                           SETLOC   NVSUBEND   +2                         
012644,002443:    5123           47641        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
012645,002444:    5124           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
012646,002445:    5125           70306                           MASK     MONSAVE1                              
012647,002446:    5126           67641                           AD       BIT15                                 
012648,002447:    5127           54306                           TS       MONSAVE1                              
012649,002448:    5130           00003                           RELINT                                         
012650,002449:    5131           00002                           TC       Q                                     
012651,002450: 
012652,002451: 
012653,002452: 
012654,002453:                                                                                                  #  LOADSTAT  +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
012655,002454:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
012656,002455:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
012657,002456:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
012658,002457: 
012659,002458: 
012660,002459: 
012661,002460:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
012662,002461:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
012663,002462:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
012664,002463:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
012665,002464:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
012666,002465:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
012667,002466:                                                                                                  #  L+1      FOR TERMINATE
012668,002467:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
012669,002468:                                                                                                  #  L+3      FOR DATA IN
012670,002469:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
012671,002470: 
012672,002471:    5132           37657        ENDIDLE            CAF      ONE                                   
012673,002472:    5133           54277                           TS       DSPLOCK                               
012674,002473:    5134           22004                           LXCH     FBANK                                 
012675,002474:    5135           56002                           XCH      Q                                     
012676,002475:    5136           52120                           DXCH     BUF2                                  
012677,002476:    5137           04114                           TC       MAKECADR                              
012678,002477:    5140           54323                           TS       CADRSTOR                              
012679,002478:    5141           04377                           TC       JOBSLEEP                              
012680,002479: 
012681,002480: 
012682,002481: 
012683,002482:    5142           04421        ENDINST            TC       ENDOFJOB                              
012684,002483: 
012685,002484:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE, IT RETURNS IMMEDIATELY IF
012686,002485:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
012687,002486:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
012688,002487:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
012689,002488:                                                                                                  #  AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
012690,002489:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
012691,002490: 
012692,002491:    5143           10301        DATAWAIT           CCS      LOADSTAT                              
012693,002492: 
012694,002493:    5144           15151                           TCF      DATWAIT1                              #  PROCEED. RETURN TO L+2.
012695,002494:    5145           15132                           TCF      ENDIDLE                               #  STILL WAITING. GO TO SLEEP.
012696,002495:    5146           00002                           TC       Q                                     #  TERMINATE. RETURN TO L+1.
012697,002496:    5147           50002                           INDEX    Q                                     #  DATA IN. RETURN TO L+3.
012698,002497:    5150           00002                           TC       2                                     
012699,002498:    5151           50002        DATWAIT1           INDEX    Q                                     #  RETURN TO L+2.
012700,002499:    5152           00001                           TC       1                                     
012701,002500: 
012702,002501:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
012703,002502:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
012704,002503: 
012705,002504: 
012706,002505: 
012707,002506: 05,3403                                           SETLOC   MID6       +1                         
012708,002507:                                                                                                  #  DSPMM PLACE MAJOR MODE CODE INTO MODREG
012709,002508: 
012710,002509: 05,3403           35233        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
012711,002510: 05,3404           56264                           XCH      DSPCOUNT                              
012712,002511: 05,3405           54124                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
012713,002512: 05,3406           30276                           CA       MODREG                                
012714,002513: 05,3407           22002                           LXCH     Q                                     
012715,002514: 05,3410           03255                           TC       DSP2BIT                               
012716,002515: 05,3411           56124                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
012717,002516: 05,3412           54264                           TS       DSPCOUNT                              
012718,002517: 05,3413           00001        DSPMMEND           TC       L                                     
012719,002518: 
012720,002519: 
012721,002520: 
012722,002521:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS
012723,002522:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
012724,002523:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
012725,002524: 
012726,002525:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
012727,002526:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
012728,002527: 
012729,002528: 04,3427                                           SETLOC   SWTAB      +4                         
012730,002529: 
012731,002530: 04,3427           10323        RECALTST           CCS      CADRSTOR                              
012732,002531: 04,3430           03435                           TC       RECAL1                                
012733,002532: 04,3431           04421                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
012734,002533: 04,3432           03435                           TC       RECAL1                                
012735,002534: 04,3433           54323                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
012736,002535: 04,3434           03453                           TC       RECAL3                                #  +0 INTO CADRSTOR. RELEASE DISPLAY,
012737,002536:                                                                                                  #     AND ENDOFJOB. NEEDED FOR DATAWAIT.
012738,002537: 04,3435           37665        RECAL1             CAF      ZERO                                  
012739,002538: 04,3436           56323                           XCH      CADRSTOR                              
012740,002539: 04,3437           00004                           INHINT                                         
012741,002540: 04,3440           04403                           TC       JOBWAKE                               
012742,002541: 04,3441           10301                           CCS      LOADSTAT                              
012743,002542: 04,3442           03457                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
012744,002543: 
012745,002544: 04,3443           04421                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
012746,002545: 04,3444           03455                           TC       DOTERM                                #  -   TERMINATE
012747,002546: 04,3445           37656                           CAF      TWO                                   
012748,002547: 04,3446           50071        RECAL2             INDEX    LOCCTR                                
012749,002548: 04,3447           60150                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
012750,002549: 04,3450           50071                           INDEX    LOCCTR                                
012751,002550: 04,3451           54150                           TS       LOC                                   
012752,002551: 04,3452           00003                           RELINT                                         
012753,002552: 04,3453           05356        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
012754,002553: 04,3454           04421                           TC       ENDOFJOB                              
012755,002554: 
012756,002555: 04,3455           37665        DOTERM             CAF      ZERO                                  
012757,002556: 04,3456           03446                           TC       RECAL2                                
012758,002557: 
012759,002558: 04,3457           37657        DOPROC             CAF      ONE                                   
012760,002559: 04,3460           03446                           TC       RECAL2                                
012761,002560: 
012762,002561:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
012763,002562: 
012764,002563: 
012765,002564: 
012766,002565:                                                                                                  #  COMPONENT CODE NUMBER           INTERPRETATION
012767,002566: 
012768,002567:                                                                                                  #  00000                           1 COMPONENT
012769,002568:                                                                                                  #  00001                           2 COMPONENT (EACH S P)
012770,002569:                                                                                                  #  00010                           3 COMPONENT (EACH SP)
012771,002570: 
012772,002571: 
012773,002572: 
012774,002573:                                                                                                  #  SF ROUTINE CODE NUMBER          INTERPRETATION
012775,002574: 
012776,002575:                                                                                                  #  00000    OCTAL ONLY
012777,002576:                                                                                                  #  00001    STRAIGHT FRACTIONAL
012778,002577:                                                                                                  #  00010    DEGREES (XXX.XX)
012779,002578:                                                                                                  #  00011    ARITHMETIC SF
012780,002579:                                                                                                  #  00100    ARITH DP1   OUT(MULT BY 2/14 AT END)     IN (STRAIGHT)
012781,002580:                                                                                                  #  00101    ARITH DP2   OUT (STRAIGHT)               IN (SL 7 AT END)
012782,002581:                                                                                                  #  00110    OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
012783,002582:                                                                                                  #  00111    ARITH DP3   OUT (SL 7 AT END)        IN ( STRAIGHT)
012784,002583:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
012785,002584: 
012786,002585:                                                                                                  #  SF CONSTANT CODE NUMBER         INTERPRETATION
012787,002586: 
012788,002587:                                                                                                  #  00000                           WHOLE
012789,002588:                                                                                                  #  00000                           TIME SEC(XXX.XX)SAME AS WHOLE(ARITH DP1)
012790,002589:                                                                                                  #  00001                           TIME HOURS(XXX.XX) USE ARITH DP2
012791,002590:                                                                                                  #  00010                           DEGREES
012792,002591:                                                                                                  #  00010                           OPTICS DEGREES
012793,002592:                                                                                                  #  00011                           GYRO DEGREES (XX.XXX)  USE ARITHDP3
012794,002593:                                                                                                  #  00100                           GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
012795,002594:                                                                                                  #  00101                           GYRO AXIS ACCEL. DRIFT
012796,002595:                                                                                                  #                                  .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
012797,002596:                                                                                                  #  00110                           PIPA BIAS X.XXXX CM/SEC SEC
012798,002597:                                                                                                  #  00111                           PIPA SCALE FACTOR ERROR
012799,002598:                                                                                                  #                                      XXXXX. PARTS/MILLION
012800,002599:                                                                                                  #  01000                           POSITION(XXXX.X KILOMETERS) USE ARITHDP3
012801,002600:                                                                                                  #  01001                           VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
012802,002601:                                                                                                  #  01010                           TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
012803,002602:                                                                                                  #  01011                           ELEVATION DEGREES(89.999MAX) USE ARITH
012804,002603:                                                                                                  #  01100                           RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
012805,002604:                                                                                                  #                                                              USE ARITHDP1
012806,002605:                                                                                                  # 01101                            RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
012807,002606:                                                                                                  #                                                              USE ARITHDP1
012808,002607:                                                                                                  # 01110                            LANDING RADAR ALTITUDE(XXXXX.FEET)
012809,002608:                                                                                                  #                                                               USE ARITHDP1
012810,002609: 
012811,002610:                                                                                                  #  01111                           INITIAL/FINAL ALTITUDE(XXXXX.FEET)
012812,002611:                                                                                                  #                                                              USE ARITHDP1
012813,002612:                                                                                                  #  10000                           ALTITUDE RATE(XXXXX.FEET)      USE ARITH
012814,002613:                                                                                                  #  10001                           FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
012815,002614:                                                                                                  #                                                                 USE ARITH
012816,002615:                                                                                                  #  10010                           ROTATIONAL HAND CONTROLLER ANGLE RATES
012817,002616:                                                                                                  #                                        XXXXX.DEG/SEC            USE ARITH
012818,002617:                                                                                                  #  10011                           LANDING RADAR VELX(XXXXX.FEET/SEC)
012819,002618:                                                                                                  #                                                              USE ARITHDP1
012820,002619:                                                                                                  #  10100                           LANDING RADAR VELY(XXXXX.FEET/SEC)
012821,002620:                                                                                                  #                                                              USE ARITHDP1
012822,002621:                                                                                                  #  10101                           LANDING RADAR VELZ(XXXXX.FEET/SEC)
012823,002622:                                                                                                  #                                                              USE ARITHDP1
012824,002623:                                                                                                  #  10110                           OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
012825,002624:                                                                                                  #                                                              USE ARITHDP1
012826,002625:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
012827,002626: 
012828,002627: 
012829,002628: 
012830,002629:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
012831,002630:                                                                                                  #  NOUN TABLES.
012832,002631:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
012833,002632:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
012834,002633:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
012835,002634: 
012836,002635:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
012837,002636:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
012838,002637:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
012839,002638: 
012840,002639: 
012841,002640: 
012842,002641:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
012843,002642:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
012844,002643:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
012845,002644:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
012846,002645:                                                                                                  #  MIXED OR NORMAL NOUN.
012847,002646: 
012848,002647: 16,2000                                           BANK     16                                    
012849,002648: 
012850,002649: 16,2000           52136        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
012851,002650: 16,2001           50267                           INDEX    NOUNREG                               
012852,002651: 16,2002           32052                           CAF      NNADTAB                               
012853,002652: 16,2003           54132                           TS       NNADTEM                               
012854,002653: 16,2004           50267                           INDEX    NOUNREG                               
012855,002654: 16,2005           32152                           CAF      NNTYPTAB                              
012856,002655: 16,2006           54133                           TS       NNTYPTEM                              
012857,002656: 16,2007           40267                           CS       NOUNREG                               
012858,002657: 16,2010           62036                           AD       MIXCON                                
012859,002658: 16,2011           00006                           EXTEND                                         
012860,002659: 16,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
012861,002660: 16,2013           37657                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
012862,002661: 16,2014           54124                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
012863,002662: 16,2015           02034                           TC       LODNLV                                
012864,002663: 16,2016           37656        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
012865,002664: 16,2017           54124                           TS       MIXBR                                 
012866,002665: 16,2020           50267                           INDEX    NOUNREG                               
012867,002666: 16,2021           32420                           CAF      RUTMXTAB   -55                        
012868,002667: 16,2022           54137                           TS       RUTMXTEM                              
012869,002668: 16,2023           36426                           CAF      LOW10                                 
012870,002669: 16,2024           70132                           MASK     NNADTEM                               
012871,002670: 16,2025           54002                           TS       Q                                     #  TEMP
012872,002671: 16,2026           50000                           INDEX    A                                     
012873,002672: 16,2027           32406                           CAF      IDADDTAB                              
012874,002673: 16,2030           54134                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
012875,002674: 16,2031           00006                           EXTEND                                         
012876,002675: 16,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
012877,002676: 16,2033           32410                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
012878,002677: 16,2034           52136        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN INFO INTO A, L.
012879,002678: 16,2035           52006                           DXCH     Z                                     
012880,002679: 
012881,002680: 16,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
012882,002681: 
012883,002682: 
012884,002683: 
012885,002684:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
012886,002685: 
012887,002686: 16,2037           52110        GTSFOUT            DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
012888,002687: 16,2040           00006                           EXTEND                                         
012889,002688: 16,2041           50000                           INDEX    A                                     
012890,002689: 16,2042           32331                           DCA      SFOUTAB                               
012891,002690: 16,2043           52110        SFCOM              DXCH     SFTEMP1                               
012892,002691: 16,2044           52006                           DXCH     Z                                     
012893,002692: 
012894,002693: 
012895,002694: 
012896,002695:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB INTRIES.
012897,002696: 
012898,002697: 16,2045           52110        GTSFIN             DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
012899,002698: 16,2046           00006                           EXTEND                                         
012900,002699: 16,2047           50000                           INDEX    A                                     
012901,002700: 16,2050           32253                           DCA      SFINTAB                               
012902,002701: 16,2051           12043                           TCF      SFCOM                                 
012903,002702: 
012904,002703: 
012905,002704: 
012906,002705:                                                                                                  #  NN  NORMAL NOUNS
012907,002706: 16,2052           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
012908,002707: 16,2053           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
012909,002708: 16,2054           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
012910,002709: 16,2055           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
012911,002710: 16,2056           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
012912,002711: 16,2057           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
012913,002712: 16,2060           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
012914,002713: 16,2061           00000                           OCT      00000                                 #  07 SPARE
012915,002714: 16,2062           77776                           OCT      77776                                 #  10 CHANNEL TO BE SPECIFIED
012916,002715: 16,2063           00000                           OCT      00000                                 #  11 SPARE
012917,002716: 16,2064           00000                           OCT      00000                                 #  12 SPARE
012918,002717: 16,2065           00000                           OCT      00000                                 #  13 SPARE
012919,002718: 16,2066           00000                           OCT      00000                                 #  14 SPARE
012920,002719: 16,2067           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
012921,002720: 16,2070           00024                           ECADR    TIME2                                 #  16 TIME SECONDS
012922,002721: 16,2071           00024                           ECADR    TIME2                                 #  17 TIME HOURS
012923,002722: 16,2072           00032                           ECADR    CDUX                                  #  20 ICDU
012924,002723: 16,2073           00037                           ECADR    PIPAX                                 #  21 PIPAS
012925,002724: 16,2074           00400                           ECADR    THETAD                                #  22 NEW ANGLES I
012926,002725: 16,2075           00336                           ECADR    DSPTEM2                               #  23 DELTA ANGLES I
012927,002726: 16,2076           00333                           ECADR    DSPTEM1                               #  24 DELTA TIME (SEC)
012928,002727: 16,2077           00333                           ECADR    DSPTEM1                               #  25 CHECKLIST
012929,002728: 16,2100           00333                           ECADR    DSPTEM1                               #  26 PRIO/DELAY, ADRES, BBCON
012930,002729: 16,2101           01361                           ECADR    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
012931,002730: 16,2102           00333                           ECADR    DSPTEM1                               #  30 STAR NUMBERS
012932,002731: 16,2103           01363                           ECADR    FAILREG                               #  31 FAILREG
012933,002732: 16,2104           02166                           ECADR    TDEC                                  #  32 DECISION TIME (MIDCOURSE)
012934,002733: 16,2105           02046                           ECADR    TET                                   #  33 EPHEMERIS TIME (MIDCOURSE)
012935,002734: 16,2106           02174                           ECADR    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
012936,002735: 16,2107           00333                           ECADR    DSPTEM1                               #  35 INBIT MESSAGE
012937,002736: 
012938,002737: 16,2110           01474                           ECADR    LANDMARK                              #  36 LANDMARK DATA 1
012939,002738: 16,2111           01477                           ECADR    LANDMARK   +3                         #  37 LANDMARK DATA 2
012940,002739: 16,2112           00035                           ECADR    OPTY                                  #  40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
012941,002740: 16,2113           00423                           ECADR    TANG                                  #  41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
012942,002741: 16,2114           00336                           ECADR    DSPTEM2                               #  42 AOT ROTATION ANGLES
012943,002742: 16,2115           00375                           ECADR    XYMARK                                #  43 AOT DETENT CODE
012944,002743: 16,2116           00360                           ECADR    FORVEL                                #  44 FORWARD VELOCITY, LATERAL VELOCITY
012945,002744: 16,2117           00000                           OCT      00000                                 #  45 SPARE
012946,002745: 16,2120           00000                           OCT      00000                                 #  46 SPARE
012947,002746: 16,2121           00000                           OCT      00000                                 #  47 SPARE
012948,002747: 16,2122           00000                           OCT      00000                                 #  50 SPARE
012949,002748: 16,2123           00000                           OCT      00000                                 #  51 SPARE
012950,002749: 16,2124           01440                           ECADR    GBIASX                                #  52 GYRO BIAS DRIFT
012951,002750: 16,2125           01443                           ECADR    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
012952,002751: 16,2126           01446                           ECADR    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
012953,002752: 
012954,002753:                                                                                                  #  NN  MIXED NOUNS
012955,002754: 16,2127           02000                           OCT      02000                                 #  55 LANDING RADAR ALTITUDE, TIME(SEC)
012956,002755: 16,2130           02002                           OCT      02002                                 #  56 LANDING RADAR VELX, TIME(SEC)
012957,002756: 16,2131           02004                           OCT      02004                                 #  57 LANDING RADAR VELY, TIME(SEC)
012958,002757: 16,2132           02006                           OCT      02006                                 #  60 LANDING RADAR VELZ, TIME(SEC)
012959,002758: 16,2133           02010                           OCT      02010                                 #  61 TARGET AZIMUTH AND ELEVATION
012960,002759: 16,2134           04012                           OCT      04012                                 #  62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
012961,002760: 16,2135           04015                           OCT      04015                                 #  63 REND. RADAR RANGE RATE, TRUN, SHAFT
012962,002761: 16,2136           04020                           OCT      04020                                 #  64 INITIAL ALT, FINAL ALT, ALT RATE
012963,002762: 16,2137           02023                           OCT      02023                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
012964,002763:                                                                                                  #       (FETCHED IN INTERRUPT)
012965,002764: 16,2140           04025                           OCT      04025                                 #  66 SYSTEM TEST RESULTS
012966,002765: 16,2141           04030                           OCT      04030                                 #  67 DELTA GYRO ANGLES
012967,002766: 16,2142           02033                           OCT      02033                                 #  70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
012968,002767: 16,2143           02035                           OCT      02035                                 #  71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
012969,002768: 16,2144           04037                           OCT      04037                                 #  72 DELTA POSITION
012970,002769: 16,2145           04042                           OCT      04042                                 #  73 DELTA VELOCITY
012971,002770: 16,2146           04045                           OCT      04045                                 #  74 MEASUREMENT DATA (MIDCOURSE)
012972,002771: 16,2147           04050                           OCT      04050                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
012973,002772: 16,2150           04053                           OCT      04053                                 #  76 POSITION VECTOR
012974,002773: 16,2151           04056                           OCT      04056                                 #  77 VELOCITY VECTOR
012975,002774: 
012976,002775: 
012977,002776: 
012978,002777:                                                                                                  #  NN        NORMAL NOUNS
012979,002778: 16,2152           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
012980,002779: 16,2153           00040                           OCT      00040                                 #  01 1COMP FRACTIONAL
012981,002780: 16,2154           00140                           OCT      00140                                 #  02 1COMP WHOLE
012982,002781: 16,2155           00102                           OCT      00102                                 #  03 1COMP DEGREES
012983,002782: 16,2156           00241                           OCT      00241                                 #  04 1COMP HOURS
012984,002783: 16,2157           00200                           OCT      00200                                 #  05 1COMP SECONDS
012985,002784: 16,2160           00343                           OCT      00343                                 #  06 1COMP GYRO DEGREES
012986,002785: 16,2161           00000                           OCT      00000                                 #  07       SPARE
012987,002786: 16,2162           00000                           OCT      00000                                 #  10 1COMP OCTAL ONLY
012988,002787: 
012989,002788: 16,2163           00000                           OCT      00000                                 #  11        SPARE
012990,002789: 16,2164           00000                           OCT      00000                                 #  12        SPARE
012991,002790: 16,2165           00000                           OCT      00000                                 #  13        SPARE
012992,002791: 16,2166           00000                           OCT      00000                                 #  14        SPARE
012993,002792: 16,2167           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
012994,002793: 16,2170           00200                           OCT      00200                                 #  16 1COMP  SECONDS
012995,002794: 16,2171           00241                           OCT      00241                                 #  17 1COMP  HOURS
012996,002795: 16,2172           04102                           OCT      04102                                 #  20 3COMP  DEGREES
012997,002796: 16,2173           04140                           OCT      04140                                 #  21 3COMP  WHOLE
012998,002797: 16,2174           04102                           OCT      04102                                 #  22 3COMP  DEGREES
012999,002798: 16,2175           04102                           OCT      04102                                 #  23 3COMP  DEGREES
013000,002799: 16,2176           00200                           OCT      00200                                 #  24 1COMP  SECONDS
013001,002800: 16,2177           00140                           OCT      00140                                 #  25 1COMP  WHOLE
013002,002801: 16,2200           04000                           OCT      04000                                 #  26 3COMP  OCTAL ONLY
013003,002802: 16,2201           00140                           OCT      00140                                 #  27 1COMP  WHOLE
013004,002803: 16,2202           04140                           OCT      04140                                 #  30 3COMP  WHOLE
013005,002804: 16,2203           04000                           OCT      04000                                 #  31 3COMP  OCTAL ONLY
013006,002805: 16,2204           00252                           OCT      00252                                 #  32 1COMP  TIME WEEKS
013007,002806: 16,2205           00252                           OCT      00252                                 #  33 1COMP  TIME WEEKS
013008,002807: 16,2206           00350                           OCT      00350                                 #  34 1COMP  POISTION
013009,002808: 16,2207           04000                           OCT      04000                                 #  35 3COMP  OCTAL ONLY
013010,002809: 16,2210           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
013011,002810: 16,2211           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
013012,002811: 16,2212           02102                           OCT      02102                                 #  40 2COMP  DEGREES
013013,002812: 16,2213           02102                           OCT      02102                                 #  41 2COMP  DEGREES
013014,002813: 16,2214           02102                           OCT      02102                                 #  42 2COMP  DEGREES
013015,002814: 16,2215           00140                           OCT      00140                                 #  43 1COMP  WHOLE
013016,002815: 16,2216           02161                           OCT      02161                                 #  44 2COMP  FORWARD/LATERAL VELOCITY
013017,002816: 16,2217           00000                           OCT      00000                                 #  45        SPARE
013018,002817: 16,2220           00000                           OCT      00000                                 #  46        SPARE
013019,002818: 16,2221           00000                           OCT      00000                                 #  47        SPARE
013020,002819: 16,2222           00000                           OCT      00000                                 #  50        SPARE
013021,002820: 16,2223           00000                           OCT      00000                                 #  51        SPARE
013022,002821: 16,2224           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
013023,002822: 16,2225           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
013024,002823: 16,2226           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
013025,002824: 
013026,002825:                                                                                                  #  NN        MIXED NOUNS
013027,002826: 16,2227           00016                           OCT      00016                                 #  55 2COMP  LANDING RADAR ALT, SECONDS
013028,002827: 16,2230           00023                           OCT      00023                                 #  56 2COMP  LANDING RADAR VELX, SECONDS
013029,002828: 16,2231           00024                           OCT      00024                                 #  57 2COMP  LANDING RADAR VELY, SECONDS
013030,002829: 16,2232           00025                           OCT      00025                                 #  60 2COMP  LANDING RADAR VELZ, SECONDS
013031,002830: 16,2233           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
013032,002831: 16,2234           04114                           OCT      04114                                 #  62 3COMP  REND. RADAR RANGE, DEG, DEG
013033,002832: 16,2235           04115                           OCT      04115                                 #  63 3COMP  REND. RAD. RANGE RATE, DEG,DEG
013034,002833: 16,2236           40757                           OCT      40757                                 #  64 3COMP  IN/FN ALT, IN/FN ALT, ALT RATE
013035,002834: 16,2237           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS
013036,002835: 16,2240           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
013037,002836: 16,2241           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
013038,002837: 16,2242           00126                           OCT      00126                                 #  70 2COMP  OPT TRACK AZIMUTH, DEGREES
013039,002838: 
013040,002839: 16,2243           00126                           OCT      00126                                 #  71 2COMP  OPT TRACK AZIMUTH, DEGREES
013041,002840: 16,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
013042,002841: 16,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
013043,002842: 16,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
013044,002843: 16,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
013045,002844: 16,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
013046,002845: 16,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
013047,002846: 
013048,002847: 
013049,002848: 
013050,002849: 16,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
013051,002850: 16,2253           03240                           OCT      03240                                 
013052,002851: 16,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
013053,002852: 16,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
013054,002853: 16,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF)
013055,002854: 16,2257           00000                           OCT      0                                     
013056,002855: 16,2260           10707                           OCT      10707                                 #  GYRO DEGREES
013057,002856: 16,2261           03435                           OCT      03435                                 #              UPPED BY 1
013058,002857: 16,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
013059,002858: 16,2263           02133                           OCT      02133                                 
013060,002859: 16,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
013061,002860: 16,2265           30322                           OCT      30322                                 
013062,002861: 16,2266           00004                           OCT      00004                                 #  PIPA BIAS
013063,002862: 16,2267           14021                           OCT      14021                                 
013064,002863: 16,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR.
013065,002864: 16,2271           31463                           OCT      31463                                 
013066,002865: 16,2272           23420                           OCT      23420                                 #  POSITION
013067,002866: 16,2273           00000                           OCT      00000                                 
013068,002867: 16,2274           00201                           OCT      00201                                 #  VELOCITY
013069,002868: 16,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
013070,002869: 16,2276           01371                           OCT      01371                                 #  TIME WEEKS
013071,002870: 16,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
013072,002871: 16,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
013073,002872: 16,2301           03434                           OCT      03434                                 
013074,002873: 16,2302           00006                           OCT      00006                                 #  RENDEZVOUS RADAR RANGE
013075,002874: 16,2303           20162                           OCT      20162                                 
013076,002875: 16,2304           00011                           OCT      00011                                 #  RENDEZVOUS RADAR RANGE RATE
013077,002876: 16,2305           27066                           OCT      27066                                 
013078,002877: 16,2306           00016                           OCT      00016                                 #  LANDING RADAR ALTITUDE
013079,002878: 16,2307           04245                           OCT      04245                                 
013080,002879: 16,2310           00002                           OCT      00002                                 #  INITIAL/FINAL ALTITUDE
013081,002880: 16,2311           23224                           OCT      23224                                 
013082,002881: 16,2312           00014                           OCT      00014                                 #  ALTITUDE RATE
013083,002882: 16,2313           06500                           OCT      06500                                 
013084,002883: 16,2314           00012                           OCT      00012                                 #  FORWARD/LATERAL VELOCITY
013085,002884: 16,2315           36455                           OCT      36455                                 
013086,002885: 16,2316           04256                           OCT      04256                                 #  ROT HAND CONT ANGLE RATE
013087,002886: 16,2317           07071                           OCT      07071                                 
013088,002887: 16,2320           77766                           OCT      77766                                 #  LANDING RADAR VELX (NEG TO SWITCH SIGNS)
013089,002888: 16,2321           60044                           OCT      60044                                 
013090,002889: 
013091,002890: 16,2322           00004                           OCT      00004                                 #  LANDING RADAR VELY
013092,002891: 16,2323           34055                           OCT      34055                                 
013093,002892: 16,2324           00007                           OCT      00007                                 #  LANDING RADAR VELZ
013094,002893: 16,2325           04147                           OCT      04147                                 
013095,002894: 16,2326           00005                           OCT      00005                                 #  OPTICAL AZIMUTH TRACKER ANGLE
013096,002895: 16,2327           21616                           OCT      21616                                 
013097,002896:                                                                                                  #  END OF SFINTAB
013098,002897: 
013099,002898: 
013100,002899: 
013101,002900: 16,2330           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
013102,002901: 16,2331           13261                           OCT      13261                                 
013103,002902: 16,2332           27670                           OCT      27670                                 #  TIME HOURS
013104,002903: 16,2333           31357                           OCT      31357                                 
013105,002904: 16,2334           00000                           OCT      0                                     #  DEGREES
013106,002905: 16,2335           00000                           OCT      0                                     
013107,002906: 16,2336           00714                           OCT      00714                                 #  GYRO DEGREES
013108,002907: 16,2337           31463                           OCT      31463                                 #  (POINT BETWEEN BITS 7-8)
013109,002908: 16,2340           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
013110,002909: 16,2341           32323                           OCT      32323                                 
013111,002910: 16,2342           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
013112,002911: 16,2343           06400                           OCT      06400                                 
013113,002912: 16,2344           07237                           OCT      07237                                 #  PIPA BIAS
013114,002913: 16,2345           37776                           OCT      37776                                 
013115,002914: 16,2346           00120                           OCT      00120                                 #  PIPA SCALE ERROR
013116,002915: 16,2347           00000                           OCT      00000                                 
013117,002916: 16,2350           00321                           OCT      00321                                 #  POSITION
013118,002917: 16,2351           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
013119,002918: 16,2352           37441                           OCT      37441                                 #  VELOCITY
013120,002919: 16,2353           14247                           OCT      14247                                 
013121,002920: 16,2354           05300                           OCT      05300                                 #  TIME WEEKS
013122,002921: 16,2355           20305                           OCT      20305                                 
013123,002922: 16,2356           34631                           OCT      34631                                 #  ELEVATION DEGREES
013124,002923: 16,2357           23146                           OCT      23146                                 
013125,002924: 16,2360           04725                           OCT      04725                                 #  RENDEZVOUS RADAR RANGE
013126,002925: 16,2361           35454                           OCT      35454                                 
013127,002926: 16,2362           03225                           OCT      03225                                 #  RENDEZVOUS RADAR RANGE RATE
013128,002927: 16,2363           07470                           OCT      07470                                 
013129,002928: 16,2364           02207                           OCT      02207                                 #  LANDING RADAR ALTITUDE
013130,002929: 16,2365           03255                           OCT      03255                                 
013131,002930: 16,2366           14226                           OCT      14226                                 #  INITIAL/FINAL ALTITUDE
013132,002931: 16,2367           31757                           OCT      31757                                 
013133,002932: 16,2370           02476                           OCT      02476                                 #  ALTITUDE RATE
013134,002933: 16,2371           05531                           OCT      05531                                 
013135,002934: 16,2372           02727                           OCT      02727                                 #  FORWARD/LATERAL VELOCITY
013136,002935: 16,2373           16415                           OCT      16415                                 
013137,002936: 16,2374           00007                           OCT      00007                                 #  ROT HAND CONT ANGLE RATE
013138,002937: 16,2375           13734                           OCT      13734                                 
013139,002938: 16,2376           74502                           OCT      74502                                 #  LANDING RADAR VELX (NEG TO SWITCH SIGNS)
013140,002939: 16,2377           76401                           OCT      76401                                 
013141,002940: 
013142,002941: 16,2400           06436                           OCT      06436                                 #  LANDING RADAR VELY
013143,002942: 16,2401           35664                           OCT      35664                                 
013144,002943: 16,2402           04371                           OCT      04371                                 #  LANDING RADAR VELZ
013145,002944: 16,2403           17420                           OCT      17420                                 
013146,002945: 16,2404           05605                           OCT      05605                                 #  OPTICAL TRACKER AZIMUTH ANGLE
013147,002946: 16,2405           03656                           OCT      03656                                 
013148,002947:                                                                                                  #  END OF SFOUTAB
013149,002948: 
013150,002949: 
013151,002950:                                                                                                  #  MIXNOUN   SF ROUT
013152,002951: 16,2406           03461        IDADDTAB           ECADR    RSTACK     +18D                       #  01        LANDING RADAR ALTITUDE
013153,002952: 16,2407           03465                           ECADR    RSTACK     +22D                       #  01        SECONDS
013154,002953: 16,2410           03437                           ECADR    RSTACK                                #  02        LANDING RADAR VELX
013155,002954: 16,2411           03443                           ECADR    RSTACK     +4                         #  02        SECONDS
013156,002955: 16,2412           03445                           ECADR    RSTACK     +6                         #  03        LANDING RADAR VELY
013157,002956: 16,2413           03451                           ECADR    RSTACK     +10D                       #  03        SECONDS
013158,002957: 16,2414           03453                           ECADR    RSTACK     +12D                       #  04        LANDING RADAR VELY
013159,002958: 16,2415           03457                           ECADR    RSTACK     +16D                       #  04        SECONDS
013160,002959: 16,2416           00333                           ECADR    DSPTEM1                               #  05        DEGREES
013161,002960: 16,2417           00334                           ECADR    DSPTEM1    +1                         #  05        ELEVATION DEGREES
013162,002961: 16,2420           03437                           ECADR    RSTACK                                #  06        RENDEZVOUS RADAR RANGE
013163,002962: 16,2421           03441                           ECADR    RSTACK     +2                         #  06        DEGREES
013164,002963: 16,2422           03442                           ECADR    RSTACK     +3                         #  06        DEGREES
013165,002964: 16,2423           03445                           ECADR    RSTACK     +6                         #  07        RENDEZVOUS RADAR RANGE RATE
013166,002965: 16,2424           03447                           ECADR    RSTACK     +8D                        #  07        DEGREES
013167,002966: 16,2425           03450                           ECADR    RSTACK     +9D                        #  07        DEGREES
013168,002967: 16,2426           00352                           ECADR    ALT                                   #  10        INITIAL/FINAL ALTITUDE
013169,002968: 16,2427           00355                           ECADR    FINALT                                #  10        INITIAL/FINAL ALTITUDE
013170,002969: 16,2430           00354                           ECADR    ALTRATE                               #  10        ALTITUDE RATE
013171,002970: 16,2431           00013                           ECADR    SAMPTIME                              #  11        HOURS
013172,002971: 16,2432           00013                           ECADR    SAMPTIME                              #  11        SECONDS
013173,002972: 16,2433           00336                           ECADR    DSPTEM2                               #  11        WHOLE
013174,002973: 16,2434           00337                           ECADR    DSPTEM2    +1                         #  12        FRACTIONAL
013175,002974: 16,2435           00340                           ECADR    DSPTEM2    +2                         #  12        WHOLE
013176,002975: 16,2436           00403                           ECADR    DELVX                                 #  13        GYRO DEGREES
013177,002976: 16,2437           00405                           ECADR    DELVX      +2                         #  13        GYRO DEGREES
013178,002977: 16,2440           00407                           ECADR    DELVX      +4                         #  13        GYRO DEGREES
013179,002978: 16,2441           01471                           ECADR    AZANG                                 #  14        OPT TRACK AZIMUTH ANGLE
013180,002979: 16,2442           01471                           ECADR    ELANG                                 #  14        DEGREES
013181,002980: 16,2443           01471                           ECADR    DESLOTSY                              #  15        OPT TRACK AZIMUTH ANGLE
013182,002981: 16,2444           01471                           ECADR    DESLOTSX                              #  15        DEGREES
013183,002982: 16,2445           02052                           ECADR    DELR                                  #  16        POSITION
013184,002983: 16,2446           02054                           ECADR    DELR       +2                         #  16        POSITION
013185,002984: 16,2447           02056                           ECADR    DELR       +4                         #  16        POSITION
013186,002985: 16,2450           02060                           ECADR    DELVEL                                #  17        VELOCITY
013187,002986: 16,2451           02062                           ECADR    DELVEL     +2                         #  17        VELOCITY
013188,002987: 16,2452           02064                           ECADR    DELVEL     +4                         #  17        VELOCITY
013189,002988: 16,2453           02166                           ECADR    TDEC                                  #  20        TIME WEEKS
013190,002989: 16,2454           02174                           ECADR    MEASQ                                 #  20        POSITION
013191,002990: 
013192,002991: 16,2455           02200                           ECADR    MEASMODE                              #  20        WHOLE
013193,002992: 16,2456           00333                           ECADR    DSPTEM1                               #  21        POSITION
013194,002993: 16,2457           00335                           ECADR    DSPTEM1    +2                         #  21        VELOCITY
013195,002994: 16,2460           02176                           ECADR    DELTAQ                                #  21        POSITION
013196,002995: 16,2461           00333                           ECADR    DSPTEM1                               #  22        POSITION
013197,002996: 16,2462           00335                           ECADR    DSPTEM1    +2                         #  22        POSITION
013198,002997: 16,2463           00337                           ECADR    DSPTEM1    +4                         #  22        POSITION
013199,002998: 16,2464           00333                           ECADR    DSPTEM1                               #  23        VELOCITY
013200,002999: 16,2465           00335                           ECADR    DSPTEM1    +2                         #  23        VELOCITY
013201,003000: 16,2466           00337                           ECADR    DSPTEM1    +4                         #  23        VELOCITY
013202,003001: 16,2467           00000                           OCT      00000                                 #            SPARE
013203,003002: 16,2470           00000                           OCT      00000                                 #            SPARE
013204,003003: 16,2471           00000                           OCT      00000                                 #            SPARE
013205,003004: 16,2472           00000                           OCT      00000                                 #            SPARE
013206,003005: 16,2473           00000                           OCT      00000                                 #            SPARE
013207,003006: 16,2474           00000                           OCT      00000                                 #            SPARE
013208,003007:                                                                                                  #  END OF IDADDTAB
013209,003008: 
013210,003009: 
013211,003010: 
013212,003011:                                                                                                  #  MIXNOUN  SF ROUT
013213,003012: 16,2475           00204        RUTMXTAB           OCT      00204                                 #  01  LANDING RADAR ALTITUDE, SECONDS
013214,003013: 16,2476           00204                           OCT      00204                                 #  02  LANDING RADAR VELX, SECONDS
013215,003014: 16,2477           00204                           OCT      00204                                 #  03  LANDING RADAR VELY, SECONDS
013216,003015: 16,2500           00204                           OCT      00204                                 #  04  LANDING RADAR VELZ, SECONDS
013217,003016: 16,2501           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
013218,003017: 16,2502           04104                           OCT      04104                                 #  06  RENDEZVOUS RADAR RANGE, DEG, DEG
013219,003018: 16,2503           04104                           OCT      04104                                 #  07  REND. RADAR RANGE RATE, DEG, DEG
013220,003019: 16,2504           06204                           OCT      06204                                 #  10  INIT/FIN ALT, INIT/FIN ALT, ALT RATE
013221,003020: 16,2505           00205                           OCT      00205                                 #  11  HOURS, SECONDS
013222,003021: 16,2506           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
013223,003022: 16,2507           16347                           OCT      16347                                 #  13  GYRO DEGREES (FOR EACH)
013224,003023: 16,2510           00104                           OCT      00104                                 #  14  OPT TRACK AZIMUTH ANGLE, DEGREES
013225,003024: 16,2511           00104                           OCT      00104                                 #  15  OPT TRACK AZIMUTH ANGLE, DEGREES
013226,003025: 16,2512           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
013227,003026: 16,2513           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
013228,003027: 16,2514           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
013229,003028: 16,2515           16247                           OCT      16247                                 #  21  POSITION , VELOCITY, POSITION
013230,003029: 16,2516           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
013231,003030: 16,2517           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
013232,003031:                                                                                                  #  END OF RUTMXTAB
013233,003032: 
013234,003033: 
013235,003034: 
013236,003035: 16,2520                        ENDPINS3           EQUALS                                         
013237,003036: 
013238,003037: 
013239,003038:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
013240,003039: 
013241,003040: 
013242,003041: 
013243,003042:    5153                                           SETLOC   DATWAIT1   +2                         
013244,003043: 
013245,003044:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
013246,003045:                                                                                                  #                ARE SET.  E ADRES IS DERIVED AND PUT INTO NOUNADD.
013247,003046: 
013248,003047:    5153           54304        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
013249,003048:    5154           54003                           TS       EBANK                                 #  SET EBANK BITS
013250,003049:    5155           75227                           MASK     LOW8                                  
013251,003050:    5156           65230                           AD       OCT1400                               
013252,003051:    5157           54131                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
013253,003052:    5160           00002                           TC       Q                                     
013254,003053: 
013255,003054: 
013256,003055: 
013257,003056:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
013258,003057:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
013259,003058: 
013260,003059:    5161           30304        SETNADD            CA       NOUNCADR                              
013261,003060:    5162           15154                           TCF      SETNCADR   +1                         
013262,003061: 
013263,003062: 
013264,003063: 
013265,003064:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
013266,003065:                                                                                                  #                DERIVED AND LEFT IN A.
013267,003066: 
013268,003067:    5163           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
013269,003068:    5164           75227                           MASK     LOW8                                  
013270,003069:    5165           65230                           AD       OCT1400                               #  E ADRES LEFT IN A
013271,003070:    5166           00002                           TC       Q                                     
013272,003071: 
013273,003072: 
013274,003073: 
013275,003074:    5167           00016        R1D1               OCT      16                                    
013276,003075:    5170           00011        R2D1               OCT      11                                    
013277,003076:    5171           00004        R3D1               OCT      4                                     
013278,003077: 
013279,003078:    5172           54020        RIGHT5             TS       CYR                                   
013280,003079:    5173           40020                           CS       CYR                                   
013281,003080:    5174           40020                           CS       CYR                                   
013282,003081:    5175           40020                           CS       CYR                                   
013283,003082:    5176           40020                           CS       CYR                                   
013284,003083:    5177           56020                           XCH      CYR                                   
013285,003084:    5200           00002                           TC       Q                                     
013286,003085: 
013287,003086:    5201           54022        LEFT5              TS       CYL                                   
013288,003087:    5202           40022                           CS       CYL                                   
013289,003088: 
013290,003089:    5203           40022                           CS       CYL                                   
013291,003090:    5204           40022                           CS       CYL                                   
013292,003091:    5205           40022                           CS       CYL                                   
013293,003092:    5206           56022                           XCH      CYL                                   
013294,003093:    5207           00002                           TC       Q                                     
013295,003094: 
013296,003095:    5210           60000        SLEFT5             DOUBLE                                         
013297,003096:    5211           60000                           DOUBLE                                         
013298,003097:    5212           60000                           DOUBLE                                         
013299,003098:    5213           60000                           DOUBLE                                         
013300,003099:    5214           60000                           DOUBLE                                         
013301,003100:    5215           00002                           TC       Q                                     
013302,003101: 
013303,003102: 
013304,003103: 
013305,003104:    5216           00037        LOW5               OCT      37                                    
013306,003105:    5217           01740        MID5               OCT      1740                                  
013307,003106:    5220           76000        HI5                OCT      76000                                 #  MUST STAY HERE
013308,003107: 
013309,003108:    5221           04344        TCNOVAC            TC       NOVAC                                 
013310,003109:    5222           04517        TCWAIT             TC       WAITLIST                              
013311,003110:    5223           04563        TCTSKOVR           TC       TASKOVER                              
013312,003111:    5224           04355        TCFINDVC           TC       FINDVAC                               
013313,003112: 
013314,003113: 
013315,003114: 
013316,003115:    5225           30000        CHRPRIO            OCT      30000                                 #  EXEC PRIORITY OF CHARIN
013317,003116: 
013318,003117: 
013319,003118: 
013320,003119:    5226           03777        LOW11              OCT      3777                                  
013321,003120:    5227     5226               B12-1              EQUALS   LOW11                                 
013322,003121:    5227           00377        LOW8               OCT      377                                   
013323,003122:    5230           01400        OCT1400            OCT      1400                                  
013324,003123: 
013325,003124: 
013326,003125: 
013327,003126:    5231           00023        VD1                OCT      23                                    
013328,003127:    5232           00021        ND1                OCT      21                                    
013329,003128:    5233           00025        MD1                OCT      25                                    
013330,003129: 
013331,003130:    5234           00012        BINCON             DEC      10         B-14                       
013332,003131: 
013333,003132:    5235           37651        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
013334,003133:    5236           00006                           EXTEND                                         
013335,003134:    5237           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
013336,003135:    5240           00002                           TC       Q                                     
013337,003136: 
013338,003137:    5241           47651        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
013339,003138:    5242           00006                           EXTEND                                         
013340,003139: 
013341,003140:    5243           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
013342,003141:    5244           00002                           TC       Q                                     
013343,003142: 
013344,003143:    5245           37653        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
013345,003144:    5246           00006                           EXTEND                                         
013346,003145:    5247           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
013347,003146:    5250           00002                           TC       Q                                     
013348,003147: 
013349,003148:    5251           00006        LODSAMPT           EXTEND                                         
013350,003149:    5252           30025                           DCA      TIME2                                 
013351,003150:    5253           52014                           DXCH     SAMPTIME                              
013352,003151:    5254           00002                           TC       Q                                     
013353,003152: 
013354,003153: 
013355,003154: 
013356,003155:    5255           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
013357,003156:    5256           30142                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
013358,003157:    5257           20142                           DAS      MPAC       +1                         
013359,003158:    5260           60140                           AD       MPAC                                  
013360,003159:    5261           26140                           ADS      MPAC                                  
013361,003160:    5262           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
013362,003161:    5263           00002                           TC       Q                                     #  NO NET OF/UF
013363,003162:    5264           54105                           TS       OVFIND                                #  OVFIND SET TO +/- 1 FOR OF/UF
013364,003163:    5265           00002                           TC       Q                                     
013365,003164: 
013366,003165: 
013367,003166: 
013368,003167:    5266           37652        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
013369,003168:    5267           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
013370,003169:    5270           05011                           WOR      DSALMOUT                              
013371,003170:    5271           00002                           TC       Q                                     
013372,003171: 
013373,003172: 
013374,003173: 
013375,003174:    5272           47652        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
013376,003175:    5273           00006                           EXTEND                                         
013377,003176:    5274           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
013378,003177:    5275           00002                           TC       Q                                     
013379,003178: 
013380,003179:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
013381,003180:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
013382,003181:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
013383,003182: 
013384,003183:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
013385,003184:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
013386,003185: 
013387,003186:                                                                                                  #        THE CALLING SEQUENCES ARE
013388,003187:                                                                                                  #  L        TC     GRABDSP
013389,003188:                                                                                                  #  L+1      RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
013390,003189:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
013391,003190: 
013392,003191:                                                                                                  #  L        TC     NVSUB
013393,003192:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
013394,003193:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
013395,003194: 
013396,003195: 
013397,003196: 
013398,003197:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
013399,003198:                                                                                                  #  JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
013400,003199:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
013401,003200:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
013402,003201:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
013403,003202: 
013404,003203:                                                                                                  #        THE CALLING SEQUENCE IS
013405,003204:                                                                                                  #           CAF    WAKEFCADR
013406,003205:                                                                                                  #           TC     GRABUSY
013407,003206: 
013408,003207:                                                                                                  #        A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
013409,003208:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
013410,003209:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
013411,003210:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
013412,003211:                                                                                                  #                                              YOUR CADR IS PUT
013413,003212:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
013414,003213: 
013415,003214:                                                                                                  #         THE CALLING SEQUENCE IS
013416,003215:                                                                                                  #           CAF    WAKEFCADR
013417,003216:                                                                                                  #           TC     NVSUBUSY
013418,003217: 
013419,003218: 
013420,003219:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
013421,003220:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
013422,003221:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
013423,003222: 
013424,003223: 
013425,003224: 
013426,003225:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
013427,003226:                                                                                                  #  AND DISPLAY SYSTEM.
013428,003227:                                                                                                  #  +0  FREE
013429,003228: 
013430,003229:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
013431,003230:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
013432,003231: 
013433,003232: 
013434,003233: 
013435,003234:    5276           10324        GRABDSP            CCS      GRABLOCK                              
013436,003235:    5277           00002                           TC       Q                                     #  ALREADY GRABBED, RETURN TO L+1
013437,003236:    5300           37657                           CAF      ONE                                   #  NOT GRABBED, SET TO +1
013438,003237:    5301           54324                           TS       GRABLOCK                              #  AND RETURN TO L+2
013439,003238:    5302           50002                           INDEX    Q                                     
013440,003239:    5303           00001                           TC       1                                     
013441,003240: 
013442,003241: 
013443,003242: 
013444,003243:    5304           36426        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
013445,003244:    5305           70002                           MASK     Q                                     #  BANKS ONLY DESIRING THE FCADR OF
013446,003245:    5306           60004                           AD       FBANK                                 #  1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
013447,003246:    5307           04104        GRABUSY            TC       POSTJUMP                              #  TO BE ENTERED.
013448,003247:    5310           10000                           CADR     GRABUSYB                              
013449,003248: 04,3461                                           SETLOC   DOPROC     +2                         
013450,003249: 04,3461           54001        GRABUSY1           TS       L                                     
013451,003250: 04,3462           10324                           CCS      GRABLOCK                              
013452,003251: 04,3463           03466                           TC       +3                                    #  STILL GRABBED
013453,003252: 04,3464           30001                           CA       L                                     #  NOT GRABBED SO DO DIRECT CALL
013454,003253: 04,3465           04107                           TC       BANKJUMP                              
013455,003254: 04,3466           37656                           CAF      TWO                                   
013456,003255: 04,3467           54130                           TS       LSTPTR                                
013457,003256: 04,3470           50130                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
013458,003257: 04,3471           10327                           CCS      DSPLIST                               #  FROM BOTTOM.
013459,003258: 04,3472           03474                           TC       +2                                    
013460,003259: 04,3473           03477                           TC       PUTINLST                              #  SPACE FOUND
013461,003260: 04,3474           10130                           CCS      LSTPTR                                #  DECREMENT POINTER
013462,003261: 04,3475           03467                           TC       -6                                    
013463,003262: 04,3476           03543                           TC       LSTFULL                               
013464,003263: 04,3477           30001        PUTINLST           CA       L                                     
013465,003264: 04,3500           50130                           INDEX    LSTPTR                                
013466,003265: 04,3501           54327                           TS       DSPLIST                               
013467,003266: 04,3502           04377                           TC       JOBSLEEP                              
013468,003267: 
013469,003268: 
013470,003269:                                                                                                  #  GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
013471,003270:                                                                                                  #  SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
013472,003271:                                                                                                  #  WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
013473,003272:                                                                                                  #  JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
013474,003273:                                                                                                  #  SYSTEM IS FREED.
013475,003274: 
013476,003275:    5311                                           SETLOC   GRABUSY    +2                         
013477,003276:    5311           10324        GRABWAIT           CCS      GRABLOCK                              
013478,003277:    5312           15304                           TCF      PREGBSY                               #  GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
013479,003278: 
013480,003279:    5313           37657                           CAF      ONE                                   #  NOT GRABBED. GRAB AND RETURN TO L+1.
013481,003280:    5314           54324                           TS       GRABLOCK                              
013482,003281:    5315           00002                           TC       Q                                     
013483,003282: 
013484,003283: 
013485,003284: 
013486,003285:    5316           45323        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
013487,003286:    5317           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF(LOC
013488,003287:    5320           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
013489,003288:    5321           04104        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
013490,003289:    5322           10001                           CADR     NVSUBSYB                              
013491,003290:    5323           02003        2K+3               OCT      2003                                  
013492,003291: 
013493,003292: 04,3503                                           SETLOC   PUTINLST   +4                         
013494,003293: 04,3503           54001        NVSUBSY1           TS       L                                     
013495,003294: 04,3504           10277                           CCS      DSPLOCK                               #  TEST IF REALLY LOCKED OUT
013496,003295: 04,3505           03510                           TC       +3                                    #  STILL BUSY
013497,003296: 04,3506           30001                           CA       L                                     #  DSPLOCK = +0 SO RETURN DIRECTLY
013498,003297: 04,3507           04107                           TC       BANKJUMP                              
013499,003298: 04,3510           37656                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
013500,003299: 04,3511           54324                           TS       GRABLOCK                              
013501,003300: 04,3512           30001                           CA       L                                     
013502,003301: 04,3513           56331                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
013503,003302: 04,3514           56330                           XCH      DSPLIST    +1                         #          (BOTTOM)
013504,003303: 04,3515           56327                           XCH      DSPLIST                               
013505,003304: 04,3516           10000                           CCS      A                                     
013506,003305: 04,3517           03543                           TC       LSTFULL                               
013507,003306: 04,3520           03522                           TC       +2                                    
013508,003307: 04,3521           03543                           TC       LSTFULL                               
013509,003308: 04,3522           05245                           TC       RELDSPON                              
013510,003309: 04,3523           30001                           CA       L                                     
013511,003310: 04,3524           04377        ENDNVBSY           TC       JOBSLEEP                              
013512,003311: 
013513,003312: 
013514,003313: 
013515,003314:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
013516,003315:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
013517,003316:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
013518,003317:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
013519,003318:                                                                                                  #  IS NOT BUSY.
013520,003319: 
013521,003320:    5324                                           SETLOC   NVSUBUSY   +3                         
013522,003321:    5324           54107        NVSBWAIT           TS       NVTEMP                                
013523,003322:    5325           10277                           CCS      DSPLOCK                               
013524,003323:    5326           15331                           TCF      NVSBWT1                               #  BUSY
013525,003324:    5327           30002                           CA       Q                                     #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
013526,003325:    5330           15106                           TCF      NVSUB      +5                         #  AFTER EXECUTION.
013527,003326:    5331           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
013528,003327:    5332           15316                           TCF      PRENVBSY                              #  GO TO SLEEP.
013529,003328: 
013530,003329:    5333           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
013531,003330:    5334           54130                           TS       RELRET                                #  OFF, SEARCH DSPLIST
013532,003331:    5335           37667                           CAF      NEG1                                  
013533,003332:    5336           60324                           AD       GRABLOCK                              
013534,003333:    5337           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
013535,003334:    5340           65346                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
013536,003335:    5341           05361                           TC       WKSEARCH                              
013537,003336:    5342           05346                           TC       RELDSP2                               #  LIST EMPTY
013538,003337:    5343           04403                           TC       JOBWAKE                               #  LIST NOT EMPTY
013539,003338:    5344           37657                           CAF      ONE                                   
013540,003339:    5345           54324                           TS       GRABLOCK                              
013541,003340:    5346           00004        RELDSP2            INHINT                                         
013542,003341:    5347           47653                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
013543,003342:    5350           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
013544,003343:    5351           03011                           WAND     DSALMOUT                              
013545,003344:    5352           37665                           CAF      ZERO                                  
013546,003345:    5353           54277                           TS       DSPLOCK                               
013547,003346:    5354           00003                           RELINT                                         
013548,003347:    5355           00130                           TC       RELRET                                
013549,003348:    5356           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. RELDSP LIGHT OFF.
013550,003349:    5357           54130                           TS       RELRET                                #  NO LIST SEARCH
013551,003350:    5360           05346                           TC       RELDSP2                               
013552,003351: 
013553,003352: 
013554,003353: 
013555,003354:    5361           37665        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
013556,003355:    5362           56327                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
013557,003356:    5363           56330                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
013558,003357:    5364           56331                           XCH      DSPLIST    +2                         
013559,003358:    5365           00006                           EXTEND                                         
013560,003359:    5366           15372                           BZF      +4                                    #  EMPTY
013561,003360:    5367           00004                           INHINT                                         #  NOT EMPTY
013562,003361:    5370           50002                           INDEX    Q                                     #  RETURN TO L+2
013563,003362:    5371           00001                           TC       1                                     
013564,003363:    5372           00002                           TC       Q                                     #  RETURN TO L+1
013565,003364: 
013566,003365: 
013567,003366: 
013568,003367:    5373           56002        FREEDSP            XCH      Q                                     
013569,003368:    5374           54130                           TS       FREERET                               
013570,003369:    5375           00004                           INHINT                                         
013571,003370:    5376           35404                           CAF      SHOTIME                               
013572,003371:    5377           04517                           TC       WAITLIST                              
013573,003372:    5400     0264                                  EBANK=   DSPCOUNT                              
013574,003373:    5400           03525 10000                     2CADR    FREEWAIT                              
013575,003374:    5402           00003                           RELINT                                         
013576,003375:    5403           00130                           TC       FREERET                               
013577,003376: 
013578,003377:    5404           01130        SHOTIME            DEC      600        B-14                       #  6 SECOND WAITING PERIOD.
013579,003378: 
013580,003379:    5405                        ENDPINBF           EQUALS                                         
013581,003380: 
013582,003381: 04,3525                                           SETLOC   ENDNVBSY   +1                         
013583,003382: 
013584,003383: 04,3525           35225        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
013585,003384: 04,3526           04344                           TC       NOVAC                                 
013586,003385: 04,3527     0264                                  EBANK=   DSPCOUNT                              
013587,003386: 04,3527           03532 10000                     2CADR    FREDSPD0                              
013588,003387: 04,3531           04563                           TC       TASKOVER                              
013589,003388: 
013590,003389: 
013591,003390: 
013592,003391: 04,3532           05361        FREDSPD0           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
013593,003392: 04,3533           03541                           TC       LSTEMPTY                              #  LIST EMPTY
013594,003393: 04,3534           04403                           TC       JOBWAKE                               #  LIST NOT EMPTY
013595,003394: 04,3535           00003                           RELINT                                         
013596,003395: 04,3536           37657                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
013597,003396: 04,3537           54324                           TS       GRABLOCK                              
013598,003397: 04,3540           04421                           TC       ENDOFJOB                              
013599,003398: 04,3541           37665        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
013600,003399: 04,3542           03537                           TC       -3                                    
013601,003400: 
013602,003401: 
013603,003402: 
013604,003403: 04,3543           05440        LSTFULL            TC       ABORT                                 
013605,003404: 04,3544           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
013606,003405: 
013607,003406: 04,3545                        ENDPINS1           EQUALS                                         
013608,003407: 
013609,003408:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
013610,003409:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
013611,003410: 
013612,003411: 05,3414                                           SETLOC   DSPMMEND   +1                         
013613,003412: 
013614,003413: 05,3414           00004        VBTSTLTS           INHINT                                         
013615,003414: 05,3415           47657                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
013616,003415: 05,3416           70370                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
013617,003416: 05,3417           67657                           AD       BIT1                                  
013618,003417: 05,3420           54370                           TS       IMODES33                              
013619,003418: 
013620,003419: 05,3421           33457                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
013621,003420: 05,3422           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
013622,003421: 05,3423           05011                           WOR      DSALMOUT                              
013623,003422: 05,3424           33460                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
013624,003423: 05,3425           54322                           TS       DSPTAB     +11D                       #  PROG ALM.
013625,003424: 05,3426           37646                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
013626,003425: 05,3427           00006                           EXTEND                                         
013627,003426: 05,3430           05013                           WOR      CHAN13                                
013628,003427: 05,3431           37661                           CAF      TEN                                   
013629,003428: 05,3432           54103        TSTLTS1            TS       ERCNT                                 
013630,003429: 05,3433           43455                           CS       FULLDSP                               
013631,003430: 05,3434           50103                           INDEX    ERCNT                                 
013632,003431: 05,3435           54307                           TS       DSPTAB                                
013633,003432: 05,3436           10103                           CCS      ERCNT                                 
013634,003433: 05,3437           03432                           TC       TSTLTS1                               
013635,003434: 05,3440           43456                           CS       FULLDSP1                              
013636,003435: 05,3441           54310                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
013637,003436: 05,3442           54313                           TS       DSPTAB     +4                         
013638,003437: 05,3443           54315                           TS       DSPTAB     +6                         
013639,003438: 05,3444           37660                           CAF      ELEVEN                                
013640,003439: 05,3445           54303                           TS       NOUT                                  
013641,003440: 05,3446           00003                           RELINT                                         
013642,003441: 05,3447           33462                           CAF      SHOLTS                                
013643,003442: 05,3450           00004                           INHINT                                         
013644,003443: 05,3451           04517                           TC       WAITLIST                              
013645,003444: 05,3452     0307                                  EBANK=   DSPTAB                                
013646,003445: 05,3452           03463 12000                     2CADR    TSTLTS2                               
013647,003446: 
013648,003447: 05,3454           04421                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
013649,003448:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
013650,003449:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
013651,003450: 
013652,003451: 
013653,003452: 
013654,003453: 05,3455           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8:S
013655,003454: 05,3456           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8:S AND +
013656,003455: 05,3457           00175        TSTCON1            OCT      00175                                 
013657,003456:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
013658,003457:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
013659,003458: 
013660,003459: 05,3460           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D BITS 4,6,8,9.
013661,003460:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
013662,003461: 05,3461           00115        TSTCON3            OCT      00115                                 #  CHAN 11 BITS 1, 3, 4, 7.
013663,003462:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
013664,003463: 05,3462           00764        SHOLTS             OCT      764                                   #  5 SEC
013665,003464: 
013666,003465: 
013667,003466: 
013668,003467: 05,3463           35225        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
013669,003468: 05,3464           04344                           TC       NOVAC                                 
013670,003469: 05,3465     0307                                  EBANK=   DSPTAB                                
013671,003470: 05,3465           03470 12000                     2CADR    TSTLTS3                               
013672,003471: 
013673,003472: 05,3467           04563                           TC       TASKOVER                              
013674,003473: 
013675,003474: 
013676,003475: 
013677,003476: 05,3470           43461        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
013678,003477: 05,3471           00004                           INHINT                                         
013679,003478: 05,3472           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
013680,003479: 05,3473           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
013681,003480: 05,3474           47646                           CS       BIT10                                 #  TURN OFF  TEST ALARM OUTBIT
013682,003481: 05,3475           00006                           EXTEND                                         
013683,003482: 05,3476           03013                           WAND     CHAN13                                
013684,003483: 05,3477           37641                           CAF      BIT15                                 #  TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
013685,003484: 05,3500           54322                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
013686,003485: 05,3501           43521                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
013687,003486: 05,3502           70370                           MASK     IMODES33                              #  LIGHTS COMPLETE.
013688,003487: 05,3503           64476                           AD       PRIO16                                
013689,003488: 05,3504           54370                           TS       IMODES33                              
013690,003489: 
013691,003490: 05,3505           43523                           CS       OCT55000                              
013692,003491: 05,3506           70367                           MASK     IMODES30                              
013693,003492: 05,3507           64475                           AD       PRIO15                                #  15000.
013694,003493: 05,3510           54367                           TS       IMODES30                              
013695,003494: 
013696,003495: 05,3511           43522                           CS       RFAILS2                               
013697,003496: 05,3512           70413                           MASK     RADMODES                              
013698,003497: 05,3513           67651                           AD       BIT7                                  
013699,003498: 05,3514           54413                           TS       RADMODES                              
013700,003499: 
013701,003500: 05,3515           00003                           RELINT                                         
013702,003501: 
013703,003502: 05,3516           02001                           TC       DSPMM                                 #  REDISPLAY C(MODREG)
013704,003503: 05,3517           04104                           TC       POSTJUMP                              #  TURN OFF KEY RLSE LIGHT ( AND SEARCH LIST
013705,003504: 05,3520           11315                           CADR     VBTERM                                #  IF APPROPRIATE).
013706,003505:                                                                                                  #  TURN OFF V/N FLASH, SET LOADSTAT FOR
013707,003506:                                                                                                  #  FOR TERMINATE CONDITION, AND GO TO
013708,003507:                                                                                                  #  RECALTST. FINALLY DO TC ENDOFJOB.
013709,003508: 
013710,003509: 05,3521           16001        13-11,1            OCT      16001                                 
013711,003510: 05,3522           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
013712,003511: 05,3523           55000        OCT55000           OCT      55000                                 
013713,003512: 05,3524                        ENDPINS2           EQUALS                                         

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