Source Code

These source-code files are part of a reconstructed copy of Aurora 88, the final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson.

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

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

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