Source Code

   YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS       BY MSTEWART JUN. 28,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.

010288,000002:                                                                                                  ## Copyright:   Public domain.
010289,000003:                                                                                                  ## Filename:    PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
010290,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
010291,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
010292,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
010293,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
010294,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
010295,000009:                                                                                                  ##              Validation.
010296,000010:                                                                                                  ## Assembler:   yaYUL
010297,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
010298,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010299,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
010300,000014:                                                                                                  ##              2017-01-04 MAS  Pulled back PROCEED key functionality from Luminary 99.
010301,000015:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
010302,000016:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
010303,000017:                                                                                                  ##              2017-03-08 RSB  Changed DSPOCTWO to DSPOCTWD.
010304,000018:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted in proofing Luminary 116.
010305,000019:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
010306,000020:                                                                                                  ##                              Luminary 99 vs Comanche 55.
010307,000021: 
010308,000022:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
010309,000023: 
010310,000024: 
010311,000025: 
010312,000026:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
010313,000027: 
010314,000028:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
010315,000029:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
010316,000030:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
010317,000031: 
010318,000032:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4

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

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

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